home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 76
/
af076sub.adf
/
AMOSDemo
/
Demo.lzx
/
UniWave.amos
/
UniWave.amosSourceCode
Wrap
AMOS Source Code
|
2012-01-24
|
2KB
|
67 lines
' **************************************************************
'
' UniWave, UniWave.amos, and additional graphic files
' are Copyright 1995 Seumas McNally, all rights reserved.
'
' You Are LAME (and breaking Copyright law) if you use this code
' in your own programs without permission from the author.
'
' **************************************************************
'
Randomize Timer
'
Screen Open 0,320,200,16,Lowres
Curs Off : Flash Off : Cls 0
Double Buffer : Autoback 0 : Update Off : Hide
'
Load Iff "FTOpenPic1_1.iff",1 : Screen Hide 1
Load Iff "FTOpenPic3_1.iff",2 : Screen Hide 2
Get Block 1,0,78,320,82,1
'
A$="CoDe aNd GfX bY LoNgBoW oF D.U.P.!"
Cls 0 : Locate 0,0 : Pen 5 : Paper 0 : Print " ";
For A=1 To Len(A$)
Pen 15-A mod 11
Print Mid$(A$,A,1);
Next A
Get Block 2,0,0,320,8,1
'
Degree
Dim SN(750)
For A=0 To 750 : SN(A)=(Sin(A)*4) : Next A
'
'
Screen 1 : Ink 0
Bar 0,0 To 319,2
Bar 0,0 To 4,199
Bar 0,197 To 319,199
Bar 316,0 To 319,199
'
Screen 0
Get Palette 1
DUPX=0
Shift Up 3,5,15,1
T=Timer
While Mouse Key=0 and(Inkey$="")
Add O,20,1 To 360
Add OO,5,1 To 360
OOO=OO+O : If OOO>360 : OOO=OOO-360 : End If
For A=0 To 304 Step 16
Screen Copy 1,A,0,A+16,200 To Logic(0),A,SN(A+O)
Next
For A=0 To 190 Step 10
Screen Copy Logic(0),-10,A,330,A+10 To Logic(0),-10+SN(A+OOO),A
Next
If Timer-T>300 : If DUPX<90 : Add DUPX,1 : Else DUPX=90 : End If : End If
Add D,10,1 To 360
Add DD,15,1 To 360
Z=(Sin(D)*30)
'ZZ=(Sin(D)*10)
If DD>270 or DD<90 : Put Block 1,-320+(Sin(DUPX)*320),60+Z : End If
If Timer-T>1000
Put Block 2,-(Sin(DD)*10),100+Z-26-(Sin(DD)*22)
End If
If DD>=90 and DD<=270 : Put Block 1,-320+(Sin(DUPX)*320),60+Z : End If
Screen Swap 0
Wait Vbl
Wend