puts "================"
puts "OCC4426"
puts "================"
puts ""
#######################################################################################
# Incorrect result of intersection in 2D between circle and line
#######################################################################################

smallview -2D-
don
circle c1 2 2 1
2dfit
2dzoom 120
line l1 3 0 0 1
2dintersect l1 c1
erase l1 c1

puts "ATTENTION! Check following:"
puts "There is only one intersection point (green X)"

checkview -screenshot -2d -path ${imagedir}/${test_image}.png