x=If[0≤t<2Pi/3,-Abs[Sin[24t]],If[2Pi/3≤t<7Pi/6,-Abs[Sin[2t-4Pi/3]],If[7Pi/6≤t<4Pi/3,0,-Abs[Sin[48t]]]]];
x2=If[0≤t<2Pi/3,-Abs[Sin[12t]],If[2Pi/3≤t<7Pi/6,-Abs[Sin[t-2Pi/3]],If[7Pi/6≤t<4Pi/3,0,-Abs[Sin[24t]]]]];
y=If[0≤t<2Pi/3,Cos[24t],If[2Pi/3≤t<7Pi/6,Cos[2t-4Pi/3],If[7Pi/6≤t<4Pi/3,1,Cos[48t]]]];
m=If[7Pi/6≤t<57Pi/48,-1,0];
arm={RGBColor[0,0,0],AbsoluteThickness[2],Line[{{x-2,-x-1.5},{2x+7y/12-13,5y-1}}],Line[{{-x-3.8,x2/2-3},{2x-7y/12-13,5y-7}}],Disk[{1.9x-10,3.9y-4},4.6,{2.4-y/3,3.9-y/3}],Circle[{2x+4y/12-14.3,5y-3},0.8],Line[{{4.25x+7.75y/12-24,-x2/4+13.625y-2.1},{5x+9y/12-27,16.5y-2},{5x-9y/12-27,16.5y-4},{3.5x-2.5y/12-20.4,-x2/2+10.75y-4.2},{5x-1.4x2-9y/12-27.4,-x2+16.5y-6},{4.25x+6.75y/12-23.7,-0.6x-x2/4+13.625y-5}}],Line[{{2x+4y/12-13.8,-x2+5y-2.4},{3.5x+6.5y/12-20.4,-x2/2+10.75y-2.2},{4.4x+2.5x2+8y/12-23,-1.4x2+14.6y},{4.4x+0.6x2+8y/12-25,x2+14.6y-0.6},{3.5x-2.5y/12-20.4,-x2/2+10.75y-4.2},{2x+4y/12-13.8,-x2+5y-4.4}}]
};
carm={RGBColor[0.35,0.64,0.29],Polygon[{{3.5x+6.5y/12-20.4,-x2/2+10.75y-2.2},{4.4x+2.5x2+8y/12-23,-1.4x2+14.6y},{4.4x+0.6x2+8y/12-25,x2+14.6y-0.6},{4.25x+7.75y/12-24,-x2/4+13.625y-2.1},{5x+9y/12-27,16.5y-2},{5x-9y/12-27,16.5y-4},{4.25x+6.75y/12-23.7,-0.6x-x2/4+13.625y-5},{5x-1.4x2-9y/12-27.4,-x2+16.5y-6},{3.5x-2.5y/12-20.4,-x2/2+10.75y-4.2}}],RGBColor[0.84,0.73,0.45],Polygon[{{2x+4y/12-13.8,-x2+5y-2.4},{2.75x+5.25y/12-17.1,-3x2/4+7.875y-2.3},{2.75x-3.75y/12-17.1,-3x2/4+7.875y-4.3},{2x+10y/12-13.8,-x2+5y-4.4}}],RGBColor[0.98,0.93,0.83],Disk[{2x+4y/12-14.3,5y-3},0.8],RGBColor[0,0,0],Polygon[{{x-2,-x-1.5},{2x+7y/12-13.4,5y-1},{2x-7y/12-13.4,5y-7},{-x-3.8,x2/2-3}}],RGBColor[0.98,0.93,0.83],Polygon[{{x-2,-x-1.5},{1.375x+10.5y/48-6.275,-0.875x+7.5y/4-1.3125},{0.75x+4y/48-6.2,3x2/8+5y/4-4},{-x-3.8,x2/2-3}}]
};

