ruby-glfw 0.9

data/glfw-src/support/lua/src/luaglfw.h

@@ -0,0 +1,48 @@
+//========================================================================
+// GLFW - An OpenGL framework
+// File:        luaglfw.h
+// Platform:    Lua 5.0
+// API version: 2.5
+// WWW:         http://glfw.sourceforge.net
+//------------------------------------------------------------------------
+// Copyright (c) 2002-2005 Camilla Berglund
+//
+// This software is provided 'as-is', without any express or implied
+// warranty. In no event will the authors be held liable for any damages
+// arising from the use of this software.
+//
+// Permission is granted to anyone to use this software for any purpose,
+// including commercial applications, and to alter it and redistribute it
+// freely, subject to the following restrictions:
+//
+// 1. The origin of this software must not be misrepresented; you must not
+//    claim that you wrote the original software. If you use this software
+//    in a product, an acknowledgment in the product documentation would
+//    be appreciated but is not required.
+//
+// 2. Altered source versions must be plainly marked as such, and must not
+//    be misrepresented as being the original software.
+//
+// 3. This notice may not be removed or altered from any source
+//    distribution.
+//
+//========================================================================
+
+#ifndef __luaglfw_h_
+#define __luaglfw_h_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+
+#include <lua.h>
+
+int luaopen_glfw( lua_State * L );
+
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif // __luaglfw_h_

data/glfw-src/support/lua/src/runlua.c

@@ -0,0 +1,82 @@
+//========================================================================
+// A simple Lua interpreter with support for GLFW and OpenGL
+// File:        runlua.c
+// Platform:    Lua 5.0 + LuaGL + luaglfw
+// WWW:         http://glfw.sourceforge.net
+//------------------------------------------------------------------------
+// Copyright (c) 2002-2005 Camilla Berglund
+//
+// This software is provided 'as-is', without any express or implied
+// warranty. In no event will the authors be held liable for any damages
+// arising from the use of this software.
+//
+// Permission is granted to anyone to use this software for any purpose,
+// including commercial applications, and to alter it and redistribute it
+// freely, subject to the following restrictions:
+//
+// 1. The origin of this software must not be misrepresented; you must not
+//    claim that you wrote the original software. If you use this software
+//    in a product, an acknowledgment in the product documentation would
+//    be appreciated but is not required.
+//
+// 2. Altered source versions must be plainly marked as such, and must not
+//    be misrepresented as being the original software.
+//
+// 3. This notice may not be removed or altered from any source
+//    distribution.
+//
+//========================================================================
+
+#include <stdio.h>
+#include <lua.h>
+#include <lauxlib.h>
+#include <lualib.h>
+
+#include <LuaGL.h>
+#include "luaglfw.h"
+
+
+//========================================================================
+// main() - Program entry point
+//========================================================================
+
+int main( int argc, char **argv )
+{
+    lua_State *L;
+
+    // Check arguments
+    if( argc != 2 )
+    {
+       printf( "Usage: %s filename.lua\n", argv[0] );
+       return -1;
+    }
+
+    // Init Lua
+    L = lua_open();
+    if( !L )
+    {
+        printf("Unable to start Lua\n");
+        return -1;
+    }
+
+    // Open all Lua standard libraries
+    luaopen_base( L );
+    luaopen_table( L );
+    luaopen_io( L );
+    luaopen_string( L );
+    luaopen_math( L );
+
+    // Open LuaGL and luaglfw libraries
+    luaopen_opengl( L );
+    luaopen_glfw( L );
+
+    // Load and run the selected Lua program
+    if( luaL_loadfile( L, argv[1] ) || lua_pcall( L, 0, 0, 0 ) )
+    {
+       printf("Error running Lua program: %s\n", lua_tostring( L, -1 ) );
+       lua_pop( L, 1 );
+       return -1;
+    }
+
+    return 0;
+}

data/glfw-src/support/masm/examples/fpc.mac

