[occt.git] / tests / bugs / modalg / bug318


puts "========================"
puts " OCC318 "
puts "========================"
puts ""
##################################################
## Checkshape works wrong with Semi-Infinite Prism (s)
##################################################

box mb -0.5 -0.5 -0.5 1 1 1 
explode mb F 
prism result mb_1 1 0 0 SemiInf 

set che [checkshape result]
if { [regexp {Faulty} $che] == 1} {
    puts "Faulty OCC318: Result shape is invalid. It was detected by Checkshape command"
} else {
    puts "OCC318 OK: Result shape is valid"
}

set square 8e+100
set 2dviewer 0
Commit	Line	Data
0e94a94e	1
	2	puts "========================"
	3	puts " OCC318 "
	4	puts "========================"
	5	puts ""
	6	##################################################
	7	## Checkshape works wrong with Semi-Infinite Prism (s)
	8	##################################################
	9
	10	box mb -0.5 -0.5 -0.5 1 1 1
	11	explode mb F
	12	prism result mb_1 1 0 0 SemiInf
	13
	14	set che [checkshape result]
	15	if { [regexp {Faulty} $che] == 1} {
	16	puts "Faulty OCC318: Result shape is invalid. It was detected by Checkshape command"
	17	} else {
	18	puts "OCC318 OK: Result shape is valid"
	19	}
	20
	21	set square 8e+100
	22	set 2dviewer 0