[occt.git] / tests / bugs / modalg_5 / bug23706_6

puts "============"
puts "OCC23706"
puts "============"
puts ""
#########################################################################
# Cannot project point on curve
#########################################################################

pload XSDRAW
2dbsplinecurve cc 3 2 0 4 1 4 -1 -1 1 0 -1 1 0 0 1 0 0 1
offset2dcurve o cc .5
set info [length o]
regexp {The length o is+ +([-0-9.+eE]+)} $info full ll
set ll_check 2.3717833300483151

if { [expr 1.*abs($ll_check - $ll)/$ll_check] > 0.01 } {
   puts "Error : The lenght of result shape is $ll"
}
Commit	Line	Data
32ca7a51	1	puts "============"
	2	puts "OCC23706"
	3	puts "============"
	4	puts ""
	5	#########################################################################
	6	# Cannot project point on curve
	7	#########################################################################
	8
	9	pload XSDRAW
	10	2dbsplinecurve cc 3 2 0 4 1 4 -1 -1 1 0 -1 1 0 0 1 0 0 1
	11	offset2dcurve o cc .5
	12	set info [length o]
	13	regexp {The length o is+ +([-0-9.+eE]+)} $info full ll
	14	set ll_check 2.3717833300483151
	15
	16	if { [expr 1.*abs($ll_check - $ll)/$ll_check] > 0.01 } {
	17	puts "Error : The lenght of result shape is $ll"
	18	}