face={RGBColor[0,0,0],AbsoluteThickness[2],Circle[{-0.4,7.4},7.3,{3.8,5.25}],Line[{{-1,0.4},{-1.2,-0.6}}],Circle[{2,4.8},{8.2,8.6},{2,3}],Line[{{-6.2,5.8},{-6.2,1}}],Circle[{4.8,11.6},6,{2.9,4.2}],Circle[{25,11.6},24,{3.08,3.36}],Circle[{-7,4.2},12,{-0.1,0.8}],Circle[{6.6,6},{14.5,11},{2.4,3.56}],Circle[{10.4,-7},25,{2.2,2.44}],Circle[{-3.6,7},{5.4,7.4},{1.45,2.8}],Circle[{0.8,8.6},{6.4,6.8},{-0.9,1.8}],Line[{{-0.8,15.4},{-3,14.8}}],Circle[{-4.2,13},2,{1.1,2.7}],Circle[{-6.6,8},12,{5.6,5.9}],Circle[{-0.2,5.8},6.2,{5.2,6}],Circle[{0.8,5.8},6.2,{5.5,6}],Line[{{5,1.4},{5.8,0}}],Circle[{8.6,5},6,{3.85,4.2}],Circle[{-14.5,-3.2},{24,30},{-0.4,0.6}],Circle[{-34,-13},50,{0,0.55}],Circle[{6.8,12},2,{0.4,2.4}],Line[{{7.8,-15},{9.4,-13}}],Circle[{15.8,-16},7,{2.65,3.8}],Circle[{6.7,-26.5},7,{0,1}],Circle[{33,-18},50,{2.55,3.08}],Line[{{-16.8,-15},{-15.2,-11}}],Circle[{-6.4,-15},9.6,{2.6,4.3}],Circle[{-8,-21.6},3.4,{1.8,4.3}],Circle[{42.4,-5},50,{3,3.32}],Circle[{-11.2,-14.6},4.4,{-1.3,0.3}],RGBColor[0.9,0.7,0.93],Line[{{2.7,5.6},{1.8,4.8},{1.8,2.8},{4.4,2.6},{4.6,4.8},{2.7,4.8},{2.7,3.8},{3.8,3.6},{3.8,4}}],Line[{{-5.6,5.4},{-6.8,4.8},{-6.4,3.2},{-4.4,3.2},{-4.4,4.6},{-6,4.4},{-6,3.8},{-5.2,3.8},{-5.2,4}}],RGBColor[0.4,0,0],AbsoluteThickness[4],Line[{{7.6,14},{6.4,15.2},{3.8,12.8},{6,10.4},{6.4,11}}],Line[{{-2,15},{-3.4,16},{-4.4,14.4}}],RGBColor[0,0,0],AbsoluteThickness[2],If[0≤t<2Pi/3,{Line[{{0.8,10.2},{4.8,8.6}}],Line[{{-3,10.2},{-6,9.2}}],RGBColor[0.9,0.7,0.93],Polygon[{{0,0.5},{0,4.8},{-3,5.2},{-3.7,0.5}}],RGBColor[0,0,0],Line[{{0,0.5},{0,4.8},{-3,5.2},{-3.7,0.5},{0,0.5}}],Circle[{2.7,7.3},0.9],Circle[{-4.3,7.5},0.9]
},If[2Pi/3≤t<7Pi/6,{Line[{{0.8,10.2},{4.8,8.6}}],Line[{{-3,10.2},{-6,9.2}}],Line[{{0.6,7.2},{4.2,6.6}}],Line[{{0.6,6.8},{4.2,6.2}}],Line[{{0.4,7.6},{4.2,7}}],Line[{{-3,7.2},{-5.4,7}}],Line[{{-3,7.6},{-5.4,7.2}}],Line[{{-3,6.8},{-5.4,6.4}}],RGBColor[1,1,1],Disk[{-1.4,2.8},{1.8,0.5},{-0.5,5.2}],Disk[{0,2.6},{0.5,1},{3.4,6.1}],RGBColor[0,0,0],Circle[{-1.4,2.8},{1.8,0.5},{-0.5,5.2}],Circle[{0,2.6},{0.5,1},{3.4,6.1}]
},{Line[{{0.8,9},{4.8,10.2}}],Line[{{-3,9},{-6,10.2}}],RGBColor[0.9,0.7,0.93],Polygon[{{-2,4},{-2.8,2.6},{-1.2,2.5}}],RGBColor[0,0,0],Line[{{-2,4},{-2.8,2.6},{-1.2,2.5},{-2,4}}],Circle[{2.7,7.3},0.9],Circle[{-4.3,7.5},0.9]}]]
};
cface={Polygon[{{-8,4},{-5,0.4},{-2.4,3.6}}],AbsoluteThickness[10],RGBColor[0.98,0.93,0.83],Disk[{-0.4,7.4},7.3],Line[{{0,0.4},{-0.4,-0.6}}],RGBColor[0.298,0.705,0.72],Circle[{2,4.8},{9.2,9.4},{2,3.04}],AbsoluteThickness[5],Circle[{4.8,11.6},5.5,{2.8,4}],AbsoluteThickness[6],Circle[{25,11.6},24.6,{3.08,3.26}],RGBColor[0.98,0.93,0.83],Circle[{25,11.6},23.4,{3.15,3.4}],RGBColor[0.298,0.705,0.72],AbsoluteThickness[11],Circle[{-7,4.2},12.9,{0.05,0.8}],AbsoluteThickness[5],Circle[{-7,4.2},12.5,{-0.1,0.8}],Circle[{0.8,5.8},5.9,{5.4,6.1}],RGBColor[0,0,0],Polygon[{{5.5,4},{8,4},{8.4,10},{5.5,10}}],RGBColor[0.298,0.705,0.72],AbsoluteThickness[10],Circle[{6.6,6},{14.5,11},{2.4,3.45}],Circle[{-3.6,7},{4.4,6.4},{1.45,2.8}],Circle[{0.8,8.6},{5.4,5.9},{-0.4,1.9}],Line[{{-0.8,14.4},{-3,13.8}}],AbsoluteThickness[3],Circle[{0.8,8.6},{6,6.6},{-0.7,1.9}],Circle[{-6.6,8},12.3,{5.7,6}],Circle[{-0.2,5.8},5.9,{5.3,6}],Circle[{0.8,5.8},6.2,{5.5,6}],AbsoluteThickness[2],Line[{{4.7,1.4},{5.5,0}}],Circle[{8.6,5},5.7,{3.85,4.1}],AbsoluteThickness[10],Disk[{-4.2,13},2,{1.1,2.7}],Circle[{-14.5,-3.2},{25,31},{-0.29,0.55}],Circle[{-34,-13},{49,51},{0,0.51}],Disk[{6.8,12},2,{0.4,2.4}],Polygon[{{7.6,-15.2},{9.4,-13},{8.1,-12}}],Disk[{15.8,-16},7],Circle[{6.7,-26.5},8,{0,1}],Circle[{33,-18},49,{2.55,3.05}],Polygon[{{-16.8,-15},{-15.2,-11},{-16.4,-11}}],AbsoluteThickness[13],Circle[{-6.4,-15},8.5,{2,3.9}],AbsoluteThickness[4],Circle[{-8,-21.6},3.8,{1.8,3.4}],AbsoluteThickness[13],Circle[{-8,-21.6},4.7,{1.8,2.9}],Circle[{42.4,-5},51,{2.9,3.28}],Disk[{-11.2,-14.6},4.4],AbsoluteThickness[18],Circle[{42.4,-5},53,{3,3.25}],Circle[{33,-18},47.5,{2.6,3.05}],AbsoluteThickness[14],Circle[{-33.6,-13},{47.5,50},{0,0.41}],AbsoluteThickness[15],Circle[{-14.5,-3.2},{27,30},{-0.23,0.17}]
};

savegif={};
Do[
gif=Graphics[{cface,face,carm,arm,cbody,body},{PlotRange->{{-37,15},{-23+m,18+m}},AspectRatio->Automatic}];

AppendTo[savegif,gif];
,{t,0,2 Pi,Pi/48}
];
(* SetDirectory["e:\\"]
Export["miku.gif",savegif] *)
Needs["Graphics`Animation`"]
ShowAnimation[savegif]