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
995 B
Plaintext
46 lines
995 B
Plaintext
puts "============"
|
|
puts "CR24288"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Provide a text flipping
|
|
# Test for text flipping after X rotation
|
|
#######################################################################
|
|
pload VISUALIZATION
|
|
|
|
set m_pi 3,14
|
|
set m_pi2 1,57
|
|
vinit
|
|
vpoint radP1 0 0 0
|
|
vpoint radP2 50 50 0
|
|
vpoint radP3 100 0 0
|
|
vcircle circle radP1 radP2 radP3 0
|
|
vrotate 0 -$m_pi2 0
|
|
verase radP1 radP2 radP3
|
|
vdimension dim -radius -text 3d -shapes circle
|
|
vfit
|
|
vmoveto 110 111
|
|
|
|
set x_coord 196
|
|
set y_coord 196
|
|
checkcolor $x_coord $y_coord 0 1 1
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : Highlighting of radius dimension with 3d text before flipping is wrong."
|
|
}
|
|
|
|
# X axis rotation
|
|
vrotate $m_pi 0 0
|
|
vfit
|
|
vmoveto 208 200
|
|
|
|
set x_coord 295
|
|
set y_coord 113
|
|
checkcolor $x_coord $y_coord 0 1 1
|
|
|
|
if { $stat != 1 } {
|
|
puts "Error : Highlighting of radius dimension with 3d text with flipping after x rotation is wrong."
|
|
}
|
|
|
|
set only_screen 1
|