There are a couple ways of doing it. The easiest would be load and paste the image, then use POINT(x,y) to find the color value:
sync on
sync rate 0
load image "c:\DBP\colors.png", 1
dim myMap(image width(1), image height(1))
paste image 1, 0,0
for y = 0 to image height(1)
for x = 0 to image width(1)
myMap(x, y) = point(x,y)
next x
next y
do
set cursor 0,64:
print "Red: " + str$(rgbr(myMap(10,10)))
print "Blue: " + str$(rgbg(myMap(10,10)))
print "Green: " + str$(rgbb(myMap(10,10)))
sync
loop
You could also use memblocks, but the above works pretty well.
Everybody is a genius. But if you judge a fish by its ability to climb a tree, it will live its whole life believing that it is stupid.