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

Fixes for recent changes

db4
Slava Pestov 2009-04-05 17:32:53 -05:00
parent 2b042d7cb7
commit b0b77cf744
2 changed files with 1 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
basis/opengl/textures/textures-tests.factor
View File

@ -5,56 +5,6 @@ opengl.textures.private images kernel namespaces accessors
sequences ; sequences ;
IN: opengl.textures.tests IN: opengl.textures.tests
[ ] [
T{ image
{ dim { 3 5 } }
{ component-order RGB }
{ bitmap
B{
1 2 3 4 5 6 7 8 9
10 11 12 13 14 15 16 17 18
19 20 21 22 23 24 25 26 27
28 29 30 31 32 33 34 35 36
37 38 39 40 41 42 43 44 45
}
}
} "image" set
] unit-test
[
T{ image
{ dim { 4 8 } }
{ component-order RGB }
{ bitmap
B{
1 2 3 4 5 6 7 8 9 7 8 9
10 11 12 13 14 15 16 17 18 16 17 18
19 20 21 22 23 24 25 26 27 25 26 27
28 29 30 31 32 33 34 35 36 34 35 36
37 38 39 40 41 42 43 44 45 43 44 45
37 38 39 40 41 42 43 44 45 43 44 45
37 38 39 40 41 42 43 44 45 43 44 45
37 38 39 40 41 42 43 44 45 43 44 45
}
}
}
] [
"image" get power-of-2-image
] unit-test
[
T{ image
{ dim { 0 0 } }
{ component-order R32G32B32 }
{ bitmap B{ } } }
] [
T{ image
{ dim { 0 0 } }
{ component-order R32G32B32 }
{ bitmap B{ } }
} power-of-2-image
] unit-test
[ [
{ {
{ { 0 0 } { 10 0 } } { { 0 0 } { 10 0 } }

2
extra/tetris/gl/gl.factor
View File

@ -37,7 +37,7 @@ IN: tetris.gl
: draw-tetris ( width height tetris -- ) : draw-tetris ( width height tetris -- )
#! width and height are in pixels #! width and height are in pixels
GL_MODELVIEW [ [
{ {
[ board>> scale-board ] [ board>> scale-board ]
[ board>> draw-board ] [ board>> draw-board ]