From fb6c5141ecfc0876169146a30f0630d33986fa01 Mon Sep 17 00:00:00 2001
From: "U-SLAVA-DFB8FF805\\Slava" <Slava@slava-dfb8ff805.(none)>
Date: Sat, 4 Apr 2009 22:38:49 -0500
Subject: [PATCH] Fixing this for Windows

---
 basis/opengl/textures/textures.factor | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/basis/opengl/textures/textures.factor b/basis/opengl/textures/textures.factor
index cdd421ddde..bb22b4351c 100755
--- a/basis/opengl/textures/textures.factor
+++ b/basis/opengl/textures/textures.factor
@@ -53,8 +53,8 @@ TUPLE: single-texture image dim loc texture-coords texture display-list disposed
 : init-texture ( -- )
     GL_TEXTURE_2D GL_TEXTURE_MAG_FILTER GL_NEAREST glTexParameteri
     GL_TEXTURE_2D GL_TEXTURE_MIN_FILTER GL_NEAREST glTexParameteri
-    GL_TEXTURE_2D GL_TEXTURE_WRAP_S GL_CLAMP_TO_EDGE glTexParameteri
-    GL_TEXTURE_2D GL_TEXTURE_WRAP_T GL_CLAMP_TO_EDGE glTexParameteri ;
+    GL_TEXTURE_2D GL_TEXTURE_WRAP_S GL_REPEAT glTexParameteri
+    GL_TEXTURE_2D GL_TEXTURE_WRAP_T GL_REPEAT glTexParameteri ;
 
 : with-texturing ( quot -- )
     GL_TEXTURE_2D [
@@ -82,11 +82,15 @@ TUPLE: single-texture image dim loc texture-coords texture display-list disposed
 
 : texture-coords ( texture -- coords )
     [
-        [ dim>> ] [ image>> dim>> [ next-power-of-2 ] map ] bi v/
-        { { 0 0 } { 1 0 } { 1 1 } { 0 1 } }
+        [ [ dim>> ] [ image>> dim>> [ next-power-of-2 ] map ] bi v/ ]
+        [
+            image>> upside-down?>>
+            { { 0 1 } { 1 1 } { 1 0 } { 0 0 } }
+            { { 0 0 } { 1 0 } { 1 1 } { 0 1 } } ?
+        ] bi
         [ v* ] with map
     ] keep
-    image>> upside-down?>> [ [ first2 1 swap - 2array ] map ] when
+    drop ! image>> upside-down?>> [ [ first2 1 swap - 2array ] map ] when
     float-array{ } join ;
 
 : make-texture-display-list ( texture -- dlist )