[net.sources.mac] Munching Squares

per@philabs.UUCP (Paul Rutter) (07/25/85)

*** REPLACE THIS LINE WITH YOUR HEXAGE ***

Here is my "munching squares" demo, a minor graphics amusement from
PDP-1 days.

(This file must be converted with BinHex 4.0)

:"8eeEQ0S!%&38%a0680$!*!)&l#)P`#3"!%!N!-A8J!!&P)!N!0Hrj$`!*!$)!#
3!c!!N!F3!*!$)!!!2c`!!DR`!!!r2!!#UI!!!",F!*!$!D!f@Bm[2%4"9%%r2!!
!UD!QAeQ2,`ZTT5JI1McmE%M&4)8J"G#%SaiS50R&)F`#YL"6)N`J"+!Z,`ZTSdk
Y!#T"l3!U1#MrrLm)UI&CMbmm3dp%46m%UD!JAk"*S"e)E2rk5'crrNkk"L"3Mbm
XrrSr,2rq6VS&DPb26R919[ri5'cqG%kk#aCBMdkk%ABr2!&@2c`#!$mm!"0#CdK
ZrrK1ZK(dh[`!$%+R3QF[22q3"%*R2c`!!8KX!!")E[ri5'cr1%kk%8cHr!!D+8$
r0#mXrc41ZJV@@)m[,2md6VS2JPL26VS(($mm!!K1ZJF%9)p1ZK''3QG1ZJCd9)p
#Cdkk"NT8Mcmm!!a1ZJCb9)p#Cdkk"NK8Mdkk$Qj)E!!'2c`!!8kk$QaFMbP!rc"
)E!!-,bcr-%kk$SK3Md*R,bcr-%kk$L4FMdKX!#3r2!!#6VS13&b2+8$r,%KX!#i
[,2mX6VS1A&#23QF[,2mX6VS0q&b26VS1#%kk$d"#Ccmmrrp1ZJkk@)p1ANje6PB
!!$mZ!!Sr,J!)6VS'FPL2,bi!$%kk"IaBMdjH6R919J!!5'cqE%kk!XjBMcmm!"K
1ZJ@q9)p)E!"82c`!8$mm!)*1Z[qk8)mr2!!-6VS&SP525'`!CMmm!'3r2!#N6VV
rRP#25'`!JMmm!))r2!#U6VVrM&#25'`!S$mm!*)r2!#i6VVrHP#25'`!UMmm!+)
r2!#i6VVrD&#25'`!YMmm!,)r2!#i6VVr9P#25'`!b$mm!-)r2!#i6VVr4&#25'`
!f$mm!1Jr2!#%6VVr-P#25'`!h$mm!2Jr2!#%6VVr)&#25'`!k$mm!3Jr2!#%6VV
r$P#25'`!qMmm!4Jr2!#%6VVqr&#25'`"&Mmm!5`r2!#%6VVqkP#22cb!#8kk"$a
8McmXrbC1ZJ289)p1ANje6PB!!%KXrQa1ZJ'm@)p)E!%U2c`!8$mm!'41Z[kb8)p
)E!&82c`!Acmm!'41Z[kJ8)p)E!'!2c`!PMmm!'41Z[k18)p)E!'Z2c`!T6mm!'4
1Z[jm8)p)E!(32c`!Y$mm!'41Z[jU8)p1ANje6PErj$m(5'lrm$mmrrp1ZJc-A)p
+3'F!!6a1ZJf)2Llrm!a(!!PQ!!!13QG1ZJNS9)pJ!!%F$%F!!@B!!+j)E[rX5'l
rqNkk$@C3M`a!!!&Q!!!B5'lrqNkk$2aBMbm!6VS"&&L2B!!!IJaX!!$r+QB!!(!
q2!#q$%F"2Q`!!'!r2!!b-!G33$m!2c`!+$m(5'lrj%kk$YEHr!!-5'lrj%KZrrT
1ZJlZ8)m-3!!!C`!!+$3m!!m`"j!!I!#q5-#"r!!)P%!`2!!"j@#aE2mQ2bcr*Nk
k!Sa8Me"(B!$rR'!!!!C#E2mUB!!!D!a(!!0Q!!"%)#lrmX#m!*!$IdL!2`"1ZJa
S9)p+J'F!!#)J,[rb`,`!N!0r5)!r!%kk$%j8Mbm!6VS!8PL2B!!!"N*XrbTJ!!!
H$%F!"QB!!"B[,2md6VS+cPL2,bcr0%kk#Y4BMf!!rV3q(djH6R919J!!,bi!##"
Xrc4"k!!3,`K1ZJh-8)p1ANje6PB!!$m($+i!N!8)CJ!!#N*XrbTJ!!%L)#i!#1#
!i)![!%kk#q4BM`bZ!!%!!3!)CJ!!#Nkkr04J!!#`$+i!!3!#!!KQ!!!+6VVpdQ!
!!*`-VJ!"!!-!#'B!!!j#Cdkk"hj8Mf!!!)3-VJ!#!!%!#'B!!!`jI!!"rbTJ!!"
Z$+i!!J!#!!KQ!!!51A`!![mS1A`!!ImUB!!!8JbZ!!)!!`!)CJ!!%MPm!!2r+$P
m!!(r+Q!!!$B-VJ!#!!3!#'B!!")jI!!%rbJjI!!"rbTJ!!!D$+i!!J!&!!KQ!!!
11A`!"ImS1A`!!ImU2M`!!Ja(!!9Z!!!@3QFr"bmXrba1ZJT)8)p54f!!rqBr2!!
"2bcr+#mXrba1ZJS`8)m-E!!"rbTQ!!!-5'cqE%kkrVCBMd*R6VS+e&522Kp1ANj
e6PB!!%kkqTC1ZJTU+8$ppNkkqlSr2!!"2bcr+#mXrba1ZJRS8)m`2!!!18$r*Mm
XrbC1ZJ"f9)m-E!!!rbTQ!!!16VS+UNkkr3*J!2rX$'`!![mSCJ!!$Nkk!CSj32m
QB!!!-!aX!!2r+'B!!!T5E2mQB!!!(JaX!!6r+'B!!!T6E2mQB!!!$!aX!!Ar+'B
!!!)r,2mQ6VS!F&526VVmV'!!rjC1ANje6R919J!!2`Fq,J!)2`Br2!!H2c`![Nk
k!@aBMc`m!""64M!'$%!!!'d!!#i`"qaJ`(`!!3a!!!"Q!!!32c`!-%kk!-48Mf!
!!!`r2!!a6VS!YP52B!$rbM`I2Kp1ANje6PB!!$m(2Li!##m'6VS*cMm(6VVrMP5
2,$`!!2rq3S*#Jd+")(`!"lL3!#Sm!!)!!0*(0!(%I!$r0J(J5l9$l8X`!ZC)eN$
'KL*)dm2%I!!21$b!!14XZ9&6K@l8,"mq(djH6R919J!!-#i!#$m!U)G1ANje6PB
!!"!Z!!P)J$m!U)K1ANje6PB!!$!Z!!Jr!+L*6Pj1G8j@!!!`,J!)2`#SLNjH6R9
19J!!%#i!#8L!2`#SJdjH6R919J!!,bi!#%kk!JTBMb!Z!!J[!+L%,bi!#%kk!NK
BMdjH6R919J!!)#i!##m!U)Y1ANje6PB!!&@2U'%`(djH6R919J!!)#i!##m!U*T
1ANje6PB!!$!Z!!Jr!+LF6Pj1G8j@!!#SRNjH6R919J!!-#i!#$m!-#i!#Mm!U*0
1ANje6PB!!$!Z!!Jr!$!Z!!Sr!+L86Pj1G8j@rl!pEJ!)rmK#CdKZrl"1ZJPUA)m
JEJ!+)+lrhM!Zrm"1ANje6PErX$eZ!!Mrb$eZ!!Vrh#eZ!!crhN*R5'lrX%kk#9*
FMdjH6R919[q`2@i!#2r)3QG)E[q`6VS*8Pb26Pj1G8j@!!![#bCZ!!J[#dkk!%4
BMdT!C`B`22rrB$!`+`!+`(`!%'F+,bX!"Nkk#ETBMd*V!!Sr+`!-6VS$B&525N"
R"M!mrrpJ"$!m!!!QAdjH6R919[rm,`XQEJ!)2`F`+`!+`(`!!`a!!!"Q#$!mrrp
J!!#5)"-L+`!'N!""2J!`+`!+`(`!J'G3-#X!#X"m!!)-3!!!CJB`22rrB'J`+`!
+`(`!"'F32c`!!N+R2bX!$%kk!ST3Mcm(,bX!"MmV!!a1ZJ6b8)m-32rrCJB`22r
rB$)#Drpr!!SY5rrm$'Yp!!!-E"3JE[rm3HJ!$Lm)2bX!$%kkrUCFMbDV!!C#D`!
%-$`!!$iI*Pp1ANje6PB!!+R-6Pj1G8j@rr`J,J!)Cd*#E[rq-#lrrL"Z!!M3`"e
3rr``,[rq)'i!#0$!%+lrr9*ZrriGE[rmrrd3,[rm5)#`I!!!CXi`,[rq8d!JEJ!
)%)"1ANje6PErr#!Z!!KR6#"Z!!J3%-"m!2mp32rm3QlrrM!Zrrk`E[rmE#3`,[r
q)'i!#0$!%#J!!63ZrriJEJ!)d-)3J$!Zrrj5E[rqB0)`,[rm)'i!#0$!3K"1ANj
e6PErp!aX!!$r*'B!!**)E2jd6VS"+PL2U2j1ZJH)6VS&#NkkrbK#Tdkk"0*BMdk
k"La1ZJBb2A`!+2rd2A`!"2rf2A`"8[ri2A`"r2rk3UG#Cbmmrj!%3QFr2!!",bi
!#%KZrr4)E2k)6VS(50lm!"SY32rm,blrr%kk!0*BMd*R6VVmM&526VS!'$!XrS$
3E2k'2`"#Cdkkr5TBMdjH6R919[rm5'cqJ%kkr,TBMdkk"@)Y32rm,c`!N!-)5'c
qH#"Zrra"k!!3,`K1ZJC+h[`!$%jH6R919[rf5'lrr%kkr+*BMc!Zrr`d,2jmP'c
qKT4XrS+3!%*%3$e!rrS-EJ!!rrTX0%kk!&BY32rf,blrpMmZrrT#CdKXrRK1ZJA
Bh[`!$#mZrrC1ZJ"#@)mr,[rk3QG1Z[b1@)p1ANje6PB!!#!Z!!J[!+KZ6Pj1G8j
@!!!J,J!),`#SFdjH6R919J!!@BqSf#!I6Pj1G8j@!!!J,J!),`#Sf8jH6R919[r
m$'i!N!-1CJB`2!!"B")-EJ!"!!jQ"M!m!!0J"$!m!!)p3!!1,bi!#MmZ!!ir,J!
)6VVm6P#218$pU'F))$crN!4J%NKZrr`r,J!)6VVm$&b2)#lrr%jH6R919J!!2bi
!#%kk"+j8McmZ!!K1Z[`i9)mj32fSC`B`22rrB!3`2!!!6Pj1G8j@rr`YE3!3rr`
JE[rm)&!`VJ!)6VS&&NjH6R919[rq,`Y"l2c3*NJJ#d(Xr0!N#05m!*!$f,##E"J
`+`!+`(`!!fF),`Y1Z[[b@)r@r!!5B0C#E[rq$'i!&IrqE#``,[rqjB""l2aZd-!
-8!!!Ca3`,[rqjB""l2aZd-!r%%kkqk"8Me*ZrrjJc$mZ!!K1Z[p`9)mQAdjH6R9
19[rU5'`"r%kkr9CBMdkkrI*1Z[iN5'lrkMmm!!K1ZJ-%A)m-EJ!$rqTQAM!ZrrM
!I!%!Ce4)E[rU2c`!#%kk!XKFMb!Zrqc![!#3!hm-J!#3!h0Q'%KZrqSr2!!)6VS
#U&b2$'i!!rrUCZTJ(#!Zrqc![!#3!hm-J!#3!bjQ#Mmm!!*1Z[lm9)p)E[rm6VV
k9&L2%#i!#8L!X(`!#QBH-#lrr0"XrS$3E2k#d'cqKMm!3QG1Z[TB@)pJ!!#1%#i
!#8L!X(`!#@Bk-#lrrNM!JHcqK$e!rrS`,[rk5-#"r!!)8N$"r!!)8d!p32rk2bl
rr$!ZrrV"l2k%2`"1Z[S3@)pJ4K!Z!!P)J,"m!!KQ%N*R-#cqK%4!2`"1Z[S)@)p
J+"!Z!!P)J,"m!!eQ$MmZrra#CdkkqGKBMf!1%#i!#8L!2`"1Z[P+9)m3,J!*5)"
1ANje6PErVLm,*Qi!#Lm+*%XpEJ!1rki-ERd"!!KQ(M!Z!!j6EJ!15N"R$K!D5)!
r!%kkrRa8Mf$QB!!!T$mZ!!K1ZJ+D9)p+3'BH-#lrVP0Zrkj+3'F5%"*)J,"m!!T
Q""5m!!e5LQ$L3Ulr[$eZ!!Mrb#e,rp!`,J!1`,`!!2rr,8$re%*Zrpa#CdKZrl"
1ZJ+kA)mj32fS$%!!!'`'-$crrf!q)#lrf$e!rkir,J!)6VS#+P525N"Q*$eZrki
!$M!Z!!j6EJ!15N"R%K!65)#`I!!0CJ3@[!!+8SYJiM!ZrkiNAbCI6Pj1G8j@!!!
J,J!),`#T)NjH6R919J!!)#i!##m!U501ANje6PB!!#mZ!!LTHdjH6R919J!!)#i
!##m!-#i!$$m!U691ANje6PB!!+Nh6Pj1G8j@!!#T-%jH6R919J!!,bi!#NkkqKK
BMeQ2-#i!#$m!)#i!#Lm!U6%[,J!+6VVk6PL2)"p1ANje6PB!!#mZ!!a1Z[RU@)m
J,J!),`!J,J!-,`#T-bmZ!!a1Z[SL@)p1ANje6PB!!#!Z!!J[!$!Z!!`r!"!Z!!m
I!+P&6Pj1G8j@!!"9Mc!Z!!Jr!#!Z!!S[!+P`%"p)J%jH6R919J!!9Bm`,J!)2`!
J,J!+,`#TF4!I5)"1ANje6PB!!$!Z!!VKL1')-#i!#+!b6Pj1G8j@!!"CMkPe)"p
1ANje6PB!!#!Z!!J[!+NI6Pj1G8j@!!"CMkNN)"p1ANje6PB!!&P2)'i!##m3U6d
J(djH6R919J!!@Bm3,J!*5)!r!+Nq)"p1ANje6PB!!$!Z!!Jr!+Ni6Pj1G8j@!!#
S8%jH6R919J!!U&*1ANje6PB!!+K66Pj1G8j@!!"96b"Z!!J[%#mZ!!bT,$!I6Pj
1G8j@rrj#E[rq$'i!&IrqE#J`,[rqjB""l2aZd-!`%,"Z!!KQ$M!ZrrlPJ%(Xr'l
3`%*38QlrrQ$36Pj1G8j@!!!r"ciZ!!K"l2aZ)NM5r!"8[P"R"PK)XmKQpM!S!!)
q(djH6R919J!!)#i!##m!-#i!$$m!-#i!$Mm!)#i!%#m!U1p1ANje6PB!!#"Z!!J
LEJ!-)#i!%+!Z18$mE%jH6R919J!!UI41ANje6PB!!#!Z!!JJ3$!Z!!aR"+3$B!+
J!djH6R919J!!)#i!##"!-#i!$'F%T"KJ!U)B6Pj1G8j@!!!J,J!))%!`,J!-C`5
N4'!#SN41ANje6PB!!#!Z!!JJ3$!Z!!aR"+3"B!+L!8jH6R919J!!U4)jI!!"rb4
1ANje6PB!!#mZ!""1Z[HB@)pCMb!Z!!J[!#!Z!!`[!#!Z!"![!"!Z!"8I!$!Z!"B
r!#!Z!"J[!"!Z!"dI!#!Z!"i[!+N6,bi!%%kkpkTBMb!I6Pj1G8j@!!!J,J!),`!
J,J!-,`#ST8jH6R919J!!U2j1ANje6PB!!#"Z!!LJ(cP!r'a1ANje6PB!!#!Z!!J
[!$!Z!!`r!$!Z!!ir!$!Z!"!r!$!Z!")r!+LR6Pj1G8j@!!"96b"Z!!J[%#mZ!!b
SV4!I5)"1ANje!!!"'!!)!!&$l2r8%[`!+",m!%-5r!!T%[`!)",m!%-5r!"[%[`
!F",m!(N5r!"b%[`!D4,m!'F5r!"S%[`!G",m!#!5r!!a%[`!14,m!$J5r!!e%[`
!)",m!')5r!"j%[`!)",m!&!5r!"K%[`!G4,m!'`5r!!J%[`!44,m!#i5r!!J%[`
!8K,m!(85r!"d%[`!G",m!'85r!"b%[`!!$Pm!!$r+MPm!!2r+$Pm!!$r*N2Xr0!
Lr!#3"$,m!!!Lr!#3"$,m!!Nbr(d!)[`!N!3Lr!#3"$,m!!!Lr!#3"$,m!!Sbr(d
")[`!N!3Lr!#3"$,m!!!Lr!#3"$,m!!Sbr(d")[`!N!65r!#L1A`!!2c#6R8!!!)
Z6A9ZBfJ!6A9ZBfJ!3@*[GA3J6A9ZBfJl5'9XF$Y4G@Pd,e%!8f9aG@9ZBf8!!%G
[,dFl8Q&ZC'pY1dPZBh*PE@9ZG$Y%C@0bC@ePER3l8f&YC3!!69913dK*6NFJ8e&
939*&8`!!35"NDACPFR0TEfiJCR*[E5"34&!Y-5"NBAPc!'C[FL"T)$dJ-LSb06B
U-M8f1b"T)$iJ-$XJ,5eT!(3J+cdJD@jM!!"i)$dJG#!Q)$)e03"j)$dJ+(3J2Mi
J1#NJAL"i!!"PEh*`EfPZG#Ki,#"j+3!!BRN!!&"KG@`J8R9dG'9b!$)b)%eKCfj
[E'PK)&*[B@3!!%*bD@&bBfaTCQBJ6@&ZEh)X)%jC)$%`06%`!!"98d91493k)("
SD@aKBR-KF'9b!&4SC5!a0L"LDA3JER9YBQ9b)'&LEhCP)(4SC5"cFA9KFQ8JDA-
JG'KP!##3"'PZBh*PE@9ZG#"eFf9N)'*j)(4SC5"YG@jMD#"KE'G[FQPdD'dZ!!"
8Eb"cG'&bG#`JF'PMDb"KERNJDA4PE5"TEL"dD'8J8f9aG@9ZBf8JE@9ZG5i!9'm
JFh4[F#`JBfaTBfXJB@jjGfKPFQ8JB@jN)(GKDA3Z!&GSC@iJFh4[F("PC#`JG'K
P)'*TG(-JBA*P)'e[GA0P)(0PER0TG'PfC5i!8h4NEh9d!!!UN!3J8d9849C&6P4
0390,)%j29#"*69"-48e&6P4&4%i!!%024%8!N!3"!*!$&e)!!"C5!*!$AJ!!c"`
!HJ#3!a`!AJ!"3dp%43!#!"*%394"!*!$0J!#rrm!!"-%!*!&!Irr!*!$*!#3"[r
r!*!+rrm!!"3J!!%q-%5R!: