In the masm32 ports you need a gl.def and a glu.def file to compile. The site listed is no longer in service. Any one know where I can find these?

I have modified the lesson 2 port so the window is functional but I draw to the screen and see nothing but black. The code should draw a red triangle. Any suggestions would be much appreciated, thanks.


.586p
.MODEL FLAT,STDCALL
option casemap:none
include \masm32\include\windows.inc
includelib \masm32\lib\opengl32.lib
includelib \masm32\lib\glu32.lib
include \masm32\include\kernel32.inc
include \masm32\include\user32.inc
include \masm32\include\gdi32.inc
include \masm32\include\ogl\WinExtra\winextra.def
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\user32.lib
includelib \masm32\lib\gdi32.lib
include \masm32\include\opengl32.inc
include \masm32\include\glu32.inc


CreateGLWindow PROTO :DWORD,:DWORD,:DWORD,:DWORD,:BYTE
WinMain PROTO :DWORD,:DWORD,:DWORD,:DWORD
WndProc PROTO :DWORD,:DWORD,:DWORD,:DWORD
ReSizeGLScene PROTO :DWORD,:DWORD
KillGLWindow PROTO
InitGL PROTO
DrawGLScene PROTO

DM_BITSPERPEL = 00040000h
DM_PELSWIDTH = 00080000h
DM_PELSHEIGHT = 00100000h


; --------------- These constants are not defined in windows.inc
PFD_MAIN_PLANE equ 0
PFD_TYPE_COLORINDEX equ 1
PFD_TYPE_RGBA equ 0
PFD_DOUBLEBUFFER equ 1
PFD_DRAW_TO_WINDOW equ 4
PFD_SUPPORT_OPENGL equ 020h


.DATA
scalp db "(scalp)",0
our_title db "Masm32 conversion of Nehe''s tuts, (s)",0
ClassName db "asmOpenGL",0
error db "ERROR",0
noDC_RC db "Release of DC and RC failed.",0
RCrelease db "Release rendering context failed.",0
DCrelease db "Release device context failed.",0
hWndRelease db "Could not release hWnd.",0
register_error db "Failed to register the window class.",0
not_full db "The requested fullscreen mode is not supported by",13,10
db "your video card. Use windowed mode instead ?",0
create_device db "Can''t create a GL device context.",0
create_pixel db "Can''t find a suitable pixelformat.",0
close db "Program will now close",0
create_error db "Window creation error.",0
pixel_error db "Can''t set the pixelformat.",0
rend_error db "Can''t create a GL rendering context.",0
act_error db "Can''t activate the GL rendering context.",0
init_error db "Initialization Failed.",0
start_full db "Would you like to run in fullscreen mode ?",0
class_error db "Could not unregister class.",0

; Some values
Value0Flt dd 0.0
Value1Flt dd 1.0
Value1Dbl REAL4 1.0f
Value45Dbl REAL4 45.0f
Value3Dbl REAL4 3.0f
Value7Dbl REAL4 7.0f
Valuem1p5Dbl REAL4 -1.5f
Valuem6Dbl REAL4 -6.0f
Value0Dbl REAL4 0.0f
Valuem1Dbl REAL4 -1.0f



.DATA?
hDC dd ?
hRC dd ?
hInstance HANDLE ?
keys db 256 dup (?)
active db ?
fullscreen db ?
hWnd dd ?

.CODE
start:
invoke GetModuleHandle, 0
mov hInstance, eax
invoke WinMain, eax, 0, 0, 0
invoke ExitProcess, eax

