More rendering fixes

diff --git a/basis/ui/gadgets/grid-lines/grid-lines.factor b/basis/ui/gadgets/grid-lines/grid-lines.factor
old mode 100644 (file)
new mode 100755 (executable)
index adfdd16..feca8f7
--- 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 (file)
new mode 100755 (executable)