tests/bugs/modalg_5/bug24033

   1 puts "========"
   2 puts "CR24033"
   3 puts "========"
   4 puts ""
   5 #########################################
   6 ## All the orientation as a result of BRepAlgoAPI_Common is set to INTERNAL
   7 #########################################
   8
   9 polyline f1 0 0 0 0 1 0 1 1 0 1 0 0 0 0 0
  10 mkplane f1 f1
  11 polyline f2 0 1 0 0 2 0 1 2 0 1 1 0 0 1 0
  12 mkplane f2 f2
  13 polyline f3 0 2 0 0 3 0 1 3 0 1 2 0 0 2 0
  14 mkplane f3 f3
  15
  16 polyline f4 1 0 0 1 1 0 2 1 0 2 0 0 1 0 0
  17 mkplane f4 f4
  18 polyline f5 1 1 0 1 2 0 2 2 0 2 1 0 1 1 0
  19 mkplane f5 f5
  20 polyline f6 1 2 0 1 3 0 2 3 0 2 2 0 1 2 0
  21 mkplane f6 f6
  22
  23 polyline f7 2 0 0 2 1 0 3 1 0 3 0 0 2 0 0
  24 mkplane f7 f7
  25 polyline f8 2 1 0 2 2 0 3 2 0 3 1 0 2 1 0
  26 mkplane f8 f8
  27 polyline f9 2 2 0 2 3 0 3 3 0 3 2 0 2 2 0
  28 mkplane f9 f9
  29
  30 sewing s f1 f2 f3 f4 f5 f6 f6 f7 f8 f9
  31
  32 box b -1 1 -1 2 1 2
  33
  34 bop s b
  35 bopcommon r
  36 explode r
  37
  38 explode r_1
  39 set info_f [whatis r_1_1]
  40 if { [regexp {INTERNAL} ${info_f}] } {
  41     puts "Faulty : Wrong orientation of the face"
  42 } else {
  43     puts "Correct orientation of the face"
  44 }
  45
  46 explode r_1_1 e
  47 set info_e [whatis r_1_1_1]
  48 if { [regexp {INTERNAL} ${info_e}] } {
  49     puts "Faulty : Wrong orientation of the edge"
  50 } else {
  51     puts "Correct orientation of the edge"
  52 }
  53
  54 explode r_1_1 v
  55 set info_v [whatis r_1_1_1]
  56 if { [regexp {INTERNAL} ${info_v}] } {
  57     puts "Faulty : Wrong orientation of the vertex"
  58 } else {
  59     puts "Correct orientation of the vertex"
  60 }