[occt.git] / tests / bugs / step / pro20362

puts "========================"
puts "PRO20362"
puts "========================"

stepread [locate_data_file PRO20362.stp] a *

explode a_1 f
renamevar a_1 result

checkshape a_1_1
checkshape a_1_1 r

set l [explode a_1_1 e]
set n [llength $l]
if { $n != 4 } {
    puts "Error : The amount of edges in FIRST face is more than four"
}

checkshape a_1_2
checkshape a_1_2 r

set i [explode a_1_2 e]
set m [llength $i]
if { $m != 4 } {
    puts "Faulty : The amount of edges in SECOND face is more than four"
}

set 2dviewer 0
Commit	Line	Data
0e94a94e	1	puts "========================"
	2	puts "PRO20362"
	3	puts "========================"
	4
	5	stepread [locate_data_file PRO20362.stp] a *
	6
	7	explode a_1 f
	8	renamevar a_1 result
	9
352ffd73	10	checkshape a_1_1
352ffd73	11	checkshape a_1_1 r
0e94a94e	12
	13	set l [explode a_1_1 e]
	14	set n [llength $l]
	15	if { $n != 4 } {
	16	puts "Error : The amount of edges in FIRST face is more than four"
	17	}
	18
352ffd73	19	checkshape a_1_2
352ffd73	20	checkshape a_1_2 r
0e94a94e	21
	22	set i [explode a_1_2 e]
	23	set m [llength $i]
	24	if { $m != 4 } {
	25	puts "Faulty : The amount of edges in SECOND face is more than four"
	26	}
	27
	28	set 2dviewer 0