From 422bd683d37b2322656a74e0144f14a83b99cb9a Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 1 Nov 2012 16:46:56 -0700 Subject: [PATCH] opengl: make sure to reset the scale factor at startup. --- basis/opengl/opengl.factor | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/basis/opengl/opengl.factor b/basis/opengl/opengl.factor index f3ee56587d..9c66002f7e 100644 --- a/basis/opengl/opengl.factor +++ b/basis/opengl/opengl.factor @@ -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