# OSG array specific test procedures.
# These procedures are independent of the supplied array class type.

package require tcl3d

source testUtil.tcl

P "\n>>> Test cases for osg::array classes <<<\n"

osg::Vec3fArray va3f
va3f push [osg::Vec3f v1  1.1  1.2  1.3]
va3f push [osg::Vec3f v2  2.1  2.2  2.3]
va3f push [osg::Vec3f v3  3.1  3.2  3.3]
PN "Vec3fArray:" ; tcl3dOsgVecArrayPrint va3f

osg::Vec3Array va3
va3 push [osg::Vec3 v1  1.11  1.21  1.31]
va3 push [osg::Vec3 v2  2.11  2.21  2.31]
va3 push [osg::Vec3 v3  3.11  3.21  3.31]
PN "Vec3Array:" ; tcl3dOsgVecArrayPrint va3

osg::Vec2fArray va2f 3
va2f set 0 [osg::Vec2f v1 1.1 1.2]
va2f set 1 [osg::Vec2f v2 2.1 2.2]
va2f set 2 [osg::Vec2f v3 3.1 3.2]
PN "Vec2fArray:" ; tcl3dOsgVecArrayPrint va2f

osg::Vec2Array va2 3
va2 set 0 [osg::Vec2f v1 1.11 1.21]
va2 set 1 [osg::Vec2f v2 2.11 2.21]
va2 set 2 [osg::Vec2f v3 3.11 3.21]
PN "Vec2Array:" ; tcl3dOsgVecArrayPrint va2

exit
