Idera nSoftware Compellent
PowerShell.com
Library » Script Library » Misc » Merry Christmas

Merry Christmas

Previous | Next | View all files | View Slideshow
posted by Sylvain LESIRE
12-15-2008
Downloads: 474
File size: 2.2kB
Views: 1,694
Embed
Merry Christmas
  1. # script link  
  2.     # http://forums.microsoft.com/TechNet-FR/ShowPost.aspx?PostID=2555221&SiteID=45 
  3. $notes = write-output ` 
  4.   4A4 4A4 2A4        4A4 4A4 2A4        4A4 4C4 4F3 8G3             1A4 ` 
  5.   4Bb4 4Bb4 4Bb4 8Bb4     4Bb4 4A4 4A4 8A4 8A4    4A4 4G3 4G3 4A4    2G3 2C4 ` 
  6.   4A4 4A4 2A4       4A4 4A4 2A4    4A4 4C4 4F3 4G3     1A4        4Bb4 4Bb4 4Bb4 4Bb4 ` 
  7.   4Bb4 4A4 4A4 8A4 8A4    4C4 4C4 4Bb4 4G3     1F3     4C3 4A4 4G3 4F3     2C3 8C3 8C3  ` 
  8.   4C3 4A4 4G3 4F3       1D3      4D3 4Bb4 4A4 4G3     '1E3'    4C4 4C4 4Bb4 4G3 ` 
  9.   1A4     4C3 4A4 4G3 4F3    1C3     4C3 4A4 4G3 4F3     1D3 ` 
  10.   4D3 4Bb3 4A4 4G3         4C4 4C4 4C4 8C4 8C4    4D4 4C4 4Bb4 4G3    4F3 2C4   4A4 4A4 2A4 ` 
  11.   4A4 4A4 2A4      4A4 4C4 4C3 8G3      1A4     4Bb4 4Bb4 4Bb4 8Bb4      4Bb4 4A4 4A4 8A4 8A4 ` 
  12.   4A4 4G3 4G3 4A4       2G3 2C4     4A4 4A4 2A4     4A4 4A4 2A4    4A4 4C4 4F3 8G3 ` 
  13.   1A4       4Bb4 4Bb4 4Bb4 4Bb4      4Bb4 4A4 4A4 8A4 8A4      4C4 4C4 4Bb4 4G3     1F3 
  14.  
  15. function Play([int] $freq, [int] $duration) 
  16. { 
  17.   [console]::Beep($freq, $duration); 
  18. } 
  19.  
  20.  
  21.  
  22. # 
  23. # Note is given by fn=f0 * (a)^n 
  24. # a is the twelth root of 2 
  25. # n is the number of half steps from f0, positive or negative. 
  26. # f0 used here is A4 at 440 Hz 
  27. # 
  28. $f0 = 440; 
  29. $a = [math]::pow(2,(1/12)); # Twelth root of 2 
  30. function GetNoteFreq([string]$note) 
  31. { 
  32.   # n is the number of half steps from the fixed note. 
  33.   $note -match '([A-G#]{1,2})(\d+)' | out-null 
  34.   $octave = ([int] $matches[2]) - 4; 
  35.   $n = $octave * 12 + ( GetHalfStepsFromA $matches[1] ); 
  36.   $freq = $f0 * [math]::Pow($a, $n); 
  37.  
  38.   return $freq; 
  39. } 
  40.  
  41.  
  42.  
  43. function GetHalfStepsFromA([string] $note) 
  44. { 
  45.   switch($note) 
  46.   { 
  47.     'A'  { 0 } 
  48.     'A#' { 1 } 
  49.     'Bb' { 1 } 
  50.     'B'  { 2 } 
  51.     'C'  { 3 } 
  52.     'C#' { 4 } 
  53.     'Db' { 4 } 
  54.     'D'  { 5 } 
  55.     'D#' { 6 } 
  56.     'Eb' { 6 } 
  57.     'E'  { 7 } 
  58.     'F'  { 8 } 
  59.     'F#' { 9 } 
  60.     'Gb' { 9 } 
  61.     'G'  { 10 } 
  62.     'G#' { 11 } 
  63.     'Ab' { 11 } 
  64.   } 
  65. } 
  66.  
  67.  
  68.  
  69. $StandardDuration = 1000; 
  70. foreach($note in $notes) 
  71. { 
  72.  
  73.   $note -match '(\d)(.+)' | out-null 
  74.   $duration = $StandardDuration / ([int] $matches[1]); 
  75.   $playNote = $matches[2]; 
  76.   $freq = GetNoteFreq $playNote; 
  77.  
  78.   write-host $playNote; 
  79.   Play $freq $duration 
  80.   start-sleep -milli 50 
  81. } 
Filed under: , ,

A fun script for Christmas holidays

 

Copyright 2010 PowerShell.com. All rights reserved.