More OpenGL tweaks

db4
Slava Pestov 2008-11-17 05:56:53 -06:00
parent 2e95f58ee1
commit b4ae47dfc8
2 changed files with 8 additions and 5 deletions

View File

@ -72,9 +72,9 @@ MACRO: all-enabled-client-state ( seq quot -- )
: (rect-vertices) ( dim -- vertices )
{
[ drop 0.5 0.5 ]
[ first 0.5 ]
[ [ first ] [ second ] bi ]
[ second 0.5 swap ]
[ first 0.5 - 0.5 ]
[ [ first 0.5 - ] [ second 0.5 - ] bi ]
[ second 0.5 - 0.5 swap ]
} cleave 8 narray >c-float-array ;
: rect-vertices ( dim -- )

View File

@ -27,6 +27,9 @@ M: grid-lines draw-boundary
dup grid set
dup rect-dim half-gap v- grid-dim set
compute-grid
{ 0 1 } draw-grid-lines
{ 1 0 } draw-grid-lines
[ { 1 0 } draw-grid-lines ]
[
{ 0.5 -0.5 } gl-translate
{ 0 1 } draw-grid-lines
] bi*
] with-scope ;