tests/bugs/modalg_5/bug25416_3

   1 puts "================"
   2 puts "OCC25416"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # Wrong section curve
   7 #######################################################################
   8
   9 #Check if intersection algorithm produces overlapped curves
  10
  11 restore [locate_data_file bug25416_s1.draw] s1
  12 restore [locate_data_file bug25416_s2.draw] s2
  13
  14 set ll [intersect ii s1 s2]
  15
  16 set status 0
  17 if { [llength $ll] < 1 } {
  18     set status 1
  19 }
  20
  21 foreach i $ll {
  22    foreach j $ll {
  23       if { $i >= $j } continue
  24
  25       mkedge e1 $i
  26       mkedge e2 $j
  27       set coe [checkoverlapedges e1 e2]
  28
  29       puts "$i<->$j: $coe"
  30       if { [regexp "Edges is not overlaped" $coe] != 1 } {
  31          set status 2
  32       }
  33    }
  34 }
  35
  36 if { $status != 0 } {
  37     puts "Wrong section. Error with code $status"
  38 } else {
  39     puts "OK: Good section"
  40 }