mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-07 18:30:55 +03:00
2857a8acd8
DRAW commands stepwrite and brepiges modified to never ask for interactive input of file name or write mode; the behavior is completely defined by input arguments. String buffers causing access violation due to overflow are eliminated. Test case bugs xde bug23561 added for this issue; TODO 23651 in related test cases removed. Compiler warning (unrelated) is fixed in QABugs_11.cxx
38 lines
921 B
Plaintext
Executable File
38 lines
921 B
Plaintext
Executable File
set os $env(os_type)
|
|
|
|
puts "================"
|
|
puts "OCC46"
|
|
puts "================"
|
|
puts ""
|
|
|
|
restore [locate_data_file OCC46.brep] sh
|
|
explode sh e
|
|
regexp {Mass +: +([-0-9.+eE]+)} [lprops sh_4] full l1
|
|
regexp {Mass +: +([-0-9.+eE]+)} [lprops sh_7] full l2
|
|
regexp {Mass +: +([-0-9.+eE]+)} [lprops sh_9] full l3
|
|
|
|
set res1 [expr $l1+$l2+$l3]
|
|
puts $res1
|
|
|
|
#write stepfile
|
|
######################################################################
|
|
catch {exec rm ${imagedir}/sss.step}
|
|
stepwrite a sh ${imagedir}/sss.step
|
|
stepread ${imagedir}/sss.step ss *
|
|
|
|
tpcompound result
|
|
|
|
explode result e
|
|
regexp {Mass +: +([-0-9.+eE]+)} [lprops result_4] full t1
|
|
regexp {Mass +: +([-0-9.+eE]+)} [lprops result_7] full t2
|
|
regexp {Mass +: +([-0-9.+eE]+)} [lprops result_9] full t3
|
|
|
|
set res2 [expr $t1+$t2+$t3]
|
|
puts $res2
|
|
|
|
if {[expr abs([expr $res1 - $res2])] > 0.0001} then {
|
|
puts "Error : large difference between shapes"
|
|
}
|
|
|
|
set 2dviewer 0
|