Fix texture resizing on S3 hardware on Windows. Reported by Kobi Lurie

2009-04-19 03:06:05 -05:00 · 2009-04-19 03:06:05 -05:00 · 3148429e0c
parent 97b19ff025
commit 3148429e0c
1 changed files with 1 additions and 1 deletions
--- a/basis/opengl/textures/textures.factor
+++ b/basis/opengl/textures/textures.factor
@ -45,7 +45,7 @@ TUPLE: single-texture image dim loc texture-coords texture display-list disposed

 : adjust-texture-dim ( dim -- dim' )
    non-power-of-2-textures? get [
-        [ next-power-of-2 ] map
+        [ dup 1 = [ next-power-of-2 ] unless ] map
    ] unless ;

 : (tex-image) ( image bitmap -- )