Super-simple OpenGL setup...no triangle visible?

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Leadwerks

I can't figure out why there is no triangle visible here. I believe I did everything I need to set it up properly.

I need to set up the whole OpenGL environment myself, so I can access all the features I want. Any help pointing out an error in this code would be appreciated:

This BlitzPlus code works:

;Constants
Const off_nSize=0;  WORD
Const off_nVersion=2;  WORD
Const off_dwFlags=4;  DWORD
Const off_iPixelType=8;  Byte
Const off_cColorBits=9;  Byte
Const off_cRedBits=10;  Byte
Const off_cRedShift=11;  Byte
Const off_cGreenBits=12;  Byte
Const off_cGreenShift=13;  Byte
Const off_cBlueBits=14;  Byte
Const off_cBlueShift=15;  Byte
Const off_cAlphaBits=16;  Byte
Const off_cAlphaShift=17;  Byte
Const off_cAccumBits=18;  Byte
Const off_cAccumRedBits=19;  Byte
Const off_cAccumGreenBits=20;  Byte
Const off_cAccumBlueBits=21;  Byte
Const off_cAccumAlphaBits=22;  Byte
Const off_cDepthBits=23;  Byte
Const off_cStencilBits=24;  Byte
Const off_cAuxBuffers=25;  Byte
Const off_iLayerType=26;  Byte
Const off_bReserved=27;  Byte
Const off_dwLayerMask=28;  DWORD
Const off_dwVisibleMask=32;  DWORD
Const off_dwDamageMask=36;  DWORD
Const PFD_DOUBLEBUFFER = $00000001
Const PFD_DRAW_TO_WINDOW = $00000004
Const PFD_SUPPORT_OPENGL = $00000020

;Const PFD_TYPE_RGBA=

Include "constants\win32.const"
Include "constants\opengl.const"

;Create Window
win=CreateWindow("OpenGL Window",200,200,640,480,0,3)

;Setup pixel format
hwnd=QueryObject(win,1)
hdc=GetDC(hwnd)
lpPixelFormat=CreateBank(40)
dwFlags=PFD_SUPPORT_OPENGL Or PFD_DOUBLEBUFFER Or PFD_DRAW_TO_WINDOW
PokeShort lpPixelFormat,off_nSize,BankSize(lpPixelFormat)
PokeShort lpPixelFormat,off_nVersion,1
PokeInt lpPixelFormat,off_dwFlags,dwFlags
PokeByte lpPixelFormat,off_iPixelType,PFD_TYPE_RGBA
PokeByte lpPixelFormat,off_cColorBits,16
PokeByte lpPixelFormat,off_cDepthBits,16
PokeByte lpPixelFormat,off_cAccumBits,16
PokeByte lpPixelFormat,off_cStencilBits,8
PokeInt lpPixelFormat,28,PFD_MAIN_PLANE
PokeByte lpPixelFormat,off_cBlueBits,8
PokeByte lpPixelFormat,off_cGreenBits,8
PokeByte lpPixelFormat,off_cRedBits,8
lPixelFormat=ChoosePixelFormat(hDC,lpPixelFormat)
If Not lPixelFormat RuntimeError "ChoosePixelFormat() failed"
result=SetPixelFormat(hDC,lPixelFormat,lpPixelFormat)

;Create OpenGL Context
hrc=wglCreateContext(hdc)
If Not hrc Notify "Failed to create context."
wglMakeCurrent hdc,hrc

;Program Loop
Repeat
	
	;Setup Viewport
	w=ClientWidth(win)
	h=ClientHeight(win)
	glViewport 0.0,0.0,w,h
	glClearColor 0.0,0.0,1.0,0.0
	glClear GL_DEPTH_BUFFER_BIT+GL_COLOR_BUFFER_BIT

	glMatrixMode GL_PROJECTION
	glLoadIdentity()
	glPushMatrix()
	gluPerspective 45.0,Float(w)/Float(h),1.0,100.0

	;Draw Triangle
	glBegin GL_TRIANGLES
	glVertex3f 0.0,0.0,-10.0
	glVertex3f 1.0,1.0,-10.0
	glVertex3f 1.0,0.0,-10.0
	glEnd

	glPopMatrix()

	;Flip buffer
	SwapBuffers hdc

	;Check For WindowClose Event	
	Select WaitEvent()
		Case EVENT_KEYDOWN
			End
		Case $803
			End
	End Select
	
