1 puts "================"
3 puts "================"
5 ########################################################################################
6 # puts "Impossible to set different properties for different sides of a (sur)face"
7 ########################################################################################
16 restore [locate_data_file OCC1174.brep] a
35 vviewparams ${scale} ${center_X} ${center_Y} ${proj_X} ${proj_Y} ${proj_Z} ${up_X} ${up_Y} ${up_Z} ${at_X} ${at_Y} ${at_Z}
43 set ColorList1 [QAGetPixelColor ${x_GREEN} ${y_GREEN}]
44 regexp {RED +: +([-0-9.+eE]+)} $ColorList1 full RED_1
45 regexp {GREEN +: +([-0-9.+eE]+)} $ColorList1 full GREEN_1
46 regexp {BLUE +: +([-0-9.+eE]+)} $ColorList1 full BLUE_1
48 set ColorList2 [QAGetPixelColor ${x_BLUE} ${y_BLUE}]
49 regexp {RED +: +([-0-9.+eE]+)} $ColorList2 full RED_2
50 regexp {GREEN +: +([-0-9.+eE]+)} $ColorList2 full GREEN_2
51 regexp {BLUE +: +([-0-9.+eE]+)} $ColorList2 full BLUE_2
53 if {${RED_1} == 0 && ${GREEN_1} > 0 && ${BLUE_1} == 0} {
59 if {${RED_2} == 0 && ${GREEN_2} == 0 && ${BLUE_2} > 0} {
65 if {${IsGreen} == 1 && ${IsBlue} == 1} {