puts "Putting together and writing \"Open CASCADE\"..."
-# add threading to the body
-compound body thread bottle
-
# define text
text2brep text2d OpenCASCADE Times-Roman 8 bold composite=0
prism text text2d 0 0 2
# cut operation
bcut bodytext body text
-compound bodytext thread bottle
+bop bodytext thread
+bopfuse bottle
puts "Showing result..."