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
28
29
30
31
32
33
34
35
36
37
38
39
40
|
puts "========="
puts "OCC24597"
puts "========="
puts ""
###########################################################
# Missing internal vertex in the result of General Fuse Operation
###########################################################
cylinder c1 20
trimv c1 c1 0 50
mkface b1 c1
vertex v1 0 20 25
orientation v1 I
add v1 b1
box b2 -30 -30 5 60 60 40
# add the arguments
bclearobjects
bcleartools
baddobjects b1 b2
# intersection step
bfillds
# building step
bbuild result
set square 33136.3
set nb_v_good 13
set nb_e_good 19
set nb_w_good 13
set nb_f_good 11
set nb_sh_good 2
set nb_sol_good 2
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 61
set 2dviewer 1
|
