Disco Lights - Revision history

Dave at 01:02, 13 December 2014

2014-12-13T01:02:32Z

← Older revision		Revision as of 01:02, 13 December 2014
Line 57:		Line 57:
	set lampGroup to a reference to lamps of (first group whose title is groupName)		set lampGroup to a reference to lamps of (first group whose title is groupName)

	~~set lampList to {}~~
	repeat with lampNo from 1 to (count of lampGroup)		repeat with lampNo from 1 to (count of lampGroup)
	set lampList to lampList & {a reference to (item lampNo of lampGroup)}		set lampList to lampList & {a reference to (item lampNo of lampGroup)}

Dave at 01:01, 13 December 2014

2014-12-13T01:01:42Z

← Older revision		Revision as of 01:01, 13 December 2014
Line 6:		Line 6:

	<pre>		<pre>

	tell application "LIFXStyle"		tell application "LIFXStyle"
	set hueScaleFactor to 3 # larger number: cycle faster, smaller number: cylce slower		set hueScaleFactor to 3 # larger number: cycle faster, smaller number: cylce slower
Line 12:		Line 11:
	set kMaxValue to 255 # constant: don't change this number		set kMaxValue to 255 # constant: don't change this number

	set groupNameList to {"Barn", "Pool"} #, "Music Room"}		set groupNameList to {"Barn"} #, "Pool"} #, "Music Room"}

	set lampList to my get_all_lamps_in_group_list(groupNameList)		set lampList to my get_all_lamps_in_group_list(groupNameList)
Line 58:		Line 57:
	set lampGroup to a reference to lamps of (first group whose title is groupName)		set lampGroup to a reference to lamps of (first group whose title is groupName)

	set ~~namesList~~ to {}		set lampList to {}
	repeat with ~~curLampNo~~ from 1 to count of lampGroup		repeat with lampNo from 1 to (count of lampGroup)
	set ~~curLampName~~ to ~~title of~~ (item ~~curLampNo in~~ lampGroup)		set lampList to lampList & {a reference to (item lampNo of lampGroup)}
	~~set namesList to namesList & {curLampName~~}
	end repeat		end repeat

	~~set lampList to {}~~
	~~repeat with curLampNo from 1 to count of namesList~~
	~~set curLamp to item curLampNo in namesList~~
	~~set lampList to lampList & {a reference to (first lamp whose title is curLamp)}~~
	~~end repeat~~
	end tell		end tell

Dave at 08:36, 12 December 2014

2014-12-12T08:36:36Z

@@ Line 6: / Line 6: @@
 <pre>
 tell application "LIFXStyle"
 	set hueScaleFactor to 3 # larger number: cycle faster, smaller number: cylce slower
@@ Line 11: / Line 12: @@
 	set kMaxValue to 255 # constant: don't change this number
-	set barnList to {"Barn Desk Right", "Barn Desk Left", "Barn Wall", "Barn Stairs", "Barn Beam Uplight"}
+	set groupNameList to {"Barn", "Pool"} #, "Music Room"}
-	set lampNameList to barnList & poolList & musicRoomList
+	set lampList to my get_all_lamps_in_group_list(groupNameList)
 	repeat with curLamp in lampList
@@ Line 47: / Line 41: @@
 	end repeat
 end tell
 </pre>

Dave at 06:23, 12 December 2014

2014-12-12T06:23:15Z

← Older revision		Revision as of 06:23, 12 December 2014
Line 8:		Line 8:
	tell application "LIFXStyle"		tell application "LIFXStyle"
	set hueScaleFactor to 3 # larger number: cycle faster, smaller number: cylce slower		set hueScaleFactor to 3 # larger number: cycle faster, smaller number: cylce slower
	set ~~maxValue~~ to 255		set intraLampHueOffset to 45 # number of hue steps to take per bulb (so they're offset from each other)
			set kMaxValue to 255 # constant: don't change this number

	set barnList to {"Barn Desk Right", "Barn Desk Left", "Barn Wall", "Barn Stairs", "Barn Beam Uplight"}		set barnList to {"Barn Desk Right", "Barn Desk Left", "Barn Wall", "Barn Stairs", "Barn Beam Uplight"}
