--- /dev/null
+# Multiple cut of the plate by the rectangular tool
+
+boptions -default
+bsimplify -e 1 -f 1
+
+box plate 100 20 20
+
+explode plate e
+mkcurve curve plate_10
+
+set nbp 100
+bounds curve t1 t2
+set delta [dval ($t2-10-$t1)/$nbp]
+
+for {set i 0} {$i < $nbp} {incr i} {
+ set t [dval $t1+[dval $delta*$i]]
+ cvalue curve $t x y z
+ # create tool
+ box tool x y z 10 10 10
+ # move it inside
+ ttranslate tool 0 0 -5
+
+ bclearobjects
+ bcleartools
+ baddobjects plate
+ baddtools tool
+ bfillds
+ bapibop plate 2
+
+ checkshape plate
+ # number of faces should be the same from operation to operation
+ checknbshapes plate -vertex 14 -edge 21 -wire 9 -face 9 -shell 1 -solid 1
+}
+
+# restore default values
+boptions -default
+
+checkshape plate
+checkprops plate -s 8800 -v 35045
+
+checkview -display plate -2d -path ${imagedir}/${test_image}_2.png