home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / exbas.arj / TEMP / 06-01.BAS < prev    next >
BASIC Source File  |  1995-01-20  |  715b  |  38 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. OldMode = FGgetmode
  6. NewMode = FGautomode
  7. FGsetmode NewMode
  8.  
  9. Colors = FGcolors
  10. Xrange = FGgetmaxx - 1
  11. Yrange = FGgetmaxy - 1
  12. Left = 100
  13.  
  14. WHILE Left > 0
  15.  
  16.    X = (RND * 32767) MOD Xrange + 1
  17.    Y = (RND * 32767) MOD Yrange + 1
  18.  
  19.    Area = FGgetpixel(X-1,Y-1) + FGgetpixel(X,Y-1) + FGgetpixel(X+1,Y-1) _
  20.         + FGgetpixel(X-1,Y)   + FGgetpixel(X,Y)   + FGgetpixel(X+1,Y) _
  21.         + FGgetpixel(X-1,Y+1) + FGgetpixel(X,Y+1) + FGgetpixel(X+1,Y+1)
  22.  
  23.    IF Area = 0 THEN
  24.       PointColor = (RND * 32767) MOD Colors
  25.       FGsetcolor PointColor
  26.       FGpoint X, Y
  27.       Left = Left - 1
  28.    END IF
  29.  
  30. WEND
  31.  
  32. FGwaitkey
  33.  
  34. FGsetmode OldMode
  35. FGreset
  36.  
  37. END
  38.