puts "============" puts "OCC23402" puts "============" puts "" ################################################## # Issue in BRepAlgoAPI_Common - SOLID and FACE ################################################## polyline l 0 0 0 0 5 0 0 5 5 0 3 5 0 3 3 0 2 3 0 2 5 0 0 5 0 0 0 mkplane sf l prism s sf 5 0 0 polyline w1 -2 2.5 2 7 2.5 2 7 7 2 -2 7 2 -2 2.5 2 mkplane f1 w1 bop s f1 bopcommon c1 ttranslate c1 0 0 5 polyline w2 -2 2.5 3 7 2.5 3 7 7 3 -2 7 3 -2 2.5 3 mkplane f2 w2 bop s f2 bopcommon c2 ttranslate c2 0 0 5 polyline w3 -2 2.5 4 7 2.5 4 7 7 4 -2 7 4 -2 2.5 4 mkplane f3 w3 bop s f3 bopcommon c3 ttranslate c3 0 0 5 regexp {Mass +: +([-0-9.+eE]+)} [sprops c1] full sq1 regexp {Mass +: +([-0-9.+eE]+)} [sprops c2] full sq2 regexp {Mass +: +([-0-9.+eE]+)} [sprops c3] full sq3 if { $sq1 != 12.5 || $sq2 != 12.5 || $sq3 != 10 } { puts "Error : c1 and c2 should be indeticall" } else { puts "OK : c1 and c2 are identicall" } mu4 fit set 2dviewer 1