home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / WAVEPIC.OPT < prev    next >
Text File  |  1994-06-29  |  1KB  |  88 lines
  1. def(r1)
  2. def(g1)
  3. def(b1)
  4. def(r2)
  5. def(g2)
  6. def(b2)
  7.  
  8. def(i)
  9. def(j)
  10. def(k)
  11. def(x)
  12. def(y)
  13.  
  14. def(sin)
  15. def(cos)
  16.  
  17. defai(sinarr,2,360)
  18.  
  19.  
  20. begin
  21.  
  22.   new(sinarr)
  23.   readarr(sinarr,'sincos.tab')
  24.   readpic('optix256.tga')
  25.   setallpal
  26.  
  27.   keycol(126)
  28.   key(on)
  29.  
  30.   k:=0
  31.   for i:=240 downto 20 do
  32.  
  33.     sin:=sinarr[1,i]
  34.     cos:=sinarr[2,i]
  35.     x:=180+sin* 60/1000
  36.     y:=230+cos*170/1000
  37.  
  38.     loadsprite(0,k*2,x,y,winx,31)
  39.     k:=k+1
  40.  
  41.   next(i)
  42.  
  43.   loadwin(10,10,21,0)
  44.   copywin(10,10,10+winx/3-1,10+winy/3-1)
  45.  
  46.   for i:=75 to 250 do
  47.  
  48.     sin:=sinarr[1,i]
  49.     cos:=sinarr[2,i]
  50.     x:= 80+sin*60/1000
  51.     y:=300+cos*30/1000
  52.  
  53.     loadsprite(i-75,0,x,y,1,winy)
  54.  
  55.   next(i)
  56.  
  57.   readpic('optix256.tga')
  58.   setallpal
  59.  
  60.   random(32,r1)
  61.   random(64,g1)
  62.   random(32,b1)
  63.  
  64. :lloop
  65.  
  66.   random(64,r2)
  67.   random(32,g2)
  68.   random(64,b2)
  69.  
  70.   gradation(230,1,r1,g1,b1,r2,g2,b2)
  71.   getpal
  72.  
  73.   r1 := r2
  74.   g1 := g2
  75.   b1 := b2
  76.  
  77.   for i:=1 TO 230 DO
  78.  
  79.     rotpal(1,230)
  80.  
  81.   next(i)
  82.  
  83.   fadeout(1)
  84.   goto('lloop')
  85.  
  86. end
  87.  
  88.