p p 700p"B8.3D D DEMO":"B8.3D D DEMO":6p :p .... PLOTS WIRE-FRAME LETTER D FOR 3D ROTATION USING @STASH/@FETCHp( .... FOR JENNYA3p2 ...................... ROGER SILVAp< ...................... 12/24/90qA47,0:48,68:qF%:1030]qP@:,0: ============================== WORKS ON ANY 128 = 16K VIDEO RAMwqZ@<,1,0,0,640,200,0,0}qd:qn@K,1,1:@,15,0,0:@L,0qx@5,1,1024,16000q:q@3,1,0,0,0,0,0,0q@H,0,0,0q@D,0,0,0,0:@U,0,1,1r@E,1:@F,230,255,0,230,255,30000r:$r:Pr PT(20,1):I020:J01: PT(I,J)::rZ10:Z232:BN1:AD1024:C1:X160:Y56:DX140:DY88:S0:FR0r:r930r ==== PLOT AND @STASH 72 WIRE FRAMES OF LETTER D ROTATING ON X AND Y AXIS6s ==== LETTER D ROTATES 5 DEGREES PER FRAME 72 X 5 = 360 DEGREES 254,81yH 237,75yR 219,80y\ 219,106yf 230,106yp 241,102yz 247,96z 247,90z 241,83z 229,80#z:nz@,255,15,80,1,1,2,"THIS PROGRAM PLOTS A WIRE FRAME LETTER D ON ITS"z@,255,15,90,1,1,2,"X AND Y AXIS. USING 5 DEGREES OF ROTATION PER FRAME" {@,255,15,100,1,1,2,"WILL REQUIRE 72 FRAMES FOR A FULL 360 DEGREE ROTATION."[{@,255,15,110,1,1,2,"IT TAKES 12 SECONDS TO PLOT EACH FRAME; 15 MINUTES "{@,255,15,120,1,1,2,"FOR THE SET. AS EACH FRAME IS RENDERED, IT IS"{@,255,15,130,1,1,2,"@STASHED IN BANK 1. THE 72 FRAMES USE 14284 BYTES.">|@,255,15,150,1,1,2,"ONCE THE SET IS COMPLETE, IT WILL BE @FETCHED IN "|@,255,15,160,1,1,2,"SEQUENCE ON THE SCREEN. IT RUNS AS FAST AS IT CAN."|@,255,15,170,1,1,2,"LOOK AT THE PROGRAM REMARKS FOR MORE INFORMATION"| 3:|:}@3,1,0,0,0,0,0,0: === RESTORE DEFAULT DRAWMODES-}@H,0,0,0\}@D,0,0,0,0: === DRAWING ANGLES BACK TO 0}$@F,320,100,100,320,100,200: === RESET ORIGINS}.@8}8"OR MORE INFORMATION, STOP IN HE TARVING RTIST AFE GRAPHICS CHAT ROOM"-~B11);"UNDAY NIGHTS FROM 10 TILL 1 IN ON -INK"3~L9~M:D~NJENNY,J~O:x~P2S 70160 SETS UP THE BASIC 8 PARAMETERS~Q2 170 SETS @E 1, THE IGIS~R: THIS ALLOWS THE WIRE FRAME D APPEAR BOUNCE IN OUT OF THE KS2 200 ENTIS AN ARRAY HOLD THE POINTSAT2 210 INITIALIZES THE OTHER VARIABLESiU2 230 S ADD THE WDING THE KV2 270 STARTS THE RER THE TER DW2 280 HOLDS THE @D COMM: TRY CHANGING @D,20,F,0,0X: @D,0,F,0,0 2 650 ( WILL BE IN )4Y2S 290320 PLOTS OUTSIDES OF D (FRT BACK)aZ2S 340350 FINISH THE OUTSIDE CNECTIS[2S 370400 PLOTS INSIDE OF D\2S 420430 FINISHES THE INSIDE CNECTI]2S 450470 CNECT THE FRT BACK OF TER D^2 490 @ES THE FRAME 5 1 CALCULATES ADDRESS 0_: @ED FRAME\`2S 550590 SETS UP K @! ANIMATIa2S 630660 IS THE @! THE FRAMESb2 650 ADDS A BOUNCE ACCENTUATE THE ANIMATIځcI HOPE THIS S YOU OUT :)d ROGER