WinMain proc hInst:HWND, hPrevInst:UINT, CmdLine:WPARAM, CmdShow:LPARAM
LOCAL msg:MSG, done:DWORD
invoke MessageBox, 0, ADDR start_full, ADDR our_title, MB_YESNO or MB_ICONQUESTION
.IF eax == IDNO
mov fullscreen, 0
.ELSE
mov fullscreen, 1
.ENDIF
invoke CreateGLWindow, ADDR our_title, 640, 480, 16, fullscreen
.IF (!eax)
ret
.ENDIF
mov done, 0
.while (!done)
invoke PeekMessage, ADDR msg,NULL,0,0,PM_REMOVE
.IF (eax)
.IF msg.message == WM_QUIT
mov done, 1
.ELSE
invoke TranslateMessage, ADDR msg
invoke DispatchMessage, ADDR msg
.ENDIF
.ELSE
invoke DrawGLScene
.IF ((active) && (!eax)) || (keys[VK_ESCAPE])
mov done, 1
.ELSE
invoke SwapBuffers, hDC
.ENDIF
.IF (keys[VK_F1])
mov keys[VK_F1], 0
invoke KillGLWindow
.IF (fullscreen)
mov fullscreen, 0
.ELSE
mov fullscreen, 1
.ENDIF
invoke CreateGLWindow, ADDR our_title, 640,480,16,fullscreen
.IF (!eax)
ret
.ENDIF
.ENDIF
.ENDIF
.endw
invoke KillGLWindow
mov eax, msg.wParam
ret
WinMain endp

WndProc proc hWin:DWORD, uMsg:DWORD, wParam:DWORD, lParam:DWORD
.IF uMsg == WM_ACTIVATE
mov eax, wParam
.IF (!ah)
mov active, 1
.ELSE
mov active, 0
.ENDIF
.ELSEIF uMsg == WM_SYSCOMMAND
.IF (wParam == SC_SCREENSAVE) || (wParam == SC_MONITORPOWER)
xor eax, eax
ret
.ENDIF
.ELSEIF uMsg == WM_KEYDOWN
mov eax, wParam
mov keys[eax], 1
.ELSEIF uMsg == WM_KEYUP
mov eax, wParam
mov keys[eax], 0
.ELSEIF uMsg == WM_SIZE
mov eax, lParam
mov ebx, eax
and eax, 0ffffh ;eax=width=LOWORD
shr ebx, 16 ;ebx=height=HIWORD
invoke ReSizeGLScene, eax, ebx
.ELSEIF uMsg == WM_CLOSE
invoke PostQuitMessage, 0
xor eax, eax
ret
.ENDIF
invoke DefWindowProc, hWin, uMsg, wParam, lParam
ret
WndProc endp

InitGL proc ;opengl setup (like color, etc...)
invoke glShadeModel, GL_SMOOTH ;enable smooth shading
invoke glClearDepth, Value1Dbl, Value0Dbl ;depth buffer setup
invoke glEnable, GL_DEPTH_TEST ;enable depth testing
invoke glDepthFunc, GL_LEQUAL ;type of depth test
;set really nice perspective calculations
invoke glHint, GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST
mov eax, 1
ret
InitGL endp

