steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/opengl/opengl.factor
View File

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

7
basis/ui/gadgets/grid-lines/grid-lines.factor
View File

@ -27,6 +27,9 @@ M: grid-lines draw-boundary
dup grid set dup grid set
dup rect-dim half-gap v- grid-dim set dup rect-dim half-gap v- grid-dim set
compute-grid 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 ; ] with-scope ;