mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
8c088c52fc
AIS_InteractiveContext::MoveTo(), ::Select(), ::ShiftSelect() now throw an exception on invalid V3d_View argument instead of returning empty results. AIS_InteractiveContext::DetectedShape() and ::BeginImmediateDraw() now can be called without opened Local Context. Draw Harness - removed unused commands vsetam, vunsetam. Removed unused methods ViewerTest::StandardModeActivation(), ::PickObject(), PickObjects(). Interactive input of Selection modes 0..7 now redirects to vselmode instead of removed ViewerTest::StandardModeActivation().
48 lines
1.0 KiB
Plaintext
48 lines
1.0 KiB
Plaintext
puts "============"
|
|
puts "CR25540"
|
|
puts "Check that the discretization of local selection,"
|
|
puts "wireframe and shaded presentation of shape is identical."
|
|
puts "============"
|
|
puts ""
|
|
|
|
vinit View1 w=912 h=912
|
|
vclear
|
|
|
|
# Create object in shaded mode
|
|
vsetdispmode 1
|
|
pcylinder p 1 100
|
|
vdisplay p
|
|
vfit
|
|
|
|
# Setup field of view
|
|
vrotate 1 1.5 0
|
|
vfit
|
|
vtranslateview 24 18.5 0
|
|
vzoom 32
|
|
vtranslateview -0.1 -0.6 0
|
|
vzoom 2
|
|
|
|
vdump $imagedir/${casename}_shaded_pres.png
|
|
|
|
vmoveto 100 100
|
|
vdump $imagedir/${casename}_h_pres.png
|
|
|
|
# Activate the local selection by edges and hilight small circle edge.
|
|
# It's discretization should coincide with discretization of whole shape hiligting.
|
|
vselmode p -set EDGE 1
|
|
vmoveto 130 80
|
|
vdump $imagedir/${casename}_local_h_pres.png
|
|
|
|
# Explode object on faces
|
|
explode p F
|
|
# Create colored shape: set another color to one face
|
|
vaspects p -subshapes p_3 -setcolor RED
|
|
|
|
vselmode p -set 0 1
|
|
vmoveto 100 100
|
|
vdump $imagedir/${casename}_h_sub_pres.png
|
|
|
|
vselmode p -set EDGE 1
|
|
vmoveto 130 80
|
|
vdump $imagedir/${casename}_local_h_sub_pres.png
|