Changeset 52 for Include/abgl.ab

Timestamp:

Jan 8, 2007, 1:47:28 AM (18 years ago)

Author:

NoWest

Message:

Add Methods to Material and Light Classes.

File:

• Include/abgl.ab (modified) (9 diffs)

Include/abgl.ab

@@ -210 +210 @@
     End Function
 
-Public
+Public /* constructor */
     Sub Light(num As GLenum)
         Number=num
@@ -216 +216 @@
 
 Public
-    Sub SetAmbient(amb As *GLdouble)
-        glLightdv(Number,GL_AMBIENT,amb)
+    Sub SetAmbient(red As GLfloat, green As GLfloat, blue As GLfloat, alpha As GLfloat)
+        Dim amb[3] As GLfloat
+        amb[0]=red
+        amb[1]=green
+        amb[2]=blue
+        amb[3]=alpha
+        glLightfv(Number,GL_AMBIENT,amb)
+    End Sub
+    Sub SetAmbient(color As Color4f)
+        Dim amb[3] As GLfloat
+        amb[0]=color.R
+        amb[1]=color.G
+        amb[2]=color.B
+        amb[3]=color.A
+        glLightfv(Number,GL_AMBIENT,amb)
     End Sub
     Sub SetAmbient(amb As *GLfloat)
@@ -223 +236 @@
     End Sub
 
-    Sub SetDiffuse(dif As *GLdouble)
-        glLightdv(Number,GL_DIFFUSE,dif)
+    Sub SetDiffuse(red As GLfloat, green As GLfloat, blue As GLfloat, alpha As GLfloat)
+        Dim dif[3] As GLfloat
+        dif[0]=red
+        dif[1]=green
+        dif[2]=blue
+        dif[3]=alpha
+        glLightfv(Number,GL_DIFFUSE,dif)
+    End Sub
+    Sub SetDiffuse(color As Color4f)
+        Dim dif[3] As GLfloat
+        amb[0]=color.R
+        amb[1]=color.G
+        amb[2]=color.B
+        amb[3]=color.A
+        glLightfv(Number,GL_DIFFUSE,dif)
     End Sub
     Sub SetDiffuse(dif As *GLfloat)
@@ -230 +256 @@
     End Sub
 
-    Sub SetSpecular(spc As *GLdouble)
-        glLightdv(Number,GL_SPECULAR,spc)
+    Sub SetSpecular(red As GLfloat, green As GLfloat, blue As GLfloat, alpha As GLfloat)
+        Dim spc[3] As GLfloat
+        spc[0]=red
+        spc[1]=green
+        spc[2]=blue
+        spc[3]=alpha
+        glLightfv(Number,GL_SPECULAR,spc)
+    End Sub
+    Sub SetSpecular(color As Color4f)
+        Dim spc[3] As GLfloat
+        amb[0]=color.R
+        amb[1]=color.G
+        amb[2]=color.B
+        amb[3]=color.A
+        glLightfv(Number,GL_SPECULAR,spc)
     End Sub
     Sub SetSpecular(spc As *GLfloat)
@@ -237 +276 @@
     End Sub
 
-    Sub SetPosition(pos As *GLdouble)
-        glLightdv(Number,GL_POSITION,pos)
-    End Sub
     Sub SetPosition(pos As *GLfloat)
         glLightfv(Number,GL_POSITION,pos)
@@ -257 +293 @@
         glMaterialfv(face,GL_AMBIENT,amb)
     End Sub
+    Sub Ambient(color As Color4f)
+        Dim face As GLenum
+        glGetIntegerv(GL_COLOR_MATERIAL_FACE,VarPtr(face))
+        Dim amb[3] As GLfloat
+        amb[0]=color.R
+        amb[1]=color.G
+        amb[2]=color.B
+        amb[3]=color.A
+        glMaterialfv(face,GL_AMBIENT,amb)
+    End Sub
+    Sub Ambient(amb As *GLfloat)
+        glMaterialfv(face,GL_AMBIENT,amb)
+    End Sub
+
     Sub Diffuse(red As GLfloat, green As GLfloat, blue As GLfloat, alpha As GLfloat)
         Dim face As GLenum
@@ -267 +317 @@
         glMaterialfv(face,GL_DIFFUSE,dif)
     End Sub
+    Sub Diffuse(color As Color4f)
+        Dim face As GLenum
+        glGetIntegerv(GL_COLOR_MATERIAL_FACE,VarPtr(face))
+        Dim dif[3] As GLfloat
+        dif[0]=color.R
+        dif[1]=color.G
+        dif[2]=color.B
+        dif[3]=color.A
+        glMaterialfv(face,GL_DIFFUSE,dif)
+    End Sub
+    Sub Diffuse(dif As *GLfloat)
+        glMaterialfv(face,GL_DIFFUSE,dif)
+    End Sub
+
     Sub Specular(red As GLfloat, green As GLfloat, blue As GLfloat, alpha As GLfloat)
         Dim face As GLenum
@@ -277 +341 @@
         glMaterialfv(face,GL_SPECULAR,spc)
     End Sub
+    Sub Specular(color As Color4f)
+        Dim face As GLenum
+        glGetIntegerv(GL_COLOR_MATERIAL_FACE,VarPtr(face))
+        Dim spc[3] As GLfloat
+        spc[0]=color.R
+        spc[1]=color.G
+        spc[2]=color.B
+        spc[3]=color.A
+        glMaterialfv(face,GL_SPECULAR,spc)
+    End Sub
+    Sub Specular(spc As *GLfloat)
+        glMaterialfv(face,GL_SPECULAR,spc)
+    End Sub
+
     Sub Shininess(shin As GLfloat)
         Dim face As GLenum
@@ -282 +360 @@
         glMaterialf(face,GL_SHININESS,shin)
     End Sub
+
     Sub Emission(red As GLfloat, green As GLfloat, blue As GLfloat, alpha As GLfloat)
         Dim face As GLenum