65773fa4c342072ab6434517ee262e0f0ebfd243
[occt.git] / tests / v3d / manipulator / translate2
1 puts "====================================="
2 puts "0029885: Visualization, AIS_Manipulator - Translation is done in wrong direction depending on Camera orientation"
3 puts "====================================="
4
5 pload MODELING VISUALIZATION
6 box b 500 500 1 50 100 150
7 vclear
8 vinit View1
9 vzbufftrihedron
10 vcamera -persp
11 vaxo
12 vdisplay -dispMode 1 b
13 vfit
14 vmanipulator m -attach b
15 vmanipulator m -part 0 2 0
16 vmanipulator m -part 1 2 0
17 vmanipulator m -part 2 2 0
18 vmanipulator m -part 0 3 0
19 vmanipulator m -part 1 3 0
20 vmanipulator m -part 2 3 0
21 vmanipulator m -part 2 1 0
22 vselmode m 2 0
23 vselmode m 3 0
24
25 vmoveto 245 220
26 vselect 245 220
27 vmanipulator m -startTransform 245 220
28 vmanipulator m -transform 340 265
29 vmanipulator m -stopTransform
30 if {[vreadpixel 370 300 rgb name] == "BLACK" } { puts "Error: wrong translation" }
31
32 set aLocFull [vlocation b]
33 regexp {Location:\s*([ 0-9.e+-]+)} $aLocFull aLocTmp aLoc
34 if { [expr abs([lindex $aLoc 0] - 46)] > 0.1 || [lindex $aLoc 1] != 0  || [lindex $aLoc 2] != 0 } { puts "Error: wrong translation" }
35
36 vdump $imagedir/${casename}.png
37 set to_dump_screen 0