These code below is for Visual Basic. “pxlByte” output is too large for VB. It need new data type small as 0 to 255 for RGB
Waldoo
Private Red As Byte
Private Green As Byte
Private Blue As Byte
Public mousexpos As String
Public mouseypos As String
Option Explicit
Public Function DrawGLScene() As Boolean
glReadPixels mousexpos, mouseypos, 1, 1, rpRed, pxlByte, Red
Form2.Text1(4).Text = Red
glReadPixels mousexpos, mouseypos, 1, 1, rpGreen, pxlByte, Green
Form2.Text1(5).Text = Green
glReadPixels mousexpos, mouseypos, 1, 1, rpBlue, pxlByte, Blue
Form2.Text1(6).Text = Blue
form1.Picture1.BackColor = RGB(Blue, Green, Red)
[This message has been edited by waldoo (edited 03-09-2002).]