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
43 lines
945 B
Plaintext
43 lines
945 B
Plaintext
puts "============"
|
|
puts "CR24133"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Development of improvement of dimensions implementation
|
|
# Angle dimension
|
|
#######################################################################
|
|
pload VISUALIZATION
|
|
|
|
vinit
|
|
vpoint angleP1 0 0 0
|
|
vpoint angleP2 50 50 50
|
|
vpoint angleP3 50 50 100
|
|
vdimension dim1 -angle -shapes angleP1 angleP2 angleP3
|
|
vfit
|
|
vmoveto 249 206
|
|
|
|
set x_coord 249
|
|
set y_coord 200
|
|
|
|
checkcolor $x_coord $y_coord 0 1 1
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : Highlighting of angle dimension with 2d text is wrong."
|
|
}
|
|
vinit Viewer2/View2
|
|
vdisplay angleP1 angleP2 angleP3
|
|
vdimension dim2 -angle -text 3d -shapes angleP1 angleP2 angleP3
|
|
vfit
|
|
vmoveto 263 251
|
|
|
|
set x_coord 335
|
|
set y_coord 319
|
|
|
|
checkcolor $x_coord $y_coord 0 1 1
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : Highlighting of angle dimension with 3d text is wrong."
|
|
}
|
|
|
|
set only_screen 1
|