home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / GREYPLOT.OPT < prev    next >
Text File  |  1995-04-27  |  894b  |  65 lines
  1.  
  2. def(i)
  3. def(j)
  4. def(x)
  5. def(y)
  6. def(xof)
  7. def(yof)
  8. def(r)
  9. defai(arr,5,4000)
  10.  
  11. begin
  12.  
  13.   new(arr)
  14.  
  15.   clearscreen(15)
  16.  
  17.   for i:=1 to 1000 do
  18.  
  19.     random(640,x)
  20.     random(480,y)
  21.     random(4,xof)
  22.     random(4,yof)
  23.     random(12,r)
  24.     arr[1,i]:=x
  25.     arr[2,i]:=y
  26.     arr[3,i]:=xof
  27.     arr[4,i]:=yof
  28.     arr[5,i]:=r
  29.  
  30.     disk(x,y,r,8)
  31.   next(i)
  32.  
  33.   for i:=1 to 1000 do
  34.     x  :=arr[1,i]
  35.     y  :=arr[2,i]
  36.     xof:=arr[3,i]
  37.     yof:=arr[4,i]
  38.     r  :=arr[5,i]
  39.     random(15,j)
  40.     disk(x-xof,y-yof,r,j)
  41.     disk(x-xof-2,y-yof-2,xof,15)
  42.   next(i)
  43.  
  44.   sysfont(3,1)
  45.  
  46.   viewport(240,220,400,260)
  47.   cbox(9,14,0)
  48.   plateau(15,0)
  49.  
  50.   setcolor(0)
  51.   for i:=-1 to 1 do
  52.     for j:=-1 to 1 do
  53.       printc(320+i,240+j,'GREYPLOT?')
  54.       printc(322+i,242+j,'GREYPLOT?')
  55.     next(j)
  56.   next(i)
  57.  
  58.   setcolor(12)
  59.   printc(320,240,'GREYPLOT?')
  60.  
  61.   pause(0)
  62.  
  63. end
  64.  
  65.