documentclass{article}

usepackage[T1]{fontenc}

usepackage[utf8]{inputenc}

usepackage{tikzpeople}

begin{document}

begin{tikzpicture}

node[duck,evil,minimum size=1.5cm] (B){};

end{tikzpicture}

end{document}

Without code ...

Here is what I have done till now (to be improved, of course).

This is my tikzducks.sty:

NeedsTeXFormat{LaTeX2e}

ProvidesPackage{tikzducks}[2016/01/05 All we need isdots ducks!]



RequirePackage{tikz}

usetikzlibrary{shapes.geometric,shapes.symbols,positioning,decorations.pathmorphing}

usetikzlibrary{shapes,arrows,decorations.markings}



RequirePackage{halloweenmath}



tikzset{%

    pics/wing/.style={code={%

        draw[fill=yellow] (0,0) to[bend right] (1,0) to[bend left] (.7,-.6) to[bend left] cycle;

    }}, 

    pics/eye/.style={code={%

        draw[fill=white] (-.1,-.05) ellipse (.3 and .2);

        draw[fill=black] (0,0) circle[radius=.1];

    }},

    pics/paw/.style={code={%

        draw[fill=orange] (0,0) -- (0,.8) -- (.1,.8) -- (.1,.05) -- (.8,.05) to[bend right] (.7,-.2) to[bend right] (.6,-.45) -- cycle;

    }},

    pics/body/.style={code={%

        draw[fill=yellow] (0,0) to[bend right] (.6,-1.2) to[bend right] (2,-2.4) to[bend right=70, smooth] (3.7,-.1) to[bend left] cycle;

    }},

    pics/head/.style={code={%

        draw[fill=yellow] (0,0) circle[radius=.9];

    }},

    pics/closedbeak/.style={code={%

        draw[fill=orange] (0,0) -- (-.35,.1) -- (-.65,-.3) -- (-.1,-.7) to[bend right=70] (.2,-.5) -- cycle;

    }},

    pics/openbeak/.style={code={%

        draw[fill=orange] (0,0) -- (.5,.35) to[bend left=70] (.55,.25) -- (.23,-.29) -- (.3,-.7) to[bend left=70] (.25,-.75) -- (-.01,-.45) -- cycle;

    }},

    create duck coordinates/.style = {insert path={(0,0) coordinate (duck)}},

    pics/duck/.style={code={%

        pic[rotate=30] at (.5,-1.8) {paw};

        pic at (-2.5,1) {body};

        pic at (-1,0) {wing};

        pic at (1.5,1) {head};

        pic at (2.2,.8) {closedbeak};

        pic[rotate=300] at (1.6,.9) {eye};

        pic[xscale=1,yscale=-1,rotate=75] at (1.91,1.08) {eye};

        path (-1,-1.8) coordinate (paw);

        pic[rotate=330] at (paw) {paw};

    }},

    create duckwithopenbeak coordinates/.style = {insert path={(0,0) coordinate (duckwithopenbeak)}},

    pics/duckwithopenbeak/.style={code={%

        pic[rotate=30] at (.5,-1.8) {paw};

        pic at (-2.5,1) {body};

        pic at (-1,0) {wing};

        pic at (1.5,1) {head};

        pic[rotate=300] at (1.94,1.06) {eye};

        pic[rotate=-20] at (2.4,.9) {openbeak};

        path (-1,-1.8) coordinate (paw);

        pic[rotate=330] at (paw) {paw};

    }},

    create bow coordinates/.style = {insert path={(1.3,1.8) coordinate (bow)}},

    pics/bow/.style={code={%

        draw[red, fill=pink, rounded corners] (0,0) -- (.7,.55) -- (.7,-.55) -- cycle;

        draw[red, fill=pink, rounded corners] (0,0) -- (-.7,.55) -- (-.7,-.55) -- cycle;

        draw[red, fill=pink] (0,0) circle [radius=1/4];

    }},

    pics/daisy/.style={code={%

        foreach i in {0,45,...,325}

            draw[blue, fill=white, rotate=i]

                (0,0) .. controls ++(-30:1/2) and ++(30:1/2) .. cycle;

            draw[orange, fill=yellow] circle [radius=1/8];

    }},

    create nacklace coordinates/.style = {insert path={(.6,.7) coordinate (nacklace)}},

    pics/nacklace/.style={code={%

        path (0,0) coordinate (nacklacebase);

        pic at (nacklacebase) {daisy};

        pic[below right=1em and 1em of nacklacebase] {daisy};

        pic[below right=2em and 2em of nacklacebase] {daisy};

    }},

    create blackboard coordinates/.style = {insert path={(3.5,1.8) coordinate (blackboard)}},

    pics/blackboard/.style={code={%

        node at (0,0) [rectangle, fill=black, draw=brown, very thick,font={color{white}bfseriessmall},minimum height=10ex] {$ax^2+bx+c=0$};

    }},

    create glasses coordinates/.style = {insert path={(1.5,.8) coordinate (glasses)}},

    pics/glasses/.style={code={%

        node [circle, draw=blue, very thick,minimum height=1.1em] (rglass) {};

        node[right=.5em of rglass, circle, draw=blue, very thick,minimum height=1.1em] (lglass) {};

        coordinate[above left=.1em and .9em of rglass] (rrglass);

        coordinate[below left=.5em and .1em of rrglass] (rrrglass);

        coordinate[above right=.1em and .9em of lglass] (llglass);

        coordinate[below right=.5em and .1em of llglass] (lllglass);

        draw[draw=blue, very thick] (rglass) -- (lglass);

        draw[draw=blue, very thick] (rglass) -- (rrglass) -- (rrrglass);

        draw[draw=blue, very thick] (lglass) -- (llglass) -- (lllglass);

    }},

    create soccerball coordinates/.style = {insert path={(2.6,-1.1) coordinate (soccerball)}},

    pics/soccerball/.style={code={%

        draw[fill=white] (0,0) circle [radius=.9];

        begin{scope}

            clip (0,0) circle [radius=.9];

            foreach i in {-.4,.4}

            node[regular polygon,regular polygon sides=6,fill=black,minimum height=3.5ex] at (i,.4) {};

            foreach i in {-.8,0,.8} 

            node[regular polygon,regular polygon sides=6,fill=black,minimum height=3.5ex] at (i,-.4) {};

        end{scope}

    }},

    create befana coordinates/.style = {insert path={(0,0) coordinate (befana)}},

    pics/befana/.style={code={%

        node {$displaystylemathwitch$};

    }},

    create ghost coordinates/.style = {insert path={(-.8,-.12) coordinate (ghost)}},

    pics/ghost/.style={code={%

        node {$xrightswishingghost{mspace{30mu}}$};

    }},

    create help coordinates/.style = {insert path={(4.6,2.3) coordinate (help)}},

    pics/help/.style={code={%

        node[draw, fill=white, shape=starburst, text width=5.7em, text centered] (helpnode) {%

                Help! \ A texttt{textbackslash phantom}!

            };

        coordinate[below left=-.1em and -0.3em of helpnode] (lhelpnode);

        coordinate[below right=0.35em and -1.5em of helpnode] (rhelpnode);

        coordinate[below left=2.3em and 1.1em of helpnode] (bhelpnode);

        coordinate[below left=-.3em and -0.4em of helpnode] (llhelpnode);

        coordinate[below right=0em and -.9em of helpnode] (rrhelpnode);

        path[fill=white] (llhelpnode) -- (bhelpnode) -- (rrhelpnode);  

        draw[fill=white] (lhelpnode) -- (bhelpnode) -- (rhelpnode);

    }},

    create righttooth coordinates/.style = {insert path={(2.11,.1) coordinate (righttooth)}},

    create lefttooth coordinates/.style = {insert path={(2.29,.15) coordinate (lefttooth)}},

    pics/tooth/.style={code={%

        draw[fill=white] (0,0) -- (.05,-.2) -- (.11,.1);

    }},

    create cloak coordinates/.style = {insert path={(.65,.69) coordinate (cloak)}},

    pics/cloak/.style={code={%

        draw[white,fill=black] (0,0) to[bend left=10] (-2.1,.1) 

            decorate [decoration={snake, segment length=10pt, amplitude=3pt}] 

            {to  (-2,-1.4)}   to[bend left=9]  (.3,-.4)  to[bend left=30] cycle;

        draw[white,fill=black] (0,0) to[bend left=10] (-.1,.7) to[bend right=15] (.7,-.3) -- (.3,-.4) to[bend left=30] cycle;

    }},

    pics/batflock/.style={code={%

    path[postaction={decorate,decoration={markings,

            mark=at position 0.01 with {node[scale=0.4,rotate=-50] {$mathbat$};},

            mark=at position 0.04 with {node[scale=0.5,rotate=-40] {$mathbat$};},

            mark=at position 0.07 with {node[scale=0.6,rotate=-35] {$mathbat$};},

            mark=at position 0.11 with {node[scale=0.7,rotate=-30] {$mathbat$};},

            mark=at position 0.15 with {node[scale=0.8,rotate=-20] {$mathbat$};},

            mark=at position 0.20 with {node[scale=0.9,rotate=-10] {$mathbat$};},

            mark=at position 0.25 with {node[scale=1.0,rotate=5] {$mathbat$};},

            mark=at position 0.31 with {node[scale=1.1,rotate=15] {$mathbat$};},

            mark=at position 0.38 with {node[scale=1.2,rotate=15] {$mathbat$};},

            mark=at position 0.44 with {node[scale=1.3,rotate=0] {$mathbat$};},

            mark=at position 0.50 with {node[scale=1.4,rotate=-15] {$mathbat$};},

            mark=at position 0.57 with {node[scale=1.5,rotate=-25] {$mathbat$};},

            mark=at position 0.65 with {node[scale=1.6,rotate=-30] {$mathbat$};}, 

            mark=at position 0.73 with {node[scale=1.7,rotate=-35] {$mathbat$};}, 

            mark=at position 0.81 with {node[scale=1.8,rotate=-40] {$mathbat$};},     

            mark=at position 0.89 with {node[scale=1.9,rotate=-42] {$mathbat$};},     

        }}] plot[smooth, tension=1] coordinates {(0,0) (2.5,1) (1,3) (7,4.5)};

    path[postaction={decorate,decoration={markings,

            mark=at position 0.01 with {node[scale=0.4,rotate=10] {$xleftflutteringbat{mspace{30mu}}$};},

            mark=at position 0.06 with {node[scale=0.5,rotate=10] {$xleftflutteringbat{mspace{30mu}}$};},

            mark=at position 0.11 with {node[scale=0.6,rotate=10] {$xleftflutteringbat{mspace{30mu}}$};},

            mark=at position 0.17 with {node[scale=0.7,rotate=10] {$xleftflutteringbat{mspace{30mu}}$};},

            mark=at position 0.23 with {node[scale=0.8,rotate=5] {$xleftflutteringbat{mspace{30mu}}$};},

            mark=at position 0.30 with {node[scale=0.9,rotate=0] {$xleftflutteringbat{mspace{30mu}}$};},

            mark=at position 0.38 with {node[scale=1.0,rotate=-10] {$xleftflutteringbat{mspace{30mu}}$};},

            mark=at position 0.48 with {node[scale=1.1,rotate=-20] {$xleftflutteringbat{mspace{30mu}}$};},

            mark=at position 0.58 with {node[scale=1.2,rotate=-30] {$xleftflutteringbat{mspace{30mu}}$};},

            mark=at position 0.68 with {node[scale=1.3,rotate=-40] {$xleftflutteringbat{mspace{30mu}}$};},

            mark=at position 0.79 with {node[scale=1.4,rotate=-41] {$xleftflutteringbat{mspace{30mu}}$};},

            mark=at position 0.90 with {node[scale=1.5,rotate=-42] {$xleftflutteringbat{mspace{30mu}}$};},

        }}] plot[smooth, tension=1] coordinates {(1.7,1.3) (0,2.7) (2,4.5) (5,5.5)};

    path[postaction={decorate,decoration={markings,

            mark=at position 0.16 with {node[scale=0.4,rotate=-5] {$xrightflutteringbat{mspace{30mu}}$};},

            mark=at position 0.25 with {node[scale=0.5,rotate=-25] {$xrightflutteringbat{mspace{30mu}}$};},

            mark=at position 0.34 with {node[scale=0.6,rotate=-36] {$xrightflutteringbat{mspace{30mu}}$};},

            mark=at position 0.44 with {node[scale=0.7,rotate=-38] {$xrightflutteringbat{mspace{30mu}}$};},

            mark=at position 0.55 with {node[scale=0.8,rotate=-40] {$xrightflutteringbat{mspace{30mu}}$};},

            mark=at position 0.67 with {node[scale=0.9,rotate=-42] {$xrightflutteringbat{mspace{30mu}}$};},

            mark=at position 0.81 with {node[scale=1.0,rotate=-46] {$xrightflutteringbat{mspace{30mu}}$};},

            mark=at position 0.95 with {node[scale=1.1,rotate=-50] {$xrightflutteringbat{mspace{30mu}}$};},

        }}] plot[smooth, tension=1] coordinates {(2.5,2) (2,2.7) (6.5,3.3)};

    }},

}



