3bea4c16 |
1 | puts "============" |
2 | puts "OCC16517" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Cylindrical projection is wrong |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC16517 |
10 | |
11 | restore [locate_data_file OCC16517_c.brep] c |
12 | restore [locate_data_file OCC16517_s.brep] s |
13 | |
14 | set Result_List [prj p c s 0 0 1] |
15 | set Result_Numbers [llength ${Result_List}] |
16 | set mistake 0 |
17 | if { ${Result_Numbers} != 2 } { |
18 | puts "Faulty ${BugNumber} : projection numbers are wrong" |
19 | set mistake 1 |
20 | } else { |
21 | puts "First projection ..." |
22 | renamevar p_1 result |
23 | |
24 | set status 0 |
e8feb725 |
25 | set length 110.167 |
26 | set nb_v_good 1 |
27 | set nb_e_good 1 |
3bea4c16 |
28 | set nb_w_good 1 |
29 | set nb_f_good 0 |
30 | set nb_sh_good 0 |
31 | set nb_sol_good 0 |
32 | set nb_compsol_good 0 |
33 | set nb_compound_good 0 |
e8feb725 |
34 | set nb_shape_good 3 |
3bea4c16 |
35 | } |
36 | |
37 | if { ${mistake} != 0 } { |
38 | puts "Faulty ${BugNumber}" |
39 | } else { |
40 | puts "OK ${BugNumber}" |
41 | } |
42 | |
43 | set 2dviewer 0 |
44 | |