home *** CD-ROM | disk | FTP | other *** search
/ Amiga Computing 66 / ac066b.adf / AMOS.DMS / AMOS.adf / amos_3d_demos / Into_DF0_Demo.AMOS / Into_DF0_Demo.amosSourceCode
AMOS Source Code  |  1991-07-30  |  4KB  |  156 lines
  1. '
  2. '            The Two Hour Disc Demo! 
  3. '
  4. '               by Nick Harper 
  5. '
  6. '             (c) Copyright 1991 
  7. '
  8. '         Europress / VooDoo Software
  9. '
  10. '    This demo took just two hours to create!  
  11. '
  12. ' (Even including the design time of the objects)    
  13. '
  14. Curs Off : Flash Off 
  15. Screen Open 0,320,200,16,Lowres
  16. Fade 1 : Wait 20
  17.  Extension_4_0024 : Hide On : Cls 0
  18.  Extension_4_0054 200
  19.  Extension_4_04D6 ":AMOS_3D_demos/objects"
  20.  Extension_4_0016 "amiga"
  21.  Extension_4_0016 "disc"
  22.  Extension_4_0016 "monitor"
  23. Degree 
  24. Double Buffer : Autoback 0
  25.  Extension_4_0036 1,"amiga",0,50,15000,0,32760,0
  26.  Extension_4_0036 3,"monitor",0,650,18000,0,0,0
  27. STRT:
  28.  Extension_4_00EC 0,0,1000,19000 : Extension_4_01A6 0,0,0,0
  29.  Extension_4_053C : Extension_4_0318 
  30. Fade 1,0,$FFF,,,,,,,,$FFF,$F,$AAA,$BB9,$500,$996 : Wait 25
  31.  Extension_4_00EC 0,0,5000,0
  32. PAN1
  33. PAN2
  34. Goto STRT
  35. Procedure PAN1
  36.    For Z=1 To 50
  37.        Extension_4_053C 
  38.        Extension_4_01F8 0,1
  39.        Extension_4_0318 
  40.       Screen Swap 
  41.       Wait Vbl 
  42.        Extension_4_00D4 0,55,-55,260
  43.    Next Z
  44.     Extension_4_0036 2,"disc",-10000,1000,10000,-16380,-16380,0
  45.    For Z=1 To 52
  46.        Extension_4_00D4 2,209,-5,84
  47.        Extension_4_01F8 0,1
  48.        Extension_4_053C 
  49.        Extension_4_0318 
  50.       Screen Swap 
  51.       Wait Vbl 
  52.    Next Z
  53.    Restore DTA
  54.    For Z=1 To 53
  55.       Read A,B,C,D,E,F
  56.        Extension_4_00D4 2,A,B,C : Extension_4_018C 2,D,E,F
  57.        Extension_4_01F8 0,2
  58.        Extension_4_053C 
  59.        Extension_4_0318 
  60.       Screen Swap 
  61.        Extension_4_00D4 0,-20,-20,0
  62.       Wait Vbl 
  63.    Next Z
  64.     Extension_4_0090 2
  65.     Extension_4_053C 
  66.     Extension_4_0318 
  67.    Screen Swap 
  68.    DTA:
  69.    Data 180,0,50,-2000,0,0
  70.    Data 130,10,30,-2000,0,0
  71.    Data 70,30,10,-2000,0,0
  72.    Data 20,60,0,-2000,0,0
  73.    Data 0,90,0,-2000,0,0
  74.    Data 0,130,0,-3000,0,0
  75.    Data 0,170,0,-3000,0,0
  76.    Data 0,160,0,0,0,0
  77.    Data 0,140,0,0,0,0
  78.    Data 0,110,0,0,0,0
  79.    Data 0,70,0,0,0,0
  80.    Data 0,20,0,0,0,0
  81.    Data 0,-20,0,0,0,2000
  82.    Data 0,-30,0,0,0,3000
  83.    Data 0,-40,0,0,0,3000
  84.    Data 0,-50,0,0,0,3000
  85.    Data 0,-60,0,0,0,3000
  86.    Data 0,-70,0,0,0,3000
  87.    Data 0,-80,0,0,0,3000
  88.    Data 0,-90,0,0,0,3000
  89.    Data 0,-100,0,0,0,3000
  90.    Data 0,-100,0,0,0,3000
  91.    Data 0,-100,0,0,0,3000
  92.    Data 10,-90,10,0,0,2000
  93.    Data 30,-80,20,0,0,2000
  94.    Data 50,-70,30,0,1500,2000
  95.    Data 70,-60,40,-1000,2000,2000
  96.    Data 80,-50,50,-1000,2000,2000
  97.    Data 90,-40,60,-1000,2000,1000
  98.    Data 80,-30,70,-1000,2000,1000
  99.    Data 70,-30,80,-1000,2000,500
  100.    Data 60,-30,90,-1000,2000,0
  101.    Data 50,-30,100,-1000,2000,-500
  102.    Data 40,-30,90,-1000,2000,-1000
  103.    Data 30,-30,90,-1000,1500,-1000
  104.    Data 20,-40,90,-2000,1000,-1000
  105.    Data 10,-50,90,-1000,100,-1000
  106.    Data 0,-60,80,-1000,1000,-1000
  107.    Data 0,-70,70,-1000,1000,-1000
  108.    Data 0,-50,60,-1000,1000,-1000
  109.    Data -20,-40,50,-1000,100,1000
  110.    Data -40,-30,40,-1000,1000,500
  111.    Data -50,-20,30,-750,750,0
  112.    Data -70,0,20,-750,500,-500
  113.    Data -40,0,10,-750,500,-500
  114.    Data -50,0,0,-500,500,-500
  115.    Data -60,0,0,0,750,-500
  116.    Data -70,0,0,0,1000,-500
  117.    Data -80,0,0,0,1000,-500
  118.    Data -90,0,0,0,1000,-250
  119.    Data -100,0,0,0,1000,0
  120.    Data -140,0,0,0,1000,0
  121.    Data -180,0,0,0,0,0
  122. End Proc
  123. Procedure PAN2
  124.    For Z=1 To 10
  125.        Extension_4_018C 0,294,-68,0
  126.        Extension_4_053C 
  127.        Extension_4_0318 
  128.       Screen Swap 
  129.       Wait Vbl 
  130.    Next Z
  131.    For Z=1 To 40
  132.        Extension_4_00D4 0,-43,-10,60
  133.        Extension_4_01F8 0,3
  134.        Extension_4_053C 
  135.        Extension_4_0318 
  136.       Screen Swap 
  137.       Wait Vbl 
  138.    Next Z
  139.    For Z=1 To 20
  140.        Extension_4_00D4 0,0,0,60
  141.        Extension_4_01F8 0,3
  142.       Curs Off 
  143.        Extension_4_053C 
  144.        Extension_4_0318 
  145.       Screen Swap 
  146.       Wait Vbl 
  147.    Next Z
  148.    Flash Off 
  149.    Pen 1 : Paper 13 : Locate 1,2 : Centre "THE AMOS 3D DISC DEMO"
  150.    Locate 1,4 : Centre "WRITTEN BY NICK HARPER"
  151.    Locate 1,11 : Centre "THIS DEMO, INCLUDING"
  152.    Locate 1,13 : Centre "ALL OBJECTS, TOOK JUST"
  153.    Locate 1,15 : Centre "TWO HOURS TO CREATE"
  154.    Screen Swap 
  155.    Wait 300
  156. End Proc