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