[occt.git] / tests / bugs / moddata_1 / buc60924


puts "========"
puts "BUC60924"
puts "========"
puts ""

##################################################
## ShapeAnalysisStd_Curve::IsPlanar works incorrectly with a conic curve.
################################################## 

pload QAcommands

ellipse el 0 0 1 20 10

set result1 [BUC60924 el 0 0 1]

if {${result1} != "The curve is planar !\n"} {
    puts "BUC60924: Error"
} else {
    puts "BUC60924: OK"
}
Commit	Line	Data
0e94a94e	1
	2	puts "========"
	3	puts "BUC60924"
	4	puts "========"
	5	puts ""
	6
	7	##################################################
	8	## ShapeAnalysisStd_Curve::IsPlanar works incorrectly with a conic curve.
	9	##################################################
	10
	11	pload QAcommands
	12
	13	ellipse el 0 0 1 20 10
	14
	15	set result1 [BUC60924 el 0 0 1]
	16
	17	if {${result1} != "The curve is planar !\n"} {
	18	puts "BUC60924: Error"
	19	} else {
	20	puts "BUC60924: OK"
	21	}