puts "============"
puts "OCC22313"
puts "============"
puts ""
#######################################################################
# Bug in shading mode with attached shape
#######################################################################

set BugNumber OCC22313

# Data

set scale    2.9701073117025172
set center_X -1339.0679502864409
set center_Y -2077.3454643258542
set proj_X   0.4096425473690033
set proj_Y   0.77340573072433472
set proj_Z   0.48377299308776855
set up_X     -0.83569550514221191
set up_Y     0.1055084615945816
set up_Z     0.538962721824646
set at_X     -2857.961669921875
set at_Y     -1655.37939453125
set at_Z     -1782.80908203125


set x1 300
set y1 230

set Artifact_R 0
set Artifact_G 0
set Artifact_B 0

# Start

restore [locate_data_file OCC22313-face_shading_problem.brep] result
vinit
vdisplay result
vfit

vsetdispmode 1
vfit


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

checkcolor ${x1} ${y1} ${Artifact_R} ${Artifact_G} ${Artifact_B}

set only_screen 1