Rendering tweaks

basis/opengl/opengl.factor

@@ -64,7 +64,8 @@ MACRO: all-enabled-client-state ( seq quot -- )
     [ 2 GL_FLOAT 0 ] dip glTexCoordPointer ; inline
 
 : line-vertices ( a b -- )
-    append >c-float-array gl-vertex-pointer ;
+    [ first2 [ 0.5 + ] bi@ ] bi@ 4 narray
+    >c-float-array gl-vertex-pointer ;
 
 : gl-line ( a b -- )
     line-vertices GL_LINES 0 2 glDrawArrays ;

basis/ui/gadgets/buttons/buttons.factor

@@ -111,8 +111,8 @@ TUPLE: checkmark-paint < caching-pen color last-vertices ;
 
 : checkmark-points ( dim -- points )
     {
-        [ { 0 0 } v* { 0 1 } v+ ]
-        [ { 1 1 } v* { 0 1 } v+ ]
+        [ { 0 0 } v* ]
+        [ { 1 1 } v* ]
         [ { 0 1 } v* ]
         [ { 1 0 } v* ]
     } cleave 4array ;

basis/ui/gadgets/editors/editors.factor

@@ -112,7 +112,7 @@ M: editor ungraft*
     line-height * ;
 
 : caret-loc ( editor -- loc )
-    [ editor-caret* ] keep 2dup loc>x 1+
+    [ editor-caret* ] keep 2dup loc>x
     rot first rot line>y 2array ;
 
 : caret-dim ( editor -- dim )

basis/ui/gadgets/grid-lines/grid-lines.factor

@@ -27,7 +27,7 @@ M: grid-lines draw-boundary
         dup grid set
         dup rect-dim half-gap v- grid-dim set
         compute-grid
-        [ { 1 0 } draw-grid-lines ]
+        [ { -0.5 -0.5 } gl-translate { 1 0 } draw-grid-lines ]
         [
             { 0.5 -0.5 } gl-translate
             { 0 1 } draw-grid-lines