'=========================================================================== ' Subject: RENDER 3D OBJECT Date: 03-08-97 (18:20) ' Author: Eric Carr Code: QB, PDS ' Origin: FidoNet QUIK_BAS Echo Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"R3D.ZIP",4^6:Z&=4925:?STRING$(50,177); U"%up()%9%%%R-%(=K&GSp/+(F1.%%vM%%%/%%%%wj%sijw%SgfxKN?:BoLmk4bzu U"DsB5+I_W,I:Qg;wa&X.a);K(IRsDJdFQ/Dz?w_XxroiP.FHfa>6BWO#0J^nHaLZ U"LVL^bhgvDqPgFvS'e+mGQAGNj*S5%d4,0-6alkTNv U"ODXfsXxAk7*J-+=(hb92)nIGFcB5(AZjE$[>Ng*jIVpH<^'QjU7F9kaL4onnQP\ U"hEMI/6h)*E<:;Wl>*rd)%Y)c=VVZRK%B-4CBuYbi\U4-jg]+sYUtYZ/C]gRrC-t U"t-CH<%7&Crl:tvAolDeib8gqm^k&Jm#kbAw:&wXW-m?h=j1WU&p[yOrJ/W%bJ\cm=Ho]&1V(qiK U"K+IbUjNc&cRB%3rFyGMdaPs=/T;uXT8L(m/tN-RgUkC33Q_*47oYBI1qN.g(i7+ci;HBW/101F'/6D4M(E-l U"z%e=3yjU)kZgeu)LRx^P9crQYBWDedoOqw+s;xOK%E&S.?C]_OFc/=8P*\ U";:&)GC3Na?pA)7J/#n;YgSjrPp'bLiu?0;4=bqM9kiKBxbVg4liurlk0C,-W&P; U"Gk<63;.^e6C$#s.lMNbs'25][l$rJn_UUvDmHZ3K5txzLKURD?GT*_Ff/L>6//8 U"?Q-JVR\/^AE*sgbJU?XhAm'L/nYmO4^4f^1h/^=cg=c,Ma?8^< U"%0F?'Ie[Jir7Ej0FxI/k[ih\7s0F?&IU[eip7g8?ePl#9&Kk2M8RFL7\Ae8Y<'L U"lfGsF6DNbs>6KZj9cn0XBbOTtGQ(#\YXJtPj,ZgVolk]\BC<3nCXm=\E9.)C;6c U":h5]kJzMoz^/NIqXj/SqFM>D#*Dj#&:CZ^R>MQ4tCS_NrDT3poEMY<5C-sSxUWi U"^6vx<6Jr+;P_ZE>r1gt48FIg/fn]1X.ClW>=gU_-U3W?IEjm&C95h$7XjG97^x] U"2f>W7;askx%6AawDD8]uqoj U"=4Zb]wgbS?WsxU<*QWCTBu.ABRPmp_gmL'cReoX:.Qawp5D1nS,UcXOrEv*42NK U"pNyY5rO^=2Go<$0JM1tSR[ihsiu%,QFr.'UCklYQRdG3%hC((BT:C/4#;Ch\;)i^]3_LG-%?dBsq_X'<9Xf\rswIJ3QSJ5Kdg4j1F;baprhVioCc07 U"RQZYI&gd$9SLIfGH.4rf[.OQGs^31(&L7$QET.XYI8v#uY3vmmB*'ECquBEP4n* U"j.T,qSbveS68Wq/i U"l'j_%e&\]=:ObxTSqPR/$z;>it%DP.yP#t3KeK]u$%t6,v;DU=ujKc'tYB3\0Vm U"rNclc_U#v#-v=[46NO2gzKisiN*N'5D$y9l2b7LkLTqPB.WS/]:PjFdDa,P*,DHa:Ght8 U"L*gcjT*m-E.&6,4W4oAG'B_knX>ZI9^R.I>A<71n+,2Ud?1w&VLYi.kXNc_voP[ U"bG6o.ct(B#Ru]njX+v?IoNp,W\9#4g$A^\EU0?]U3Z+tK5^W.27,vO'JKexr'5* U"]f69$<0?)23FsF6xZRu5DhA;lXF.I*XtbC4P\sI5Cl>k3qaG[\z<)]xAAd6R:;VtjXI_rI*94/vjI(Bq$w U"23_*FuLbf'Fgm]FFtBR-.6g&XSqnEP6=bLVZp^4,OQ305vkKO,plomCP_[a*&)D U">rNkHI,p1\BYk*7J3K[bBupCJAIt9xN3QH U"nxghgF,7AWfJ=s]u8up]j4lo-,#t6%JE9O.SFYQUS4UpSslJCh%fhJM9TbSJZ?vv6lFnb-uPG-=:]7C^fw-pAjiBe/t#FI5/%&#J U"XG+M,amoay^QJX>12&VF[,*POGF-c>lc>H$(5/1E/]hW%h5K,iz+HOFG$TD?Q?E U"i/Wh=)*x3Kodf?hMEIV)z\+[T#8rIkqnoU14Ka8n,:CVZBrREc08)fO7/f?l2X+ U"ej21owu#fgk56KX*,oo6Bj.dT_yO U"8BRe]'bv&UTH]]Le57 U"P*kNg%x4eR#z*F_1eSGp^Htn]c1m5nl)o]\Y<[VCqFRB8265lc,_S(7S#CCI67# U"MX-dLTTD-8wWe(SYlLAMY1p^hHYdQ$RP,-P$Jm(O19./cLq,bh,5$>31\dvvsBM U"3%Y1[Ko=^/HFepa]v/;'b_#pQ$7TIA*zcz_jBNa1-]#o6pUFu+E[.q8GsVG80YH;ar3^B;1UBNc):GgxX2DqAYF-kER>g U"]Hcpc:B+2(6pJ4DowBDlIO?K9xT$Yr28J9Q:g0\m&I%&gz#kW.B,3z*=e48&c&q U"?/mG9re_#ZH%%%%r%%%%.%%%%xf%ruqj% U"SXiX-[^W)%GBx(.B(-S.E.6=)Q7hM.*z1')&2'x&3'z*&q&up%()9%%%%-%(IzV U"Gp7=I^'P'%%%%5%%%.%%%%rfuU%WSyjh'tf:,QUU-1h^2N$lj(tqHWnEmh$fBb#N5<=Rl U"Dt]O>6_1BMI>NC><0k%[pR4]t3I#l[q%^bJLOSm%])JMN9TS%eC8y%4q)#6)'[) U"-gmI==&1MKX%M1aWJjnT;brZ$'8AqBK#qAI[]gWQ#I_W4bj2f#D\vIhXif/-$+WEe&Q,Ybxx\brdUCS]mS7oi_2S2hrb-=M1%H?wQUfBJJ20EcPj15DiRk\cSwJh*6^72r U"nlnH3hH_#,Ag27,TO-Evl>-vK)^G5c7]I%lrr]fTupH0hr8>X8?X7xp1x(:zXYH U"JAo.S.,H%/Gt#;y4Tek*\OS&yNQMkruqiMQ[+O5.-y>DdJMsvDNA0=pB^Px];DE U"/w0$5v^:I.A9=fZYS1/evFQ2Czm=X54m0)SEJF7M)W>f],QQP1J'p[1dNN&%up& U"'%9%9%%%%-%<(=&G2Sp+(&F1%%&vM%%%/%%%%%%%%%&%E%%%%%%%%%wj%sijw%S U"gfx%up&'%9%9%%%%-%'ZH%%%%r%%%%.%%%%%%%%%&%E%%%%)%4% U"%x%fruq%jSXi%up&'%9%9%%%%-%(IzVGp7=I^'P'%%%%5%%%.%%%%%%%%%%%E%% U"%%s4%%%rf%uUWS.yj'u%p*+%%%%%)[%)%T%%%%q%7%%%%% END SUB CLOSE:IF S=119AND 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