Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
my $c = $cs->{$nspots};
print <<END;
union(){
my $c = $cs->{$nspots};
print <<END;
union(){
- Frame(\$phase, token_pitch * [ $rowsz + 0.75, $nrows ]);
+ Frame(\$phase, token_pitch * [ $rowsz + 1.00, $nrows ]);
\$nspots = $nspots;
END
while ($c--) {
\$nspots = $nspots;
END
while ($c--) {
module Black(){ ////toplevel
// total=18, rowsz=5, nrows=4
union(){
module Black(){ ////toplevel
// total=18, rowsz=5, nrows=4
union(){
- Frame($phase, token_pitch * [ 5 + 0.75, 4 ]);
+ Frame($phase, token_pitch * [ 5 + 1.00, 4 ]);
$nspots = 1;
translate(token_pitch * [ -2.0, -1.5 ]) Token_L();
translate(token_pitch * [ -2.0, -0.5 ]) Token_L();
$nspots = 1;
translate(token_pitch * [ -2.0, -1.5 ]) Token_L();
translate(token_pitch * [ -2.0, -0.5 ]) Token_L();
translate(token_pitch * [ 2.0, -0.5 ]) Token_L();
};
union(){
translate(token_pitch * [ 2.0, -0.5 ]) Token_L();
};
union(){
- Frame($phase, token_pitch * [ 5 + 0.75, 4 ]);
+ Frame($phase, token_pitch * [ 5 + 1.00, 4 ]);
- Frame($phase, token_pitch * [ 5 + 0.75, 4 ]);
+ Frame($phase, token_pitch * [ 5 + 1.00, 4 ]);
- Frame($phase, token_pitch * [ 5 + 0.75, 4 ]);
+ Frame($phase, token_pitch * [ 5 + 1.00, 4 ]);
$nspots = 4;
};
}
module Blue(){ ////toplevel
// total=34, rowsz=6, nrows=6
union(){
$nspots = 4;
};
}
module Blue(){ ////toplevel
// total=34, rowsz=6, nrows=6
union(){
- Frame($phase, token_pitch * [ 6 + 0.75, 6 ]);
+ Frame($phase, token_pitch * [ 6 + 1.00, 6 ]);
$nspots = 1;
translate(token_pitch * [ -2.5, -2.5 ]) Token_L();
translate(token_pitch * [ -2.5, -1.5 ]) Token_L();
$nspots = 1;
translate(token_pitch * [ -2.5, -2.5 ]) Token_L();
translate(token_pitch * [ -2.5, -1.5 ]) Token_L();
translate(token_pitch * [ -0.5, -1.5 ]) Token_L();
};
union(){
translate(token_pitch * [ -0.5, -1.5 ]) Token_L();
};
union(){
- Frame($phase, token_pitch * [ 6 + 0.75, 6 ]);
+ Frame($phase, token_pitch * [ 6 + 1.00, 6 ]);
$nspots = 2;
translate(token_pitch * [ -0.5, -0.5 ]) Token_L();
translate(token_pitch * [ -0.5, 0.5 ]) Token_L();
$nspots = 2;
translate(token_pitch * [ -0.5, -0.5 ]) Token_L();
translate(token_pitch * [ -0.5, 0.5 ]) Token_L();
translate(token_pitch * [ 0.5, 2.5 ]) Token_L();
};
union(){
translate(token_pitch * [ 0.5, 2.5 ]) Token_L();
};
union(){
- Frame($phase, token_pitch * [ 6 + 0.75, 6 ]);
+ Frame($phase, token_pitch * [ 6 + 1.00, 6 ]);
- Frame($phase, token_pitch * [ 6 + 0.75, 6 ]);
+ Frame($phase, token_pitch * [ 6 + 1.00, 6 ]);
$nspots = 4;
translate(token_pitch * [ 1.5, -2.5 ]) Token_L();
translate(token_pitch * [ 1.5, -1.5 ]) Token_L();
$nspots = 4;
translate(token_pitch * [ 1.5, -2.5 ]) Token_L();
translate(token_pitch * [ 1.5, -1.5 ]) Token_L();
module Green(){ ////toplevel
// total=38, rowsz=7, nrows=6
union(){
module Green(){ ////toplevel
// total=38, rowsz=7, nrows=6
union(){
- Frame($phase, token_pitch * [ 7 + 0.75, 6 ]);
+ Frame($phase, token_pitch * [ 7 + 1.00, 6 ]);
$nspots = 1;
translate(token_pitch * [ -3.0, -2.5 ]) Token_L();
translate(token_pitch * [ -3.0, -1.5 ]) Token_L();
$nspots = 1;
translate(token_pitch * [ -3.0, -2.5 ]) Token_L();
translate(token_pitch * [ -3.0, -1.5 ]) Token_L();
translate(token_pitch * [ -1.0, -0.5 ]) Token_L();
};
union(){
translate(token_pitch * [ -1.0, -0.5 ]) Token_L();
};
union(){
- Frame($phase, token_pitch * [ 7 + 0.75, 6 ]);
+ Frame($phase, token_pitch * [ 7 + 1.00, 6 ]);
$nspots = 2;
translate(token_pitch * [ -1.0, 0.5 ]) Token_L();
translate(token_pitch * [ -1.0, 1.5 ]) Token_L();
$nspots = 2;
translate(token_pitch * [ -1.0, 0.5 ]) Token_L();
translate(token_pitch * [ -1.0, 1.5 ]) Token_L();
translate(token_pitch * [ 1.0, -2.5 ]) Token_L();
};
union(){
translate(token_pitch * [ 1.0, -2.5 ]) Token_L();
};
union(){
- Frame($phase, token_pitch * [ 7 + 0.75, 6 ]);
+ Frame($phase, token_pitch * [ 7 + 1.00, 6 ]);
- Frame($phase, token_pitch * [ 7 + 0.75, 6 ]);
+ Frame($phase, token_pitch * [ 7 + 1.00, 6 ]);
$nspots = 4;
translate(token_pitch * [ 1.0, -1.5 ]) Token_L();
translate(token_pitch * [ 1.0, -0.5 ]) Token_L();
$nspots = 4;
translate(token_pitch * [ 1.0, -1.5 ]) Token_L();
translate(token_pitch * [ 1.0, -0.5 ]) Token_L();
module Orange(){ ////toplevel
// total=20, rowsz=5, nrows=4
union(){
module Orange(){ ////toplevel
// total=20, rowsz=5, nrows=4
union(){
- Frame($phase, token_pitch * [ 5 + 0.75, 4 ]);
+ Frame($phase, token_pitch * [ 5 + 1.00, 4 ]);
$nspots = 1;
translate(token_pitch * [ -2.0, -1.5 ]) Token_L();
translate(token_pitch * [ -2.0, -0.5 ]) Token_L();
$nspots = 1;
translate(token_pitch * [ -2.0, -1.5 ]) Token_L();
translate(token_pitch * [ -2.0, -0.5 ]) Token_L();
translate(token_pitch * [ 2.0, 1.5 ]) Token_L();
};
union(){
translate(token_pitch * [ 2.0, 1.5 ]) Token_L();
};
union(){
- Frame($phase, token_pitch * [ 5 + 0.75, 4 ]);
+ Frame($phase, token_pitch * [ 5 + 1.00, 4 ]);
- Frame($phase, token_pitch * [ 5 + 0.75, 4 ]);
+ Frame($phase, token_pitch * [ 5 + 1.00, 4 ]);
- Frame($phase, token_pitch * [ 5 + 0.75, 4 ]);
+ Frame($phase, token_pitch * [ 5 + 1.00, 4 ]);
$nspots = 4;
};
}
module Purple(){ ////toplevel
// total=15, rowsz=4, nrows=4
union(){
$nspots = 4;
};
}
module Purple(){ ////toplevel
// total=15, rowsz=4, nrows=4
union(){
- Frame($phase, token_pitch * [ 4 + 0.75, 4 ]);
+ Frame($phase, token_pitch * [ 4 + 1.00, 4 ]);
$nspots = 1;
translate(token_pitch * [ -1.5, -1.5 ]) Token_L();
translate(token_pitch * [ -1.5, -0.5 ]) Token_L();
$nspots = 1;
translate(token_pitch * [ -1.5, -1.5 ]) Token_L();
translate(token_pitch * [ -1.5, -0.5 ]) Token_L();
translate(token_pitch * [ 1.5, 0.5 ]) Token_L();
};
union(){
translate(token_pitch * [ 1.5, 0.5 ]) Token_L();
};
union(){
- Frame($phase, token_pitch * [ 4 + 0.75, 4 ]);
+ Frame($phase, token_pitch * [ 4 + 1.00, 4 ]);
- Frame($phase, token_pitch * [ 4 + 0.75, 4 ]);
+ Frame($phase, token_pitch * [ 4 + 1.00, 4 ]);
- Frame($phase, token_pitch * [ 4 + 0.75, 4 ]);
+ Frame($phase, token_pitch * [ 4 + 1.00, 4 ]);
$nspots = 4;
};
}
module Red(){ ////toplevel
// total=30, rowsz=6, nrows=5
union(){
$nspots = 4;
};
}
module Red(){ ////toplevel
// total=30, rowsz=6, nrows=5
union(){
- Frame($phase, token_pitch * [ 6 + 0.75, 5 ]);
+ Frame($phase, token_pitch * [ 6 + 1.00, 5 ]);
$nspots = 1;
translate(token_pitch * [ -2.5, -2.0 ]) Token_L();
translate(token_pitch * [ -2.5, -1.0 ]) Token_L();
$nspots = 1;
translate(token_pitch * [ -2.5, -2.0 ]) Token_L();
translate(token_pitch * [ -2.5, -1.0 ]) Token_L();
translate(token_pitch * [ -0.5, -1.0 ]) Token_L();
};
union(){
translate(token_pitch * [ -0.5, -1.0 ]) Token_L();
};
union(){
- Frame($phase, token_pitch * [ 6 + 0.75, 5 ]);
+ Frame($phase, token_pitch * [ 6 + 1.00, 5 ]);
$nspots = 2;
translate(token_pitch * [ -0.5, 0.0 ]) Token_L();
translate(token_pitch * [ -0.5, 1.0 ]) Token_L();
$nspots = 2;
translate(token_pitch * [ -0.5, 0.0 ]) Token_L();
translate(token_pitch * [ -0.5, 1.0 ]) Token_L();
translate(token_pitch * [ 0.5, 2.0 ]) Token_L();
};
union(){
translate(token_pitch * [ 0.5, 2.0 ]) Token_L();
};
union(){
- Frame($phase, token_pitch * [ 6 + 0.75, 5 ]);
+ Frame($phase, token_pitch * [ 6 + 1.00, 5 ]);
- Frame($phase, token_pitch * [ 6 + 0.75, 5 ]);
+ Frame($phase, token_pitch * [ 6 + 1.00, 5 ]);
$nspots = 4;
translate(token_pitch * [ 1.5, -2.0 ]) Token_L();
translate(token_pitch * [ 1.5, -1.0 ]) Token_L();
$nspots = 4;
translate(token_pitch * [ 1.5, -2.0 ]) Token_L();
translate(token_pitch * [ 1.5, -1.0 ]) Token_L();
module White(){ ////toplevel
// total=32, rowsz=6, nrows=6
union(){
module White(){ ////toplevel
// total=32, rowsz=6, nrows=6
union(){
- Frame($phase, token_pitch * [ 6 + 0.75, 6 ]);
+ Frame($phase, token_pitch * [ 6 + 1.00, 6 ]);
$nspots = 1;
translate(token_pitch * [ -2.5, -2.5 ]) Token_L();
translate(token_pitch * [ -2.5, -1.5 ]) Token_L();
$nspots = 1;
translate(token_pitch * [ -2.5, -2.5 ]) Token_L();
translate(token_pitch * [ -2.5, -1.5 ]) Token_L();
translate(token_pitch * [ 0.5, -1.5 ]) Token_L();
};
union(){
translate(token_pitch * [ 0.5, -1.5 ]) Token_L();
};
union(){
- Frame($phase, token_pitch * [ 6 + 0.75, 6 ]);
+ Frame($phase, token_pitch * [ 6 + 1.00, 6 ]);
$nspots = 2;
translate(token_pitch * [ 0.5, -0.5 ]) Token_L();
translate(token_pitch * [ 0.5, 0.5 ]) Token_L();
$nspots = 2;
translate(token_pitch * [ 0.5, -0.5 ]) Token_L();
translate(token_pitch * [ 0.5, 0.5 ]) Token_L();
translate(token_pitch * [ 1.5, 0.5 ]) Token_L();
};
union(){
translate(token_pitch * [ 1.5, 0.5 ]) Token_L();
};
union(){
- Frame($phase, token_pitch * [ 6 + 0.75, 6 ]);
+ Frame($phase, token_pitch * [ 6 + 1.00, 6 ]);
$nspots = 3;
translate(token_pitch * [ 1.5, 1.5 ]) Token_L();
translate(token_pitch * [ 1.5, 2.5 ]) Token_L();
$nspots = 3;
translate(token_pitch * [ 1.5, 1.5 ]) Token_L();
translate(token_pitch * [ 1.5, 2.5 ]) Token_L();
translate(token_pitch * [ 2.5, -1.5 ]) Token_L();
};
union(){
translate(token_pitch * [ 2.5, -1.5 ]) Token_L();
};
union(){
- Frame($phase, token_pitch * [ 6 + 0.75, 6 ]);
+ Frame($phase, token_pitch * [ 6 + 1.00, 6 ]);
$nspots = 4;
};
}
module Yellow(){ ////toplevel
// total=29, rowsz=6, nrows=5
union(){
$nspots = 4;
};
}
module Yellow(){ ////toplevel
// total=29, rowsz=6, nrows=5
union(){
- Frame($phase, token_pitch * [ 6 + 0.75, 5 ]);
+ Frame($phase, token_pitch * [ 6 + 1.00, 5 ]);
$nspots = 1;
translate(token_pitch * [ -2.5, -2.0 ]) Token_L();
translate(token_pitch * [ -2.5, -1.0 ]) Token_L();
$nspots = 1;
translate(token_pitch * [ -2.5, -2.0 ]) Token_L();
translate(token_pitch * [ -2.5, -1.0 ]) Token_L();
translate(token_pitch * [ -0.5, 0.0 ]) Token_L();
};
union(){
translate(token_pitch * [ -0.5, 0.0 ]) Token_L();
};
union(){
- Frame($phase, token_pitch * [ 6 + 0.75, 5 ]);
+ Frame($phase, token_pitch * [ 6 + 1.00, 5 ]);
$nspots = 2;
translate(token_pitch * [ -0.5, 1.0 ]) Token_L();
translate(token_pitch * [ -0.5, 2.0 ]) Token_L();
$nspots = 2;
translate(token_pitch * [ -0.5, 1.0 ]) Token_L();
translate(token_pitch * [ -0.5, 2.0 ]) Token_L();
translate(token_pitch * [ 0.5, 1.0 ]) Token_L();
};
union(){
translate(token_pitch * [ 0.5, 1.0 ]) Token_L();
};
union(){
- Frame($phase, token_pitch * [ 6 + 0.75, 5 ]);
+ Frame($phase, token_pitch * [ 6 + 1.00, 5 ]);
- Frame($phase, token_pitch * [ 6 + 0.75, 5 ]);
+ Frame($phase, token_pitch * [ 6 + 1.00, 5 ]);
$nspots = 4;
translate(token_pitch * [ 0.5, 2.0 ]) Token_L();
translate(token_pitch * [ 1.5, -2.0 ]) Token_L();
$nspots = 4;
translate(token_pitch * [ 0.5, 2.0 ]) Token_L();
translate(token_pitch * [ 1.5, -2.0 ]) Token_L();