Functions/Twinkly/Set-Twinkly.ps1

function Set-Twinkly
{
    <#
    .Synopsis
        Sets Twinkly Lights
    .Description
        Sets Twinkly Lights. Changes colors, mode of operation
    .Example
        Set-Twinkly -Hue 360 -Saturation 100 -Luminance 1
    .Link
        Get-Twinkly
    .Link
        Connect-Twinkly
    #>

    [OutputType([PSObject])]
    param(
    # One or more IP Addresses of Twinkly devices.
    [Parameter(ValueFromPipelineByPropertyName)]
    [Alias('TwinklyIPAddress')]
    [IPAddress[]]
    $IPAddress,

    # Sets the hue of all lights in a fixture
    [Parameter(ValueFromPipelineByPropertyName)]
    [double]
    $Hue,

    # Sets the saturation of all lights in a fixture
    [Parameter(ValueFromPipelineByPropertyName)]
    [ValidateRange(0,1)]
    [double]
    $Saturation,

    # Sets the brightness of all lights in a fixture
    # When passed with -Hue and -Saturation, sets the color
    # When passed with no other parameters, adjusts the absolute brightness
    [Parameter(ValueFromPipelineByPropertyName)]
    [Alias('Luminance')]
    [ValidateRange(0,1)]
    [double]
    $Brightness,

    # Sets the red part of a color
    [Parameter(ValueFromPipelineByPropertyName)]
    [byte]
    $Red,

    # Sets the green part of a color
    [Parameter(ValueFromPipelineByPropertyName)]
    [byte]
    $Green,

    # Sets the blue part of a color
    [Parameter(ValueFromPipelineByPropertyName)]
    [byte]
    $Blue,

    # Sets lights to an RGB color.
    # If one color is provided, this will set the Twinkly color mode
    # If more than one RGB Color is provided, this will create a movie where each light alternates between each color
    # If -MovieFrameRate and
    [Parameter(ValueFromPipelineByPropertyName)]
    [string[]]
    $RGBColor,

    <#

    Will change the mode. Can be:

    * Off
    * Color
    * Demo
    * Effect
    * Movie
    * Playlist
    * RT

    Many operations require the mode to be set before they take effect.

    For instance, if you use -RGBColor, you will not see the changes if the mode is not set to 'color'.
    #>

    [Parameter(ValueFromPipelineByPropertyName)]
    [ValidateSet('off','color', 'demo','effect','movie','playlist','rt')]
    [string]
    $Mode,

    # If provided, will set the device name.
    [Parameter(ValueFromPipelineByPropertyName)]
    [string]
    $DeviceName,

    # If provided, will restart the playlist
    [Parameter(ValueFromPipelineByPropertyName)]
    [switch]
    $RestartPlaylist,

    # The name of a movie.
    [Parameter(ValueFromPipelineByPropertyName)]
    [string]
    $MovieName,

    # The movie framerate
    [Parameter(ValueFromPipelineByPropertyName)]
    [Alias('MovieFPS')]
    [int]
    $MovieFramerate,

    # The movie LED
    [Parameter(ValueFromPipelineByPropertyName)]
    [Alias('MovieLEDsPerFrame')]
    [int]
    $MovieLEDCount,

    # The number of frames in the movie.
    [Parameter(ValueFromPipelineByPropertyName)]
    [int]
    $MovieFrameCount,

    # A byte array of movie data.
    # Each sequence of 3-4 bytes represents a light color
    # Each sequence of colors represents a frame
    # Each sequence of frames represents a movie.
    [Parameter(ValueFromPipelineByPropertyName)]
    [Alias('MovieFrame','MovieFrames')]
    [byte[]]
    $MovieData,

    # The size of each block within a movie. By default, 3.
    [Parameter(ValueFromPipelineByPropertyName)]
    [byte]
    $MovieBlockSize = 3
    )
    begin {
        if (-not $script:TwinklyCache) {
            $script:TwinklyCache = @{}
        }
        if ($home) {
            $lightScriptRoot = Join-Path $home -ChildPath LightScript
        }
    }

    process {
        if (-not $IPAddress) {
            if ($home) {
                Get-ChildItem -Path $lightScriptRoot -ErrorAction SilentlyContinue -Filter *.twinkly.clixml -Force |
                    Import-Clixml |
                    ForEach-Object {
                        if (-not $_) { return }
                        $twinklyConnection = $_
                        if ([DateTime]::Now -ge $twinklyConnection.Authentication_ExpiresAt) {
                            $twinklyConnection = Connect-Twinkly -IPAddress $twinklyConnection.IPAddress -PassThru
                        }
                        $script:TwinklyCache["$($twinklyConnection.IPAddress)"] = $twinklyConnection
                    }

                $IPAddress = $script:TwinklyCache.Keys
            }
            if (-not $IPAddress) {
                Write-Warning "No -IPAddress provided and no cached devices found"
                return
            }
        }


        $myParams = [Ordered]@{} + $PSBoundParameters

        foreach ($ip in $IPAddress) {
            $Splat = @{
                Headers= @{"X-Auth-Token" =$script:TwinklyCache["$ip"].Authentication_Token}
                Method = 'POST'
            }
            #region Set Light Color
            if ($myParams.Contains('Red') -and $myParams.Contains('Blue') -and $myParams.Contains('Green'))
            {
                Invoke-RestMethod -Uri "http://$ip/xled/v1/led/color" @Splat -Body (
                    @{
                        red        = $red
                        blue       = $blue
                        green      = $green
                    } | ConvertTo-Json
                )
            }
            elseif ($myParams.Contains('RGBColor') -and $RGBColor.Count -eq 1)
            {
                $fromRgb = ([PSCustomObject]@{PSTypeName='LightScript.Color'}).FromRGB($RGBColor)
                Invoke-RestMethod -Uri "http://$ip/xled/v1/led/color" @Splat -Body (
                    @{
                        red        = $fromRgb.red
                        blue       = $fromRgb.blue
                        green      = $fromRgb.green
                    } | ConvertTo-Json
                )
            }
            elseif ($myParams.Contains('Hue') -and $myParams.Contains('Saturation') -and $myParams.Contains('Brightness'))
            {
                Invoke-RestMethod -Uri "http://$ip/xled/v1/led/color" @Splat -Body (
                    @{
                        hue        = $hue % 360
                        saturation = [byte][Math]::Ceiling([Byte]::MaxValue * $Saturation)
                        value      = [byte][Math]::Ceiling([Byte]::MaxValue * $Brightness)
                    } | ConvertTo-Json
                )
            }
            #endregion Set Light Color
            elseif ($myParams.Contains("Brightness"))
            {
                Invoke-RestMethod -Uri "http://$ip/xled/v1/led/out/brightness" @Splat -Body (
                    @{
                        mode = 'enabled'
                        type = 'A'
                        value = [int]($Brightness * 100)
                    } | ConvertTo-Json
                )
            }

            if ($FrameDelay) {
                Invoke-RestMethod -Uri "http://$ip/xled/v1/led/movie/config" @Splat -Body (
                    @{
                        frame_delay = $FrameDelay
                    } | ConvertTo-Json
                )
            }

            #region Set Movie
            if ($RGBColor.Count -gt 1 -and -not $MovieData) {
                $MovieData =
                    foreach ($hexCol in $RGBColor) {
                        $Rgb = ([PSCustomObject]@{PSTypeName='LightScript.Color'}).FromRGB($hexCol)
                        $Rgb.Red
                        $Rgb.Green
                        $Rgb.Blue
                    }
            }

            if ($MovieData) {
                if (-not $myParams.Contains("MovieLEDCount")) {
                    $MovieLEDCount = Get-Twinkly -IPAddress $ip -Configuration |
                        Select-Object -ExpandProperty Strings |
                        Select-Object -ExpandProperty Length |
                        Measure-Object -Sum |
                        Select-Object -ExpandProperty Sum
                }
                if (-not $myParams.Contains("MovieFrameCount")) {
                    $MovieFrameCount =
                        if ($MovieData.Length -lt $MovieLEDCount) {
                            1
                        } else {
                            [Math]::Floor($MovieData.Length / $MovieLEDCount)
                        }
                }
                if (-not $myParams.Contains("MovieFrameRate")) {
                    $MovieFramerate = 1
                }

                if ($MovieData.Length -lt $MovieLEDCount) {
                    # Movie too short, assume it is a sequence of colors
                    $newMovieData = @(
                        foreach ($movieFrameNumber in 0..($MovieFrameCount - 1)) {
                            for ($b = 0; $b -lt $MovieLEDCount; $b++) {
                                $ptr = ($b  + $movieFrameNumber)* $MovieBlockSize
                                if ($ptr -ge $MovieData.Length) {
                                    $ptr = $ptr % $MovieData.Length
                                }
                                foreach ($n in 0..($MovieBlockSize- 1)) {
                                    $MovieData[$ptr  + $n]
                                }
                            }
                        }) -as [byte[]]
                    $MovieData = $newMovieData
                }

                if (-not $myParams.Contains("MovieName")) {
                    $MovieName = "Movie " + [DateTime]::Now.ToString() -replace '[:/]', '-'
                }

                Invoke-RestMethod -Uri "http://$ip/xled/v1/movies/new" @Splat -Body (
                    @{
                        name = $MovieName
                        unique_id = ([GUID]::NewGuid()).ToString().ToUpper()
                        leds_per_frame = $MovieLEDCount
                        frames_number = $MovieFrameCount
                        fps = $MovieFramerate
                    } | ConvertTo-Json
                )

                Invoke-RestMethod -Uri "$twinklyUrl/xled/v1/movies/full" @Splat -Body $MovieData -ContentType application/octect-stream
            }
            #endregion Set Movie

            #region Reset Playlist
            if ($RestartPlaylist) {
                Invoke-RestMethod -Uri "http://$ip/xled/v1/playlist/current" @Splat -Body (
                    @{
                        id = 0
                    } | ConvertTo-Json
                )
            }
            #endregion Reset Playlist

            #region Set Mode
            if ($Off) {
                $Mode = 'off'
            }

            if ($Mode) {
                Invoke-RestMethod -Uri "http://$ip/xled/v1/led/mode" @Splat -Body (
                    @{
                        mode = $Mode.ToLower()
                    } | ConvertTo-Json
                )
            }
            #endregion Set Mode
        }
    }
}