LN_GLCORE Fix bug introduced in 9b3d9e3 when using multiple colors

Problem stems from conversion of apply to case-based approach
which didn't consider that colors in glCore:TextureDrawUnClipped
is now a list of lists. Also patched glCore:TextureDrawClipped

Author: mgorges

modules/ln_glcore/glcore.scm

@@ -298,15 +298,15 @@ SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
           (glCoreVertex2f w2 h2 @x2 @y2) 
           (glCoreVertex2f (fl- w2) (fl- h2) @x1 @y1) 
           (glCoreVertex2f w2 (fl- h2) @x2 @y1) 
-        )(begin
-          (glCoreColor (car colors))
-          (glCoreVertex2f (fl- w2) h2 @x1 @y2) 
-          (glCoreColor (cadr colors))
-          (glCoreVertex2f w2 h2 @x2 @y2) 
-          (glCoreColor (caddr colors))
-          (glCoreVertex2f (fl- w2) (fl- h2) @x1 @y1) 
-          (glCoreColor (cadddr colors))
-          (glCoreVertex2f w2 (fl- h2) @x2 @y1) 
+        )(let ((colors (list->vector (car colors))))
+          (glCoreColor (vector-ref colors 0))
+          (glCoreVertex2f (fl- w2) h2 @x1 @y2)
+          (glCoreColor (vector-ref colors 1))
+          (glCoreVertex2f w2 h2 @x2 @y2)
+          (glCoreColor (vector-ref colors 2))
+          (glCoreVertex2f (fl- w2) (fl- h2) @x1 @y1)
+          (glCoreColor (vector-ref colors 3))
+          (glCoreVertex2f w2 (fl- h2) @x2 @y1)
         ))
         (glCoreEnd)
         (glPopMatrix)
@@ -341,7 +341,7 @@ SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
             (glCoreVertex2f (fl- cw2) (fl- ch2) c@x1 c@y1)
             (glCoreVertex2f cw2 (fl- ch2) c@x2 c@y1)
           )
-          (let ((colors (list->vector colors)))
+          (let ((colors (list->vector (car colors))))
             ;; TODO: color interpolation here!
             (glCoreColor (vector-ref colors 0))
             (glCoreVertex2f (fl- cw2) ch2 c@x1 c@y2)