home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 1 / sauce-n-code-01.adf / ASCII_Source / DotCube.asc < prev    next >
Text File  |  1995-05-07  |  1KB  |  76 lines
  1. Rem *** Dot Cube *** 
  2. Rem Requires AMOS 3D Extension 
  3. '
  4. Double Buffer : Autoback 0
  5. Curs Off : Cls 0 : Hide 
  6. Td Screen Height 200
  7. Dim CUBE(300),CUBEX(300)
  8. Global CUBE(),CUBEX()
  9. SPEED=5
  10. '
  11. Degree 
  12. '
  13. Ink 2,0
  14. '
  15. Proc SETUPCUBE
  16. '
  17. Do 
  18.    If Key State(69) Then FINISH
  19.    Add N,SPEED,0 To 360
  20.    Td Move 0,Sin(N)*550,0,Cos(N)*550+550
  21.    Td Face 0,0,0,550
  22.    Proc DRCUBE
  23. Loop 
  24. '
  25. Procedure DRCUBE
  26.    '
  27.    Td Cls 
  28.    '
  29.    For N=0 To 251 Step 3
  30.       Plot Td Screen X(CUBE(N),CUBE(N+1),CUBE(N+2)),Td Screen Y
  31.    Next N
  32.    '
  33.    Screen Swap 
  34.    '
  35. End Proc
  36. Procedure SETUPCUBE
  37.    '
  38.    A=50 : B=-50 : C=25 : D=-25 : E=500 : F=525 : G=550 : H=575 : I=600 : J=0
  39.    '
  40.    For N=0 To 251
  41.       Read CUBE(N)
  42.    Next N
  43.    '
  44.    CUBEDATA:
  45.    Data B,B,E,A,B,E,A,A,E,B,A,E
  46.    Data B,B,I,A,B,I,A,A,I,B,A,I
  47.    Data J,B,E,J,A,E,B,J,E,J,J,E,A,J,E
  48.    Data A,B,G,A,A,G,A,J,G,A,J,I,B,B,G
  49.    Data B,J,G,B,A,G,B,J,I
  50.    Data J,B,I,J,J,I,J,A,I,J,B,G,J,A,G
  51.    Data C,B,E,D,B,E,A,D,E,C,D,E
  52.    Data J,D,E,D,D,E,B,D,E,C,J,E,D,J,E
  53.    Data B,C,E,D,C,E,J,C,E,C,C,E,A,C,E
  54.    Data D,A,E,C,A,E,A,B,F,A,B,H
  55.    Data A,D,F,A,D,G,A,D,H,A,D,I
  56.    Data A,J,F,A,J,H
  57.    Data A,C,F,A,C,G,A,C,H,A,C,I
  58.    Data A,A,F,A,A,H,B,B,F,B,B,H,B,D,F,B,D,G,B,D,H,B,D,I
  59.    Data B,J,F,B,J,H,B,C,F,B,C,G,B,C,H,B,C,I,B,A,F,B,A,H
  60.    Data D,B,I,C,B,I,J,D,I,J,J,I,C,J,I,D,C,I,J,C,I,C,C,I
  61.    Data D,A,I,C,A,I,D,D,I,C,D,I,D,J,I,C,J,I
  62.    '
  63. End Proc
  64. Procedure FINISH
  65.    '
  66.    Default 
  67.    Edit 
  68.    '
  69. End Proc
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.