[occt.git] / tests / bugs / modalg_2 / bug302_3

puts "========================"
puts " OCC302 "
puts "(case 3)"
puts "========================"
puts ""
#################################################################
## After performing command "checkshape" to attached face I receive "Bad Orientation of Subshape"
##  but I believe that orientation of this face is correct.
#################################################################

restore [locate_data_file OCC302c.brep] result

set che [checkshape result r]
if { [regexp {OK} $che] !=1 } {
    puts "Faulty OCC302 (case 3): command  checkshape works wrongly"
} else {
    puts "OCC302 OK (case 3) :  command  checkshape works properly"
}

set square 23240.8
set 2dviewer 0
Commit	Line	Data
0e94a94e	1	puts "========================"
	2	puts " OCC302 "
	3	puts "(case 3)"
	4	puts "========================"
	5	puts ""
	6	#################################################################
	7	## After performing command "checkshape" to attached face I receive "Bad Orientation of Subshape"
	8	## but I believe that orientation of this face is correct.
	9	#################################################################
	10
	11	restore [locate_data_file OCC302c.brep] result
	12
	13	set che [checkshape result r]
	14	if { [regexp {OK} $che] !=1 } {
	15	puts "Faulty OCC302 (case 3): command checkshape works wrongly"
	16	} else {
	17	puts "OCC302 OK (case 3) : command checkshape works properly"
	18	}
	19
	20	set square 23240.8
	21	set 2dviewer 0