19 lines
466 B
Factor
19 lines
466 B
Factor
! Copyright (C) 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: tools.test opengl.textures opengl.textures.private
|
|
opengl.textures.private images kernel namespaces accessors
|
|
sequences ;
|
|
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 |