draw-scaled-texture now uses the display list if there's no scaling to be done
parent
e173d27120
commit
fba80949eb
|
@ -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 }
|
||||
|
|
Loading…
Reference in New Issue