旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴� � Xine - issue #5 - Phile 301 � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴� here come's the nice little gatos funky, they are provided as standalone win32asm compilable exemples, enjoy guys ;----------OpenGL in win32asm example 1---------------- ; ; draw a simple colored rectangle ; can be used as a template for more complex animations ; ; not at all optimized, it's better for code clarity ; by Spanska for Xine#5, February 2001, copyleft ; ; TASM32 /ml /m3 /z /t opengl ; TLINK32 -Tpe -aa opengl,,,import32 opengl32 callW macro x extrn x:PROC call x endm .386p .model flat,STDCALL .data ;------------- funky structures --------------------- paint_struct: pshdc dd ? psfErase dd 0 psrcPaint dd offset rect_struct psfRestore dd ? psfIncUpdate dd ? psrgbReserved db 32 dup(?) rect_struct: rcLeft dd ? rcTop dd ? rcRight dd ? rcBottom dd ? wndclassx: clscbSize dd wndclassx_size clsStyle dd 20h+2+1 ; class style CS_OWNDC+CS_VREDRAW+CS_HREDRAW clsLpfnWndProc dd ? clsCbClsExtra dd 0 clsCbWndExtra dd 0 clsHInstance dd ? ; instance handle clsHIcon dd 0 ; class icon handle clsHCursor dd 0 ; class cursor handle clsHbrBackground dd 7 ; class background brush clsLpszMenuName dd 0 ; menu name clsLpszClassName dd ? ; far ptr to class name clshIconSm dd 0 wndclassx_size equ $-offset wndclassx msg: msHWND dd ? msMESSAGE dd ? msWPARAM dd ? msLPARAM dd ? msTIME dd ? msPT dd ? DDPIXELFORMAT_struct: pfd_nSize dw 0 pfd_nVersion dw 0 pfd_dwFlags dd 0 pfd_iPixelType db 0 pfd_cColorBits db 0 pfd_cRedBits db 0 pfd_cRedShift db 0 pfd_cGreenBits db 0 pfd_cGreenShift db 0 pfd_cBlueBits db 0 pfd_cBlueShift db 0 pfd_cAlphaBits db 0 pfd_cAlphaShift db 0 pfd_cAccumBits db 0 pfd_cAccumRedBits db 0 pfd_cAccumGreenBits db 0 pfd_cAccumBlueBits db 0 pfd_cAccumAlphaBits db 0 pfd_cDepthBits db 0 pfd_cStencilBits db 0 pfd_cAuxBuffers db 0 pfd_iLayerType db 0 pfd_bReserved db 0 pfd_dwLayerMask dd 0 pfd_dwVisibleMask dd 0 pfd_dwDamageMask dd 0 DDPIXELFORMAT_struct_size equ $-offset DDPIXELFORMAT_struct ;------------- some data --------------------- nom_fenetre db "OpenGL",0 handle dd ? handle_wd dd ? pixformat dd ? theDC dd ? theRC dd ? .code start: ;----------------- register wndclass ---------------------------- push 0 callW GetModuleHandleA mov handle, eax mov clsHInstance, eax mov eax, offset wndproc mov clsLpfnWndProc, eax mov clsLpszClassName, offset nom_fenetre push offset wndclassx callW RegisterClassExA ;--------------------- create the window -------------------------- push 0 push handle push 0 push 0 ;HWND_DESKTOP push 400 ;hauteur push 600 ;largeur push 0 ;y push 0 ;x push 0CF0000h+4000000h+2000000h ;WS_OVERLAPPEDWINDOW+WS_CLIPSIBLINGS+WS_CLIPCHILDREN push offset nom_fenetre push offset nom_fenetre push 0 ;extra style callW CreateWindowExA mov handle_wd, eax ;------------------------ show window ------------------------------ push 1 push handle_wd callW ShowWindow push handle_wd callW UpdateWindow call enable_opengl ;<========= NOW! ;------------------------ the message loop ---------------------------------- winmain_msg_loop: push 0 push 0 push handle_wd callW InvalidateRect ;force paint push 1 push 0 push 0 push 0 push offset msg callW PeekMessageA cmp eax, 0 jnz process_messages jmp winmain_msg_loop ;----- check if window is closed -------- process_messages: cmp msMESSAGE, 12h ;WM_QUIT equ 0012h je end_loop push offset msg callW TranslateMessage push offset msg callW DispatchMessageA jmp winmain_msg_loop end_loop: call disable_opengl ;<========= NOW! push msWPARAM callW ExitProcess ;------------------ windows proc ------------------------ wndproc proc hwnd:DWORD, wmsg:DWORD, wparam:DWORD, lparam:DWORD cmp wmsg,2 ;WM_DESTROY? jne suite1 push 0 callW PostQuitMessage xor eax, eax jmp wndproc_end suite1: cmp wmsg, 0fh ;WM_PAINT? jne suite2 push offset rect_struct push handle_wd callW GetClientRect mov eax, theDC mov pshdc, eax push offset paint_struct push handle_wd callW BeginPaint call draw_opengl ;<========= NOW! mov eax, theDC mov pshdc, eax push offset paint_struct push handle_wd callW EndPaint xor eax, eax jmp wndproc_end suite2: push lparam push wparam push wmsg push hwnd callW DefWindowProcA wndproc_end: ret wndproc endp ;--------------------- disable OpenGL ---------------------- disable_opengl: push 0 push 0 callW wglMakeCurrent push theRC callW wglDeleteContext push theDC push handle_wd callW ReleaseDC ret ;--------------------- enable OpenGL for window ----------------------------------- enable_opengl: push handle_wd callW GetDC mov theDC, eax ;set pixel format mov pfd_nSize, DDPIXELFORMAT_struct_size mov pfd_nVersion, 1 mov pfd_dwFlags, 20h+1+4 ;PFD_SUPPORT_OPENGL OR PFD_DOUBLEBUFFER OR PFD_DRAW_TO_WINDOW mov pfd_dwLayerMask, 0 ;PFD_MAIN_PLANE mov pfd_iPixelType, 0 ;PFD_TYPE_RGBA mov pfd_cColorBits, 24 mov pfd_cDepthBits, 16 mov pfd_cAccumBits, 0 mov pfd_cStencilBits, 0 push offset DDPIXELFORMAT_struct push theDC callW ChoosePixelFormat mov pixformat, eax push offset DDPIXELFORMAT_struct push pixformat push theDC callW SetPixelFormat ;once you call this, td32 becomes crazy? push theDC callW wglCreateContext mov theRC, eax push theRC push theDC callW wglMakeCurrent ;clear background push 0 push 0 push 0 push 0 callW glClearColor ;define window push 400 push 600 push 0 push 0 callW glViewport ;define the perspective parameters ;here it's simple 2D so we use a simple orthographic matrix push 1701h ;GL_PROJECTION callW glMatrixMode callW glLoadIdentity push 3ff00000h ;this is 1.875 in floating number format [distance max] push 0 push 0 ;[distance min] push 0 push 40240000h ;2.5625 [top] push 0 push 0c0240000h ;-2.5625 [bottom] push 0 push 40240000h ;2.5625 [right] push 0 push 0c0240000h ;-2.5625 [left] push 0 callW glOrtho ;define the eye parameters ;identity matrix is enough here push 1700h ;GL_MODELVIEW callW glMatrixMode callW glLoadIdentity ret draw_opengl: ;----------------- here goes the OpenGL animation ------------------------- ;clear color buffer push 4000h ;GL_COLOR_BUFFER_BIT callW glClear ;define what we are drawing (object, colors) push 9 ;GL_POLYGON callW glBegin ;first corner: red push 0 ;blue push 0 ;green push 3f800000h ;red = 1 callW glColor3f push 0c0a00000h ;y = -5 push 0c0a00000h ;x = -5 callW glVertex2f ;second corner: white push 3f800000h ;blue = 1 push 3f800000h ;green = 1 push 3f800000h ;red = 1 callW glColor3f push 40a00000h ;y = 5 push 0c0a00000h ;x = -5 callW glVertex2f ;third corner: blue push 3f800000h ;blue = 1 push 0 ;green push 0 ;red callW glColor3f push 40a00000h ;y = 5 push 40a00000h ;x = 5 callW glVertex2f ;fourth corner: green push 0 ;blue push 3f800000h ;green = 1 push 0 ;red callW glColor3f push 0c0a00000h ;y = -5 push 40a00000h ;x = 5 callW glVertex2f callW glEnd callW glFlush ;execute OpenGL commands now push theDC ;not really useful here cause no animation callW SwapBuffers ;exchange front and back buffer ret end start ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;----------OpenGL in win32asm example 2---------------- ; ; draw some simple objects in 3D and rotate them ; ; not at all optimized, it's better for code clarity ; by Spanska for Xine#5, February 2001, copyleft ; ; TASM32 /ml /m3 /z /t opengl ; TLINK32 -Tpe -aa opengl,,,import32 opengl32 callW macro x extrn x:PROC call x endm .386p .model flat,STDCALL .data ;------------- funky structures --------------------- paint_struct: pshdc dd ? psfErase dd 0 psrcPaint dd offset rect_struct psfRestore dd ? psfIncUpdate dd ? psrgbReserved db 32 dup(?) rect_struct: rcLeft dd ? rcTop dd ? rcRight dd ? rcBottom dd ? wndclassx: clscbSize dd wndclassx_size clsStyle dd 20h+2+1 ; class style CS_OWNDC+CS_VREDRAW+CS_HREDRAW clsLpfnWndProc dd ? clsCbClsExtra dd 0 clsCbWndExtra dd 0 clsHInstance dd ? ; instance handle clsHIcon dd 0 ; class icon handle clsHCursor dd 0 ; class cursor handle clsHbrBackground dd 7 ; class background brush clsLpszMenuName dd 0 ; menu name clsLpszClassName dd ? ; far ptr to class name clshIconSm dd 0 wndclassx_size equ $-offset wndclassx msg: msHWND dd ? msMESSAGE dd ? msWPARAM dd ? msLPARAM dd ? msTIME dd ? msPT dd ? DDPIXELFORMAT_struct: pfd_nSize dw 0 pfd_nVersion dw 0 pfd_dwFlags dd 0 pfd_iPixelType db 0 pfd_cColorBits db 0 pfd_cRedBits db 0 pfd_cRedShift db 0 pfd_cGreenBits db 0 pfd_cGreenShift db 0 pfd_cBlueBits db 0 pfd_cBlueShift db 0 pfd_cAlphaBits db 0 pfd_cAlphaShift db 0 pfd_cAccumBits db 0 pfd_cAccumRedBits db 0 pfd_cAccumGreenBits db 0 pfd_cAccumBlueBits db 0 pfd_cAccumAlphaBits db 0 pfd_cDepthBits db 0 pfd_cStencilBits db 0 pfd_cAuxBuffers db 0 pfd_iLayerType db 0 pfd_bReserved db 0 pfd_dwLayerMask dd 0 pfd_dwVisibleMask dd 0 pfd_dwDamageMask dd 0 DDPIXELFORMAT_struct_size equ $-offset DDPIXELFORMAT_struct ;------------- some data --------------------- nom_fenetre db "OpenGL",0 handle dd ? handle_wd dd ? pixformat dd ? theDC dd ? theRC dd ? angle dd 0 objet1 dd ? objet2 dd ? ;-------- name some simple precision float numbers --------------------- ; (NB: i may not use them all) float TYPEDEF REAL4 increment float 3.0 p0_1 float 0.1 p0_5 float 0.5 m0_5 float -0.5 p1_0 float 1.0 m1_0 float -1.0 p1_3 float 1.333333333 m1_5 float -1.5 p1_5 float 1.5 p1_6 float 1.6 p1_7 float 1.7 p1_8 float 1.8 p1_85 float 1.85 p1_9 float 1.9 p2_0 float 2.0 m2_0 float -2.0 m3_0 float -3.0 p3_0 float 3.0 m4_0 float -4.0 p4_0 float 4.0 m5_0 float -5.0 p5_0 float 5.0 m6_0 float -6.0 m8_0 float -8.0 p10 float 10.0 m10 float -10.0 m40 float -40.0 p40 float 40.0 p45 float 45.0 ;-------- name some double precision float numbers --------------------- ; (NB: i may not use them all) dfloat TYPEDEF REAL8 p0__1 dfloat 0.1 p1__0 dfloat 1.0 p1__33 dfloat 1.3333 p2__0 dfloat 2.0 p3__0 dfloat 3.0 m3__0 dfloat -3.0 p4__0 dfloat 4.0 p5__0 dfloat 5.0 m5__0 dfloat -5.0 p7__0 dfloat 7.0 pp10 dfloat 10.0 mm10 dfloat -10.0 pp40 dfloat 40.0 pp45 dfloat 45.0 ;-------- small structures with float numbers --------------------- Light_Diffuse: qq1 float 1.0 ;Red qq2 float 1.0 ;Green qq3 float 1.0 ;Blue qq4 float 1.0 ;alpha? Light_Position: qq5 float 10.0 ;x qq6 float 10.0 ;y qq7 float 10.0 ;z qq8 float 0 ;directional source .code start: ;----------------- register wndclass ---------------------------- push 0 callW GetModuleHandleA mov handle, eax mov clsHInstance, eax mov eax, offset wndproc mov clsLpfnWndProc, eax mov clsLpszClassName, offset nom_fenetre push offset wndclassx callW RegisterClassExA ;--------------------- create the window -------------------------- push 0 push handle push 0 push 0 ;HWND_DESKTOP push 500 ;hauteur push 500 ;largeur push 0 ;y push 0 ;x push 0CF0000h+4000000h+2000000h ;WS_OVERLAPPEDWINDOW+WS_CLIPSIBLINGS+WS_CLIPCHILDREN push offset nom_fenetre push offset nom_fenetre push 0 ;extra style callW CreateWindowExA mov handle_wd, eax ;------------------------ show window ------------------------------ push 1 push handle_wd callW ShowWindow push handle_wd callW UpdateWindow call enable_opengl ;<========= NOW! ;------------------------ the message loop ---------------------------------- winmain_msg_loop: push 0 push 0 push handle_wd callW InvalidateRect ;force paint push 1 push 0 push 0 push 0 push offset msg callW PeekMessageA cmp eax, 0 jnz process_messages jmp winmain_msg_loop ;----- check if window is closed -------- process_messages: cmp msMESSAGE, 12h ;WM_QUIT equ 0012h je end_loop push offset msg callW TranslateMessage push offset msg callW DispatchMessageA jmp winmain_msg_loop end_loop: call disable_opengl ;<========= NOW! push msWPARAM callW ExitProcess ;------------------ windows proc ------------------------ wndproc proc hwnd:DWORD, wmsg:DWORD, wparam:DWORD, lparam:DWORD cmp wmsg,2 ;WM_DESTROY? jne suite1 call disable_opengl push 0 callW PostQuitMessage xor eax, eax jmp wndproc_end suite1: cmp wmsg, 0fh ;WM_PAINT? jne suite2 push offset rect_struct push handle_wd callW GetClientRect mov eax, theDC mov pshdc, eax push offset paint_struct push handle_wd callW BeginPaint call draw_opengl mov eax, theDC mov pshdc, eax push offset paint_struct push handle_wd callW EndPaint xor eax, eax jmp wndproc_end suite2: push lparam push wparam push wmsg push hwnd callW DefWindowProcA wndproc_end: ret wndproc endp ;--------------------- disable OpenGL ---------------------- disable_opengl: push 0 push 0 callW wglMakeCurrent push theRC callW wglDeleteContext push theDC push handle_wd callW ReleaseDC ret ;--------------------- enable OpenGL for window ----------------------------------- enable_opengl: push handle_wd callW GetDC mov theDC, eax mov pfd_nSize, DDPIXELFORMAT_struct_size mov pfd_nVersion, 1 mov pfd_dwFlags, 20h+1+4 ;PFD_SUPPORT_OPENGL OR PFD_DOUBLEBUFFER OR PFD_DRAW_TO_WINDOW mov pfd_dwLayerMask, 0 ;PFD_MAIN_PLANE mov pfd_iPixelType, 0 ;PFD_TYPE_RGBA mov pfd_cColorBits, 24 mov pfd_cDepthBits, 16 mov pfd_cAccumBits, 0 mov pfd_cStencilBits, 0 push offset DDPIXELFORMAT_struct push theDC callW ChoosePixelFormat mov pixformat, eax push offset DDPIXELFORMAT_struct push pixformat push theDC callW SetPixelFormat ;once you call this, td32 becomes crazy? push theDC callW wglCreateContext mov theRC, eax push theRC push theDC callW wglMakeCurrent ;--------------------- prepare OpenGL ---------------------- ;pre-build objects in a list to speed up the process push 2 ;2 objects = 2 lists callW glGenLists mov objet1, eax ;-------- the cube (with normal, so lighting depends on light angle) push 1300h ;GL_COMPILE push objet1 callW glNewList ;first list push 7 ;GL_QUADS callW glBegin ;front face push p1_0 push 0 push 0 callW glNormal3f ;normal points away from the viewer push 0 push 0 push p1_0 callW glColor3f ;first corner color red push p1_0 push p1_0 push p1_0 callW glVertex3f ;first corner coordz: top right push 0 push p1_0 push 0 callW glColor3f ;second corner color green push p1_0 push m1_0 push p1_0 callW glVertex3f ;second corner coordz: bottom right push p1_0 push p1_0 push p1_0 callW glColor3f ;third corner color white push p1_0 push m1_0 push m1_0 callW glVertex3f ;third corner coordz: bottom left push p1_0 push 0 push p1_0 callW glColor3f ;fourth corner color pink push p1_0 push p1_0 push m1_0 callW glVertex3f ;fourth corner coordz: top left ;left face push 0 push 0 push p1_0 callW glNormal3f ;normal points to the right push p1_0 push 0 push 0 callW glColor3f ;first corner color blue push p1_0 push p1_0 push p1_0 callW glVertex3f ;first corner coordz: top front push p1_0 push 0 push 0 callW glColor3f ;second corner color blue push p1_0 push m1_0 push p1_0 callW glVertex3f ;second corner coordz: bottom front push 0 push 0 push p1_0 callW glColor3f ;third corner color red push m1_0 push m1_0 push p1_0 callW glVertex3f ;third corner coordz: bottom far push 0 push 0 push p1_0 callW glColor3f ;fourth corner color red push m1_0 push p1_0 push p1_0 callW glVertex3f ;fourth corner coordz: top far callW glEnd callW glEndList ;-------- the pyramid (no normals: no shadow effect) mov eax, objet1 inc eax mov objet2, eax ;second object handle push 1300h ;GL_COMPILE push objet2 callW glNewList ;second list push 4 ;GL_TRIANGLE callW glBegin ;front face red push 0 push 0 push p1_0 callW glColor3f push 0 push 0 push 0 callW glVertex3f push 0 push p1_0 push 0 callW glVertex3f push 0 push 0 push p1_0 callW glVertex3f ;right-back face blue push p1_0 push 0 push 0 callW glColor3f push 0 push p1_0 push 0 callW glVertex3f push 0 push 0 push p1_0 callW glVertex3f push m1_0 push 0 push 0 callW glVertex3f ;left face pink push p1_0 push 0 push p1_0 callW glColor3f push 0 push 0 push 0 callW glVertex3f push m1_0 push 0 push 0 callW glVertex3f push 0 push p1_0 push 0 callW glVertex3f ;bottom face white push p1_0 push p1_0 push p1_0 callW glColor3f push 0 push 0 push 0 callW glVertex3f push 0 push 0 push p1_0 callW glVertex3f push m1_0 push 0 push 0 callW glVertex3f callW glEnd callW glEndList ;others things push 0 push 0 push 0 push 0 callW glClearColor push 500 push 500 push 0 push 0 callW glViewport push p1__0 callW glClearDepth push 0b71h ;GL_DEPTH_TEST callW glEnable push 203h ;GL_LEQUAL callW glDepthFunc push 1102h ;GL_NICEST push 0c50h ;GL_PERSPECTIVE_CORRECTION_HINT callW glHint push 1d01h ;GL_SMOOTH callW glShadeModel ;push 0b44h ;GL_CULL_FACE ;callW glEnable ;Don't show faces when drawn counter clockwise push 1701h ;GL_PROJECTION callW glMatrixMode callW glLoadIdentity push pp10 ;zfar push p4__0 ;znear push p3__0 ;top push m3__0 ;bottom push p3__0 ;right push m3__0 ;left callW glFrustum push 1700h ;GL_MODELVIEW callW glMatrixMode callW glLoadIdentity push offset Light_Diffuse push 1201h ;GL_DIFFUSE push 4000h ;GL_LIGHT0 callW glLightfv push offset Light_Position push 1203h ;GL_POSITION push 4000h ;GL_LIGHT0 callW glLightfv push 0b57h ;GL_COLOR_MATERIAL callW glEnable ret ;--------------------- calculate, draw, eat cpu time... ---------------------- draw_opengl: push 4000h+100h ;GL_COLOR_BUFFER_BIT+GL_DEPTH_BUFFER_BIT callW glClear ;--- draw rotating rectangle on ze left callW glLoadIdentity push m6_0 ;z push 0 ;y push m1_5 ;x callW glTranslatef push 0 push p1_0 push 0 push angle callW glRotatef push 0b50h ;GL_LIGHTING callW glEnable push 4000h ;GL_LIGHT0 callW glEnable push objet1 callW glCallList ;---- Draw rotating pyramid on the right callW glLoadIdentity push m5_0 ;z push 0 ;y push p2_0 ;x callW glTranslatef push p1_0 push p1_0 push p1_0 push angle callW glRotatef push p1_0 push 0 push 0 callW glColor3f push 0b50h ;GL_LIGHTING callW glEnable push 4000h ;GL_LIGHT0 callW glEnable push objet2 callW glCallList push theDC callW SwapBuffers fld angle fadd increment ;increment angle fstp angle ret end start ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;----------OpenGL in win32asm example 3---------------- ; ; draw some letters in 3D and rotate them ; ; not at all optimized, it's better for code clarity ; by Spanska for Xine#5, February 2001, copyleft ; ; TASM32 /ml /m3 /z /t opengl ; TLINK32 -Tpe -aa opengl,,,import32 opengl32 callW macro x extrn x:PROC call x endm .386p .model flat,STDCALL .data ;------------- funky structures --------------------- paint_struct: pshdc dd ? psfErase dd 0 psrcPaint dd offset rect_struct psfRestore dd ? psfIncUpdate dd ? psrgbReserved db 32 dup(?) rect_struct: rcLeft dd ? rcTop dd ? rcRight dd ? rcBottom dd ? wndclassx: clscbSize dd wndclassx_size clsStyle dd 20h+2+1 ; class style CS_OWNDC+CS_VREDRAW+CS_HREDRAW clsLpfnWndProc dd ? clsCbClsExtra dd 0 clsCbWndExtra dd 0 clsHInstance dd ? ; instance handle clsHIcon dd 0 ; class icon handle clsHCursor dd 0 ; class cursor handle clsHbrBackground dd 7 ; class background brush clsLpszMenuName dd 0 ; menu name clsLpszClassName dd ? ; far ptr to class name clshIconSm dd 0 wndclassx_size equ $-offset wndclassx msg: msHWND dd ? msMESSAGE dd ? msWPARAM dd ? msLPARAM dd ? msTIME dd ? msPT dd ? DDPIXELFORMAT_struct: pfd_nSize dw 0 pfd_nVersion dw 0 pfd_dwFlags dd 0 pfd_iPixelType db 0 pfd_cColorBits db 0 pfd_cRedBits db 0 pfd_cRedShift db 0 pfd_cGreenBits db 0 pfd_cGreenShift db 0 pfd_cBlueBits db 0 pfd_cBlueShift db 0 pfd_cAlphaBits db 0 pfd_cAlphaShift db 0 pfd_cAccumBits db 0 pfd_cAccumRedBits db 0 pfd_cAccumGreenBits db 0 pfd_cAccumBlueBits db 0 pfd_cAccumAlphaBits db 0 pfd_cDepthBits db 0 pfd_cStencilBits db 0 pfd_cAuxBuffers db 0 pfd_iLayerType db 0 pfd_bReserved db 0 pfd_dwLayerMask dd 0 pfd_dwVisibleMask dd 0 pfd_dwDamageMask dd 0 DDPIXELFORMAT_struct_size equ $-offset DDPIXELFORMAT_struct ;------------- some data --------------------- nom_fenetre db "OpenGL",0 handle dd ? handle_wd dd ? pixformat dd ? theDC dd ? theRC dd ? objet1 dd ? objet2 dd ? font dd ? name_font db "Comic Sans MS",0 texte db "Mali" texte_size equ $ - offset texte ;-------- name some simple precision float numbers --------------------- ; (NB: i may not use them all) float TYPEDEF REAL4 angle float 0.0 increment float 3.0 p0_1 float 0.1 m0_1 float -0.1 p0_5 float 0.5 m0_5 float -0.5 m0_8 float -0.8 p0_8 float 0.8 p1_0 float 1.0 m1_0 float -1.0 p1_3 float 1.333333333 m1_5 float -1.5 p1_5 float 1.5 p1_6 float 1.6 p1_7 float 1.7 p1_8 float 1.8 p1_85 float 1.85 p1_9 float 1.9 p2_0 float 2.0 m2_0 float -2.0 m3_0 float -3.0 m3_5 float -3.5 p3_0 float 3.0 m4_0 float -4.0 p4_0 float 4.0 m5_0 float -5.0 p5_0 float 5.0 m6_0 float -6.0 m8_0 float -8.0 p10 float 10.0 m10 float -10.0 m40 float -40.0 p40 float 40.0 p45 float 45.0 ;-------- name some double precision float numbers --------------------- ; (NB: i may not use them all) dfloat TYPEDEF REAL8 p0__1 dfloat 0.1 p0__5 dfloat 0.5 m0__5 dfloat -0.5 p1__0 dfloat 1.0 p1__33 dfloat 1.3333 p2__0 dfloat 2.0 p3__0 dfloat 3.0 m3__0 dfloat -3.0 p4__0 dfloat 4.0 p5__0 dfloat 5.0 m5__0 dfloat -5.0 p7__0 dfloat 7.0 pp10 dfloat 10.0 mm10 dfloat -10.0 pp20 dfloat 20.0 pp40 dfloat 40.0 pp45 dfloat 45.0 ;-------- small structures with float numbers --------------------- Light_Diffuse: qq1 float 1.0 ;Red qq2 float 1.0 ;Green qq3 float 1.0 ;Blue qq4 float 1.0 ;alpha? Light_Position: qq5 float 10.0 ;x qq6 float 10.0 ;y qq7 float 10.0 ;z qq8 float 0 ;directional source .code start: ;----------------- enregistrer la wndclass ---------------------------- push 0 callW GetModuleHandleA mov handle, eax mov clsHInstance, eax mov eax, offset wndproc mov clsLpfnWndProc, eax mov clsLpszClassName, offset nom_fenetre push offset wndclassx callW RegisterClassExA ;--------------------- create the window -------------------------- push 0 push handle push 0 push 0 ;HWND_DESKTOP push 500 ;hauteur push 500 ;largeur push 0 ;y push 0 ;x push 0CF0000h+4000000h+2000000h ;WS_OVERLAPPEDWINDOW+WS_CLIPSIBLINGS+WS_CLIPCHILDREN push offset nom_fenetre push offset nom_fenetre push 0 ;extra style callW CreateWindowExA mov handle_wd, eax ;------------------------ show window ------------------------------ push 1 push handle_wd callW ShowWindow push handle_wd callW UpdateWindow call enable_opengl ;<========= NOW! ;---------------------- the message loop ----------------------------- winmain_msg_loop: push 0 push 0 push handle_wd callW InvalidateRect ;force paint? push 1 push 0 push 0 push 0 push offset msg callW PeekMessageA cmp eax, 0 jnz process_messages jmp winmain_msg_loop ;----- check if window is closed -------- process_messages: cmp msMESSAGE, 12h ;WM_QUIT equ 0012h je end_loop push offset msg callW TranslateMessage push offset msg callW DispatchMessageA jmp winmain_msg_loop end_loop: call disable_opengl ;<========= NOW! push msWPARAM callW ExitProcess ;------------------ windows proc ------------------------ wndproc proc hwnd:DWORD, wmsg:DWORD, wparam:DWORD, lparam:DWORD cmp wmsg,2 ;WM_DESTROY? jne suite1 call disable_opengl push 0 callW PostQuitMessage xor eax, eax jmp wndproc_end suite1: cmp wmsg, 0fh ;WM_PAINT? jne suite3 push offset rect_struct push handle_wd callW GetClientRect mov eax, theDC mov pshdc, eax push offset paint_struct push handle_wd callW BeginPaint call draw_opengl mov eax, theDC mov pshdc, eax push offset paint_struct push handle_wd callW EndPaint xor eax, eax jmp wndproc_end suite3: cmp wmsg, 100h ;WM_KEYDOWN? jne suite4 push 0 callW PostQuitMessage xor eax, eax jmp wndproc_end suite4: push lparam push wparam push wmsg push hwnd callW DefWindowProcA wndproc_end: ret wndproc endp ;--------------------- disable OpenGL ---------------------- disable_opengl: push 256 push objet1 callW glDeleteLists ;kill font push 0 push 0 callW wglMakeCurrent push theRC callW wglDeleteContext push theDC push handle_wd callW ReleaseDC ret ;--------------------- enable OpenGL for window ----------------------------------- enable_opengl: push handle_wd callW GetDC mov theDC, eax mov pfd_nSize, DDPIXELFORMAT_struct_size mov pfd_nVersion, 1 mov pfd_dwFlags, 20h+1+4 ;PFD_SUPPORT_OPENGL OR PFD_DOUBLEBUFFER OR PFD_DRAW_TO_WINDOW mov pfd_dwLayerMask, 0 ;PFD_MAIN_PLANE mov pfd_iPixelType, 0 ;PFD_TYPE_RGBA mov pfd_cColorBits, 24 mov pfd_cDepthBits, 16 mov pfd_cAccumBits, 0 mov pfd_cStencilBits, 0 push offset DDPIXELFORMAT_struct push theDC callW ChoosePixelFormat mov pixformat, eax push offset DDPIXELFORMAT_struct push pixformat push theDC callW SetPixelFormat ;once you call this, td32 becomes crazy? push theDC callW wglCreateContext mov theRC, eax push theRC push theDC callW wglMakeCurrent ;--------------------- prepare OpenGL ---------------------- ;pre-build font in 256 display lists push 256 callW glGenLists mov objet1, eax push offset name_font push 0+0 ;family and pitch FF_DONTCARE+DEFAULT_PITCH push 4 ;output quality = ANTIALIASED_QUALITY push 0 ;clipping precision = CLIP_DEFAULT_PRECIS push 4 ;output precision = OUT_TT_PRECIS push 0 ;character set identifier = ANSI_CHARSET push 0 ;strikeout = FALSE push 0 ;underline = FALSE push 0 ;italic = FALSE push 700h ;weight = FW_BOLD push 0 ;orientation push 0 ;angle push 0 ;width push -1 ;height callW CreateFontA mov font, eax push font push theDC callW SelectObject push 0 ;When lpgmf is NULL, no glyph metrics are returned push 1 ;format = WGL_FONT_POLYGONS =1 , 0 = lines push p0_1 ;thickness in float push 0 ;deviation in float (nb of polygons in letter, 0 = best, but slooow) push objet1 push 255 ;nb of display lists to build push 0 ;starting character push theDC callW wglUseFontOutlinesA ;clear background and define window push 0 push 0 push 0 push 0 callW glClearColor push 500 push 500 push 0 push 0 callW glViewport ;set some parameters push 0b57h ;GL_COLOR_MATERIAL callW glEnable push p1__0 callW glClearDepth push 0b71h ;GL_DEPTH_TEST callW glEnable push 203h ;GL_LEQUAL callW glDepthFunc push 1102h ;GL_NICEST push 0c50h ;GL_PERSPECTIVE_CORRECTION_HINT callW glHint push 1d01h ;GL_SMOOTH callW glShadeModel ;push 0b44h ;GL_CULL_FACE ;callW glEnable ;Don't show faces when drawn counter clockwise ;define the eye parameters (position, perspective distortion) push 1701h ;GL_PROJECTION callW glMatrixMode callW glLoadIdentity push p4__0 ;zfar push p1__0 ;znear push p0__5 ;top push m0__5 ;bottom push p0__5 ;right push m0__5 ;left callW glFrustum ;define the object location push 1700h ;GL_MODELVIEW callW glMatrixMode callW glLoadIdentity push m3_0 ;angle ;z This time object coordz are defined at start push 0 ;y And at each draw_opengl, we don't put the matrix push 0 ;x back to zero with glLoadIdentity callW glTranslatef ret ;--------------------- calculate, draw, eat cpu time... ---------------------- draw_opengl: callW glPushMatrix ;save position ;go a bit to the left so text is centered push 0 ;z push 0 ;y push m1_0 ;x callW glTranslatef ;define text properties push 4000h+100h ;GL_COLOR_BUFFER_BIT+GL_DEPTH_BUFFER_BIT callW glClear push 0b50h ;GL_LIGHTING callW glEnable push 4000h ;GL_LIGHT0 callW glEnable push p0_5 push p1_0 push p0_5 callW glColor3f ;draw it push 20000h ;GL_LIST_BIT callW glPushAttrib push objet1 callW glListBase push offset texte push 1401h ;GL_UNSIGNED_BYTE parce que 0 < no de liste (=ASCII) < 255 push texte_size callW glCallLists callW glPopAttrib ;now come back, from end of text, a bit to the left and behind the text push m1_0 ;z push 0 ;y push m0_8 ;x callW glTranslatef ;define rectangle properties push 0b50h ;GL_LIGHTING callW glEnable push 4000h ;GL_LIGHT0 callW glEnable push 7 ;GL_QUADS callW glBegin ;draw multicolor rectangle push p1_0 push 0 push 0 callW glNormal3f ;pointe vers l'avant push 0 push 0 push p1_0 callW glColor3f push p0_5 push p0_5 push p0_5 callW glVertex3f push 0 push p1_0 push p1_0 callW glColor3f push p0_5 push m0_5 push p0_5 callW glVertex3f push p1_0 push 0 push p1_0 callW glColor3f push p0_5 push m0_5 push m0_5 callW glVertex3f push p1_0 push 0 push 0 callW glColor3f push p0_5 push p0_5 push m0_5 callW glVertex3f callW glEnd ;pop initial position/orientation of the objects callW glPopMatrix ;rotate the matrix a bit push p1_0 push p1_0 push p1_0 push increment callW glRotatef push theDC callW SwapBuffers ret end start ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;----------OpenGL in win32asm example 4---------------- ; ; draw some text in 3D do a StarWars like effect ; for the fun, define a non standart-shaped window ; ; not at all optimized, it's better for code clarity ; by Spanska for Xine#5, February 2001, copyleft ; ; TASM32 /ml /m3 /z /t opengl ; TLINK32 -Tpe -aa opengl,,,import32 opengl32 callW macro x extrn x:PROC call x endm .386p .model flat,STDCALL .data ;------------- funky structures --------------------- paint_struct: pshdc dd ? psfErase dd 0 psrcPaint dd offset rect_struct psfRestore dd ? psfIncUpdate dd ? psrgbReserved db 32 dup(?) rect_struct: rcLeft dd ? rcTop dd ? rcRight dd ? rcBottom dd ? wndclassx: clscbSize dd wndclassx_size clsStyle dd 20h+2+1 ; class style CS_OWNDC+CS_VREDRAW+CS_HREDRAW clsLpfnWndProc dd ? clsCbClsExtra dd 0 clsCbWndExtra dd 0 clsHInstance dd ? ; instance handle clsHIcon dd 0 ; class icon handle clsHCursor dd 0 ; class cursor handle clsHbrBackground dd 7 ; class background brush clsLpszMenuName dd 0 ; menu name clsLpszClassName dd ? ; far ptr to class name clshIconSm dd 0 wndclassx_size equ $-offset wndclassx msg: msHWND dd ? msMESSAGE dd ? msWPARAM dd ? msLPARAM dd ? msTIME dd ? msPT dd ? DDPIXELFORMAT_struct: pfd_nSize dw 0 pfd_nVersion dw 0 pfd_dwFlags dd 0 pfd_iPixelType db 0 pfd_cColorBits db 0 pfd_cRedBits db 0 pfd_cRedShift db 0 pfd_cGreenBits db 0 pfd_cGreenShift db 0 pfd_cBlueBits db 0 pfd_cBlueShift db 0 pfd_cAlphaBits db 0 pfd_cAlphaShift db 0 pfd_cAccumBits db 0 pfd_cAccumRedBits db 0 pfd_cAccumGreenBits db 0 pfd_cAccumBlueBits db 0 pfd_cAccumAlphaBits db 0 pfd_cDepthBits db 0 pfd_cStencilBits db 0 pfd_cAuxBuffers db 0 pfd_iLayerType db 0 pfd_bReserved db 0 pfd_dwLayerMask dd 0 pfd_dwVisibleMask dd 0 pfd_dwDamageMask dd 0 DDPIXELFORMAT_struct_size equ $-offset DDPIXELFORMAT_struct ;------------- some data --------------------- nom_fenetre db "OpenGL",0 handle dd ? handle_wd dd ? pixformat dd ? theDC dd ? theRC dd ? angle dd 0 objet1 dd ? objet2 dd ? font dd ? name_font db "Comic Sans MS",0 texte1 db "Miserables" texte1_size equ $ - offset texte1 texte2 db " by " texte2_size equ $ - offset texte2 texte3 db " Victor " texte3_size equ $ - offset texte3 texte4 db " and " texte4_size equ $ - offset texte4 texte5 db " Hugo " texte5_size equ $ - offset texte5 ;-------- name some simple precision float numbers --------------------- ; (NB: i may not use them all) float TYPEDEF REAL4 position_z float -2.0 increment float 0.02 p0_1 float 0.1 m0_1 float -0.1 p0_5 float 0.5 m0_5 float -0.5 m0_8 float -0.8 p0_8 float 0.8 p1_0 float 1.0 m1_0 float -1.0 p1_3 float 1.333333333 m1_5 float -1.5 p1_5 float 1.5 p1_6 float 1.6 p1_7 float 1.7 p1_8 float 1.8 p1_85 float 1.85 p1_9 float 1.9 p2_0 float 2.0 m2_0 float -2.0 m2_5 float -2.5 m3_0 float -3.0 m3_5 float -3.5 p3_0 float 3.0 m4_0 float -4.0 p4_0 float 4.0 m5_0 float -5.0 p5_0 float 5.0 m6_0 float -6.0 m8_0 float -8.0 p10 float 10.0 m10 float -10.0 m40 float -40.0 p40 float 40.0 p45 float 45.0 m45 float -45.0 m60 float -60.0 m70 float -70.0 p90 float 90.0 m90 float -90.0 ;-------- name some double precision float numbers --------------------- ; (NB: i may not use them all) dfloat TYPEDEF REAL8 p0__1 dfloat 0.1 p0__5 dfloat 0.5 m0__5 dfloat -0.5 p1__0 dfloat 1.0 p1__33 dfloat 1.3333 p2__0 dfloat 2.0 p3__0 dfloat 3.0 m3__0 dfloat -3.0 p4__0 dfloat 4.0 p5__0 dfloat 5.0 m5__0 dfloat -5.0 p7__0 dfloat 7.0 pp10 dfloat 10.0 mm10 dfloat -10.0 pp20 dfloat 20.0 pp40 dfloat 40.0 pp45 dfloat 45.0 ;-------- small structures with float numbers --------------------- Light_Diffuse: qq1 float 1.0 ;Red qq2 float 1.0 ;Green qq3 float 1.0 ;Blue qq4 float 1.0 ;alpha? Light_Position: qq5 float 10.0 ;x qq6 float 10.0 ;y qq7 float 10.0 ;z qq8 float 0 ;directional source .code start: ;----------------- register wndclass ---------------------------- push 0 callW GetModuleHandleA mov handle, eax mov clsHInstance, eax mov eax, offset wndproc mov clsLpfnWndProc, eax mov clsLpszClassName, offset nom_fenetre push offset wndclassx callW RegisterClassExA ;--------------------- create the window -------------------------- push 0 push handle push 0 push 0 ;HWND_DESKTOP push 400 ;hauteur push 800 ;largeur push 100 ;y push 0 ;x push 0CF0000h+4000000h+2000000h ;WS_OVERLAPPEDWINDOW+WS_CLIPSIBLINGS+WS_CLIPCHILDREN push offset nom_fenetre push offset nom_fenetre push 0 ;extra style callW CreateWindowExA mov handle_wd, eax ;---------- define ellipsoidal window mask ------------------- push 395 ;y lower-right push 790 ;x lower-right push 30 ;y upper-left push 10 ;x upper-left callW CreateEllipticRgn ;return region handle push 1 ;window redraw flag 1=true push eax ;handle to region push handle_wd callW SetWindowRgn ;------------------------ show window ------------------------------ push 1 push handle_wd callW ShowWindow push handle_wd callW UpdateWindow call enable_opengl ;--------------------- the message loop -------------------------- winmain_msg_loop: push 0 push 0 push handle_wd callW InvalidateRect ;force paint? push 1 push 0 push 0 push 0 push offset msg callW PeekMessageA cmp eax, 0 jnz process_messages jmp winmain_msg_loop ;----- check if window is closed -------- process_messages: cmp msMESSAGE, 12h ;WM_QUIT equ 0012h je end_loop push offset msg callW TranslateMessage push offset msg callW DispatchMessageA jmp winmain_msg_loop end_loop: call disable_opengl push msWPARAM callW ExitProcess ;------------------ windows proc ------------------------ wndproc proc hwnd:DWORD, wmsg:DWORD, wparam:DWORD, lparam:DWORD cmp wmsg,2 ;WM_DESTROY? jne suite1 call disable_opengl push 0 callW PostQuitMessage xor eax, eax jmp wndproc_end suite1: cmp wmsg, 0fh ;WM_PAINT? jne suite3 push offset rect_struct push handle_wd callW GetClientRect mov eax, theDC mov pshdc, eax push offset paint_struct push handle_wd callW BeginPaint call draw_opengl mov eax, theDC mov pshdc, eax push offset paint_struct push handle_wd callW EndPaint xor eax, eax jmp wndproc_end suite3: cmp wmsg, 100h ;WM_KEYDOWN? jne suite4 push 0 callW PostQuitMessage xor eax, eax jmp wndproc_end suite4: push lparam push wparam push wmsg push hwnd callW DefWindowProcA wndproc_end: ret wndproc endp ;--------------------- disable OpenGL ---------------------- disable_opengl: push 256 push objet1 callW glDeleteLists ;kill font push 0 push 0 callW wglMakeCurrent push theRC callW wglDeleteContext push theDC push handle_wd callW ReleaseDC ret ;--------------------- enable OpenGL for window ----------------------------------- enable_opengl: push handle_wd callW GetDC mov theDC, eax mov pfd_nSize, DDPIXELFORMAT_struct_size mov pfd_nVersion, 1 mov pfd_dwFlags, 20h+1+4 ;PFD_SUPPORT_OPENGL OR PFD_DOUBLEBUFFER OR PFD_DRAW_TO_WINDOW mov pfd_dwLayerMask, 0 ;PFD_MAIN_PLANE mov pfd_iPixelType, 0 ;PFD_TYPE_RGBA mov pfd_cColorBits, 24 mov pfd_cDepthBits, 16 mov pfd_cAccumBits, 0 mov pfd_cStencilBits, 0 push offset DDPIXELFORMAT_struct push theDC callW ChoosePixelFormat mov pixformat, eax push offset DDPIXELFORMAT_struct push pixformat push theDC callW SetPixelFormat ;once you call this, td32 becomes crazy? push theDC callW wglCreateContext mov theRC, eax push theRC push theDC callW wglMakeCurrent ;--------------------- prepare OpenGL ---------------------- ;pre-build font in 256 display lists push 256 callW glGenLists mov objet1, eax push offset name_font push 0+0 ;family and pitch FF_DONTCARE+DEFAULT_PITCH push 4 ;output quality = ANTIALIASED_QUALITY push 0 ;clipping precision = CLIP_DEFAULT_PRECIS push 4 ;output precision = OUT_TT_PRECIS push 0 ;character set identifier = ANSI_CHARSET push 0 ;strikeout = FALSE push 0 ;underline = FALSE push 0 ;italic = FALSE push 700h ;weight = FW_BOLD push 0 ;orientation push 0 ;angle push 0 ;width push -1 ;height callW CreateFontA mov font, eax push font push theDC callW SelectObject push 0 ;When lpgmf is NULL, no glyph metrics are returned push 1 ;format = WGL_FONT_POLYGONS =1 , 0 = lines push p0_1 ;thickness in float push p1_0 ;deviation in float (nb of polygons in letter, 0 = best, but slooow) push objet1 push 255 ;nb of display lists to build push 0 ;starting character push theDC callW wglUseFontOutlinesA ;clear background and define window push 0 push 0 push 0 push 0 callW glClearColor push 400 push 800 push 0 push 0 callW glViewport ;set some parameters push 0b57h ;GL_COLOR_MATERIAL callW glEnable push p1__0 callW glClearDepth push 0b71h ;GL_DEPTH_TEST callW glEnable push 203h ;GL_LEQUAL callW glDepthFunc push 1102h ;GL_NICEST push 0c50h ;GL_PERSPECTIVE_CORRECTION_HINT (slower) callW glHint push 1d01h ;GL_SMOOTH callW glShadeModel push 0b44h ;GL_CULL_FACE callW glEnable ;ne montre pas les faces quand dessinees ccw (faster) ;define the eye parameters (position, perspective distortion) push 1701h ;GL_PROJECTION callW glMatrixMode callW glLoadIdentity push pp40 ;zfar push p1__0 ;znear push p0__5 ;top push m0__5 ;bottom push p0__5 ;right push m0__5 ;left callW glFrustum ;define the object location/orientation push 1700h ;GL_MODELVIEW callW glMatrixMode callW glLoadIdentity push position_z ;z Cette fois on definit des le depart les coords de l'objet push m2_0 ;y Et a chaque draw_opengl on ne remet pas la matrice a push 0 ;x zero avec glLoadIdentity callW glTranslatef push 0 push 0 push p1_0 push m60 callW glRotatef ret ;--------------------- calculate, draw, eat cpu time... ---------------------- draw_opengl: callW glPushMatrix ;save position for the end - think like a Push EAX ;---- first line ;go a bit to the left so text is centered push 0 ;z push 0 ;y push m2_0 ;x callW glTranslatef ;define text properties push 4000h+100h ;GL_COLOR_BUFFER_BIT+GL_DEPTH_BUFFER_BIT callW glClear push 0b50h ;GL_LIGHTING callW glEnable push 4000h ;GL_LIGHT0 callW glEnable push 0 push 0 push p1_0 callW glColor3f ;draw it push 20000h ;GL_LIST_BIT callW glPushAttrib push objet1 callW glListBase push offset texte1 push 1401h ;GL_UNSIGNED_BYTE parce que 0 < no de liste (=ASCII) < 255 push texte1_size callW glCallLists callW glPopAttrib ;---- second line ;go a bit to the left so text is centered push m0_5 ;z push m0_5 ;y push m4_0 ;x callW glTranslatef ;define text properties push 0b50h ;GL_LIGHTING callW glEnable push 4000h ;GL_LIGHT0 callW glEnable push 0 push p1_0 push p1_0 callW glColor3f ;draw it push 20000h ;GL_LIST_BIT callW glPushAttrib push objet1 callW glListBase push offset texte2 push 1401h ;GL_UNSIGNED_BYTE parce que 0 < no de liste (=ASCII) < 255 push texte2_size callW glCallLists callW glPopAttrib ;---- third line ;go a bit to the left so text is centered push p0_5 ;z push m1_5 ;y push m2_5 ;x callW glTranslatef ;define text properties push 0b50h ;GL_LIGHTING callW glEnable push 4000h ;GL_LIGHT0 callW glEnable push p1_0 push p1_0 push p1_0 callW glColor3f ;draw it push 20000h ;GL_LIST_BIT callW glPushAttrib push objet1 callW glListBase push offset texte3 push 1401h ;GL_UNSIGNED_BYTE parce que 0 < no de liste (=ASCII) < 255 push texte3_size callW glCallLists callW glPopAttrib ;---- line 4 ;go a bit to the left so text is centered push m0_5 ;z push m0_5 ;y push m4_0 ;x callW glTranslatef ;define text properties push 0b50h ;GL_LIGHTING callW glEnable push 4000h ;GL_LIGHT0 callW glEnable push 0 push p1_0 push p1_0 callW glColor3f ;draw it push 20000h ;GL_LIST_BIT callW glPushAttrib push objet1 callW glListBase push offset texte4 push 1401h ;GL_UNSIGNED_BYTE parce que 0 < no de liste (=ASCII) < 255 push texte4_size callW glCallLists callW glPopAttrib ;---- line 5 ;go a bit to the left so text is centered push p0_5 ;z push m1_5 ;y push m3_0 ;x callW glTranslatef ;define text properties push 0b50h ;GL_LIGHTING callW glEnable push 4000h ;GL_LIGHT0 callW glEnable push p1_0 push p1_0 push p1_0 callW glColor3f ;draw it push 20000h ;GL_LIST_BIT callW glPushAttrib push objet1 callW glListBase push offset texte5 push 1401h ;GL_UNSIGNED_BYTE parce que 0 < no de liste (=ASCII) < 255 push texte5_size callW glCallLists callW glPopAttrib ;pop initial position/orientation of the objects callW glPopMatrix ;deplace the matrix a bit push 0 ;z push increment ;y push 0 ;x callW glTranslatef push theDC callW SwapBuffers ret end start ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;----------OpenGL in win32asm example 5---------------- ; ; draw some text in flat 3D do a StarWars like effect ; for the fun, make it full-screen ; ; not at all optimized, it's better for code clarity ; by Spanska for Xine#5, February 2001, copyleft ; ; TASM32 /ml /m3 /z /t opengl ; TLINK32 -Tpe -aa opengl,,,import32 opengl32 callW macro x extrn x:PROC call x endm .386p .model flat,STDCALL .data ;------------- funky structures --------------------- paint_struct: pshdc dd ? psfErase dd 0 psrcPaint dd offset rect_struct psfRestore dd ? psfIncUpdate dd ? psrgbReserved db 32 dup(?) rect_struct: rcLeft dd ? rcTop dd ? rcRight dd ? rcBottom dd ? wndclassx: clscbSize dd wndclassx_size clsStyle dd 20h+2+1 ; class style CS_OWNDC+CS_VREDRAW+CS_HREDRAW clsLpfnWndProc dd ? clsCbClsExtra dd 0 clsCbWndExtra dd 0 clsHInstance dd ? ; instance handle clsHIcon dd 0 ; class icon handle clsHCursor dd 0 ; class cursor handle clsHbrBackground dd 7 ; class background brush clsLpszMenuName dd 0 ; menu name clsLpszClassName dd ? ; far ptr to class name clshIconSm dd 0 wndclassx_size equ $-offset wndclassx msg: msHWND dd ? msMESSAGE dd ? msWPARAM dd ? msLPARAM dd ? msTIME dd ? msPT dd ? DDPIXELFORMAT_struct: pfd_nSize dw 0 pfd_nVersion dw 0 pfd_dwFlags dd 0 pfd_iPixelType db 0 pfd_cColorBits db 0 pfd_cRedBits db 0 pfd_cRedShift db 0 pfd_cGreenBits db 0 pfd_cGreenShift db 0 pfd_cBlueBits db 0 pfd_cBlueShift db 0 pfd_cAlphaBits db 0 pfd_cAlphaShift db 0 pfd_cAccumBits db 0 pfd_cAccumRedBits db 0 pfd_cAccumGreenBits db 0 pfd_cAccumBlueBits db 0 pfd_cAccumAlphaBits db 0 pfd_cDepthBits db 0 pfd_cStencilBits db 0 pfd_cAuxBuffers db 0 pfd_iLayerType db 0 pfd_bReserved db 0 pfd_dwLayerMask dd 0 pfd_dwVisibleMask dd 0 pfd_dwDamageMask dd 0 DDPIXELFORMAT_struct_size equ $-offset DDPIXELFORMAT_struct ;------------- some data --------------------- nom_fenetre db "OpenGL",0 handle dd ? handle_wd dd ? adresse_retour dd ? pixformat dd ? theDC dd ? theRC dd ? objet1 dd ? objet2 dd ? font dd ? name_font db "Comic Sans MS",0 texte1 db "Miserables" texte1_size equ $ - offset texte1 texte2 db " by " texte2_size equ $ - offset texte2 texte3 db " Victor " texte3_size equ $ - offset texte3 texte4 db " and " texte4_size equ $ - offset texte4 texte5 db " Hugo " texte5_size equ $ - offset texte5 screenX dd ? screenY dd ? ;-------- name some simple precision float numbers --------------------- ; (NB: i may not use them all) float TYPEDEF REAL4 position_z float -2.0 increment float 0.02 p0_1 float 0.1 m0_1 float -0.1 p0_5 float 0.5 m0_5 float -0.5 m0_8 float -0.8 p0_8 float 0.8 p1_0 float 1.0 m1_0 float -1.0 p1_3 float 1.333333333 m1_5 float -1.5 p1_5 float 1.5 p1_6 float 1.6 p1_7 float 1.7 p1_8 float 1.8 p1_85 float 1.85 p1_9 float 1.9 p2_0 float 2.0 m2_0 float -2.0 m2_5 float -2.5 m3_0 float -3.0 m3_5 float -3.5 p3_0 float 3.0 m4_0 float -4.0 p4_0 float 4.0 m5_0 float -5.0 p5_0 float 5.0 m6_0 float -6.0 m8_0 float -8.0 p10 float 10.0 m10 float -10.0 m40 float -40.0 p40 float 40.0 p45 float 45.0 m45 float -45.0 m60 float -60.0 m70 float -70.0 p90 float 90.0 m90 float -90.0 ;-------- name some double precision float numbers --------------------- ; (NB: i may not use them all) dfloat TYPEDEF REAL8 p0__1 dfloat 0.1 p0__5 dfloat 0.5 m0__5 dfloat -0.5 p1__0 dfloat 1.0 p1__33 dfloat 1.3333 p2__0 dfloat 2.0 p3__0 dfloat 3.0 m3__0 dfloat -3.0 p4__0 dfloat 4.0 p5__0 dfloat 5.0 m5__0 dfloat -5.0 p7__0 dfloat 7.0 pp10 dfloat 10.0 mm10 dfloat -10.0 pp20 dfloat 20.0 pp40 dfloat 40.0 pp45 dfloat 45.0 ;-------- small structures with float numbers --------------------- Light_Diffuse: qq1 float 1.0 ;Red qq2 float 1.0 ;Green qq3 float 1.0 ;Blue qq4 float 1.0 ;alpha? Light_Position: qq5 float 10.0 ;x qq6 float 10.0 ;y qq7 float 10.0 ;z qq8 float 0 ;directional source .code start: ;----------------- register wndclass ---------------------------- push 0 callW GetModuleHandleA mov handle, eax mov clsHInstance, eax mov eax, offset wndproc mov clsLpfnWndProc, eax mov clsLpszClassName, offset nom_fenetre push offset wndclassx callW RegisterClassExA ;------------------- get screen size -------------------------------- push 0 ;SM_CXSCREEN callW GetSystemMetrics mov screenX, eax push 1 ;SM_CYSCREEN callW GetSystemMetrics mov screenY, eax ;--------------------- create the window -------------------------- push 0 push handle push 0 push 0 ;HWND_DESKTOP push screenY ;hauteur push screenX ;largeur push 0 ;y push 0 ;x push 80000000h+1000000h ;WS_POPUP push offset nom_fenetre push offset nom_fenetre push 0 ;extra style callW CreateWindowExA mov handle_wd, eax ;------------------------ show window ------------------------------ push 1 push handle_wd callW ShowWindow push handle_wd callW UpdateWindow call enable_opengl ;------------------------ the message loop ---------------------------------- winmain_msg_loop: push 0 push 0 push handle_wd callW InvalidateRect ;force paint? push 1 push 0 push 0 push 0 push offset msg callW PeekMessageA cmp eax, 0 jnz process_messages jmp winmain_msg_loop ;----- check if window is closed -------- process_messages: cmp msMESSAGE, 12h ;WM_QUIT equ 0012h je end_loop push offset msg callW TranslateMessage push offset msg callW DispatchMessageA jmp winmain_msg_loop end_loop: call disable_opengl push msWPARAM callW ExitProcess ;------------------ windows proc ------------------------ wndproc proc hwnd:DWORD, wmsg:DWORD, wparam:DWORD, lparam:DWORD cmp wmsg,2 ;WM_DESTROY? jne suite1 call disable_opengl push 0 callW PostQuitMessage xor eax, eax jmp wndproc_end suite1: cmp wmsg, 0fh ;WM_PAINT? jne suite3 push offset rect_struct push handle_wd callW GetClientRect mov eax, theDC mov pshdc, eax push offset paint_struct push handle_wd callW BeginPaint call draw_opengl mov eax, theDC mov pshdc, eax push offset paint_struct push handle_wd callW EndPaint xor eax, eax jmp wndproc_end suite3: cmp wmsg, 100h ;WM_KEYDOWN? jne suite4 push 0 callW PostQuitMessage xor eax, eax jmp wndproc_end suite4: push lparam push wparam push wmsg push hwnd callW DefWindowProcA wndproc_end: ret wndproc endp ;--------------------- disable OpenGL ---------------------- disable_opengl: push 256 push objet1 callW glDeleteLists ;kill font push 0 push 0 callW wglMakeCurrent push theRC callW wglDeleteContext push theDC push handle_wd callW ReleaseDC ret ;--------------------- enable OpenGL for window ----------------------------------- enable_opengl: push handle_wd callW GetDC mov theDC, eax mov pfd_nSize, DDPIXELFORMAT_struct_size mov pfd_nVersion, 1 mov pfd_dwFlags, 20h+1+4 ;PFD_SUPPORT_OPENGL OR PFD_DOUBLEBUFFER OR PFD_DRAW_TO_WINDOW mov pfd_dwLayerMask, 0 ;PFD_MAIN_PLANE mov pfd_iPixelType, 0 ;PFD_TYPE_RGBA mov pfd_cColorBits, 24 mov pfd_cDepthBits, 16 mov pfd_cAccumBits, 0 mov pfd_cStencilBits, 0 push offset DDPIXELFORMAT_struct push theDC callW ChoosePixelFormat mov pixformat, eax push offset DDPIXELFORMAT_struct push pixformat push theDC callW SetPixelFormat ;once you call this, td32 becomes crazy? push theDC callW wglCreateContext mov theRC, eax push theRC push theDC callW wglMakeCurrent ;--------------------- prepare OpenGL ---------------------- ;pre-build font in 256 display lists push 256 callW glGenLists mov objet1, eax push offset name_font push 0+0 ;family and pitch FF_DONTCARE+DEFAULT_PITCH push 4 ;output quality = ANTIALIASED_QUALITY push 0 ;clipping precision = CLIP_DEFAULT_PRECIS push 4 ;output precision = OUT_TT_PRECIS push 0 ;character set identifier = ANSI_CHARSET push 0 ;strikeout = FALSE push 0 ;underline = FALSE push 0 ;italic = FALSE push 700h ;weight = FW_BOLD push 0 ;orientation push 0 ;angle push 0 ;width push -1 ;height callW CreateFontA mov font, eax push font push theDC callW SelectObject push 0 ;When lpgmf is NULL, no glyph metrics are returned push 1 ;format = WGL_FONT_POLYGONS =1 , 0 = lines push 0 ;p0_1 ;thickness in float push p1_0 ;deviation in float (nb of polygons in letter, 0 = best, but slooow) push objet1 push 255 ;nb of display lists to build push 0 ;starting character push theDC callW wglUseFontOutlinesA ;clear background and define window push 0 push 0 push 0 push 0 callW glClearColor push screenY push screenX push 0 push 0 callW glViewport ;set some parameters push 0b57h ;GL_COLOR_MATERIAL callW glEnable push p1__0 callW glClearDepth push 0b71h ;GL_DEPTH_TEST callW glEnable push 203h ;GL_LEQUAL callW glDepthFunc push 1102h ;GL_NICEST push 0c50h ;GL_PERSPECTIVE_CORRECTION_HINT (slower) callW glHint push 1d01h ;GL_SMOOTH callW glShadeModel push 0b44h ;GL_CULL_FACE callW glEnable ;ne montre pas les faces quand dessinees ccw (faster) ;define the eye parameters (position, perspective distortion) push 1701h ;GL_PROJECTION callW glMatrixMode callW glLoadIdentity push pp40 ;zfar push p1__0 ;znear push p0__5 ;top push m0__5 ;bottom push p0__5 ;right push m0__5 ;left callW glFrustum ;define the object location/orientation push 1700h ;GL_MODELVIEW callW glMatrixMode callW glLoadIdentity push position_z ;z Cette fois on definit des le depart les coords de l'objet push m2_0 ;y Et a chaque draw_opengl on ne remet pas la matrice a push 0 ;x zero avec glLoadIdentity callW glTranslatef push 0 push 0 push p1_0 push m60 callW glRotatef ret ;--------------------- calculate, draw, eat cpu time... ---------------------- draw_opengl: callW glPushMatrix ;save position for the end - think like a Push EAX ;---- first line ;go a bit to the left so text is centered push 0 ;z push 0 ;y push m2_0 ;x callW glTranslatef ;define text properties push 4000h+100h ;GL_COLOR_BUFFER_BIT+GL_DEPTH_BUFFER_BIT callW glClear push 0b50h ;GL_LIGHTING callW glEnable push 4000h ;GL_LIGHT0 callW glEnable push 0 push 0 push p1_0 callW glColor3f ;draw it push 20000h ;GL_LIST_BIT callW glPushAttrib push objet1 callW glListBase push offset texte1 push 1401h ;GL_UNSIGNED_BYTE parce que 0 < no de liste (=ASCII) < 255 push texte1_size callW glCallLists callW glPopAttrib ;---- second line ;go a bit to the left so text is centered push m0_5 ;z push m0_5 ;y push m4_0 ;x callW glTranslatef ;define text properties push 0b50h ;GL_LIGHTING callW glEnable push 4000h ;GL_LIGHT0 callW glEnable push 0 push p1_0 push p1_0 callW glColor3f ;draw it push 20000h ;GL_LIST_BIT callW glPushAttrib push objet1 callW glListBase push offset texte2 push 1401h ;GL_UNSIGNED_BYTE parce que 0 < no de liste (=ASCII) < 255 push texte2_size callW glCallLists callW glPopAttrib ;---- third line ;go a bit to the left so text is centered push p0_5 ;z push m1_5 ;y push m2_5 ;x callW glTranslatef ;define text properties push 0b50h ;GL_LIGHTING callW glEnable push 4000h ;GL_LIGHT0 callW glEnable push p1_0 push p1_0 push p1_0 callW glColor3f ;draw it push 20000h ;GL_LIST_BIT callW glPushAttrib push objet1 callW glListBase push offset texte3 push 1401h ;GL_UNSIGNED_BYTE parce que 0 < no de liste (=ASCII) < 255 push texte3_size callW glCallLists callW glPopAttrib ;---- line 4 ;go a bit to the left so text is centered push m0_5 ;z push m0_5 ;y push m4_0 ;x callW glTranslatef ;define text properties push 0b50h ;GL_LIGHTING callW glEnable push 4000h ;GL_LIGHT0 callW glEnable push 0 push p1_0 push p1_0 callW glColor3f ;draw it push 20000h ;GL_LIST_BIT callW glPushAttrib push objet1 callW glListBase push offset texte4 push 1401h ;GL_UNSIGNED_BYTE parce que 0 < no de liste (=ASCII) < 255 push texte4_size callW glCallLists callW glPopAttrib ;---- line 5 ;go a bit to the left so text is centered push p0_5 ;z push m1_5 ;y push m4_0 ;x callW glTranslatef ;define text properties push 0b50h ;GL_LIGHTING callW glEnable push 4000h ;GL_LIGHT0 callW glEnable push p1_0 push p1_0 push p1_0 callW glColor3f ;draw it push 20000h ;GL_LIST_BIT callW glPushAttrib push objet1 callW glListBase push offset texte5 push 1401h ;GL_UNSIGNED_BYTE parce que 0 < no de liste (=ASCII) < 255 push texte5_size callW glCallLists callW glPopAttrib ;pop initial position/orientation of the objects callW glPopMatrix ;deplace the matrix a bit push 0 ;z push increment ;y push 0 ;x callW glTranslatef push theDC callW SwapBuffers ret end start ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;----------OpenGL in win32asm example 6---------------- ; ; draw an hypnotizing spiral in 2D (was done for Hybris) ; (it's actually a bit overkill to do 2D stuff in OpenGL) ; ; not at all optimized, it's better for code clarity ; by Spanska for Xine#5, February 2001, copyleft ; ; TASM32 /ml /m3 /z /t opengl ; TLINK32 -Tpe -aa opengl,,,import32 opengl32 callW macro x extrn x:PROC call x endm .386p .model flat,STDCALL .data ;------------- funky structures --------------------- paint_struct: pshdc dd ? psfErase dd 0 psrcPaint dd offset rect_struct psfRestore dd ? psfIncUpdate dd ? psrgbReserved db 32 dup(?) rect_struct: rcLeft dd ? rcTop dd ? rcRight dd ? rcBottom dd ? wndclassx: clscbSize dd wndclassx_size clsStyle dd 20h+2+1 ; class style CS_OWNDC+CS_VREDRAW+CS_HREDRAW clsLpfnWndProc dd ? clsCbClsExtra dd 0 clsCbWndExtra dd 0 clsHInstance dd ? ; instance handle clsHIcon dd 0 ; class icon handle clsHCursor dd 0 ; class cursor handle clsHbrBackground dd 7 ; class background brush clsLpszMenuName dd 0 ; menu name clsLpszClassName dd ? ; far ptr to class name clshIconSm dd 0 wndclassx_size equ $-offset wndclassx msg: msHWND dd ? msMESSAGE dd ? msWPARAM dd ? msLPARAM dd ? msTIME dd ? msPT dd ? DDPIXELFORMAT_struct: pfd_nSize dw 0 pfd_nVersion dw 0 pfd_dwFlags dd 0 pfd_iPixelType db 0 pfd_cColorBits db 0 pfd_cRedBits db 0 pfd_cRedShift db 0 pfd_cGreenBits db 0 pfd_cGreenShift db 0 pfd_cBlueBits db 0 pfd_cBlueShift db 0 pfd_cAlphaBits db 0 pfd_cAlphaShift db 0 pfd_cAccumBits db 0 pfd_cAccumRedBits db 0 pfd_cAccumGreenBits db 0 pfd_cAccumBlueBits db 0 pfd_cAccumAlphaBits db 0 pfd_cDepthBits db 0 pfd_cStencilBits db 0 pfd_cAuxBuffers db 0 pfd_iLayerType db 0 pfd_bReserved db 0 pfd_dwLayerMask dd 0 pfd_dwVisibleMask dd 0 pfd_dwDamageMask dd 0 DDPIXELFORMAT_struct_size equ $-offset DDPIXELFORMAT_struct ;------------- some data --------------------- nom_fenetre db "OpenGL",0 handle dd ? handle_wd dd ? adresse_retour dd ? pixformat dd ? theDC dd ? theRC dd ? screenX dd ? screenY dd ? ;--------- spiral data -------------- color dd 0ffffffffh pen dd ? compteur dd 110 hbit dd ? hbrush dd ? float TYPEDEF REAL4 angle1 float 0.0 angle2 float 1.0 angle3 float 3.1415926535 angle4 float 4.1415926535 angle_inc float 0.2 zoom float 0.01 zoom_reset float 0.01 zoom_inc float 0.01 angle_anim float 0.0 angle_anim_inc float 0.2 y1 float 0.0 x1 float 0.0 y2 float 0.0 x2 float 0.0 yy1 float 0.0 xx1 float 0.0 yy2 float 0.0 xx2 float 0.0 yyy1 float 0.0 xxx1 float 0.0 yyy2 float 0.0 xxx2 float 0.0 yyyy1 float 0.0 xxxx1 float 0.0 yyyy2 float 0.0 xxxx2 float 0.0 ;-------- name some simple precision float numbers --------------------- ; (NB: i may not use them all) p0_1 float 0.1 m0_1 float -0.1 p0_5 float 0.5 m0_5 float -0.5 m0_8 float -0.8 p0_8 float 0.8 p1_0 float 1.0 m1_0 float -1.0 p1_3 float 1.333333333 m1_5 float -1.5 p1_5 float 1.5 p1_6 float 1.6 p1_7 float 1.7 p1_8 float 1.8 p1_85 float 1.85 p1_9 float 1.9 p2_0 float 2.0 m2_0 float -2.0 m2_5 float -2.5 m3_0 float -3.0 m3_5 float -3.5 p3_0 float 3.0 m4_0 float -4.0 p4_0 float 4.0 m5_0 float -5.0 p5_0 float 5.0 m6_0 float -6.0 m8_0 float -8.0 p10 float 10.0 m10 float -10.0 m40 float -40.0 p40 float 40.0 p45 float 45.0 m45 float -45.0 m60 float -60.0 m70 float -70.0 p90 float 90.0 m90 float -90.0 .code start: ;------------------------- get screen size, center hypno ----------------- push 0 ;SM_CXSCREEN callW GetSystemMetrics sub eax, 600 shr eax, 1 mov screenX, eax push 1 ;SM_CYSCREEN callW GetSystemMetrics sub eax, 600 shr eax, 1 mov screenY, eax ;----------------- register wndclass ---------------------------- push 0 callW GetModuleHandleA mov handle, eax mov clsHInstance, eax mov eax, offset wndproc mov clsLpfnWndProc, eax mov clsLpszClassName, offset nom_fenetre push offset wndclassx callW RegisterClassExA ;--------------------- create the window -------------------------- push 0 push handle push 0 push 0 ;HWND_DESKTOP push 600 ;hauteur push 600 ;largeur push screenY ;y push screenX ;x push 0CF0000h+4000000h+2000000h ;WS_OVERLAPPEDWINDOW+WS_CLIPSIBLINGS+WS_CLIPCHILDREN push offset nom_fenetre push offset nom_fenetre push 0 ;extra style callW CreateWindowExA mov handle_wd, eax ;---------- define the circle-shaped window mask ------------------- push 590 ;y lower-right push 590 ;x lower-right push 30 ;y upper-left push 10 ;x upper-left callW CreateEllipticRgn ;return region handle push 1 ;window redraw flag 1=true push eax ;handle to region push handle_wd callW SetWindowRgn ;------------------------ show window ------------------------------ push 1 push handle_wd callW ShowWindow push handle_wd callW UpdateWindow call enable_opengl ;------------------------ the message loop ---------------------------------- winmain_msg_loop: push 0 push 0 push handle_wd callW InvalidateRect ;force paint? push 1 push 0 push 0 push 0 push offset msg callW PeekMessageA cmp eax, 0 jnz process_messages jmp winmain_msg_loop ;----- check if window is closed -------- process_messages: cmp msMESSAGE, 12h ;WM_QUIT equ 0012h je end_loop push offset msg callW TranslateMessage push offset msg callW DispatchMessageA jmp winmain_msg_loop end_loop: call disable_opengl push msWPARAM callW ExitProcess ;------------------ windows proc ------------------------ wndproc proc hwnd:DWORD, wmsg:DWORD, wparam:DWORD, lparam:DWORD cmp wmsg,2 ;WM_DESTROY? jne suite1 call disable_opengl push 0 callW PostQuitMessage xor eax, eax jmp wndproc_end suite1: cmp wmsg, 0fh ;WM_PAINT? jne suite2 push offset rect_struct push handle_wd callW GetClientRect mov eax, theDC mov pshdc, eax push offset paint_struct push handle_wd callW BeginPaint call draw_opengl mov eax, theDC mov pshdc, eax push offset paint_struct push handle_wd callW EndPaint xor eax, eax jmp wndproc_end suite2: cmp wmsg, 84h ;WM_NCHITEST (mouse click) jne suite3 mov eax, 2 ;HTCAPTION (so you can move it with mouse) jmp wndproc_end suite3: push lparam push wparam push wmsg push hwnd callW DefWindowProcA wndproc_end: ret wndproc endp ;--------------------- disable OpenGL ---------------------- disable_opengl: push 0 push 0 callW wglMakeCurrent push theRC callW wglDeleteContext push theDC push handle_wd callW ReleaseDC ret ;--------------------- enable OpenGL for window ----------------------------------- enable_opengl: push handle_wd callW GetDC mov theDC, eax mov pfd_nSize, DDPIXELFORMAT_struct_size mov pfd_nVersion, 1 mov pfd_dwFlags, 20h+1+4 ;PFD_SUPPORT_OPENGL OR PFD_DOUBLEBUFFER OR PFD_DRAW_TO_WINDOW mov pfd_dwLayerMask, 0 ;PFD_MAIN_PLANE mov pfd_iPixelType, 0 ;PFD_TYPE_RGBA mov pfd_cColorBits, 24 mov pfd_cDepthBits, 16 mov pfd_cAccumBits, 0 mov pfd_cStencilBits, 0 push offset DDPIXELFORMAT_struct push theDC callW ChoosePixelFormat mov pixformat, eax push offset DDPIXELFORMAT_struct push pixformat push theDC callW SetPixelFormat ;once you call this, td32 becomes crazy? push theDC callW wglCreateContext mov theRC, eax push theRC push theDC callW wglMakeCurrent ret ;--------------------- calculate, draw, eat cpu time... ---------------------- draw_opengl: ;---- clear background push 0 ;alpha push 0 ;B push p1_0 ;G push p1_0 ;R callW glClearColor push 4000h ;GL_COLOR_BUFFER_BIT callW glClear ;---- draw spirals mov ecx, compteur draw_two_spirals: push ecx ;--- calculate coordinates of next point of the spiral 1 fld angle1 ;x fcos fld zoom fmul fstp x2 fld angle1 ;y fsin fld zoom fmul fstp y2 ;--- calculate coordinates of next point of the spiral 2 fld angle2 ;x fcos fld zoom fmul fstp xx2 fld angle2 ;y fsin fld zoom fmul fstp yy2 ;--- calculate coordinates of next point of the spiral 3 fld angle3 ;x fcos fld zoom fmul fstp xxx2 fld angle3 ;y fsin fld zoom fmul fstp yyy2 ;--- calculate coordinates of next point of the spiral 4 fld angle4 ;x fcos fld zoom fmul fstp xxxx2 fld angle4 ;y fsin fld zoom fmul fstp yyyy2 ;--- inc angle and thickness fld angle1 fadd angle_inc fstp angle1 fld angle2 fadd angle_inc fstp angle2 fld angle3 fadd angle_inc fstp angle3 fld angle4 fadd angle_inc fstp angle4 fld zoom fadd zoom_inc fstp zoom ;---- draw the little piece of both spirals push 7 ;GL_QUADS callW glBegin ;spiral 1 push 0 push 0 push p1_0 callW glColor3f push y1 push x1 callW glVertex2f push y2 push x2 callW glVertex2f ;spiral 2 push yy1 push xx1 callW glVertex2f push yy2 push xx2 callW glVertex2f ;spiral 3 push yyy1 push xxx1 callW glVertex2f push yyy2 push xxx2 callW glVertex2f ;spiral 4 push yyyy1 push xxxx1 callW glVertex2f push yyyy2 push xxxx2 callW glVertex2f callW glEnd ;--- point p becomes point p-1 (spiral 1) mov eax, x2 mov x1, eax mov eax, y2 mov y1, eax ;--- point p becomes point p-1 (spiral 2) mov eax, xx2 mov xx1, eax mov eax, yy2 mov yy1, eax ;--- point p becomes point p-1 (spiral 3) mov eax, xxx2 mov xxx1, eax mov eax, yyy2 mov yyy1, eax ;--- point p becomes point p-1 (spiral 4) mov eax, xxxx2 mov xxxx1, eax mov eax, yyyy2 mov yyyy1, eax ;--- dec counter pop ecx dec ecx jnz draw_two_spirals push theDC callW SwapBuffers ;--- reset the parameters for next spirals mov x1, 0 ;first point back to center mov y1, 0 mov xx1, 0 ;first point back to center mov yy1, 0 mov xxx1, 0 ;first point back to center mov yyy1, 0 mov xxxx1, 0 ;first point back to center mov yyyy1, 0 fld angle_anim ;rotate next spirals a bit fadd angle_anim_inc fstp angle_anim mov eax, angle_anim ;initialize the new starting angle for spiral 1 mov angle1, eax fld p0_5 ;idem for spiral 2 but with 180 degrees (pi radians) shift fadd angle_anim fstp angle2 fldpi ;idem for spiral 3 but with 180 degrees (pi radians) shift fadd angle_anim fstp angle3 fldpi ;idem for spiral 4 but with 180 degrees (pi radians) shift fadd p0_5 fadd angle_anim fstp angle4 mov eax, zoom_reset ;reset the zoom level mov zoom, eax ret end start ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;----------OpenGL in win32asm example 7---------------- ; ; draw a complex 3D object (a face) and smooth-shade it ; push 1/2 for x rotation ; push 3/4 for y rotation ; push 5/6 for z rotation ; push 7/8 for distance ; push 9 to see the effect of averaging normals at each vertex: ; - left semi-face uses polygon normals for flat shading ; - right semi-face uses averaged vertex normas for smooth shading ; ; not at all optimized, it's better for code clarity ; by Spanska for Xine#5, February 2001, copyleft ; ; TASM32 /ml /m3 /z /t opengl ; TLINK32 -Tpe -aa opengl,,,import32 opengl32 callW macro x extrn x:PROC call x endm .386p .model flat,STDCALL .data ;------------- funky structures --------------------- paint_struct: pshdc dd ? psfErase dd 0 psrcPaint dd offset rect_struct psfRestore dd ? psfIncUpdate dd ? psrgbReserved db 32 dup(?) rect_struct: rcLeft dd ? rcTop dd ? rcRight dd ? rcBottom dd ? wndclassx: clscbSize dd wndclassx_size clsStyle dd 20h+2+1 ; class style CS_OWNDC+CS_VREDRAW+CS_HREDRAW clsLpfnWndProc dd ? clsCbClsExtra dd 0 clsCbWndExtra dd 0 clsHInstance dd ? ; instance handle clsHIcon dd 0 ; class icon handle clsHCursor dd 0 ; class cursor handle clsHbrBackground dd 7 ; class background brush clsLpszMenuName dd 0 ; menu name clsLpszClassName dd ? ; far ptr to class name clshIconSm dd 0 wndclassx_size equ $-offset wndclassx msg: msHWND dd ? msMESSAGE dd ? msWPARAM dd ? msLPARAM dd ? msTIME dd ? msPT dd ? DDPIXELFORMAT_struct: pfd_nSize dw 0 pfd_nVersion dw 0 pfd_dwFlags dd 0 pfd_iPixelType db 0 pfd_cColorBits db 0 pfd_cRedBits db 0 pfd_cRedShift db 0 pfd_cGreenBits db 0 pfd_cGreenShift db 0 pfd_cBlueBits db 0 pfd_cBlueShift db 0 pfd_cAlphaBits db 0 pfd_cAlphaShift db 0 pfd_cAccumBits db 0 pfd_cAccumRedBits db 0 pfd_cAccumGreenBits db 0 pfd_cAccumBlueBits db 0 pfd_cAccumAlphaBits db 0 pfd_cDepthBits db 0 pfd_cStencilBits db 0 pfd_cAuxBuffers db 0 pfd_iLayerType db 0 pfd_bReserved db 0 pfd_dwLayerMask dd 0 pfd_dwVisibleMask dd 0 pfd_dwDamageMask dd 0 DDPIXELFORMAT_struct_size equ $-offset DDPIXELFORMAT_struct ;------------- some data --------------------- nom_fenetre db "OpenGL",0 handle dd ? handle_wd dd ? adresse_retour dd ? pixformat dd ? theDC dd ? theRC dd ? angle dd 0 ;--------- data that can be changed with keyboard ------------ float TYPEDEF REAL4 inc_angle float 1.0 cur_anglex float 0 cur_angley float 0 cur_anglez float 0 inc_distance float 0.2 cur_distance float -20.0 smooth_or_flat dd 0 ;-------- name some simple precision float numbers --------------------- ; (NB: i may not use them all) p0_1 float 0.1 p0_5 float 0.5 m0_5 float -0.5 p1_0 float 1.0 m1_0 float -1.0 p1_3 float 1.333333333 m1_4 float -1.4 m1_5 float -1.5 p1_5 float 1.5 p1_6 float 1.6 p1_7 float 1.7 p1_8 float 1.8 p1_85 float 1.85 p1_9 float 1.9 p2_0 float 2.0 m2_0 float -2.0 m3_0 float -3.0 p3_0 float 3.0 m4_0 float -4.0 p4_0 float 4.0 m5_0 float -5.0 p5_0 float 5.0 p6_0 float 6.0 m6_0 float -6.0 p7_0 float 7.0 p8_0 float 8.0 m8_0 float -8.0 p10 float 10.0 m10 float -10.0 m15 float -15.0 p20 float 20.0 m40 float -40.0 p40 float 40.0 p45 float 45.0 p99 float 99.0 ;-------- name some double precision float numbers --------------------- ; (NB: i may not use them all) dfloat TYPEDEF REAL8 p0__1 dfloat 0.1 p1__0 dfloat 1.0 m1__0 dfloat -1.0 p1__33 dfloat 1.3333 p2__0 dfloat 2.0 m2__0 dfloat -2.0 p3__0 dfloat 3.0 m3__0 dfloat -3.0 p4__0 dfloat 4.0 m4__0 dfloat -4.0 p5__0 dfloat 5.0 m5__0 dfloat -5.0 p7__0 dfloat 7.0 pp10 dfloat 10.0 mm10 dfloat -10.0 pp20 dfloat 20.0 pp30 dfloat 30.0 pp40 dfloat 40.0 pp45 dfloat 45.0 ;-------- small structures with float numbers --------------------- Light_Diffuse: qq1 float 0.2 ;Red qq2 float 0.2 ;Green qq3 float 0.2 ;Blue qq4 float 1.0 ;alpha Light_Position: qq5 float 0.0 ;x qq6 float 0.0 ;y qq7 float 10.0 ;z qq8 float 0 ;directional source mat_Ambient float 1.0,0.01,0.01,1.0 mat_Diffuse float 1.0,0.01,0.01,1.0 mat_Specular float 0.5,0.5,0.5,1.0 mat_Shine float 5.0 ;-------- data to construct the face --------------------- include index.asm ;index of polygons include faceline.asm ;coordz of vertex index_1 dd ? index_2 dd ? index_3 dd ? index_4 dd ? x1 dd ? y1 dd ? z1 dd ? x2 dd ? y2 dd ? z2 dd ? x3 dd ? y3 dd ? z3 dd ? normal_x dd ? normal_y dd ? normal_z dd ? longueur dd ? v1normal_x dd ? v1normal_y dd ? v1normal_z dd ? v2normal_x dd ? v2normal_y dd ? v2normal_z dd ? v3normal_x dd ? v3normal_y dd ? v3normal_z dd ? table_faces_normals dd ? current_pointer_facettes dd ? current_pointer_normals dd ? a dd ? b dd ? c dd ? anx1 dd 0 any1 dd 0 anz1 dd 0 anx2 dd 0 any2 dd 0 anz2 dd 0 anx3 dd 0 any3 dd 0 anz3 dd 0 .code start: ;------------- get memory for the big table --------------------- ; table = 441 faces * (24 dd) ; these 24 dd are: ; index123,xyz1,xyz2,xyz3,normalxyz,an1xyz,an2xyz,an3xyz mov eax, 441*(24*4) add eax, 1024 ;just in case push eax ;number of bytes to allocate push 40h ;40h=LMEM_ZEROINIT callW LocalAlloc mov table_faces_normals, eax ;---------------- pre-calculate everything ----------------------- ; - normals of each triangle first, we could stop here for flat shading ; - using these, calculate average normals for each vertex, needed for smooth shading mov ecx, 441 mov esi, offset facettes mov eax, table_faces_normals mov current_pointer_normals, eax ;--- get indexes of the current polygon get_indexes: xor eax, eax lodsb ; index no 1 dec al mov index_1, eax xor eax, eax lodsb ; index no 2 dec al mov index_2, eax xor eax, eax lodsb ; index no 3 dec al mov index_3, eax pusha ;--- using these indexes, get xyz of the three vertexes (corners) mov esi, offset coords ;esi at start of coordz table mov eax, index_1 ;eax = index of first coordz mov ebx, 12 mul ebx ;1 index = 3 coordz of 4 bytes add esi, eax lodsd ;get x mov x1, eax lodsd ;get y mov y1, eax lodsd ;get z mov z1, eax mov esi, offset coords ;same for second vertex mov eax, index_2 mov ebx, 12 mul ebx add esi, eax lodsd mov x2, eax lodsd mov y2, eax lodsd mov z2, eax mov esi, offset coords ;same for second vertex mov eax, index_3 mov ebx, 12 mul ebx add esi, eax lodsd mov x3, eax lodsd mov y3, eax lodsd mov z3, eax ;-- now use these coordz to calculate normals (xyz) of each polygon ;coa = -(py1 * (pz2-pz3) + py2*(pz3-pz1) + py3*(pz1-pz2)) fld z2 fsub z3 fmul y1 fld z3 fsub z1 fmul y2 fld z1 fsub z2 fmul y3 fadd fadd fchs fstp normal_x ;save it ;cob = -(pz1 * (px2-px3) + pz2*(px3-px1) + pz3*(px1-px2)) fld x2 fsub x3 fmul z1 fld x3 fsub x1 fmul z2 fld x1 fsub x2 fmul z3 fadd fadd fchs fstp normal_y ;save it ;coc = -(px1 * (py2-py3) + px2*(py3-py1) + px3*(py1-py2)) fld y2 fsub y3 fmul x1 fld y3 fsub y1 fmul x2 fld y1 fsub y2 fmul x3 fadd fadd fchs fstp normal_z ;save it ;--- calculate the length of the normal ;absvec = sqrt ((double) ((coa*coa) + (cob*cob) + (coc*coc))) ; not useful actually because glNormalize will take care of that ; maybe speed difference, but i didn't noticed fld normal_x fmul normal_x fld normal_y fmul normal_y fld normal_z fmul normal_z fadd fadd fsqrt fstp longueur ;--- normalize this length to 1 ; we divide each xyz component by the length of the normal vector ; not useful actually because glNormalize will take care of that ; maybe speed difference, but i didn't noticed ; norm[0] = coa/absvec fld normal_x fdiv longueur fstp normal_x ; norm[1] = cob/absvec fld normal_y fdiv longueur fstp normal_y ; norm[2] = coc/absvec fld normal_z fdiv longueur fstp normal_z ;--- put all the stuff in the big table ; This table has the data for 441 polygons. ; for each polygon we have: ; dd index1,index2,index3,x1,y1,z1,x2,y2,z2,x3,y3,z3,nx,ny,nz,an1xyz,an2xyz,an3xyz ; see above for a clearer structure mov edi, current_pointer_normals mov eax, index_1 stosd mov eax, index_2 stosd mov eax, index_3 stosd mov eax, x1 stosd mov eax, y1 stosd mov eax, z1 stosd mov eax, x2 stosd mov eax, y2 stosd mov eax, z2 stosd mov eax, x3 stosd mov eax, y3 stosd mov eax, z3 stosd mov eax, normal_x stosd mov eax, normal_y stosd mov eax, normal_z stosd xor eax, eax ;stuff we still need to calculate (averaged normals) stosd ;so fill with zeros stosd stosd stosd stosd stosd stosd stosd stosd mov current_pointer_normals, edi popa dec ecx jnz get_indexes ;ok so here we have one big table of 441 faces * 24 dd : ; ;dd index1, index2, index3 ;dd x1, y1, z1 ;dd x2, y2, z2 ;dd x3, y3, z3 ;dd normalx, normaly, normalz ;dd averagednormalx1, averagednormaly1, averagednormalz1 <= need to calculate them now ;dd averagednormalx2, averagednormaly2, averagednormalz2 <= need to calculate them now ;dd averagednormalx3, averagednormaly3, averagednormalz3 <= need to calculate them now ;--- calculate the averaged normals to smooth the light ; we have to find which polygons share a vertex, and then ; calculate the average normal at this vertex. ;loop1: for each face, put index1, index2, index3 in 3 variables a b c ; now start again from beginning of the table ; loop2: check if "a" matches one of the 3 indexes ; if yes, go to the normals, add them to 3 variables anx1, any1, anz1 ; same for b and c ; continue loop2 ; to avoid bad shadowing in the middle, between 2 semi-faces: ; if x1=0 then anx=0 ; if x2=0... ;put anx, any, anz in the averaged normal of the current face ;loop1 mov ecx, 441 mov esi, table_faces_normals loop1: lodsd ; get the 3 indexes and put them in a temp location mov a, eax lodsd mov b, eax lodsd mov c, eax add esi, (24*4)-12 mov edi, esi sub edi, (3*4)*3 pusha mov ecx, 441 mov esi, table_faces_normals xor eax, eax ; clean the temp variables mov anx1, eax mov any1, eax mov anz1, eax mov anx2, eax mov any2, eax mov anz2, eax mov anx3, eax mov any3, eax mov anz3, eax loop2: @0: ;check if other polygons share the first vertex lodsd cmp eax, a jne @1 fld dword ptr [esi+44] ;normal_x fadd anx1 fstp anx1 fld dword ptr [esi+48] ;normal_y fadd any1 fstp any1 fld dword ptr [esi+52] ;normal_z fadd anz1 fstp anz1 @1: ;check if other polygons share the second vertex cmp eax, b jne @2 fld dword ptr [esi+44] ;normal_x fadd anx2 fstp anx2 fld dword ptr [esi+48] ;normal_y fadd any2 fstp any2 fld dword ptr [esi+52] ;normal_z fadd anz2 fstp anz2 @2: ;check if other polygons share the third vertex cmp eax, c jne @3 fld dword ptr [esi+44] ;normal_x fadd anx3 fstp anx3 fld dword ptr [esi+48] ;normal_y fadd any3 fstp any3 fld dword ptr [esi+52] ;normal_z fadd anz3 fstp anz3 @3: ;check if other polygons share the first vertex lodsd cmp eax, a jne @4 fld dword ptr [esi+40] ;normal_x fadd anx1 fstp anx1 fld dword ptr [esi+44] ;normal_y fadd any1 fstp any1 fld dword ptr [esi+48] ;normal_z fadd anz1 fstp anz1 @4: ;check if other polygons share the second vertex cmp eax, b jne @5 fld dword ptr [esi+40] ;normal_x fadd anx2 fstp anx2 fld dword ptr [esi+44] ;normal_y fadd any2 fstp any2 fld dword ptr [esi+48] ;normal_z fadd anz2 fstp anz2 @5: ;check if other polygons share the third vertex cmp eax, c jne @6 fld dword ptr [esi+40] ;normal_x fadd anx3 fstp anx3 fld dword ptr [esi+44] ;normal_y fadd any3 fstp any3 fld dword ptr [esi+48] ;normal_z fadd anz3 fstp anz3 @6: ;check if other polygons share the first vertex lodsd cmp eax, a jne @7 fld dword ptr [esi+36] ;normal_x fadd anx1 fstp anx1 fld dword ptr [esi+40] ;normal_y fadd any1 fstp any1 fld dword ptr [esi+44] ;normal_z fadd anz1 fstp anz1 @7: ;check if other polygons share the second vertex cmp eax, b jne @8 fld dword ptr [esi+36] ;normal_x fadd anx2 fstp anx2 fld dword ptr [esi+40] ;normal_y fadd any2 fstp any2 fld dword ptr [esi+44] ;normal_z fadd anz2 fstp anz2 @8: ;check if other polygons share the third vertex cmp eax, c jne @9 fld dword ptr [esi+36] ;normal_x fadd anx3 fstp anx3 fld dword ptr [esi+40] ;normal_y fadd any3 fstp any3 fld dword ptr [esi+44] ;normal_z fadd anz3 fstp anz3 @9: add esi, (24*4)-12 end_loop2: dec ecx jnz loop2 popa ;--- small trick to avoid bad smoothing along the 2 semi-faces ; ;here esi = next struct, edi = current anx1 ;small routine to smooth the shadow between 2 semi-faces ;ie all triangles touching the frontier (x=0) have their normal X=0 cmp dword ptr [esi-(21*4)], 0 ;x1 jne buzzz1 mov anx1, 0 buzzz1: cmp dword ptr [esi-(18*4)], 0 ;x2 jne buzzz2 mov anx2, 0 buzzz2: cmp dword ptr [esi-(15*4)], 0 ;x3 jne buzzz3 mov anx3, 0 buzzz3: ;--- put calculated averaged normals at each vertex in the table mov eax, anx1 stosd mov eax, any1 stosd mov eax, anz1 stosd mov eax, anx2 stosd mov eax, any2 stosd mov eax, anz2 stosd mov eax, anx3 stosd mov eax, any3 stosd mov eax, anz3 stosd dec ecx jnz loop1 ;----------------- OK, now normal windows stuph --------------------- ;----------------- register wndclass ---------------------------- push 0 callW GetModuleHandleA mov handle, eax mov clsHInstance, eax mov eax, offset wndproc mov clsLpfnWndProc, eax mov clsLpszClassName, offset nom_fenetre push offset wndclassx callW RegisterClassExA ;--------------------- create the window -------------------------- push 0 push handle push 0 push 0 ;HWND_DESKTOP push 500 ;hauteur push 500 ;largeur push 0 ;y push 0 ;x push 0CF0000h+4000000h+2000000h ;WS_OVERLAPPEDWINDOW+WS_CLIPSIBLINGS+WS_CLIPCHILDREN push offset nom_fenetre push offset nom_fenetre push 0 ;extra style callW CreateWindowExA mov handle_wd, eax ;------------------------ show window ------------------------------ push 1 push handle_wd callW ShowWindow push handle_wd callW UpdateWindow call enable_opengl ;------------------------ the message loop ---------------------------------- winmain_msg_loop: push 0 push 0 push handle_wd callW InvalidateRect ;force paint? push 1 push 0 push 0 push 0 push offset msg callW PeekMessageA cmp eax, 0 jnz process_messages jmp winmain_msg_loop ;----- check if window is closed -------- process_messages: cmp msMESSAGE, 12h ;WM_QUIT equ 0012h je end_loop push offset msg callW TranslateMessage push offset msg callW DispatchMessageA jmp winmain_msg_loop end_loop: call disable_opengl push table_faces_normals callW LocalFree push msWPARAM callW ExitProcess ;------------------ windows proc ------------------------ wndproc proc hwnd:DWORD, wmsg:DWORD, wparam:DWORD, lparam:DWORD cmp wmsg,2 ;WM_DESTROY? jne suite1 push 0 callW PostQuitMessage xor eax, eax jmp wndproc_end suite1: cmp wmsg, 0fh ;WM_PAINT? jne suite3 push offset rect_struct push handle_wd callW GetClientRect mov eax, theDC mov pshdc, eax push offset paint_struct push handle_wd callW BeginPaint call draw_opengl mov eax, theDC mov pshdc, eax push offset paint_struct push handle_wd callW EndPaint xor eax, eax jmp wndproc_end suite3: cmp wmsg, 102h ;WM_CHAR? jne suite4 ;stuff for keyboard control ;i should have done that with the mouse cmp wparam, "1" ;but too late: T00fic is gonna kill me jne __suite1 ;if i ask more time :) fld cur_anglex fadd inc_angle fstp cur_anglex jmp fin_test_clavier __suite1: cmp wparam, "2" jne __suite2 fld cur_anglex fsub inc_angle fstp cur_anglex jmp fin_test_clavier __suite2: cmp wparam, "3" jne __suite3 fld cur_angley fadd inc_angle fstp cur_angley jmp fin_test_clavier __suite3: cmp wparam, "4" jne __suite4 fld cur_angley fsub inc_angle fstp cur_angley jmp fin_test_clavier __suite4: cmp wparam, "5" jne __suite5 fld cur_anglez fadd inc_angle fstp cur_anglez jmp fin_test_clavier __suite5: cmp wparam, "6" jne __suite6 fld cur_anglez fsub inc_angle fstp cur_anglez jmp fin_test_clavier __suite6: cmp wparam, "7" jne __suite7 fld cur_distance fadd inc_distance fstp cur_distance jmp fin_test_clavier __suite7: cmp wparam, "8" jne __suite8 fld cur_distance fsub inc_distance fstp cur_distance jmp fin_test_clavier __suite8: cmp wparam, "9" jne __suite9 xor smooth_or_flat,0ffh jmp fin_test_clavier __suite9: fin_test_clavier: xor eax, eax jmp wndproc_end suite4: push lparam push wparam push wmsg push hwnd callW DefWindowProcA wndproc_end: ret wndproc endp ;--------------------- disable OpenGL ---------------------- disable_opengl: push 0 push 0 callW wglMakeCurrent push theRC callW wglDeleteContext push theDC push handle_wd callW ReleaseDC ret ;--------------------- enable OpenGL for window ----------------------------------- enable_opengl: push handle_wd callW GetDC mov theDC, eax mov pfd_nSize, DDPIXELFORMAT_struct_size mov pfd_nVersion, 1 mov pfd_dwFlags, 20h+1+4 ;PFD_SUPPORT_OPENGL OR PFD_DOUBLEBUFFER OR PFD_DRAW_TO_WINDOW mov pfd_dwLayerMask, 0 ;PFD_MAIN_PLANE mov pfd_iPixelType, 0 ;PFD_TYPE_RGBA mov pfd_cColorBits, 24 mov pfd_cDepthBits, 16 mov pfd_cAccumBits, 0 mov pfd_cStencilBits, 0 push offset DDPIXELFORMAT_struct push theDC callW ChoosePixelFormat mov pixformat, eax push offset DDPIXELFORMAT_struct push pixformat push theDC callW SetPixelFormat ;once you call this, td32 becomes crazy? push theDC callW wglCreateContext mov theRC, eax push theRC push theDC callW wglMakeCurrent ;--------------------- prepare OpenGL ---------------------- push 0 push 0 push 0 push 0 callW glClearColor push 500 push 500 push 0 push 0 callW glViewport push p1__0 callW glClearDepth push 0b71h ;GL_DEPTH_TEST callW glEnable push 203h ;GL_LEQUAL callW glDepthFunc push 1102h ;GL_NICEST push 0c50h ;GL_PERSPECTIVE_CORRECTION_HINT callW glHint push 1d01h ;GL_SMOOTH callW glShadeModel push 0b44h ;GL_CULL_FACE callW glEnable ;don't show faces when drawn ccw push 1701h ;GL_PROJECTION callW glMatrixMode callW glLoadIdentity push pp30 ;zfar push p4__0 ;znear push p3__0 ;top push m3__0 ;bottom push p3__0 ;right push m3__0 ;left callW glFrustum push 1700h ;GL_MODELVIEW callW glMatrixMode callW glLoadIdentity push offset Light_Diffuse push 1201h ;GL_DIFFUSE push 4000h ;GL_LIGHT0 callW glLightfv push offset Light_Position push 1203h ;GL_POSITION push 4000h ;GL_LIGHT0 callW glLightfv push 0b57h ;GL_COLOR_MATERIAL callW glEnable push 0ba1h ;GL_NORMALIZE let OpenGL normalize normal length (=1) callW glEnable ;so we don't have to do it; slower but don't care ;because we precalculate everything before drawing ret ;--------------------- calculate, draw, eat cpu time... ---------------------- draw_opengl: push 4000h+100h ;GL_COLOR_BUFFER_BIT+GL_DEPTH_BUFFER_BIT callW glClear ;---- Draw callW glLoadIdentity push cur_distance ;translate z axis push 0 push 0 callW glTranslatef push 0 push 0 push p1_0 ;rotate x axis push cur_anglex callW glRotatef push 0 push p1_0 ;rotate y axis push 0 push cur_angley callW glRotatef push p1_0 ;rotate z axis push 0 push 0 push cur_anglez callW glRotatef push p1_0 push p1_0 push p1_0 callW glColor3f push 0b50h ;GL_LIGHTING callW glEnable push 4000h ;GL_LIGHT0 callW glEnable push 4 ;GL_TRIANGLES callW glBegin push offset mat_Ambient push 1200h ;GL_AMBIENT push 404h ;GL_FRONT callW glMaterialfv push offset mat_Diffuse push 1201h ;GL_DIFFUSE push 404h ;GL_FRONT callW glMaterialfv push offset mat_Specular push 1202h ;GL_SPECULAR push 404h ;GL_FRONT callW glMaterialfv push offset mat_Shine push 1601h ;GL_SHININESS push 404h ;GL_FRONT callW glMaterialfv ;As a reminder: we have one big table of 441 faces * 24 dd : ; ;dd index1, index2, index3 ;dd x1, y1, z1 ;dd x2, y2, z2 ;dd x3, y3, z3 ;dd normalx, normaly, normalz ;dd averagednormalx1, averagednormaly1, averagednormalz1 ;dd averagednormalx2, averagednormaly2, averagednormalz2 ;dd averagednormalx3, averagednormaly3, averagednormalz3 ;--- Draw these fucking 441 polygons at once mov ecx, 441 mov esi, table_faces_normals draw_them_all_at_once: push ecx ;--- get everything we need in the table add esi, 12 lodsd mov x1, eax lodsd mov y1, eax lodsd mov z1, eax lodsd mov x2, eax lodsd mov y2, eax lodsd mov z2, eax lodsd mov x3, eax lodsd mov y3, eax lodsd mov z3, eax lodsd mov normal_x, eax lodsd mov normal_y, eax lodsd mov normal_z, eax lodsd mov anx1, eax lodsd mov any1, eax lodsd mov anz1, eax lodsd mov anx2, eax lodsd mov any2, eax lodsd mov anz2, eax lodsd mov anx3, eax lodsd mov any3, eax lodsd mov anz3, eax ;--- at least, draw the shit cmp smooth_or_flat, 0 je smooth_shading ; flat shade half of the face flat_shading: push normal_z ;use not the averaged normals at each vertex push normal_y ;but the polygon normal => each polygon becomes push normal_x ;very visible and flat callW glNormal3f push z2 push y2 push x2 callW glVertex3f push z1 push y1 push x1 callW glVertex3f push z3 push y3 push x3 callW glVertex3f jmp end_smooth ; smooth shade half of the face smooth_shading: push anz2 push any2 push anx2 callW glNormal3f push z2 push y2 push x2 callW glVertex3f push anz1 push any1 push anx1 callW glNormal3f push z1 push y1 push x1 callW glVertex3f push anz3 push any3 push anx3 callW glNormal3f push z3 push y3 push x3 callW glVertex3f end_smooth: ;--- mirror second half-face by inverting all x coordinates (symetric by y,z plan) fld x1 fchs fstp x1 fld x2 fchs fstp x2 fld x3 fchs fstp x3 fld anx1 fchs fstp anx1 fld anx2 fchs fstp anx2 fld anx3 fchs fstp anx3 fld normal_x fchs fstp normal_x ;--- draw second semi-face, always smoothed push anz1 push any1 push anx1 callW glNormal3f push z1 push y1 push x1 callW glVertex3f push anz2 push any2 push anx2 callW glNormal3f push z2 push y2 push x2 callW glVertex3f push anz3 push any3 push anx3 callW glNormal3f push z3 push y3 push x3 callW glVertex3f pop ecx dec ecx jnz draw_them_all_at_once callW glEnd push theDC callW SwapBuffers ret end start ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - File: index.inc facettes: db 1,2,5 db 1,5,4 db 2,3,6 db 2,6,5 db 7,4,5 db 7,5,8 db 8,5,6 db 8,6,9 db 11,8,9 db 10,7,8 db 10,8,11 db 6,3,14 db 6,14,13 db 9,6,13 db 9,13,12 db 11,9,12 db 11,12,17 db 11,17,18 db 12,13,16 db 12,16,17 db 13,14,15 db 13,15,16 db 16,15,25 db 16,25,24 db 16,24,23 db 17,16,23 db 17,23,22 db 18,17,22 db 18,22,21 db 19,11,18 db 20,19,18 db 20,18,21 db 24,25,26 db 24,26,27 db 23,24,27 db 23,27,28 db 22,23,28 db 22,28,29 db 21,22,29 db 21,29,30 db 32,20,21 db 32,21,31 db 31,21,30 db 31,30,35 db 35,30,29 db 35,29,36 db 29,28,37 db 29,37,36 db 28,27,38 db 28,38,37 db 27,26,39 db 27,39,38 db 38,39,40 db 38,40,41 db 37,38,41 db 37,41,42 db 36,37,42 db 36,42,43 db 35,36,43 db 35,43,44 db 34,31,35 db 34,35,44 db 33,32,31 db 33,31,34 db 45,33,34 db 45,34,46 db 46,34,44 db 46,44,47 db 47,44,43 db 47,43,48 db 48,43,42 db 48,42,49 db 42,41,50 db 42,50,49 db 41,40,51 db 41,51,50 db 50,51,64 db 50,64,63 db 49,50,63 db 49,63,62 db 48,49,62 db 48,62,61 db 47,48,61 db 63,64,65 db 63,65,66 db 66,65,77 db 66,77,76 db 67,66,76 db 67,76,75 db 62,63,66 db 62,66,67 db 73,67,75 db 73,75,74 db 68,62,67 db 68,67,73 db 60,61,62 db 60,62,68 db 52,47,61 db 52,61,60 db 53,46,47 db 53,47,52 db 54,45,46 db 54,46,53 db 55,54,53 db 55,53,56 db 58,55,56 db 58,56,57 db 56,53,52 db 56,52,57 db 58,57,59 db 57,52,60 db 57,60,59 db 58,59,69 db 58,69,70 db 59,60,68 db 59,68,69 db 70,69,72 db 70,72,71 db 69,68,73 db 69,73,72 db 72,73,74 db 58,146,55 db 146,145,54 db 146,54,55 db 145,144,45 db 145,45,54 db 144,142,45 db 142,141,33 db 142,33,45 db 141,98,32 db 141,32,33 db 98,97,20 db 98,20,32 db 97,89,19 db 97,12,20 db 89,87,19 db 19,87,11 db 87,88,10 db 87,10,11 db 87,85,86 db 87,86,88 db 87,84,85 db 84,81,82 db 84,82,85 db 85,82,83 db 85,83,86 db 81,80,79 db 81,79,82 db 82,79,78 db 82,78,83 db 89,90,84 db 89,84,87 db 90,91,81 db 90,81,84 db 91,92,80 db 91,80,81 db 94,93,92 db 94,92,91 db 95,94,91 db 96,95,91 db 96,91,90 db 97,96,90 db 97,90,89 db 98,99,96 db 98,96,97 db 99,100,95 db 99,95,96 db 100,101,102 db 100,102,95 db 102,103,94 db 102,94,95 db 103,104,93 db 103,93,94 db 106,105,104 db 106,104,103 db 102,106,103 db 107,106,102 db 109,101,100 db 110,109,100 db 111,110,100 db 111,100,112 db 111,117,118 db 111,118,110 db 110,118,108 db 110,108,109 db 118,119,107 db 118,107,109 db 119,120,106 db 119,106,107 db 120,121,105 db 120,105,106 db 123,122,121 db 123,121,120 db 124,123,120 db 124,120,119 db 117,124,119 db 117,119,118 db 115,116,117 db 115,117,111 db 113,112,100 db 113,100,99 db 141,113,99 db 141,99,98 db 114,115,111 db 114,111,112 db 114,112,113 db 116,125,124 db 116,124,117 db 124,127,123 db 127,128,122 db 127,122,123 db 126,129,128 db 126,128,127 db 125,126,127 db 125,127,124 db 131,130,129 db 131,129,126 db 132,131,126 db 132,126,125 db 115,132,125 db 115,125,116 db 134,135,130 db 134,130,131 db 133,134,131 db 133,131,132 db 133,132,115 db 133,115,114 db 139,114,113 db 139,113,140 db 140,113,141 db 140,141,142 db 143,140,142 db 144,143,142 db 148,144,145 db 170,148,145 db 170,145,146 db 147,170,146 db 147,171,169 db 147,169,170 db 169,149,148 db 169,148,170 db 149,150,144 db 149,144,148 db 150,151,143 db 150,143,144 db 151,152,140 db 151,140,143 db 152,153,139 db 152,139,140 db 153,138,139 db 139,138,133 db 139,133,114 db 153,138,139 db 138,137,134 db 138,134,133 db 137,136,135 db 137,135,134 db 156,157,136 db 156,136,137 db 155,156,137 db 155,137,138 db 154,155,138 db 154,138,153 db 152,154,153 db 159,158,157 db 159,157,156 db 160,159,156 db 160,156,155 db 161,160,155 db 161,155,154 db 163,162,161 db 163,161,154 db 164,163,154 db 164,154,152 db 165,164,152 db 165,152,151 db 166,165,151 db 166,151,150 db 167,166,150 db 167,150,149 db 169,168,167 db 169,167,149 db 171,174,168 db 171,168,169 db 174,177,178 db 174,178,168 db 168,178,179 db 168,179,167 db 179,180,166 db 179,166,167 db 180,181,165 db 180,165,166 db 181,182,164 db 181,164,165 db 182,183,163 db 182,163,164 db 183,184,162 db 183,162,163 db 184,185,162 db 185,186,161 db 185,161,162 db 186,187,160 db 186,160,161 db 187,188,159 db 187,159,160 db 188,189,158 db 188,158,159 db 191,190,189 db 191,189,188 db 192,191,188 db 192,188,187 db 193,192,187 db 193,187,186 db 194,193,186 db 194,186,185 db 214,193,194 db 214,194,195 db 214,207,192 db 214,192,193 db 208,207,214 db 208,214,213 db 213,214,195 db 213,195,196 db 212,213,196 db 212,196,197 db 211,212,197 db 211,197,198 db 200,211,198 db 200,198,199 db 178,200,199 db 178,199,179 db 177,201,200 db 177,200,178 db 201,210,211 db 201,211,200 db 210,209,212 db 210,212,211 db 209,208,213 db 209,213,212 db 206,191,192 db 206,192,207 db 205,206,207 db 205,207,208 db 204,205,208 db 204,208,209 db 203,204,209 db 203,209,210 db 202,203,210 db 202,210,201 db 176,202,201 db 176,201,177 db 174,176,177 db 191,215,190 db 215,228,229 db 215,229,190 db 228,231,230 db 228,230,229 db 231,242,243 db 231,243,230 db 232,241,242 db 232,242,231 db 232,231,228 db 232,228,227 db 227,228,215 db 227,215,216 db 216,215,191 db 216,191,206 db 217,216,206 db 217,206,205 db 226,227,216 db 226,216,217 db 233,232,227 db 233,227,226 db 240,241,232 db 240,232,233 db 239,240,233 db 239,233,234 db 234,233,226 db 234,226,225 db 225,226,217 db 225,217,218 db 218,217,205 db 218,205,204 db 219,218,204 db 219,204,203 db 224,225,218 db 224,218,219 db 235,234,225 db 235,225,224 db 238,239,234 db 238,234,235 db 237,238,235 db 237,235,236 db 236,235,224 db 236,224,223 db 223,224,219 db 223,219,220 db 221,220,202 db 221,202,176 db 220,219,203 db 220,203,202 db 175,237,236 db 175,236,223 db 175,223,220 db 175,220,221 db 222,221,176 db 222,176,174 db 222,174,171 db 175,221,222 db 175,222,173 db 173,222,171 db 173,171,172 db 172,171,147 db 147,171,169 db 147,169,170 db 244,245,194 db 244,194,185 db 245,246,195 db 245,195,194 db 246,247,196 db 246,196,195 db 247,248,197 db 247,197,196 db 248,249,198 db 248,198,197 db 249,250,199 db 249,199,198 db 250,251,179 db 250,179,199 db 179,251,252 db 179,252,180 db 181,180,252 db 181,252,253 db 182,181,253 db 182,253,254 db 183,182,254 db 183,254,255 db 184,183,255 db 184,255,0 ;256 db 185,184,0 ;256 db 185,0,244 ;256 ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - File: Faceline.asm float TYPEDEF REAL4 coords: float 0.000, -2.280, 8.875 float 0.000, -2.456, 8.980 float 0.000, -2.701, 9.005 float -0.509, -2.230, 8.865 float -0.577, -2.414, 8.962 float -0.585, -2.670, 8.987 float -1.027, -2.201, 8.544 float -1.135, -2.372, 8.658 float -1.182, -2.556, 8.657 float -1.570, -2.221, 8.025 float -1.805, -2.354, 8.037 float -1.151, -3.134, 8.433 float -0.565, -3.181, 8.583 float 0.000, -3.216, 8.631 float 0.000, -3.545, 8.640 float -0.582, -3.517, 8.557 float -1.158, -3.443, 8.329 float -1.999, -2.568, 7.895 float -2.121, -2.222, 7.917 float -2.395, -2.073, 7.692 float -2.213, -2.797, 7.639 float -1.358, -3.775, 8.198 float -0.837, -3.880, 8.520 float -0.590, -3.910, 8.645 float 0.000, -3.914, 8.646 float 0.000, -4.564, 8.583 float -0.700, -4.532, 8.584 float -1.058, -4.461, 8.459 float -1.579, -4.290, 8.085 float -1.995, -3.660, 7.538 float -2.572, -2.969, 7.100 float -2.746, -1.859, 7.124 float -2.990, -1.690, 6.640 float -2.751, -3.033, 6.688 float -2.147, -4.156, 7.145 float -1.620, -4.770, 7.945 float -1.081, -4.944, 8.281 float -0.699, -4.994, 8.360 float 0.000, -5.021, 8.360 float 0.000, -5.412, 7.852 float -0.602, -5.444, 7.853 float -0.990, -5.418, 7.854 float -1.597, -5.169, 7.416 float -2.342, -4.202, 6.524 float -3.374, -1.344, 5.866 float -3.118, -3.043, 5.708 float -2.559, -4.377, 5.351 float -1.600, -5.205, 6.353 float -0.945, -5.501, 6.834 float -0.542, -5.601, 7.067 float 0.000, -5.636, 7.068 float -3.232, -3.283, 3.861 float -3.686, -2.281, 4.257 float -3.797, -0.831, 4.703 float -4.136, -0.236, 3.398 float -4.093, -1.041, 3.153 float -3.959, -1.660, 2.889 float -4.295, 0.021, 2.170 float -3.485, -2.252, 2.286 float -2.740, -3.866, 3.388 float -2.315, -4.570, 4.819 float -0.966, -5.443, 4.589 float -0.556, -5.511, 4.589 float 0.000, -5.553, 4.589 float 0.000, -7.061, 3.726 float -0.436, -6.971, 3.553 float -0.926, -6.872, 3.196 float -2.414, -4.428, 2.801 float -3.120, -3.336, 1.701 float -3.204, -2.934, 1.002 float -3.120, -5.511, 0.149 float -3.119, -5.510, 0.702 float -2.343, -6.297, 1.993 float -2.389, -6.885, 1.708 float -1.053, -8.199, 2.359 float -0.336, -8.622, 2.554 float 0.000, -8.714, 2.559 float 0.000, -2.278, 8.878 float 0.000, -2.064, 9.078 float 0.000, -1.830, 9.119 float -0.484, -1.720, 9.116 float -0.512, -2.003, 9.070 float -0.521, -2.231, 8.876 float -1.170, -1.928, 9.000 float -1.083, -2.093, 8.703 float -1.032, -2.198, 8.549 float -1.773, -2.057, 8.299 float -1.572, -2.217, 8.022 float -2.039, -1.735, 8.072 float -1.285, -1.456, 8.655 float -0.456, -1.314, 8.986 float 0.000, -1.461, 8.920 float 0.000, -0.710, 8.876 float -0.237, -0.648, 8.971 float -0.446, -0.648, 8.971 float -1.316, -0.911, 8.428 float -2.206, -1.333, 7.855 float -2.274, -1.067, 7.654 float -1.276, -0.534, 8.239 float -0.753, -0.441, 8.580 float -0.534, -0.074, 8.714 float -0.191, -0.056, 9.150 float -0.171, -0.426, 9.051 float 0.000, -0.441, 9.053 float 0.000, -0.232, 9.570 float -0.168, -0.224, 9.570 float -0.560, 0.058, 9.376 float -0.767, 0.046, 9.042 float -0.843, -0.128, 8.806 float -0.978, -0.276, 8.684 float -1.091, -0.204, 8.513 float -0.905, -0.325, 8.292 float -1.320, -0.188, 8.010 float -0.895, 0.194, 8.202 float -1.002, 0.217, 8.462 float -1.077, 0.307, 8.703 float -1.017, 0.325, 8.904 float -0.900, 0.099, 9.033 float -0.574, 0.252, 9.485 float -0.118, -0.099, 9.722 float 0.000, -0.098, 9.723 float 0.000, 0.512, 9.855 float -0.158, 0.508, 9.820 float -0.587, 0.550, 9.557 float -0.660, 0.776, 9.277 float -0.242, 1.137, 9.532 float -0.208, 0.854, 9.713 float 0.000, 0.862, 9.749 float 0.000, 1.192, 9.559 float 0.000, 1.445, 9.385 float -0.250, 1.387, 9.361 float -0.495, 1.190, 9.132 float -0.526, 1.443, 8.894 float -0.284, 1.740, 9.158 float 0.000, 1.817, 9.200 float 0.000, 2.180, 8.995 float -0.322, 2.100, 8.927 float -0.667, 1.571, 8.598 float -1.312, 0.849, 8.093 float -2.093, 0.282, 7.775 float -2.327, -0.805, 7.560 float -3.108, -0.078, 7.267 float -3.182, 0.649, 7.412 float -3.805, 0.868, 6.790 float -4.108, 1.022, 5.942 float -4.360, 1.772, 4.387 float -4.187, 2.611, 4.596 float -4.028, 1.464, 6.118 float -3.708, 2.236, 6.211 float -3.359, 1.693, 6.896 float -2.876, 1.352, 7.271 float -2.100, 1.207, 7.559 float -1.337, 1.263, 8.027 float -1.270, 1.664, 7.809 float -0.723, 2.023, 8.332 float -0.357, 2.487, 8.669 float 0.000, 2.608, 8.699 float 0.000, 2.909, 8.460 float -0.392, 2.825, 8.420 float -0.623, 2.411, 8.173 float -0.853, 2.189, 7.760 float -1.119, 2.259, 7.352 float -1.460, 1.887, 7.332 float -2.095, 1.531, 7.388 float -2.765, 1.605, 7.294 float -3.156, 1.949, 6.974 float -3.399, 2.397, 6.443 float -3.657, 2.603, 6.413 float -3.904, 2.477, 5.990 float -4.092, 1.936, 5.653 float -3.994, 2.776, 5.641 float -4.121, 3.106, 4.611 float -4.105, 3.756, 4.772 float -3.883, 2.972, 6.298 float -3.928, 4.609, 5.060 float -3.866, 3.453, 6.724 float -3.788, 3.260, 6.846 float -3.556, 2.930, 6.956 float -3.201, 2.669, 6.903 float -3.001, 2.353, 7.274 float -2.571, 2.177, 7.578 float -2.113, 2.147, 7.561 float -1.602, 2.246, 7.687 float -1.210, 2.404, 7.438 float -0.967, 2.609, 7.023 float -0.638, 2.684, 7.661 float -0.584, 3.052, 8.055 float -0.431, 3.211, 8.189 float 0.000, 3.262, 8.208 float 0.000, 3.664, 8.101 float -0.487, 3.639, 8.101 float -0.760, 3.420, 7.947 float -0.829, 3.210, 7.554 float -1.006, 2.963, 7.129 float -1.309, 3.290, 7.370 float -1.772, 3.474, 7.615 float -2.268, 3.493, 7.824 float -2.704, 3.315, 7.781 float -3.129, 3.065, 7.391 float -3.421, 3.337, 7.438 float -3.624, 3.650, 7.348 float -3.730, 3.872, 7.238 float -3.285, 4.274, 7.783 float -2.569, 4.558, 8.182 float -1.841, 4.676, 8.353 float -1.067, 4.327, 8.469 float -1.150, 4.072, 8.222 float -1.853, 4.265, 8.296 float -2.509, 4.191, 8.259 float -3.195, 3.970, 7.895 float -2.963, 3.637, 7.879 float -2.381, 3.830, 8.100 float -1.782, 3.850, 8.071 float -1.227, 3.657, 8.072 float -0.450, 4.377, 8.175 float -0.991, 4.862, 8.093 float -1.731, 5.054, 7.962 float -2.474, 4.937, 7.775 float -3.170, 4.658, 7.356 float -3.605, 4.334, 6.861 float -3.890, 3.957, 6.326 float -3.941, 3.197, 5.815 float -3.590, 5.230, 6.286 float -3.102, 5.495, 6.831 float -2.330, 5.690, 7.264 float -1.576, 5.648, 7.632 float -0.888, 5.445, 7.804 float -0.406, 5.084, 7.869 float 0.000, 4.670, 7.912 float 0.000, 6.172, 7.196 float -0.354, 6.247, 7.229 float -0.746, 6.328, 7.263 float -1.426, 6.432, 7.212 float -2.244, 6.373, 6.969 float -3.105, 6.092, 6.495 float -3.639, 5.648, 5.945 float -3.562, 6.154, 5.544 float -3.109, 6.630, 5.986 float -2.176, 7.198, 6.426 float -1.281, 7.365, 6.600 float -0.547, 7.488, 6.717 float -0.286, 7.510, 6.750 float 0.000, 7.522, 6.764 float -0.973, 2.625, 7.123 float -1.041, 2.870, 7.229 float -1.295, 3.155, 7.470 float -1.693, 3.288, 7.715 float -2.196, 3.267, 7.924 float -2.545, 3.146, 7.881 float -2.856, 2.944, 7.491 float -3.091, 2.634, 7.003 float -2.846, 2.481, 7.474 float -2.383, 2.398, 7.878 float -2.012, 2.370, 7.961 float -1.574, 2.388, 7.987 float -1.197, 2.479, 7.638 ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -