uv%%FLALASXYZTCSYSNYTTPITCCSPSNPROLCSRSNRHVDEMODALTCSHAPVODIRECTIOTURYAXRATIYRATIZRATI@@@  !"ANTIC 8/83DDSHOWS ROTATION IN ALL 3 AXES FOR ATARI LOGO AND BARN WITH SILO A1SUBROUTINE PLOTS SHAPE21 +@$'0@1@;TTFLAG=0 MEANS PLOT; FLAG=1 MEANS DRAWTO. TRAP 190 FOR LINES PAST EDGE OF SCREEN<6- AEFFVARIABLE 'LAST' ALLOWS DATA BASES WITH VARYING NUMBERS OF POINTSF-@P 6-8,6-8,6-8,Y[[-999 INDICATES NEXT VALUE WILL BEGIN A NEW LINE, SO FLAG=0 FOR PLOT INSTEAD OF DRAWTOZ&"6A 6-& APc22CALCULATE YAW; ROTATION ON Y (VERTICAL) AXISd46-$%$6-"6-$6%$(6-.6-46-m66CALCULATE PITCH; ROTATION ON X (HORIZONTAL) AXISn:6-$%$6(6-$%$.6-46-:6-wSSCALCULATE ROLL; ROTATION ON Z AXIS (AXIS THAT COMES OUT FROM PLANE OF SCREEN)x.6-$%$(6-$6%$.6-22IF FLAG=0 THEN NEW LINE, SO PLOT FIRST POINT7"!,%$%%$%-6-@7 AP>>IF FLAG=1 THEN CONTINUE EXISTING LINE; DRAWTO NEXT POINT/%$%%$% %%SOUND INDICATES PICTURE IS DONE_-@A92A!@@= _277IF IN MANUAL MODE, WAIT FOR ANY KEY TO BE PRESSED**F:Ad,"AU*"@Ap77GET RID OF KEY PRESSED AND RETURN FROM SUBROUTINEAdAU$[[TRAP ERRORS FOR LINES PAST EDGE OF SCREEN (ERROR 141) AND SET FLAG TO PLOT NEXT POINT#6- A# APINITIALIZING SECTION +@AR@W-@@1(@atari graphicsC-@@W(@IN 3-D(One moment, please...PPFIRST DATA STATEMENT INDICATES NUMBER OF POINTS, STORED IN VARIABLE 'LAST'#"#9,9,9,;@,RRC=SIN & COS OF 45 DEGREES; HC=HORIZONTAL CENTER OF IMAGE; VC=VERTICAL CENTERnnMODE=1 FOR AUTOMATIC DEMO, 2 FOR MANUAL CONTROL; CH=1 TO CHOOSE ATARI LOGO, CH=2 FOR BARN OR OTHER SHAPE?6-?pp6-A`'6-@36-@?6-@i%2A!@@G2@@@@i2@@@@ ''INITIALIZE ARRAYS; X AND Y=0,Z=-8I-AC&68,-568,-E68,-6@I i%2AC@@G2@A@@i2@Ab@@!22READ DATA 4 TIMES FOR 4 CURVED PARTS OF LOGO"-@@, #A6-@@I@ "I%%CHANGE COORDINATES FOR 4 CURVESJ!"@68,-!68,-TH"@ 68%@I,-168%@I,-H68%@I,-@^2"@!68%@,-6268%@,-hI"@!68%AG,-6268%AG,-I68%AG,-@r | ,,READ DATA FOR 2 STRAIGHT PARTS OF LOGO-@ #AP-@@ "\68A%%$@,-968A%%$@,-E"@\68A%,-@  IIREAD DATA FOR CONNECTING LINES BETWEEN FRONT AND BACK PARTS OF LOGO-A AB@ "~ 68,-68%@,-568%@,-6A >68,-O68%@,-g68%@,-6A ~68%@,-@  READ DATA FOR WORD 'ATARI'-AEAx "$ 68,-68,-$68,-@ FADE OUT SOUNDx -@6?<2AC@X2@A@t2@Ab@x %,,GIVE USER A CHOICE OF DISPLAY ROUTINES&N0@@@ (#(N(&For auto-rotate routine, press Ԡ0++(#For manual settings, press Ԡ9 PRESSING START SETS MODE=1:.F:B2y,"@$6-@. AC<<PRESSING SELECT SETS MODE=2, SKIPS AUTO-ROTATE ROUTINED.F:B2y,"@$6-@. AN ApWAAAUTO-ROTATE ROUTINE: YAW, PITCH, ROLL--5 POSITIONS FOR EACHX-@@b-@l'6-6-'6-v"@6-$@u"@6-$@`"@6-$@`CCLINE 660 CALCULATES SIN & COS FOR YAW, PITCH, AND ROLL VALUES9 6-E:,6-G:,6-E:,'6-G:,06-E:,96-G:,GO TO PLOTTING SUBROUTINE @P00GIVE THE USER SOME TIME TO LOOK AT DISPLAY-@A   33ALL DONE WITH AUTO-ROTATE DEMO, SO SET MODE=2#6-@#"@A;;TRAP 810 TRAPS DATA ENTRY ERRORS FOR YAW, PITCH, ROLL A""READ NAME OF ALTERNATE SHAPE"LLCH=2 MEANS SHOW ALTERNATE SHAPE INSTEAD OF LOGO, SO SKIP LINES 750-780"@A +M( (+(To see an ATARI logo, enter 1.(M( To see a(n)  , enter 2 EEIF CH=2, THIS IS THE FIRST TIME FOR THE NEW SHAPE, SO READ DATA "@A  + T( (-(The last display used values of0(;(YAW=H(PITCH=T(ROLL=)..TRAP IF BAD ENTRIES FOR YAW, PITCH, ROLL*S A((0(Enter desired new angles3(P(of yaw, pitch, and roll.S(4 =22CALCULATE SIN & COS FOR YAW, PITCH, AND ROLL>9 6-E:,6-G:,6-E:,'6-G:,06-E:,96-G:,H +AR@QHHREMIND USER THAT IN MANUAL MODE YOU MUST PRESS A KEY FOR NEW IMAGERj0@@@ (#(&(D(After the image is drawn,G(j(press any key to draw another.\-@A e<<GET RID OF LAST KEY PRESSED; GO TO PLOTTING SUBROUTINEfAdAU @Po99AFTER PLOTTING, ASK USER FOR CHOICES FOR NEXT IMAGEp A@##READ DATA FOR ALTERNATE SHAPE5AR@((5(One moment, please... READ NUMBER OF DATA POINTS"SET ARRAYS EQUAL TO ZEROB- 68,-/68,->68,-B ]]'RATIOS' ALLOW SCALING SHAPE. ADJUST XRATIO TO COMPENSATE SHAPE SHOWN ON YOUR TV SCREENooLARGER VALUES (RATIO=4) STRETCH OUT IMAGE ALONG X,Y,Z AXIS; SMALLER VALUES (RATIO=1 OR 0.5) SQUEEZE IMAGE'6-@6-@'6-@JJREAD BARN DATA, OR YOUR OWN DATA BY CHANGING DATA LINES FROM 2000 ON-@ "$68,-$68,-$$68,-$,,IF X=-999 THEN DON'T MULTIPLY BY RATIO+"6A 68,-"68,-+68,- NOW BACK TO MAIN PROGRAM=6-6-'6-36-@= APATARI LOGO DATA; LAST=278 278))CURVED PARTS OF LOGO (USED 4 TIMES)__-20,-56,-20,-10,-21,-8,-22,2,-24,4,-24,8,-26,10,-26,12,-28,14,-28,16,-30,18,-32,20,-34,22YY-36,24,-38,26,-40,28,-42,30,-42,31,-50,34,-54,36,-60,38,-70,40,-70,56,-62,56,-54,54YY-48,52,-44,50,-40,48,-38,46,-34,44,-32,42,-30,40,-28,38,-26,36,-24,34,-24,32,-22,30^^-20,28,-20,26,-18,24,-18,22,-16,20,-16,18,-14,16,-13,12,-12,10,-12,-56,-20,-56,-999,-999++STRAIGHT PARTS OF LOGO (USED 2 TIMES)..-8,-56,-8,56,8,56,8,-56,-8,-56,-999,-999#11CONNECTING LINES FROM FRONT TO BACK OF LOGO$UU-20,-56,-70,40,-70,56,-12,-56,-8,-56,-8,56,8,56,8,-56,12,-56,70,56,70,40,20,-56-DATA FOR WORD "ATARI".--21,75,25,65,29,75,28,72,22,72,-999,-9998''31,65,39,65,35,65,35,75,-999,-999B--41,75,45,65,49,75,48,72,42,72,-999,-999LEE53,75,53,65,58,65,60,67,60,70,58,72,60,75,58,72,53,72,-999,-999V3364,65,70,65,67,65,67,75,64,75,70,75,-999,-99977NAME OF ALTERNATE SHAPE AND NUMBER OF DATA POINTSBARN,154mm-25,21,-15,-25,21,15,-25,-9,15,-25,-9,-15,-25,-17,-9,-25,-21,0,-25,-17,9,-25,-9,15,-999,-999,0,-25,5,-9nn-25,5,-5,-25,-1,-5,-25,-1,-9,-25,5,-9,-999,-999,-999,-25,2,-9,-25,2,-5,-999,-999,-999,-25,-1,-7,-25,5,-7ll-999,-999,-999,-25,5,5,-25,5,9,-25,-1,9,-25,-1,5,-25,5,5,-999,-999,-999,-25,2,5,-25,2,9,-999,-999,-999hh-25,5,7,-25,-1,7,-999,-999,-999,15,-9,-15,15,21,-15,15,21,15,15,-9,15,15,-9,-15,15,-17,-9,15,-21,0gg15,-17,9,15,-9,15,-999,-999,-999,15,5,-9,15,5,-5,15,-1,-5,15,-1,-9,15,5,-9,-999,-999,-999,15,2,-9 aa15,2,-5,-999,-999,-999,15,-1,-7,15,5,-7,-999,-999,-999,15,5,5,15,5,9,15,-1,9,15,-1,5,15,5,5kk-999,-999,-999,15,2,5,15,2,9,-999,-999,-999,15,5,7,15,-1,7,-999,-999,-999,-25,21,15,15,21,15,15,-9,15 mm-25,-9,15,-25,21,15,-999,-999,-999,-25,21,-15,15,21,-15,15,-9,-15,-25,-9,-15,-25,21,-15,-999,-999,0,-11*ff21,15,1,21,15,1,13,15,-11,13,15,-11,21,15,-5,21,15,-5,13,15,-11,21,15,-11,13,15,-5,21,15,1,13,154kk1,21,15,-5,13,15,-999,-999,-999,-25,-9,-15,15,-9,-15,15,-17,-9,-25,-17,-9,-25,-21,0,15,-21,0,15,-17,9>mm-25,-17,9,-25,-9,15,15,-9,15,15,-17,9,15,-21,0,15,-17,-9,15,-9,-15,-999,-999,-999,-25,-9,-15,-25,-17,-9Hnn-25,-21,0,-25,-17,9,-25,-9,15,-999,-999,-999,15,21,-12,15,-15,-12,20,-21,-10,15,-15,-8,15,21,-8,18,21,-5Rjj18,-15,-5,20,-21,-10,22,-15,-5,22,21,-5,25,21,-8,25,-15,-8,20,-21,-10,25,-15,-12,25,21,-12,22,21,-15\hh22,-15,-15,20,-21,-10,18,-15,-15,18,21,-15,15,21,-12,15,21,-8,18,21,-5,22,21,-5,25,21,-8,25,21,-12fmm22,21,-15,18,21,-15,15,21,-12,-999,-999,0,15,-15,-12,15,-15,-8,18,-15,-5,22,-15,-5,25,-15,-8,25,-15,-12p5522,-15,-15,18,-15,-15,15,-15,-12,-999,-999,-999D:LOGO3D