0029885: Visualization, AIS_Manipulator - Translation is done in wrong direction...
[occt.git] / tests / v3d / manipulator / translate2
diff --git a/tests/v3d/manipulator/translate2 b/tests/v3d/manipulator/translate2
new file mode 100644 (file)
index 0000000..65773fa
--- /dev/null
@@ -0,0 +1,37 @@
+puts "====================================="
+puts "0029885: Visualization, AIS_Manipulator - Translation is done in wrong direction depending on Camera orientation"
+puts "====================================="
+
+pload MODELING VISUALIZATION
+box b 500 500 1 50 100 150
+vclear
+vinit View1
+vzbufftrihedron
+vcamera -persp
+vaxo
+vdisplay -dispMode 1 b
+vfit
+vmanipulator m -attach b
+vmanipulator m -part 0 2 0
+vmanipulator m -part 1 2 0
+vmanipulator m -part 2 2 0
+vmanipulator m -part 0 3 0
+vmanipulator m -part 1 3 0
+vmanipulator m -part 2 3 0
+vmanipulator m -part 2 1 0
+vselmode m 2 0
+vselmode m 3 0
+
+vmoveto 245 220
+vselect 245 220
+vmanipulator m -startTransform 245 220
+vmanipulator m -transform 340 265
+vmanipulator m -stopTransform
+if {[vreadpixel 370 300 rgb name] == "BLACK" } { puts "Error: wrong translation" }
+
+set aLocFull [vlocation b]
+regexp {Location:\s*([ 0-9.e+-]+)} $aLocFull aLocTmp aLoc
+if { [expr abs([lindex $aLoc 0] - 46)] > 0.1 || [lindex $aLoc 1] != 0  || [lindex $aLoc 2] != 0 } { puts "Error: wrong translation" }
+
+vdump $imagedir/${casename}.png
+set to_dump_screen 0