CreateGLWindow proc letitle:DWORD,w:DWORD,h:DWORD,bits:DWORD,flag:BYTE
LOCAL PixelFormat:DWORD, wc:WNDCLASS
LOCAL dwExStyle:DWORD, dwStyle:DWORD
LOCAL rect:RECT, dmScreenSettings:DEVMODE
LOCAL pfdIXELFORMATDESCRIPTOR
mov rect.left, 0
push w
pop rect.right
mov rect.top, 0
push h
pop rect.bottom
mov al, flag
mov fullscreen, al
mov wc.style, CS_HREDRAW or CS_VREDRAW or CS_OWNDC
mov wc.lpfnWndProc, offset WndProc
mov wc.cbClsExtra, 0
mov wc.cbWndExtra, 0
push hInstance
pop wc.hInstance
mov wc.hIcon, 0
invoke LoadCursor, 0, IDC_ARROW
mov wc.hCursor, eax
mov wc.lpszMenuName, 0
mov wc.lpszClassName, offset ClassName
mov wc.hbrBackground, 0
invoke RegisterClass, ADDR wc
.IF (!eax)
invoke MessageBox, 0, ADDR register_error, ADDR error, MB_OK or MB_ICONEXCLAMATION
xor eax, eax
ret
.ENDIF
.IF (fullscreen)
ZeroMemory &dmScreenSettings, sizeof(dmScreenSettings)
mov dmScreenSettings.dmSize, sizeof dmScreenSettings
push w
pop dmScreenSettings.dmPelsWidth
push h
pop dmScreenSettings.dmPelsHeight
push bits
pop dmScreenSettings.dmBitsPerPel
mov dmScreenSettings.dmFields, DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT
invoke ChangeDisplaySettings, ADDR dmScreenSettings, CDS_FULLSCREEN
.IF eax != DISP_CHANGE_SUCCESSFUL
invoke MessageBox, 0, ADDR not_full, ADDR scalp, MB_YESNO or MB_ICONEXCLAMATION
.IF eax == IDYES
mov fullscreen, 0
.ELSE
invoke MessageBox, 0, ADDR close, ADDR error, MB_OK or MB_ICONSTOP
xor eax, eax
ret
.ENDIF
.ENDIF
.ENDIF
.IF (fullscreen)
mov dwExStyle, WS_EX_APPWINDOW
mov dwStyle, WS_POPUP or WS_CLIPSIBLINGS or WS_CLIPCHILDREN
invoke ShowCursor, 0
.ELSE
mov dwExStyle, WS_EX_APPWINDOW or WS_EX_WINDOWEDGE
mov dwStyle, WS_OVERLAPPEDWINDOW or WS_CLIPSIBLINGS or WS_CLIPCHILDREN
.ENDIF
invoke AdjustWindowRectEx, ADDR rect, dwStyle, 0, dwExStyle
mov eax, rect.left
sub rect.right, eax
mov eax, rect.top
sub rect.bottom, eax
invoke CreateWindowEx, dwExStyle, ADDR ClassName, ADDR our_title, \
dwStyle,0,0, rect.right, rect.bottom, 0, 0, hInstance, 0
mov hWnd, eax
.IF (!eax)
invoke KillGLWindow
invoke MessageBox, 0, ADDR create_error, ADDR error, MB_OK or MB_ICONEXCLAMATION
xor eax, eax
ret
.ENDIF
ZeroMemory &pfd, sizeof(PIXELFORMATDESCRIPTOR)
mov pfd.nSize, sizeof PIXELFORMATDESCRIPTOR
mov pfd.nVersion, 1
mov pfd.dwFlags, PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER
mov pfd.iPixelType, PFD_TYPE_RGBA
mov eax, bits
mov pfd.cColorBits, al
mov pfd.cDepthBits, 16
mov pfd.dwLayerMask, PFD_MAIN_PLANE
invoke GetDC, hWnd
mov hDC, eax
.IF (!eax)
invoke KillGLWindow
invoke MessageBox, 0, ADDR create_device, ADDR error, MB_OK or MB_ICONEXCLAMATION
xor eax, eax
ret
.ENDIF
invoke ChoosePixelFormat, hDC, ADDR pfd
mov PixelFormat, eax
.IF (!eax)
invoke KillGLWindow
invoke MessageBox, 0, ADDR create_pixel, ADDR error, MB_OK or MB_ICONEXCLAMATION
xor eax, eax
ret
.ENDIF
invoke SetPixelFormat, hDC, PixelFormat, ADDR pfd
.IF (!eax)
invoke KillGLWindow
invoke MessageBox, 0, ADDR pixel_error, ADDR error, MB_OK or MB_ICONEXCLAMATION
xor eax, eax
ret
.ENDIF
invoke wglCreateContext, hDC
mov hRC, eax
.IF (!eax)
invoke KillGLWindow
invoke MessageBox, 0, ADDR rend_error, ADDR error, MB_OK or MB_ICONEXCLAMATION
xor eax, eax
ret
.ENDIF
invoke wglMakeCurrent, hDC, hRC
.IF (!eax)
invoke KillGLWindow
invoke MessageBox, 0, ADDR act_error, ADDR error, MB_OK or MB_ICONEXCLAMATION
xor eax, eax
ret
.ENDIF
invoke ShowWindow, hWnd, SW_SHOW
invoke SetForegroundWindow, hWnd
invoke SetFocus, hWnd
invoke ReSizeGLScene, w, h
invoke InitGL
.IF (!eax)
invoke KillGLWindow
invoke MessageBox, 0, ADDR init_error, ADDR error, MB_OK or MB_ICONEXCLAMATION
xor eax, eax
ret
.ENDIF
mov eax, 1
ret
CreateGLWindow endp

