Adding test cases from chl grid

[occt.git] / tests / bugs / modalg / begin

diff --git a/tests/bugs/modalg/begin b/tests/bugs/modalg/begin
index 3490337..f40c35f 100755 (executable)
--- a/tests/bugs/modalg/begin
+++ b/tests/bugs/modalg/begin
@@ -1,5 +1,16 @@
 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
+}
+
+