tests/bugs/modalg_7/bug27950

   1 puts "TODO OCC27950 ALL: ERROR: OCC27950 is reproduced."
   2
   3 puts "========"
   4 puts "OCC27950"
   5 puts "========"
   6 puts ""
   7 ############################################################################
   8 # Result of intersection algorithm depends too much on surface trim bounds
   9 ############################################################################
  10
  11 restore [locate_data_file bug27950_s1.draw] s1
  12 restore [locate_data_file bug27950_s2.draw] s2
  13
  14 set bug_info [string trim [intersect i1 s1 s2]]
  15 if {[llength $bug_info] != 4} {
  16   puts "ERROR: OCC27950 is reproduced. Step #1. Result of intersection is [llength $bug_info]."
  17 }
  18
  19 trimv s2t s2 200 300
  20 set bug_info [string trim [intersect i2 s1 s2t]]
  21 if {[llength $bug_info] != 4} {
  22   puts "ERROR: OCC27950 is reproduced. Step #2. Result of intersection is [llength $bug_info]."
  23 }
  24
  25 trimv s2t s2 200 220
  26 set bug_info [string trim [intersect i3 s1 s2t]]
  27 if {[llength $bug_info] != 4} {
  28   puts "ERROR: OCC27950 is reproduced. Step #3. Result of intersection is [llength $bug_info]."
  29 }
  30
  31 trimv s2t s2 205.38050051360744 210.55652011282123
  32 set bug_info [string trim [intersect i4 s1 s2t]]
  33 if {[llength $bug_info] != 4} {
  34   puts "ERROR: OCC27950 is reproduced. Step #4. Result of intersection is [llength $bug_info]."
  35 }
  36
  37 trimv s2t s2 205 211
  38 set bug_info [string trim [intersect i5 s1 s2t]]
  39 if {[llength $bug_info] != 4} {
  40   puts "ERROR: OCC27950 is reproduced. Step #5. Result of intersection is [llength $bug_info]."
  41 }
  42
  43 trimv s2t s2 206 210
  44 set bug_info [string trim [intersect i6 s1 s2t]]
  45 if {[llength $bug_info] != 4} {
  46   puts "ERROR: OCC27950 is reproduced. Step #6. Result of intersection is [llength $bug_info]."
  47 }
  48
  49 trimv s2t s2 205.4 210.575
  50 set bug_info [string trim [intersect i7 s1 s2t]]
  51 if {[llength $bug_info] != 4} {
  52   puts "ERROR: OCC27950 is reproduced. Step #7. Result of intersection is [llength $bug_info]."
  53 }
  54
  55 trimv s2t s2 205.353 210.529
  56 set bug_info [string trim [intersect i8 s1 s2t]]
  57 if {[llength $bug_info] != 4} {
  58   puts "ERROR: OCC27950 is reproduced. Step #8. Result of intersection is [llength $bug_info]."
  59 }