Off[General::spell1];
bBelow8 = Play[Sin[2 Pi 246.96 t], {t, 0, 0.2}, DisplayFunction -> Identity];
bBelow4 = Play[Sin[2 Pi 246.96 t], {t, 0, 0.4}, DisplayFunction -> Identity];
bBelow2 = Play[Sin[2 Pi 246.96 t], {t, 0, 0.8}, DisplayFunction -> Identity];
bBelow1 = Play[Sin[2 Pi 246.96 t], {t, 0, 1.6}, DisplayFunction -> Identity];
c8 = Play[Sin[2 Pi 261.64 t], {t, 0, 0.2}, DisplayFunction -> Identity];
c4 = Play[Sin[2 Pi 261.64 t], {t, 0, 0.4}, DisplayFunction -> Identity];
c2 = Play[Sin[2 Pi 261.64 t], {t, 0, 0.8}, DisplayFunction -> Identity];
c1 = Play[Sin[2 Pi 261.64 t], {t, 0, 1.6}, DisplayFunction -> Identity];
d8 = Play[Sin[2 Pi 293.68 t], {t, 0, 0.2}, DisplayFunction -> Identity];
d4 = Play[Sin[2 Pi 293.68 t], {t, 0, 0.4}, DisplayFunction -> Identity];
d2 = Play[Sin[2 Pi 293.68 t], {t, 0, 0.8}, DisplayFunction -> Identity];
d1 = Play[Sin[2 Pi 293.68 t], {t, 0, 1.6}, DisplayFunction -> Identity];
e8 = Play[Sin[2 Pi 329.64 t], {t, 0, 0.2}, DisplayFunction -> Identity];
e4 = Play[Sin[2 Pi 329.64 t], {t, 0, 0.4}, DisplayFunction -> Identity];
e2 = Play[Sin[2 Pi 329.64 t], {t, 0, 0.8}, DisplayFunction -> Identity];
e2dot = Play[Sin[2 Pi 329.64 t], {t, 0, 1.2}, DisplayFunction -> Identity];
e1 = Play[Sin[2 Pi 329.64 t], {t, 0, 1.6}, DisplayFunction -> Identity];
f8 = Play[Sin[2 Pi 349.24 t], {t, 0, 0.2}, DisplayFunction -> Identity];
f4 = Play[Sin[2 Pi 349.24 t], {t, 0, 0.4}, DisplayFunction -> Identity];
f2 = Play[Sin[2 Pi 349.24 t], {t, 0, 0.8}, DisplayFunction -> Identity];
f1 = Play[Sin[2 Pi 349.24 t], {t, 0, 1.6}, DisplayFunction -> Identity];
fsharp8 = Play[Sin[2 Pi 370.00 t], {t, 0, 0.2}, DisplayFunction -> Identity];
fsharp4 = Play[Sin[2 Pi 370.00 t], {t, 0, 0.4}, DisplayFunction -> Identity];
fsharp2 = Play[Sin[2 Pi 370.00 t], {t, 0, 0.8}, DisplayFunction -> Identity];
fsharp1 = Play[Sin[2 Pi 370.00 t], {t, 0, 1.6}, DisplayFunction -> Identity];
g8 = Play[Sin[2 Pi 392.00 t], {t, 0, 0.2}, DisplayFunction -> Identity];
g4 = Play[Sin[2 Pi 392.00 t], {t, 0, 0.4}, DisplayFunction -> Identity];
g2 = Play[Sin[2 Pi 392.00 t], {t, 0, 0.8}, DisplayFunction -> Identity];
g1 = Play[Sin[2 Pi 392.00 t], {t, 0, 1.6}, DisplayFunction -> Identity];
a8 = Play[Sin[2 Pi 440.00 t], {t, 0, 0.2}, DisplayFunction -> Identity];
a4 = Play[Sin[2 Pi 440.00 t], {t, 0, 0.4}, DisplayFunction -> Identity];
a2 = Play[Sin[2 Pi 440.00 t], {t, 0, 0.8}, DisplayFunction -> Identity];
a1 = Play[Sin[2 Pi 440.00 t], {t, 0, 1.6}, DisplayFunction -> Identity];
asharp8 = Play[Sin[2 Pi 466.00 t], {t, 0, 0.2}, DisplayFunction -> Identity];
asharp4 = Play[Sin[2 Pi 466.00 t], {t, 0, 0.4}, DisplayFunction -> Identity];
asharp2 = Play[Sin[2 Pi 466.00 t], {t, 0, 0.8}, DisplayFunction -> Identity];
asharp1 = Play[Sin[2 Pi 466.00 t], {t, 0, 1.6}, DisplayFunction -> Identity];
b8 = Play[Sin[2 Pi 493.92 t], {t, 0, 0.2}, DisplayFunction -> Identity];
b4 = Play[Sin[2 Pi 493.92 t], {t, 0, 0.4}, DisplayFunction -> Identity];
b2 = Play[Sin[2 Pi 493.92 t], {t, 0, 0.8}, DisplayFunction -> Identity];
b1 = Play[Sin[2 Pi 493.92 t], {t, 0, 1.6}, DisplayFunction -> Identity];
cAbove8 = Play[Sin[2 Pi 523.28 t], {t, 0, 0.2}, DisplayFunction -> Identity];
cAbove4 = Play[Sin[2 Pi 523.28 t], {t, 0, 0.4}, DisplayFunction -> Identity];
cAbove4dot = Play[Sin[2 Pi 523.28 t], {t, 0, 0.6}, DisplayFunction -> Identity];
cAbove2 = Play[Sin[2 Pi 523.28 t], {t, 0, 0.8}, DisplayFunction -> Identity];
cAbove1 = Play[Sin[2 Pi 523.28 t], {t, 0, 1.6}, DisplayFunction -> Identity];
dSharpAbove8 = Play[Sin[2 Pi 622.24 t], {t, 0, 0.2}, DisplayFunction -> Identity];
dAbove8 = Play[Sin[2 Pi 587.36 t], {t, 0, 0.2}, DisplayFunction -> Identity];
dAbove4 = Play[Sin[2 Pi 587.36 t], {t, 0, 0.4}, DisplayFunction -> Identity];
dAbove2 = Play[Sin[2 Pi 587.36 t], {t, 0, 0.8}, DisplayFunction -> Identity];
dAbove1 = Play[Sin[2 Pi 587.36 t], {t, 0, 1.6}, DisplayFunction -> Identity];
eAbove8 = Play[Sin[2 Pi 659.28 t], {t, 0, 0.2}, DisplayFunction -> Identity];
eFlatAbove8 = Play[Sin[2 Pi 622.24 t], {t, 0, 0.2}, DisplayFunction -> Identity];
eFlatAbove4 = Play[Sin[2 Pi 622.24 t], {t, 0, 0.4}, DisplayFunction -> Identity];
eAbove4 = Play[Sin[2 Pi 659.28 t], {t, 0, 0.4}, DisplayFunction -> Identity];
eAbove4dot = Play[Sin[2 Pi 659.28 t], {t, 0, 0.6}, DisplayFunction -> Identity];
eAbove2 = Play[Sin[2 Pi 659.28 t], {t, 0, 0.8}, DisplayFunction -> Identity];
eAbove1 = Play[Sin[2 Pi 659.28 t], {t, 0, 1.6}, DisplayFunction -> Identity];
fAbove8 = Play[Sin[2 Pi 698.48 t], {t, 0, 0.2}, DisplayFunction -> Identity];
fAbove4 = Play[Sin[2 Pi 698.48 t], {t, 0, 0.4}, DisplayFunction -> Identity];
fAbove2 = Play[Sin[2 Pi 698.48 t], {t, 0, 0.8}, DisplayFunction -> Identity];
fAbove1 = Play[Sin[2 Pi 698.48 t], {t, 0, 1.6}, DisplayFunction -> Identity];
fsharpAbove8 = Play[Sin[2 Pi 740.01 t], {t, 0, 0.2}, DisplayFunction -> Identity];
fsharpAbove4 = Play[Sin[2 Pi 740.01 t], {t, 0, 0.4}, DisplayFunction -> Identity];
fsharpAbove2 = Play[Sin[2 Pi 740.01 t], {t, 0, 0.8}, DisplayFunction -> Identity];
fsharpAbove1 = Play[Sin[2 Pi 740.01 t], {t, 0, 1.6}, DisplayFunction -> Identity];
gAbove8 = Play[Sin[2 Pi 783.99 t], {t, 0, 0.2}, DisplayFunction -> Identity];
gAbove4 = Play[Sin[2 Pi 783.99 t], {t, 0, 0.4}, DisplayFunction -> Identity];
gAbove2 = Play[Sin[2 Pi 783.99 t], {t, 0, 0.8}, DisplayFunction -> Identity];
gAbove1 = Play[Sin[2 Pi 783.99 t], {t, 0, 1.6}, DisplayFunction -> Identity];
aAbove8 = Play[Sin[2 Pi 880.00 t], {t, 0, 0.2}, DisplayFunction -> Identity];
aAbove4 = Play[Sin[2 Pi 880.00 t], {t, 0, 0.4}, DisplayFunction -> Identity];
aAbove2 = Play[Sin[2 Pi 880.01 t], {t, 0, 0.8}, DisplayFunction -> Identity];
aAbove1 = Play[Sin[2 Pi 880.01 t], {t, 0, 1.6}, DisplayFunction -> Identity];
asharpAbove8 = Play[Sin[2 Pi 932.33 t], {t, 0, 0.2}, DisplayFunction -> Identity];
asharpAbove4 = Play[Sin[2 Pi 932.33 t], {t, 0, 0.4}, DisplayFunction -> Identity];
asharpAbove2 = Play[Sin[2 Pi 932.33 t], {t, 0, 0.8}, DisplayFunction -> Identity];
asharpAbove1 = Play[Sin[2 Pi 932.33 t], {t, 0, 1.6}, DisplayFunction -> Identity];
bAbove8 = Play[Sin[2 Pi 987.76 t], {t, 0, 0.2}, DisplayFunction -> Identity];
bAbove4 = Play[Sin[2 Pi 987.76 t], {t, 0, 0.4}, DisplayFunction -> Identity];
bAbove2 = Play[Sin[2 Pi 987.76 t], {t, 0, 0.8}, DisplayFunction -> Identity];
bAbove1 = Play[Sin[2 Pi 987.76 t], {t, 0, 1.6}, DisplayFunction -> Identity];
rest8 = Play[0, {t, 0, 0.2}, DisplayFunction -> Identity];
rest4 = Play[0, {t, 0, 0.4}, DisplayFunction -> Identity];
rest2 = Play[0, {t, 0, 0.8}, DisplayFunction -> Identity];
rest1 = Play[0, {t, 0, 1.6}, DisplayFunction -> Identity];
PokerFace = {bAbove8, asharpAbove8, fsharpAbove4, bAbove8, 
   asharpAbove8, fsharpAbove4, fsharpAbove8, eAbove8, eAbove8, 
   eAbove8, eAbove8, eFlatAbove8, eAbove8, eFlatAbove4, fsharpAbove8, 
   fsharpAbove8, fsharpAbove4, rest4, asharp8, b8, asharp8, fsharp8, 
   asharp8, b8, asharp8, fsharp8, rest8, bAbove8, asharpAbove8, 
   fsharpAbove4, bAbove8, asharpAbove8, fsharpAbove4, fsharpAbove8, 
   eAbove8, eAbove8, eAbove8, eAbove8, eFlatAbove8, eAbove8, 
   eFlatAbove4, fsharpAbove8, fsharpAbove8, fsharpAbove4, rest4, 
   asharp8, b8, asharp8, fsharp8, asharp8, b8, asharp8, fsharp8, 
   rest8};
Manipulate[{Show[PokerFace], Import["http://a3urbanmusic.com/wp-content/uploads/2009/06/pokerface.jpg", "JPG"]}]