home *** CD-ROM | disk | FTP | other *** search
/ Amiga Computing 66 / ac066b.adf / AMOS.DMS / AMOS.adf / amos_3d_demos / Not_Just_A_Cube.AMOS / Not_Just_A_Cube.amosSourceCode
AMOS Source Code  |  1991-07-30  |  2KB  |  75 lines
  1. '
  2. '                Not Just A Cube Demo  
  3. '
  4. '                 By Richard Lewis   
  5. '
  6. ' (c) Copyright Europress / VooDoo Software 1991 
  7. '
  8.  Extension_4_04D6 ":AMOS_3D_demos/objects"
  9. COUNT=30
  10. SH=3
  11. SETUP
  12. Repeat 
  13.    SURFACE_ANIM
  14.    Goto LABEL
  15.    If COUNT<=60
  16.        Extension_4_029C 1,0,-SH,-SH,-SH,0
  17.        Extension_4_029C 1,1,-SH,SH,-SH,0
  18.        Extension_4_029C 1,2,SH,SH,-SH,0
  19.        Extension_4_029C 1,3,SH,-SH,-SH,0
  20.        Extension_4_029C 1,4,SH,SH,SH,0
  21.        Extension_4_029C 1,5,SH,-SH,SH,0
  22.        Extension_4_029C 1,6,-SH,-SH,SH,0
  23.        Extension_4_029C 1,7,-SH,SH,SH,0
  24.    Else 
  25.        Extension_4_029C 1,0,SH,SH,SH,0
  26.        Extension_4_029C 1,1,SH,-SH,SH,0
  27.        Extension_4_029C 1,2,-SH,-SH,SH,0
  28.        Extension_4_029C 1,3,-SH,SH,SH,0
  29.        Extension_4_029C 1,4,-SH,-SH,-SH,0
  30.        Extension_4_029C 1,5,-SH,SH,-SH,0
  31.        Extension_4_029C 1,6,SH,SH,-SH,0
  32.        Extension_4_029C 1,7,SH,-SH,-SH,0
  33.       If COUNT=120
  34.          COUNT=0
  35.       End If 
  36.    End If 
  37.    COUNT=COUNT+1
  38.    LABEL:
  39.     Extension_4_018C 1,884,520,645
  40.    Wait Vbl 
  41.     Extension_4_053C 
  42.     Extension_4_0318 
  43.    Screen Swap 
  44. Until False
  45. Procedure SETUP
  46.    Screen Open 0,320,200,16,Lowres : Curs Off : Flash Off 
  47.    Hide : Extension_4_0054 200
  48.    For C=8 To 15
  49.       Read A
  50.       Colour C,A
  51.    Next C
  52.    Data $8,$60,$C00,$D22,$A0,$0,$80,$888
  53.    Double Buffer 
  54.    Autoback 0
  55.     Extension_4_0016 "oe4"
  56.     Extension_4_0016 "3d2"
  57.     Extension_4_0016 "monitor2"
  58.     Extension_4_0036 1,"oe4",0,0,450,8192,0,0
  59.     Extension_4_0036 2,"monitor2",15,0,500,0,0,0
  60.     Extension_4_051E "3d2",1,3 To 1,0,5,0
  61.     Extension_4_00C2 1,"(1,0,100)(1,25,45)"
  62.     Extension_4_00C2 2,"(1,0,100)(1,25,45)"
  63.     Extension_4_0150 2,"(1,0,120)(1,1000,0)"
  64. End Proc
  65. Procedure SURFACE_ANIM
  66.    Shared SURFACE,FACE,FRAME
  67.     Extension_4_051E "3d2",0,FRAME To 1,0,FACE,0
  68.     Extension_4_051E "3d2",1,FRAME To 1,0,(FACE+1) and 3,0
  69.    Inc FRAME
  70.    If FRAME>3
  71.       FRAME=0
  72.       Dec FACE
  73.       If FACE<0 : FACE=3 : End If 
  74.    End If 
  75. End Proc