home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 July / IMM0795.ISO / demo / optix / optxfpac.set / KACHEL.INC < prev    next >
Text File  |  1995-04-05  |  476b  |  19 lines
  1. procedure kachel
  2.   rem** produziert aus dem aktuellen Winpuffer-Inhalt einen kachelartigen
  3.   rem** Bildschirmhintergrund mit Relief-Effekt (verändert WinPuffer)
  4.   locals(qx,qy,i,j)
  5.   random(winx/2,qx)
  6.   random(winy/2,qy)
  7.   for I:=0 to 19 do
  8.     loadsprite(qx,qy,2+i*32,2,28,20)
  9.     viewport(2+i*32,2,2+i*32+28,22)
  10.     plateau(7,0)
  11.     incviewport
  12.     plateau(7,0)
  13.   next(i)
  14.   copywin(0,0,xmax,24)
  15.   for I:=0 to 19 do
  16.     loadwin(0,i*24,0,0)
  17.   next(i)
  18. return
  19.