home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / BGROUNDS.OPT < prev    next >
Text File  |  1995-03-21  |  845b  |  47 lines
  1. def(i)
  2. def(j,55)
  3. def(k,12)
  4. def(l,18)
  5. def(m)
  6.  
  7. procedure bshade(xl,yo,xr,yu,d,c1,c2)
  8.   viewport(xl,yo+d,xl+d-1,yu-d)
  9.   cbox(9,c1,0)
  10.   viewport(xl,yo,xr,yo+d-1)
  11.   cbox(9,c1,0)
  12.   viewport(xr-d+1,yo+d,xr,yu-d)
  13.   cbox(9,c2,0)
  14.   viewport(xl,yu-d+1,xr,yu)
  15.   cbox(9,c2,0)
  16.   viewport(xl,yo,xr,yu)
  17.   plateau(c1,c2)
  18. return
  19.  
  20. begin
  21.  
  22. clearscreen(0)
  23. readpic('bgrounds.bmp')
  24. setallpal
  25. loadwin(0,43,0,0)
  26. copywin(240,310,400,420)
  27. for i:=0 to 7 do
  28.    loadwin(i*80,0,20,0)
  29.    loadwin(i*80,436,20,0)
  30. next(i)
  31.  
  32.   repeat
  33.     xor(m,1)
  34.     for i:=13 to 639 step 80 do
  35.       if m=0
  36.         bshade(i,k,i+j,k+l,6,234,0)
  37.         bshade(i,ymax-k-l,i+j,ymax-k,6,234,0)
  38.       else
  39.         bshade(i,k,i+j,k+l,6,0,234)
  40.         bshade(i,ymax-k-l,i+j,ymax-k,6,0,234)
  41.       endif
  42.     next(i)
  43.     wait(500)
  44.   until mousek<>keypressed
  45.  
  46. end
  47.