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

#INTERFACE IGES
puts "======="
puts "OCC535"
puts "======="
puts ""
#############################################################
## After command "fixshape" in DRAW on attached shape quantity of shapes obtained
## with help command "nbs" is increased.
#############################################################

pload XDE

restore [locate_data_file OCC535.brep] a 

set nb_info_a [nbshapes a]
regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_a full r1

fixshape result a

set nb_info_res [nbshapes result]
regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_res full r2

puts ""
puts [format "before Shapes = %s     after Shapes = %s" $r1 $r2]
puts ""

if { $r1 == $r2 } {
    puts "OCC535 OK"
} else {
    puts "OCC535 Faulty"
}

checkprops result -s 3554.31 
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
352ffd73	1	#INTERFACE IGES
	2	puts "======="
	3	puts "OCC535"
	4	puts "======="
	5	puts ""
	6	#############################################################
	7	## After command "fixshape" in DRAW on attached shape quantity of shapes obtained
	8	## with help command "nbs" is increased.
	9	#############################################################
	10
	11	pload XDE
352ffd73	12
	13	restore [locate_data_file OCC535.brep] a
	14
	15	set nb_info_a [nbshapes a]
	16	regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_a full r1
	17
	18	fixshape result a
	19
	20	set nb_info_res [nbshapes result]
	21	regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_res full r2
	22
	23	puts ""
	24	puts [format "before Shapes = %s after Shapes = %s" $r1 $r2]
	25	puts ""
	26
	27	if { $r1 == $r2 } {
	28	puts "OCC535 OK"
	29	} else {
	30	puts "OCC535 Faulty"
	31	}
	32
58cf74e0	33	checkprops result -s 3554.31
58cf74e0	34	checkshape result
5747059b	35	checkview -display result -2d -path ${imagedir}/${test_image}.png