home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 July / IMM0795.ISO / demo / optix / optxfpac.set / JALOUSIE.OPT < prev    next >
Text File  |  1995-04-25  |  574b  |  38 lines
  1.  
  2. procedure jalousie(col,verz)
  3.   locals(i,j,k,l)
  4.   setcolor(col)
  5.   for k:=0 to 1 do
  6.     if k=1
  7.       setallpal
  8.     endif
  9.     for i:=0 to 11 do
  10.       for j:=0 to ymax step 12 do
  11.         if k=0
  12.           line(0,j+i,xmax,j+i,0)
  13.         else
  14.           restoreline(0,ymax-(j+i),xmax,ymax-(j+i),0)
  15.         endif
  16.         for l := 0 to verz do
  17.         next(l)
  18.       next(j)
  19.     next(i)
  20.   next(k)
  21. return
  22.  
  23.  
  24. begin
  25.  
  26.   repeat
  27.     readpic('plakat.tga')
  28.     jalousie(255,0)
  29.     readpic('spo_sass.tga')
  30.     jalousie(0,0)
  31.   until mousek<>readkey
  32.  
  33.  
  34. end
  35.  
  36.  
  37.  
  38.