puts "============"
puts "OCC16517"
puts "============"
puts ""
#######################################################################
# Cylindrical projection is wrong
#######################################################################

set BugNumber OCC16517

restore [locate_data_file OCC16517_c.brep] c
restore [locate_data_file OCC16517_s.brep] s

set Result_List [prj p c s 0 0 1]
set Result_Numbers [llength ${Result_List}]
set mistake 0
if { ${Result_Numbers} != 2 } {
  puts "Faulty ${BugNumber} : projection numbers are wrong"
  set mistake 1
} else {
  puts "Second projection ..."
  renamevar p_2 result
  set status 0

  checkprops result -l 110.167 
checkshape result
  checksection result
  checknbshapes result -vertex 1 -edge 1 -wire 1 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 3
}

# Resume
puts ""
if { ${mistake} != 0 } {
  puts "Faulty ${BugNumber}"
} else {
  puts "OK ${BugNumber}"
}

vinit
vdisplay c s result p_1
vfit

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
