pload QAcommands
puts "================"
puts "OCC322"
puts "================"
puts ""

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 230

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