6 xyyZZYYXYxxyzYYZXzzxyXXYXXXZxxxyyXXZyyyzXXzz
7 zxxYYXXZXzzxyXXYZyyzxZZXZZZYzzzxxZZYxxxyZZyy
8 yzzXXZZYZyyzxZZXYxxyzYYZYYYXyyyzzYYXzzzxYYxx
11 sub o { print @_ or die $!; }
14 // -*- autogenerated, do not edit -*-
23 while ($shape =~ s/^\s*(\w)//) {
24 my $ix = index('xyz', (lc $1));
25 my $sign = $1 =~ /[A-Z]/ ? +1 : -1;
28 o " TraceEdge([@p],[@q]);\n";
32 die @p unless "@p" eq '0,0,0';
36 while (<DATA>) { o $_ }