home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / ozogan / ROUNDREC.IPS < prev    next >
Text File  |  1997-04-30  |  325b  |  15 lines
  1. VAR
  2.    i : integer; 
  3. ENDVAR
  4.  
  5. PROCEDURE main
  6.    ImageInit(380, 220)
  7.    FOR i := 1 to 100
  8.       ImagePenColor(random($ffffff));
  9.       ImageBrushColor(random($ffffff));
  10.       roundRect(random(380), random(220),
  11.                 random(380), random(220),
  12.                 random(380), random(220));
  13.    ENDFOR
  14. ENDPROC
  15.