newcommand{duck}{%

    begin{tikzpicture}

        pic {duck};

    end{tikzpicture}

}



newcommand{daisyduck}{%

    begin{tikzpicture}

        pic {duck};

        path[create nacklace coordinates];

        pic at (nacklace) {nacklace};  

    end{tikzpicture}

}



newcommand{femaleduck}{%

    begin{tikzpicture}

        pic {duck};

        path[create bow coordinates];

        pic[rotate=35] at (bow) {bow}; 

    end{tikzpicture}

}



newcommand{mathduck}{%

    begin{tikzpicture}

        path[create blackboard coordinates];

        pic at (blackboard) {blackboard};

        pic {duck};

        path[create glasses coordinates];

        pic[rotate=30, transform shape] at (glasses) {glasses};

    end{tikzpicture}

}



newcommand{soccerduck}{%

    begin{tikzpicture}

        pic {duck};

        path[create soccerball coordinates];

        pic[rotate=30] at (soccerball) {soccerball};

    end{tikzpicture}

}



newcommand{befanaduck}{%

    begin{tikzpicture}

        path[use as bounding box] (-2.5,-1.5) rectangle (2.5,1.5);  

        pic[scale=.45,transform canvas={scale=.45},transform shape,rotate=20] at (3.17,1.59) {duck};

        path[create befana coordinates];

        pic[transform canvas={scale=4}] at (befana) {befana};

        pic[rotate=330,scale=.45,transform canvas={scale=.45},transform shape,rotate=20] at (paw) {paw};

    end{tikzpicture}

}



