home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / ROUNDREC.IPS < prev    next >
Text File  |  1998-03-25  |  340b  |  16 lines
  1. VAR
  2.    i : integer; 
  3. ENDVAR
  4.  
  5. PROCEDURE main
  6.    ImageShow;
  7.    ImageInit(380, 220)
  8.    FOR i := 1 to 100
  9.       ImagePenColor(random($ffffff));
  10.       ImageBrushColor(random($ffffff));
  11.       roundRect(random(380), random(220),
  12.                 random(380), random(220),
  13.                 random(380), random(220));
  14.    ENDFOR
  15. ENDPROC
  16.