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

Fixing this for Windows

db4
U-SLAVA-DFB8FF805\Slava 2009-04-04 22:38:49 -05:00
parent f44c67e5c3
commit fb6c5141ec
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -53,8 +53,8 @@ TUPLE: single-texture image dim loc texture-coords texture display-list disposed
: init-texture ( -- ) : init-texture ( -- )
GL_TEXTURE_2D GL_TEXTURE_MAG_FILTER GL_NEAREST glTexParameteri GL_TEXTURE_2D GL_TEXTURE_MAG_FILTER GL_NEAREST glTexParameteri
GL_TEXTURE_2D GL_TEXTURE_MIN_FILTER GL_NEAREST glTexParameteri GL_TEXTURE_2D GL_TEXTURE_MIN_FILTER GL_NEAREST glTexParameteri
GL_TEXTURE_2D GL_TEXTURE_WRAP_S GL_CLAMP_TO_EDGE glTexParameteri GL_TEXTURE_2D GL_TEXTURE_WRAP_S GL_REPEAT glTexParameteri
GL_TEXTURE_2D GL_TEXTURE_WRAP_T GL_CLAMP_TO_EDGE glTexParameteri ; GL_TEXTURE_2D GL_TEXTURE_WRAP_T GL_REPEAT glTexParameteri ;
: with-texturing ( quot -- ) : with-texturing ( quot -- )
GL_TEXTURE_2D [ GL_TEXTURE_2D [
@ -82,11 +82,15 @@ TUPLE: single-texture image dim loc texture-coords texture display-list disposed
: texture-coords ( texture -- coords ) : texture-coords ( texture -- coords )
[ [
[ dim>> ] [ image>> dim>> [ next-power-of-2 ] map ] bi v/ [ [ dim>> ] [ image>> dim>> [ next-power-of-2 ] map ] bi v/ ]
{ { 0 0 } { 1 0 } { 1 1 } { 0 1 } } [
image>> upside-down?>>
{ { 0 1 } { 1 1 } { 1 0 } { 0 0 } }
{ { 0 0 } { 1 0 } { 1 1 } { 0 1 } } ?
] bi
[ v* ] with map [ v* ] with map
] keep ] keep
image>> upside-down?>> [ [ first2 1 swap - 2array ] map ] when drop ! image>> upside-down?>> [ [ first2 1 swap - 2array ] map ] when
float-array{ } join ; float-array{ } join ;
: make-texture-display-list ( texture -- dlist ) : make-texture-display-list ( texture -- dlist )