home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
313a.lha
/
FractalSlides
/
fantastic_fractals
< prev
next >
Wrap
Text File
|
1989-11-30
|
4KB
|
155 lines
rem
rem do the slide show while loading up movie frames
rem
execute a,"assign instruments: fractal_slides:instruments"
execute a,"run fractal_slides:dplay fractal_slides:2001.smus"
buff1 = 1
buff2 = 2
delay = 00
rem
rem do the intro
rem
load buff2,"fractal_slides:intro"
load buff1,"fractal_slides:intro2"
display buff2
x = 20
for y = 33 to 130 step 16
pause 2
blit buff1,x,y,x,y,159,15
x = x + 14
next
pause 10
blit buff1,115,156,115,156,150,20
cycle 1
pause 40
load buff1,"fractal_slides:intro3"
dissolve buff1,0,0,0,0,320,200,3000
cycle 0
pause 20
rem
rem start the slide show
rem
load buff1,"fractal_slides:young-gal.ilbm"
gosub 10
loadfast 4,"fractal_movie:frame000"
load buff1,"fractal_slides:horse-tail3.ilbm"
gosub 10
loadfast 5,"fractal_movie:frame001"
load buff1,"fractal_slides:link.2.ilbm"
gosub 10
loadfast 6,"fractal_movie:frame002"
load buff1,"fractal_slides:pretty-baby1.ilbm"
gosub 10
loadfast 7,"fractal_movie:frame003"
load buff1,"fractal_slides:stinger3d.ilbm"
gosub 10
loadfast 8,"fractal_movie:frame004"
load buff1,"fractal_slides:webbed.ilbm"
gosub 10
loadfast 9,"fractal_movie:frame005"
load buff1,"fractal_slides:baby-stinger3d.ilbm"
gosub 10
loadfast 10,"fractal_movie:frame006"
load buff1,"fractal_slides:horse-net.5.ilbm"
gosub 10
loadfast 11,"fractal_movie:frame007"
load buff1,"fractal_slides:vista.ilbm"
gosub 10
loadfast 12,"fractal_movie:frame008"
load buff1,"fractal_slides:cats-eye2.3.ilbm"
gosub 10
loadfast 13,"fractal_movie:frame009"
rem
rem movie starts here
rem
5 speed 2
copy 4,buff1
display buff1
pause delay
buff2 = 3-buff1
for i=1 to 15
pause 2
copy 4,buff1
display buff1
pause 2
copy 5,buff2
display buff2
pause 1
copy 6,buff1
display buff1
copy 7,buff2
display buff2
copy 8,buff1
display buff1
copy 9,buff2
display buff2
copy 10,buff1
display buff1
copy 11,buff2
display buff2
pause 1
copy 12,buff1
display buff1
pause 2
copy 13,buff2
display buff2
pause 2
copy 12,buff1
display buff1
pause 1
copy 11,buff2
display buff2
copy 10,buff1
display buff1
copy 9,buff2
display buff2
copy 8,buff1
display buff1
copy 7,buff2
display buff2
copy 6,buff1
display buff1
pause 1
copy 5,buff2
display buff2
ifmouse x,y
if x # -1
end
endif
next
rem
rem ok do the slide show again
rem
speed 1
load buff1,"fractal_slides:young-gal.ilbm"
gosub 10
load buff1,"fractal_slides:horse-tail3.ilbm"
gosub 10
load buff1,"fractal_slides:link.2.ilbm"
gosub 10
load buff1,"fractal_slides:pretty-baby1.ilbm"
gosub 10
load buff1,"fractal_slides:stinger3d.ilbm"
gosub 10
load buff1,"fractal_slides:webbed.ilbm"
gosub 10
load buff1,"fractal_slides:baby-stinger3d.ilbm"
gosub 10
load buff1,"fractal_slides:horse-net.5.ilbm"
gosub 10
load buff1,"fractal_slides:vista.ilbm"
gosub 10
load buff1,"fractal_slides:cats-eye2.3.ilbm"
goto 5
10 display buff1
buff1 = 3-buff1
buff2 = 3-buff1
ifmouse x,y
if x # -1
end
endif
pause delay
return