tests/lowalgos/extcc/bug29712_37

   1 puts "========"
   2 puts "OCC29712"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Extrema algorithm raises exception
   7 #################################################
   8
   9 # Curves c1 and c2 are concentric circles.
  10 # However, they are bounded (trimmed) curves
  11 # and are shifted relatively to each other.
  12
  13 set ExpDist 150.0
  14
  15 circle c1 0 0 0 0 0 1 100
  16 lmirror c1 0 0 0 1 0 0
  17 circle c2 0 0 0 0 0 1 50
  18 trim c1 c1 3 6.5
  19 trim c2 c2 4 6
  20
  21 extrema c1 c2
  22
  23 if { ![isdraw ext_1 ] } {
  24   puts "Error in Extrema-algorithm"
  25 } else {
  26   puts "Extrema-algorithm works properly"
  27 }
  28
  29 renamevar ext_1 e1
  30 extrema c2 c1
  31
  32 if { ![isdraw ext_1 ] } {
  33   puts "Error in Extrema-algorithm"
  34 } else {
  35   puts "Extrema-algorithm works properly"
  36 }
  37