1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
puts "============"
puts "OCC2986"
puts "============"
puts ""
######################################################
# Cut&fuse oprs. for 2 toroidal faces, sharing the same domain give invalid result
######################################################
## (old topology)
## (cut)
## (fuse)
######################################################
############# data #############
ptorus p1 10 4
explode p1 f
mksurface gs p1_1
trim trgs gs 1 2 1 2
mkface ff trgs
bcut rcut1 p1_1 ff
checkshape rcut1
bfuse result rcut1 ff
set square 1579.81
set 3dviewer 1
|
