[comp.binaries.atari.st] v07i093: truchet -- Produce random Truchet tilings

koreth@panarthea.ebay.sun.com (Steven Grimm) (10/02/89)

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")<G2@"=\><"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$<F+S@[_I/2CY$\:@ <2H!89  $,D1<"H_+H+(#*!= YL?)/'Y)S PB<)5"9v
M !;.#(  $' &PMD 9YFTMH3E40\  +\\W=60.O7CT8 NRCMA4H ?@"<91G8u
MLB4NCUH *0W"16DSME4*R+V[=_?2T'@=! !,_;]_3Y?_M%;9@9*S+'9S1@(Lt
M6O4'J AA!!@2_. =<0:459D \F GA1$,&#$ .FV@D])[,!Q8#A!!X!1!<S ,s
MY)Q$JJE4P'%/O#/4624<QQD8 V&3X7!7  ,,< 'TL)T_S@W4!P SE/CC<%Mr
MV"%S+X0(I(8<>@CB0)4QE.**/$P8I1Z<J12DD4Z"H*0,!B 1S"!LH3 ,/P( q
M,DX08D(3")ABD@D "D@$L6:;@:0G&" J .%#!>@< <X1!@[W@P$_'+!@@YWQp
M@"&31_[T)  C0E(B "=6Y]J4#+#H8J, +*#?(TH <08 _VAPX3*?5CII9E*o
MA@6GGFJ*7'U<O."=/F<EL1MV99&G*6/,/$-", XX843=3 [VD"G'4" #RX n
M@  /U3( @P%<,N?E0#)4JT"<99Z9YIW!N!DN ...66:=Z+K9IQ!%@.&"# >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<YFZ$/RUL]Z#7+89XQ=-@-G6QM#"&R['0?<=40:@2?0>*@-%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,.<NVWQPUWU\\/g
M=QH\'%6+@!D* ,(618 ($0@82HB0K1!N#*=$(&P88$7Y_A 1B!*"I"\%T0(f
M8D< M 1"A@'C"#+.(&"PAQ  D3\Q$  0@Y"$(,2A"'$L@@SR8$#9!C"<-@C e
M?>)PQW#(<$% :,=:+0C"4(Q%D.=!ZQSQH,@1Q&<M-A# #P%P'PFRE3X%'"$Xd
M]3-!  0PB/<,Y P$0,(0C"$,$ @ "4 H%1"!$0QK%&P(0A@",9HH""4<X0P7c
M'$0+AC#";P#@$<IRP2>4\ K+J(QE+H.%X!@ "0 @@AR @ 5P$, &"]#%)+# b
MPG]@ 0)76 L&*@D & @ 2"@MBVO2.X=EP "!+.SQC@3A(Q2<T,:?/4"-'F*Ca
M&%H!F_PBQ8J0 (8, "#%K#K1@08P!D4,);*&, +O=$&6R  @@9\\BK24$]Pz
M@ "+0+2!&@:R5GW\P1F3?>: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<w
M IRA0.(1PBG<.93*', *A4D4.0& J'=6I@$@*$QLWF,&!@! *+)10$8E(( Vv
M_.,/[%+!0]=IF7R:["_()(T\E( V-DA@!OSXQS8N8@.ID0A& 4!",!T03+&(u
MZRQ"V,V4%*"=?_ C)FU P'GX@54/W*:K(@6K6%5$UNW@(R9LH,!Y\#$#42@t
MJHZR%(P H([BP'6D*@GKL,9:5GI(,#@ <( 9'+!7:/BQKNP"@PD>*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 %@<H@PJ&+-ES&P& J"@$@2:<"0VDF(R5W@;P%@!BD? C(',N)8L!@,*:@F+l
MZLS8# -65'40P(L-.QG$4A.)>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*P<YX"@6OP@$#,>2% -.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]_@$$%#Q<XP0<""[2!)0_g
MP8$0X# 0B_L#XQ5TAKYQ# !J6>LW .#"<!(N B1(0X/\ 44L(D%),P"&6:Pf
M!PSR(@ 2:IIK\UW)K/6A7014A@'\*,Q!A7 $K$K](I2R;76PKG4$$ \@R4'e
M$NIB@*I?/>N/ /'9 3" P2(C:0P@DD<WFBTB#> '8;?667JPF\+X "U :(-.d
MPZ<<)K BKI.U%E\4)Y'E*7J9%!X1]Q>#"H >_@/ ,10 <OP<> 8/?_.%+c
MU0812%XEE!6.L >95H?EB&!P 8.$!ZN@.]@ @/.XYCY8CL($!,S@&53-Jb
MFVPEZIR<Z T,#N#TZ/$#-21S'6RLQUK!4\+>"#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$:(($<!X \N-'UF0 122(7Z8(7\45:FX081w
MJ"NE,5TJ45W=-10JP1P51KB- /&L'P)!09D (8KR(6HX@<JUD:-,%X>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<P536\FOY! 8LH(8U5WF"6!OG-1QVN$WMA5!0\C>'-! 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