newcommand{ghostduck}{%

    begin{tikzpicture}

        path[use as bounding box] (-6,-2.5) rectangle (6,2.5);  

        path[create ghost coordinates];

        pic[transform canvas={scale=7}] at (ghost) {ghost};

        pic {duckwithopenbeak};

        path[create help coordinates];

        pic at (help) {help};

    end{tikzpicture}

}



newcommand{vampireduck}{%

    begin{tikzpicture}

        pic at (-6,-1) {batflock};

        path[create righttooth coordinates];

        pic at (righttooth) {tooth};

        path[create lefttooth coordinates];

        pic at (lefttooth) {tooth};

        pic {duck};

        path[create cloak coordinates];

        pic at (cloak) {cloak};

        pic at (-1,0) {wing};

    end{tikzpicture}

}

This is the code of the presentation:

% arara: pdflatex

% arara: convert: {density: 160, otheroptions: -dispose previous -delay 140 -loop 1, format: gif}

documentclass{beamer}

usepackage{cprotect}

usepackage{tikzducks}



usetheme{Madrid}

setbeamertemplate{navigation symbols}{}

cprotecttitle{Quack guide to verb|tikzducks| package}

subtitle{Actually, some examples to be improved and transformed into a package}

author{CarLaTeX}

institute{Duck fan club}



