home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / amos / lturbo / demos / 3d_demo.asc next >
Text File  |  1980-05-18  |  751b  |  37 lines
  1. 'Use the u,d,l,r,i,o keys and watch it happen..."
  2. '
  3. Screen Open 0,640,256,2,Hires
  4. Eye 3d 320,128
  5. D=0 : E=0 : F=610
  6. Draw 0,128 To 640,128
  7. Draw 320,0 To 320,256
  8. Repeat 
  9.    Repeat 
  10.       A$=""
  11.       A$=Inkey$
  12.    Until A$<>""
  13.    If A$="u" Then E=E-50
  14.    If A$="d" Then E=E+50
  15.    If A$="l" Then D=D-50
  16.    If A$="r" Then D=D+50
  17.    If A$="i" Then F=F+50
  18.    If A$="o" Then F=F-50
  19.       Restore 
  20.       For I=1 To 12
  21.          Read A1,B1,C1,A2,B2,C2
  22.          Line 3d A1+D,B1+E,C1+F To A2+D,B2+E,C2+F
  23.       Next 
  24. Until 1<0
  25. Data 0,0,0,50,0,0
  26. Data 50,0,0,50,0,50
  27. Data 50,0,50,0,0,50
  28. Data 0,0,50,0,0,0
  29. Data 0,0,0,0,50,0
  30. Data 0,50,0,50,50,0
  31. Data 50,50,0,50,50,50
  32. Data 50,50,50,0,50,50
  33. Data 0,50,50,0,50,0
  34. Data 0,50,50,0,0,50
  35. Data 50,50,50,50,0,50
  36. Data 50,50,0,50,0,0
  37.