Path: utzoo!utgpu!attcan!uunet!ginosko!gem.mps.ohio-state.edu!apple!sun-barr!newstop!sun!grapevine!koreth@panarthea.ebay.sun.com
From: koreth@panarthea.ebay.sun.com (Steven Grimm)
Newsgroups: comp.binaries.atari.st
Subject: v07i093: truchet -- Produce random Truchet tilings
Keywords: arc, uue, high
Message-ID: <34422@grapevine.uucp>
Date: 1 Oct 89 19:08:24 GMT
Sender: news@grapevine.EBay
Lines: 86
Approved: koreth@panarthea.ebay.sun.com

Submitted-by: BD05@DKAUNI2.Bitnet (Roland Waldi)
Posting-number: Volume 7, Issue 93
Archive-name: truchet

This is a little demo producing random Truchet tilings on a
monochrome screen. I will submit the C source later
                   enjoy!  Roland Waldi, BD05 @ DKAUNI2.BITNET

[This uue'd file looks a little weird, but arc says it's okay, and
 it doesn't bomb when I try to run it on my color system. -sg]

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(@G102>)%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 2EIXZ=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*@-%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+EO2H) \  %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$,*OQLP," 0WGL1>H("_TS6]_@$$%#QLW .#"N/ /'9 3" P2(C:0P@DD '8;?667JPF\+X "U :(-.d
MPZ<<)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 B4#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