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

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

2dbsplinecurve b7 2 5 1 3 2 1 3 1 4 1 5 3 4 -3 1 6 8 1 10 11 1 10 11 1 14 14 1 5 8 1
2dbsplinecurve b8 2 5 2 3 2.5 1 3 1 3.5 1 4 3 5 20 1 8 15 1 12 18 1 12 18 1 16 21 1 7 12 1
set info [2dextrema b7 b8]

set status 0
for { set i 2 } { $i <= 5 } { incr i } {
    regexp "dist $i: +(\[-0-9.+eE\]+)" $info full pp1
    if { $pp1 !=4.3624023150195192 } {
       puts "Error : Extrema is wrong on dist $i"
       set status 1
    }
}

regexp {dist 1: +([-0-9.+eE]+)} $info full pp2
set pp_ch 4.3624023150195184

if { $pp2 != $pp_ch } {
    puts "Error : Extrema is wrong on dist 1"
    set status 1
}

if { $status != 0 } {
    puts "Error : Extrema is wrong"
} else {
    puts "OK: Extrema is valid"
}
Commit	Line	Data
32ca7a51	1	puts "============"
	2	puts "OCC23706"
	3	puts "============"
	4	puts ""
	5	#########################################################################
	6	# Cannot project point on curve
	7	#########################################################################
	8
	9	2dbsplinecurve b7 2 5 1 3 2 1 3 1 4 1 5 3 4 -3 1 6 8 1 10 11 1 10 11 1 14 14 1 5 8 1
	10	2dbsplinecurve b8 2 5 2 3 2.5 1 3 1 3.5 1 4 3 5 20 1 8 15 1 12 18 1 12 18 1 16 21 1 7 12 1
	11	set info [2dextrema b7 b8]
	12
	13	set status 0
	14	for { set i 2 } { $i <= 5 } { incr i } {
	15	regexp "dist $i: +(\[-0-9.+eE\]+)" $info full pp1
	16	if { $pp1 !=4.3624023150195192 } {
	17	puts "Error : Extrema is wrong on dist $i"
	18	set status 1
	19	}
	20	}
	21
	22	regexp {dist 1: +([-0-9.+eE]+)} $info full pp2
	23	set pp_ch 4.3624023150195184
	24
	25	if { $pp2 != $pp_ch } {
	26	puts "Error : Extrema is wrong on dist 1"
	27	set status 1
	28	}
	29
	30	if { $status != 0 } {
	31	puts "Error : Extrema is wrong"
	32	} else {
	33	puts "OK: Extrema is valid"
	34	}