steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Oops dead code

db4
U-SLAVA-DFB8FF805\Slava 2009-04-04 22:45:02 -05:00
parent fb6c5141ec
commit 52060e6253
1 changed files with 6 additions and 10 deletions
basis/opengl/textures

16
basis/opengl/textures/textures.factor
View File

@ -81,17 +81,13 @@ TUPLE: single-texture image dim loc texture-coords texture display-list disposed
] with-texturing ;
: texture-coords ( texture -- coords )
[ [ dim>> ] [ image>> dim>> [ next-power-of-2 ] map ] bi v/ ]
[
[ [ dim>> ] [ image>> dim>> [ next-power-of-2 ] map ] bi v/ ]
[
image>> upside-down?>>
{ { 0 1 } { 1 1 } { 1 0 } { 0 0 } }
{ { 0 0 } { 1 0 } { 1 1 } { 0 1 } } ?
] bi
[ v* ] with map
] keep
drop ! image>> upside-down?>> [ [ first2 1 swap - 2array ] map ] when
float-array{ } join ;
image>> upside-down?>>
{ { 0 1 } { 1 1 } { 1 0 } { 0 0 } }
{ { 0 0 } { 1 0 } { 1 1 } { 0 1 } } ?
] bi
[ v* ] with map float-array{ } join ;
: make-texture-display-list ( texture -- dlist )
GL_COMPILE [ [ dim>> ] keep draw-textured-rect ] make-dlist ;