home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 313a.lha / FractalSlides / fantastic_fractals < prev    next >
Encoding:
Text File  |  1989-11-30  |  3.8 KB  |  155 lines
  1. rem
  2. rem   do the slide show while loading up movie frames
  3. rem
  4.       execute a,"assign instruments: fractal_slides:instruments"
  5.       execute a,"run fractal_slides:dplay fractal_slides:2001.smus"
  6.       buff1 = 1
  7.       buff2 = 2
  8.       delay = 00
  9. rem
  10. rem   do the intro
  11. rem
  12.       load buff2,"fractal_slides:intro"
  13.       load buff1,"fractal_slides:intro2"
  14.       display buff2
  15.       x = 20
  16.       for y = 33 to 130 step 16
  17.         pause 2
  18.         blit buff1,x,y,x,y,159,15
  19.         x = x + 14
  20.       next
  21.       pause 10
  22.       blit buff1,115,156,115,156,150,20
  23.       cycle 1
  24.       pause 40
  25.       load buff1,"fractal_slides:intro3"
  26.       dissolve buff1,0,0,0,0,320,200,3000
  27.       cycle 0
  28.       pause 20
  29. rem
  30. rem   start the slide show
  31. rem
  32.       load buff1,"fractal_slides:young-gal.ilbm"
  33.       gosub 10
  34.       loadfast  4,"fractal_movie:frame000"
  35.       load buff1,"fractal_slides:horse-tail3.ilbm"
  36.       gosub 10
  37.       loadfast  5,"fractal_movie:frame001"
  38.       load buff1,"fractal_slides:link.2.ilbm"
  39.       gosub 10
  40.       loadfast  6,"fractal_movie:frame002"
  41.       load buff1,"fractal_slides:pretty-baby1.ilbm"
  42.       gosub 10
  43.       loadfast  7,"fractal_movie:frame003"
  44.       load buff1,"fractal_slides:stinger3d.ilbm"
  45.       gosub 10
  46.       loadfast  8,"fractal_movie:frame004"
  47.       load buff1,"fractal_slides:webbed.ilbm"
  48.       gosub 10
  49.       loadfast  9,"fractal_movie:frame005"
  50.       load buff1,"fractal_slides:baby-stinger3d.ilbm"
  51.       gosub 10
  52.       loadfast 10,"fractal_movie:frame006"
  53.       load buff1,"fractal_slides:horse-net.5.ilbm"
  54.       gosub 10
  55.       loadfast 11,"fractal_movie:frame007"
  56.       load buff1,"fractal_slides:vista.ilbm"
  57.       gosub 10
  58.       loadfast 12,"fractal_movie:frame008"
  59.       load buff1,"fractal_slides:cats-eye2.3.ilbm"
  60.       gosub 10
  61.       loadfast 13,"fractal_movie:frame009"
  62. rem
  63. rem   movie starts here
  64. rem
  65. 5     speed   2
  66.       copy    4,buff1
  67.       display buff1
  68.       pause   delay
  69.       buff2 = 3-buff1
  70.       for i=1 to 15
  71.         pause   2
  72.         copy    4,buff1
  73.         display buff1
  74.         pause   2
  75.         copy    5,buff2
  76.         display buff2
  77.         pause   1
  78.         copy    6,buff1
  79.         display buff1
  80.         copy    7,buff2
  81.         display buff2
  82.         copy    8,buff1
  83.         display buff1
  84.         copy    9,buff2
  85.         display buff2
  86.         copy    10,buff1
  87.         display buff1
  88.         copy    11,buff2
  89.         display buff2
  90.         pause   1
  91.         copy    12,buff1
  92.         display buff1
  93.         pause   2
  94.         copy    13,buff2
  95.         display buff2
  96.         pause   2
  97.         copy    12,buff1
  98.         display buff1
  99.         pause   1
  100.         copy    11,buff2
  101.         display buff2
  102.         copy    10,buff1
  103.         display buff1
  104.         copy    9,buff2
  105.         display buff2
  106.         copy    8,buff1
  107.         display buff1
  108.         copy    7,buff2
  109.         display buff2
  110.         copy    6,buff1
  111.         display buff1
  112.         pause   1
  113.         copy    5,buff2
  114.         display buff2
  115.         ifmouse x,y
  116.         if x # -1
  117.           end
  118.         endif
  119.       next
  120. rem
  121. rem   ok do the slide show again
  122. rem
  123.       speed   1
  124.       load buff1,"fractal_slides:young-gal.ilbm"
  125.       gosub 10
  126.       load buff1,"fractal_slides:horse-tail3.ilbm"
  127.       gosub 10
  128.       load buff1,"fractal_slides:link.2.ilbm"
  129.       gosub 10
  130.       load buff1,"fractal_slides:pretty-baby1.ilbm"
  131.       gosub 10
  132.       load buff1,"fractal_slides:stinger3d.ilbm"
  133.       gosub 10
  134.       load buff1,"fractal_slides:webbed.ilbm"
  135.       gosub 10
  136.       load buff1,"fractal_slides:baby-stinger3d.ilbm"
  137.       gosub 10
  138.       load buff1,"fractal_slides:horse-net.5.ilbm"
  139.       gosub 10
  140.       load buff1,"fractal_slides:vista.ilbm"
  141.       gosub 10
  142.       load buff1,"fractal_slides:cats-eye2.3.ilbm"
  143.       goto 5
  144.  
  145. 10    display buff1
  146.       buff1 = 3-buff1
  147.       buff2 = 3-buff1
  148.       ifmouse x,y
  149.       if x # -1
  150.         end
  151.       endif
  152.       pause delay
  153.       return
  154.  
  155.