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

puts "================"
puts "OCC322"
puts "================"
puts ""

pload QAcommands

restore [locate_data_file OCC322.brep] a 
checkshape a

sewing result a

vinit
vdisplay result
vfit

set x_coord 204
set y_coord 297

checkcolor $x_coord $y_coord 1 1 0

set x_coord 251
set y_coord 232

checkcolor $x_coord $y_coord 1 1 0

checkmaxtol result -ref 1.0001007808605688e-007
checknbshapes result -shell 1
checkfreebounds result 6

set square 20000
set only_screen 1
Commit	Line	Data
0e94a94e	1	puts "================"
	2	puts "OCC322"
	3	puts "================"
	4	puts ""
	5
aff395a3	6	pload QAcommands
aff395a3	7
0e94a94e	8	restore [locate_data_file OCC322.brep] a
352ffd73	9	checkshape a
0e94a94e	10
	11	sewing result a
	12
	13	vinit
	14	vdisplay result
	15	vfit
	16
f1aa2b62	17	set x_coord 204
f1aa2b62	18	set y_coord 297
0e94a94e	19
f1aa2b62	20	checkcolor $x_coord $y_coord 1 1 0
0e94a94e	21
f1aa2b62	22	set x_coord 251
f1aa2b62	23	set y_coord 232
0e94a94e	24
f1aa2b62	25	checkcolor $x_coord $y_coord 1 1 0
0e94a94e	26
fb60057d	27	checkmaxtol result -ref 1.0001007808605688e-007
5ae01c85	28	checknbshapes result -shell 1
	29	checkfreebounds result 6
	30
0e94a94e	31	set square 20000
82cbc512	32	set only_screen 1
aff395a3	33