@@ -0,0 +1,47 @@
+;#########################################################################
+;# FPC - Floating Point Constant                                         #
+;# Macro by BitRake                                                      #
+;#########################################################################
+
+fpc MACRO val:REQ
+    LOCAL w,x,y,z,zz,ww
+
+    ;; split type and value, defaulting to REAL4
+    z INSTR 1,<&val>,<! >
+    IF z EQ 0
+        y TEXTEQU <REAL4>
+        x TEXTEQU <&val>
+    ELSE
+        y TEXTEQU @SubStr(<&val>,1,z-1) ;; Type
+        x TEXTEQU @SubStr(<&val>,z+1,)  ;; Value
+    ENDIF
+
+    ;; replace . with _
+    z INSTR 1,x,<!.>
+    IF z EQ 0
+        w TEXTEQU x
+        x CATSTR x,<.0> ;; prevent error message
+    ELSE
+        w CATSTR @SubStr(%x,1,z-1),<_>,@SubStr(%x,z+1,)
+    ENDIF
+
+    ;; replace - with _
+    zz INSTR 1,w,<!->
+    IF zz EQ 0
+        ww TEXTEQU w
+    ELSE
+        ww CATSTR @SubStr(%w,1,zz-1),<_>,@SubStr(%w,zz+1,)
+    ENDIF
+
+    ;; figure out global name for constant
+    z SIZESTR y ;; use last char for size distiction
+    ww CATSTR <__>,ww,<r>,@SubStr(%y,z,1)
+
+    IF (OPATTR(ww)) EQ 0 ;; not defined
+        CONST SEGMENT
+            ww y x
+        CONST ENDS
+    ENDIF
+    EXITM ww
+ENDM
+

data/glfw-src/support/masm/examples/makeit.bat

@@ -0,0 +1,66 @@
+@ECHO OFF
+
+REM **********************************************************************
+REM * This is the build script for the GLFW example programs for MASM32. *
+REM *                                                                    *
+REM * Unlike the MASM32 recommendations, I like to keep my MASM32        *
+REM * installation on one partition, and my GLFW/MASM32 projects on      *
+REM * another partition, which is why the script begins by finding which *
+REM * drive MASM32 is installed on. Thus, all MASM32 related paths (BIN, *
+REM * INCLUDE and LIB) are absolute rather than drive relative.          *
+REM *                                                                    *
+REM * Feel free to use this build file for your own MASM32 projects (it  *
+REM * is only necessary to make minor changes in the Compile section).   *
+REM **********************************************************************
+
+REM **********************************************************************
+REM * MASM32 is drive sensitive. Figure out where it is installed.       *
+REM **********************************************************************
+SET masmdrv=
+IF EXIST C:\masm32\bin\ml.exe SET masmdrv=C:
+IF EXIST D:\masm32\bin\ml.exe SET masmdrv=D:
+IF EXIST E:\masm32\bin\ml.exe SET masmdrv=E:
+IF EXIST F:\masm32\bin\ml.exe SET masmdrv=F:
+IF EXIST G:\masm32\bin\ml.exe SET masmdrv=G:
+IF EXIST H:\masm32\bin\ml.exe SET masmdrv=H:
+IF NOT "%masmdrv%" == "" GOTO Compile
+
+
+REM **********************************************************************
+REM * Could not find MASM32 installation                                 *
+REM **********************************************************************
+
+ECHO ERROR: Could not find MASM32 installation - Aborting.
+GOTO Exit
+
+
+REM **********************************************************************
+REM * Compile programs                                                   *
+REM **********************************************************************
+:Compile
+
+REM *** ASSEMBLER AND LINKER FLAGS (for all examples) ***
+SET aflags=/nologo /c /coff /I%masmdrv%\masm32\include
+SET lflags=/NOLOGO /SUBSYSTEM:WINDOWS /LIBPATH:%masmdrv%\masm32\lib
+
+REM *** TRIANGLE ***
+SET prgname=triangle
+%masmdrv%\masm32\bin\ml   %aflags% %prgname%.asm
+%masmdrv%\masm32\bin\link %lflags% %prgname%.obj /OUT:%prgname%.exe
+
+
+REM **********************************************************************
+REM * Remove internal working variables                                  *
+REM **********************************************************************
+:Done
+
+SET masmdrv=
+SET aflags=
+SET lflags=
+SET prgname=
+
+
+REM **********************************************************************
+REM * End of batch file                                                  *
+REM **********************************************************************
+:Exit

