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