puts "========"
puts "OCC24772"
puts "========"
puts ""
################################################################
# Intersection of cylinder and cone produces incorrect results
################################################################

restore [locate_data_file bug24772_s1.draw] s1
restore [locate_data_file bug24772_s2.draw] s2
restore [locate_data_file bug24772_s3.draw] s3

smallview +X+Y
fit
zoom 6

# case of unmatched axes
set bug_info_1 [intersect r1 s1 s2]

# case of matched axes
set bug_info_2 [intersect r2 s2 s3]

if {[llength $bug_info_1] != 3} {
  puts "ERROR: OCC24722 is reproduced."
} else {
  # snapshot r1_1
  clear
  display s1
  display s2
  display r1_1
  xwd $imagedir/${casename}_r1_1.png
  # snapshot r1_2
  clear
  display s1
  display s2
  display r1_2
  xwd $imagedir/${casename}_r1_2.png
  # snapshot r1_3
  clear
  display s1
  display s2
  display r1_3
  xwd $imagedir/${casename}_r1_3.png
}


if {[llength $bug_info_2] != 3} {
  puts "ERROR: OCC24722 is reproduced."
} else {
  # snapshot r2_1
  clear
  display s2
  display s3
  display r2_1
  xwd $imagedir/${casename}_r2_1.png
  # snapshot r2_2
  clear
  display s2
  display s3
  display r2_2
  xwd $imagedir/${casename}_r2_2.png
  # snapshot r2_3
  clear
  display s2
  display s3
  display r2_3
  xwd $imagedir/${casename}_r2_3.png
}
