mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
5200cc4aa3
Draw command 'proj' has been improved: - Add possibility to pass the starting point. If it is passed than the algorithm Extrema_GenLocateExtPS is used instead of standard projection. - Make the output of the command more clear. Test case bugs/moddata_3/bug28196 has been added.
57 lines
2.4 KiB
Plaintext
Executable File
57 lines
2.4 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC2755"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# Boolean Bug in OCC5.0 with the shape having a ellipse curve
|
|
######################################################
|
|
|
|
restore [locate_data_file OCC2755.brep] a
|
|
|
|
checkshape a
|
|
|
|
explode a f
|
|
mksurface gs a_1
|
|
set list [proj gs 0 10 50]
|
|
set list [lmatch $list ext_*]
|
|
set ll 4
|
|
|
|
set good_Parameter1List [list 0 0 0 0]
|
|
set good_Parameter2List [list 40.4616826479819 211.944716681974 64.3186164305428 81.0582330575794]
|
|
set good_OriginXList [list 0 0 0 0]
|
|
set good_OriginYList [list 10 10 10 10]
|
|
set good_OriginZList [list 50 50 50 50]
|
|
set good_AxisXList [list -0.0300865818651084 -0.941236271764613 0.534306660761684 0.998573938898137]
|
|
set good_AxisYList [list 0.999547296325529 -0.337748842654791 -0.845290714645381 0.0533862206328518]
|
|
set good_AxisZList [list 0 0 0 0]
|
|
|
|
if {[llength ${list}] != ${ll}} {
|
|
puts "Faulty OCC2755"
|
|
} else {
|
|
set IsGood 1
|
|
for {set i 0} {$i < ${ll}} {incr i} {
|
|
set dump_list [dump [lindex ${list} $i]]
|
|
regexp { *Parameters *: *([-0-9.+eE]+) *([-0-9.+eE]+)} $dump_list full Parameter1 Parameter2
|
|
regexp { *Origin *:([-0-9.+eE]+), *([-0-9.+eE]+), *([-0-9.+eE]+)} $dump_list full OriginX OriginY OriginZ
|
|
regexp { *Axis *:([-0-9.+eE]+), *([-0-9.+eE]+), *([-0-9.+eE]+)} $dump_list full AxisX AxisY AxisZ
|
|
|
|
set good_Parameter1 [lindex ${good_Parameter1List} $i]
|
|
set good_Parameter2 [lindex ${good_Parameter2List} $i]
|
|
set good_OriginX [lindex ${good_OriginXList} $i]
|
|
set good_OriginY [lindex ${good_OriginYList} $i]
|
|
set good_OriginZ [lindex ${good_OriginZList} $i]
|
|
set good_AxisX [lindex ${good_AxisXList} $i]
|
|
set good_AxisY [lindex ${good_AxisYList} $i]
|
|
set good_AxisZ [lindex ${good_AxisZList} $i]
|
|
|
|
checkreal "Parameter1 / case 3 / $i" ${Parameter1} ${good_Parameter1} 0 0.001
|
|
checkreal "Parameter2 / case 3 / $i" ${Parameter2} ${good_Parameter2} 0 0.001
|
|
checkreal "OriginX / case 3 / $i" ${OriginX} ${good_OriginX} 0 0.001
|
|
checkreal "OriginY / case 3 / $i" ${OriginY} ${good_OriginY} 0 0.001
|
|
checkreal "OriginZ / case 3 / $i" ${OriginZ} ${good_OriginZ} 0 0.001
|
|
checkreal "AxisX / case 3 / $i" ${AxisX} ${good_AxisX} 0 0.001
|
|
checkreal "AxisY / case 3 / $i" ${AxisY} ${good_AxisY} 0 0.001
|
|
checkreal "AxisZ / case 3 / $i" ${AxisZ} ${good_AxisZ} 0 0.001
|
|
}
|
|
}
|