home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inside Multimedia 1995 August
/
IMM0895.ISO01.iso
/
magazin
/
optix
/
disk2
/
optxfpac.set
/
JALOUSIE.OPT
< prev
next >
Wrap
Text File
|
1995-04-25
|
574b
|
38 lines
procedure jalousie(col,verz)
locals(i,j,k,l)
setcolor(col)
for k:=0 to 1 do
if k=1
setallpal
endif
for i:=0 to 11 do
for j:=0 to ymax step 12 do
if k=0
line(0,j+i,xmax,j+i,0)
else
restoreline(0,ymax-(j+i),xmax,ymax-(j+i),0)
endif
for l := 0 to verz do
next(l)
next(j)
next(i)
next(k)
return
begin
repeat
readpic('plakat.tga')
jalousie(255,0)
readpic('spo_sass.tga')
jalousie(0,0)
until mousek<>readkey
end