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
27
|
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
checkprops result -s 1579.81
checkshape result
checkview -display result -3d -path ${imagedir}/${test_image}.png
|
