From 7cb899171d61480207de343c343599c9d56fd472 Mon Sep 17 00:00:00 2001
From: apn <apn@opencascade.com>
Date: Fri, 24 Apr 2015 13:25:46 +0300
Subject: [PATCH] Updated script so it creates bottle using fuse operation
 between body and thread.

---
 samples/tcl/bottle.tcl | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/samples/tcl/bottle.tcl b/samples/tcl/bottle.tcl
index b11ca2ce56..724d330a66 100755
--- a/samples/tcl/bottle.tcl
+++ b/samples/tcl/bottle.tcl
@@ -95,9 +95,6 @@ thrusections -N thread 1 0 tw1 tw2
 
 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
@@ -106,7 +103,8 @@ ttranslate text 24.75 -2 65
 
 # cut operation
 bcut bodytext body text
-compound bodytext thread bottle
+bop bodytext thread
+bopfuse bottle
 
 puts "Showing result..."
 
-- 
2.39.5