Sorry your browser is not supported!

Rem Project: Dots01

randomize timer()

for i = 1 to 10000
    color = rgb(rnd(255), rnd(255), rnd(255))
    ink color,0
    
    x = rnd(screen width())-1
    y = rnd(screen height())-1
    dot x, y
NEXT i

x = rnd(screen width())-1
y = rnd(screen height())-1

remstart
    Checks to see if the red, green and blue components of the given point are 0.
    If all 3 components are 0, the pixel is black(rgb(0,0,0)).
remend 
if rgbr(point(x, y)) = 0 and rgbg(point(x, y)) = 0 and rgbb(point(x, y)) = 0
    set text size 20
    ink rgb(255,255,255),0
    print "The pixel at ", x, ", ", y, " is black"
else
    set text size 20
    ink rgb(255,255,255),0
    print "The pixel at ", x, ", ", y, " is not black"
ENDIF

wait key
end

randomize timer()
sync on : sync rate 60 : sync

for i = 1 to 10000
    color = rgb(rnd(255), rnd(255), rnd(255))
    ink color,0
    
    x = rnd(screen width())-1
    y = rnd(screen height())-1
    dot x, y
NEXT i

// create and store an image based off the above assortment of pixels
get image 1, 0, 0, screen width(), screen height()

// clear the screen
cls



remstart
    Checks to see if the red, green and blue components of the given point are 0.
    If all 3 components are 0, the pixel is black(rgb(0,0,0)).
remend

// set the text size and colour
set text size 20
ink rgb(255,255,255),0
        
do
    // display the image
    paste image 1, 0, 0
    
    // retrieve mouse coordinates
    x = mousex()
    y = mousey()
    
    // test the point at the mouse coordinates to see if it is black
    if rgbr(point(x, y)) = 0 and rgbg(point(x, y)) = 0 and rgbb(point(x, y)) = 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 not black"
    endif
    
    sync
loop