mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
91d9637224
1) Zoom persistence mode now fixes object in pixel coordinates and is independent on view size 2) Used gp_GTrsf instead of gp_Trsf SelectMgr_ViewerSelector to store Graphic3d_Mat4d 3) Zoom persisted objects changed behavior (become bigger) therefore test cases were updated according to new state. 4) Corrected scale for rectangular frustum Updated test for manipulator
64 lines
1.3 KiB
Plaintext
64 lines
1.3 KiB
Plaintext
puts "================================="
|
|
puts "AIS_Manipulator - scale an object"
|
|
puts "================================="
|
|
|
|
set anImage1 $imagedir/${casename}_1.png
|
|
set anImage2 $imagedir/${casename}_2.png
|
|
|
|
# -------------------------------------
|
|
# create manipulated and helper objects
|
|
# -------------------------------------
|
|
|
|
pcylinder c1_1 5 10
|
|
pcylinder c1_2 3 10
|
|
pcylinder c2 10 20
|
|
ttranslate c1_1 100 0 20
|
|
ttranslate c1_2 100 0 20
|
|
trotate c1_2 100 0 25 0 1 0 90
|
|
trotate c1_2 100 0 25 0 0 1 10
|
|
ttranslate c2 100 0 0
|
|
|
|
compound c1_1 c1_2 c1
|
|
|
|
# ------------------------------------
|
|
# display manipulated objects (test 1)
|
|
# ------------------------------------
|
|
|
|
vdisplay c1
|
|
vdisplay c2
|
|
vsetdispmode 1
|
|
vaxo
|
|
vfit
|
|
|
|
# ------------------
|
|
# attach manipulator
|
|
# ------------------
|
|
|
|
vmanipulator m -attach c1 -adjustPosition 1 -adjustSize 0 -enableModes 1 -size 40
|
|
|
|
# --------------------------
|
|
# test hilight and detection
|
|
# --------------------------
|
|
|
|
set mouse_pick {229 137}
|
|
|
|
vmoveto {*}$mouse_pick
|
|
vdump $anImage1
|
|
|
|
# -------------------------
|
|
# test scaling of an object
|
|
# -------------------------
|
|
|
|
set mouse_pick {229 137}
|
|
set mouse_drag {210 127}
|
|
|
|
vmoveto {*}$mouse_pick
|
|
vselect {*}$mouse_pick
|
|
vmanipulator m -startTransform {*}$mouse_pick
|
|
vmanipulator m -transform {*}$mouse_drag
|
|
vmanipulator m -stopTransform
|
|
vselect 0 0
|
|
vdump $anImage2
|
|
|
|
set to_dump_screen 0
|