home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Amos / AmosCRAFT2Turbo.DMS / in.adf / demos / general / 3D-Drawing.AMOS / 3D-Drawing.amosSourceCode
Encoding:
AMOS Source Code  |  1994-01-29  |  830 b   |  39 lines
  1. 'Use the u,d,l,r,i,o keys and watch it happen... 
  2. 'start with a few o
  3. 'U)p, D)own, L)eft R)ight I)n O)ut 
  4.  
  5. '
  6. Screen Open 0,640,256,2,Hires
  7.  Extension_12_02BE 320,128
  8. D=0 : E=0 : F=610
  9. Draw 0,128 To 640,128
  10. Draw 320,0 To 320,256
  11. Repeat 
  12.    Repeat 
  13.       A$=""
  14.       A$=Inkey$
  15.    Until A$<>""
  16.    If A$="u" Then E=E-50
  17.    If A$="d" Then E=E+50
  18.    If A$="l" Then D=D-50
  19.    If A$="r" Then D=D+50
  20.    If A$="i" Then F=F+50
  21.    If A$="o" Then F=F-50
  22.       Restore 
  23.       For I=1 To 12
  24.          Read A1,B1,C1,A2,B2,C2
  25.           Extension_12_02A6 A1+D,B1+E,C1+F To A2+D,B2+E,C2+F
  26.       Next 
  27. Until 1<0
  28. Data 0,0,0,50,0,0
  29. Data 50,0,0,50,0,50
  30. Data 50,0,50,0,0,50
  31. Data 0,0,50,0,0,0
  32. Data 0,0,0,0,50,0
  33. Data 0,50,0,50,50,0
  34. Data 50,50,0,50,50,50
  35. Data 50,50,50,0,50,50
  36. Data 0,50,50,0,50,0
  37. Data 0,50,50,0,0,50
  38. Data 50,50,50,50,0,50
  39. Data 50,50,0,50,0,0