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
46 lines
970 B
Plaintext
46 lines
970 B
Plaintext
puts "============"
|
|
puts "CR24133"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Development of improvement of dimensions implementation
|
|
# Diameter dimension
|
|
#######################################################################
|
|
pload VISUALIZATION
|
|
|
|
vinit
|
|
vpoint diamP1 0 0 0
|
|
vpoint diamP2 50 50 0
|
|
vpoint diamP3 100 0 0
|
|
vcircle circle diamP1 diamP2 diamP3 0
|
|
verase diamP1 diamP2 diamP3
|
|
vdimension dim1 -diameter -shapes circle
|
|
vfit
|
|
vmoveto 208 205
|
|
|
|
set x_coord 296
|
|
set y_coord 257
|
|
|
|
checkcolor $x_coord $y_coord 0 1 1
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : Highlighting of diameter dimension with 2d text is wrong."
|
|
}
|
|
|
|
vinit Viewer2/View2
|
|
vdisplay circle
|
|
vdimension dim2 -diameter -text 3d -shapes circle
|
|
vfit
|
|
vmoveto 208 205
|
|
|
|
set x_coord 296
|
|
set y_coord 257
|
|
|
|
checkcolor $x_coord $y_coord 0 1 1
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : Highlighting of diameter dimension with 3d text is wrong."
|
|
}
|
|
|
|
set only_screen 1
|