92ae0f2f |
1 | puts "============" |
2 | puts "OCC25232" |
3 | puts "============" |
4 | puts "" |
5 | ######################################################################### |
6 | # Functionality to create solids from set of shapes |
7 | ######################################################################### |
8 | |
9 | cylinder cyl 10 |
10 | trimv cyl cyl -20 20 |
11 | mkface fcyl cyl |
12 | cone con 45 0 |
13 | trimv con1 con 0 15 |
14 | trimv con2 con -15 0 |
15 | mkface fcon1 con1 |
16 | mkface fcon2 con2 |
17 | plane pl 0 0 15 0 0 1 |
18 | mkface fp pl -15 15 -15 15 |
19 | sphere sph 0 0 0 12 |
20 | mkface fsph sph |
21 | |
22 | mkvolume result fcyl fp |
23 | # 0 solids |
24 | |
25 | set nb_v_good 0 |
26 | set nb_e_good 0 |
27 | set nb_w_good 0 |
28 | set nb_f_good 0 |
29 | set nb_sh_good 0 |
30 | set nb_sol_good 0 |
31 | set nb_compsol_good 0 |
32 | set nb_compound_good 1 |
33 | set nb_shape_good 1 |
34 | |
35 | set 2dviewer 1 |