opengl: make sure to reset the scale factor at startup.

db4
John Benediktsson 2012-11-01 16:46:56 -07:00
parent 39859f21dc
commit 422bd683d3
1 changed files with 6 additions and 6 deletions

View File

@ -2,12 +2,10 @@
! Portions copyright (C) 2007 Eduardo Cavazos.
! Portions copyright (C) 2008 Joe Groff.
! See http://factorcode.org/license.txt for BSD license.
USING: alien alien.c-types alien.data ascii calendar
combinators.short-circuit continuations kernel libc math macros
namespaces math.vectors math.parser opengl.gl combinators
combinators.smart arrays sequences splitting words byte-arrays
assocs vocabs colors colors.constants accessors generalizations
sequences.generalizations locals fry specialized-arrays ;
USING: alien alien.c-types alien.data assocs colors
combinators.smart continuations fry init kernel locals macros
math namespaces opengl.gl sequences sequences.generalizations
specialized-arrays ;
FROM: alien.c-types => float ;
SPECIALIZED-ARRAY: float
SPECIALIZED-ARRAY: uint
@ -223,3 +221,5 @@ MACRO: set-draw-buffers ( buffers -- )
glLoadIdentity
GL_MODELVIEW glMatrixMode
glLoadIdentity ;
[ f gl-scale-factor set-global ] "opengl" add-startup-hook