6e242322 |
1 | puts "========================" |
2 | puts "OCC22614" |
3 | puts "========================" |
4 | puts "" |
5 | ####################################################################### |
6 | # Scaling fails with linear (p-)curves |
7 | ####################################################################### |
8 | |
9 | pcylinder p 10 50 |
10 | |
11 | explode p f |
12 | |
13 | # p_1 is a cylindrical face |
14 | tscale p_1 0 0 0 0.001 |
15 | |
16 | renamevar p_1 result |
17 | |
18 | set square 0.00314159 |
19 | |
20 | set nb_v_good 2 |
21 | set nb_e_good 3 |
22 | set nb_w_good 1 |
23 | set nb_f_good 1 |
24 | set nb_sh_good 0 |
25 | set nb_sol_good 0 |
26 | set nb_compsol_good 0 |
27 | set nb_compound_good 0 |
28 | set nb_shape_good 7 |
29 | |
30 | set 2dviewer 1 |