draw-scaled-texture now uses the display list if there's no scaling to be done

db4
Slava Pestov 2009-04-16 23:14:41 -05:00
parent e173d27120
commit fba80949eb
1 changed files with 5 additions and 1 deletions

View File

@ -128,7 +128,9 @@ M: single-texture dispose*
[ display-list>> [ delete-dlist ] when* ] bi ;
M: single-texture draw-scaled-texture
dup texture>> [ draw-textured-rect ] [ 2drop ] if ;
2dup dim>> = [ nip draw-texture ] [
dup texture>> [ draw-textured-rect ] [ 2drop ] if
] if ;
TUPLE: multi-texture grid display-list loc disposed ;
@ -166,6 +168,8 @@ TUPLE: multi-texture grid display-list loc disposed ;
f multi-texture boa
] with-destructors ;
M: multi-texture draw-scaled-texture nip draw-texture ;
M: multi-texture dispose* grid>> [ [ dispose ] each ] each ;
CONSTANT: max-texture-size { 512 512 }