# Evaluate pixel colors of a rectangular screen area
# Upper left corner of the rectangle : x_upper_left , y_upper_left
# Lower right corner of the rectangle: x_lower_right, y_lower_right
# x (horizontal) range: 1 ... ScreenWidth()
# y (vertical) range : 1 ... ScreenHeight()
# OK button
x_upper_left = 241
y_upper_left = 216
x_lower_right = 460
y_lower_right = 254
logfile = "screen_color.txt"
Run ("\Storage Card\NAVIGON\navigon.exe")
Sleep (20000)
title = "Mobile Navigator"
If (ActiveWindow() eq title)
Message("Press OK to start screen color evaluation")
Delete(SystemPath("ScriptPath") \ logfile)
Delete(logfile)
WriteFile(logfile, "Upper left corner = " & x_upper_left & " " & y_upper_left & "^NL^", TRUE)
WriteFile(logfile, "Lower right corner = " & x_lower_right & " " & y_lower_right & "^NL^", TRUE)
heading = "^NL^Row Column Color^NL^"
space[0] = ""
For i = 1 to 10
space[i] = space[i-1] & " "
Next
count = 0
For col = x_upper_left to x_lower_right
col_space = space[3 - length(col)]
For row = y_upper_left to y_lower_right
If (count MOD 25 = 0)
WriteFile(logfile, heading, TRUE)
EndIf
count += 1
color = ColorAt(col, row)
row_space = space[5 - length(row)]
color_space = space[10 - length(color)]
WriteFile(logfile, col_space & col & row_space & row & color_space & color & "^NL^", TRUE)
Next
Next
Message("Screen color evaluation finished: Data written to " & logfile & ".")
Else
Message (title & " not active", "Error")
EndIf