%%HP: T(3)A(R)F(.);
@ by Eric Hall
DIR
  G3D
    \<< 30 80 10 10 30 0 0 0 \-> v1 v2 v3 v4 v5 p1 p2 H
      \<< RAD PICT PURGE { # 0h # 0h } PVIEW 0 v1
        FOR Y 0 v2
          FOR X Y v1 / 2 * \pi \->NUM * \pi 2 / \->NUM - SIN 1 + X v2 / 2 *
            \pi \->NUM * \pi 2 / \->NUM - SIN 1 + * v3 * IP X Y + v4 +
            'p1' STO Y v5 + 'p2' STO 1 SWAP DUP 'H' STO
            FOR Q p1 # 1h * p2 Q - # 1h * 2 \->LIST PIXOFF
            NEXT X 2 / DUP IP
            IF ==
            THEN p1 # 1h * p2 H 1 + - # 1h * 2 \->LIST PIXON
            END
          NEXT
        NEXT
      \>>
    \>>
  GRPH
GROB 131 64 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E700000000000000000000000000000008B830000000000000000000000000000006055000000000000000000000000000000940C00000000000000000000000000000831A2300000000000000000000000000004080800000000000000000000000000000E4200E0000000000000000000000000000100010000000000000000000000000000819054910000000000000000000000000042040042000000000000000000000000002420000600000000000000000000000000F0018A09000000000000000000000000080800202800000000000000000000000008014800841000000000000000000000000430020002200000000000000000000000020210040030000000000000000000000003408041584000000000000000000000008D84001001C000000000000000000000004000240004200000000000000000000000E0100000000100000000000000000000002329010A20930000000000000000000008100000808000000000000000000000000C340040200244000000000000000000000648420800080E000000000000000000000180001200002100000000000000455555DF019000001008500000000000008AAAAA60120480054184A00000000000000555DFF0200020400402410000000000000AAAEF03442100100010F200000000000004557F148008040000488500000000000008AA9168084001000001CA000000000000005566811102400AA2042510000000000000AA9812200000A008200A2000000000000045232402901800008097500000000000008A44404000020000020CA00000000000000598888424800000084E510000000000000A231110010005551001B2000000000000045422090020400040287500000000000008A84420480010000184EA00000000000000519042000500000410E510000000000000A229001240000000429B2000000000000045029480008AAAA008C7500000000000008A40002010200002012CA0000000000000059421040A000008240F510000000000000A29480180000000809CB200000000000004521240200455500A427500000000000008A4801A005100051029CA000000000000005125800500000041843510000000000000AA482050000000041ACA2000000000000045120500AAAAAA204125500000000000008AA0508A0000008A049AA000000000000005558A2000000000AA45510000000000000AAA20045555555500AAA2000000000000045555510000000055555500000000000008AAAAAAAAAAAAAAAAAAAA000000000000005555555555555555555510000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
END
