home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
exbas.arj
/
TEMP
/
06-11.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-01-20
|
660b
|
38 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
DECLARE FUNCTION RandomNumber(Min,Max)
CONST Rectangles = 200
OldMode = FGgetmode
FGsetmode FGautomode
Xres = FGgetmaxx
Yres = FGgetmaxy
FOR I = 1 TO Rectangles
MinX = RandomNumber(0,Xres)
MaxX = RandomNumber(0,Xres)
MinY = RandomNumber(0,Yres)
MaxY = RandomNumber(0,Yres)
IF MinX > MaxX THEN SWAP MinX, MaxX
IF MinY > MaxY THEN SWAP MinY, MaxY
FGsetcolor RandomNumber(0,15)
FGrect MinX, MaxX, MinY, MaxY
NEXT
FGsetmode OldMode
FGreset
END
FUNCTION RandomNumber(Min,Max)
Temp = RND * 32767
RandomNumber = (Temp MOD (Max-Min+1)) + Min
END FUNCTION