tests/bugs/modalg_1/bug16517_2

   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
  25   checkprops result -l 110.167
  26 checkshape result
  27   checksection result
  28   checknbshapes result -vertex 1 -edge 1 -wire 1 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 3
  29 }
  30
  31 # Resume
  32 puts ""
  33 if { ${mistake} != 0 } {
  34   puts "Faulty ${BugNumber}"
  35 } else {
  36   puts "OK ${BugNumber}"
  37 }
  38
  39 vinit
  40 vdisplay c s result p_1
  41 vfit
  42
  43 checkview -screenshot -3d -path ${imagedir}/${test_image}.png