Tweak gl-rect to generate the correct output on Windows with Intel graphics

db4
Slava Pestov 2008-11-18 11:48:06 -06:00
parent bec8cc4239
commit b609ca7d01
1 changed files with 3 additions and 3 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 - 0.5 ]
[ [ first 0.5 - ] [ second 0.5 - ] bi ]
[ second 0.5 - 0.5 swap ]
[ first 0.3 - 0.5 ]
[ [ first 0.3 - ] [ second 0.3 - ] bi ]
[ second 0.3 - 0.5 swap ]
} cleave 8 narray >c-float-array ;
: rect-vertices ( dim -- )