41 lines
1.2 KiB
Factor
41 lines
1.2 KiB
Factor
! Copyright (C) 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors combinators.smart.syntax images kernel literals
|
|
namespaces opengl.gl opengl.textures opengl.textures.private
|
|
sequences tools.test ;
|
|
IN: opengl.textures.tests
|
|
|
|
{
|
|
{
|
|
{ { 0 0 } { 10 0 } }
|
|
{ { 0 20 } { 10 20 } }
|
|
}
|
|
} [
|
|
{
|
|
{ { 10 20 } { 30 20 } }
|
|
{ { 10 30 } { 30 300 } }
|
|
}
|
|
[ [ image new swap >>dim ] map ] map image-locs
|
|
] unit-test
|
|
|
|
array[ GL_RGBA8 GL_RGBA GL_UNSIGNED_BYTE ]
|
|
[ RGBA ubyte-components (image-format) ] unit-test
|
|
|
|
array[ GL_RGBA8 GL_BGRA GL_UNSIGNED_BYTE ]
|
|
[ BGRA ubyte-components (image-format) ] unit-test
|
|
|
|
array[ GL_RGBA8 GL_BGRA GL_UNSIGNED_INT_8_8_8_8_REV ]
|
|
[ ARGB ubyte-components (image-format) ] unit-test
|
|
|
|
array[ GL_RGBA32F GL_RGBA GL_FLOAT ]
|
|
[ RGBA float-components (image-format) ] unit-test
|
|
|
|
array[ GL_RGBA32UI GL_BGRA_INTEGER GL_UNSIGNED_INT ]
|
|
[ BGRA uint-integer-components (image-format) ] unit-test
|
|
|
|
array[ GL_RGB9_E5 GL_RGB GL_UNSIGNED_INT_5_9_9_9_REV ]
|
|
[ BGR u-9-9-9-e5-components (image-format) ] unit-test
|
|
|
|
array[ GL_R11F_G11F_B10F GL_RGB GL_UNSIGNED_INT_10F_11F_11F_REV ]
|
|
[ BGR float-11-11-10-components (image-format) ] unit-test
|