home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 July / IMM0795.ISO / demo / optix / optxfpac.set / VLOAD.OPT < prev    next >
Text File  |  1995-04-22  |  712b  |  33 lines
  1.  
  2. procedure vload
  3.   locals(x,k)
  4.  
  5.   For X:=0 To ymax/2 Step 2 do
  6.     restoreLine(X*(xmax/ymax)+k,k,X*(xmax/ymax)+k,ymax+k,0)
  7.     restoreline(xmax-X*(xmax/ymax)+k,k,xmax-X*(xmax/ymax)+k,ymax+k,0)
  8.     restoreLine(k,X+k,xmax+k,X+k,0)
  9.     restoreLine(k,ymax-X+k,xmax+k,ymax-X+k,0)
  10.   Next(X)
  11.  
  12.   fadepal(1)
  13.  
  14.   For X:=ymax/2 To 0 Step -2 do
  15.     restoreLine(X*(xmax/ymax)+k,k,X*(xmax/ymax)+k,ymax+k,0)
  16.     restoreline(xmax-X*(xmax/ymax)+k,k,xmax-X*(xmax/ymax)+k,ymax+k,0)
  17.     restoreLine(k,X+k,xmax+k,X+k,0)
  18.     restoreLine(k,ymax-X+k,xmax+k,ymax-X+k,0)
  19.   Next(X)
  20. Return
  21.  
  22. begin
  23.  
  24.  repeat
  25.    readpic('plakat.tga')
  26.    vload
  27.    readpic('spo_sass.tga')
  28.    vload
  29.  until mousek<>keypressed
  30.  
  31. end
  32.  
  33.