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


puts "========================"
puts " OCC423 "
puts "(case 1)"
puts "========================"
puts ""

restore [locate_data_file cylindre.rle] cyl 
checkshape cyl

restore [locate_data_file contour.rle] cont 
checkshape cont

mkplane cont cont
nexplode cyl F

ttranslate cont 0 200 0
featdprism cyl cont cont 10 1 1

if [catch {featperformval dprism result 55 cyl_3 } catch_result] {
    puts "Faulty OCC423 (case 1): function FEATPERFORMVAL works wrongly"
} else {
    puts "OCC423 OK (case 1): function FEATPERFORMVAL works properly"
}

set square 94944.4
set 2dviewer 0
Commit	Line	Data
f1aa2b62	1
	2	puts "========================"
	3	puts " OCC423 "
	4	puts "(case 1)"
	5	puts "========================"
	6	puts ""
	7
	8	restore [locate_data_file cylindre.rle] cyl
352ffd73	9	checkshape cyl
f1aa2b62	10
f1aa2b62	11	restore [locate_data_file contour.rle] cont
352ffd73	12	checkshape cont
f1aa2b62	13
	14	mkplane cont cont
	15	nexplode cyl F
	16
	17	ttranslate cont 0 200 0
	18	featdprism cyl cont cont 10 1 1
	19
	20	if [catch {featperformval dprism result 55 cyl_3 } catch_result] {
	21	puts "Faulty OCC423 (case 1): function FEATPERFORMVAL works wrongly"
	22	} else {
	23	puts "OCC423 OK (case 1): function FEATPERFORMVAL works properly"
	24	}
	25
	26	set square 94944.4
	27	set 2dviewer 0