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

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

pload QAcommands

restore [locate_data_file OCC322.brep] a 
puts [checkshape a]

sewing result a

vinit
vdisplay result
vfit

set Yellow_R 1
set Yellow_G 1
set Yellow_B 0

set x1 204
set y1 297

set x2 251
set y2 232

QAGetPixelColor $x1 $y1 $Yellow_R $Yellow_G $Yellow_B
QAGetPixelColor $x2 $y2 $Yellow_R $Yellow_G $Yellow_B

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
	9	puts [checkshape a]
	10
	11	sewing result a
	12
	13	vinit
	14	vdisplay result
	15	vfit
	16
	17	set Yellow_R 1
	18	set Yellow_G 1
	19	set Yellow_B 0
	20
	21	set x1 204
	22	set y1 297
	23
	24	set x2 251
aff395a3	25	set y2 232
0e94a94e	26
	27	QAGetPixelColor $x1 $y1 $Yellow_R $Yellow_G $Yellow_B
	28	QAGetPixelColor $x2 $y2 $Yellow_R $Yellow_G $Yellow_B
	29
	30	set square 20000
82cbc512	31	set only_screen 1
aff395a3	32