mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
0499eb0670
Make commands syntax to meet coding rules. Correct angle dimension initialization to allow ellipse input geometry with equal radii. Change default value of arrow angle for dimensions (from 20 to 12 degrees). Add arlength, arangle, textmode, textsize to vdimension and vdimparam Draw commands. Add color parameter to vdimension and vdimparam. Display dimensions by default. Add dimensions demo script samples/tcl/dimensions.tcl. Add file for test case for issue CR25235
26 lines
618 B
Plaintext
26 lines
618 B
Plaintext
puts "============"
|
|
puts "CR24374"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Flipping affects highlight presentation of dimension
|
|
#######################################################################
|
|
box b 100 100 100
|
|
explode b e
|
|
vdisplay b
|
|
vdisplay b_9
|
|
vdimension dim1 -length -shapes b_9 -text 3d -plane zox
|
|
vselmode b 2 1
|
|
vselmode dim1 2 1
|
|
vfit
|
|
vmoveto 140 370
|
|
|
|
set x_coord 140
|
|
set y_coord 370
|
|
checkcolor $x_coord $y_coord 0 1 1
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : Highlighting of dimension with flipping in local context failed."
|
|
}
|
|
|
|
set only_screen 1 |