Forever

This BlitzMax code does not work:

Include "constants\opengl.bmx"
Include "constants\win32.bmx"

'Constants
Const off_nSize=0'  WORD
Const off_nVersion=2'  WORD
Const off_dwFlags=4'  DWORD
Const off_iPixelType=8'  Byte
Const off_cColorBits=9'  Byte
Const off_cRedBits=10'  Byte
Const off_cRedShift=11'  Byte
Const off_cGreenBits=12'  Byte
Const off_cGreenShift=13'  Byte
Const off_cBlueBits=14'  Byte
Const off_cBlueShift=15'  Byte
Const off_cAlphaBits=16'  Byte
Const off_cAlphaShift=17'  Byte
Const off_cAccumBits=18'  Byte
Const off_cAccumRedBits=19'  Byte
Const off_cAccumGreenBits=20'  Byte
Const off_cAccumBlueBits=21'  Byte
Const off_cAccumAlphaBits=22'  Byte
Const off_cDepthBits=23'  Byte
Const off_cStencilBits=24'  Byte
Const off_cAuxBuffers=25'  Byte
Const off_iLayerType=26'  Byte
Const off_bReserved=27'  Byte
Const off_dwLayerMask=28'  DWORD
Const off_dwVisibleMask=32'  DWORD
Const off_dwDamageMask=36'  DWORD
Const PFD_DOUBLEBUFFER = $00000001
Const PFD_DRAW_TO_WINDOW = $00000004
Const PFD_SUPPORT_OPENGL = $00000020
Const PFD_TYPE_RGBA=0

'Create Window
win:tgadget=CreateWindow("OpenGL Window",200,200,640,480,Null,3)

'Setup pixel format
hwnd=QueryGadget(win,QUERY_HWND_CLIENT)
hdc=GetDC(hwnd)
lpPixelFormat:tbank=CreateBank(40)
dwFlags=PFD_SUPPORT_OPENGL Or PFD_DOUBLEBUFFER Or PFD_DRAW_TO_WINDOW
PokeShort lpPixelFormat,off_nSize ,BankSize(lpPixelFormat)
PokeShort lpPixelFormat,off_nVersion,1
PokeInt lpPixelFormat,off_dwFlags,dwFlags
PokeByte lpPixelFormat,off_iPixelType,PFD_TYPE_RGBA
PokeByte lpPixelFormat,off_cColorBits,16
PokeByte lpPixelFormat,off_cDepthBits,16
PokeByte lpPixelFormat,off_cAccumBits,16
PokeByte lpPixelFormat,off_cStencilBits,8
PokeInt lpPixelFormat,28,PFD_MAIN_PLANE
PokeByte lpPixelFormat,off_cBlueBits,8
PokeByte lpPixelFormat,off_cGreenBits,8
PokeByte lpPixelFormat,off_cRedBits,8
lPixelFormat=ChoosePixelFormat(hDC,BankBuf(lpPixelFormat))
If Not lPixelFormat RuntimeError "ChoosePixelFormat() failed"
result=SetPixelFormat(hDC,lPixelFormat,BankBuf(lpPixelFormat))
lpPixelFormat=Null

'Create OpenGL Context
hrc=wglCreateContext(hdc)
If Not hrc Notify "Failed to create context."
wglMakeCurrent hdc,hrc

'Program Loop
Repeat
	
	'Setup Viewport
	w=ClientWidth(win)
	h=ClientHeight(win)
	glViewport 0.0,0.0,w,h
	glClearColor 0.0,0.0,1.0,0.0
	glClear GL_DEPTH_BUFFER_BIT+GL_COLOR_BUFFER_BIT

	glMatrixMode GL_PROJECTION
	glLoadIdentity()
	glPushMatrix()
	gluPerspective 45.0,Float(w)/Float(h),1.0,100.0

	'Draw Triangle
	glBegin GL_TRIANGLES
	glVertex3f 0.0,0.0,-10.0
	glVertex3f 1.0,1.0,-10.0
	glVertex3f 1.0,0.0,-10.0
	glEnd

	glpopmatrix()

	'Flip buffer
	SwapBuffers hdc

	'Check for WindowClose Event	
	Select WaitEvent()
		Case EVENT_KEYDOWN
			End
		Case EVENT_WINDOWCLOSE
			End
	End Select
	
Forever