5 #######################################################################
6 # Cylindrical projection is wrong
7 #######################################################################
11 restore [locate_data_file OCC16517_c.brep] c
12 restore [locate_data_file OCC16517_s.brep] s
14 set Result_List [prj p c s 0 0 1]
15 set Result_Numbers [llength ${Result_List}]
17 if { ${Result_Numbers} != 2 } {
18 puts "Faulty ${BugNumber} : projection numbers are wrong"
21 puts "Second projection ..."
33 set nb_compound_good 0
39 if { ${mistake} != 0 } {
40 puts "Faulty ${BugNumber}"
42 puts "OK ${BugNumber}"
46 vdisplay c s result p_1