Cfrgtkky

For PSTricks fans:

documentclass{minimal}

usepackage{pst-fun}

begin{document}

pspicture[showgrid](6,5)

rput(0,2){psBird}

rput{-30}(2,2){psBird}

endpspicture

end{document}

Note: Compile it with xelatex or latex-dvips-ps2pdf sequence.

I made a bird. It is butt ugly, but it flies. -and it tessellates the plane.

documentclass{standalone}

usepackage{tikz}

begin{document}

begin{tikzpicture}[scale=0.01]



newcommandbird[1]{%

begin{scope}[#1]

  filldraw (0,0) --%

  (10,-5) -- (19,8) -- (35,7) -- (38,-12) -- (60,0) --%

  (75,23) -- (80,40) -- (52,37) -- (74,50) -- (52,50) -- (60,60)--%

  (38,48) -- (35,67) -- (19,68) -- (10,55) -- (0,60) --%

  (-8,50) -- (14,50) -- (-8,37) -- (20,40) -- (15,23) -- cycle;

begin{scope}[draw=gray]

  draw (35,15) -- +(-25:25) (40,20) -- +(-20:25) (42,25) -- +(-15:25) (40,30) -- +(-10:30);

  draw (1,55) circle (1);

  draw[clip] (24,55) circle (4);

  filldraw[gray] (27,52) circle (4);

end{scope}

end{scope}

}



bird{shift={(0,0)}, fill=white};

bird{shift={(60,0)}, fill=black};

bird{shift={(120,0)}, fill=white};

bird{shift={(180,0)}, fill=black};

bird{shift={(240,0)}, fill=white};



bird{shift={(0,60)}, fill=black};

bird{shift={(60,60)}, fill=white};

bird{shift={(120,60)}, fill=black};

bird{shift={(180,60)}, fill=white};

bird{shift={(240,60)}, fill=black};



end{tikzpicture}

end{document}

I do not know if I passes the arguments in a smart way!?, and my short attempt to use a foreach loop failed.

Update

The model for the birds comes from here but I draw myself my new ugly birds with a simple drawing. It's possible to make a code shorter. Now the code with the foreach is ugly. I was not able to find something elegant.

documentclass[border=6pt]{standalone}    

usepackage{tikz}

begin{document}



newcommandmyuglybird[2]{%http://www.tess-elation.co.uk/birds---an-introduction/birds-1-1    

begin{scope}[rotate=45,#1]

draw[#2] (0,0) -- ++(0, 1)   -- ++( .5,.5)  -- ++( .5,-.5) 

                -- ++(0, 1)   -- ++( .5,.5)  -- ++( .5,-.5)

                -- ++(0,-1)   -- ++( .5,.5)  -- ++( .5,-.5) 

                -- ++(0,-1)   -- ++(-.5,.5)  -- ++(-.5,-.5)

                -- ++(0,-1)   -- ++(-.5,.5)  -- ++(-.5,-.5) 

                -- ++(0, 1)   -- ++(-.5,.5)  --   cycle;                     

draw ( .2, .2)  -- ( .2, .6) 

      ( .4, .4)  -- ( .4, .8) 

      ( .6, .4)  -- ( .6, .8) 

      ( .8, .2)  -- ( .8, .6) 

      (1.2,-.8)  -- (1.2, .2) 

      (1.4,-.6)  -- (1.4, .4) 

      (1.6,-.6)  -- (1.6, .4) 

      (1.8,-.8)  -- (1.8, .2)

      (2.2, .2)  -- (2.2, .6) 

      (2.4, .4)  -- (2.4, .8) 

      (2.6, .4)  -- (2.6, .8) 

      (2.8, .2)  -- (2.8, .6)

      (1.3,2.3)  -- (1.5,2.1) -- (1.7,2.3) 

      (1.5,2.5)  -- (1.5,2.1)

      (1.7,2.0) circle (2pt)

      (1,0) -- ++(.5,.5) --++(.5,-.5) ; 

end{scope}

}%     



begin{tikzpicture}

  draw[thick] (-3,5) rectangle (12,11);  

  clip (-3,5) rectangle (12,11); 

  foreach y in {0,1,...,5}{%   

  foreach x in {0,1,...,9}{% 

   pgfmathsetmacro{z}{mod(x+y,4)}

   ifcasez

    defcol{blue}

    or

    defcol{red}

    or

    defcol{green}

    or

    defcol{yellow} 

    fi

   pgfmathsetmacro{xx}{2*x-mod(y,2)-1} 

   pgfmathsetmacro{yy}{-x+3*y}

   ifnum 2=y  pgfmathsetmacro{yy}{-x+3*y-1}   fi 

   ifnum 3=y  pgfmathsetmacro{yy}{-x+3*y-1}   fi 

   ifnum 4=y  pgfmathsetmacro{yy}{-x+3*y-2}   fi  

   ifnum 5=y  pgfmathsetmacro{yy}{-x+3*y-2}   fi 

   ifnum 6=y  pgfmathsetmacro{yy}{-x+3*y-2}   fi 

  myuglybird{shift={(xx cm,yy cm)}}{shade, top color=col!30}

   } } 

end{tikzpicture}

end{document} 

I keep my first ugly bird.
An ugly bird with tesselation

documentclass[border=6pt]{standalone}

usepackage{tikz}

begin{document}



newcommandmyuglybird[1]{%

draw[#1] (1.7,2.5) circle (2pt) (0,0) --++(0.25,-3)--++(0.75,0)--++(-0.25,0.5)--++(0,1.75)--++(1.75,0.75)

--++(-1,+2)--++(1,1)--++(-1.75,-0.75)--++(-0,-1.75)--++(+0.25,-0.5)--++(-0.75,0)--++(-0.25,+3)--++(-1,-1)--++(1,-2)--cycle;

}%     



begin{tikzpicture} 

draw[thick] (0,0) rectangle (12,15);  

  clip (0,0) rectangle (12,15);

  foreach y in {0,1,...,6}{%   

  foreach x in {0,1,...,5}{% 

  pgfmathsetmacro{z}{x+y}

 ifodd z defcol{lightgray} else defcol{gray}fi

 myuglybird{fill=col,xshift=2.5*x cm,yshift=3*y cm}

 } }

end{tikzpicture}

end{document} 

Here is a proposition mixing Escher, Penrose and Picasso (do you see the birds?):

The code (derived form my answer to Penrose tiling in TikZ):

documentclass[tikz]{standalone}

usepackage{tikz}

usetikzlibrary{calc}



pgfmathsetmacro{invphi}{2/(1+sqrt(5))}



% default styles

tikzset{

  % borders style

  penrose line/.style={draw=black,line join=round},

  % kites and darts styles

  penrose kite/.style={penrose line},

  penrose dart/.style={penrose line},

  % the three paths (and the three corresponding reverse paths)

}



newcommandpenrosedrawkite[3]{% ver, angle, len

  path let

  p1=(#1),

  p2=($(p1) + (#2+36:#3)$),

  p3=($(p1) + (#2:#3)$),

  p4=($(p1) + (#2-36:#3)$)

  in

  [penrose kite] (p1)

  to[penrose path 1] (p2)

  to[penrose rev path 2] (p3)

  to[penrose path 2] (p4)

  to[penrose rev path 1] (p1);

}



newcommandpenrosekite[5]{% n, ver, angle, len, rot

  ifnum#1=0 % draw or recursive decomposition ?

  ifnum#5=1 % draw kite if current semikite is clockwise

  penrosedrawkite{#2}{#3}{#4}

  fi

  else

  {

    % decomposition (semikite => 2 semikites and 1 semidart)

    edefdep{#1}

    edefver{#2}

    edefangle{#3}

    edeflen{#4}

    edefrot{#5}

    pgfmathtruncatemacro{n}{dep-1}

    edefnamex{vern}

    pgfmathsetlengthmacro{newlen}{len*invphi}

    ifnum#5=1 % anticlockwise or clockwise ?

    path (ver) ++(angle-36:len) coordinate (namex);

    pgfmathtruncatemacro{newanglea}{mod(angle+108,360)}

    penrosekite{n}{namex}{newanglea}{newlen}{1}

    penrosekite{n}{namex}{newanglea}{newlen}{0}

    penrosedart{n}{ver}{angle}{newlen}{1}

    else

    path (ver) ++(angle+36:len) coordinate (namex);

    pgfmathtruncatemacro{newanglea}{mod(angle-108,360)}

    penrosekite{n}{namex}{newanglea}{newlen}{0}

    penrosekite{n}{namex}{newanglea}{newlen}{1}

    penrosedart{n}{ver}{angle}{newlen}{0}

    fi

  }

  fi

}



newcommandpenrosedrawdart[3]{

  path let

  p1=(#1),

  p2=($(p1) + (#2:#3)$),

  p3=($(p1) + (#2-36:#3*invphi)$),

  p4=($(p1) + (#2-72:#3)$)

  in [penrose dart] (p1)

  to[penrose rev path 1] (p2)

  to[penrose path 2] (p3)

  to[penrose rev path 2] (p4)

  to[penrose path 1] (p1);

}



newcommandpenrosedart[5]{% n, ver, angle, len, rot

  ifnum#1=0 % draw or recursive decomposition ?

  ifnum#5=1 % draw dart if current semidart is clockwise

  penrosedrawdart{#2}{#3}{#4}

  fi

  else

  {

    % decomposition (semidart => 1 semikite and 1 semidart)

    edefdep{#1}

    edefver{#2}

    edefangle{#3}

    edeflen{#4}

    edefrot{#5}

    pgfmathtruncatemacro{n}{dep-1}

    edefnamex{vern}

    pgfmathsetlengthmacro{newlen}{len*invphi}

    path (ver) ++(angle:len) coordinate (namex);

    ifnum#5=1 % anticlockwise or clockwise

    pgfmathsetmacro{newanglea}{mod(angle-144,360)}

    pgfmathsetmacro{newangleb}{mod(angle-36,360)}

    penrosedart{n}{namex}{newanglea}{newlen}{1}

    penrosekite{n}{ver}{newangleb}{newlen}{0}

    else

    pgfmathtruncatemacro{newanglea}{mod(angle+144,360)}

    pgfmathtruncatemacro{newangleb}{mod(angle+36,360)}

    penrosedart{n}{namex}{newanglea}{newlen}{0}

    penrosekite{n}{ver}{newangleb}{newlen}{1}

    fi

  }

  fi

}



pgfmathsetlengthmacro{len}{8cm}

pgfmathsetmacro{recurs}{int(3)}

begin{document}

begin{tikzpicture}

  tikzset{

    penrose path 1/.style={to path={

        -- ($(tikztostart)!.4!(tikztotarget)$)

        -- ($(tikztostart)!.4!30:(tikztotarget)$)

        -- ($(tikztotarget)!.4!-30:(tikztostart)$)

        -- ($(tikztotarget)!.4!(tikztostart)$)

        -- (tikztotarget)

        pgfextra{

          pgfinterruptpath

          draw ($(tikztotarget)!.5!-10:(tikztostart)$) circle(2pt);

          fill ($(tikztotarget)!.5!-8:(tikztostart)$) circle(1pt);

          endpgfinterruptpath

        }

      }},

    penrose rev path 1/.style={to path={

        -- ($(tikztostart)!.4!(tikztotarget)$)

        -- ($(tikztostart)!.4!-30:(tikztotarget)$)

        -- ($(tikztotarget)!.4!30:(tikztostart)$)

        -- ($(tikztotarget)!.4!(tikztostart)$)

        -- (tikztotarget)

        pgfextra{

          pgfinterruptpath

          draw ($(tikztostart)!.5!-10:(tikztotarget)$) circle(2pt);

          fill ($(tikztostart)!.5!-8:(tikztotarget)$) circle(1pt);

          endpgfinterruptpath

        }

      }},

    penrose path 2/.style={to path={

        -- ($(tikztostart)!.4!(tikztotarget)$)

        -- ($(tikztostart)!.4!30:(tikztotarget)$)

        -- ($(tikztotarget)!.4!-30:(tikztostart)$)

        -- ($(tikztotarget)!.4!(tikztostart)$)

        -- (tikztotarget)

        pgfextra{

          pgfinterruptpath

          draw ($(tikztostart)!.5!10:(tikztotarget)$) circle(2pt);

          fill ($(tikztostart)!.5!8:(tikztotarget)$) circle(1pt);

          endpgfinterruptpath

        }

      }},

    penrose rev path 2/.style={to path={

        -- ($(tikztostart)!.4!(tikztotarget)$)

        -- ($(tikztostart)!.4!-30:(tikztotarget)$)

        -- ($(tikztotarget)!.4!30:(tikztostart)$)

        -- ($(tikztotarget)!.4!(tikztostart)$)

        -- (tikztotarget)

        pgfextra{

          pgfinterruptpath

          draw ($(tikztotarget)!.5!10:(tikztostart)$) circle(2pt);

          fill ($(tikztotarget)!.5!8:(tikztostart)$) circle(1pt);

          endpgfinterruptpath

        }

      }},

  }

  tikzset{

    penrose line/.style={draw=black,line width=.2pt,line join=round,rounded corners=3pt},

  }



  foreach level in {0,...,4}{

    begin{scope}[rotate=level*72]

      coordinate (a) at (0,0);

      penrosekite{recurs}{a}{0}{len}{0}

      penrosekite{recurs}{a}{0}{len}{1}

    end{scope}

  }



end{tikzpicture}

end{document}

A duck is a bird, therefore I think the following qualifies as an answer:

documentclass{standalone}

usepackage{tikzducks}



begin{document}



begin{tikzpicture}

    duck

end{tikzpicture}   



end{document}

Or maybe a duck that pretends to be a parrot?

documentclass{standalone}

usepackage{tikzducks}



begin{document}



begin{tikzpicture}

    duck[parrot,wing=blue!30!cyan,crazyhair=blue!30!green]

end{tikzpicture}   



end{document}

Thanks to the miracle of emoji:

documentclass{standalone}

usepackage{coloremoji}



begin{document}

🐦🕊 🦆🦅🦉🦜🐧🐓🐤🐤🐥🦢🦖

end{document}

You can also do something like:

documentclass{standalone}

usepackage{fontspec}



newfontfacecoloremoji{EmojiOneColor.otf}[scale=1.0]

newcommandbirdemoji{{coloremojichar "1F426}}



begin{document}

birdemoji

end{document}

At present, however, this will only draw an outline.