[occt.git] / tests / bugs / xde / bug945

puts "========="
puts " OCC945 "
puts "========="
puts ""
#######################################
## it is necessary to adapt ShapeFix_Face for correct work
#######################################

restore [locate_data_file OCC945.brep] a

decho off
set che [checkshape a]
decho on
if { [regexp "Faulty" $che] == 1 } {
    puts "OCC945: Source shape is invalid."
} else {
    puts "OCC945: Source shape is valid."
}

if [catch {fixshape result a 29.9 } res] {
    puts "Faulty OCC945: here is problem with FIXSHAPE function"
} else {
    decho off
    set che1 [checkshape result]
    decho on
    if { [regexp "Faulty" $che1] == 1 } {
	puts "Faulty OCC945: function FIXSHAPE works WRONGLY."
    } else {
	puts "OCC945 OK: function FIXSHAPE works PROPERLY."
    }
}

set 2dviewer 1
Commit	Line	Data
e54706ed	1	puts "========="
	2	puts " OCC945 "
	3	puts "========="
	4	puts ""
	5	#######################################
	6	## it is necessary to adapt ShapeFix_Face for correct work
	7	#######################################
	8
	9	restore [locate_data_file OCC945.brep] a
	10
	11	decho off
	12	set che [checkshape a]
	13	decho on
	14	if { [regexp "Faulty" $che] == 1 } {
	15	puts "OCC945: Source shape is invalid."
	16	} else {
	17	puts "OCC945: Source shape is valid."
	18	}
	19
1951a27c	20	if [catch {fixshape result a 29.9 } res] {
e54706ed	21	puts "Faulty OCC945: here is problem with FIXSHAPE function"
	22	} else {
	23	decho off
	24	set che1 [checkshape result]
	25	decho on
	26	if { [regexp "Faulty" $che1] == 1 } {
	27	puts "Faulty OCC945: function FIXSHAPE works WRONGLY."
	28	} else {
	29	puts "OCC945 OK: function FIXSHAPE works PROPERLY."
	30	}
	31	}
	32
	33	set 2dviewer 1