DrawGLScene proc ;drawing proc
;clear screen and depth buffer
invoke glClear, GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT
invoke glLoadIdentity ;reset modelview matrix
invoke glClear, GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT
invoke glLoadIdentity ;reset modelview matrix
invoke glTranslatef, Valuem1p5Dbl, Value0Dbl, Valuem6Dbl; -1.5f, 0.0f, -6.0f
invoke glBegin, GL_TRIANGLES ;drawing triangles
invoke glVertex3f, Value0Dbl, Value1Dbl, Value0Dbl; _glVertex3f 0.0f,1.0f,0.0f
invoke glVertex3f, Valuem1Dbl, Valuem1Dbl, Value0Dbl; _glVertex3f -1.0f,-1.0f,0.0f
invoke glVertex3f, Value1Dbl, Valuem1Dbl, Value0Dbl; _glVertex3f 1.0f,-1.0f,0.0f
invoke glEnd
; _glTranslatef 3.0f,0.0f,0.0f
; invoke glBegin, GL_QUADS ;and quads
; _glVertex3f -1.0f,1.0f,0.0f
; _glVertex3f 1.0f,1.0f,0.0f
; _glVertex3f 1.0f,-1.0f,0.0f
; _glVertex3f -1.0f,-1.0f,0.0f
; invoke glEnd
;
mov eax, 1
ret
DrawGLScene endp

ReSizeGLScene proc w:DWORD, h:DWORD ;resize scene
invoke glViewport, 0, 0, w, h ;reset viewport
invoke glMatrixMode, GL_PROJECTION ;select projection matrix
invoke glLoadIdentity ;reset it
invoke gluPerspective,DWORD PTR Value45Dbl,DWORD PTR Value45Dbl+4,DWORD PTR Value1Dbl,DWORD PTR Value1Dbl+4,DWORD PTR Value3Dbl,DWORD PTR Value3Dbl+4,DWORD PTR Value7Dbl,DWORD PTR Value7Dbl+4
invoke glMatrixMode, GL_MODELVIEW ;select modelview matrix
invoke glLoadIdentity ;reset it
ret
ReSizeGLScene endp

KillGLWindow proc
;here we do a lot of tests, but at least, you have to do
;wglMakeCurrent, wglDeleteContext and ReleaseDC.
.IF (fullscreen) ;if fullscreen mode
invoke ChangeDisplaySettings, 0, 0 ;get back to window
invoke ShowCursor, 1 ;and show mouse ptr
.ENDIF
;do a lot of error checking before closing
.IF (hRC)
invoke wglMakeCurrent, 0, 0
.IF (!eax)
invoke MessageBox, 0, ADDR noDC_RC, ADDR error, MB_OK or MB_ICONINFORMATION
.ENDIF
invoke wglDeleteContext, hRC
.IF (!eax)
invoke MessageBox, 0, ADDR RCrelease, ADDR error, MB_OK or MB_ICONINFORMATION
.ENDIF
mov hRC, 0
.ENDIF
invoke ReleaseDC, hWnd, hDC
.IF (hDC && (!eax))
invoke MessageBox, 0, ADDR DCrelease, ADDR error, MB_OK or MB_ICONINFORMATION
mov hDC, 0
.ENDIF
invoke DestroyWindow, hWnd
.IF (hWnd && (!eax))
invoke MessageBox, 0, ADDR hWndRelease, ADDR error, MB_OK or MB_ICONINFORMATION
mov hWnd, 0
.ENDIF
invoke UnregisterClass, ADDR ClassName, hInstance
.IF (!eax)
invoke MessageBox, 0, ADDR class_error, ADDR error, MB_OK or MB_ICONINFORMATION
.ENDIF
ret
KillGLWindow endp

END start