tests/bugs/modalg_1/bug13395

   1 puts "============"
   2 puts "OCC13395"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Pipe is constructed wrongly on a result of revolution
   7 #######################################################################
   8
   9 # revolution of an edge to obtain half-disk
  10 line line1 0 0 0 1 0 0
  11 mkedge edge1 line1 0 10
  12 revol revol1 edge1 0 0 0 0 1 0 180
  13
  14 # spine for pipe
  15 line line2 0 0 0 0 1 0
  16 mkedge edge2 line2 0 10
  17 wire wire_spine edge2
  18
  19 # invalid pipe
  20 pipe result wire_spine revol1
  21
  22 checkprops result -s 828.319
  23 checkshape result
  24 set good_vertex 6
  25 set good_edge 9
  26 set good_wire 5
  27 set good_face 5
  28 set explode_v_length  [llength [explode result v] ]
  29 set explode_e_length  [llength [explode result e] ]
  30 set explode_w_length  [llength [explode result w] ]
  31 set explode_f_length  [llength [explode result f] ]
  32
  33 if { ${explode_v_length} != ${good_vertex} } {
  34    puts "vertex: Faulty"
  35 } else {
  36    puts "vertex: OK"
  37 }
  38 if { ${explode_e_length} != ${good_edge} } {
  39    puts "edge: Faulty"
  40 } else {
  41    puts "edge: OK"
  42 }
  43 if { ${explode_w_length} != ${good_wire} } {
  44    puts "wire: Faulty"
  45 } else {
  46    puts "wire: OK"
  47 }
  48 if { ${explode_f_length} != ${good_face} } {
  49    puts "face: Faulty"
  50 } else {
  51    puts "face: OK"
  52 }
  53
  54 checkview -display result -2d -path ${imagedir}/${test_image}.png
  55