%%HP: T(1)A(D)F(,); -32 31 FOR i -65 65 FOR j 0 j 30 / i NEG 30 / RC WHILE DUP DUP DUP DUP RE 2 < SWAP IM 2 < AND SWAP RE -2 > AND SWAP IM -2 > AND 3 PICK 6 PICK < AND REPEAT 2 ^ 3 PICK + SWAP 1 + SWAP END DROP j 10 / i NEG 10 / RC IF SWAP 4 PICK == THEN PIXON ELSE PIXOFF { # 0d # 0d } PVIEW END 1 STEP 1 STEP