begin{document}

begin{frame}[plain]

    titlepage

end{frame}

begin{frame}[fragile=singleslide]

    frametitle{Standard version}

    Command: 

    begin{center}

        verb|duck|

    end{center}

    Result:

    begin{figure}

        centering

        duck   

    end{figure}

end{frame}

begin{frame}[fragile=singleslide]

    frametitle{Female version}

    Command: 

    begin{center}

    verb|femaleduck|

    end{center}

    Result:

    begin{figure}

    centering

    femaleduck

    end{figure}

    Accessory verb|pic| available: verb|bow| 

    begin{tikzpicture}

    pic[scale=.7, transform canvas={scale=.7}] at (.6,.2) {bow};

    end{tikzpicture}

end{frame}

begin{frame}[fragile=singleslide]

    frametitle{Daisy version}

    Command: 

    begin{center}

    verb|daisyduck|

    end{center}

    Result:

    begin{figure}

    centering

    daisyduck

    end{figure}

    Accessory verb|pic|s available: verb|daisy| 

    begin{tikzpicture}

    pic[scale=.75, transform canvas={scale=.75}] at (.35,.25) {daisy};

    end{tikzpicture} 

    hspace{1em} and verb|nacklace| 

    begin{tikzpicture}

    pic[scale=.5, transform canvas={scale=.5}] at (.5,1) {nacklace};

    end{tikzpicture}\

