%%HP: T(3)A(D)F(.);
@ TRUCHET, by Bill Menees
DIR
  TRUCHET
    \<< MEM DROP PICT RCL SIZE \-> n1 n2 k j
      \<< n1 SIZE B\->R SWAP B\->R \-> h w
        \<< ERASE { # 0h # 0h } PVIEW 0 j 1 - B\->R
          FOR y 0 k 1 - B\->R
            FOR x 0 RDZ RAND 2 RND 100 * 2 MOD
              IF 1 ==
              THEN n1
              ELSE n2
              END PICT x R\->B y R\->B 2 \->LIST ROT REPL w
            STEP h
          STEP
        \>> { } PVIEW n1 n2 DROP2
      \>>
    \>>
  TRCH3
    \<< MEM DROP PICT RCL SIZE \-> n1 n2 n3 k j
      \<< n1 SIZE B\->R SWAP B\->R \-> h w
        \<< ERASE { # 0h # 0h } PVIEW 0 j 1 - B\->R
          FOR y 0 k 1 - B\->R
            FOR x 0 RDZ RAND 3 RND 1000 * 3 MOD PICT x R\->B y R\->B 2 \->LIST
             ROT
              IF DUP 1 ==
              THEN DROP n1
              ELSE IF 2 ==
                THEN n2
                ELSE n3
                END
              END REPL w
            STEP h
          STEP
        \>> { } PVIEW n1 n2 n3 3 \->LIST DROP
      \>>
    \>>
  ELPS1
GROB 11 5 0200810070700C000200
  ELPS2
GROB 11 5 02000C00707081000200
  ELPCROSS
GROB 11 5 02000200FF7002000200
  Z1
GROB 7 13 80402010204080010204020180
  Z2
GROB 7 13 80010204020180402010204080
  Z3
GROB 7 13 808080878080808080F0808080
  Z4
GROB 7 13 808080F0808080808087808080
  S1
GROB 13 11 0F10802050C1600081000F100830006070C180200F10
  S2
GROB 13 11 0F10802070C1006008300F108100600050C180200F10
  DOT1
GROB 11 11 02000700C81040102020306020204010C81007000200
  DOT2
GROB 11 11 02000200020002000500F87005000200020002000200
  CIRC1
GROB 7 7 80804036018080
  CIRC2
GROB 7 7 80800136408080
  CIR3
GROB 13 13 04000400040008000010002070C1800001000200040004000400
  CIR4
GROB 13 13 04000400040002000100800070C1002000100800040004000400
  POP1
GROB 5 12 404040A011111111A0404040
  POP2
GROB 5 12 40A011A0A04040A0A011A040
  WAV1
GROB 15 5 830044003806001100E0
  WAV2
GROB 15 5 00E00011380644008300
  RECT
GROB 4 9 F090909090909090F0
  RECT2
GROB 4 9 006060606060606000
  CHK1
GROB 8 8 F0F0F0F00F0F0F0F
  CHK2
GROB 8 8 0F0F0F0FF0F0F0F0
  DIAM1
GROB 7 7 80412214224180
  DIAM2
GROB 7 7 808080F7808080
  DIAG1
GROB 7 7 80402014020180
  DIAG2
GROB 7 7 80010214204080
  LINE1
GROB 7 7 F70000000000F7
  LINE2
GROB 7 7 14141414141414
  PPAR { (-6.5,-3.1) (6.5,3.2) X 0 (0,0) FUNCTION Y }
END