Powershell, Zelda, and ASCII, Oh My!!! #Code...

Sun, 14 Jun 2009 03:25:00 -0400

Powershell, Zelda, and ASCII, Oh My!!!

#Code Start….

$midiPath = “e:\dev\powershell\z1title.mid”
$jpgPath = “e:\dev\powershell\zelda_title.jpg”

function Play-Media( [String] $strMediaFilePath )
{
if( $strMediaFilePath )
{
$player = New-Object -ComObject “wmplayer.ocx”
$media = $player.NewMedia($strMediaFilePath)
[void] $player.CurrentPlaylist.AppendItem($media)
$player.Controls.Play()
}
}

function Convert-Image () {

#——————————————————————————-
# Copyright 2006 Adrian Milliner (ps1 at soapyfrog dot com)
# http://ps1.soapyfrog.com
#
# This work is licenced under the Creative Commons
# Attribution-NonCommercial-ShareAlike 2.5 License.
# To view a copy of this licence, visit
# http://creativecommons.org/licenses/by-nc-sa/2.5/
# or send a letter to
# Creative Commons, 559 Nathan Abbott Way, Stanford, California 94305, USA.
#——————————————————————————-

# $Id: convert-image2text.ps1 91 2007-01-10 10:10:33Z adrian $

#——————————————————————————-
# This script loads the specified image and outputs an ascii version to the
# pipe, line by line.
#

param(
[string]$path = $(throw “Supply an image path”),
[int]$maxwidth,            # default is width of console
[string]$palette=”ascii”, # choose a palette, “ascii” or “shade”
[float]$ratio = 1.5        # 1.5 means char height is 1.5 x width
)

#——————————————————————————-
# here we go

# the next line is require because FromFile below throws a /zero (?!)
$path=(resolve-path -erroraction “stop” $path).path

$palettes = @{
“ascii” = ” .,:;=|iI+hHOE#`$”
“shade” = ” ” + [char]0x2591 + [char]0x2592 + [char]0x2593 + [char]0x2588
“bw”    = ” ” + [char]0x2588
}
$c = $palettes[$palette]
if (-not $c) {
write-warning “palette should be one of: $($palettes.keys.GetEnumerator())”
write-warning “defaulting to ascii”
$c = $palettes.ascii
}
[char[]]$charpalette = $c.ToCharArray()

# we need the drawing assembly

[Reflection.Assembly]::LoadFrom(“C:\Windows\Microsoft.NET\Framework\v2.0.50727\System.Drawing.dll”) | out-null
# load the image
$image = [Drawing.Image]::FromFile($path)
if ($maxwidth -le 0) { [int]$maxwidth = $host.ui.rawui.WindowSize.Width - 1}
[int]$imgwidth = $image.Width
[int]$maxheight = $image.Height / ($imgwidth / $maxwidth) / $ratio
$bitmap = new-object Drawing.Bitmap ($image,$maxwidth,$maxheight)
[int]$bwidth = $bitmap.Width; [int]$bheight = $bitmap.Height
# draw it!
$cplen = $charpalette.count
for ([int]$y=0; $y -lt $bheight; $y++) {
$line = “”
for ([int]$x=0; $x -lt $bwidth; $x++) {
$colour = $bitmap.GetPixel($x,$y)
$bright = $colour.GetBrightness()
[int]$offset = [Math]::Floor($bright*$cplen)
$ch = $charpalette[$offset]
if (-not $ch) { $ch = $charpalette[-1] } #overflow
$line += $ch
}
$line
start-sleep 1
}
}

Play-Media $midiPath
Convert-Image $jpgPath -palette shade
start-sleep 10

#Code End.

Daily PoSH Quote!

Fri, 12 Jun 2009 00:17:00 -0400

function motd {
$Voice = new-object -com SAPI.SpVoice

$rssUrl = “http://feeds.feedburner.com/brainyquote/QUOTEBR”
$blog = [xml](new-object System.Net.WebClient).DownloadString($rssUrl)
$quote = $blog.rss.channel.item[0]

$quote.description
$quote.title

$Voice.Speak( $quote.description, 1 )

$Voice.Speak( $quote.title, 1 )

}

motd{}

Only Fun PoSH Here!

Powershell, Zelda, and ASCII, Oh My!!! #Code...

Daily PoSH Quote!