Screen Open 0,320,256,4,Lowres : Curs Off : Cls 0 : Colour 1,$F : Hide : Double Buffer : Autoback OFF
Load "musak7.abk"
Colour 2,$40F
Paper 0 : Pen 1
Screen Open 1,55,300,4,Lowres : Cls 0 : Def Scroll 1,0,0 To 48,299,0,-8
Screen Display 1,160,60,16,1
TX$="HERE WE GO THIS LITTLE DEMO IS CALLED VUCIRCLE AND ITS BY ME MARTIN CORDINGLEY ACE AMOS PROGRAMMER AND IS ONE HUNDRED PERCENT AMOS BASIC MUSIC BY RAY NORRISH SO NATHAN TELLS ME I FOUND IT ON AN OLD PD DISK AT THE BACK OF MY BOX GOOD"
TX$=TX$+" THOUGH ISNT IT FIRSTLY I AM SORRY THAT THIS DEMO ISNT MORE THREE DIMENSIONAL BUT I HAVNT GOT THE PROCESSOR TIME WITHOUT A COMPILER "
TX$=TX$+" I AM ALSO SORRY THAT IT DOESNT HAVE MORE TO IT LIKE LONGER MUSIC BETTER GRAPHICS BUT AGAIN THIS IS DOWN TO PROCESSOR TIME AND MEMORY "
TX$=TX$+" I HAVE GOT IT RUNNING AS FAST AS I POSSIBLY CAN THESE ARNT SPRITES OR BOBS ROTATING YOU KNOW THAT WOULD HAVE BEEN EVEN EASIER THAN"
TX$=TX$+" DOING IT WITH COSINE VECTORS WHICH I AM DOING HERE CONSIDERING I DID EVERYTHING IN THIS PART I AM GOING TO JUST DO MY OWN LITTLE GREETINGS LIST "
TX$=TX$+" GREETINGS TO THE AMIGA TO ALL AMIGA OWNERS TO ALL AMOS PROGRAMMERS WHY NOT GIVE US A GREET IN YOUR DEMOS TO JAY MINER TO MANDARIN SOFTWARE TO MY CALCOMP GRAPHICS TABLET TO FRANCOIS HI THERE HOPE "
TX$=TX$+"YOU LIKE THIS MEGADEMO YOUVE DONE A WONDERFULL JOB WITH AMOS SO I HOPE YOU LIKE THIS AND I HOPE WE CAN HAVE A CHAT ONE DAY TO JANET WRIGHT THANKS FOR YOUR"
TX$=TX$+" LETTER REGARDING GLOOM BUT UNFORTUNATLY IT HAS BE DELAYED FOR A MONTH LONGER SORRY BUT I SHALL GET A WORKING COPY TO YOU AS SOON AS POSSIBLE TO NATHAN POWELL "
TX$=TX$+" JUST GOT TO SAY THAT HE IS THE BEST GRAPHICS ARTIST ON THE COMPUTING SCENE "
TX$=TX$+" TO ANTHONY MAHAFFEY TO STEVEN BORG TO HOWARD COOPER TO JANET THOMAS HEY JANET THE OFFER OF MARRIGE IS STILL OPEN "
TX$=TX$+" WELL THAT ABOUT WRAPS THIS UP SO ILL SAY GOODBYE FOR NOW SEE YOU AGAIN IN ONE CLICK OF THAT MOUSE BUTTON *"
COPPERLIST
Music 1 : Tempo 18 : Mvolume 63
Screen To Front 0
Cls 0
X=1 : XX=360 : LETCOUNT=1 : LETCOUNT2=1
COUNTER=3330
Screen 0
Locate 0,1 : Centre "HEAVY VU'S OR WHAT ?"
Locate 0,29 : Centre "NO ITS VUCIRCLE!"
Screen Swap
Screen Copy Physic(0) To Logic(0)
Degree
Do
For COUNT=X To XX Step 10
X#=Cos(COUNT)
Y#=Cos(COUNTER)
Z#=Cos(COUNT+44)
W#=Cos(COUNTER+44)
A#=Cos(COUNT+90)
B#=Cos(COUNTER+90)
C#=Cos(COUNT+90+44)
D#=Cos(COUNTER+90+44)
E#=Cos(COUNT+180)
F#=Cos(COUNTER+180)
G#=Cos(COUNT+180+44)
H#=Cos(COUNTER+180+44)
I#=Cos(COUNT+270)
J#=Cos(COUNTER+270)
K#=Cos(COUNT+270+44)
L#=Cos(COUNTER+270+44)
AAA=AA : BBB=BB : CCC=CC : DDD=DD
AA=Vumeter(0) : If AA=0 Then AA=AAA-10
BB=Vumeter(1) : If BB=0 Then BB=BBB-10
CC=Vumeter(2) : If CC=0 Then CC=CCC-10
DD=Vumeter(3) : If DD=0 Then DD=DDD-10
If DD<0 Then DD=0
If CC<0 Then CC=0
If AA<0 Then AA=0
If BB<0 Then BB=0
Draw X#*20+160,Y#*20+128 To Z#*20+160,W#*20+128
Draw A#*20+160,B#*20+128 To C#*20+160,D#*20+128
Draw E#*20+160,F#*20+128 To G#*20+160,H#*20+128
Draw I#*20+160,J#*20+128 To K#*20+160,L#*20+128
Draw X#*(20+AA)+160,Y#*(20+AA)+128 To Z#*(20+AA)+160,W#*(20+AA)+128
Draw A#*(20+BB)+160,B#*(20+BB)+128 To C#*(20+BB)+160,D#*(20+BB)+128
Draw E#*(20+CC)+160,F#*(20+CC)+128 To G#*(20+CC)+160,H#*(20+CC)+128
Draw I#*(20+DD)+160,J#*(20+DD)+128 To K#*(20+DD)+160,L#*(20+DD)+128
Draw X#*20+160,Y#*20+128 To X#*(20+AA)+160,Y#*(20+AA)+128
Draw A#*20+160,B#*20+128 To A#*(20+BB)+160,B#*(20+BB)+128
Draw C#*20+160,D#*20+128 To C#*(20+BB)+160,D#*(20+BB)+128
Draw E#*20+160,F#*20+128 To E#*(20+CC)+160,F#*(20+CC)+128
Draw G#*20+160,H#*20+128 To G#*(20+CC)+160,H#*(20+CC)+128
Draw I#*20+160,J#*20+128 To I#*(20+DD)+160,J#*(20+DD)+128
Draw K#*20+160,L#*20+128 To K#*(20+DD)+160,L#*(20+DD)+128
Draw Z#*20+160,W#*20+128 To Z#*(20+AA)+160,W#*(20+AA)+128
If Mouse Key=1 Then Goto TEND
Screen 1 : Scroll 1 : Screen 0 : Inc LETCOUNT
If LETCOUNT=5 Then LETCOUNT=0 : Screen 1 : TXT=Asc(Mid$(TX$,LETCOUNT2,1)) : If TXT=32 Then Screen 0 : Inc LETCOUNT2 Else If TXT=42 Then LETCOUNT2=1 : Screen 0 : Goto GUP Else Paste Bob 0,256,TXT-64 : Inc LETCOUNT2 : Screen 0
GUP:
Screen Copy 1,0,0,48,300 To Logic(0),0,0 : Screen Copy 1,0,0,48,300 To Logic(0),272,0
Screen Swap : Wait Vbl : Cls 0,78,45 To 242,211 : Add COUNTER,10 : Next COUNT
COUNTER=3330 : Tempo 18
Loop
Procedure COPPERLIST
Set Rainbow 1,1,4096,"","",""
For Z=0 To 256 Step 32
Rain(1,Z+1)=$0
Rain(1,Z+2)=$300
Rain(1,Z+3)=$700
Rain(1,Z+4)=$B00
Rain(1,Z+5)=$E00
Rain(1,Z+6)=$E30
Rain(1,Z+7)=$E70
Rain(1,Z+8)=$EB0
Rain(1,Z+9)=$EE0
Rain(1,Z+10)=$BE0
Rain(1,Z+11)=$7E0
Rain(1,Z+12)=$3E0
Rain(1,Z+13)=$E0
Rain(1,Z+14)=$E3
Rain(1,Z+15)=$E7
Rain(1,Z+16)=$EB
Rain(1,Z+17)=$EE
Rain(1,Z+18)=$BE
Rain(1,Z+19)=$7E
Rain(1,Z+20)=$3E
Rain(1,Z+21)=$E
Rain(1,Z+22)=$30E
Rain(1,Z+23)=$70E
Rain(1,Z+24)=$B0E
Rain(1,Z+25)=$E0E
Rain(1,Z+26)=$E0B
Rain(1,Z+27)=$E07
Rain(1,Z+28)=$E03
Rain(1,Z+29)=$B00
Rain(1,Z+30)=$700
Rain(1,Z+31)=$300
Rain(1,Z+32)=$0
Next Z
Rainbow 1,1,40,256
End Proc
TEND:
Copper Off : For Z=63 To 0 Step -1 : Wait Vbl : Mvolume Z : Next Z : Erase 3 : Erase 1
Screen Close 1 : Screen Close 0 : Set Rainbow 1,1,16,"","","" : View : Copper On : Run "pd_04.amos"
