Converting blitz2d to max

BlitzMax Forums/BlitzMax Programming/Converting blitz2d to max

Ok, its starting to work now. I'm having trouble with pixel access.

This outputs the pixel information of an image that should be just a single dot.
Strict
Graphics 666,666

Local image:timage=CreateImage(5,5,dynamicimage)

SetColor 0,0,200
Plot 2,2
GrabImage image,0,0


Local s:String
Local pixmap:TPixmap


pixmap=LockImage(image)
For Local y=0 To 4
	s=""
	For Local x=0 To 4
		s:+(ReadPixel(pixmap,x,y)&$FFFFFF)+","
	Next
	Print s
Next
UnlockImage image

Print "ROUND 2"


DrawImage image,0,0
GrabImage image,0,0

pixmap=LockImage(image)
For Local y=0 To 4
	s=""
	For Local x=0 To 4
		s:+(ReadPixel(pixmap,x,y)&$FFFFFF)+","
	Next
	Print s
Next
UnlockImage image
End

Why does it show that there are 4 pixels of color 200?
Why does it get darker when I draw the image and then grab it?
How do I get it to be pixel-perfect?