Manipulate[If[r == 1, S = Speak["Happy Almost Winter"]; W = winter1];
 If[r == 2, S = Speak["Frosty the Snowman"]; W = winter2];
 If[r == 3, S = Speak["I love Math 21a"]; W = winter3];
 {W}, {{r, 1, "Happy Almost Winter:"}, {1 -> "1", 2 -> "2", 3 -> "3", 
   4 -> "4"}}]

Animate[Graphics[{Thickness[0.01],
   Line[{{-Cos[y], Sin[y]}, {0, 0}, {Cos[y], Sin[y]}}], 
   Line[{{-Cos[x], 1 + Sin[x]}, {0, .75}, {Cos[x], 1 + Sin[x]}}], 
   Disk[{0, 1.55}, {.2, .04}], {Yellow, Disk[{0, 1.32}, .2]}, 
   Disk[{-.05, 1.35}, .02], 
   Disk[{.05, 1.35}, .02], {Orange, 
    Disk[{.25, 1.1}, .3, {3 Pi/4, 3.3 Pi/4}]}, {Yellow, 
    Disk[{0, .8}, .35]}, {Yellow, Disk[{0, .05}, .5]}, 
   Disk[{0, .9}, .04], Disk[{0, .8}, .04], Disk[{0, .7}, .04], 
   Rectangle[{-.1, 1.56}, {.1, 1.77}], {Red, 
    Disk[{0, 1.12}, {.17, .01}]}},
  PlotRange -> {{-1, 1}, {-1, 2}}], {y, -Pi/2, -Pi}, {x, Pi/4, 0}, 
 ControllerMethod -> "Absolute"]