quacks-ingredients-counts.scad

   1 //  autogenerated - do not edit
   2 //   update script is quacks-ingredients-updates-levels
   3 //   source is quacks-ingredients-counts
   4 module Base_1xFour(){ ////toplevel
   5 // Base  1xFour      total= 1  rowsz=1  nrows=1
   6   union(){
   7     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
   8     $nspots = 0;
   9   };
  10   union(){
  11     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
  12     $nspots = 1;
  13   };
  14   union(){
  15     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
  16     $nspots = 2;
  17   };
  18   union(){
  19     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
  20     $nspots = 3;
  21   };
  22   union(){
  23     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
  24     $nspots = 4;
  25     translate(token_pitch * [   0.0,   0.0 ]) Token_L();
  26   };
  27 }
  28 module Base_1xOne(){ ////toplevel
  29 // Base  1xOne       total= 1  rowsz=1  nrows=1
  30   union(){
  31     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
  32     $nspots = 0;
  33   };
  34   union(){
  35     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
  36     $nspots = 1;
  37     translate(token_pitch * [   0.0,   0.0 ]) Token_L();
  38   };
  39   union(){
  40     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
  41     $nspots = 2;
  42   };
  43   union(){
  44     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
  45     $nspots = 3;
  46   };
  47   union(){
  48     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
  49     $nspots = 4;
  50   };
  51 }
  52 module Base_1xThree(){ ////toplevel
  53 // Base  1xThree     total= 1  rowsz=1  nrows=1
  54   union(){
  55     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
  56     $nspots = 0;
  57   };
  58   union(){
  59     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
  60     $nspots = 1;
  61   };
  62   union(){
  63     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
  64     $nspots = 2;
  65   };
  66   union(){
  67     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
  68     $nspots = 3;
  69     translate(token_pitch * [   0.0,   0.0 ]) Token_L();
  70   };
  71   union(){
  72     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
  73     $nspots = 4;
  74   };
  75 }
  76 module Base_1xTwo(){ ////toplevel
  77 // Base  1xTwo       total= 1  rowsz=1  nrows=1
  78   union(){
  79     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
  80     $nspots = 0;
  81   };
  82   union(){
  83     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
  84     $nspots = 1;
  85   };
  86   union(){
  87     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
  88     $nspots = 2;
  89     translate(token_pitch * [   0.0,   0.0 ]) Token_L();
  90   };
  91   union(){
  92     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
  93     $nspots = 3;
  94   };
  95   union(){
  96     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
  97     $nspots = 4;
  98   };
  99 }
 100 module Base_1xZero(){ ////toplevel
 101 // Base  1xZero      total= 1  rowsz=1  nrows=1
 102   union(){
 103     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
 104     $nspots = 0;
 105     translate(token_pitch * [   0.0,   0.0 ]) Token_L();
 106   };
 107   union(){
 108     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
 109     $nspots = 1;
 110   };
 111   union(){
 112     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
 113     $nspots = 2;
 114   };
 115   union(){
 116     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
 117     $nspots = 3;
 118   };
 119   union(){
 120     Frame($phase, token_pitch * [ 1 + 1.00, 1 + 0.50 ]);
 121     $nspots = 4;
 122   };
 123 }
 124 module Base_2xFour(){ ////toplevel
 125 // Base  2xFour      total= 2  rowsz=2  nrows=1
 126   union(){
 127     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 128     $nspots = 0;
 129   };
 130   union(){
 131     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 132     $nspots = 1;
 133   };
 134   union(){
 135     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 136     $nspots = 2;
 137   };
 138   union(){
 139     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 140     $nspots = 3;
 141   };
 142   union(){
 143     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 144     $nspots = 4;
 145     translate(token_pitch * [  -0.5,   0.0 ]) Token_L();
 146     translate(token_pitch * [   0.5,   0.0 ]) Token_L();
 147   };
 148 }
 149 module Base_2xOne(){ ////toplevel
 150 // Base  2xOne       total= 2  rowsz=2  nrows=1
 151   union(){
 152     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 153     $nspots = 0;
 154   };
 155   union(){
 156     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 157     $nspots = 1;
 158     translate(token_pitch * [  -0.5,   0.0 ]) Token_L();
 159     translate(token_pitch * [   0.5,   0.0 ]) Token_L();
 160   };
 161   union(){
 162     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 163     $nspots = 2;
 164   };
 165   union(){
 166     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 167     $nspots = 3;
 168   };
 169   union(){
 170     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 171     $nspots = 4;
 172   };
 173 }
 174 module Base_2xThree(){ ////toplevel
 175 // Base  2xThree     total= 2  rowsz=2  nrows=1
 176   union(){
 177     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 178     $nspots = 0;
 179   };
 180   union(){
 181     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 182     $nspots = 1;
 183   };
 184   union(){
 185     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 186     $nspots = 2;
 187   };
 188   union(){
 189     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 190     $nspots = 3;
 191     translate(token_pitch * [  -0.5,   0.0 ]) Token_L();
 192     translate(token_pitch * [   0.5,   0.0 ]) Token_L();
 193   };
 194   union(){
 195     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 196     $nspots = 4;
 197   };
 198 }
 199 module Base_2xTwo(){ ////toplevel
 200 // Base  2xTwo       total= 2  rowsz=2  nrows=1
 201   union(){
 202     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 203     $nspots = 0;
 204   };
 205   union(){
 206     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 207     $nspots = 1;
 208   };
 209   union(){
 210     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 211     $nspots = 2;
 212     translate(token_pitch * [  -0.5,   0.0 ]) Token_L();
 213     translate(token_pitch * [   0.5,   0.0 ]) Token_L();
 214   };
 215   union(){
 216     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 217     $nspots = 3;
 218   };
 219   union(){
 220     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 221     $nspots = 4;
 222   };
 223 }
 224 module Base_2xZero(){ ////toplevel
 225 // Base  2xZero      total= 2  rowsz=2  nrows=1
 226   union(){
 227     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 228     $nspots = 0;
 229     translate(token_pitch * [  -0.5,   0.0 ]) Token_L();
 230     translate(token_pitch * [   0.5,   0.0 ]) Token_L();
 231   };
 232   union(){
 233     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 234     $nspots = 1;
 235   };
 236   union(){
 237     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 238     $nspots = 2;
 239   };
 240   union(){
 241     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 242     $nspots = 3;
 243   };
 244   union(){
 245     Frame($phase, token_pitch * [ 2 + 1.00, 1 + 0.50 ]);
 246     $nspots = 4;
 247   };
 248 }
 249 module Base_3xFour(){ ////toplevel
 250 // Base  3xFour      total= 3  rowsz=2  nrows=2
 251   union(){
 252     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 253     $nspots = 0;
 254   };
 255   union(){
 256     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 257     $nspots = 1;
 258   };
 259   union(){
 260     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 261     $nspots = 2;
 262   };
 263   union(){
 264     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 265     $nspots = 3;
 266   };
 267   union(){
 268     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 269     $nspots = 4;
 270     translate(token_pitch * [  -0.5,  -0.5 ]) Token_L();
 271     translate(token_pitch * [  -0.5,   0.5 ]) Token_L();
 272     translate(token_pitch * [   0.5,  -0.5 ]) Token_L();
 273   };
 274 }
 275 module Base_3xOne(){ ////toplevel
 276 // Base  3xOne       total= 3  rowsz=2  nrows=2
 277   union(){
 278     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 279     $nspots = 0;
 280   };
 281   union(){
 282     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 283     $nspots = 1;
 284     translate(token_pitch * [  -0.5,  -0.5 ]) Token_L();
 285     translate(token_pitch * [  -0.5,   0.5 ]) Token_L();
 286     translate(token_pitch * [   0.5,  -0.5 ]) Token_L();
 287   };
 288   union(){
 289     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 290     $nspots = 2;
 291   };
 292   union(){
 293     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 294     $nspots = 3;
 295   };
 296   union(){
 297     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 298     $nspots = 4;
 299   };
 300 }
 301 module Base_3xThree(){ ////toplevel
 302 // Base  3xThree     total= 3  rowsz=2  nrows=2
 303   union(){
 304     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 305     $nspots = 0;
 306   };
 307   union(){
 308     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 309     $nspots = 1;
 310   };
 311   union(){
 312     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 313     $nspots = 2;
 314   };
 315   union(){
 316     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 317     $nspots = 3;
 318     translate(token_pitch * [  -0.5,  -0.5 ]) Token_L();
 319     translate(token_pitch * [  -0.5,   0.5 ]) Token_L();
 320     translate(token_pitch * [   0.5,  -0.5 ]) Token_L();
 321   };
 322   union(){
 323     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 324     $nspots = 4;
 325   };
 326 }
 327 module Base_3xTwo(){ ////toplevel
 328 // Base  3xTwo       total= 3  rowsz=2  nrows=2
 329   union(){
 330     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 331     $nspots = 0;
 332   };
 333   union(){
 334     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 335     $nspots = 1;
 336   };
 337   union(){
 338     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 339     $nspots = 2;
 340     translate(token_pitch * [  -0.5,  -0.5 ]) Token_L();
 341     translate(token_pitch * [  -0.5,   0.5 ]) Token_L();
 342     translate(token_pitch * [   0.5,  -0.5 ]) Token_L();
 343   };
 344   union(){
 345     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 346     $nspots = 3;
 347   };
 348   union(){
 349     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 350     $nspots = 4;
 351   };
 352 }
 353 module Base_3xZero(){ ////toplevel
 354 // Base  3xZero      total= 3  rowsz=2  nrows=2
 355   union(){
 356     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 357     $nspots = 0;
 358     translate(token_pitch * [  -0.5,  -0.5 ]) Token_L();
 359     translate(token_pitch * [  -0.5,   0.5 ]) Token_L();
 360     translate(token_pitch * [   0.5,  -0.5 ]) Token_L();
 361   };
 362   union(){
 363     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 364     $nspots = 1;
 365   };
 366   union(){
 367     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 368     $nspots = 2;
 369   };
 370   union(){
 371     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 372     $nspots = 3;
 373   };
 374   union(){
 375     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 376     $nspots = 4;
 377   };
 378 }
 379 module Base_Black(){ ////toplevel
 380 // Base  Black       total=18  rowsz=5  nrows=4
 381   union(){
 382     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
 383     $nspots = 0;
 384   };
 385   union(){
 386     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
 387     $nspots = 1;
 388     translate(token_pitch * [  -2.0,  -1.5 ]) Token_L();
 389     translate(token_pitch * [  -2.0,  -0.5 ]) Token_L();
 390     translate(token_pitch * [  -2.0,   0.5 ]) Token_L();
 391     translate(token_pitch * [  -2.0,   1.5 ]) Token_L();
 392     translate(token_pitch * [  -1.0,  -1.5 ]) Token_L();
 393     translate(token_pitch * [  -1.0,  -0.5 ]) Token_L();
 394     translate(token_pitch * [  -1.0,   0.5 ]) Token_L();
 395     translate(token_pitch * [  -1.0,   1.5 ]) Token_L();
 396     translate(token_pitch * [   0.0,  -1.5 ]) Token_L();
 397     translate(token_pitch * [   0.0,  -0.5 ]) Token_L();
 398     translate(token_pitch * [   0.0,   0.5 ]) Token_L();
 399     translate(token_pitch * [   0.0,   1.5 ]) Token_L();
 400     translate(token_pitch * [   1.0,  -1.5 ]) Token_L();
 401     translate(token_pitch * [   1.0,  -0.5 ]) Token_L();
 402     translate(token_pitch * [   1.0,   0.5 ]) Token_L();
 403     translate(token_pitch * [   1.0,   1.5 ]) Token_L();
 404     translate(token_pitch * [   2.0,  -1.5 ]) Token_L();
 405     translate(token_pitch * [   2.0,  -0.5 ]) Token_L();
 406   };
 407   union(){
 408     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
 409     $nspots = 2;
 410   };
 411   union(){
 412     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
 413     $nspots = 3;
 414   };
 415   union(){
 416     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
 417     $nspots = 4;
 418   };
 419 }
 420 module Base_Blue(){ ////toplevel
 421 // Base  Blue        total=34  rowsz=6  nrows=6
 422   union(){
 423     Frame($phase, token_pitch * [ 6 + 1.00, 6 + 0.50 ]);
 424     $nspots = 0;
 425   };
 426   union(){
 427     Frame($phase, token_pitch * [ 6 + 1.00, 6 + 0.50 ]);
 428     $nspots = 1;
 429     translate(token_pitch * [  -2.5,  -2.5 ]) Token_L();
 430     translate(token_pitch * [  -2.5,  -1.5 ]) Token_L();
 431     translate(token_pitch * [  -2.5,  -0.5 ]) Token_L();
 432     translate(token_pitch * [  -2.5,   0.5 ]) Token_L();
 433     translate(token_pitch * [  -2.5,   1.5 ]) Token_L();
 434     translate(token_pitch * [  -2.5,   2.5 ]) Token_L();
 435     translate(token_pitch * [  -1.5,  -2.5 ]) Token_L();
 436     translate(token_pitch * [  -1.5,  -1.5 ]) Token_L();
 437     translate(token_pitch * [  -1.5,  -0.5 ]) Token_L();
 438     translate(token_pitch * [  -1.5,   0.5 ]) Token_L();
 439     translate(token_pitch * [  -1.5,   1.5 ]) Token_L();
 440     translate(token_pitch * [  -1.5,   2.5 ]) Token_L();
 441     translate(token_pitch * [  -0.5,  -2.5 ]) Token_L();
 442     translate(token_pitch * [  -0.5,  -1.5 ]) Token_L();
 443   };
 444   union(){
 445     Frame($phase, token_pitch * [ 6 + 1.00, 6 + 0.50 ]);
 446     $nspots = 2;
 447     translate(token_pitch * [  -0.5,  -0.5 ]) Token_L();
 448     translate(token_pitch * [  -0.5,   0.5 ]) Token_L();
 449     translate(token_pitch * [  -0.5,   1.5 ]) Token_L();
 450     translate(token_pitch * [  -0.5,   2.5 ]) Token_L();
 451     translate(token_pitch * [   0.5,  -2.5 ]) Token_L();
 452     translate(token_pitch * [   0.5,  -1.5 ]) Token_L();
 453     translate(token_pitch * [   0.5,  -0.5 ]) Token_L();
 454     translate(token_pitch * [   0.5,   0.5 ]) Token_L();
 455     translate(token_pitch * [   0.5,   1.5 ]) Token_L();
 456     translate(token_pitch * [   0.5,   2.5 ]) Token_L();
 457   };
 458   union(){
 459     Frame($phase, token_pitch * [ 6 + 1.00, 6 + 0.50 ]);
 460     $nspots = 3;
 461   };
 462   union(){
 463     Frame($phase, token_pitch * [ 6 + 1.00, 6 + 0.50 ]);
 464     $nspots = 4;
 465     translate(token_pitch * [   1.5,  -2.5 ]) Token_L();
 466     translate(token_pitch * [   1.5,  -1.5 ]) Token_L();
 467     translate(token_pitch * [   1.5,  -0.5 ]) Token_L();
 468     translate(token_pitch * [   1.5,   0.5 ]) Token_L();
 469     translate(token_pitch * [   1.5,   1.5 ]) Token_L();
 470     translate(token_pitch * [   1.5,   2.5 ]) Token_L();
 471     translate(token_pitch * [   2.5,  -2.5 ]) Token_L();
 472     translate(token_pitch * [   2.5,  -1.5 ]) Token_L();
 473     translate(token_pitch * [   2.5,  -0.5 ]) Token_L();
 474     translate(token_pitch * [   2.5,   0.5 ]) Token_L();
 475   };
 476 }
 477 module Base_Green(){ ////toplevel
 478 // Base  Green       total=38  rowsz=7  nrows=6
 479   union(){
 480     Frame($phase, token_pitch * [ 7 + 1.00, 6 + 0.50 ]);
 481     $nspots = 0;
 482   };
 483   union(){
 484     Frame($phase, token_pitch * [ 7 + 1.00, 6 + 0.50 ]);
 485     $nspots = 1;
 486     translate(token_pitch * [  -3.0,  -2.5 ]) Token_L();
 487     translate(token_pitch * [  -3.0,  -1.5 ]) Token_L();
 488     translate(token_pitch * [  -3.0,  -0.5 ]) Token_L();
 489     translate(token_pitch * [  -3.0,   0.5 ]) Token_L();
 490     translate(token_pitch * [  -3.0,   1.5 ]) Token_L();
 491     translate(token_pitch * [  -3.0,   2.5 ]) Token_L();
 492     translate(token_pitch * [  -2.0,  -2.5 ]) Token_L();
 493     translate(token_pitch * [  -2.0,  -1.5 ]) Token_L();
 494     translate(token_pitch * [  -2.0,  -0.5 ]) Token_L();
 495     translate(token_pitch * [  -2.0,   0.5 ]) Token_L();
 496     translate(token_pitch * [  -2.0,   1.5 ]) Token_L();
 497     translate(token_pitch * [  -2.0,   2.5 ]) Token_L();
 498     translate(token_pitch * [  -1.0,  -2.5 ]) Token_L();
 499     translate(token_pitch * [  -1.0,  -1.5 ]) Token_L();
 500     translate(token_pitch * [  -1.0,  -0.5 ]) Token_L();
 501   };
 502   union(){
 503     Frame($phase, token_pitch * [ 7 + 1.00, 6 + 0.50 ]);
 504     $nspots = 2;
 505     translate(token_pitch * [  -1.0,   0.5 ]) Token_L();
 506     translate(token_pitch * [  -1.0,   1.5 ]) Token_L();
 507     translate(token_pitch * [  -1.0,   2.5 ]) Token_L();
 508     translate(token_pitch * [   0.0,  -2.5 ]) Token_L();
 509     translate(token_pitch * [   0.0,  -1.5 ]) Token_L();
 510     translate(token_pitch * [   0.0,  -0.5 ]) Token_L();
 511     translate(token_pitch * [   0.0,   0.5 ]) Token_L();
 512     translate(token_pitch * [   0.0,   1.5 ]) Token_L();
 513     translate(token_pitch * [   0.0,   2.5 ]) Token_L();
 514     translate(token_pitch * [   1.0,  -2.5 ]) Token_L();
 515   };
 516   union(){
 517     Frame($phase, token_pitch * [ 7 + 1.00, 6 + 0.50 ]);
 518     $nspots = 3;
 519   };
 520   union(){
 521     Frame($phase, token_pitch * [ 7 + 1.00, 6 + 0.50 ]);
 522     $nspots = 4;
 523     translate(token_pitch * [   1.0,  -1.5 ]) Token_L();
 524     translate(token_pitch * [   1.0,  -0.5 ]) Token_L();
 525     translate(token_pitch * [   1.0,   0.5 ]) Token_L();
 526     translate(token_pitch * [   1.0,   1.5 ]) Token_L();
 527     translate(token_pitch * [   1.0,   2.5 ]) Token_L();
 528     translate(token_pitch * [   2.0,  -2.5 ]) Token_L();
 529     translate(token_pitch * [   2.0,  -1.5 ]) Token_L();
 530     translate(token_pitch * [   2.0,  -0.5 ]) Token_L();
 531     translate(token_pitch * [   2.0,   0.5 ]) Token_L();
 532     translate(token_pitch * [   2.0,   1.5 ]) Token_L();
 533     translate(token_pitch * [   2.0,   2.5 ]) Token_L();
 534     translate(token_pitch * [   3.0,  -2.5 ]) Token_L();
 535     translate(token_pitch * [   3.0,  -1.5 ]) Token_L();
 536   };
 537 }
 538 module Base_Orange(){ ////toplevel
 539 // Base  Orange      total=20  rowsz=5  nrows=4
 540   union(){
 541     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
 542     $nspots = 0;
 543   };
 544   union(){
 545     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
 546     $nspots = 1;
 547     translate(token_pitch * [  -2.0,  -1.5 ]) Token_L();
 548     translate(token_pitch * [  -2.0,  -0.5 ]) Token_L();
 549     translate(token_pitch * [  -2.0,   0.5 ]) Token_L();
 550     translate(token_pitch * [  -2.0,   1.5 ]) Token_L();
 551     translate(token_pitch * [  -1.0,  -1.5 ]) Token_L();
 552     translate(token_pitch * [  -1.0,  -0.5 ]) Token_L();
 553     translate(token_pitch * [  -1.0,   0.5 ]) Token_L();
 554     translate(token_pitch * [  -1.0,   1.5 ]) Token_L();
 555     translate(token_pitch * [   0.0,  -1.5 ]) Token_L();
 556     translate(token_pitch * [   0.0,  -0.5 ]) Token_L();
 557     translate(token_pitch * [   0.0,   0.5 ]) Token_L();
 558     translate(token_pitch * [   0.0,   1.5 ]) Token_L();
 559     translate(token_pitch * [   1.0,  -1.5 ]) Token_L();
 560     translate(token_pitch * [   1.0,  -0.5 ]) Token_L();
 561     translate(token_pitch * [   1.0,   0.5 ]) Token_L();
 562     translate(token_pitch * [   1.0,   1.5 ]) Token_L();
 563     translate(token_pitch * [   2.0,  -1.5 ]) Token_L();
 564     translate(token_pitch * [   2.0,  -0.5 ]) Token_L();
 565     translate(token_pitch * [   2.0,   0.5 ]) Token_L();
 566     translate(token_pitch * [   2.0,   1.5 ]) Token_L();
 567   };
 568   union(){
 569     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
 570     $nspots = 2;
 571   };
 572   union(){
 573     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
 574     $nspots = 3;
 575   };
 576   union(){
 577     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
 578     $nspots = 4;
 579   };
 580 }
 581 module Base_Purple(){ ////toplevel
 582 // Base  Purple      total=15  rowsz=4  nrows=4
 583   union(){
 584     Frame($phase, token_pitch * [ 4 + 1.00, 4 + 0.50 ]);
 585     $nspots = 0;
 586   };
 587   union(){
 588     Frame($phase, token_pitch * [ 4 + 1.00, 4 + 0.50 ]);
 589     $nspots = 1;
 590     translate(token_pitch * [  -1.5,  -1.5 ]) Token_L();
 591     translate(token_pitch * [  -1.5,  -0.5 ]) Token_L();
 592     translate(token_pitch * [  -1.5,   0.5 ]) Token_L();
 593     translate(token_pitch * [  -1.5,   1.5 ]) Token_L();
 594     translate(token_pitch * [  -0.5,  -1.5 ]) Token_L();
 595     translate(token_pitch * [  -0.5,  -0.5 ]) Token_L();
 596     translate(token_pitch * [  -0.5,   0.5 ]) Token_L();
 597     translate(token_pitch * [  -0.5,   1.5 ]) Token_L();
 598     translate(token_pitch * [   0.5,  -1.5 ]) Token_L();
 599     translate(token_pitch * [   0.5,  -0.5 ]) Token_L();
 600     translate(token_pitch * [   0.5,   0.5 ]) Token_L();
 601     translate(token_pitch * [   0.5,   1.5 ]) Token_L();
 602     translate(token_pitch * [   1.5,  -1.5 ]) Token_L();
 603     translate(token_pitch * [   1.5,  -0.5 ]) Token_L();
 604     translate(token_pitch * [   1.5,   0.5 ]) Token_L();
 605   };
 606   union(){
 607     Frame($phase, token_pitch * [ 4 + 1.00, 4 + 0.50 ]);
 608     $nspots = 2;
 609   };
 610   union(){
 611     Frame($phase, token_pitch * [ 4 + 1.00, 4 + 0.50 ]);
 612     $nspots = 3;
 613   };
 614   union(){
 615     Frame($phase, token_pitch * [ 4 + 1.00, 4 + 0.50 ]);
 616     $nspots = 4;
 617   };
 618 }
 619 module Base_Red(){ ////toplevel
 620 // Base  Red         total=30  rowsz=6  nrows=5
 621   union(){
 622     Frame($phase, token_pitch * [ 6 + 1.00, 5 + 0.50 ]);
 623     $nspots = 0;
 624   };
 625   union(){
 626     Frame($phase, token_pitch * [ 6 + 1.00, 5 + 0.50 ]);
 627     $nspots = 1;
 628     translate(token_pitch * [  -2.5,  -2.0 ]) Token_L();
 629     translate(token_pitch * [  -2.5,  -1.0 ]) Token_L();
 630     translate(token_pitch * [  -2.5,   0.0 ]) Token_L();
 631     translate(token_pitch * [  -2.5,   1.0 ]) Token_L();
 632     translate(token_pitch * [  -2.5,   2.0 ]) Token_L();
 633     translate(token_pitch * [  -1.5,  -2.0 ]) Token_L();
 634     translate(token_pitch * [  -1.5,  -1.0 ]) Token_L();
 635     translate(token_pitch * [  -1.5,   0.0 ]) Token_L();
 636     translate(token_pitch * [  -1.5,   1.0 ]) Token_L();
 637     translate(token_pitch * [  -1.5,   2.0 ]) Token_L();
 638     translate(token_pitch * [  -0.5,  -2.0 ]) Token_L();
 639     translate(token_pitch * [  -0.5,  -1.0 ]) Token_L();
 640   };
 641   union(){
 642     Frame($phase, token_pitch * [ 6 + 1.00, 5 + 0.50 ]);
 643     $nspots = 2;
 644     translate(token_pitch * [  -0.5,   0.0 ]) Token_L();
 645     translate(token_pitch * [  -0.5,   1.0 ]) Token_L();
 646     translate(token_pitch * [  -0.5,   2.0 ]) Token_L();
 647     translate(token_pitch * [   0.5,  -2.0 ]) Token_L();
 648     translate(token_pitch * [   0.5,  -1.0 ]) Token_L();
 649     translate(token_pitch * [   0.5,   0.0 ]) Token_L();
 650     translate(token_pitch * [   0.5,   1.0 ]) Token_L();
 651     translate(token_pitch * [   0.5,   2.0 ]) Token_L();
 652   };
 653   union(){
 654     Frame($phase, token_pitch * [ 6 + 1.00, 5 + 0.50 ]);
 655     $nspots = 3;
 656   };
 657   union(){
 658     Frame($phase, token_pitch * [ 6 + 1.00, 5 + 0.50 ]);
 659     $nspots = 4;
 660     translate(token_pitch * [   1.5,  -2.0 ]) Token_L();
 661     translate(token_pitch * [   1.5,  -1.0 ]) Token_L();
 662     translate(token_pitch * [   1.5,   0.0 ]) Token_L();
 663     translate(token_pitch * [   1.5,   1.0 ]) Token_L();
 664     translate(token_pitch * [   1.5,   2.0 ]) Token_L();
 665     translate(token_pitch * [   2.5,  -2.0 ]) Token_L();
 666     translate(token_pitch * [   2.5,  -1.0 ]) Token_L();
 667     translate(token_pitch * [   2.5,   0.0 ]) Token_L();
 668     translate(token_pitch * [   2.5,   1.0 ]) Token_L();
 669     translate(token_pitch * [   2.5,   2.0 ]) Token_L();
 670   };
 671 }
 672 module Base_White(){ ////toplevel
 673 // Base  White       total=35  rowsz=6  nrows=6
 674   union(){
 675     Frame($phase, token_pitch * [ 6 + 1.00, 6 + 0.50 ]);
 676     $nspots = 0;
 677   };
 678   union(){
 679     Frame($phase, token_pitch * [ 6 + 1.00, 6 + 0.50 ]);
 680     $nspots = 1;
 681     translate(token_pitch * [  -2.5,  -2.5 ]) Token_L();
 682     translate(token_pitch * [  -2.5,  -1.5 ]) Token_L();
 683     translate(token_pitch * [  -2.5,  -0.5 ]) Token_L();
 684     translate(token_pitch * [  -2.5,   0.5 ]) Token_L();
 685     translate(token_pitch * [  -2.5,   1.5 ]) Token_L();
 686     translate(token_pitch * [  -2.5,   2.5 ]) Token_L();
 687     translate(token_pitch * [  -1.5,  -2.5 ]) Token_L();
 688     translate(token_pitch * [  -1.5,  -1.5 ]) Token_L();
 689     translate(token_pitch * [  -1.5,  -0.5 ]) Token_L();
 690     translate(token_pitch * [  -1.5,   0.5 ]) Token_L();
 691     translate(token_pitch * [  -1.5,   1.5 ]) Token_L();
 692     translate(token_pitch * [  -1.5,   2.5 ]) Token_L();
 693     translate(token_pitch * [  -0.5,  -2.5 ]) Token_L();
 694     translate(token_pitch * [  -0.5,  -1.5 ]) Token_L();
 695     translate(token_pitch * [  -0.5,  -0.5 ]) Token_L();
 696     translate(token_pitch * [  -0.5,   0.5 ]) Token_L();
 697     translate(token_pitch * [  -0.5,   1.5 ]) Token_L();
 698     translate(token_pitch * [  -0.5,   2.5 ]) Token_L();
 699     translate(token_pitch * [   0.5,  -2.5 ]) Token_L();
 700     translate(token_pitch * [   0.5,  -1.5 ]) Token_L();
 701     translate(token_pitch * [   0.5,  -0.5 ]) Token_L();
 702   };
 703   union(){
 704     Frame($phase, token_pitch * [ 6 + 1.00, 6 + 0.50 ]);
 705     $nspots = 2;
 706     translate(token_pitch * [   0.5,   0.5 ]) Token_L();
 707     translate(token_pitch * [   0.5,   1.5 ]) Token_L();
 708     translate(token_pitch * [   0.5,   2.5 ]) Token_L();
 709     translate(token_pitch * [   1.5,  -2.5 ]) Token_L();
 710     translate(token_pitch * [   1.5,  -1.5 ]) Token_L();
 711     translate(token_pitch * [   1.5,  -0.5 ]) Token_L();
 712     translate(token_pitch * [   1.5,   0.5 ]) Token_L();
 713     translate(token_pitch * [   1.5,   1.5 ]) Token_L();
 714     translate(token_pitch * [   1.5,   2.5 ]) Token_L();
 715   };
 716   union(){
 717     Frame($phase, token_pitch * [ 6 + 1.00, 6 + 0.50 ]);
 718     $nspots = 3;
 719     translate(token_pitch * [   2.5,  -2.5 ]) Token_L();
 720     translate(token_pitch * [   2.5,  -1.5 ]) Token_L();
 721     translate(token_pitch * [   2.5,  -0.5 ]) Token_L();
 722     translate(token_pitch * [   2.5,   0.5 ]) Token_L();
 723     translate(token_pitch * [   2.5,   1.5 ]) Token_L();
 724   };
 725   union(){
 726     Frame($phase, token_pitch * [ 6 + 1.00, 6 + 0.50 ]);
 727     $nspots = 4;
 728   };
 729 }
 730 module Base_WhiteSpare(){ ////toplevel
 731 // Base  WhiteSpare  total= 3  rowsz=2  nrows=2
 732   union(){
 733     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 734     $nspots = 0;
 735   };
 736   union(){
 737     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 738     $nspots = 1;
 739     translate(token_pitch * [  -0.5,  -0.5 ]) Token_L();
 740   };
 741   union(){
 742     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 743     $nspots = 2;
 744     translate(token_pitch * [  -0.5,   0.5 ]) Token_L();
 745   };
 746   union(){
 747     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 748     $nspots = 3;
 749     translate(token_pitch * [   0.5,  -0.5 ]) Token_L();
 750   };
 751   union(){
 752     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
 753     $nspots = 4;
 754   };
 755 }
 756 module Base_Yellow(){ ////toplevel
 757 // Base  Yellow      total=29  rowsz=6  nrows=5
 758   union(){
 759     Frame($phase, token_pitch * [ 6 + 1.00, 5 + 0.50 ]);
 760     $nspots = 0;
 761   };
 762   union(){
 763     Frame($phase, token_pitch * [ 6 + 1.00, 5 + 0.50 ]);
 764     $nspots = 1;
 765     translate(token_pitch * [  -2.5,  -2.0 ]) Token_L();
 766     translate(token_pitch * [  -2.5,  -1.0 ]) Token_L();
 767     translate(token_pitch * [  -2.5,   0.0 ]) Token_L();
 768     translate(token_pitch * [  -2.5,   1.0 ]) Token_L();
 769     translate(token_pitch * [  -2.5,   2.0 ]) Token_L();
 770     translate(token_pitch * [  -1.5,  -2.0 ]) Token_L();
 771     translate(token_pitch * [  -1.5,  -1.0 ]) Token_L();
 772     translate(token_pitch * [  -1.5,   0.0 ]) Token_L();
 773     translate(token_pitch * [  -1.5,   1.0 ]) Token_L();
 774     translate(token_pitch * [  -1.5,   2.0 ]) Token_L();
 775     translate(token_pitch * [  -0.5,  -2.0 ]) Token_L();
 776     translate(token_pitch * [  -0.5,  -1.0 ]) Token_L();
 777     translate(token_pitch * [  -0.5,   0.0 ]) Token_L();
 778   };
 779   union(){
 780     Frame($phase, token_pitch * [ 6 + 1.00, 5 + 0.50 ]);
 781     $nspots = 2;
 782     translate(token_pitch * [  -0.5,   1.0 ]) Token_L();
 783     translate(token_pitch * [  -0.5,   2.0 ]) Token_L();
 784     translate(token_pitch * [   0.5,  -2.0 ]) Token_L();
 785     translate(token_pitch * [   0.5,  -1.0 ]) Token_L();
 786     translate(token_pitch * [   0.5,   0.0 ]) Token_L();
 787     translate(token_pitch * [   0.5,   1.0 ]) Token_L();
 788   };
 789   union(){
 790     Frame($phase, token_pitch * [ 6 + 1.00, 5 + 0.50 ]);
 791     $nspots = 3;
 792   };
 793   union(){
 794     Frame($phase, token_pitch * [ 6 + 1.00, 5 + 0.50 ]);
 795     $nspots = 4;
 796     translate(token_pitch * [   0.5,   2.0 ]) Token_L();
 797     translate(token_pitch * [   1.5,  -2.0 ]) Token_L();
 798     translate(token_pitch * [   1.5,  -1.0 ]) Token_L();
 799     translate(token_pitch * [   1.5,   0.0 ]) Token_L();
 800     translate(token_pitch * [   1.5,   1.0 ]) Token_L();
 801     translate(token_pitch * [   1.5,   2.0 ]) Token_L();
 802     translate(token_pitch * [   2.5,  -2.0 ]) Token_L();
 803     translate(token_pitch * [   2.5,  -1.0 ]) Token_L();
 804     translate(token_pitch * [   2.5,   0.0 ]) Token_L();
 805     translate(token_pitch * [   2.5,   1.0 ]) Token_L();
 806   };
 807 }
 808 // Base  total_count=252   total_real_count=219
 809 // Base  max_rowsz=7       max_nrows=6
 810 module All_Black(){ ////toplevel
 811 // All  Black       total=26  rowsz=6  nrows=5
 812   union(){
 813     Frame($phase, token_pitch * [ 6 + 1.00, 5 + 0.50 ]);
 814     $nspots = 0;
 815   };
 816   union(){
 817     Frame($phase, token_pitch * [ 6 + 1.00, 5 + 0.50 ]);
 818     $nspots = 1;
 819     translate(token_pitch * [  -2.5,  -2.0 ]) Token_L();
 820     translate(token_pitch * [  -2.5,  -1.0 ]) Token_L();
 821     translate(token_pitch * [  -2.5,   0.0 ]) Token_L();
 822     translate(token_pitch * [  -2.5,   1.0 ]) Token_L();
 823     translate(token_pitch * [  -2.5,   2.0 ]) Token_L();
 824     translate(token_pitch * [  -1.5,  -2.0 ]) Token_L();
 825     translate(token_pitch * [  -1.5,  -1.0 ]) Token_L();
 826     translate(token_pitch * [  -1.5,   0.0 ]) Token_L();
 827     translate(token_pitch * [  -1.5,   1.0 ]) Token_L();
 828     translate(token_pitch * [  -1.5,   2.0 ]) Token_L();
 829     translate(token_pitch * [  -0.5,  -2.0 ]) Token_L();
 830     translate(token_pitch * [  -0.5,  -1.0 ]) Token_L();
 831     translate(token_pitch * [  -0.5,   0.0 ]) Token_L();
 832     translate(token_pitch * [  -0.5,   1.0 ]) Token_L();
 833     translate(token_pitch * [  -0.5,   2.0 ]) Token_L();
 834     translate(token_pitch * [   0.5,  -2.0 ]) Token_L();
 835     translate(token_pitch * [   0.5,  -1.0 ]) Token_L();
 836     translate(token_pitch * [   0.5,   0.0 ]) Token_L();
 837     translate(token_pitch * [   0.5,   1.0 ]) Token_L();
 838     translate(token_pitch * [   0.5,   2.0 ]) Token_L();
 839     translate(token_pitch * [   1.5,  -2.0 ]) Token_L();
 840     translate(token_pitch * [   1.5,  -1.0 ]) Token_L();
 841     translate(token_pitch * [   1.5,   0.0 ]) Token_L();
 842     translate(token_pitch * [   1.5,   1.0 ]) Token_L();
 843     translate(token_pitch * [   1.5,   2.0 ]) Token_L();
 844     translate(token_pitch * [   2.5,  -2.0 ]) Token_L();
 845   };
 846   union(){
 847     Frame($phase, token_pitch * [ 6 + 1.00, 5 + 0.50 ]);
 848     $nspots = 2;
 849   };
 850   union(){
 851     Frame($phase, token_pitch * [ 6 + 1.00, 5 + 0.50 ]);
 852     $nspots = 3;
 853   };
 854   union(){
 855     Frame($phase, token_pitch * [ 6 + 1.00, 5 + 0.50 ]);
 856     $nspots = 4;
 857   };
 858 }
 859 module All_Blue(){ ////toplevel
 860 // All  Blue        total=52  rowsz=8  nrows=7
 861   union(){
 862     Frame($phase, token_pitch * [ 8 + 1.00, 7 + 0.50 ]);
 863     $nspots = 0;
 864   };
 865   union(){
 866     Frame($phase, token_pitch * [ 8 + 1.00, 7 + 0.50 ]);
 867     $nspots = 1;
 868     translate(token_pitch * [  -3.5,  -3.0 ]) Token_L();
 869     translate(token_pitch * [  -3.5,  -2.0 ]) Token_L();
 870     translate(token_pitch * [  -3.5,  -1.0 ]) Token_L();
 871     translate(token_pitch * [  -3.5,   0.0 ]) Token_L();
 872     translate(token_pitch * [  -3.5,   1.0 ]) Token_L();
 873     translate(token_pitch * [  -3.5,   2.0 ]) Token_L();
 874     translate(token_pitch * [  -3.5,   3.0 ]) Token_L();
 875     translate(token_pitch * [  -2.5,  -3.0 ]) Token_L();
 876     translate(token_pitch * [  -2.5,  -2.0 ]) Token_L();
 877     translate(token_pitch * [  -2.5,  -1.0 ]) Token_L();
 878     translate(token_pitch * [  -2.5,   0.0 ]) Token_L();
 879     translate(token_pitch * [  -2.5,   1.0 ]) Token_L();
 880     translate(token_pitch * [  -2.5,   2.0 ]) Token_L();
 881     translate(token_pitch * [  -2.5,   3.0 ]) Token_L();
 882     translate(token_pitch * [  -1.5,  -3.0 ]) Token_L();
 883     translate(token_pitch * [  -1.5,  -2.0 ]) Token_L();
 884     translate(token_pitch * [  -1.5,  -1.0 ]) Token_L();
 885     translate(token_pitch * [  -1.5,   0.0 ]) Token_L();
 886     translate(token_pitch * [  -1.5,   1.0 ]) Token_L();
 887     translate(token_pitch * [  -1.5,   2.0 ]) Token_L();
 888     translate(token_pitch * [  -1.5,   3.0 ]) Token_L();
 889     translate(token_pitch * [  -0.5,  -3.0 ]) Token_L();
 890   };
 891   union(){
 892     Frame($phase, token_pitch * [ 8 + 1.00, 7 + 0.50 ]);
 893     $nspots = 2;
 894     translate(token_pitch * [  -0.5,  -2.0 ]) Token_L();
 895     translate(token_pitch * [  -0.5,  -1.0 ]) Token_L();
 896     translate(token_pitch * [  -0.5,   0.0 ]) Token_L();
 897     translate(token_pitch * [  -0.5,   1.0 ]) Token_L();
 898     translate(token_pitch * [  -0.5,   2.0 ]) Token_L();
 899     translate(token_pitch * [  -0.5,   3.0 ]) Token_L();
 900     translate(token_pitch * [   0.5,  -3.0 ]) Token_L();
 901     translate(token_pitch * [   0.5,  -2.0 ]) Token_L();
 902     translate(token_pitch * [   0.5,  -1.0 ]) Token_L();
 903     translate(token_pitch * [   0.5,   0.0 ]) Token_L();
 904     translate(token_pitch * [   0.5,   1.0 ]) Token_L();
 905     translate(token_pitch * [   0.5,   2.0 ]) Token_L();
 906     translate(token_pitch * [   0.5,   3.0 ]) Token_L();
 907     translate(token_pitch * [   1.5,  -3.0 ]) Token_L();
 908     translate(token_pitch * [   1.5,  -2.0 ]) Token_L();
 909   };
 910   union(){
 911     Frame($phase, token_pitch * [ 8 + 1.00, 7 + 0.50 ]);
 912     $nspots = 3;
 913   };
 914   union(){
 915     Frame($phase, token_pitch * [ 8 + 1.00, 7 + 0.50 ]);
 916     $nspots = 4;
 917     translate(token_pitch * [   1.5,  -1.0 ]) Token_L();
 918     translate(token_pitch * [   1.5,   0.0 ]) Token_L();
 919     translate(token_pitch * [   1.5,   1.0 ]) Token_L();
 920     translate(token_pitch * [   1.5,   2.0 ]) Token_L();
 921     translate(token_pitch * [   1.5,   3.0 ]) Token_L();
 922     translate(token_pitch * [   2.5,  -3.0 ]) Token_L();
 923     translate(token_pitch * [   2.5,  -2.0 ]) Token_L();
 924     translate(token_pitch * [   2.5,  -1.0 ]) Token_L();
 925     translate(token_pitch * [   2.5,   0.0 ]) Token_L();
 926     translate(token_pitch * [   2.5,   1.0 ]) Token_L();
 927     translate(token_pitch * [   2.5,   2.0 ]) Token_L();
 928     translate(token_pitch * [   2.5,   3.0 ]) Token_L();
 929     translate(token_pitch * [   3.5,  -3.0 ]) Token_L();
 930     translate(token_pitch * [   3.5,  -2.0 ]) Token_L();
 931     translate(token_pitch * [   3.5,  -1.0 ]) Token_L();
 932   };
 933 }
 934 module All_Green(){ ////toplevel
 935 // All  Green       total=58  rowsz=8  nrows=8
 936   union(){
 937     Frame($phase, token_pitch * [ 8 + 1.00, 8 + 0.50 ]);
 938     $nspots = 0;
 939   };
 940   union(){
 941     Frame($phase, token_pitch * [ 8 + 1.00, 8 + 0.50 ]);
 942     $nspots = 1;
 943     translate(token_pitch * [  -3.5,  -3.5 ]) Token_L();
 944     translate(token_pitch * [  -3.5,  -2.5 ]) Token_L();
 945     translate(token_pitch * [  -3.5,  -1.5 ]) Token_L();
 946     translate(token_pitch * [  -3.5,  -0.5 ]) Token_L();
 947     translate(token_pitch * [  -3.5,   0.5 ]) Token_L();
 948     translate(token_pitch * [  -3.5,   1.5 ]) Token_L();
 949     translate(token_pitch * [  -3.5,   2.5 ]) Token_L();
 950     translate(token_pitch * [  -3.5,   3.5 ]) Token_L();
 951     translate(token_pitch * [  -2.5,  -3.5 ]) Token_L();
 952     translate(token_pitch * [  -2.5,  -2.5 ]) Token_L();
 953     translate(token_pitch * [  -2.5,  -1.5 ]) Token_L();
 954     translate(token_pitch * [  -2.5,  -0.5 ]) Token_L();
 955     translate(token_pitch * [  -2.5,   0.5 ]) Token_L();
 956     translate(token_pitch * [  -2.5,   1.5 ]) Token_L();
 957     translate(token_pitch * [  -2.5,   2.5 ]) Token_L();
 958     translate(token_pitch * [  -2.5,   3.5 ]) Token_L();
 959     translate(token_pitch * [  -1.5,  -3.5 ]) Token_L();
 960     translate(token_pitch * [  -1.5,  -2.5 ]) Token_L();
 961     translate(token_pitch * [  -1.5,  -1.5 ]) Token_L();
 962     translate(token_pitch * [  -1.5,  -0.5 ]) Token_L();
 963     translate(token_pitch * [  -1.5,   0.5 ]) Token_L();
 964     translate(token_pitch * [  -1.5,   1.5 ]) Token_L();
 965     translate(token_pitch * [  -1.5,   2.5 ]) Token_L();
 966     translate(token_pitch * [  -1.5,   3.5 ]) Token_L();
 967     translate(token_pitch * [  -0.5,  -3.5 ]) Token_L();
 968   };
 969   union(){
 970     Frame($phase, token_pitch * [ 8 + 1.00, 8 + 0.50 ]);
 971     $nspots = 2;
 972     translate(token_pitch * [  -0.5,  -2.5 ]) Token_L();
 973     translate(token_pitch * [  -0.5,  -1.5 ]) Token_L();
 974     translate(token_pitch * [  -0.5,  -0.5 ]) Token_L();
 975     translate(token_pitch * [  -0.5,   0.5 ]) Token_L();
 976     translate(token_pitch * [  -0.5,   1.5 ]) Token_L();
 977     translate(token_pitch * [  -0.5,   2.5 ]) Token_L();
 978     translate(token_pitch * [  -0.5,   3.5 ]) Token_L();
 979     translate(token_pitch * [   0.5,  -3.5 ]) Token_L();
 980     translate(token_pitch * [   0.5,  -2.5 ]) Token_L();
 981     translate(token_pitch * [   0.5,  -1.5 ]) Token_L();
 982     translate(token_pitch * [   0.5,  -0.5 ]) Token_L();
 983     translate(token_pitch * [   0.5,   0.5 ]) Token_L();
 984     translate(token_pitch * [   0.5,   1.5 ]) Token_L();
 985     translate(token_pitch * [   0.5,   2.5 ]) Token_L();
 986     translate(token_pitch * [   0.5,   3.5 ]) Token_L();
 987   };
 988   union(){
 989     Frame($phase, token_pitch * [ 8 + 1.00, 8 + 0.50 ]);
 990     $nspots = 3;
 991   };
 992   union(){
 993     Frame($phase, token_pitch * [ 8 + 1.00, 8 + 0.50 ]);
 994     $nspots = 4;
 995     translate(token_pitch * [   1.5,  -3.5 ]) Token_L();
 996     translate(token_pitch * [   1.5,  -2.5 ]) Token_L();
 997     translate(token_pitch * [   1.5,  -1.5 ]) Token_L();
 998     translate(token_pitch * [   1.5,  -0.5 ]) Token_L();
 999     translate(token_pitch * [   1.5,   0.5 ]) Token_L();
1000     translate(token_pitch * [   1.5,   1.5 ]) Token_L();
1001     translate(token_pitch * [   1.5,   2.5 ]) Token_L();
1002     translate(token_pitch * [   1.5,   3.5 ]) Token_L();
1003     translate(token_pitch * [   2.5,  -3.5 ]) Token_L();
1004     translate(token_pitch * [   2.5,  -2.5 ]) Token_L();
1005     translate(token_pitch * [   2.5,  -1.5 ]) Token_L();
1006     translate(token_pitch * [   2.5,  -0.5 ]) Token_L();
1007     translate(token_pitch * [   2.5,   0.5 ]) Token_L();
1008     translate(token_pitch * [   2.5,   1.5 ]) Token_L();
1009     translate(token_pitch * [   2.5,   2.5 ]) Token_L();
1010     translate(token_pitch * [   2.5,   3.5 ]) Token_L();
1011     translate(token_pitch * [   3.5,  -3.5 ]) Token_L();
1012     translate(token_pitch * [   3.5,  -2.5 ]) Token_L();
1013   };
1014 }
1015 module All_Loco(){ ////toplevel
1016 // All  Loco        total=25  rowsz=5  nrows=5
1017   union(){
1018     Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
1019     $nspots = 0;
1020     translate(token_pitch * [  -2.0,  -2.0 ]) Token_L();
1021     translate(token_pitch * [  -2.0,  -1.0 ]) Token_L();
1022     translate(token_pitch * [  -2.0,   0.0 ]) Token_L();
1023     translate(token_pitch * [  -2.0,   1.0 ]) Token_L();
1024     translate(token_pitch * [  -2.0,   2.0 ]) Token_L();
1025     translate(token_pitch * [  -1.0,  -2.0 ]) Token_L();
1026     translate(token_pitch * [  -1.0,  -1.0 ]) Token_L();
1027     translate(token_pitch * [  -1.0,   0.0 ]) Token_L();
1028     translate(token_pitch * [  -1.0,   1.0 ]) Token_L();
1029     translate(token_pitch * [  -1.0,   2.0 ]) Token_L();
1030     translate(token_pitch * [   0.0,  -2.0 ]) Token_L();
1031     translate(token_pitch * [   0.0,  -1.0 ]) Token_L();
1032     translate(token_pitch * [   0.0,   0.0 ]) Token_L();
1033     translate(token_pitch * [   0.0,   1.0 ]) Token_L();
1034     translate(token_pitch * [   0.0,   2.0 ]) Token_L();
1035     translate(token_pitch * [   1.0,  -2.0 ]) Token_L();
1036     translate(token_pitch * [   1.0,  -1.0 ]) Token_L();
1037     translate(token_pitch * [   1.0,   0.0 ]) Token_L();
1038     translate(token_pitch * [   1.0,   1.0 ]) Token_L();
1039     translate(token_pitch * [   1.0,   2.0 ]) Token_L();
1040     translate(token_pitch * [   2.0,  -2.0 ]) Token_L();
1041     translate(token_pitch * [   2.0,  -1.0 ]) Token_L();
1042     translate(token_pitch * [   2.0,   0.0 ]) Token_L();
1043     translate(token_pitch * [   2.0,   1.0 ]) Token_L();
1044     translate(token_pitch * [   2.0,   2.0 ]) Token_L();
1045   };
1046   union(){
1047     Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
1048     $nspots = 1;
1049   };
1050   union(){
1051     Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
1052     $nspots = 2;
1053   };
1054   union(){
1055     Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
1056     $nspots = 3;
1057   };
1058   union(){
1059     Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
1060     $nspots = 4;
1061   };
1062 }
1063 module All_Orange(){ ////toplevel
1064 // All  Orange      total=32  rowsz=6  nrows=6
1065   union(){
1066     Frame($phase, token_pitch * [ 6 + 1.00, 6 + 0.50 ]);
1067     $nspots = 0;
1068   };
1069   union(){
1070     Frame($phase, token_pitch * [ 6 + 1.00, 6 + 0.50 ]);
1071     $nspots = 1;
1072     translate(token_pitch * [  -2.5,  -2.5 ]) Token_L();
1073     translate(token_pitch * [  -2.5,  -1.5 ]) Token_L();
1074     translate(token_pitch * [  -2.5,  -0.5 ]) Token_L();
1075     translate(token_pitch * [  -2.5,   0.5 ]) Token_L();
1076     translate(token_pitch * [  -2.5,   1.5 ]) Token_L();
1077     translate(token_pitch * [  -2.5,   2.5 ]) Token_L();
1078     translate(token_pitch * [  -1.5,  -2.5 ]) Token_L();
1079     translate(token_pitch * [  -1.5,  -1.5 ]) Token_L();
1080     translate(token_pitch * [  -1.5,  -0.5 ]) Token_L();
1081     translate(token_pitch * [  -1.5,   0.5 ]) Token_L();
1082     translate(token_pitch * [  -1.5,   1.5 ]) Token_L();
1083     translate(token_pitch * [  -1.5,   2.5 ]) Token_L();
1084     translate(token_pitch * [  -0.5,  -2.5 ]) Token_L();
1085     translate(token_pitch * [  -0.5,  -1.5 ]) Token_L();
1086     translate(token_pitch * [  -0.5,  -0.5 ]) Token_L();
1087     translate(token_pitch * [  -0.5,   0.5 ]) Token_L();
1088     translate(token_pitch * [  -0.5,   1.5 ]) Token_L();
1089     translate(token_pitch * [  -0.5,   2.5 ]) Token_L();
1090     translate(token_pitch * [   0.5,  -2.5 ]) Token_L();
1091     translate(token_pitch * [   0.5,  -1.5 ]) Token_L();
1092     translate(token_pitch * [   0.5,  -0.5 ]) Token_L();
1093     translate(token_pitch * [   0.5,   0.5 ]) Token_L();
1094     translate(token_pitch * [   0.5,   1.5 ]) Token_L();
1095     translate(token_pitch * [   0.5,   2.5 ]) Token_L();
1096     translate(token_pitch * [   1.5,  -2.5 ]) Token_L();
1097     translate(token_pitch * [   1.5,  -1.5 ]) Token_L();
1098     translate(token_pitch * [   1.5,  -0.5 ]) Token_L();
1099     translate(token_pitch * [   1.5,   0.5 ]) Token_L();
1100     translate(token_pitch * [   1.5,   1.5 ]) Token_L();
1101     translate(token_pitch * [   1.5,   2.5 ]) Token_L();
1102     translate(token_pitch * [   2.5,  -2.5 ]) Token_L();
1103     translate(token_pitch * [   2.5,  -1.5 ]) Token_L();
1104   };
1105   union(){
1106     Frame($phase, token_pitch * [ 6 + 1.00, 6 + 0.50 ]);
1107     $nspots = 2;
1108   };
1109   union(){
1110     Frame($phase, token_pitch * [ 6 + 1.00, 6 + 0.50 ]);
1111     $nspots = 3;
1112   };
1113   union(){
1114     Frame($phase, token_pitch * [ 6 + 1.00, 6 + 0.50 ]);
1115     $nspots = 4;
1116   };
1117 }
1118 module All_Orange6(){ ////toplevel
1119 // All  Orange6     total=20  rowsz=5  nrows=4
1120   union(){
1121     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1122     $nspots = 0;
1123     translate(token_pitch * [  -2.0,  -1.5 ]) Token_L();
1124     translate(token_pitch * [  -2.0,  -0.5 ]) Token_L();
1125     translate(token_pitch * [  -2.0,   0.5 ]) Token_L();
1126     translate(token_pitch * [  -2.0,   1.5 ]) Token_L();
1127     translate(token_pitch * [  -1.0,  -1.5 ]) Token_L();
1128     translate(token_pitch * [  -1.0,  -0.5 ]) Token_L();
1129     translate(token_pitch * [  -1.0,   0.5 ]) Token_L();
1130     translate(token_pitch * [  -1.0,   1.5 ]) Token_L();
1131     translate(token_pitch * [   0.0,  -1.5 ]) Token_L();
1132     translate(token_pitch * [   0.0,  -0.5 ]) Token_L();
1133     translate(token_pitch * [   0.0,   0.5 ]) Token_L();
1134     translate(token_pitch * [   0.0,   1.5 ]) Token_L();
1135     translate(token_pitch * [   1.0,  -1.5 ]) Token_L();
1136     translate(token_pitch * [   1.0,  -0.5 ]) Token_L();
1137     translate(token_pitch * [   1.0,   0.5 ]) Token_L();
1138     translate(token_pitch * [   1.0,   1.5 ]) Token_L();
1139     translate(token_pitch * [   2.0,  -1.5 ]) Token_L();
1140     translate(token_pitch * [   2.0,  -0.5 ]) Token_L();
1141     translate(token_pitch * [   2.0,   0.5 ]) Token_L();
1142     translate(token_pitch * [   2.0,   1.5 ]) Token_L();
1143   };
1144   union(){
1145     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1146     $nspots = 1;
1147   };
1148   union(){
1149     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1150     $nspots = 2;
1151   };
1152   union(){
1153     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1154     $nspots = 3;
1155   };
1156   union(){
1157     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1158     $nspots = 4;
1159   };
1160 }
1161 module All_Purple(){ ////toplevel
1162 // All  Purple      total=23  rowsz=5  nrows=5
1163   union(){
1164     Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
1165     $nspots = 0;
1166   };
1167   union(){
1168     Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
1169     $nspots = 1;
1170     translate(token_pitch * [  -2.0,  -2.0 ]) Token_L();
1171     translate(token_pitch * [  -2.0,  -1.0 ]) Token_L();
1172     translate(token_pitch * [  -2.0,   0.0 ]) Token_L();
1173     translate(token_pitch * [  -2.0,   1.0 ]) Token_L();
1174     translate(token_pitch * [  -2.0,   2.0 ]) Token_L();
1175     translate(token_pitch * [  -1.0,  -2.0 ]) Token_L();
1176     translate(token_pitch * [  -1.0,  -1.0 ]) Token_L();
1177     translate(token_pitch * [  -1.0,   0.0 ]) Token_L();
1178     translate(token_pitch * [  -1.0,   1.0 ]) Token_L();
1179     translate(token_pitch * [  -1.0,   2.0 ]) Token_L();
1180     translate(token_pitch * [   0.0,  -2.0 ]) Token_L();
1181     translate(token_pitch * [   0.0,  -1.0 ]) Token_L();
1182     translate(token_pitch * [   0.0,   0.0 ]) Token_L();
1183     translate(token_pitch * [   0.0,   1.0 ]) Token_L();
1184     translate(token_pitch * [   0.0,   2.0 ]) Token_L();
1185     translate(token_pitch * [   1.0,  -2.0 ]) Token_L();
1186     translate(token_pitch * [   1.0,  -1.0 ]) Token_L();
1187     translate(token_pitch * [   1.0,   0.0 ]) Token_L();
1188     translate(token_pitch * [   1.0,   1.0 ]) Token_L();
1189     translate(token_pitch * [   1.0,   2.0 ]) Token_L();
1190     translate(token_pitch * [   2.0,  -2.0 ]) Token_L();
1191     translate(token_pitch * [   2.0,  -1.0 ]) Token_L();
1192     translate(token_pitch * [   2.0,   0.0 ]) Token_L();
1193   };
1194   union(){
1195     Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
1196     $nspots = 2;
1197   };
1198   union(){
1199     Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
1200     $nspots = 3;
1201   };
1202   union(){
1203     Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
1204     $nspots = 4;
1205   };
1206 }
1207 module All_Red(){ ////toplevel
1208 // All  Red         total=46  rowsz=7  nrows=7
1209   union(){
1210     Frame($phase, token_pitch * [ 7 + 1.00, 7 + 0.50 ]);
1211     $nspots = 0;
1212   };
1213   union(){
1214     Frame($phase, token_pitch * [ 7 + 1.00, 7 + 0.50 ]);
1215     $nspots = 1;
1216     translate(token_pitch * [  -3.0,  -3.0 ]) Token_L();
1217     translate(token_pitch * [  -3.0,  -2.0 ]) Token_L();
1218     translate(token_pitch * [  -3.0,  -1.0 ]) Token_L();
1219     translate(token_pitch * [  -3.0,   0.0 ]) Token_L();
1220     translate(token_pitch * [  -3.0,   1.0 ]) Token_L();
1221     translate(token_pitch * [  -3.0,   2.0 ]) Token_L();
1222     translate(token_pitch * [  -3.0,   3.0 ]) Token_L();
1223     translate(token_pitch * [  -2.0,  -3.0 ]) Token_L();
1224     translate(token_pitch * [  -2.0,  -2.0 ]) Token_L();
1225     translate(token_pitch * [  -2.0,  -1.0 ]) Token_L();
1226     translate(token_pitch * [  -2.0,   0.0 ]) Token_L();
1227     translate(token_pitch * [  -2.0,   1.0 ]) Token_L();
1228     translate(token_pitch * [  -2.0,   2.0 ]) Token_L();
1229     translate(token_pitch * [  -2.0,   3.0 ]) Token_L();
1230     translate(token_pitch * [  -1.0,  -3.0 ]) Token_L();
1231     translate(token_pitch * [  -1.0,  -2.0 ]) Token_L();
1232     translate(token_pitch * [  -1.0,  -1.0 ]) Token_L();
1233     translate(token_pitch * [  -1.0,   0.0 ]) Token_L();
1234   };
1235   union(){
1236     Frame($phase, token_pitch * [ 7 + 1.00, 7 + 0.50 ]);
1237     $nspots = 2;
1238     translate(token_pitch * [  -1.0,   1.0 ]) Token_L();
1239     translate(token_pitch * [  -1.0,   2.0 ]) Token_L();
1240     translate(token_pitch * [  -1.0,   3.0 ]) Token_L();
1241     translate(token_pitch * [   0.0,  -3.0 ]) Token_L();
1242     translate(token_pitch * [   0.0,  -2.0 ]) Token_L();
1243     translate(token_pitch * [   0.0,  -1.0 ]) Token_L();
1244     translate(token_pitch * [   0.0,   0.0 ]) Token_L();
1245     translate(token_pitch * [   0.0,   1.0 ]) Token_L();
1246     translate(token_pitch * [   0.0,   2.0 ]) Token_L();
1247     translate(token_pitch * [   0.0,   3.0 ]) Token_L();
1248     translate(token_pitch * [   1.0,  -3.0 ]) Token_L();
1249     translate(token_pitch * [   1.0,  -2.0 ]) Token_L();
1250     translate(token_pitch * [   1.0,  -1.0 ]) Token_L();
1251   };
1252   union(){
1253     Frame($phase, token_pitch * [ 7 + 1.00, 7 + 0.50 ]);
1254     $nspots = 3;
1255   };
1256   union(){
1257     Frame($phase, token_pitch * [ 7 + 1.00, 7 + 0.50 ]);
1258     $nspots = 4;
1259     translate(token_pitch * [   1.0,   0.0 ]) Token_L();
1260     translate(token_pitch * [   1.0,   1.0 ]) Token_L();
1261     translate(token_pitch * [   1.0,   2.0 ]) Token_L();
1262     translate(token_pitch * [   1.0,   3.0 ]) Token_L();
1263     translate(token_pitch * [   2.0,  -3.0 ]) Token_L();
1264     translate(token_pitch * [   2.0,  -2.0 ]) Token_L();
1265     translate(token_pitch * [   2.0,  -1.0 ]) Token_L();
1266     translate(token_pitch * [   2.0,   0.0 ]) Token_L();
1267     translate(token_pitch * [   2.0,   1.0 ]) Token_L();
1268     translate(token_pitch * [   2.0,   2.0 ]) Token_L();
1269     translate(token_pitch * [   2.0,   3.0 ]) Token_L();
1270     translate(token_pitch * [   3.0,  -3.0 ]) Token_L();
1271     translate(token_pitch * [   3.0,  -2.0 ]) Token_L();
1272     translate(token_pitch * [   3.0,  -1.0 ]) Token_L();
1273     translate(token_pitch * [   3.0,   0.0 ]) Token_L();
1274   };
1275 }
1276 module All_White(){ ////toplevel
1277 // All  White       total=46  rowsz=7  nrows=7
1278   union(){
1279     Frame($phase, token_pitch * [ 7 + 1.00, 7 + 0.50 ]);
1280     $nspots = 0;
1281   };
1282   union(){
1283     Frame($phase, token_pitch * [ 7 + 1.00, 7 + 0.50 ]);
1284     $nspots = 1;
1285     translate(token_pitch * [  -3.0,  -3.0 ]) Token_L();
1286     translate(token_pitch * [  -3.0,  -2.0 ]) Token_L();
1287     translate(token_pitch * [  -3.0,  -1.0 ]) Token_L();
1288     translate(token_pitch * [  -3.0,   0.0 ]) Token_L();
1289     translate(token_pitch * [  -3.0,   1.0 ]) Token_L();
1290     translate(token_pitch * [  -3.0,   2.0 ]) Token_L();
1291     translate(token_pitch * [  -3.0,   3.0 ]) Token_L();
1292     translate(token_pitch * [  -2.0,  -3.0 ]) Token_L();
1293     translate(token_pitch * [  -2.0,  -2.0 ]) Token_L();
1294     translate(token_pitch * [  -2.0,  -1.0 ]) Token_L();
1295     translate(token_pitch * [  -2.0,   0.0 ]) Token_L();
1296     translate(token_pitch * [  -2.0,   1.0 ]) Token_L();
1297     translate(token_pitch * [  -2.0,   2.0 ]) Token_L();
1298     translate(token_pitch * [  -2.0,   3.0 ]) Token_L();
1299     translate(token_pitch * [  -1.0,  -3.0 ]) Token_L();
1300     translate(token_pitch * [  -1.0,  -2.0 ]) Token_L();
1301     translate(token_pitch * [  -1.0,  -1.0 ]) Token_L();
1302     translate(token_pitch * [  -1.0,   0.0 ]) Token_L();
1303     translate(token_pitch * [  -1.0,   1.0 ]) Token_L();
1304     translate(token_pitch * [  -1.0,   2.0 ]) Token_L();
1305     translate(token_pitch * [  -1.0,   3.0 ]) Token_L();
1306     translate(token_pitch * [   0.0,  -3.0 ]) Token_L();
1307     translate(token_pitch * [   0.0,  -2.0 ]) Token_L();
1308     translate(token_pitch * [   0.0,  -1.0 ]) Token_L();
1309     translate(token_pitch * [   0.0,   0.0 ]) Token_L();
1310     translate(token_pitch * [   0.0,   1.0 ]) Token_L();
1311     translate(token_pitch * [   0.0,   2.0 ]) Token_L();
1312   };
1313   union(){
1314     Frame($phase, token_pitch * [ 7 + 1.00, 7 + 0.50 ]);
1315     $nspots = 2;
1316     translate(token_pitch * [   0.0,   3.0 ]) Token_L();
1317     translate(token_pitch * [   1.0,  -3.0 ]) Token_L();
1318     translate(token_pitch * [   1.0,  -2.0 ]) Token_L();
1319     translate(token_pitch * [   1.0,  -1.0 ]) Token_L();
1320     translate(token_pitch * [   1.0,   0.0 ]) Token_L();
1321     translate(token_pitch * [   1.0,   1.0 ]) Token_L();
1322     translate(token_pitch * [   1.0,   2.0 ]) Token_L();
1323     translate(token_pitch * [   1.0,   3.0 ]) Token_L();
1324     translate(token_pitch * [   2.0,  -3.0 ]) Token_L();
1325     translate(token_pitch * [   2.0,  -2.0 ]) Token_L();
1326     translate(token_pitch * [   2.0,  -1.0 ]) Token_L();
1327     translate(token_pitch * [   2.0,   0.0 ]) Token_L();
1328   };
1329   union(){
1330     Frame($phase, token_pitch * [ 7 + 1.00, 7 + 0.50 ]);
1331     $nspots = 3;
1332     translate(token_pitch * [   2.0,   1.0 ]) Token_L();
1333     translate(token_pitch * [   2.0,   2.0 ]) Token_L();
1334     translate(token_pitch * [   2.0,   3.0 ]) Token_L();
1335     translate(token_pitch * [   3.0,  -3.0 ]) Token_L();
1336     translate(token_pitch * [   3.0,  -2.0 ]) Token_L();
1337     translate(token_pitch * [   3.0,  -1.0 ]) Token_L();
1338     translate(token_pitch * [   3.0,   0.0 ]) Token_L();
1339   };
1340   union(){
1341     Frame($phase, token_pitch * [ 7 + 1.00, 7 + 0.50 ]);
1342     $nspots = 4;
1343   };
1344 }
1345 module All_WhiteSpare(){ ////toplevel
1346 // All  WhiteSpare  total= 3  rowsz=2  nrows=2
1347   union(){
1348     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
1349     $nspots = 0;
1350   };
1351   union(){
1352     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
1353     $nspots = 1;
1354     translate(token_pitch * [  -0.5,  -0.5 ]) Token_L();
1355   };
1356   union(){
1357     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
1358     $nspots = 2;
1359     translate(token_pitch * [  -0.5,   0.5 ]) Token_L();
1360   };
1361   union(){
1362     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
1363     $nspots = 3;
1364     translate(token_pitch * [   0.5,  -0.5 ]) Token_L();
1365   };
1366   union(){
1367     Frame($phase, token_pitch * [ 2 + 1.00, 2 + 0.50 ]);
1368     $nspots = 4;
1369   };
1370 }
1371 module All_Yellow(){ ////toplevel
1372 // All  Yellow      total=45  rowsz=7  nrows=7
1373   union(){
1374     Frame($phase, token_pitch * [ 7 + 1.00, 7 + 0.50 ]);
1375     $nspots = 0;
1376   };
1377   union(){
1378     Frame($phase, token_pitch * [ 7 + 1.00, 7 + 0.50 ]);
1379     $nspots = 1;
1380     translate(token_pitch * [  -3.0,  -3.0 ]) Token_L();
1381     translate(token_pitch * [  -3.0,  -2.0 ]) Token_L();
1382     translate(token_pitch * [  -3.0,  -1.0 ]) Token_L();
1383     translate(token_pitch * [  -3.0,   0.0 ]) Token_L();
1384     translate(token_pitch * [  -3.0,   1.0 ]) Token_L();
1385     translate(token_pitch * [  -3.0,   2.0 ]) Token_L();
1386     translate(token_pitch * [  -3.0,   3.0 ]) Token_L();
1387     translate(token_pitch * [  -2.0,  -3.0 ]) Token_L();
1388     translate(token_pitch * [  -2.0,  -2.0 ]) Token_L();
1389     translate(token_pitch * [  -2.0,  -1.0 ]) Token_L();
1390     translate(token_pitch * [  -2.0,   0.0 ]) Token_L();
1391     translate(token_pitch * [  -2.0,   1.0 ]) Token_L();
1392     translate(token_pitch * [  -2.0,   2.0 ]) Token_L();
1393     translate(token_pitch * [  -2.0,   3.0 ]) Token_L();
1394     translate(token_pitch * [  -1.0,  -3.0 ]) Token_L();
1395     translate(token_pitch * [  -1.0,  -2.0 ]) Token_L();
1396     translate(token_pitch * [  -1.0,  -1.0 ]) Token_L();
1397     translate(token_pitch * [  -1.0,   0.0 ]) Token_L();
1398     translate(token_pitch * [  -1.0,   1.0 ]) Token_L();
1399   };
1400   union(){
1401     Frame($phase, token_pitch * [ 7 + 1.00, 7 + 0.50 ]);
1402     $nspots = 2;
1403     translate(token_pitch * [  -1.0,   2.0 ]) Token_L();
1404     translate(token_pitch * [  -1.0,   3.0 ]) Token_L();
1405     translate(token_pitch * [   0.0,  -3.0 ]) Token_L();
1406     translate(token_pitch * [   0.0,  -2.0 ]) Token_L();
1407     translate(token_pitch * [   0.0,  -1.0 ]) Token_L();
1408     translate(token_pitch * [   0.0,   0.0 ]) Token_L();
1409     translate(token_pitch * [   0.0,   1.0 ]) Token_L();
1410     translate(token_pitch * [   0.0,   2.0 ]) Token_L();
1411     translate(token_pitch * [   0.0,   3.0 ]) Token_L();
1412     translate(token_pitch * [   1.0,  -3.0 ]) Token_L();
1413     translate(token_pitch * [   1.0,  -2.0 ]) Token_L();
1414   };
1415   union(){
1416     Frame($phase, token_pitch * [ 7 + 1.00, 7 + 0.50 ]);
1417     $nspots = 3;
1418   };
1419   union(){
1420     Frame($phase, token_pitch * [ 7 + 1.00, 7 + 0.50 ]);
1421     $nspots = 4;
1422     translate(token_pitch * [   1.0,  -1.0 ]) Token_L();
1423     translate(token_pitch * [   1.0,   0.0 ]) Token_L();
1424     translate(token_pitch * [   1.0,   1.0 ]) Token_L();
1425     translate(token_pitch * [   1.0,   2.0 ]) Token_L();
1426     translate(token_pitch * [   1.0,   3.0 ]) Token_L();
1427     translate(token_pitch * [   2.0,  -3.0 ]) Token_L();
1428     translate(token_pitch * [   2.0,  -2.0 ]) Token_L();
1429     translate(token_pitch * [   2.0,  -1.0 ]) Token_L();
1430     translate(token_pitch * [   2.0,   0.0 ]) Token_L();
1431     translate(token_pitch * [   2.0,   1.0 ]) Token_L();
1432     translate(token_pitch * [   2.0,   2.0 ]) Token_L();
1433     translate(token_pitch * [   2.0,   3.0 ]) Token_L();
1434     translate(token_pitch * [   3.0,  -3.0 ]) Token_L();
1435     translate(token_pitch * [   3.0,  -2.0 ]) Token_L();
1436     translate(token_pitch * [   3.0,  -1.0 ]) Token_L();
1437   };
1438 }
1439 // All  total_count=376   total_real_count=353
1440 // All  max_rowsz=8       max_nrows=8
1441 module Witches_Black(){ ////toplevel
1442 // Witches  Black       total= 8  rowsz=3  nrows=3
1443   union(){
1444     Frame($phase, token_pitch * [ 3 + 1.00, 3 + 0.50 ]);
1445     $nspots = 0;
1446   };
1447   union(){
1448     Frame($phase, token_pitch * [ 3 + 1.00, 3 + 0.50 ]);
1449     $nspots = 1;
1450     translate(token_pitch * [  -1.0,  -1.0 ]) Token_L();
1451     translate(token_pitch * [  -1.0,   0.0 ]) Token_L();
1452     translate(token_pitch * [  -1.0,   1.0 ]) Token_L();
1453     translate(token_pitch * [   0.0,  -1.0 ]) Token_L();
1454     translate(token_pitch * [   0.0,   0.0 ]) Token_L();
1455     translate(token_pitch * [   0.0,   1.0 ]) Token_L();
1456     translate(token_pitch * [   1.0,  -1.0 ]) Token_L();
1457     translate(token_pitch * [   1.0,   0.0 ]) Token_L();
1458   };
1459   union(){
1460     Frame($phase, token_pitch * [ 3 + 1.00, 3 + 0.50 ]);
1461     $nspots = 2;
1462   };
1463   union(){
1464     Frame($phase, token_pitch * [ 3 + 1.00, 3 + 0.50 ]);
1465     $nspots = 3;
1466   };
1467   union(){
1468     Frame($phase, token_pitch * [ 3 + 1.00, 3 + 0.50 ]);
1469     $nspots = 4;
1470   };
1471 }
1472 module Witches_Blue(){ ////toplevel
1473 // Witches  Blue        total=18  rowsz=5  nrows=4
1474   union(){
1475     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1476     $nspots = 0;
1477   };
1478   union(){
1479     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1480     $nspots = 1;
1481     translate(token_pitch * [  -2.0,  -1.5 ]) Token_L();
1482     translate(token_pitch * [  -2.0,  -0.5 ]) Token_L();
1483     translate(token_pitch * [  -2.0,   0.5 ]) Token_L();
1484     translate(token_pitch * [  -2.0,   1.5 ]) Token_L();
1485     translate(token_pitch * [  -1.0,  -1.5 ]) Token_L();
1486     translate(token_pitch * [  -1.0,  -0.5 ]) Token_L();
1487     translate(token_pitch * [  -1.0,   0.5 ]) Token_L();
1488     translate(token_pitch * [  -1.0,   1.5 ]) Token_L();
1489   };
1490   union(){
1491     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1492     $nspots = 2;
1493     translate(token_pitch * [   0.0,  -1.5 ]) Token_L();
1494     translate(token_pitch * [   0.0,  -0.5 ]) Token_L();
1495     translate(token_pitch * [   0.0,   0.5 ]) Token_L();
1496     translate(token_pitch * [   0.0,   1.5 ]) Token_L();
1497     translate(token_pitch * [   1.0,  -1.5 ]) Token_L();
1498   };
1499   union(){
1500     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1501     $nspots = 3;
1502   };
1503   union(){
1504     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1505     $nspots = 4;
1506     translate(token_pitch * [   1.0,  -0.5 ]) Token_L();
1507     translate(token_pitch * [   1.0,   0.5 ]) Token_L();
1508     translate(token_pitch * [   1.0,   1.5 ]) Token_L();
1509     translate(token_pitch * [   2.0,  -1.5 ]) Token_L();
1510     translate(token_pitch * [   2.0,  -0.5 ]) Token_L();
1511   };
1512 }
1513 module Witches_Green(){ ////toplevel
1514 // Witches  Green       total=20  rowsz=5  nrows=4
1515   union(){
1516     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1517     $nspots = 0;
1518   };
1519   union(){
1520     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1521     $nspots = 1;
1522     translate(token_pitch * [  -2.0,  -1.5 ]) Token_L();
1523     translate(token_pitch * [  -2.0,  -0.5 ]) Token_L();
1524     translate(token_pitch * [  -2.0,   0.5 ]) Token_L();
1525     translate(token_pitch * [  -2.0,   1.5 ]) Token_L();
1526     translate(token_pitch * [  -1.0,  -1.5 ]) Token_L();
1527     translate(token_pitch * [  -1.0,  -0.5 ]) Token_L();
1528     translate(token_pitch * [  -1.0,   0.5 ]) Token_L();
1529     translate(token_pitch * [  -1.0,   1.5 ]) Token_L();
1530     translate(token_pitch * [   0.0,  -1.5 ]) Token_L();
1531     translate(token_pitch * [   0.0,  -0.5 ]) Token_L();
1532   };
1533   union(){
1534     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1535     $nspots = 2;
1536     translate(token_pitch * [   0.0,   0.5 ]) Token_L();
1537     translate(token_pitch * [   0.0,   1.5 ]) Token_L();
1538     translate(token_pitch * [   1.0,  -1.5 ]) Token_L();
1539     translate(token_pitch * [   1.0,  -0.5 ]) Token_L();
1540     translate(token_pitch * [   1.0,   0.5 ]) Token_L();
1541   };
1542   union(){
1543     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1544     $nspots = 3;
1545   };
1546   union(){
1547     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1548     $nspots = 4;
1549     translate(token_pitch * [   1.0,   1.5 ]) Token_L();
1550     translate(token_pitch * [   2.0,  -1.5 ]) Token_L();
1551     translate(token_pitch * [   2.0,  -0.5 ]) Token_L();
1552     translate(token_pitch * [   2.0,   0.5 ]) Token_L();
1553     translate(token_pitch * [   2.0,   1.5 ]) Token_L();
1554   };
1555 }
1556 module Witches_Loco(){ ////toplevel
1557 // Witches  Loco        total=25  rowsz=5  nrows=5
1558   union(){
1559     Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
1560     $nspots = 0;
1561     translate(token_pitch * [  -2.0,  -2.0 ]) Token_L();
1562     translate(token_pitch * [  -2.0,  -1.0 ]) Token_L();
1563     translate(token_pitch * [  -2.0,   0.0 ]) Token_L();
1564     translate(token_pitch * [  -2.0,   1.0 ]) Token_L();
1565     translate(token_pitch * [  -2.0,   2.0 ]) Token_L();
1566     translate(token_pitch * [  -1.0,  -2.0 ]) Token_L();
1567     translate(token_pitch * [  -1.0,  -1.0 ]) Token_L();
1568     translate(token_pitch * [  -1.0,   0.0 ]) Token_L();
1569     translate(token_pitch * [  -1.0,   1.0 ]) Token_L();
1570     translate(token_pitch * [  -1.0,   2.0 ]) Token_L();
1571     translate(token_pitch * [   0.0,  -2.0 ]) Token_L();
1572     translate(token_pitch * [   0.0,  -1.0 ]) Token_L();
1573     translate(token_pitch * [   0.0,   0.0 ]) Token_L();
1574     translate(token_pitch * [   0.0,   1.0 ]) Token_L();
1575     translate(token_pitch * [   0.0,   2.0 ]) Token_L();
1576     translate(token_pitch * [   1.0,  -2.0 ]) Token_L();
1577     translate(token_pitch * [   1.0,  -1.0 ]) Token_L();
1578     translate(token_pitch * [   1.0,   0.0 ]) Token_L();
1579     translate(token_pitch * [   1.0,   1.0 ]) Token_L();
1580     translate(token_pitch * [   1.0,   2.0 ]) Token_L();
1581     translate(token_pitch * [   2.0,  -2.0 ]) Token_L();
1582     translate(token_pitch * [   2.0,  -1.0 ]) Token_L();
1583     translate(token_pitch * [   2.0,   0.0 ]) Token_L();
1584     translate(token_pitch * [   2.0,   1.0 ]) Token_L();
1585     translate(token_pitch * [   2.0,   2.0 ]) Token_L();
1586   };
1587   union(){
1588     Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
1589     $nspots = 1;
1590   };
1591   union(){
1592     Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
1593     $nspots = 2;
1594   };
1595   union(){
1596     Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
1597     $nspots = 3;
1598   };
1599   union(){
1600     Frame($phase, token_pitch * [ 5 + 1.00, 5 + 0.50 ]);
1601     $nspots = 4;
1602   };
1603 }
1604 module Witches_Orange(){ ////toplevel
1605 // Witches  Orange      total=12  rowsz=4  nrows=3
1606   union(){
1607     Frame($phase, token_pitch * [ 4 + 1.00, 3 + 0.50 ]);
1608     $nspots = 0;
1609   };
1610   union(){
1611     Frame($phase, token_pitch * [ 4 + 1.00, 3 + 0.50 ]);
1612     $nspots = 1;
1613     translate(token_pitch * [  -1.5,  -1.0 ]) Token_L();
1614     translate(token_pitch * [  -1.5,   0.0 ]) Token_L();
1615     translate(token_pitch * [  -1.5,   1.0 ]) Token_L();
1616     translate(token_pitch * [  -0.5,  -1.0 ]) Token_L();
1617     translate(token_pitch * [  -0.5,   0.0 ]) Token_L();
1618     translate(token_pitch * [  -0.5,   1.0 ]) Token_L();
1619     translate(token_pitch * [   0.5,  -1.0 ]) Token_L();
1620     translate(token_pitch * [   0.5,   0.0 ]) Token_L();
1621     translate(token_pitch * [   0.5,   1.0 ]) Token_L();
1622     translate(token_pitch * [   1.5,  -1.0 ]) Token_L();
1623     translate(token_pitch * [   1.5,   0.0 ]) Token_L();
1624     translate(token_pitch * [   1.5,   1.0 ]) Token_L();
1625   };
1626   union(){
1627     Frame($phase, token_pitch * [ 4 + 1.00, 3 + 0.50 ]);
1628     $nspots = 2;
1629   };
1630   union(){
1631     Frame($phase, token_pitch * [ 4 + 1.00, 3 + 0.50 ]);
1632     $nspots = 3;
1633   };
1634   union(){
1635     Frame($phase, token_pitch * [ 4 + 1.00, 3 + 0.50 ]);
1636     $nspots = 4;
1637   };
1638 }
1639 module Witches_Orange6(){ ////toplevel
1640 // Witches  Orange6     total=20  rowsz=5  nrows=4
1641   union(){
1642     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1643     $nspots = 0;
1644     translate(token_pitch * [  -2.0,  -1.5 ]) Token_L();
1645     translate(token_pitch * [  -2.0,  -0.5 ]) Token_L();
1646     translate(token_pitch * [  -2.0,   0.5 ]) Token_L();
1647     translate(token_pitch * [  -2.0,   1.5 ]) Token_L();
1648     translate(token_pitch * [  -1.0,  -1.5 ]) Token_L();
1649     translate(token_pitch * [  -1.0,  -0.5 ]) Token_L();
1650     translate(token_pitch * [  -1.0,   0.5 ]) Token_L();
1651     translate(token_pitch * [  -1.0,   1.5 ]) Token_L();
1652     translate(token_pitch * [   0.0,  -1.5 ]) Token_L();
1653     translate(token_pitch * [   0.0,  -0.5 ]) Token_L();
1654     translate(token_pitch * [   0.0,   0.5 ]) Token_L();
1655     translate(token_pitch * [   0.0,   1.5 ]) Token_L();
1656     translate(token_pitch * [   1.0,  -1.5 ]) Token_L();
1657     translate(token_pitch * [   1.0,  -0.5 ]) Token_L();
1658     translate(token_pitch * [   1.0,   0.5 ]) Token_L();
1659     translate(token_pitch * [   1.0,   1.5 ]) Token_L();
1660     translate(token_pitch * [   2.0,  -1.5 ]) Token_L();
1661     translate(token_pitch * [   2.0,  -0.5 ]) Token_L();
1662     translate(token_pitch * [   2.0,   0.5 ]) Token_L();
1663     translate(token_pitch * [   2.0,   1.5 ]) Token_L();
1664   };
1665   union(){
1666     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1667     $nspots = 1;
1668   };
1669   union(){
1670     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1671     $nspots = 2;
1672   };
1673   union(){
1674     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1675     $nspots = 3;
1676   };
1677   union(){
1678     Frame($phase, token_pitch * [ 5 + 1.00, 4 + 0.50 ]);
1679     $nspots = 4;
1680   };
1681 }
1682 module Witches_Purple(){ ////toplevel
1683 // Witches  Purple      total= 8  rowsz=3  nrows=3
1684   union(){
1685     Frame($phase, token_pitch * [ 3 + 1.00, 3 + 0.50 ]);
1686     $nspots = 0;
1687   };
1688   union(){
1689     Frame($phase, token_pitch * [ 3 + 1.00, 3 + 0.50 ]);
1690     $nspots = 1;
1691     translate(token_pitch * [  -1.0,  -1.0 ]) Token_L();
1692     translate(token_pitch * [  -1.0,   0.0 ]) Token_L();
1693     translate(token_pitch * [  -1.0,   1.0 ]) Token_L();
1694     translate(token_pitch * [   0.0,  -1.0 ]) Token_L();
1695     translate(token_pitch * [   0.0,   0.0 ]) Token_L();
1696     translate(token_pitch * [   0.0,   1.0 ]) Token_L();
1697     translate(token_pitch * [   1.0,  -1.0 ]) Token_L();
1698     translate(token_pitch * [   1.0,   0.0 ]) Token_L();
1699   };
1700   union(){
1701     Frame($phase, token_pitch * [ 3 + 1.00, 3 + 0.50 ]);
1702     $nspots = 2;
1703   };
1704   union(){
1705     Frame($phase, token_pitch * [ 3 + 1.00, 3 + 0.50 ]);
1706     $nspots = 3;
1707   };
1708   union(){
1709     Frame($phase, token_pitch * [ 3 + 1.00, 3 + 0.50 ]);
1710     $nspots = 4;
1711   };
1712 }
1713 module Witches_Red(){ ////toplevel
1714 // Witches  Red         total=16  rowsz=4  nrows=4
1715   union(){
1716     Frame($phase, token_pitch * [ 4 + 1.00, 4 + 0.50 ]);
1717     $nspots = 0;
1718   };
1719   union(){
1720     Frame($phase, token_pitch * [ 4 + 1.00, 4 + 0.50 ]);
1721     $nspots = 1;
1722     translate(token_pitch * [  -1.5,  -1.5 ]) Token_L();
1723     translate(token_pitch * [  -1.5,  -0.5 ]) Token_L();
1724     translate(token_pitch * [  -1.5,   0.5 ]) Token_L();
1725     translate(token_pitch * [  -1.5,   1.5 ]) Token_L();
1726     translate(token_pitch * [  -0.5,  -1.5 ]) Token_L();
1727     translate(token_pitch * [  -0.5,  -0.5 ]) Token_L();
1728   };
1729   union(){
1730     Frame($phase, token_pitch * [ 4 + 1.00, 4 + 0.50 ]);
1731     $nspots = 2;
1732     translate(token_pitch * [  -0.5,   0.5 ]) Token_L();
1733     translate(token_pitch * [  -0.5,   1.5 ]) Token_L();
1734     translate(token_pitch * [   0.5,  -1.5 ]) Token_L();
1735     translate(token_pitch * [   0.5,  -0.5 ]) Token_L();
1736     translate(token_pitch * [   0.5,   0.5 ]) Token_L();
1737   };
1738   union(){
1739     Frame($phase, token_pitch * [ 4 + 1.00, 4 + 0.50 ]);
1740     $nspots = 3;
1741   };
1742   union(){
1743     Frame($phase, token_pitch * [ 4 + 1.00, 4 + 0.50 ]);
1744     $nspots = 4;
1745     translate(token_pitch * [   0.5,   1.5 ]) Token_L();
1746     translate(token_pitch * [   1.5,  -1.5 ]) Token_L();
1747     translate(token_pitch * [   1.5,  -0.5 ]) Token_L();
1748     translate(token_pitch * [   1.5,   0.5 ]) Token_L();
1749     translate(token_pitch * [   1.5,   1.5 ]) Token_L();
1750   };
1751 }
1752 module Witches_White(){ ////toplevel
1753 // Witches  White       total=11  rowsz=4  nrows=3
1754   union(){
1755     Frame($phase, token_pitch * [ 4 + 1.00, 3 + 0.50 ]);
1756     $nspots = 0;
1757   };
1758   union(){
1759     Frame($phase, token_pitch * [ 4 + 1.00, 3 + 0.50 ]);
1760     $nspots = 1;
1761     translate(token_pitch * [  -1.5,  -1.0 ]) Token_L();
1762     translate(token_pitch * [  -1.5,   0.0 ]) Token_L();
1763     translate(token_pitch * [  -1.5,   1.0 ]) Token_L();
1764     translate(token_pitch * [  -0.5,  -1.0 ]) Token_L();
1765     translate(token_pitch * [  -0.5,   0.0 ]) Token_L();
1766     translate(token_pitch * [  -0.5,   1.0 ]) Token_L();
1767   };
1768   union(){
1769     Frame($phase, token_pitch * [ 4 + 1.00, 3 + 0.50 ]);
1770     $nspots = 2;
1771     translate(token_pitch * [   0.5,  -1.0 ]) Token_L();
1772     translate(token_pitch * [   0.5,   0.0 ]) Token_L();
1773     translate(token_pitch * [   0.5,   1.0 ]) Token_L();
1774   };
1775   union(){
1776     Frame($phase, token_pitch * [ 4 + 1.00, 3 + 0.50 ]);
1777     $nspots = 3;
1778     translate(token_pitch * [   1.5,  -1.0 ]) Token_L();
1779     translate(token_pitch * [   1.5,   0.0 ]) Token_L();
1780   };
1781   union(){
1782     Frame($phase, token_pitch * [ 4 + 1.00, 3 + 0.50 ]);
1783     $nspots = 4;
1784   };
1785 }
1786 module Witches_Yellow(){ ////toplevel
1787 // Witches  Yellow      total=16  rowsz=4  nrows=4
1788   union(){
1789     Frame($phase, token_pitch * [ 4 + 1.00, 4 + 0.50 ]);
1790     $nspots = 0;
1791   };
1792   union(){
1793     Frame($phase, token_pitch * [ 4 + 1.00, 4 + 0.50 ]);
1794     $nspots = 1;
1795     translate(token_pitch * [  -1.5,  -1.5 ]) Token_L();
1796     translate(token_pitch * [  -1.5,  -0.5 ]) Token_L();
1797     translate(token_pitch * [  -1.5,   0.5 ]) Token_L();
1798     translate(token_pitch * [  -1.5,   1.5 ]) Token_L();
1799     translate(token_pitch * [  -0.5,  -1.5 ]) Token_L();
1800     translate(token_pitch * [  -0.5,  -0.5 ]) Token_L();
1801   };
1802   union(){
1803     Frame($phase, token_pitch * [ 4 + 1.00, 4 + 0.50 ]);
1804     $nspots = 2;
1805     translate(token_pitch * [  -0.5,   0.5 ]) Token_L();
1806     translate(token_pitch * [  -0.5,   1.5 ]) Token_L();
1807     translate(token_pitch * [   0.5,  -1.5 ]) Token_L();
1808     translate(token_pitch * [   0.5,  -0.5 ]) Token_L();
1809     translate(token_pitch * [   0.5,   0.5 ]) Token_L();
1810   };
1811   union(){
1812     Frame($phase, token_pitch * [ 4 + 1.00, 4 + 0.50 ]);
1813     $nspots = 3;
1814   };
1815   union(){
1816     Frame($phase, token_pitch * [ 4 + 1.00, 4 + 0.50 ]);
1817     $nspots = 4;
1818     translate(token_pitch * [   0.5,   1.5 ]) Token_L();
1819     translate(token_pitch * [   1.5,  -1.5 ]) Token_L();
1820     translate(token_pitch * [   1.5,  -0.5 ]) Token_L();
1821     translate(token_pitch * [   1.5,   0.5 ]) Token_L();
1822     translate(token_pitch * [   1.5,   1.5 ]) Token_L();
1823   };
1824 }
1825 // Witches  total_count=154   total_real_count=134
1826 // Witches  max_rowsz=5       max_nrows=5