More OpenGL tweaks
parent
2e95f58ee1
commit
b4ae47dfc8
|
@ -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 -- )
|
||||
|
|
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue