puts "========"
puts "OCC215"
puts "========"

restore [locate_data_file OCC215.brep] result
checkshape result

tclean result
vinit
vdisplay result
vfit

set scale    6.29714883567995
set center_X 70.7106779835678
set center_Y 41.2330922040446
set proj_X   0.344812899827957
set proj_Y   -0.830477952957153
set proj_Z   0.43750473856926
set up_X     -0.368759274482727
set up_Y     0.308769434690475
set up_Z     0.876742839813232
set at_X     -5.88607025146484
set at_Y     28.6973209381104
set at_Z     -12.5332689285278

QASetViewCharac ${scale} ${center_X} ${center_Y} ${proj_X} ${proj_Y} ${proj_Z} ${up_X} ${up_Y} ${up_Z} ${at_X} ${at_Y} ${at_Z}

set x_coord 229
set y_coord 94

checkcolor $x_coord $y_coord 1 1 0

set only_screen 1