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
Wrap
AMOS Source Code
|
1991-07-30
|
4KB
|
156 lines
'
' The Two Hour Disc Demo!
'
' by Nick Harper
'
' (c) Copyright 1991
'
' Europress / VooDoo Software
'
' This demo took just two hours to create!
'
' (Even including the design time of the objects)
'
Curs Off : Flash Off
Screen Open 0,320,200,16,Lowres
Fade 1 : Wait 20
Extension_4_0024 : Hide On : Cls 0
Extension_4_0054 200
Extension_4_04D6 ":AMOS_3D_demos/objects"
Extension_4_0016 "amiga"
Extension_4_0016 "disc"
Extension_4_0016 "monitor"
Degree
Double Buffer : Autoback 0
Extension_4_0036 1,"amiga",0,50,15000,0,32760,0
Extension_4_0036 3,"monitor",0,650,18000,0,0,0
STRT:
Extension_4_00EC 0,0,1000,19000 : Extension_4_01A6 0,0,0,0
Extension_4_053C : Extension_4_0318
Fade 1,0,$FFF,,,,,,,,$FFF,$F,$AAA,$BB9,$500,$996 : Wait 25
Extension_4_00EC 0,0,5000,0
PAN1
PAN2
Goto STRT
Procedure PAN1
For Z=1 To 50
Extension_4_053C
Extension_4_01F8 0,1
Extension_4_0318
Screen Swap
Wait Vbl
Extension_4_00D4 0,55,-55,260
Next Z
Extension_4_0036 2,"disc",-10000,1000,10000,-16380,-16380,0
For Z=1 To 52
Extension_4_00D4 2,209,-5,84
Extension_4_01F8 0,1
Extension_4_053C
Extension_4_0318
Screen Swap
Wait Vbl
Next Z
Restore DTA
For Z=1 To 53
Read A,B,C,D,E,F
Extension_4_00D4 2,A,B,C : Extension_4_018C 2,D,E,F
Extension_4_01F8 0,2
Extension_4_053C
Extension_4_0318
Screen Swap
Extension_4_00D4 0,-20,-20,0
Wait Vbl
Next Z
Extension_4_0090 2
Extension_4_053C
Extension_4_0318
Screen Swap
DTA:
Data 180,0,50,-2000,0,0
Data 130,10,30,-2000,0,0
Data 70,30,10,-2000,0,0
Data 20,60,0,-2000,0,0
Data 0,90,0,-2000,0,0
Data 0,130,0,-3000,0,0
Data 0,170,0,-3000,0,0
Data 0,160,0,0,0,0
Data 0,140,0,0,0,0
Data 0,110,0,0,0,0
Data 0,70,0,0,0,0
Data 0,20,0,0,0,0
Data 0,-20,0,0,0,2000
Data 0,-30,0,0,0,3000
Data 0,-40,0,0,0,3000
Data 0,-50,0,0,0,3000
Data 0,-60,0,0,0,3000
Data 0,-70,0,0,0,3000
Data 0,-80,0,0,0,3000
Data 0,-90,0,0,0,3000
Data 0,-100,0,0,0,3000
Data 0,-100,0,0,0,3000
Data 0,-100,0,0,0,3000
Data 10,-90,10,0,0,2000
Data 30,-80,20,0,0,2000
Data 50,-70,30,0,1500,2000
Data 70,-60,40,-1000,2000,2000
Data 80,-50,50,-1000,2000,2000
Data 90,-40,60,-1000,2000,1000
Data 80,-30,70,-1000,2000,1000
Data 70,-30,80,-1000,2000,500
Data 60,-30,90,-1000,2000,0
Data 50,-30,100,-1000,2000,-500
Data 40,-30,90,-1000,2000,-1000
Data 30,-30,90,-1000,1500,-1000
Data 20,-40,90,-2000,1000,-1000
Data 10,-50,90,-1000,100,-1000
Data 0,-60,80,-1000,1000,-1000
Data 0,-70,70,-1000,1000,-1000
Data 0,-50,60,-1000,1000,-1000
Data -20,-40,50,-1000,100,1000
Data -40,-30,40,-1000,1000,500
Data -50,-20,30,-750,750,0
Data -70,0,20,-750,500,-500
Data -40,0,10,-750,500,-500
Data -50,0,0,-500,500,-500
Data -60,0,0,0,750,-500
Data -70,0,0,0,1000,-500
Data -80,0,0,0,1000,-500
Data -90,0,0,0,1000,-250
Data -100,0,0,0,1000,0
Data -140,0,0,0,1000,0
Data -180,0,0,0,0,0
End Proc
Procedure PAN2
For Z=1 To 10
Extension_4_018C 0,294,-68,0
Extension_4_053C
Extension_4_0318
Screen Swap
Wait Vbl
Next Z
For Z=1 To 40
Extension_4_00D4 0,-43,-10,60
Extension_4_01F8 0,3
Extension_4_053C
Extension_4_0318
Screen Swap
Wait Vbl
Next Z
For Z=1 To 20
Extension_4_00D4 0,0,0,60
Extension_4_01F8 0,3
Curs Off
Extension_4_053C
Extension_4_0318
Screen Swap
Wait Vbl
Next Z
Flash Off
Pen 1 : Paper 13 : Locate 1,2 : Centre "THE AMOS 3D DISC DEMO"
Locate 1,4 : Centre "WRITTEN BY NICK HARPER"
Locate 1,11 : Centre "THIS DEMO, INCLUDING"
Locate 1,13 : Centre "ALL OBJECTS, TOOK JUST"
Locate 1,15 : Centre "TWO HOURS TO CREATE"
Screen Swap
Wait 300
End Proc