data/glfw-src/support/masm/examples/triangle.asm

@@ -0,0 +1,232 @@
+;=========================================================================
+; This is a small test application for GLFW.
+; The program opens a window (640x480), and renders a spinning colored
+; triangle (it is controlled with both the GLFW timer and the mouse). It
+; also calculates the rendering speed (FPS), which is displayed in the
+; window title bar.
+;
+; This program was converted from C to x86 assembler by Toni Jovanoski.
+;=========================================================================
+
+.686
+.MODEL FLAT, STDCALL
+OPTION CASEMAP:NONE
+
+
+;#########################################################################
+;# INCLUDES                                                              #
+;#########################################################################
+
+; Standard Windows includes
+INCLUDE windows.inc
+INCLUDE kernel32.inc
+INCLUDE masm32.inc
+
+; OpenGL includes
+INCLUDE opengl32.inc
+INCLUDE glu32.inc
+INCLUDE glfw.inc
+
+; Macros
+INCLUDE fpc.mac                       ; floating point constant macro
+
+
+;#########################################################################
+;# INCLUDE LIBS                                                          #
+;#########################################################################
+
+; Standard Windows libs
+INCLUDELIB kernel32.lib
+INCLUDELIB masm32.lib
+
+; OpenGL libs
+INCLUDELIB opengl32.lib
+INCLUDELIB glu32.lib
+INCLUDELIB glfwdll.lib
+
+
+;#########################################################################
+;# INIT DATA                                                             #
+;#########################################################################
+
+.DATA
+
+
+;#########################################################################
+;# UNINIT DATA                                                           #
+;#########################################################################
+
+.DATA?
+
+ALIGN 8
+
+t               REAL8       ?
+t0              REAL8       ?
+fps             REAL8       ?
+ratio           REAL8       ?
+
+temp            REAL4       ?
+
+windowwidth     DWORD       ?
+windowheight    DWORD       ?
+cursorx         DWORD       ?
+cursory         DWORD       ?
+frames          DWORD       ?
+
+windowtitle     BYTE        64 DUP (?)
+
+
+;#########################################################################
+;# CODE                                                                  #
+;#########################################################################
+
+.CODE
+
+start:
+
+    push    ebx
+
+    ;We init GLFW
+    INVOKE  glfwInit
+
+    ;We open window
+    INVOKE  glfwOpenWindow, 640, 480, 0, 0, 0, 0, 0, 0, GLFW_WINDOW
+
+    ;If there is a problem with opening window, get out
+    .IF (!eax)
+        INVOKE glfwTerminate
+        INVOKE ExitProcess, NULL
+    .ENDIF
+
+    ;Enabling sticky keys
+    INVOKE  glfwEnable, GLFW_STICKY_KEYS
+
+    ;we don't want vsync on
+    INVOKE  glfwSwapInterval, 0
+
+    ;in frames we keep how much frames are rendered
+    and     frames, 0
+
+    ;get a  first "reference" time
+    INVOKE  glfwGetTime
+    fstp    t0
+
+    ;repeat until ESC is pressed or window is closed
+    .REPEAT
+
+
+        INVOKE  glfwGetTime
+        fst     t                   ;don't pop we gonna use him again
+
+        ;we find how much time had been elapsed
+        fsub    t0                  ;st(0)=t-t0
+        fld1                        ;1, t-t0
+
+        ;we test if elapsed time is above or below 1 second
+        fcomip  st(0), st(1)        ;compare 1 with t-t0 (PPro upward instruction!!!)
+
+        ja  @F
+
+            ;if elapsed time is above 1 second calculate fps
+            fild    frames          ;frames, t-t0
+            fdivrp  st(1), st(0)    ;frames/t-t0
+            fstp    fps             ;calculate fps
+
+            ;convert to string
+            INVOKE  FloatToStr, fps, ADDR windowtitle   ;float to string
+            INVOKE  glfwSetWindowTitle, ADDR windowtitle
+
+            ;update t0, or t is now new "reference" time and reset frames
+            mov     eax, DWORD PTR [t]      ;using integer move instead FPU move
+            mov     ecx, DWORD PTR [t+4]
+            mov     DWORD PTR [t0], eax
+            mov     DWORD PTR [t0+4], ecx
+            and     frames, 0               ;reset frames
+
+        @@:
+
+        fstp    st(0)           ;free st(0) because st(0)=t-t0
+        inc     frames
+
+        ;we need mouse position for rotating
+        INVOKE  glfwGetMousePos, ADDR cursorx, ADDR cursory
+
+        ;we need size of window to setup the viewport and perspective
+        INVOKE  glfwGetWindowSize, ADDR windowwidth, ADDR windowheight
+
+        .IF (windowheight==0)
+            mov windowheight, 1         ;avoid divide with zero
+        .ENDIF
+
+        ;setting viewport
+        INVOKE  glViewport, 0, 0, windowwidth, windowheight
+
+        ;clearing color for framebuffer, pure black
+        INVOKE  glClearColor, fpc(0), fpc(0), fpc(0), fpc(0)
+
+        ;clear framebuffer
+        INVOKE  glClear, GL_COLOR_BUFFER_BIT
+
+        ;setting up perspective, first we "reset" projection matrix and
+        ;then we set the perspective
+        INVOKE  glMatrixMode, GL_PROJECTION
+        INVOKE  glLoadIdentity
+
+        ;calculate ratio (ratio = windowwidth / windowheight)
+        fild    windowwidth
+        fild    windowheight
+        fdivp   st(1), st(0)
+        fstp    ratio
+
+        ;FOV=65, znear=1, zfar=100
+        INVOKE  gluPerspective, fpc(REAL8 65), ratio, fpc(REAL8 1), fpc(REAL8 100)
+
+        ;we "reset" the modelview matrix and we place the camera
+        INVOKE  glMatrixMode, GL_MODELVIEW
+        INVOKE  glLoadIdentity
+
+        INVOKE  gluLookAt, fpc(REAL8 0), fpc(REAL8 1), fpc(REAL8 0),\       ;set camera
+                           fpc(REAL8 0), fpc(REAL8 20), fpc(REAL8 0),\
+                           fpc(REAL8 0), fpc(REAL8 0), fpc(REAL8 1)
+
+        INVOKE  glTranslatef, fpc(0), fpc(14), fpc(0)
+
+        ;calculate the angle of rotation
+        fild    cursorx
+        fmul    fpc(0.3)        ;0.3*x
+        fld     t               ;t, 0.3*x
+        fmul    fpc(100)        ;100*t, 0.3*x
+        faddp   st(1), st(0)    ;100*t+0.3*x
+        fstp    temp
+
+        INVOKE  glRotatef, temp, fpc(0), fpc(0), fpc(1)
+
+        ;draw a triagle
+        INVOKE  glBegin, GL_TRIANGLES
+            INVOKE  glColor3f, fpc(1), fpc(0), fpc(0)
+            INVOKE  glVertex3f, fpc(-5), fpc(0), fpc(-4)
+            INVOKE  glColor3f, fpc(0), fpc(1), fpc(0)
+            INVOKE  glVertex3f, fpc(5), fpc(0), fpc(-4)
+            INVOKE  glColor3f, fpc(0), fpc(0), fpc(1)
+            INVOKE  glVertex3f, fpc(0), fpc(0), fpc(6)
+        INVOKE  glEnd
+
+        ;swap buffers
+        INVOKE  glfwSwapBuffers
+
+        ;get state of ESC key
+        INVOKE  glfwGetKey, GLFW_KEY_ESC
+        mov     ebx, eax
+
+        ;get state of window (opened or closed)
+        INVOKE  glfwGetWindowParam, GLFW_OPENED
+
+    .UNTIL (ebx) || (!eax)      ;if is pressed ESC or window is closed get out
+
+    INVOKE  glfwTerminate
+
+    pop     ebx
+
+    INVOKE  ExitProcess, NULL
+
+END start