mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-08-01 11:34:54 +08:00
pkv
42 lines
1.0 KiB
Plaintext
Executable File
42 lines
1.0 KiB
Plaintext
Executable File
puts "================"
|
|
puts "OCC25184"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################
|
|
# Non-deterministic order of wires in the result of General Fuse
|
|
#######################################################################
|
|
|
|
restore [locate_data_file bug25184_Input_0.brep] b0
|
|
restore [locate_data_file bug25184_Input_1.brep] b1
|
|
restore [locate_data_file bug25184_Input_2.brep] b2
|
|
restore [locate_data_file bug25184_Input_3.brep] b3
|
|
restore [locate_data_file bug25184_Input_4.brep] b4
|
|
|
|
bclearobjects
|
|
bcleartools
|
|
baddobjects b0 b1 b2 b3 b4
|
|
|
|
bfillds
|
|
|
|
bbuild r
|
|
explode r w
|
|
regexp {Mass +: +([-0-9.+eE]+)} [lprops r_43] full m0
|
|
puts "Length(0) = $m0"
|
|
|
|
set N 10
|
|
for {set i 1} {$i < $N} {incr i} {
|
|
bbuild r
|
|
explode r w
|
|
regexp {Mass +: +([-0-9.+eE]+)} [lprops r_43] full mi
|
|
puts "Length($i) = $mi"
|
|
if { $mi != $m0 } {
|
|
set N 0
|
|
break
|
|
}
|
|
}
|
|
if { $N == 0 } {
|
|
puts "Error: Bad order of wires in the result of General Fuse"
|
|
} else {
|
|
puts "OK: Good order of wires in the result of General Fuse"
|
|
}
|