Line 23:		Line 24:
	repeat with curLamp in lampList		repeat with curLamp in lampList
	set (whiteness of curLamp) to 25		set (whiteness of curLamp) to 25
	set (brightness of curLamp) to ~~maxValue~~		set (brightness of curLamp) to kMaxValue
	end repeat		end repeat

	set hueStart to hue of item 1 of lampList		set hueStart to hue of item 1 of lampList
	set hueStartScaled to (hueStart / hueScaleFactor) as integer		set hueStartScaled to (hueStart / hueScaleFactor) as integer
	set hueEndScaled to (~~maxValue~~ / hueScaleFactor) as integer		set hueEndScaled to (kMaxValue / hueScaleFactor) as integer

	repeat		repeat
Line 36:		Line 37:
	repeat with itemNo from 1 to count of lampList		repeat with itemNo from 1 to count of lampList
	set curLamp to item itemNo of lampList		set curLamp to item itemNo of lampList
	set curLampHue to ((curScaledHue + (itemNo * 45)) mod ~~255~~) as integer		set curLampHue to ((curScaledHue + (itemNo * intraLampHueOffset)) mod kMaxValue) as integer
	set (hue of curLamp) to curLampHue		set (hue of curLamp) to curLampHue
	end repeat		end repeat

Dave at 21:38, 11 December 2014

2014-12-11T21:38:17Z

← Older revision		Revision as of 21:38, 11 December 2014
Line 7:		Line 7:
	<pre>		<pre>
	tell application "LIFXStyle"		tell application "LIFXStyle"
	set hueScaleFactor to 3		set hueScaleFactor to 3 # larger number: cycle faster, smaller number: cylce slower
	set maxValue to 255		set maxValue to 255

Dave: Created page with "I set up a few lights around the room, [http://lifx.co/ with LIFX bulbs], but you could as easily use [http://www.meethue.com Phillips Hue bulbs]. Then i run [http://peacockm..."

2014-12-11T21:36:57Z

Created page with "I set up a few lights around the room, [http://lifx.co/ with LIFX bulbs], but you could as easily use [http://www.meethue.com Phillips Hue bulbs]. Then i run [http://peacockm..."

New page

I set up a few lights around the room, [http://lifx.co/ with LIFX bulbs], but you could as easily use [http://www.meethue.com Phillips Hue bulbs].

Then i run [http://peacockmedia.co.uk/LIFXstyle/ LIFXstyle] or [http://peacockmedia.co.uk/huetopia/ Hue-topia].

Then i run my color-changing-lights script:

<pre>
tell application "LIFXStyle"
set hueScaleFactor to 3
set maxValue to 255

set barnList to {"Barn Desk Right", "Barn Desk Left", "Barn Wall", "Barn Stairs", "Barn Beam Uplight"}
set poolList to {"Pool Left", "Pool Middle", "Pool Right "}
set musicRoomList to {"Tall Lamp"}

set lampNameList to barnList & poolList & musicRoomList

set lampList to {}
repeat with curLamp in lampNameList
set lampList to lampList & {a reference to (first lamp whose title is curLamp)}
end repeat

repeat with curLamp in lampList
set (whiteness of curLamp) to 25
set (brightness of curLamp) to maxValue
end repeat

set hueStart to hue of item 1 of lampList
set hueStartScaled to (hueStart / hueScaleFactor) as integer
set hueEndScaled to (maxValue / hueScaleFactor) as integer

repeat
repeat with hueValue from hueStartScaled to hueEndScaled
set curScaledHue to (hueValue * hueScaleFactor)

repeat with itemNo from 1 to count of lampList
set curLamp to item itemNo of lampList
set curLampHue to ((curScaledHue + (itemNo * 45)) mod 255) as integer
set (hue of curLamp) to curLampHue
end repeat

delay 0.25
end repeat

set hueStartScaled to 0
end repeat
end tell
</pre>