1 puts "TODO OCC12345 ALL: Faulty OCC294 : result - shape_result is null"
3 puts "================"
6 puts "================"
9 restore [locate_data_file OCC294.brep] a
12 set a_fullness [nbshapes a]
13 regexp {EDGE +: +([-0-9.+eE]+)} $a_fullness full a_edg
16 if [catch { OCC294 result a a_1 } ] {
19 set b_fullness [ nbshapes b]
20 regexp {EDGE +: +([-0-9.+eE]+)} $b_fullness full b_edg
22 puts "a_edg = ${a_edg}"
23 puts "b_edg = ${b_edg}"
24 if { ${b_edg} >= ${a_edg} } {