1 puts "================"
3 puts "================"
5 #######################################################################
6 # Non-deterministic order of wires in the result of General Fuse
7 #######################################################################
9 restore [locate_data_file bug25184_Input_0.brep] b0
10 restore [locate_data_file bug25184_Input_1.brep] b1
11 restore [locate_data_file bug25184_Input_2.brep] b2
12 restore [locate_data_file bug25184_Input_3.brep] b3
13 restore [locate_data_file bug25184_Input_4.brep] b4
17 baddobjects b0 b1 b2 b3 b4
23 regexp {Mass +: +([-0-9.+eE]+)} [lprops r_43] full m0
24 puts "Length(0) = $m0"
27 for {set i 1} {$i < $N} {incr i} {
30 regexp {Mass +: +([-0-9.+eE]+)} [lprops r_43] full mi
31 puts "Length($i) = $mi"
38 puts "Error: Bad order of wires in the result of General Fuse"
40 puts "OK: Good order of wires in the result of General Fuse"