Animate[
S[t_]:=Sin[t];
CC[x_]:=Cos[x];
S2[y_]:=Sin[y];

leg1={Red,Disk[{CC[2x]/2.5+0.6,-1.3},{2/5,0.8}]};
leg2={Red,Disk[{-CC[2x]/2.5-0.6,-1.3},{2/5,0.8}]};
body={RGBColor[1,0.5,0.6],Disk[{0,0},{1.5,1.5}]};
arm1={RGBColor[1,0.5,0.6],Disk[{1.15-S2[y]/2.5,S[2x]/2},{0.7+S2[y]/5,0.5+S2[y]/8}]};
arm2={RGBColor[1,0.5,0.6],Disk[{-1.15+S2[y]/2.5,S[2x]/2},{0.7+S2[y]/5,0.5+S2[y]/8}]};
eye1={Black,Disk[{-0.5+S2[y]/2.5,0.4},{0.3,0.45}]};
eye2={Black,Disk[{0.5+S2[y]/2.5,0.4},{0.3,0.45}]};
eye1b={Blue,Disk[{-0.5+S2[y]/2.5,0.25},{0.2,0.2}]};
eye2b={Blue,Disk[{0.5+S2[y]/2.5,0.25},{0.2,0.2}]};eye1k={Black,Disk[{-0.5+S2[y]/2.5,0.5},{0.25,0.25}]};eye2k={Black,Disk[{0.5+S2[y]/2.5,0.5},{0.25,0.25}]};
eye1w={White,Disk[{-0.5+S2[y]/2.5,0.6},{0.2,0.2}]};eye2w={White,Disk[{0.5+S2[y]/2.5,0.6},{0.2,0.2}]};
mouth={RGBColor[1,0.5,0],Disk[{S2[y]/2.5,-0.6},{0.7S[x],0.6S[x]}]};

Graphics[{leg1,leg2,body,arm1,arm2,mouth,eye1,eye2,eye1b,eye2b,eye1k,eye2k,eye1w,eye2w}],{x,0,Pi,0.01},{y,0,2Pi,.01}
]