end{frame}

begin{frame}[fragile=singleslide]

    frametitle{Mathematician version}

    Command: 

    begin{center}

    verb|mathduck|

    end{center}

    Result:

    begin{figure}

    centering

    mathduck

    end{figure}

    Accessory verb|pic|s available:

    verb|glasses| 

    begin{tikzpicture}

    pic[scale=.5, transform canvas={scale=.5}] at (.7,.2) {glasses};

    end{tikzpicture}

    hspace{2.4em} and verb|blackboard| 

    begin{tikzpicture}

    pic[scale=.4, transform canvas={scale=.4}] at (1.4,.5) {blackboard};

    end{tikzpicture}\

end{frame}

begin{frame}[fragile=singleslide]

    frametitle{Soccer player version}

    Command: 

    begin{center}

    verb|soccerduck|

    end{center}

    Result:

    begin{figure}

    centering

    soccerduck

    end{figure}

    Accessory verb|pic| available: verb|soccerball| 

    begin{tikzpicture}

    pic[scale=.5,transform canvas={scale=.5},transform shape] at (.5,.3) {soccerball};

    end{tikzpicture}\ 

end{frame}

begin{frame}[fragile=singleslide]

    frametitle{The Befana duckdots}

    Using verb|displaystylemathwitch| $displaystylemathwitch$ from the gorgeous Gustavo Mezzetti's package verb|halloweenmath|, here is the Befanafootnote{For anyone who doesn't know who the Befana is, she's a sort of female version of Santa Claus, who brings gifts or coal (to good and bad children, respectively) every year on January, 6textsuperscript{th}.} duck!



    Command: 

    begin{center}

    verb|befanaduck|

    end{center}

    Result:

    begin{figure}

    centering

    befanaduck

    end{figure}

end{frame}

begin{frame}[fragile=singleslide]

    frametitle{dots the ghost duckdots}

    Using verb|xrightswishingghost| $xrightswishingghost{}$, again from verb|halloweenmath| package, here is the ghost duck!\

    Command: 

    begin{center}

    verb|ghostduck|

    end{center}

    Result:

    begin{figure}

    centering

    resizebox{0.7textwidth}{!}{%

    ghostduck

    }

    end{figure}

end{frame}

begin{frame}[fragile=singleslide]

    frametitle{dots and the vampire duck!}

    The vampire duck, with bats from verb|halloweenmath| package!



    Command: 

    begin{center}

    verb|vampireduck|

    end{center}

    Result:

    begin{figure}

    centering

    resizebox{0.5textwidth}{!}{%

    vampireduck

    }

    end{figure}

end{frame}

end{document}

Since David Carlisle is too shy to add his solutions here, I've copied them from chat for him and added as community wiki.

documentclass{article}

usepackage{color}

begin{document}

    Football duck:



    begin{picture}(100,100)

    put(50,50){oval(50,20){}}

    put(70,65){circle{20}}

    put(35,50){line(1,0){30}}

    put(70,65){circle*{2}}

    put(75,67){line(6,-1){10}}

    put(75,63){line(6,1){10}}

    {thicklinesmultiput(30,40)(9,0){5}{line(0,1){17}}}%

    put(70,42){circle*{10}}

    end{picture}



    Pineapple pizza duck dedicated to me:   



    begin{picture}(100,100)

    put(50,50){oval(50,20){}}

    put(70,65){circle{20}}

    put(35,50){line(1,0){30}}

    put(70,65){circle*{2}}

    put(75,67){line(6,-1){10}}

    put(75,63){line(6,1){10}}

    put(70,42){{color[RGB]{230,230,200}circle*{40}}}

    put(70,42){{color{yellow}rule{2pt}{2pt}}}

    put(65,38){{color{yellow}rule{2pt}{2pt}}}

    put(66,42){{color{yellow}rule{2pt}{2pt}}}

    put(72,36){{color{yellow}rule{2pt}{2pt}}}

    put(75,42){{color{yellow}rule{2pt}{2pt}}}

    put(72,46){{color{yellow}rule{2pt}{2pt}}}

    put(69,43){{color[RGB]{255,128,64}rule{2pt}{2pt}}}

    put(65,36){{color[RGB]{255,128,64}rule{2pt}{2pt}}}

    put(62,40){{color[RGB]{255,128,64}rule{2pt}{2pt}}}

    put(69,40){{color[RGB]{255,128,64}rule{2pt}{2pt}}}

    put(71,38){{color[RGB]{255,128,64}rule{2pt}{2pt}}}

    put(66,45){{color[RGB]{255,128,64}rule{2pt}{2pt}}}

    end{picture}

