home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inside Multimedia 1995 August
/
IMM0895.ISO01.iso
/
magazin
/
optix
/
disk2
/
optxfpac.set
/
VLOAD.OPT
< prev
next >
Wrap
Text File
|
1995-04-22
|
712b
|
33 lines
procedure vload
locals(x,k)
For X:=0 To ymax/2 Step 2 do
restoreLine(X*(xmax/ymax)+k,k,X*(xmax/ymax)+k,ymax+k,0)
restoreline(xmax-X*(xmax/ymax)+k,k,xmax-X*(xmax/ymax)+k,ymax+k,0)
restoreLine(k,X+k,xmax+k,X+k,0)
restoreLine(k,ymax-X+k,xmax+k,ymax-X+k,0)
Next(X)
fadepal(1)
For X:=ymax/2 To 0 Step -2 do
restoreLine(X*(xmax/ymax)+k,k,X*(xmax/ymax)+k,ymax+k,0)
restoreline(xmax-X*(xmax/ymax)+k,k,xmax-X*(xmax/ymax)+k,ymax+k,0)
restoreLine(k,X+k,xmax+k,X+k,0)
restoreLine(k,ymax-X+k,xmax+k,ymax-X+k,0)
Next(X)
Return
begin
repeat
readpic('plakat.tga')
vload
readpic('spo_sass.tga')
vload
until mousek<>keypressed
end