home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.ISO01.iso / magazin / optix / disk2 / optxfpac.set / SLIDEPIC.OPT < prev    next >
Text File  |  1995-05-02  |  2KB  |  80 lines
  1. def(i)
  2. procedure vscroll(i,xl,yo,xr,yu,s)
  3.   rem   *** scrollt einen Bildschirmausschnitt vertikal
  4.   rem   *** flg = Scrollrichtung (0=unten nach oben, 1=oben nach unten)
  5.   rem   *** xl,yo,xr,yu = Koordinaten der Scrollbox
  6.   rem   *** s   = Schrittweite
  7.   locals(k,l)
  8.   k := s
  9.   l := yu-yo
  10.   if i<>0
  11.    k := yu-yo
  12.    l := s
  13.    s := 0-s
  14.   endif
  15.   copywin(xl,yo,xr,yu)
  16.   for i:=k to l step s do
  17.     loadsprite(0,i,xl,yo,xr-xl,(yu-yo)-i)
  18.     loadsprite(0,0,xl,yu-i,xr-xl,i)
  19.   next(i)
  20. return
  21. procedure flip(flg,xl,yo,xr,yu,s)
  22.   rem   *** erzeugt 'Schachtel'effekt mit Bildschirmausschnitt
  23.   rem   *** flg = Richtung (0=vertikal, 1=horizontal
  24.   rem   *** xl,yo,xr,yu = Koordinaten des Bildschirmausschnitts
  25.   rem   *** s   = Schrittweite              (Verändert WinPuffer-Inhalt!)
  26.   locals(i)
  27.   copywin(xl,yo,xr,yu)
  28.   if flg=0
  29.     for i:=s to yu-yo step s do
  30.      loadsprite(0,0,xl,yu-i,xr-xl,i)
  31.      loadsprite(0,(yu-yo)-i,xl,yo,xr-xl,(yu-yo)-i)
  32.     next(i)
  33.   else
  34.     for i:=s to xr-xl step s do
  35.      loadsprite(0,0,xr-i,yo,i,yu-yo)
  36.      loadsprite((xr-xl)-i,0,xl,yo,(xr-xl)-i,yu-yo)
  37.     next(i)
  38.   endif
  39. return
  40. begin
  41.   readsound('capumusi.snd')
  42.   startsound
  43.   soundloop(on)
  44.   readpic('sass1.tga')
  45.   setallpal
  46.   clearscreen(25)
  47.   scrtobuf
  48.   readpic('sass1.tga')
  49.   viewport(115,115,425,385)
  50.   cbox(10,0,0)
  51.   viewport(100,100,400,360)
  52.   cbox(5,179,0)
  53.   plateau(179,8)
  54.   setcolor(0)
  55.   viewport(101,301,399,359)
  56.   cbox(8,192,0)
  57.   sysfont(3,1)
  58.   printc(252,180,'OPTIX-PicSlide')
  59.   setcolor(0)
  60.   line(101,301,399,301,0)
  61.   viewport(101,101,399,300)
  62.   scrtobuf
  63.   movebitmap(101,300,101,101,50,0,1)
  64.   flip(0,101,101,101+winx,301,2)
  65.   movebitmap(101,101,101,300,50,0,1)
  66.   scrtobuf
  67.   readpic('sass2.tga')
  68.   movebitmap(101,300,101,101,50,0,1)
  69.   vscroll(0,101,101,101+winx,301,4)
  70.   movebitmap(101,101,101,300,50,0,1)
  71.   scrtobuf
  72.   readpic('sass3.tga')
  73.   movebitmap(101,300,101,101,50,0,1)
  74.   flip(1,101,101,101+winx,301,10)
  75.   vscroll(1,101,101,101+winx,301,4)
  76.   movebitmap(101,101,101,300,50,0,1)
  77.   pause(1000)
  78. end
  79.  
  80.