Hmm. I think that point reads back a value in which it comes out as something like (r*256^2)+(g*256)+b
therefore logically if you divide the point value by 256^2 which is (whips out an emergency calculator) 65536, then the integer it leaves should be the red value.
Here you go:
sync on
sync rate 0
create bitmap 1,640,480
for x=60 to 130
for y=80 to 190
ink rgb(rnd(155)+100,rnd(80),rnd(80)),0
dot x,y
next y
next x
set current bitmap 0
do
copy bitmap 1,0
xval=mousex()
yval=mousey()
colval=point(xval,yval)
redval=colval/65536
set cursor 0,0
print redval
sync
loop
that might even work.
if you're lucky.
Just made it up on the spot though and I've never tried it yet so... there's a reasonable chance it won't...
EDIT:
Oh Obese. Hate you. Spent so long thinking up a simple example of how to do it that you'd posted. Also, I didn't know about that rgbr command...
"A West Texas girl, just like me"
-Bush
