home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inside Multimedia 1995 August
/
IMM0895.ISO01.iso
/
magazin
/
optix
/
disk2
/
optxfpac.set
/
DITHER.INC
< prev
next >
Wrap
Text File
|
1995-04-05
|
821b
|
26 lines
procedure dither(flg,x,y,c,d,r)
rem *** zeichnet eine Dither-Block auf Hintergrund 4*(64*l)
rem *** flg = verlauf v.oben nach unten (0) oder umgekehrt (1)
rem *** x,y = X-/Y-Koord. f.linke, obere BoxEcke
rem *** c = Dither-Farbe d = Verlaufshöhe
rem *** r = Höhen-Raster (Ditherhöhe=64 * r)
rem *** erwartet die glob.Var's 'DUM1$','DUM2$','DUM1','DUM2' u.'DUM3'
locals(i,j)
dum1$:='00 22 20 02 11 33 31 13 10 32 30 12 01 23 21 03 '
for i:=0 to d*r-1 do
for j:=0 to i/r do
dum2$:=dum1$
mid(dum2$,j*3+1,1)
val(dum2$,dum1,dum3)
dum2$:=dum1$
mid(dum2$,j*3+2,1)
val(dum2$,dum2,dum3)
if flg<>0
plotc(x+dum1,y+dum2+i*4,c)
else
plotc(x+dum1,y+d*r*4-1-dum2-i*4,c)
endif
next(j)
next(i)
return