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

 
puts "========================"
puts " OCC481 "
puts "========================"
puts ""
##########################################
##Attached shape could not be displayed in the Shading mode.
##########################################

restore [locate_data_file OCC481.rle] result
puts [checkshape result]

tclean result
vinit
vdisplay result
vfit
vsetdispmode result 1

set tri 0
set nod 0

set tri_info [trinfo result]
regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod

if { $tri == 72 && $nod == 74 } {
    puts " OCC481 : OK"
} else {
    puts " OCC481 : Faulty"
}

set square 314.159
set 3dviewer 1
Commit	Line	Data
0e94a94e	1
	2	puts "========================"
	3	puts " OCC481 "
	4	puts "========================"
	5	puts ""
	6	##########################################
	7	##Attached shape could not be displayed in the Shading mode.
	8	##########################################
	9
	10	restore [locate_data_file OCC481.rle] result
	11	puts [checkshape result]
	12
	13	tclean result
	14	vinit
	15	vdisplay result
	16	vfit
	17	vsetdispmode result 1
	18
	19	set tri 0
	20	set nod 0
	21
	22	set tri_info [trinfo result]
	23	regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
	24	regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
	25
	26	if { $tri == 72 && $nod == 74 } {
	27	puts " OCC481 : OK"
	28	} else {
	29	puts " OCC481 : Faulty"
	30	}
	31
	32	set square 314.159
	33	set 3dviewer 1