More rendering fixes

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 get swap grid-positions grid get rect-dim suffix ] dip
-        grid-line-from/to gl-line
+    [ [ v- ] curry map ] keep
-    ] with each ;
+    [ 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 ]
+        [ { 1 0 } draw-grid-lines ]
-        [
+        [ { 0 1 } draw-grid-lines ]
-            { 0.5 -0.5 } gl-translate
+        bi*
-            { 0 1 } draw-grid-lines
-        ] bi*
     ] with-scope ;