home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 July / IMM0795.ISO / demo / optix / optxfpac.set / TULIPTXT.OPT < prev    next >
Text File  |  1995-05-04  |  2KB  |  99 lines
  1. defs(text$)
  2. def(bcol,5)
  3. def(tcol,220)
  4. def(c)
  5. def(i)
  6. def(j)
  7. def(k)
  8. def(t)
  9. def(hoch)
  10. def(lang)
  11. def(x)
  12. def(y)
  13. defai(sincos,2,360)
  14.  
  15. begin
  16.   new(sincos)
  17.   readarr(sincos,'sincos.tab')
  18.  
  19.   setvol(15)
  20.   readsound('auahoch.snd')
  21.   fadeout(0)
  22.  
  23.   text$ := 'TULIPS'
  24.   rem ****  ^^^^^^--- dieser Text kann beliebig verändert werden
  25.   readwin('TULIPS.TGA')
  26.   keycol(215)
  27.  
  28.   rem ****   !!!!!!!!!!!!!!!!!! Für zweite Demo REMs entfernen !!!!!
  29.   rem ****   text$ :='DAISY'
  30.   rem ****   readwin('DAISY.TGA')
  31.   rem ****   keycol(149)
  32.   rem ****   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  33.  
  34.   loadwin(320,0,20,0)             *** Blumen verkleinern
  35.   copywin(320,0,320+winx/2,winy/2)
  36.   clearscreen(bcol)
  37.   setallpal
  38.   key(on)
  39.  
  40.   readfont(1,'hel15x29.fnt')      *** texteinstellung
  41.   font(1)
  42.   textcolor(tcol)
  43.   textcofs(1)
  44.   printat(1,0,text$)
  45.   printat(2,0,text$)
  46.   texth(hoch)
  47.   textw(text$,lang)
  48.  
  49.   for i:=0 to lang+1 do           *** Schriftaufbau
  50.     for j:=0 to hoch-6 do
  51.       getpixel(i,j,c)
  52.       plotc(i,j,bcol)
  53.       random(4,x)
  54.       random(4,y)
  55.       if c<>tcol
  56.         rem *** rechtwinklig: loadsprite(x*20,y*18,i*65/10,75+j*7,20,18)
  57.         loadsprite(x*20,y*18,i*68*sincos[1,95]/10000-j*7*sincos[2,95]/1000,75+j*7+i*7*sincos[2,95]/1000,20,18)
  58.       else
  59.         loadsprite(x*20,y*18,i*65/10,305+j*5,20,18)
  60.       endif
  61.       noise(i*10+j+50,100)
  62.     next(j)
  63.     startsound
  64.   next(i)
  65.  
  66.   copywin(0,0,xmax,ymax)          *** snapshot
  67.  
  68.   viewport(0,0,xmax,300)
  69.   cbox(9,215,0)
  70.  
  71.   keycol(bcol)
  72.  
  73.   setcolor(0)                     *** Licht/Schatten-Maske
  74.   loadwin(6,6,17,0)
  75.   setcolor(215)
  76.   loadwin(0,0,16,0)
  77.   loadwin(1,1,16,0)
  78.   loadwin(2,2,0,0)
  79.   copywin(0,0,xmax,ymax)
  80.  
  81.   rem  savewin('tuliptxt.bmp')    *** evtl. sichern
  82.  
  83.   readsound('capumusi.snd')
  84.   startsound
  85.   key(off)
  86.  
  87.   for i:=0 to xmax step 8 do      *** bildbewegung
  88.     loadsprite(0,320,i,318,xmax-i,200)
  89.   next(i)
  90.  
  91.   for i:=15 downto 5 do           *** soundblende
  92.     wait(200)
  93.     setvol(i)
  94.   next(i)
  95.   fadeout(1)
  96.   stopsound
  97.   setvol(15)
  98. end
  99.