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
951 B
Plaintext
46 lines
951 B
Plaintext
puts "============"
|
|
puts "CR24133"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Development of improvement of dimensions implementation
|
|
# Radius dimension
|
|
#######################################################################
|
|
pload VISUALIZATION
|
|
|
|
vinit
|
|
vpoint radP1 0 0 0
|
|
vpoint radP2 50 50 0
|
|
vpoint radP3 100 0 0
|
|
vcircle circle radP1 radP2 radP3 0
|
|
verase radP1 radP2 radP3
|
|
vdimension dim1 -radius -shapes circle
|
|
vfit
|
|
vmoveto 123 158
|
|
|
|
set x_coord 112
|
|
set y_coord 151
|
|
|
|
checkcolor $x_coord $y_coord 0 1 1
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : Highlighting of radius dimension with 2d text is wrong."
|
|
}
|
|
|
|
vinit Viewer2/View2
|
|
vdisplay circle
|
|
vdimension dim2 -radius -text 3d -shapes circle
|
|
vfit
|
|
vmoveto 191 196
|
|
|
|
set x_coord 129
|
|
set y_coord 172
|
|
|
|
checkcolor $x_coord $y_coord 0 1 1
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : Highlighting of radius dimension with 3d text is wrong."
|
|
}
|
|
|
|
set only_screen 1
|