puts "================"
puts "OCC1174"
puts "================"
puts ""
########################################################################################
# puts "Impossible to set different properties for different sides of a (sur)face"
########################################################################################

set x 200
set y 200

set Black_R 0
set Black_G 0
set Black_B 0

restore [locate_data_file OCC1174.brep] a
vinit
OCC1174_1 a
vdisplay a
vfit

set scale    2.50501
set proj_X   0.672033
set proj_Y   -0.721033
set proj_Z   0.168771
set up_X     -0.131494
set up_Y     0.108095
set up_Z     0.985406
set at_X     102.061817325836
set at_Y     169.436979868935
set at_Z     70.7572056943368

vviewparams -scale ${scale} -proj ${proj_X} ${proj_Y} ${proj_Z} -up ${up_X} ${up_Y} ${up_Z} -at ${at_X} ${at_Y} ${at_Z}

set x_GREEN 300
set y_GREEN 180

set x_BLUE 180
set y_BLUE 250

set ColorList1 [QAGetPixelColor ${x_GREEN} ${y_GREEN}]
regexp {RED +: +([-0-9.+eE]+)} $ColorList1 full RED_1
regexp {GREEN +: +([-0-9.+eE]+)} $ColorList1 full GREEN_1
regexp {BLUE +: +([-0-9.+eE]+)} $ColorList1 full BLUE_1

set ColorList2 [QAGetPixelColor ${x_BLUE} ${y_BLUE}]
regexp {RED +: +([-0-9.+eE]+)} $ColorList2 full RED_2
regexp {GREEN +: +([-0-9.+eE]+)} $ColorList2 full GREEN_2
regexp {BLUE +: +([-0-9.+eE]+)} $ColorList2 full BLUE_2

if {${RED_1} == 0 && ${GREEN_1} > 0 && ${BLUE_1} == 0} {
   set IsGreen 1
} else {
   set IsGreen 0
}

if {${RED_2} == 0 && ${GREEN_2} == 0 && ${BLUE_2} > 0} {
   set IsBlue 1
} else {
   set IsBlue 0
}

if {${IsGreen} == 1 && ${IsBlue} == 1} {
   puts "OCC1174: OK"
} else {
   puts "OCC1174: Error"
}

set only_screen 1
