アニメーション

Manipulate[
face={
RGBColor[1,0.9,0.5],Disk[{5.35,0},{0.17,0.16}],

Black,Thickness[0.005],
Circle[{5.31,0.081},{0.025,0.032},{Pi/16,a}],
Black,Thickness[0.005],Circle[{5.39,0.081},{0.025,0.032},{Pi/16,a}],

Black,Thickness[0.005],Circle[{5.35,0.18},{0.20,0.25},{22Pi/16,b}],

Red,Disk[{5.35,0},{0.055,0.05},{0,c}],
Red,Disk[{5.455,0},0.05,{0,c}],
Red,Disk[{5.245,0},0.05,{0,c}],

Black,Disk[{5.31,0.07},{0.01,0.015},{0,c}],
Black,Disk[{5.39,0.07},{0.01,0.015},{0,c}],

White,Disk[{5.225,0.022},0.014,{0,c}],
White,Disk[{5.435,0.022},0.014,{0,c}],
White,Disk[{5.325,0.017},0.009,{0,c}]
};

Graphics[face],
{a,Pi/16,15Pi/16},
{b,22Pi/16,26Pi/16},
{c,0,2Pi}
]