Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!cs.utexas.edu!sun-barr!newstop!sun!grapevine!koreth@panarthea.ebay.sun.com
From: koreth@panarthea.ebay.sun.com (Steven Grimm)
Newsgroups: comp.binaries.atari.st
Subject: v08i001: truchet -- Truchet tilings for monochrome screens (REPOST)
Keywords: arc, uue, high
Message-ID: <34440@grapevine.uucp>
Date: 3 Oct 89 21:10:46 GMT
Sender: news@grapevine.EBay
Reply-To: BD05@DKAUNI2.Bitnet (Roland Waldi)
Lines: 86
Approved: koreth@panarthea.ebay.sun.com
Submitted-by: BD05@DKAUNI2.Bitnet (Roland Waldi)
Posting-number: Volume 8, Issue 1
Archive-name: truchet
[The first version of this was screwed up due to a bad ASCII-to-EBCDIC
table somewhere. This one should be better. -sg]
This is a little demo producing random Truchet tilings on a
monochrome screen.
enjoy! Roland Waldi, BD05 @ DKAUNI2.BITNET
table
!"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 truchet.arc
M&@A44E5#2$54,BY43U, _0L #03+VY5D,41 ,8#0 /" S, J ! &H!-z
MH8,E^?XM!" DS\ (G)2T D#"C(@G^102>)%CX -6/W@ 0.(D")<"y
MR+>0!%F! 2+%(@",(-H 8!"M'0 *10%P"((N ( 1R"YBBH;SI @$TAH)XR5Qx
M ,T@+Q"\:"#D3$H 2EI^XZ=P (,1S2YR ^$S K<7* "P0((& " GN08*@ ?Ew
M$@CB0)4QE.**/$P8I1Z@< Lm
M$T2D#Z AIC2(P%# .$#PYR8(0, @0@-T%! ,66.(P02PD@C" A!P "(%$4Pl
M4 0 $+3!C!-Q& L".,HZ:\5 (#@&X L M&P2&3"#9@4('TP!B'(FH2(S0:BTk
M]T=7X !2-,P96LM?S=45,',(/P'""4?J8I.3CWEG*S*\=<+03BR.2 "&X,j
M!4+9","0C*@-%G5Ii
M T(B(2@!<@A?Q.Q$$UDD+CCAAHL !0E]08!7S*4R>WGA%QV>^.*-/QXY"$XXh
M47GIHV>^>>>?@Q!ZX!YB7CKBI:/N. 202Q[$ZS]I$WOIFG,.)PQW#(<$% :,=:+0C"4(Q%D.=!ZQSQH,@1Q&4\ K+J(QE+H.%X!@ "0 @@AR @ 5P$, &"]#%)+# b
MPG]@ 0)76 L&*@D & @ 2"@MBVO2.X=EP "!+.SQC@3A(Q2:0<3N-952 ME*>$CBTD4 KJV, 8/3F# 8 Y'O y
M( -G*H!($#@# UY@2@-41@$.Z(T0A** 'YB2 95Y@ 4X@TUM_F.0A02 ,4VXx
MDG,$@ #,_*,IO\F'5)HAFXZZIQQ<4 %/;"2; R623*S@32()X*#V!(,4*@H*X#(3O8\s
M]+ LNSZH $8FS0&KM*I@!R*)[K +%J[X!SW>H%7K568!+N#,C;[QCU*90:_>r
MX4=?J:I: H!A(2! 0OGDX5H%M#&V](!95\\"A+D.)5C6TQ6[Y+I8NL:D"S;"q
MD8[^(8^/SD"#\B!N8(V+ # 8H+EO2^H) \ %SSG,BS$BBXO,X5 O" (K@Op
M!OY;'S>(X .]><$!7! !=>'%R[X @.< Y ,&T@#%!%;_JTBZA:R@QJ58E@o
M-8"")J3@A@0 0.@8&&K#02=YG$,!.QA+(WQ\S3TM6]; &P]* 2BO_\-<%O$n
M$H "'[@WW@C$SV:,@B0"P@Q+\1 +0(" )O,,9/:X<@18((3J1 &*J ""$Q)m
M %@TNL@BJ P10U1NH9EV2M]@SD/1<&0 )TH#7Yk
M]M-LUFOS8.W@6@1$@4] 0(%/9@P&.S( %I1H V4; M&N.&]O*8$&P0 !@>@j
M0,R\9L0;L!9L-GBCEB*P2% -.A\;16T$0P"4 $E5"P"%ECFi
M'-.&12-JJF9ML\(R;P8W"AK!9S_3^!LABIX_R#<<,/!@2TVZ" Y@H"0SF #@h
M@L-!#/R(@($@W$,*O^QLP," ^0WGL1>H("_TS6]_@$$%#QLW .#"N/ /'9 3" P2(C:0P@DD '8;?667JPF\+X "U :(-.d
M^PZ<<)K BKI.U%E\4)Y'E*7J9^%!X1]Q>#"H >_@/ ,10 ^ 8/?_.%+c
MU0812%XEE!^6.L^ >95H?EB&!P 8.$!ZN@.^]@ @/.XYCY8CL($!,S@&53-Jb
MFVPEZIR"#1 H@W*AF@[C!Y6?2$.!Ia
M5+'*Q4/1,!@/R81W#$ R0@ "!#" 35ADX SX, 6)( 1!( $1@$5( A*=$2!z
MT$9!H#+]8!JHP0$!I0 EUG&/Y10(< 84T%6WE5N/<",@ !F,!"H$ 3N$($Fy
M@ 0NP ">T B^4#8.4 7'X PX,EB $<8 ' D(!RQ"Z?M0 Z@S 0H!X-8 %Lx
MH0 M^((Q&%DT:(/! 0(+@((1V$:(($IP1Cv
M<5KM!VK283W495T,0(;KX@!;\6G_T$NU<1[Z,%P_80,9A3>[$@WL$R3&@@/)u
M8FJG 0(@ H*8"P$P!JD> ZF" H)H(JLN&G34SW6@CW:,Q #Y#V:Q4(,,$#Wt
MDS]DP #]0P8$( Z2,$C_ P;P4$ 'E$ +U$ /) \?A AU$4EU(K4PP3NP%+6s
MHD,\Y$, $1"1$1&A$1*1 !,Y$1"%$539 V"L$78^ !A-$9EQ!I0EXB"IQ*Zr
M(7OSIS*&(G8OY@Z'-! 3q
M8 SO4 -^\9'+(1LP$B(< \'P '>>'].$0!4TY(?V9(LZ13W9P!* 0 F69,Ap
M B.RL1PN235UX L?P#)M$0$V!0D*( )X! [%!R=!0D+L)1+"0GP 0D\I1 %o
M, 1/X 0Z,!!!4 58L)4 520 5;"0D%( &P &0 $(8 $&0 (&X (8 !Fn
MR0 28 $2@ 0H $88 *H 2H $4X L 'H! %"( :9<0()<.X FH ,^m
M@ (H &H $2 4&8 2L)D4L)F=N9:@N9GT8 08 BX)=I:0$.8 $HX $0l
MX%1 (H8 $>@ 448 (8H $^T)@F@ MR "6:0 NX *0 ,F8 8>( $2X (6k
HP (JH "&*0%** (2@ (4( $>X #:R0$>X 2 0 $X<#(4P $08! : $2j
i
end