gl: rename texture-coordinate to texture-coordinates

* figl/gl.scm (gl-texture-coordinates, gl-multi-texture-coordinates):
  Renamed from non-plural names.  Not `fog-coordinate', as that is
  only a single coordinate.

* doc/gl.texi (Vertex Specification): Update.

diff --git a/doc/gl.texi b/doc/gl.texi
index dee0867..614e8a2 100644 (file)
--- a/doc/gl.texi
+++ b/doc/gl.texi
@@ -223,11 +223,11 @@ The following procedures modify the current per-vertex state.  Drawing
 a vertex captures the current state and associates it with the
 vertex.
 
-@defun gl-texture-coordinate s [t=0.0] [r=0.0] [q=1.0]
+@defun gl-texture-coordinates s [t=0.0] [r=0.0] [q=1.0]
 Set the current texture coordinate.
 @end defun
 
-@defun gl-multi-texture-coordinate texture s [t=0.0] [r=0.0] [q=1.0]
+@defun gl-multi-texture-coordinates texture s [t=0.0] [r=0.0] [q=1.0]
 Set the current texture coordinate for a specific texture unit.
 @end defun
 

diff --git a/figl/gl.scm b/figl/gl.scm
index 6267585..100533f 100644 (file)
--- a/figl/gl.scm
+++ b/figl/gl.scm
@@ -85,10 +85,10 @@
 (define* (gl-vertex x y #:optional (z 0.0) (w 1.0))
   (%glVertex4f x y z w))
 
-(define* (gl-texture-coordinate s #:optional (t 0.0) (r 0.0) (q 1.0))
+(define* (gl-texture-coordinates s #:optional (t 0.0) (r 0.0) (q 1.0))
   (%glTexCoord4f s t r q))
 
-(define* (gl-multi-texture-coordinate texture s #:optional (t 0.0) (r 0.0) (q 1.0))
+(define* (gl-multi-texture-coordinates texture s #:optional (t 0.0) (r 0.0) (q 1.0))
   (%glMultiTexCoord4f texture s t r q))
 
 (define* (gl-color red green blue #:optional (alpha 1.0))
@@ -98,8 +98,8 @@
   (%glVertexAttrib4f index x y z w))
 
 (export gl-vertex
-        gl-texture-coordinate
-        gl-multi-texture-coordinate
+        gl-texture-coordinates
+        gl-multi-texture-coordinates
         gl-color
         gl-vertex-attribute)