From 4350951f14b5f86e0cb30a26a9e7d791f5212486 Mon Sep 17 00:00:00 2001
From: "U-SLAVA-DFB8FF805\\Slava" <Slava@slava-dfb8ff805.(none)>
Date: Tue, 18 Nov 2008 15:44:26 -0600
Subject: [PATCH] More rendering fixes

---
 basis/ui/gadgets/grid-lines/grid-lines.factor | 14 ++++++--------
 basis/ui/render/render.factor                 |  0
 2 files changed, 6 insertions(+), 8 deletions(-)
 mode change 100644 => 100755 basis/ui/gadgets/grid-lines/grid-lines.factor
 mode change 100644 => 100755 basis/ui/render/render.factor

diff --git a/basis/ui/gadgets/grid-lines/grid-lines.factor b/basis/ui/gadgets/grid-lines/grid-lines.factor
old mode 100644
new mode 100755
index adfdd16f69..feca8f7c63
--- a/basis/ui/gadgets/grid-lines/grid-lines.factor
+++ b/basis/ui/gadgets/grid-lines/grid-lines.factor
@@ -18,18 +18,16 @@ SYMBOL: grid-dim
     grid-dim get spin set-axis ;
 
 : draw-grid-lines ( gaps orientation -- )
-    grid get rot grid-positions grid get rect-dim suffix [
-        grid-line-from/to gl-line
-    ] with each ;
+    [ grid get swap grid-positions grid get rect-dim suffix ] dip
+    [ [ v- ] curry map ] keep
+    [ swap grid-line-from/to gl-line ] curry each ;
 
 M: grid-lines draw-boundary
     color>> gl-color [
         dup grid set
         dup rect-dim half-gap v- grid-dim set
         compute-grid
-        [ { -0.5 -0.5 } gl-translate { 1 0 } draw-grid-lines ]
-        [
-            { 0.5 -0.5 } gl-translate
-            { 0 1 } draw-grid-lines
-        ] bi*
+        [ { 1 0 } draw-grid-lines ]
+        [ { 0 1 } draw-grid-lines ]
+        bi*
     ] with-scope ;
diff --git a/basis/ui/render/render.factor b/basis/ui/render/render.factor
old mode 100644
new mode 100755