end{document}

I'm pretty sure that somebody is going to complain that this answer is insufficiently serious and unworthy of this site's lofty aims. To the critics say I, you clearly spend too little time mucking about in the river.

True love with a soul mate ...

documentclass[border=10pt,x11names,dvipsnames,svgnames]{standalone}

usepackage{tikz}

usetikzlibrary{decorations.pathmorphing}

newcounter{duckno}

tikzset{

  hwyaden/.pic={

    tikzset{hwyaden/.cd, shading/.style={#1}}

    stepcounter{duckno}

    begin{scope}[local bounding box/.expanded=htheduckno]

      shade [hwyaden/shading] (0,0) -- (-mathhwyaden,0) -- (120:{6*mathhwyaden}) arc (120:60:{6*mathhwyaden}) -- (mathhwyaden,0) -- cycle;

    end{scope}

    clip ([yshift={-4*mathhwyaden},xshift={-2*mathhwyaden}]htheduckno.south west) coordinate (a) rectangle ([yshift={6*mathhwyaden}, xshift={2*mathhwyaden}]htheduckno.east |- a) coordinate (e);

    shade [top color=blue!50!cyan, bottom color=blue!75!black!25, middle color=blue!50!black, decorate, decoration={snake, amplitude=1pt, segment length=mathhwyaden}] ([xshift=mathhwyaden, yshift=-mathhwyaden]e) -|  ([xshift=-mathhwyaden, yshift=-mathhwyaden]a) -| cycle;

  },

  hwyaden/.search also={/tikz/},

  hwyaden/.cd,

  shading/.style=black,

  size/.store in=mathhwyaden,

  size=10pt,

}

begin{document}

begin{tikzpicture}

  pic {hwyaden={ball color=brown, postaction={outer color=Brown, inner color=Apricot, opacity=.5}}};

  pic at (60pt,0) {hwyaden={preaction={outer color=DarkGreen, inner color=ForestGreen, opacity=1}, ball color=LimeGreen, opacity=.75, postaction={outer color=DarkGreen, inner color=Gold, opacity=.75}}};

  node (d) [anchor=mid west, white, font=itshapebfseries, align=left] at ([yshift={-5*mathhwyaden}]h1.west) {Heads down, tails up,\Dabbling free!};

  node [white, anchor=north east, font=footnotesizeitshape] at (d.south -| current bounding box.east) {--- Kenneth Grahame};

end{tikzpicture}

end{document}

A duck with her drake ...

TikZPicducks

documentclass{standalone}



begin{document}



setlength{unitlength}{1.5cm}

begin{picture}(4.2,4.5)

thicklines%



% bill

qbezier(0.65,2.95)(-0.1,1.75)(1.68,2.73)

qbezier(0.65,2.95)(0.9,3.05)(1.14,2.80)

qbezier(1.14,2.80)(1.35,2.65)(1.68,2.73)



% head

qbezier(0.65,2.95)(0.6,4.15)(1.68,4.24)

qbezier(1.68,4.24)(2.9,4.1)(2.53,2.4)



% body

qbezier(0.8,2.32)(-0.6,1.1)(0.8,0.3)

qbezier(0.8,0.3)(2,-0.1)(3.5,0.65)

qbezier(3.5,0.65)(4.6,1.5)(3.5,2.83)

qbezier(3.5,2.83)(3,2.5)(2.53,2.4)



% right eye

qbezier(1.3,3.2)(1.38,3.45)(1.6,3.4)

qbezier(1.6,3.4)(1.73,3.3)(1.67,3.1)

qbezier(1.67,3.1)(1.6,2.9)(1.45,2.93)

qbezier(1.45,2.93)(1.27,2.95)(1.3,3.2)

put(1.53,3.13){circle*{0.17}}



% left eye -0.53, +0.12

qbezier(0.77,3.32)(0.84,3.57)(1.03,3.5)

qbezier(1.03,3.5)(1.12,3.4)(1.04,3.22)

qbezier(1.04,3.22)(0.97,3.07)(0.87,3.07)

qbezier(0.87,3.07)(0.72,3.09)(0.77,3.32)

put(0.95,3.27){circle*{0.14}}



end{picture}



end{document}