5 #################################################
6 # Regression vs 6.7.1: General Fuse operation fails to fuse the solids
7 #################################################
9 restore [locate_data_file bug27648_simple.brep] s
14 # find section edge belonging to the face s_2_3
15 foreach e [explode r e] {
16 if {[catch {mk2dcurve c2d $e s_2_3}] == 0} {
23 # in a loop, check that curve has increased Z value along its length
26 for {set p 0} {$p <= 1} {set p [expr $p + $delta]} {
28 if {[dval z] < [dval zp]} {
29 puts "Error on parameter $p"