home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1997 October
/
Chip_1997-10_cd.bin
/
invex
/
ozogan
/
roundrec.ips
< prev
next >
Wrap
Text File
|
1997-04-30
|
325b
|
15 lines
VAR
i : integer;
ENDVAR
PROCEDURE main
ImageInit(380, 220)
FOR i := 1 to 100
ImagePenColor(random($ffffff));
ImageBrushColor(random($ffffff));
roundRect(random(380), random(220),
random(380), random(220),
random(380), random(220));
ENDFOR
ENDPROC