set b_check 0.094117000000000006
}
+set r_check [expr int($r_check * 1.e5)]
+set g_check [expr int($g_check * 1.e5)]
+set b_check [expr int($b_check * 1.e5)]
+
+puts "r_check=$r_check"
+puts "g_check=$g_check"
+puts "b_check=$b_check"
+
set color1 [ QAGetPixelColor ${x1} ${y1} ]
regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1
regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1
regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1
+set rd1 [expr int($rd1 * 1.e5)]
+set gr1 [expr int($gr1 * 1.e5)]
+set bl1 [expr int($bl1 * 1.e5)]
+
puts "rd1=$rd1"
puts "gr1=$gr1"
puts "bl1=$bl1"