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 "Second projection ..." |
22 | renamevar p_2 result |
23 | set status 0 |
24 | |
e8feb725 |
25 | set length 110.167 |
a4eba920 |
26 | checknbshapes result -vertex 1 -edge 1 -wire 1 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 3 |
3bea4c16 |
27 | } |
28 | |
29 | # Resume |
30 | puts "" |
31 | if { ${mistake} != 0 } { |
32 | puts "Faulty ${BugNumber}" |
33 | } else { |
34 | puts "OK ${BugNumber}" |
35 | } |
36 | |
7c32c7c4 |
37 | vinit |
38 | vdisplay c s result p_1 |
39 | vfit |
3bea4c16 |
40 | |
7c32c7c4 |
41 | set only_screen 1 |