009 modalg_4
010 modalg_5
011 modalg_6
-012 moddata_1
-013 moddata_2
-014 moddata_3
-015 step
-016 caf
-017 mesh
-018 heal
-019 stlvrml
-020 splitshape
\ No newline at end of file
+012 modalg_7
+013 moddata_1
+014 moddata_2
+015 moddata_3
+016 step
+017 caf
+018 mesh
+019 heal
+020 stlvrml
+021 splitshape
\ No newline at end of file
--- /dev/null
+set subgroup modalg
+
+set calcul "p"
+set type "i"
+
+proc OFFSETSHAPE {distance faces calcul type} {
+ uplevel #0 explode s f
+ uplevel #0 offsetparameter 1e-7 $calcul $type
+ uplevel #0 offsetload s $distance $faces
+ uplevel #0 offsetperform result
+}
+
+
+
+
+
+
+
+
+
--- /dev/null
+puts "========"
+puts "OCC23378"
+puts "========"
+puts ""
+########################################
+# BRepAlgoAPI_Cut returns wrong result
+########################################
+
+# Restore the initial shape
+restore [locate_data_file bug23378_blower1.brep] b
+
+# Test case body
+explode b
+bop b_1 b_2
+bopcut r
+
+# Result of operation should be two shapes (checking)
+set oper_result [explode r]
+if {[llength $oper_result] != 2} {
+ puts "ERRROR: Result of BrepAlgoAPI_Cut is unexpected"
+}
+
+# Algorithmic check of r_1 shape
+renamevar r_1 result
+checkshape result
+checkprops result -s 864274
+
+# Visualization check of r_1 shape
+vinit
+vsetdispmode 1
+vdisplay result
+vfit
+checkview -screenshot -3d -path ${imagedir}/${test_image}.png
--- /dev/null
+puts "========"
+puts "OCC23378"
+puts "========"
+puts ""
+########################################
+# BRepAlgoAPI_Cut returns wrong result
+########################################
+
+# Restore the initial shape
+restore [locate_data_file bug23378_blower1.brep] b
+
+# Test case body
+explode b
+bop b_1 b_2
+bopcut r
+
+# Result of operation should be two shapes (checking)
+set oper_result [explode r]
+if {[llength $oper_result] != 2} {
+ puts "ERRROR: Result of BrepAlgoAPI_Cut is unexpected"
+}
+
+# Algorithmic check of r_2 shape
+renamevar r_2 result
+checkshape result
+checkprops result -s 2.77917
+
+# Visualization check of r_2 shape
+vinit
+vsetdispmode 1
+vdisplay result
+vfit
+checkview -screenshot -3d -path ${imagedir}/${test_image}.png