1 set Test "Specific operations naming test"
5 if {[catch {set TestLab}] == 1} {
10 set myLab [set TestLab]:1
11 set myNameLab [set TestLab]:100
13 #################### two boxes glueing ####################
14 NameBox D $myLab 20 30 40
18 box b 20 10 20 20 30 40
19 NameImportShape D $myLab b
23 NameGlue D $myLab $Box1Lab $Box2Lab
24 Checking "Two boxes glueing"
26 #################### 3-faces shell and 2-faces shell glueing ####################
27 restore [locate_data_file HH_O.brep] object
28 restore [locate_data_file HH_T.brep] tool
30 NameImportShape D $myLab object
35 NameImportShape D $myLab tool
39 NameGlue D $myLab $ObjectLab $ToolLab
40 Checking "Two shells glueing"
42 #################### import box with broken edges and internal vertex at the face ####################
43 restore [locate_data_file brockenedgesbox.brep] bbox
44 NameImportShape D $myLab object
45 Checking "Box with broken edges"