Sorry your browser is not supported!

randomize timer()

screen_width = screen width()
screen_height = screen height()

cls
for i = 1 to 100
    color = rgb(rnd(255), rnd(255), rnd(255))
    ink color, 0
    x = rnd(screen_width)
    y = rnd(screen_height)
    dot x, y
NEXT i


for i = 1 to 30
    ink rgb(255, 255, 0), 0
    x = rnd(screen_width)
    y = rnd(screen_height)
    if point(x, y) = rgb(0,0,0)
        print "The pixel at ", x, ", ", y, " is black."
    else
        print "The pixel at ", x, ", ", y, " is not black."
    ENDIF
next i

wait key
end

REM *** Seed random number generator ***
RANDOMIZE TIMER ()

REM *** Get the screen dimensions ***
width = SCREEN WIDTH ()
height = SCREEN HEIGHT()

REM *** Clear the screen ***
CLS

FOR c = 1 TO 10000
	REM *** Choose a colour at random ***
	colour = RGB(RND(255),RND(255),RND(255))
	INK colour,0
	REM *** Choose random position ***
	x = RND(width)
	Y = RND(height)
	REM *** Draw a pixel on screen ***
	DOT x, y
NEXT c

REM *** Check colour of random pixel ***
x = RND(width)
y = RND(height)
IF POINT(x,y) = RGB(0,0,0)
	PRINT "The pixel at position (",x,",",y,")is black"
ELSE
	PRINT "The pixel at position (",x,",",y,")is not black"
ENDIF

REM *** End program ***
WAIT KEY
END

COLOR BACKDROP 0
backdrop on
randomize timer()
SYNC ON
SYNC RATE 60
screen_width = screen width()
screen_height = screen height()
dim pix(100)
dim piy(100)
dim pic(100)
cls
for i = 1 to 100
    color = rgb(rnd(255), rnd(255), rnd(255))
    `ink color, 0
    x = rnd(screen_width)
    y = rnd(screen_height)
   pix(i)=x
   piy(i)=y 
   pic(i)=color
   dot x, y,color
NEXT i


do
for i = 1 to 30
dot pix(i),piy(i),pic(i)
next i
    ink rgb(255, 255, 0), 0
 `   x = rnd(screen_width)
  `  y = rnd(screen_height)
    x= mousex()
    y= mousey()
    if point(x, y)=rgb(0,0,0)
     TEXT 0,0, "The pixel at "+str$(x)+ ", "+str$(y)+ " is black."
     else
     text 0,0, "The pixel at "+str$(x)+ ", "+str$(y)+ " is "+str$(rgbr(point(x,y)))+","+str$(rgbg(point(x,y)))+","+str$(rgbb(point(x,y)))
     ENDIF
sync
 loop
`next i

wait key
end

`#CONSTANTS are veeery different..
   #CONSTANT afloat 5.0
`..to variables.
   n = 5.0
   a = 9.0

`On-screen info, makes it look better
   INK RGB(150, 150, 200), RGB(0,0,0)
   PRINT "#CONSTANT";
   INK RGB(255,255,255), RGB(0,0,0)
   PRINT " afloat 5.0"
   PRINT "a = 9.0"
   PRINT "n = 9.0"
   PRINT ""
   INK RGB(150, 150, 200), RGB(0,0,0)
   PRINT "Function";
   INK RGB(255,255,255), RGB(0,0,0)
   PRINT " FLOT(Value)"
   PRINT "      RetVal# = Value / 1.0"
   INK RGB(150, 150, 200), RGB(0,0,0)
   PRINT "EndFunction";
   INK RGB(255,255,255), RGB(0,0,0)
   PRINT " RetVal#"
   PRINT ""

`First run, not using a return function
   PRINT "Without a Return Function:"
   m# = a / 5
   PRINT "m# = a / 5 = " + STR$(m#)
   m# = a / n
   PRINT "m# = a / n = " + STR$(m#)
   `Notice how the constant works. Constants are substituted before compilation, hence they aren't defined as strings/integers/etc.
   `Just an easter egg.
   m# = a / afloat
   PRINT "m# = a / afloat = " + STR$(m#)
   m# = a / 5.0
   PRINT "m# = a / 5.0 = " + STR$(m#)
   PRINT ""

`Now run the same calculations using a return function
   PRINT "With a Return Function:"
   m# = FLOT(a) / 5
   PRINT "m# = FLOT(a) / 5 = " + STR$(m#)
   m# = FLOT(a) / n
   PRINT "m# = FLOT(a) / n = " + STR$(m#)
   m# = FLOT(a) / afloat
   PRINT "m# = FLOT(a) / afloat = " + STR$(m#)
   m# = FLOT(a) / 5.0
   PRINT "m# = FLOT(a) / 5.0 = " + STR$(m#)

`Self-explanatory
   WAIT KEY
   END


Function FLOT(Value)
`Works like INT with integers except this is for floats
      RetVal# = Value / 1.0
EndFunction RetVal#

rem *** show component values of a randomly generated color ***

rem *** create randomly generated color ***
randomize timer()
color = rgb(rnd(255), rnd(255), rnd(255))

rem *** extract components of this color ***
red = rgbr(color)
green = rgbg(color)
blue = rgbb(color)

rem *** assign each component its own separate color ***
redColor = rgb(red, 0, 0)
greenColor = rgb(0, green, 0)
blueColor = rgb(0, 0, blue) 

rem *** display the color details ***
print "The generated color value is ", color
print "The generated color looks like this:"
rem *** use the new color ***
ink color, 0
print "////||||\\\\"

rem *** now show the individual components details ***
ink rgb(255,255,255),0 rem *** for normal white text ***
print "The generated color has the following settings..."

rem *** now we can display the color properties and color for each ***
print "Red component: ", red
ink redColor, 0 rem *** set the color and then display it under the properties ***
print "////||||\\\\" 

ink rgb(255,255,255),0 rem *** reset to white text ***
print "Green component: ", green
ink greenColor, 0
print "////||||\\\\"

ink rgb(255,255,255),0
print "Blue component: ", blue
ink blueColor, 0
print "////||||\\\\"

wait key
end

REM *** Seed random number generator ***
RANDOMIZE TIMER()
REM *** Clear the screen ***
CLS
FOR c = 1 TO 1000
REM *** Choose a colour at random ***
colour = RGB(RND(255),RND(255),RND(255))
INK colour,0
REM *** Choose random position on screen ***
x = RND(800)
y = RND(600)
REM *** Draw pixel on screen ***
DOT x,y
NEXT c
REM *** End program ***
WAIT KEY
END

REM *** Seed random number generator ***
RANDOMIZE TIMER()
REM *** Clear the screen ***
ScrWid = screen width() : ScrHgt = screen height()
CLS
StartTime = timer()
lock pixels
FOR c = 1 TO 1000
    REM *** Choose a colour at random ***
    colour = RGB(RND(255),RND(255),RND(255))
    INK colour,0
    REM *** Choose random position on screen ***
    x = RND(ScrWid - 1)
    y = RND(ScrHgt - 1)
    REM *** Draw pixel on screen ***
    DOT x,y
NEXT c
unlock pixels
EndTime = timer()
elapsed = EndTime - StartTime
repeat
      center text 400,300,"elapsed = " + str$(elapsed)
      sync
until scancode() > 0

REM *** End program ***
`WAIT KEY
END