PSMemeGenerator.psm1
|
#Region './Private/Invoke-MemeImageModification.ps1' -1 function Invoke-MemeImageModification { <# .SYNOPSIS Internal helper function to apply text to an image using System.Drawing. .DESCRIPTION Takes image bytes and applies top and bottom text using System.Drawing. The text is drawn with a white fill and black outline, centered horizontally. Requires Windows OS due to System.Drawing dependencies in modern .NET. .PARAMETER ImageBytes The byte array of the source image. .PARAMETER OutputPath The path where the generated meme image will be saved. .PARAMETER TopText The text to display at the top of the meme. .PARAMETER BottomText The text to display at the bottom of the meme. .OUTPUTS System.IO.FileInfo #> [CmdletBinding()] param ( [Parameter(Mandatory)] [ValidateNotNullOrEmpty()] [byte[]] $ImageBytes, [Parameter(Mandatory)] [ValidateNotNullOrEmpty()] [string] $OutputPath, [Parameter(Mandatory = $false)] [string] $TopText = '', [Parameter(Mandatory = $false)] [string] $BottomText = '' ) begin { Write-Verbose "Starting $($MyInvocation.MyCommand)" if ($null -ne $IsWindows -and -not $IsWindows) { throw 'This function requires Windows OS due to System.Drawing dependencies.' } # Ensure System.Drawing is loaded try { $null = [System.Reflection.Assembly]::LoadWithPartialName('System.Drawing') } catch { throw 'Failed to load System.Drawing. This module requires Windows.' } } process { try { $memoryStream = [System.IO.MemoryStream]::new($ImageBytes) try { $image = [System.Drawing.Image]::FromStream($memoryStream) $graphics = [System.Drawing.Graphics]::FromImage($image) # Set up graphics quality $graphics.SmoothingMode = [System.Drawing.Drawing2D.SmoothingMode]::AntiAlias $graphics.InterpolationMode = [System.Drawing.Drawing2D.InterpolationMode]::HighQualityBicubic $graphics.PixelOffsetMode = [System.Drawing.Drawing2D.PixelOffsetMode]::HighQuality $graphics.TextRenderingHint = [System.Drawing.Text.TextRenderingHint]::AntiAliasGridFit # Calculate font size based on image height (roughly 1/10th of height) $fontSize = [math]::Max(12, [math]::Round($image.Height / 10)) $font = [System.Drawing.Font]::new('Impact', $fontSize, [System.Drawing.FontStyle]::Bold) # Set up text formatting (centered) $format = [System.Drawing.StringFormat]::new() $format.Alignment = [System.Drawing.StringAlignment]::Center $format.LineAlignment = [System.Drawing.StringAlignment]::Center # Set up drawing path for outline effect $path = [System.Drawing.Drawing2D.GraphicsPath]::new() # Draw Top Text if (-not [string]::IsNullOrWhiteSpace($TopText)) { $topRect = [System.Drawing.RectangleF]::new(0, 10, $image.Width, $fontSize * 2) $path.AddString($TopText.ToUpper(), $font.FontFamily, [int]$font.Style, $graphics.DpiY * $font.Size / 72, $topRect, $format) } # Draw Bottom Text if (-not [string]::IsNullOrWhiteSpace($BottomText)) { $bottomRect = [System.Drawing.RectangleF]::new(0, $image.Height - ($fontSize * 2) - 10, $image.Width, $fontSize * 2) $path.AddString($BottomText.ToUpper(), $font.FontFamily, [int]$font.Style, $graphics.DpiY * $font.Size / 72, $bottomRect, $format) } # Draw the text with outline if ($path.PointCount -gt 0) { $pen = [System.Drawing.Pen]::new([System.Drawing.Color]::Black, [math]::Max(2, $fontSize / 15)) $pen.LineJoin = [System.Drawing.Drawing2D.LineJoin]::Round $brush = [System.Drawing.SolidBrush]::new([System.Drawing.Color]::White) $graphics.DrawPath($pen, $path) $graphics.FillPath($brush, $path) $pen.Dispose() $brush.Dispose() } # Save the image Write-Verbose "Saving meme to $OutputPath" $image.Save($OutputPath, [System.Drawing.Imaging.ImageFormat]::Jpeg) # Return the created file info Get-Item -Path $OutputPath } finally { if ($null -ne $path) { $path.Dispose() } if ($null -ne $format) { $format.Dispose() } if ($null -ne $font) { $font.Dispose() } if ($null -ne $graphics) { $graphics.Dispose() } if ($null -ne $image) { $image.Dispose() } if ($null -ne $memoryStream) { $memoryStream.Dispose() } } } catch { Write-Verbose "$($MyInvocation.MyCommand) Operation failed: $_" Write-Verbose "StackTrace: $($_.ScriptStackTrace)" throw $_ } } end { Write-Verbose "Completed $($MyInvocation.MyCommand)" } } #EndRegion './Private/Invoke-MemeImageModification.ps1' 138 #Region './Public/Get-MemeTemplate.ps1' -1 function Get-MemeTemplate { <# .SYNOPSIS Gets a list of popular meme templates from Imgflip. .DESCRIPTION Retrieves the top 100 most popular meme templates from the Imgflip API. Returns objects containing the meme ID, name, URL, width, and height. .EXAMPLE Get-MemeTemplate Returns all available meme templates. .EXAMPLE Get-MemeTemplate -Name 'Drake' Finds meme templates with 'Drake' in the name. .OUTPUTS PSCustomObject #> [CmdletBinding()] param ( [Parameter(Position = 0)] [string] $Name ) begin { Write-Verbose "Starting $($MyInvocation.MyCommand)" } process { try { $uri = 'https://api.imgflip.com/get_memes' Write-Verbose "Fetching meme templates from $uri" $response = Invoke-RestMethod -Uri $uri -Method Get if ($response.success) { foreach ($meme in $response.data.memes) { if ([string]::IsNullOrEmpty($Name) -or $meme.name -match $Name) { [PSCustomObject]@{ Id = $meme.id Name = $meme.name Url = $meme.url Width = $meme.width Height = $meme.height BoxCount = $meme.box_count } } } } else { throw "Imgflip API returned an error: $($response.error_message)" } } catch { Write-Verbose "$($MyInvocation.MyCommand) Operation failed: $_" Write-Verbose "StackTrace: $($_.ScriptStackTrace)" throw $_ } } end { Write-Verbose "Completed $($MyInvocation.MyCommand)" } } #EndRegion './Public/Get-MemeTemplate.ps1' 66 #Region './Public/New-Meme.ps1' -1 function New-Meme { <# .SYNOPSIS Creates a new meme by applying text to an image template. .DESCRIPTION Downloads a meme template from a URL and applies top and bottom text using System.Drawing. The text is drawn with a white fill and black outline, centered horizontally. Requires Windows OS due to System.Drawing dependencies in modern .NET. .PARAMETER Id The ID of the source meme template from Imgflip. .PARAMETER Name The name of the source meme template from Imgflip. .PARAMETER Url The URL of the source meme image. .PARAMETER TopText The text to display at the top of the meme. .PARAMETER BottomText The text to display at the bottom of the meme. .PARAMETER OutputPath The path where the generated meme image will be saved. .EXAMPLE New-Meme -Name "Drake" -TopText "WHEN YOU WRITE" -BottomText "A POWERSHELL MODULE" -OutputPath ".\meme.jpg" Creates a meme using the first template matching "Drake" and saves it to meme.jpg. .EXAMPLE New-Meme -Id "181913649" -TopText "WHEN YOU WRITE" -BottomText "A POWERSHELL MODULE" -OutputPath ".\meme.jpg" Creates a meme using the template with ID "181913649" and saves it to meme.jpg. .OUTPUTS System.IO.FileInfo #> [CmdletBinding(SupportsShouldProcess, DefaultParameterSetName = 'ByName')] param ( [Parameter(Mandatory, ParameterSetName = 'ById', ValueFromPipelineByPropertyName)] [ValidateNotNullOrEmpty()] [string] $Id, [Parameter(Mandatory, ParameterSetName = 'ByName', ValueFromPipelineByPropertyName)] [ValidateNotNullOrEmpty()] [string] $Name, [Parameter(Mandatory, ParameterSetName = 'ByUrl', ValueFromPipelineByPropertyName)] [ValidateNotNullOrEmpty()] [string] $Url, [Parameter(Mandatory)] [ValidateNotNullOrEmpty()] [string] $OutputPath, [Parameter(Mandatory = $false)] [string] $TopText = '', [Parameter(Mandatory = $false)] [string] $BottomText = '' ) begin { Write-Verbose "Starting $($MyInvocation.MyCommand)" } process { try { $resolvedPath = $ExecutionContext.SessionState.Path.GetUnresolvedProviderPathFromPSPath($OutputPath) $targetUrl = $Url if ($PSCmdlet.ParameterSetName -eq 'ById') { Write-Verbose "Looking up meme template by ID: $Id" $template = Get-MemeTemplate | Where-Object Id -EQ $Id | Select-Object -First 1 if (-not $template) { throw "Could not find a meme template with ID '$Id'." } $targetUrl = $template.Url } elseif ($PSCmdlet.ParameterSetName -eq 'ByName') { Write-Verbose "Looking up meme template by Name: $Name" $template = Get-MemeTemplate -Name $Name | Select-Object -First 1 if (-not $template) { throw "Could not find a meme template matching Name '$Name'." } $targetUrl = $template.Url } if ($PSCmdlet.ShouldProcess($resolvedPath, "Create meme from $targetUrl")) { Write-Verbose "Downloading image from $targetUrl" # Download image to memory try { $imageBytes = Invoke-RestMethod -Uri $targetUrl -Method Get } catch { throw "Failed to download image from $targetUrl. Error: $_" } # Call the private function to handle the image modification Invoke-MemeImageModification -ImageBytes $imageBytes -OutputPath $resolvedPath -TopText $TopText -BottomText $BottomText } } catch { Write-Verbose "$($MyInvocation.MyCommand) Operation failed: $_" Write-Verbose "StackTrace: $($_.ScriptStackTrace)" throw $_ } } end { Write-Verbose "Completed $($MyInvocation.MyCommand)" } } #EndRegion './Public/New-Meme.ps1' 120 |