'=========================================================================== ' Subject: FILL ROUTINE WITH TEXTURES Date: 01-08-00 (15:05) ' Author: Jernej Simoncic Code: QB, QBasic, PDS ' Origin: jernej.simoncic@guest.arnes.si Packet: GRAPHICS.ABC '=========================================================================== ' Paint routine with textures DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"TFILL.ZIP",4^6:Z&=9402:?STRING$(50,177); U"%up()%9%%%.-%)x.UMmg?d4v)%%%i6%%%/%%%%yu%fnsy%SgfxWf&XBAjk5MWP[ U"wVLB\,Za=DgjP^A&u U"00tfN0JJJt7(RQPRJiH=D92-0;5eVqV<['4=1$4IvQ'Q:Osn#T\64T)H?ms&ILLl:L U"vKxN,#=]3?Rh.ilj0Gqylgck_Z>9<2j.ZX=E:i4]_t^ZLcsB(KuS?U1SYw^d2cW U".T^26UcVZeWf9KT&D23pr>e,o5#0:yU68WH.\Z088sGTUE9:T1*E6cQjW>wR.%m U":[L%(<;4sGPuC-<[gtkTPO\J8AdJ)^g^)5u^&W\H,04tjtJC9j;+BQX=)>b:eB9 U"Z>)^[G..jOXU^+#24o?p6\Hm)MVj5lc7zI#28c](='ehb U"cGiVlkIySG>g7p*jJQ>mD%74q4zhe&$7pTt_?\0Cs$Laq*'gRBDd?uk5qJEE7av U"N#CUz+*&V8d.QxE]=_m9+01vL:E4lO;Y1[p[DVcmS,S.M6bBGak*Gfkr#S U">=[K7s?dU5EgORRpo1_X3,(f#,5M3Ica_NfcIbm-KFKbP_nieZNIi7)<1vs$X&j U"tS:=XRfy7?39RE+uOS*#*6iUQ&3pgkHed77O?g.9Tf]]Ov\gFm%'j>E0UkRfIQY2#?8g8iF U"3_Q+Q2t U"VNy#>n7%^k*v7'd5i9^K0id8'C,^YPHSpiDCy_jmDDt,qhnL[Irxt+M-d,4faz7 U"vau.kXZ&>up(%)9%%[%-%SAYUMBbyl\f%C%%5%O%%,%%%%y(j'yzRwjNIMV.*6Q U"/&_3SRr08&unEUU=29u&wpg:R5=MJrh,KF3UhS]S]B$]>lB5ngW>aEKE*je<8lqiLlO&l4dGVW^wCQho*krbX2/K'X\rUGjPn*BdPN0U[$E:E+By&P1p U"I*[Xy&R=o\qh%z%AXq_n\rf\&&o&2lk&Qyr=>x%TKQ1IKuH'^G+>Ddg,]ExDVN4 U"BRBk4c1d>HWbc>pA[3;5A2'#b\cbAOnWWd'>a=*H3GA%V?1_K&g1)j[(.8l7*#V U"\;;p]D9lFaCSUaENZ7BLt&TQNrFFgU9t=PltNriGRD]Puc?$_dEcJ+V0eS.EGj( U";:DF4Ex+'t#1D0Nqtc\Jm=,wPMMpE5lSLk:dlDLur:.gVqMFoClMQ+DorXVvp'z,L&bX-E=;j U"po<'[8KKA5t-Dz_SWbfiV8IE&W+10&twirOJ1N0p4=YAs&FugU2tKWLF='5ZXZm U"V^POiB:;gmD?/S1QMYl:cf(9%NMzeZI6BHWq$Fe1o?%GUfU9((WXqgip.O(0M_4 U"QSlM_QCs0x,6t>XPY>W5DZto&*7\[(r:r[:vc5,rvs'Z)N?^nqh)h;[yXS\Jz?N U"C(5f^ORAc]lzq1OdOFT?j.+W'_C?FnYOT[kD.#ta>+HlOX?7q<;cCA\#\>HV1f4 U"q#8%.i6bN3)xNuEpA#1U'WeE9O/_AWOm2)J1L>eO&2[ZZ-\X?M)%i/X1Dy?G(s/QtG>AT#Tmtt8 U".#^$$JD41AMP9b7wchgBem<3R%pSZ#fon,vr&+S45T3X>qIqDhKL[cPH]2Op&ew U"w8I;:wU.pipJc_[$]aTCH5?Pu,DKt1cCecm.PL)bB<6j/ghsZg7JMbpI_[5C2,C U"k.9VTY4DrA].yQ\4(?cPDtKcna.^p9Fks7p[izo6P-HWZ0ct:u&QTPf'TMGcL\E U"89M1999q1K'.N&tZJl37v8&NeMAF6RB=bVT8iO*Zb+'/yNzcC>w*f;EArdwKgFY U"6lA9/cLYB_xtyc#b(DuXYxlfBE\fS\Itq+i2::V6Qu,6JBt,5>t$Ac U")TQRA,qN_eA)dxkoN]y9tayCz+9:19X#A[P\B:]72)3D&A&z6\#%w\*O,8ck&k#r5k4U9mCHKf(\vp U"_)Sb9caPzb&#dT2Kp>e#M=;YSUl%EmPEUWko#^m1.d?Tey0%Vj%Bd+n?F>5[)\7 U"JIuHXQ[>Z?fPq:w[)oJz(i'pmL-UlRR$$)_4H31aMkLpTwuJ:ZZn$FdAPWF]s6+ U"1L&&c^E5&Z7z+0jGMy=o^5d#=/GtGB)*]^ic/BkGMwPM8DIt%v:*i=V\*3VCn[E U"bkhaXZ>\On4^VG&B]VY1B.2$;&%e%&VtP[OZLB^3:f\M6&eoS5#1)f2'2QmE5SI U"fOATiQ1FUa6;[z)5B=yGh9WopDA4$3G2J6?ji-4t,6;5jVS5AR<[kVF4jm''jG, U"ck:/gYGl7U/[-A)pod)[L&GaRLCAe2yxCqAtY=[&ymI+DW3J2E*][lX^>$A/0fB U"tY.XY_lN_C1nk[0L)0F^RXS8#RWxkB&fAn/n[g7%MVo_4tLuO+Wa7B)u7&dQK&n U"PGA.6:;-&V>iV*hDE?0n2vsql:mI%X>i8&MK4J U"+xx(v<%os'\peU+Od%=CABdiOX%#CTqoQU:Bq?/IZ/3A^7Y[A2HF#H6= U"aCsRdbMc(OwJcppoM^yu+'C*5$(eo#H^$/,gD^6F:r,MPAM_/77iQ=BYnHEHaa6 U"bfJ'G/.OmIJKU\WT:^m.EaZ.%f^uEG3vBJp1KeI.)KW>V>\2-^Dq^qsg.Ng7Q00 U"(3ZiHgsvZSDCPAh,3x%6LHhs.'M#1+_?]/n^?Zh8.IML0[I:PrdwER[jhax;'6; U"0'Ugi4''4d74RBWa#U_Wl+dC\W22i31dRvi11A0-olj+=xLid\Ux&PeOKKA1qy# U"wZy:;L4?G19?fT4)&)m7VOo6^p^jA2VLKdYRHsn_W4/.+&9_Ya U"zGoG]R[ekGF./QD0:E)];)Keh&is/VDA^[w53sfcNE;c.IBVSOWRu%Qs:xr*M)d U"Ool*lRqGPdCxXKbHy':2Qc/-/O7KIzJESp]x]+TRq96)p%A-W^wuX,]D)6#gK]l U"3i/uq#.)3Zmkuw*DW)Sb%QRRf..8SFh[[Y#m.G??dX?lY.Wk,Ir)_]Rh[^yH0\l U"#UC)sfXfSnOE4J)?IZJ?*j$*.nGbIsSc+BG<=O?31pcZ?Mx3<2;2LNI\$O; U"J;X2j)7V4gA+2\6e*P$=74EG9=f:Tr?DBohN%%MFYb)-nuFSHE/%+:BGD$WFVci U"=k6/-RT6m$$TdoD=(m&y-vX;\f]gA9-+t7on&RL?6(+.%)ybejfVm'qeH-U'(9i U"e1KS;R1),3[)kv63Oo&?K-?x8m*8U:3gUhK/Um[a&aqG%T*Ug>gYo)mlMV_C);3 U"Sy>AEjuD&7,?+$Vdl%1.Zi&[Agn+7LlV:GqlSUOsl:I#4EFQgh>.Vf/O\B>>Xp. U"A80q_zwl&>%(Nw#zOHcE?XgT#AxO6&A>dCJhy+]*]13n[%l*bg\_*A#Lad8Ox2G U"HtJ$iiq/Ft:E3Skz^ipel.7E1vSrf0w:zzbx6417u6>BXN1Y)sMi=%e[CfAFj)4 U"\b(EjO09/^E16%a?CvgR*-XgdKDuN]/6D/Lf2-JvVXpZ4K1^8$*x-LhZi3.DIb6 U"BU*\a2ORehmegMB&RfYB[1_ynnOeHF[WlFSb36s*u)oYaHNHT-4Df,\,X.omIl5 U",ue+*P>.V:pMCv$wxd?Eg-G$9Y]h&:i3\[Ajrd*gs0o,uiIdK)$HIxl[bZgNdDt U"AL?wdTdNxZe$\RL2b+vpo/EFt1KqNJh_\+:SbKIpFV,mUk/9[#'V7\^]WS.&$%b U"^2\A?wC%m(f:z:xBp5)bk?oJDle.dKousjO+&+:n;MohK-T[*KJ/w>xqIoXfcQE U"Izq(vc_Z0mW\]0AEn4%Vl,*12brgI14Q$b4MGc[gPZhZukL&uxskZ2Zra.IVR3NRYkd#U-]Y%Em2y'D^1xKra48:5s U"d2(wlx_nP+6a1HHex]aao>ukWl(cwp#xHr0TN1_)fQK?/HG&fEgJ[Ou56Su[x1i U"Ae2')Z/aJntpF5U1%#7nR5LUa3peo1+R_e^C^5x5^h]DJWZy3mJt^]ij6w6c#$3AyTA\Ud75E\UH*94PgA+TeVZyF^YnvvFQ U"xjnnRbaR.ted*<+G?)^2fZ[hS[_Eth9TUNL)d,YDe%ql^vD5bH;gE\:5-1=g-=v U"V;5tVrnuK+[W3t6nZxtp>ZuwL>JmDg4<3?+mBfD(L,tq#r6ZKQ.dE?gCe4x#+5u U"[gWTA88a2gURb[5K3T:-\k;7/,]t7wJTclrc^8tJxL(MNKKL%f(/N7eO*n,R>#x U"#NSbdtD[PV7IZF)A*>8/;d\wf/n*:95g[AfN%X7]5CIK%e.;2cHN\lnQ6x.ntLr U"eBv#pr2ALc+[COSK6mY)B#;uy?3)]Iic2=;YFVKd U";EC0zWu[i4YtL0>b+e%jhRhgaBkzDR*(XcNi3Yx>dZxT$.tKxDg0+qr/*#:87&+ U"&CYNaCS_jsIlk_GsA2dN;ZK>W9SQDcJS^VyBJ+k<:y<&5#C;g/SR;G040*;V/)9 U"M&j^Muq[,8tNjVd5LlQ'nJ>3K;;+;S1jZTx(ImoF2wh/CSzu-+AiyFKB;I;$c=N U"AEO-18#m+fd)A)jGp.eUOn$?]f?0h0t1]l$LXQuln.[ca^5f7ItU0=*l+p:4McM U"Wf1X&1Z0'Kn*piIEA1S1%3I9&S3w2?m]v2/1)feOUQ^l4EoDYg:&rkKdtmL?n>8 U"DW7K50Va/X=)sd%%[1M$EL('8tFor%5VC^Xno&9RkO>kVE.DYRu[3uX/K1bmiF: U"O6p5/)>y7UiDY6(Tbt9dqtLuXvtdkVH^/>&=Y_063TACVa._UCZ?7_qWvQt]J#$ U"ED&/'&Hjyk%HYtI%;sXjjwEru)orb;%i#$:*d_u%7P)Q'd$vZ:m'o\aVvVXMQpu U"76'NIxeEP_W*_s$(]*0w1LTDF(4Q=_?G_L7HQ&tg.P_pMF)<\#O(pF6:[Fu^SZr U"<00TMUVS'BQ23X[kA;0N>&Y:WEJ(npbIsuuBg?k#'xrwR[2&K6*g,yGT*ID^$Vl U"ed[+P7r(QON1Pd;KXq)VIpNn>cX'Nf0dEHqZB:f&E%jG$Ema-q;Q?JZ6[dcdW9X U"WHh);_9uCM30u_Hb);^LkOrhlEpAn5(#LECOW%_THr>.wT(%RX7(Rp*P[ou1)5* U"V(Teqf6dw6p?%%esBxuuurj:oAynq\JiQg.[[TTHZD-C7ky[BQcA*ELOGF&0Vim U"ReIMsdi(MqQPS7AQ(VRBVgV6lo0ec]R9Xm\DvKn0*V0(t-CIDc'.p[X>9__WrD/ U":#:]%[w#GBBOES^Gz:^;3I$WY9^[nyC-FT,lpt] U"ohH((Qj>?&Y=-hYVkO'lQ)IDteKe/DjV7gp*oJ$)6$f&C'x+pv_[;v9\V\OO^[& U"-46$%/We?o-5LGDjF3]/]3E[3E5/Q>j0p3q^]jp)DbyhD%_1\EEa#4l(G-7aHkL-JV1I.[IuIJJs-6-#i%Y(uoaCA9aJM1EHX_c;k^rP U"tu3XM'*WBb/q*N=c09[VAr6d4J,r4*PP2%ff&Zj]]vqn.uu,YEeT-=C-t3gR5gc U"iuC4U(p-0Cf9FJ39[lbH]I?aZC5.F6uuV U"DqMIo[27FLnVutLkA+;(2I;f#JJkhq0IF_j7iQY<4PVf?ZL1QEAb;.f4Ca?dT>b> U">4]VS8Axf59:%Jm9%:b6=R1.,ePg%lG'+P>\J9Iw80eg%f:GzpDnnasoTTT8HEs U"Q7F4f,wIJ<'F4[R[vxERUxD),,RBAl]jw=dVLbU];n3\7*j$AgItgE09WW$fimM U"+IL6bu?u.d]AMe%n;B5wuwT(x.*X-BrgqwM&IHCPJeMcQrop7L2+=60d$38bc][ U"IZW;OIP[j_$mVt_#2Q8fpb/xY*Rh2DU>&ZwHXN&g&&)&&qp?AY\DpCMv(qNNteZ U"]BZLll5+,#m2blMyUKQH7sSkZ0-Z3A<3LxpR+gR6_70YoIAfjIE:8Z.jU[L_N,: U"L_FWp>1'wRoq>MB5tLmu4Q(8Svbm8_W6T9elI(f/s.Xak8tmba=txJQ^u*B*j6/ U"/es3Whuvej:zmI1sWg;>7Tyr,r/i+sIC-(l^?N*<'[R:Q/]dYHof&q.Mlv7tL(5 U"b#mdF/qC16)6Gsv_L&ptZqq^xm.A)ZX1(6r*'plE1%BJh3=bCY\P*,fi_7H?X;p U".>8$j.90&-MgNH*LOu-v_XrXMx\qZb\60&:b1[8PsJ.V3IiqLD$SQ?#uuKjVDHV U";;g+4pPhC-eCF%k#i_D>&b5YG%4VT.Ks(eUE05aCFj,d3H2OYeGZE.XkWNM'bi#z>gNfV/E)b=Q9& U"gY3x1+22p7_#tk8R;\NJxA\1r:Kxj,z$5KdTt_0Z4p0%IFB39e,I,ik^mn_E/[t U",dH-/9V_X*ZLUttth]&NopgnI_Zk\)eP%S;^2(R/N)U$jH8&M]]G4Oof99G(sds U"s-8VMDuGbNp&3&dnQzp#qB%>B)ry>6D=YUU5Yy4?AtpSbm'egS-L\R*&WcN:Y_- U"4LrNEHQw<*RS2F^Y)%14qu\6#Z##(]8#bW,rH.87FgSrhi'GVt3d#7$^ZL2Z5o( U"z]c]?Nmkt*#5#4%pIbPZ2_7m7Jm[*c.x&9*9VJl^9xO)m9CY_Vr#q_saQXXB U"Rgp+qaxnJayAF=R$QfBXxLL&3'+PJg]yV#*i=+ASUw]mKf:YkRc?Wb\;wf-'D[*YOulfo/Rp%2Eu^f0X>Id&#cqQiiaL?T/qDkcggCAG5)'xxl$xd U"=\ij)x#0bym2%V+ZUoO\OJnxCegXDg:[P\ndHhx)d%qU+<6[-lptl]^Xbcb0\Xu U"3jG4p\>W5Q*Bhli7K85tt'wm:M]chlMMbBP.Dr%Hf.8bp-lFKT?p/SPT6HDAL0= U"OH9Tp'o&Pmj=yRhAWcx$DPD/^,higmVbKl4hlW3BdlGFFWWUk:*^E6lOT_z5OiNMmXRYM)):''A;n91H17[s$F&7CQa5#[F5Srq U"3O;&YO[-gPE[(eW/hJcU;QEwuXGY$e[t>8G_$U\>XLchWLh?V3j3EW]?:_<[FZ-j=2a[n(48ncYi^]u[^8,,GdTr$FArMlAMfbkXR$V,_iI+J5c.<(.;# U",_i+JgaPSX:H>\sGn$smK$sF?UTFP\kFP,goYsoNqXIc?cscksO^;M],w8sIoY- U"T1FX&w-;zSXOc^0ocejI\&)aUKngxbs.5-U.T[;YoS7?J$#OIV\aA]knF2Rsvfc U"KPEbh>bAS>s5lwgsVcL=R^mmU^Lqc5#s4A;P[<#48lS73W_S\4QZXI]5v.h)qSX U"SE_+7BjK=kDP1GsgSBjEhg7Bu>PK*w-FQ%])GeX\i#hn\jQE#=2Bb6]Db6^bUrkB5EGC06b[LR]EmX]LRgs8_ U"mH=Zmh[#I?9d_?^A_Y$[>lI\G[A]2O U"WWgkR\S$,belK^E58^>)=WX\KE6ZGf[vmq%G4[n+SjI8OaB4mD3aLnQ[BvH:XAW U"Q3wtQL>%i]XFarZmM1evgB\N;G#/VtQJ.OG9[.tR\Gx^aTg'nK.tQHrx-isdu%p U"&'9%%9%%#%-%)#xUMmsgd4v%)%%i%6%%/%%%%%%%%%&%%E%%%%%%%%%yuf%nsyS U"%gfxu%p&'9%%9%%[%-%SAYUMBbyl\f%C%%5%O%%,%%%%%%%%%%%%E%%%%J*%#%y U"j'%yzwj%up*+%%%%%%'%'%&<%%%%\I%%%%% END SUB CLOSE:IF S=210AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad! SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32 IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1 S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB