line-vertices GL_LINES 0 2 glDrawArrays ;
:: (rect-vertices) ( loc dim -- vertices )
- #! We use GL_LINE_STRIP with a duplicated first vertex
- #! instead of GL_LINE_LOOP to work around a bug in Apple's
- #! X3100 driver.
+ ! We use GL_LINE_STRIP with a duplicated first vertex
+ ! instead of GL_LINE_LOOP to work around a bug in Apple's
+ ! X3100 driver.
loc first2 [ 0.3 + ] bi@ :> ( x y )
dim first2 [ 0.6 - ] bi@ :> ( w h )
[
fix-coordinates glViewport ;
: init-matrices ( -- )
- #! Leaves with matrix mode GL_MODELVIEW
+ ! Leaves with matrix mode GL_MODELVIEW
GL_PROJECTION glMatrixMode
glLoadIdentity
GL_MODELVIEW glMatrixMode