Re: Here's an easy one: Loop to change bkgcolor

[Rob Cozens]

I have to measure the light emitted by the display with a spectrophotometer.
Against a grey background (128,128,128) I have to measure the light from a
300x300 px rectangle. I want to make several measurements at increments of
15 (0,0,0  15,0,0  30,0,0 etc) of each colour. Since the spectrophotometer
is at some distance away from the from the display I want to make the
process of changing the colour as automatic as possible. That is, each time
I hit the return key, or pageDown key the value 15 is added to the
backgroundColor until it's value reaches 255, after which it starts adding
15 to the second (green) value - 0,15,0  0,30,0  0,45,0 etc. I would like it
to loop through the R, G and B channels after which it does the grey levels
(15,15,15  30,30,30  45,45,45 etc).
Hi Peter,

Here's a starter:

In field script:

on focusIn
  set the backgroundColor of me to "0,0,0"
  setBackgroundColor true
end focusIn
on returnInField
  setBackgroundColor false
end returnInField
In some script:

local secondPass

on setBackgroundColor initLocal
   if initLoacal then
     get "15,0,0"
     put false into secondPass
   else
     get the backgroundColor of the target
     if it is "255,255,255" then
       get "0,0,0"
       put not secondPass into secondPass
     else
       put item 1 of it into rValue
       put item 2 of it into gValue
       put item 3 of it into bValue
       if rValue < 255 or secondPass then put rValue+15 into item 1 of it
       if gValue < 255 or secondPass then put gValue+15 into item 2 of it
       if bValue < 255 or secondPass then put bValue+15 into item 3 of it
     end if
   end if
   set the backgroundColor of the target to it
end setBackgroundColor
If this does basically what you want, I leave it to you to determine 
how to trap for the pageDown key.
--

Rob Cozens
CCW, Serendipity Software Company
http://www.oenolog.com/who.htm
"And I, which was two fooles, do so grow three;
Who are a little wise, the best fooles bee."
from "The Triple Foole" by John Donne (1572-1631)
_______________________________________________
use-revolution mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/use-revolution