[occt.git] / tests / bugs / modalg_7 / bug28763

puts "======="
puts "0028763"
puts "======="
puts ""
##################################################
# Projection of a short line segment on a polar surface causes exception
##################################################

beziersurf s 2 2 0 0 0 0 1 0 1 0 0 1 1 0
line c 0 0 0 1 1 0
trim c c 0 1e-6
project result c s

if {![regexp "Trimmed curve" [dump result]]} {
  puts "Error: Projection not done"
}

checklength result -l 1.e-6
Commit	Line	Data
4b1a2401	1	puts "======="
	2	puts "0028763"
	3	puts "======="
	4	puts ""
	5	##################################################
	6	# Projection of a short line segment on a polar surface causes exception
	7	##################################################
	8
	9	beziersurf s 2 2 0 0 0 0 1 0 1 0 0 1 1 0
	10	line c 0 0 0 1 1 0
	11	trim c c 0 1e-6
	12	project result c s
	13
	14	if {![regexp "Trimmed curve" [dump result]]} {
	15	puts "Error: Projection not done"
	16	}
	17
	18	checklength result -l 1.e-6