Hi Everyone
I’m drawing some colored QUADS with their edges in black but my problem is that the lines (i.e. edges) are NOT QUITE CLEAR AND SMOOTH (in some areas). My “primitive” guess is the PixelFormat!?!?
The code for setting up the PixelFormat is :
Dim pfd As PIXELFORMATDESCRIPTOR
Dim PixelFormat As Long
pfd.nSize = Len(pfd)
pfd.nVersion = 1
pfd.dwFlags = PFD_SUPPORT_OPENGL Or PFD_DRAW_TO_WINDOW Or PFD_DOUBLEBUFFER Or PFD_TYPE_RGBA
pfd.iPixelType = PFD_TYPE_RGBA
pfd.cColorBits = 24
pfd.cDepthBits = 16
pfd.iLayerType = PFD_MAIN_PLANE
PixelFormat = ChoosePixelFormat(lhDC, pfd)
If PixelFormat = 0 Then FatalError "Could not retrieve pixel format!"
SetPixelFormat lhDC, PixelFormat, pfd
Also, the code for drawing QUADS and Edges is
glColor3ub r, g, b
glBegin bmQuads
glVertex3f W(1, 0), W(1, 1), W(1, 2)
glVertex3f W(2, 0), W(2, 1), W(2, 2)
glVertex3f W(3, 0), W(3, 1), W(3, 2)
glVertex3f W(4, 0), W(4, 1), W(4, 2)
glEnd
glColor3ub 0, 0, 0
glBegin bmLineLoop
glVertex3f W(1, 0), W(1, 1), W(1, 2)
glVertex3f W(2, 0), W(2, 1), W(2, 2)
glVertex3f W(3, 0), W(3, 1), W(3, 2)
glVertex3f W(4, 0), W(4, 1), W(4, 2)
glEnd
With my highest appreciation for your help and advise.