From: apn <apn@opencascade.com>
Date: Fri, 24 Apr 2015 10:25:46 +0000 (+0300)
Subject: Updated script so it creates bottle using fuse operation between body and thread.
X-Git-Tag: V6_9_0_beta2~1
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=7cb899171d61480207de343c343599c9d56fd472;p=occt-copy.git

Updated script so it creates bottle using fuse operation between body and thread.
---

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..."