Unit openglunit

DescriptionusesClasses, Interfaces and ObjectsFunctions and ProceduresTypesConstantsVariables

Description

This unit has some utility functions for OpenGl

uses

Functions and Procedures

Overview

procedure TerminateApplication;
procedure DrawOriginLines; overload;
procedure DrawOriginLines(length:single); overload;
function LoadGLTexture(filename: string; var TextureID : GLuInt ): Boolean;
procedure DrawRect(x,y,w,h:single; r,g,b:single);
procedure DrawBoundedRect(x,y,w,h:integer; r,g,b:single; raised:boolean=true);
procedure drawMap;

Description

procedure DrawBoundedRect(x,y,w,h:integer; r,g,b:single; raised:boolean=true);

 

procedure drawMap;

 

procedure DrawOriginLines(length:single); overload;

 

procedure DrawOriginLines; overload;

 

procedure DrawRect(x,y,w,h:single; r,g,b:single);

 

function LoadGLTexture(filename: string; var TextureID : GLuInt ): Boolean;

 

procedure TerminateApplication;

 

Constants

NameDescription
SCREEN_WIDTH = 800;  
SCREEN_HEIGHT = 600;  
SCREEN_BPP = 16;  
LightAmbient:array [0..3] of GLfloat = (0.3, 0.3, 0.3, 1);  
LightDiffuse:array [0..3] of GLfloat = (1, 1, 1, 1);  
LightSpecular:array [0..3] of GLfloat = (1, 1, 1, 1);  
LightPosition:array [0..3] of GLfloat = (-5, -20,-1, 1);  
Generated by PasDoc 0.8.8 on 2005-01-20 19:01:21