Just in case the code isn't clear from behind the picture, here it is in full:

documentclass{article}

usepackage{listings}

usepackage{tikz}

usetikzlibrary{%

  lindenmayersystems,

  decorations.pathmorphing,

  decorations.markings,

  shapes.geometric,

  calc%

}

tikzset{

  tinsel/.style={

    #1,

    rounded corners=10mm,

    ultra thin,

    decorate,

    decoration={

      snake,

      amplitude=.1mm,

      segment length=10,

    }

  },

  baubles/.style={

    decorate,

    decoration={

      markings,

      mark=between positions .3 and 1 step 2cm

      with

      {

        pgfmathsetmacro{brad}{2 + .5 * rand}

        path[shading=ball,ball color=#1] (0,0) circle[radius=brad mm];

      }

    }

  },

  lights/.style={

    decorate,

    decoration={

      markings,

      mark=between positions 0 and 1 step 1cm

      with

      {

        pgfmathparse{rand > 0 ? "dart" : "kite"}

        letlshapepgfmathresult

         pgfmathsetmacro{tint}{100*rnd}

        node[rotate=90,lshape,shading=ball,inner sep=1pt,ball color=red!tint!yellow] {};

      }

    }

  }

}



begin{document}

begin{center}

tikz[remember picture,overlay] coordinate (star) at (0,-1);

end{center}



lstinputlisting[

  breaklines=true,

  language=TeX,

  basicstyle=tiny,

  firstline=63,

  lastline=103]{jobname.tex}



begin{tikzpicture}[overlay,remember picture]

path (star) +(-50:7) coordinate (rhs) +(-130:7) coordinate (lhs);

draw[brown!50!black,line width=5mm,line cap=round] (star) ++(-90:6.8) -- ++(0,-1) coordinate (base);

node[scale=-1,trapezium,fill=black,minimum size=1cm] at (base) {};

foreach height/colour in {%

  .2/blue,

  .4/yellow,

  .6/red,

  .8/orange,

  1/pink%

} {

  draw[tinsel=colour] ($(star)!height!(lhs)$) to[bend right] ($(star)!height!(rhs)$);

}

path (star);

pgfgetlastxy{starx}{stary}

begin{scope}[xshift=starx,yshift=stary,yshift=-7cm]

draw[color=green!50!black, l-system={rule set={S -> [+++G][---G]TS,  G -> +H[-G]L, H -> -G[+H]L, T -> TL, L -> [-FFF][+FFF]F}, step=4pt, angle=18, axiom=+++++SLFFF, order=11}] lindenmayer system -- cycle;

end{scope}

foreach height/colour in {%

  .1/pink,

  .3/red,

  .5/yellow,

  .7/blue,

  .9/orange%

} {

  draw[tinsel=colour] ($(star)!height!(lhs)$) to[bend right] ($(star)!height!(rhs)$);

}

foreach height in {.15,.35,...,1} {

  draw[lights]  ($(star)!height!(lhs)$) to[bend right] ($(star)!height!(rhs)$);

}

foreach angle/colour in {

  -50/red,

  -70/yellow,

  -90/blue,

  -110/pink,

  -130/purple%

} {

  draw[baubles=colour] (star) -- ++(angle:7);

}

node[star,star point ratio=2.5,fill=yellow,minimum size=1cm] at (star) {};

end{tikzpicture}

end{document}

Another tree that can be decorated:

Merry Christmas, everybody!

documentclass[border=5mm]{standalone}

usepackage{pgfplots}



begin{document}

%

begin{tikzpicture}

begin{axis}[

    hide axis, clip=false,

    y domain=0:2*pi,

    samples=30,axis equal, view={45}{20}]



addplot3 [domain=0:4,surf,shader=flat,z buffer=sort,fill=green!50!brown, draw=green!50!black, line join=bevel] 

    ({(1.3*x-floor(x))*x^0.5*cos(deg(y))},

     {(1.3*x-floor(x))*x^0.5*sin(deg(y))},

     {-5*x});



addplot3 [domain=0:4.5, samples=10, samples y=0, fill=yellow!85!red, draw=yellow!55!red] ({0},{sin(x/5*360) * (1 - x + floor(x)) },{cos(x/5*360) * (1 - x + floor(x) )  + 0.5}) -- cycle;

end{axis}

end{tikzpicture}%

%

end{document}

Here's mine:

documentclass{article}

usepackage{tikz}

usetikzlibrary{scopes,svg.path,shapes.geometric,shadows}

begin{document}

begin{tikzpicture}[

  mystar/.style={star, minimum size=2cm, star point ratio=2.5, shade, thick,

    line join=round, color=yellow!80!black, draw=red!20!black,

    top color=yellow!80!white, bottom color=yellow!60!black},

  mytree/.style={scale=0.5, rotate=180, draw=green!60!black, thick,

    line join=round, inner color=green!60!yellow, outer color=green!50!black},

  myball/.style={shade, ball color=#1, circular drop shadow={

    shadow xshift=0pt, shadow yshift=-.5ex, fill=green!40!black}}

  ]

  {[mytree]

  shadedraw svg "M355,430

    q90,10 105,-85 30,0 50,-30 20,30 50,30 50,-20 100,0 10,88 105,85

    -45,90 -205,25 Q400,520 355,430";

  shadedraw svg "M380,325

    q83,10 105,-80 25,0 35,-30 20,25 40,30 20,-10 35,-25 20,20 40,25

    25,90 105,82 -15,50 -120,15 -30,-2 -60,12 -30,0 -52,-28

    C490,370 380,360 380,325";

  shadedraw svg "M435,225

    q65,-8 90,-70 35,40 70,0 25,60 90,70 -30,52 -90,5 -36,48 -73,-3

    C520,254 445,265 435,225";

  shadedraw svg "M470,139

    q50,5 90,-80 50,90 90,80 -30,30 -50,20 -40,45 -78,0

    Q500,170 470,139";

  }

  %shadedraw svg[scale=0.5,rotate=180]

  %"M460,532 q50,-8 q77,-45 v-20 a20,13 0 1 1 48,0 v20 q30,40 77,45";

  %pgf/tikz doesn't like the arc operation, as stated in manual



  node[mystar] at (-9.85,-1) {$lambda$};



  shade[myball=blue]   (-9.7,-2.2)   circle (.2cm);

  shade[myball=red]    (-9.2,-3.8)   circle (.2cm);

  shade[myball=green]  (-10.3,-4)    circle (.4cm);

  shade[myball=yellow] (-8.95,-5.4)  circle (.4cm);

  shade[myball=red]    (-10.7,-6.1)  circle (.4cm);

  shade[myball=blue]   (-10.8,-5)    circle (.2cm);

  shade[myball=yellow] (-9.5,-6.7)   circle (.2cm);

  shade[myball=green]  (-8.3,-7.6)   circle (.4cm);

  shade[myball=yellow] (-11.7,-7.6)  circle (.4cm);

  shade[myball=blue]   (-10.5,-7.8)  circle (.2cm);

end{tikzpicture}

end{document}

which looks like:

Merry Christmas!

Having been having fun with straight-edge-and-compass constructions (thanks to What is the simplest way to draw this triangle exactly?), I thought I'd try my hand at a Christmas tree constructed using straight-edge and compass.

(The animated version is about 5Mb. I'll have to stick it somewhere other than imgur and link to it.)

documentclass[

%  handout, % use this to see the final construction

  xcolor=svgnames

]{beamer}

%url{https://tex.stackexchange.com/q/142210/86}

%url{https://tex.stackexchange.com/q/39149/86}

usepackage{tikz}



usetikzlibrary{decorations.text}



usepackage[

%  draft

]{rulercompass}



setbeamertemplate{navigation symbols}{}

setbeamercolor{background canvas}{bg=Beige}



pgfdeclarelayer{picture}

pgfdeclarelayer{points}

pgfsetlayers{picture,main,points}



begin{document}

begin{frame}[plain]

hfill%

begin{tikzpicture}[

    stop jumping,

    max size={textwidth}{textheight},

    pot/.style={

      draw=brown,

      on layer=picture,

      ultra thick

    },

    trunk/.style={

      draw=brown!50!black,

      on layer=picture,

      ultra thick

    },

    tree/.style={

      draw=green!50!black,

      on layer=picture,

      ultra thick

    },

    bauble/.style={

      fill=yellow,

      ultra thick,

      on layer=picture,

    },

    star/.style={

      draw=yellow,

      fill=red!50!black,

      on layer=picture

    },

    ruler compass,

    draft label/.style={

      reset label anchor,

      above,

      font=tiny

    },

    every segment/.style={

    },

    every compass/.style={

      overlay,

    },

    every point/.style={

      node on layer=points,

      minimum size=1mm,

    },

    every arc/.style={

      on layer=picture,

      ultra thick

    },

    construction in use/.style={

      draw=gray!50,

    },

    construction not in use/.style={

      draw=gray!50,

    },

  ]

path (0,0) node[name=0,ruler compass/point=red];

path (0,1) node[name=1,ruler compass/point=red];

pause

ruler<+->[ruler compass/ruler length=40]{0}{1}

compass<+->{0}{1}

point<.->{r-0-1}{c-0-1}{2}

compass<+->{1}{a}

point<.->{r-0-1}{c-1-a}{1}

compass<+->{a}{1}

point<.->{c-a-1}{c-1-a}{1}

point<.->{c-a-1}{c-1-a}{2}

compass<+->{b}{c}

compass<+->{b}{a}

point<.->{c-b-a}{r-0-1}{1}

compass<+->{e}{b}

point<.->{c-e-b}{c-b-a}{1}

point<.->{c-e-b}{c-b-a}{2}

point<.->{c-e-b}{r-0-1}{1}

ruler<+->{c}{g}

ruler<.->{d}{f}

compass<+->{h}{g}

compass<+->{a}{g}

ruler<+->{c}{d}

point<.->{r-c-d}{c-0-1}{1}

point<.->{r-c-d}{c-0-1}{2}

compass<+->{b}{1}

point<.->{c-b-1}{r-0-1}{1}

compass<+->{b}{0}

point<.->{c-b-0}{r-0-1}{1}

ruler<+->{f}{g}

compass<+->{k}{l}

point<.->{c-k-l}{r-f-g}{1}

point<.->{c-k-l}{r-f-g}{2}

ruler<+->{i}{m}

ruler<+->{j}{n}

point<.->{r-j-n}{c-h-g}{2}

point<.->{r-i-m}{c-h-g}{2}

point<.->{r-j-n}{c-a-g}{1}

point<.->{r-i-m}{c-a-g}{1}

compass<+->{q}{o}

compass<.->{r}{p}

point<.->{c-q-o}{r-j-n}{1}

point<.->{c-r-p}{r-i-m}{1}

draw<.->[pot] (g) arc[centred arc to={a}{q}]

 (f) arc[arc flip,centred arc to={a}{r}];

draw<.->[trunk] (o) -- (s) (p) -- (t);

draw<.->[pot] (d) arc[centred arc to={b}{c}] -- (g) arc[arc flip,centred arc to={h}{f}] -- cycle;

point<.->{c-h-g}{r-0-1}{1}

compass<+->{u}{s}

point<.->{c-u-s}{r-0-1}{1}

compass<+->{v}{s}

compass<+->{v}{u}

point<.->{c-v-u}{r-0-1}{1}

compass<+->{u}{w}

compass<+->{w}{u}

point<.->{c-u-w}{c-w-u}{1}

point<.->{c-u-w}{c-w-u}{2}

compass<+->{x}{v}

compass<+->{y}{v}

point<.->{c-x-v}{c-v-s}{2}

point<.->{c-y-v}{c-v-s}{2}

draw<.->[tree]

  (v)

  arc[centred arc to={x}{z}]

  arc[arc flip,centred arc to={v}{aa}]

  arc[centred arc to={y}{v}]

;

compass<+->{v}{h}

point<.->{c-v-h}{c-y-v}{2}

point<.->{c-v-u}{c-y-v}{2}

point<.->{c-v-u}{c-x-v}{2}

point<.->{c-v-h}{c-x-v}{2}

ruler<+->{ab}{ad}

compass<+->{ab}{ad}

compass<+->{ad}{ab}

point<.->{c-ab-ad}{c-ad-ab}{1}

compass<+->{af}{ab}

point<.->{c-v-h}{r-i-m}{2}

compass<+->{h}{ag}

point<.->{c-v-h}{c-h-ag}{2}

compass<+->{ag}{h}

point<.->{c-v-h}{c-ag-h}{1}

compass<+->{ai}{ag}

point<.->{c-v-h}{c-ai-ag}{1}

foreach[remember=tpt as ppt (initially i)] tpt in {j,...,o}

{

  compass<+->{atpt}{appt}

  point<.->{c-v-h}{c-atpt-appt}{1}

}

compass<+->{ah}{h}

point<.->{c-v-h}{c-ah-h}{2}

compass<+->{aq}{ah}

point<.->{c-v-h}{c-aq-ah}{1}

foreach[remember=tpt as ppt (initially q)] tpt in {r,...,w}

{

  compass<+->{atpt}{appt}

  point<.->{c-v-h}{c-atpt-appt}{1}

}

point<.->{c-v-u}{r-i-m}{2}

compass<+->{u}{ay}

compass<.->{ay}{u}

point<.->{c-v-u}{c-ay-u}{1}

compass<+->{az}{ay}

point<.->{c-v-u}{c-az-ay}{1}

point<.->{c-v-u}{c-u-ay}{2}

compass<+->{bb}{u}

point<.->{c-v-u}{c-bb-u}{2}

compass<+->{bc}{bb}

point<.->{c-v-u}{c-bc-bb}{1}

compass<+->{bd}{bc}

point<.->{c-bd-bc}{c-af-ab}{2}

foreach[remember=tpt as ppt (initially d)] tpt in {e,...,n}

{

  compass<+->{btpt}{bppt}

  point<.->{c-af-ab}{c-btpt-bppt}{2}

}

foreach bctr/brad in {

  h/ag,

  aj/ai,

  am/al,

  ap/ao,

  ar/aq,

  au/at,

  ax/aw,

  ba/az,

  u/ay,

  bd/bc,

  bg/bf,

  bj/bi,

  bm/bl%

}

{

  path<.->[bauble] (bctr) to[circle through] (brad);

}

point<.->{c-ad-ab}{r-0-1}{1}

compass<+->{v}{bp}

compass<+->{bp}{v}

point<.->{c-v-bp}{r-0-1}{2}

compass<+->{bq}{v}

point<.->{c-v-bp}{c-bp-v}{1}

point<.->{c-v-bp}{c-bp-v}{2}

point<.->{c-v-bp}{c-bq-v}{1}

point<.->{c-v-bp}{c-bq-v}{2}

fill<.->[star] (bp) -- (bu) -- (bt) -- cycle (bs) -- (br) -- (bq) -- cycle;

compass<+->{b}{y}

{huge

path<+->[decorate,decoration={text along path,text align=center,text={Have a Constructive Christmas}}] (y) arc[arc flip,centred arc to={b}{x}];

}

end{tikzpicture}%

hspace*{fill}%

end{frame}

end{document}

You also need the style file (save as rulercompass.sty) which also incorporates quite a few things from other questions and answers on this site:

ProvidesPackage{rulercompass}

usepackage{alphalph}

usetikzlibrary{intersections,calc}



newififrc@draft

newififrc@beamer

newififrc@fliparc



@ifclassloaded{beamer}{%

  rc@beamertrue

}{}



DeclareOption{draft}{%

  rc@drafttrue

}



DeclareOption{beamer}{%

  rc@beamertrue

}



ProcessOptions



newcounter{pointlabels}

setcounter{pointlabels}{0}

resetcounteronoverlays{pointlabels}



ifrc@beamer

tikzset{

  onslide/.code args={<#1>#2}{%

    only<#1>{pgfkeysalso{#2}}%

  },

  alt/.code args={<#1>#2#3}{%

    alt<#1>{pgfkeysalso{#2}}{pgfkeysalso{#3}}%

  },

  alt if exist/.code args={#1#2#3}{%

    @ifundefined{path@#1}{%

      pgfkeysalso{#2}%

    }{

      alt<.-csname path@#1endcsname>{%

        pgfkeysalso{#2}%

      }{

        pgfkeysalso{#3}%

      }%

    }%

  },

  intersection/save/.code={%

    begingroup

    only<.>{%

    tikz@intersect@path@names@parse#1tikz@stop

    protected@writepgfutil@auxout{}{%

        stringglobalstring@namedef{path@tikz@intersect@path@a}{thebeamer@slideinframe}%

        stringglobalstring@namedef{path@tikz@intersect@path@b}{thebeamer@slideinframe}%

    }%

    }%

    endgroup

  }

}



newcommand<>compass[3]{%

  draw#4[#1,ruler compass/compass={#2}{#3}];

}



newcommand<>ruler[3]{%

  draw#4[#1,ruler compass/ruler={#2}{#3}];

}



newcommand<>point[4]{%

  path#5 [name intersections={use=#2 and #3}] (intersection-#4) node[ruler compass/point,#1];

}



else



tikzset{

  alt if exist/.code args={#1#2#3}{%

    pgfkeysalso{#2}%

  },

  onslide/.code args={<#1>#2}{%

    pgfkeysalso{#2}%

  },

  intersection/save/.code={%

    begingroup

    tikz@intersect@path@names@parse#1tikz@stop

    protected@writepgfutil@auxout{}{%

        stringglobalstring@namedef{path@tikz@intersect@path@a}{thebeamer@slideinframe}%

        stringglobalstring@namedef{path@tikz@intersect@path@b}{thebeamer@slideinframe}%

    }%

    endgroup

  }

}



newcommandcompass[2]{%

  draw[ruler compass/compass={#1}{#2}];

}



newcommandruler[2]{%

  draw[ruler compass/ruler={#1}{#2}];

}



newcommandpoint[4]{%

  path [name intersections={use=#2 and #3}] (intersection-#4) node[ruler compass/point,#1];

}



fi    



tikzset{

  intersection/use/.style={%

    of=#1,

    save=#1,

  },

  circle through/.style={

    to path={

      pgfextra{

        tikz@scan@one@pointpgfutil@firstofone(tikztostart)relax

        pgf@xa=pgf@x

        pgf@ya=pgf@y

        tikz@scan@one@pointpgfutil@firstofone(tikztotarget)relax

        pgfmathsetmacrorc@radius{veclen(pgf@x - pgf@xa,pgf@y - pgf@ya)}%

      }

      circle[radius=rc@radius pt] (tikztotarget)

    }

  },

  arc flip/.is if=

rc@fliparc,

  centred arc to/.code 2 args={%

    tikz@scan@one@pointpgfutil@firstofone(#1)relax

    pgfmathsetmacrorc@radius{veclen(tikz@lastx-pgf@x,tikz@lasty-pgf@y)}%

    pgfmathsetmacrorc@sangle{atan2(tikz@lasty - pgf@y,tikz@lastx - pgf@x)}%

    pgf@xa=pgf@x

    pgf@ya=pgf@y

    tikz@scan@one@pointpgfutil@firstofone(#2)relax

    pgfmathsetmacrorc@eangle{atan2(pgf@y - pgf@ya,pgf@x - pgf@xa)}%

    pgfmathsetmacrorc@eangle{rc@eangle < rc@sangle ? rc@eangle +       360 : rc@eangle}%

    ifrc@fliparc

    pgfmathsetmacrorc@eangle{rc@eangle - 360}%

    fi

    pgfkeysalso{start angle=rc@sangle, end angle=rc@eangle, radius=rc@radius pt}

  },

  ruler compass/.is family,

  ruler compass/.cd,

  construction in use/.style={

    draw=blue

  },

  construction not in use/.style={

    draw=gray!75,

  },

  compass/.style 2 args={

    alt if exist={c-#1-#2}{

      ruler compass/construction in use/.try,

    }{

      ruler compass/construction not in use/.try

    },

    name path=c-#1-#2,

    ruler compass/every construction path/.try,

    ruler compass/every compass/.try,

    insert path={

      (#1) to[circle through] (#2)

      node[name=c-#1-#2-centre,ruler compass/aux point={#1}]

      node[name=c-#1-#2-rim,ruler compass/aux point={#2}]

    },

  },

  ruler/.style 2 args={

    overlay,

    alt if exist={r-#1-#2}{

      ruler compass/construction in use/.try

    }{

      ruler compass/construction not in use/.try

    },

    name path=r-#1-#2,

    ruler compass/every construction path/.try,

    ruler compass/every ruler/.try,

    insert path={

      ($(#1)!pgfkeysvalueof{/tikz/ruler compass/ruler length}!(#2)$) -- ($(#2)!pgfkeysvalueof{/tikz/ruler compass/ruler length}!(#1)$)

      node[name=r-#1-#2-start,ruler compass/aux point={#1}]

      node[name=r-#1-#2-end,ruler compass/aux point={#2}]

    },

  },

  ruler length/.initial=20,

  aux point/.style={

    circle,

    minimum width=4mm,

    onslide=<.|handout:0>{draw=red},

    node contents={},

    at={(#1)},

    ruler compass/every aux point/.try

  },

  point/.style={

    ruler compass/name it,

    coordinate,

    node contents={},

    ruler compass/every point/.try,

    insert path={

      node[

        fill=#1,

        circle,

        minimum width=1mm,

        inner sep=0mm,

        reset label anchor,

        anchor=center,

        node contents={}

        ]

    }

  },

  name it/.code={%

    ifxtikz@fig@namepgfutil@empty

    stepcounter{pointlabels}%

    pgfkeysalso{name=alphalph{value{pointlabels}}}%

    ifrc@draft

    pgfkeysalso{label={[ruler compass/draft label/.try]alphalph{value{pointlabels}}}}%

    fi

    fi

  },

  point/.default=black,

}



newcounter{jumping}

resetcounteronoverlays{jumping}

defrc@scale{1}



defjump@setbb#1#2#3{%

  @ifundefined{jump@#1@maxbb}{%

    expandaftergdefcsname jump@#1@maxbbendcsname{#3}%

  }{%

    csname jump@#1@maxbbendcsname

    pgf@xa=pgf@x

    pgf@ya=pgf@y

    #3

    pgfmathsetlengthpgf@x{max(pgf@x,pgf@xa)}%

    pgfmathsetlengthpgf@y{max(pgf@y,pgf@ya)}%

    expandafterxdefcsname jump@#1@maxbbendcsname{noexpandpgfpoint{thepgf@x}{thepgf@y}}%

  }

  @ifundefined{jump@#1@minbb}{%

    expandaftergdefcsname jump@#1@minbbendcsname{#2}%

  }{%

    csname jump@#1@minbbendcsname

    pgf@xa=pgf@x

    pgf@ya=pgf@y

    #2

    pgfmathsetlengthpgf@x{min(pgf@x,pgf@xa)}%

    pgfmathsetlengthpgf@y{min(pgf@y,pgf@ya)}%

    expandafterxdefcsname jump@#1@minbbendcsname{noexpandpgfpoint{thepgf@x}{thepgf@y}}%

  }

}



tikzset{

  stop jumping/.style={

    execute at end picture={%

      stepcounter{jumping}%

      pgfmathsetlengthpgf@xa{pgf@picminx/rc@scale}%

      pgfmathsetlengthpgf@ya{pgf@picminy/rc@scale}%

      pgfmathsetlengthpgf@xb{pgf@picmaxx/rc@scale}%

      pgfmathsetlengthpgf@yb{pgf@picmaxy/rc@scale}%

      immediatewritepgfutil@auxout{%

        noexpandjump@setbb{thevalue{jumping}}{noexpandpgfpoint{thepgf@xa}{thepgf@ya}}{noexpandpgfpoint{thepgf@xb}{thepgf@yb}}

      },

      csname jump@thevalue{jumping}@maxbbendcsname

      path (thepgf@x,thepgf@y);

      csname jump@thevalue{jumping}@minbbendcsname

      path (thepgf@x,thepgf@y);

    },

  },

  max size/.code 2 args={%

    addtocounter{jumping}{1}%

    pgfutil@ifundefined{jump@thevalue{jumping}@maxbb}{}{%

      csname jump@thevalue{jumping}@maxbbendcsname

      pgf@xa=pgf@x

      pgf@ya=pgf@y

      csname jump@thevalue{jumping}@minbbendcsname

      advancepgf@xa by -pgf@x

      advancepgf@ya by -pgf@y

      pgfmathsetmacrorc@xratio{pgf@xa > #1 ? pgf@xa/#1 : 1}%

      pgfmathsetmacrorc@yratio{pgf@ya > #2 ? pgf@ya/#2 : 1}%

      pgfmathsetmacrorc@scale{1/max(rc@xratio,rc@yratio)}%

      pgfkeysalso{scale=rc@scale}%

    }

    addtocounter{jumping}{-1}%

  }

}



tikzset{

  on layer/.code={

    pgfonlayer{#1}begingroup

    aftergroupendpgfonlayer

    aftergroupendgroup

  },

  node on layer/.code={

    gdefnode@@on@layer{%

      setboxtikz@tempbox=hboxbgrouppgfonlayer{#1}unhboxtikz@tempboxendpgfonlayeregroup}

    aftergroupnode@on@layer

  },

  reset label anchor/.code={%

    lettikz@auto@anchor=pgfutil@empty

    deftikz@anchor{#1}

  },

  reset label anchor/.default=center

}



defnode@on@layer{aftergroupnode@@on@layer}



endinput

A bit late, but here's a simple Christmas tree for 2016:

documentclass[border=5]{standalone}

usepackage{tikz}

newboxstereogrambox

pgfmathdeclarerandomlist{colors}{{red}{green!50!black}{green}{white}{blue}}

begin{document}

setboxstereogrambox=hbox{%

begin{tikzpicture}[x=1/2pt,y=1/2pt]

foreach x in {0,...,95}

  foreach y in {0,...,119}{

    pgfmathrandomitemc{colors}

    fill [fill=c] (x,y) rectangle ++(1,1);

  }

end{tikzpicture}}%

begin{tikzpicture}[x=1pt,y=1pt,

stereogram node/.style={inner sep=0, outer sep=0,

  anchor=south, fill=white, execute at begin node=copystereogrambox

}]

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

  node [stereogram node] at (x*52, 0) {};

clip [shift={(0, 4)}] 

 (0,0) -- (-4,0) -- (-4,4) -- (-18,4) -- (0,52) --

 (18,4) -- (4,4) -- (4,0) -- cycle;

node [stereogram node] at (2, 0) {};

end{tikzpicture}

end{document}

And here's a Christmas tree for 2015:

RequirePackage{luatex85}

documentclass[tikz,border=5]{standalone}

usetikzlibrary{backgrounds,arrows.meta}

pgfdeclarelayer{foreground}

pgfdeclarelayer{before-background}

pgfsetlayers{background,before-background,main,foreground}

usepackage{luacode}

begin{luacode*}

floor = math.floor

ceil = math.ceil



Maze = {}

Maze.__index = Maze

Maze.NORTH = 90

Maze.SOUTH = 270

Maze.EAST = 0

Maze.WEST = 180



Maze.new = function(r, c)

  local i, j, row, cell

  local obj = {}

  setmetatable(obj, Maze)

  obj.rows = r

  obj.cols = c

  obj:reset()

  return obj

end



Maze.reset = function(self)

  local i, j, row, cell

  self.cells = {}

  for i = 1,self.rows do

    row = {}

    for j = 1,self.cols do

      cell = {visited=false, visitable=true,

        north=true,south=true,east=true, west=true,

        meta=''}

      table.insert(row, cell)

    end

    table.insert(self.cells, row)

  end

end



Maze.visitable = function(self, i, j)

   return self.cells[i] and self.cells[i][j] and 

     self.cells[i][j].visitable 

end



Maze.isVisitable = function(self, i, j)

   return self.cells[i] and self.cells[i][j] and 

     self.cells[i][j].visitable 

end









Maze.setVisitable = function(self, i, j, visitable)

  self.cells[i][j].visitable = visitable

  self.cells[i][j].north = visitable

  self.cells[i][j].south = visitable

  self.cells[i][j].east = visitable

  self.cells[i][j].west = visitable

end



Maze.getMeta = function(self, i, j)

  return self.cells[i][j].meta

end



Maze.setMeta = function(self, i, j, meta)

  self.cells[i][j].meta = meta

end



Maze.create = function(self, start)

  local n, N, x, y, a, b, k, stack

  N = self.rows * self.cols

  for i = 1,self.rows do

    for j = 1,self.cols do

      if not self.cells[i][j].visitable then

        N = N - 1

      end

    end

  end



  start = start or {x=1, y=1}

  x, y = start.x, start.y

  stack = {}

  table.insert(stack, {x=x, y=y})

  self.cells[y][x].visited = true

  visited = 1

  while visited < N do

    x = stack[#stack].x

    y = stack[#stack].y



    n = {}

    if self:isVisitable(y+1, x) and not self.cells[y+1][x].visited then

      table.insert(n, Maze.NORTH)

    end

    if self:isVisitable(y-1, x) and not self.cells[y-1][x].visited then

      table.insert(n, Maze.SOUTH)

    end

    if self:isVisitable(y, x+1) and not self.cells[y][x+1].visited then

      table.insert(n, Maze.EAST)

    end

    if self:isVisitable(y, x-1) and not self.cells[y][x-1].visited then

      table.insert(n, Maze.WEST)

    end



    if #n == 0 then

      table.remove(stack)

    else

      k = n[math.random(#n)]

      if k == Maze.NORTH then

        a, b = x, y+1

        self.cells[y][x].north = false

        self.cells[b][a].south = false

      elseif k == Maze.SOUTH then

        a, b = x, y-1

        self.cells[y][x].south = false

        self.cells[b][a].north = false

      elseif k == Maze.EAST then

        a, b = x+1, y

        self.cells[y][x].east = false

        self.cells[b][a].west = false

      elseif k == Maze.WEST then

        a, b = x-1, y

        self.cells[y][x].west = false

        self.cells[b][a].east = false

      end

      table.insert(stack, {x=a, y=b})

      self.cells[b][a].visited = true

      visited = visited + 1

    end

  end

end



m = Maze.new(70,55)

for i = 1,m.rows do

  for j = 1,m.cols do

    m:setVisitable(i, j, false)

  end

end



-- tree

tree_data = {1,1,1,3,3,3,5,5,7,7,9,11,11,13,15,17,19,23,27,21,

  13,15,17,17,19,21,23,27,29,33,25,

  19,21,21,23,25,27,29,33,35,39,31,25,

  23,25,27,29,31,33,35,37,41,45,37,31,21}

for i, x in ipairs(tree_data) do

  for j = 1, x do

    m:setVisitable(m.rows-i-5, floor((m.cols - x) / 2) + j, true)

    m:setMeta(m.rows-i-5, floor((m.cols - x) / 2) + j, 'green')

  end

end



-- decorations

c = floor(m.cols/2)

colors = {'red', 'orange', 'purple'}

ncolors = 3

for q = 0,3 do

  for j = c-15, c+15 do

    if j < c then

      k  = 3

    else

      k = 1.625

    end

    for r = -1,1 do

      m:setMeta(floor((j - c) / k) + 15 + q * 10 + r, j, 

       colors[math.random(ncolors)])

    end

  end

end



-- star

star_data = {1,1,1,3,3,5,9,15,9,5,3,3,1,1,1}

for i, x in ipairs(star_data) do

  for j = 1, x do

    m:setVisitable(m.rows-i+1, floor((m.cols - x) / 2) + j, true)

    m:setMeta(m.rows-i+1, floor((m.cols - x) / 2) + j, 'yellow')

  end

end





-- trunk

trunk_data = {7,7,9,11}

for i, x in ipairs(trunk_data) do

  for j = 1, x do

    m:setVisitable(m.rows-i-61, floor((m.cols - x) / 2) + j, true)

    m:setMeta(m.rows-i-61, floor((m.cols - x) / 2) + j, 'brown')

  end

end



-- snow

for i = 1,5 do

  for j = 1, m.cols do

   m:setVisitable(i,j, true)

    m:setMeta(i,j, 'white')

  end

end



m:create({x=1, y=1})

m.cells[1][1].west = false

m.cells[m.rows][ceil(m.cols/2)].north = false



end{luacode*}

tikzset{

  crayon/.style={line width=0.1cm, line cap=round, draw=#1},

  crayon/.default=none,

  sketch/.style={bend right, out=rand*10, in=180-rand*10}

}



defluaprint#1{directlua{tex.print(#1)}}

defifluacondition#1#2#3{%

  defnexta{#2}defnextb{#3}%

  csname ifdirectlua{tex.print(tostring(#1))}endcsname%

    letnext=nexta%

  else%

    letnext=nextb%

  fi%

  next%

}

begin{document}

begin{tikzpicture}[show background rectangle,

background rectangle/.style={fill=black!85}, >=stealth]

foreach i in {1,...,luaprint{m.rows}}{

  foreach j in {1,...,luaprint{m.cols}}{

%

tikzset{shift={(j,i)}}

edefcurrentcolor{luaprint{m:getMeta(i,j)}}

ifluacondition{m:isVisitable(i,j)}{

  begin{pgfonlayer}{before-background}

    filldraw [currentcolor!5!black] (0,0) rectangle (1,1);

  end{pgfonlayer}

}{

  pgfmathparse{int(random(1,10))}

  ifnumpgfmathresult=1

    shade [top color=white, bottom color=gray]

      (0.5+rand/4,0.5+rand/4) circle [radius=.125];

  fi

}

ifluacondition{m.cells[i][j].north and not m:isVisitable(i+1,j)}{

  begin{pgfonlayer}{foreground}

    shade [top color=white, bottom color=gray] 

     (0,0.9) to [sketch] ++(1,0)

     arc (-90:90:.15) to [sketch] ++(-1,0) arc (90:270:.15);

  end{pgfonlayer}

}{}

ifluacondition{m.cells[i][j].south}

  {draw [crayon=currentcolor] (0,0) to [sketch] (1,0);}{}

ifluacondition{m.cells[i][j].west and not m:isVisitable(i,j-1)}

  {draw [crayon=currentcolor] (0,0) to [sketch] (0,1);}{}

ifluacondition{m.cells[i][j].east}%

  {draw [crayon=currentcolor] (1,0) to [sketch] (1,1);}{}

}}

draw [crayon=red, line width=0.25cm, ->] (0,1.5) -- ++(1.5,0);

draw [crayon=red, line width=0.25cm, ->] 

  (luaprint{ceil(m.cols/2)}+.5,luaprint{m.rows}+.5) -- ++(0,1.5);

end{tikzpicture}

end{document}

And here's an invisible tree from a couple of years ago.

documentclass[border=0.125cm]{standalone}

usepackage{tikz}

pagecolor{black}

usetikzlibrary{shapes.geometric,decorations}

pgfmathdeclarerandomlist{colors}{{red}{yellow}{pink}{green}{orange}{purple}{blue}{white}}



newcommanddrawstar[1]{%

  pgfmathsetmacros{rnd*2+2}

    pgfmathsetmacrot{rnd*.5cm+0.5cm}

    pgfmathsetmacroy{rand*0.125cm}

    pgfmathsetmacror{rand*180}

    pgfmathrandomitem{c}{colors}

    node [star, fill=c, star point ratio=s, rotate=r, minimum size=t, inner sep=0pt, every star/.try, #1] at (0cm,y pt) {};

}

pgfdeclaredecoration{stars}{start}{

  state{start}[width=rnd*.5cm+.25cm]{drawstar}

  state{final}{drawstar}

}



begin{document}



begin{tikzpicture}[line cap=round, x=1cm,y=1cm,]



draw [every star/.style={opacity=0.125}, decoration=stars, decorate] 

  foreach i in {0,...,5}{ 

 plot [domain=i*360:i*360+180, samples=100] (x/300*cos x, -x/150+x/900*sin x) };





draw [every star/.style={opacity=0.5}, decoration=stars, decorate] 

foreach i in {0,...,5}{ 

  plot [domain=i*360+180:i*360+360, samples=100] (x/300*cos x, -x/150+x/900*sin x) };



drawstar[fill=yellow, minimum size=1.5cm]



end{tikzpicture}



end{document}

And another:

documentclass[tikz, border=0.25cm]{standalone}

usepackage{tikz}

pagecolor{black}

usetikzlibrary{decorations.pathreplacing}

makeatletter

newcounttikzjointhedotsnumber





pgfdeclaredecoration{join the dots}{initial}{%

  state{initial}[width=0pt, next state=do dots, persistent precomputation={globaltikzjointhedotsnumber=1}]{}

  %

  state{do dots}[width=pgfdecoratedinputsegmentlength, persistent postcomputation={globaladvancetikzjointhedotsnumber by1}]{%

    pgfcoordinate{@dot-thetikzjointhedotsnumber}{pgfpointorigin}%

  }

  %

  state{final}{%

    % Is the last point the same as the first?

      pgfpointdiff{pgfpointdecoratedpathlast}{pgfpointdecoratedpathfirst}%

      pgfmathveclen{thepgf@x}{thepgf@y}%

      ifdimpgfmathresult pt=0ptrelax%

        globaladvancetikzjointhedotsnumber by-1relax

      else

        pgftransformshift{pgfpointdecoratedpathlast}%

        pgfcoordinate{@dot-thetikzjointhedotsnumber}{pgfpointorigin}%

      fi

      % Ok, now we do everything. Draw the dots and place the numbers.

      %

      c@pgf@counta=tikzjointhedotsnumber%

      c@pgf@countb=2relax%

      edeflastdot{thetikzjointhedotsnumber}%

      defnextdot{2}%

      pgftransformreset%

      pgfmathloop%

      ifnumpgfmathcounter>tikzjointhedotsnumber

      else%

        % Draw the dot.

        edeftmp{thetikzjointhedotsnumber}%

                tikzjointhedotsnumber=pgfmathcounterrelax%

        path [shift={(@dot-pgfmathcounter)}, every dot/.try, dot pgfmathcounter/.try]; 

         tikzjointhedotsnumber=tmp% 

        %

        % Calculate the dot number node anchor

        pgfmathanglebetweenpoints{pgfpointanchor{@dot-pgfmathcounter}{center}}{pgfpointanchor{@dot-thec@pgf@counta}{center}}%

        pgf@xc=pgfmathresult ptrelax%

        ifdim0pt>pgf@xc%

          advancepgf@xc by360ptrelax%

        fi%

        pgfmathanglebetweenpoints{pgfpointanchor{@dot-pgfmathcounter}{center}}{pgfpointanchor{@dot-thec@pgf@countb}{center}}%

        pgf@yc=pgfmathresult ptrelax%

        ifdim0pt>pgf@yc%

          advancepgf@yc by360ptrelax%

        fi%

        ifdimpgf@xc>pgf@yc%

          pgf@x=360ptrelax%

        else%

          pgf@x=0ptrelax%

        fi%

        advancepgf@x by-pgf@xc%

        advancepgf@x bypgf@yc%

        dividepgf@x by2relax%

        advancepgf@x bypgf@xc%

        advancepgf@x by180ptrelax%

        edefdotnumberanchor{thepgf@x}%

        node [anchor=dotnumberanchor, every dot number/.try, dot number pgfmathcounter/.try] 

          at (@dot-pgfmathcounter)

          {tikzjointhedotsnumber=pgfmathcounterrelaxtikzjointhedotstypesetnumber{tikzjointhedotsnumber}};

        c@pgf@counta=pgfmathcounterrelax%

            advancec@pgf@countb by1relax%

            ifnumc@pgf@countb>tikzjointhedotsnumber%

              c@pgf@countb=1relax%

            fi%

        repeatpgfmathloop%

  }

}



% Command for typesetting dot number

% #1 - a count register holding the current dot number

%

deftikzjointhedotstypesetnumber#1{the#1}

makeatletter

% Keys for setting dot number styles

tikzset{%

  syle dot number range/.code args={#1 to #2 with #3}{%

    c@pgf@counta=#1

    pgfmathloop

    ifnumc@pgf@counta>#2relax%

    else%

      tikzset{dot number thec@pgf@counta/.style={#3}}%

      advancec@pgf@counta by1

    repeatpgfmathloop%

  },

    style dot number list/.code args={#1 with #2}{%

      pgfutil@fortmp:=#1do{%

        tikzset{dot number tmp/.style={#2}}%

      }%

    }

}

makeatother



tikzset{%

  % Executed for every dot

  every dot/.style={fill=white,

    insert path={  circle [radius=1mm] coordinate [alias=dot-last] (dot-thetikzjointhedotsnumber)  }

  },

  % Executed for every dot number

  every dot number/.style={

   shape=circle,

   font=sf,

   scale=2,

   text=white

  },

  join the dots/.style={

    decoration=join the dots, decorate

  },

  lines/.style={

    ultra thick,

    line join=round,

    line cap=round

  },

  crayon/.style={

    draw=#1,

    line join=round,

    line cap=round,

    line width=1mm

  },

  sketch/.style={

    bend right, out=rand*10, in=180-rand*10

  }

}



pgfdeclarelayer{background}

pgfsetlayers{background,main}

begin{document}



foreach n in {1,...,40}{

begin{tikzpicture}[line cap=round]







draw [decoration=join the dots, decorate,x=10cm,y=10cm,

  dot number 16/.style={anchor=south},

  dot number 25/.style={anchor=south},

  dot 1/.style={fill=black}, dot number 1/.append style={text=black, anchor=south east},

  dot 40/.style={fill=black}, dot number 40/.append style={text=black, anchor=south west}] 

 (0,0) foreach i in {1,...,3} { -- ++(-1/8,-1/3) -- ++(-1/4,-1/3) -- ++(-3/8,-1/3) -- ++(i/6,0) -- ++(i/6,1/16) }

 -- ++(1/8,0)

 -- ++(0,-1/4)  -- ++(-1/2,0) -- ++(1/4,-1/2)  -- ++(6/8,0) -- ++(1/4, 1/2) -- ++(-1/2,0) -- ++(0,1/4)

 -- ++(1/8,0)

 foreach i in {3,...,1} { -- ++(i/6,-1/16) -- ++(i/6,0) -- ++(-3/8,1/3) -- ++(-1/4,1/3) -- ++(-1/8,1/3) };



begin{pgfonlayer}{background}



foreach d in {4,9,14,27,32,37}{% 

  tikzset{shift=(dot-d), yshift=1pt}%

  pgfmathsetseed{99+d*50}%

  % Candle

  fill [lines, fill=purple!80, rounded corners=0.125cm]

    (-1/3,0) to [sketch] (-1/3,2) -- (1/3,2)  to [sketch] (1/3,0);

  % Wick

  draw [lines] (0,2) -- ++(0,1/4);

    pgfmathsetseed{99+n*50+d*25}%

  tikzset{shift={(0,2+1/8)}, xscale=round(rnd)*2-1,yscale=1+rand/8}

  foreach s/c in {1/yellow,.5/red}

    path [lines, fill=c!50!orange, scale=s]  

      (0,0) 

      arc (270:180:3/8) 

      .. controls ++(0,1/4) and ++(0,-1/4) .. (0,3/2)

      arc (90:0:3/8 and 1) arc (360:270:3/8 and 1/2);

} 



path [fill=yellow!75!white, shift=(dot-1), rotate=22.5] (0:1.25)

  foreach i [evaluate={j=mod(i,2); k=mod(i+1,4)==0; r=j+1.25+k+(i==11);}] in {0,...,15}{

    -- (i*22.5:r)

  } -- cycle;

end{pgfonlayer}



pgfmathsetseed{99}

draw [crayon=green!50!black, line width=1cm/8, sketch]

  (dot-1) foreach m in {1,...,n}{ to [sketch] (dot-m) };



end{tikzpicture}

}

end{document}

Previous solutions don't really use the fact that the tree can be completely generated procedurally (I think this is what the OP originally intended):

And the picture will change every year! :)

Tree for 2012:

Tree for 2013:

Tree for 2014:

Tree for 2015:

Tree for 2016:

Tree for 2017:

Tree for 2018:

The solution added a new rule to the L-system, that collected some "good" points where decorations might be added. (good points are found on the main branches). From this list values are selected randomly, and baubles or lights are added to these points.

Code:

documentclass{article}

usepackage{tikz}

usetikzlibrary{calc, lindenmayersystems,shapes,decorations,decorations.shapes}

begin{document}



defpointlistleft{}

defpointlistright{}

pgfmathsetseed{year * 6}

makeatletter

pgfdeclarelindenmayersystem{Christmas tree}{

    symbol{C}{pgfgettransform{t} expandafterg@addto@macroexpandafterpointlistleftexpandafter{expandafter{t}}}

    symbol{c}{pgfgettransform{t} expandafterg@addto@macroexpandafterpointlistrightexpandafter{expandafter{t}}}

    rule{S -> [+++G][---g]TS}

    rule{G -> +H[-G]CL}

    rule{H -> -G[+H]CL}

    rule{g -> +h[-g]cL}

    rule{h -> -g[+h]cL}

    rule{T -> TL}

    rule{L -> [-FFF][+FFF]F}

}

makeatother



begin{tikzpicture}[rotate=90]

draw [color=brown!50!black,line width=2.5pt] (0,0) -- (170pt,0);

draw [color=green!50!black,l-system={Christmas tree,step=4pt,angle=16,axiom=LLLLLLSLFFF,order=10,randomize angle percent=20}] lindenmayer system -- cycle;



pgfmathdeclarerandomlist{pointsleft}{pointlistleft}

pgfmathdeclarerandomlist{pointsright}{pointlistright}

pgfmathdeclarerandomlist{colors}{{red}{blue}{yellow}}



foreach i in {0,1,...,5}

{

    pgfmathrandomitem{c}{pointsleft}

    pgfsettransform{c}

    pgfgettransformentries{a}{b}{c}{d}{xx}{yy}

    pgfmathrandomitem{c}{pointsright}

    pgfsettransform{c}

    pgfgettransformentries{a}{b}{c}{d}{XX}{YY}

    pgftransformreset



    pgfmathsetmacrocalcy{min(yy,YY)-max((abs(yy-YY))/3,25pt)}



    draw[draw=orange!50!black, fill=orange!50, decorate, decoration={shape backgrounds, shape=star, shape sep=3pt, shape size=4pt}, star points=5] (xx,yy) .. controls (xx,calcy pt) and (XX,calcy pt) .. (XX,YY);

}



foreach i in {0,1,...,15}

{

    pgfmathrandomitem{c}{pointsleft}

    pgfsettransform{c}

    pgftransformresetnontranslations

    draw[color=black] (0,0) -- (0,-4pt);

    pgfmathrandomitem{c}{colors}

    shadedraw[ball color=c] (0,-8pt) circle [radius=4pt];

}



foreach i in {0,1,...,15}

{

    pgfmathrandomitem{c}{pointsright}

    pgfsettransform{c}

    pgftransformresetnontranslations

    draw[color=black] (0,0) -- (0,-4pt);

    pgfmathrandomitem{c}{colors}

    shadedraw[ball color=c] (0,-8pt) circle [radius=4pt];

}



end{tikzpicture}

end{document}

{let~catcode~`A0 AgdefAs.#1.{Acsname#1Aendcsname}AdefAq#1#2#3#4#5#6#7#8#9{%#######################

AdefAy##1###1##3##4##5###3###2##8##9{AdefAw####1#####1####3####4####5#####3#####2####8####9{%#######

AdefAz########1#########1########3########4########5#########3#########2########8########9{Aegroup%#

As.d####9cum##5ntc#6##9ss.[11pt]{scr####4tc#6}%#####################################################

As.##3p##9c#4##9g##5.[dv##1psn##9m##5s#8svgn##9m##5s]{xc####9#6####9r}%#############################

As.##3p##9c#4##9g##5.{t##8z}As.##3t##8z#6ibr##9r#9.{%###############################################

sh##9p##5s#8########4##1####9ns.sh##9p##5s#8########4##1####9ns.#5r##9ct##9#6s#8%###################

########4##1####9ns.m####4#4##1ngs#8#########3####9ws}%#############################################

As.n##5ws##9v##5b####9x.{Amycd}%####################################################################

As.s##9v##5b####9x.{Amycd}{#####2###1{####1}[sc##9#6##5=.1]%########################################

Ashade[t####9p#####2c####9#6####9r=#9##5#6#6####9w#8b####9tt####9m#####2c####9#6####9r=r##5d]%######

#####2(####8#8####8###2#########1########1#####3#8.########8#####2########5#####2%##################

#####3#8####3###2#########1#####2(####8#8########8#########1########1#########21#8####3###2%########

#####2########5#####2#########21#8.########8#########1#####2(####8#8####8###2;%#####################

#7[#9##5#6#6####9w!9####8!b#6##9c#4]#####2(.8#8####8###2#####2r##5ct##9ng#6##5#####2%###############

#########2.8#8-5###2;%##############################################################################

###3{####1}#####2}As.t##8zs##5t.{p####5nt/.st#9#6##5={dr##9w=################1!5####8!b#6##9c#4%####

#8#####2#5##1#6#6=################1!5####8}#8%######################################################

m#9#####2st####4/.st#9#6##5={########4##5#8########4##1####9n={sh##9p##5#####2b##9c#4gr####9unds#8%#

sh##9p##5=st####4}#8st####4#####2p####9##1nts=################1}}%##################################

###1{d####9cum##5nt}%###############################################################################

###1{####1}[#####2b##9#6#6#####2r##5d/.st#9#6##5={%#################################################

########4##5#8#####2########4##1####9n={m####4#4##1ngs#8m####4#4=b##5tw##5##5n#####2%###############

p####9s##1t##1####9ns#####2.#1#####2########5#####21#####2st##5p#####23cm%##########################

w##1th#####2{As.pg##4hs##5tm##9cr####9.{Asz}{#1#####2+#####2####3#####2*#####2r########5}%##########

#####1[#########3##1ng=b##9#6#6#8b##9#6#6#####2c####9#6####9r=r##5d]#####2(####8#8####8###2#####2%##

c##1rc#6##5[r##9d##1us=Asz#####2mm];%###############################################################

}}}#####2#8b##9#6#6#####2b#6u##5/.st#9#6##5={########4##5#8########4##1####9n=%#####################

{m####4#4##1ngs#8m####4#4=b##5tw##5##5n#####2p####9s##1t##1####9ns#####2####8.1#####2########5%#####

#####2.9#####2st##5p#####23cm%######################################################################

w##1th#####2{As.pg##4hs##5tm##9cr####9.{Asz}{#1#####2+#####2####3#####2*#####2r########5}%##########

#####1[#########3##1ng=b##9#6#6#8b##9#6#6#####2c####9#6####9r=b#6u##5]#####2%#######################

(####8#8####8###2#####2c##1rc#6##5[r##9d##1us=Asz#####2mm];%########################################

}}}]Adraw[#5##1#6#6=M####4####9####9n#8u#6tr##9#####2th##1c#4]%#####################################

(.#25#8-1###2#####2########3#####2########1(####3#8####3###2#####2########5#####2(%#################

####3#83###2#####2########3#####2(####8####3#84###2%################################################

--#####2#########2####8####3#84###2#####2########3#####2########1#########2####3#83###2#####2%######

########5#####2#########2####3#8####3###2#####2########3#####2#########2.#25#8-1###2#####2;%########

Ashade[u#6tr##9#####2th##1c#4#8#####2t####9p#####2c####9#6####9r=gr##5##5n!9####8!b#6##9c#4#8%######

b####9tt####9m#####2c####9#6####9r=gr##5##5n!1####8!b#6##9c#4]%#####################################

(####8#81####8###2#####2########3########1#####2(####8#88###2#####2########5#####2#####3########9%##

#####2########3#####2#####3####3########9%##########################################################

########3#####2########1#####3########9#####2########5#####2#####3########9#####2########3#####2(%##

####8####3#8#2.#15###2%#############################################################################

########3#####2########1#####3####3#85###2#####2########5#####2(#1####3#84###2#####2########3#####2%

(3#84###2%##########################################################################################

########3#####2########1(#1#84###2#####2########5#####2#####3.#15#84###2#####2########3#####2%######

#####3#84####3###2%#################################################################################

########3#####2########1(#1#8########8#####2########5#####2(3####3#8########8#####2########3#####2(%

4#8########8%#######################################################################################

########3#####2########1#####3#81###2#####2########5#####2#########21#81###2#####2########3#####2%##

#########24#8########8%#############################################################################

########3#####2########1#########23####3#8########8#####2########5#####2#########2#1#8########8%####

#####2########3#####2#########21#84####3###2%#######################################################

########3#####2########1#########21.#15#84###2#####2########5#####2#########2#1#84###2#####2%#######

########3#####2#########23#84###2%##################################################################

########3#####2########1#########2#1####3#84###2#####2########5#####2#########21####3#85###2#####2%#

########3#####2#########2####8####3#8#2.#15###2%####################################################

########3#####2########1#####2#########21########9#####2########5#####2#########21########9#####2%##

########3#####2#########21####3########9%###########################################################

########3#####2########1#####2#########21########9#####2########5#####2(####8#88###2#####2########3%

#####2(####8#81####8###2;%##########################################################################

As.#5####9r##5##9ch.#####2Acd#####2##1n#####2{(#1#85###2#8#########2#1#85###2#8(####8####3#8#2####3%

###2#8#########2####8####3#8#2####3###2#8#########23#8#1####3###2#8#####2(3#8#1####3###2#8%#########

#####3####3#81.#25###2#8#########21####3#81.#25###2}%###############################################

Anode#####2##9t#####2Acd#####2{As.##3b####9x.{Amycd}}#####2;%#######################################

Anode#####2[st####4#8#####2st####4#####2p####9##1nt#####2h##5##1ght=####3cm#8#####2m##1n##1mum%#####

#####2s##1z##5=####3cm#8dr##9w#8#5##1#6#6=#9##5#6#6####9w#8th##1c#4]%###############################

##9t#####2(####8#81####8###2#####2{};###1{sc####9p##5}[########4##1####9n={sh##9p##5#####2s##5p=.#1%

cm#8#####2sh##9p##5#####2s##1z##5=.#15cm}]%#########################################################

Adraw#####2[m#9#####2st####4=#3#8#####2p####5nt=r##5d]#####2#########24#8########8%#################

########3#####2########1(####8#8########8#####2########5#####2#####3#83####3###2#####2########3%####

#####2#####3#84.4####8###2;%########################################################################

Adraw#####2[m#9#####2st####4=#3#8#####2p####5nt=r##5d]#####2#########21####3#85.4####8###2%#########

########3#####2########1(####8#85.4####8###2#####2########5#####2(####8####3#8#3####3###2#####2%####

########3#####2(####8####3########9;%###############################################################

Adraw#####2[m#9#####2st####4=#3#8#####2p####5nt=b#6u##5]#####2(4#8########8%########################

########3#####2########1#####2(####8#8########8#####2########5#####2#########21#83####3###2#####2%##

########3#####2#########21#84.4####8###2;%##########################################################

Adraw#####2[m#9#####2st####4=#3#8#####2p####5nt=b#6u##5]#####2#####3####3#85.4####8###2%############

########3#####2########1(####8#85.4####8###2#####2########5#####2#########2####8####3#8#3####3###2%#

#####2########3#####2#########2####8####3########9;%################################################

###3{sc####9p##5}#####1[b##9#6#6#####2r##5d](####8#81####8###2#####2########3########1#####2(####8%#

#88###2#####2########5#####2#####3########9#####2########3#####2#####3####3########9%###############

########3#####2########1#####3########9#####2########5#####2#####3########9#####2########3#####2(%##

####8####3#8#2.#15###2%#############################################################################

########3#####2########1#####3####3#85###2#####2########5#####2(#1####3#84###2#####2########3#####2%

(3#84###2%##########################################################################################

########3#####2########1(#1#84###2#####2########5#####2#####3.#15#84###2#####2########3#####2#####3%

#84####3###2%#######################################################################################

########3#####2########1(#1#8########8#####2########5#####2(3####3#8########8#####2########3#####2(%

4#8########8%#######################################################################################

########3#####2########1#####3#81###2#####2########5#####2#########21#81###2#####2########3#####2%##

#########24#8########8%#############################################################################

########3#####2########1#########23####3#8########8#####2########5#####2#########2#1#8########8%####

#####2########3#####2#########21#84####3###2%#######################################################

########3#####2########1#########21.#15#84###2#####2########5#####2#########2#1#84###2#####2%#######

########3#####2#########23#84###2%##################################################################

########3#####2########1#########2#1####3#84###2#####2########5#####2#########21####3#85###2#####2%#

########3#####2#########2####8####3#8#2.#15###2%####################################################

########3#####2########1#####2#########21########9#####2########5#####2#########21########9#####2%##

########3#####2#########21####3########9%###########################################################

########3#####2########1#####2#########21########9#####2########5#####2(####8#88###2#####2########3%

#####2(####8#81####8###2;%##########################################################################

#####1[b##9#6#6#####2b#6u##5](####8#81####8###2#####2########3########1#####2(####8#88###2#####2%###

########5#####2#####3########9#####2########3#####2#####3####3########9%############################

########3#####2########1#####3########9#####2########5#####2#####3########9#####2########3#####2(%##

####8####3#8#2.#15###2%#############################################################################

########3#####2########1#####3####3#85###2#####2########5#####2(#1####3#84###2#####2########3#####2%

(3#84###2%##########################################################################################

########3#####2########1(#1#84###2#####2########5#####2#####3.#15#84###2#####2########3#####2#####3%

#84####3###2%#######################################################################################

########3#####2########1(#1#8########8#####2########5#####2(3####3#8########8#####2########3#####2(%

4#8########8%#######################################################################################

########3#####2########1#####3#81###2#####2########5#####2#########21#81###2#####2########3#####2%##

#########24#8########8%#############################################################################

########3#####2########1#########23####3#8########8#####2########5#####2#########2#1#8########8%####

#####2########3#####2#########21#84####3###2%#######################################################

########3#####2########1#########21.#15#84###2#####2########5#####2#########2#1#84###2#####2%#######

########3#####2#########23#84###2%##################################################################

########3#####2########1#########2#1####3#84###2#####2########5#####2#########21####3#85###2#####2%#

########3#####2#########2####8####3#8#2.#15###2%####################################################

########3#####2########1#####2#########21########9#####2########5#####2#########21########9#####2%##

########3#####2#########21####3########9%###########################################################

########3#####2########1#####2#########21########9#####2########5#####2(####8#88###2#####2########3%

#####2(####8#81####8###2;%##########################################################################

As.#5####9r##5##9ch.#####2Ai#####2##1n#####2{####8####3#8####8.#3#8########3.#81.#3}%###############

#7#####2[wh##1t##5!8####8!b#6u##5#8########4##1####9n=K####9ch#####2sn####9w#5#6##9#4##5#8####9p%###

##9c##1t#9=.9]%#####################################################################################

[sh##1#5t={(r########5*5#8rnd*8###2}#8sc##9#6##5=Ai]%###############################################

[d####9ub#6##5#####2c####9p#9#####2#########3####9w={####9p##9c##1t#9=####8.#1#8#########3####9w%###

#####2xsh##1#5t=####8pt#8%##########################################################################

#########3####9w#####2#9sh##1#5t=3*Ai#####2pt#8#5##1#6#6=wh##1t##5#8dr##9w=n####9n##5}]%############

########4##5#####2{########4##5#####2{########4##5#####2{(####8#8####8###2#####2--#####2++(#3####8:%

1###2#####2--#####2++#########2#3####8:1###2#####2--#####2c#9c#6##5%################################

}}};###3{####1}###3{d####9cum##5nt}}Az{#####2c####9ntr####9#6s#####2}{#####2..}{..}{d##5c####9r##9t%

}{##9nd}{sh##9d}{(-}{#1###2}{#8#2###2}}Aw{t##8zp##1ctur##5}Apath{.5}{##9r}{##9##1}{(1}{ }0o}%#######

Ay iAbegin{use}{#5mat}eAend){i#4}a}Aq276kflAfill,y%#################################################

We are still within the 12 days of Christmas and the wise men have not yet arrived bearing gifts, so I trust that I do not arrive too late.

I wondered...

If we have trees, why not a forest?

There is, of course, no reason whatsoever to draw a Christmas tree using forest....

Nadolig Llawen!

Note that the current code has been updated to work with Forest 2.1, as the previous version would no longer compile. If you want to compile with older Forest, please use the code from the previous version of my answer.

documentclass[tikz, border=5pt, rgb, x11names, svgnames, dvipsnames]{standalone}

usepackage{forest}

usetikzlibrary{shapes.geometric,backgrounds,shadows,fit,fadings,calc}

pgfdeclarelayer{foreground}

pgfdeclarelayer{boncyff}

pgfdeclarelayer{canghennau}

pgfdeclarelayer{goleuni}

pgfsetlayers{background,canghennau,boncyff,goleuni,main,foreground}

makeatletter

% adapted (simplified version) from tex/generic/pgf/frontendlayer/tikz/libraries/tikzlibrarybackgrounds.code.tex

tikzset{%

  on foreground layer/.style={%

    execute at begin scope={%

      pgfonlayer{foreground}%

      lettikz@options=pgfutil@empty%

      tikzset{every on foreground layer/.try,#1}%

      tikz@options%

    },

    execute at end scope={endpgfonlayer}

  },

  on canghennau layer/.style={

    execute at begin scope={%

      pgfonlayer{canghennau}%

      lettikz@options=pgfutil@empty%

      tikzset{every on canghennau layer/.try,#1}%

      tikz@options%

    },

    execute at end scope={endpgfonlayer}

  },

  on boncyff layer/.style={

    execute at begin scope={%

      pgfonlayer{boncyff}%

      lettikz@options=pgfutil@empty%

      tikzset{every on boncyff layer/.try,#1}%

      tikz@options%

    },

    execute at end scope={endpgfonlayer}

  },

  on goleuni layer/.style={

    execute at begin scope={%

      pgfonlayer{goleuni}%

      lettikz@options=pgfutil@empty%

      tikzset{every on goleuni layer/.try,#1}%

      tikz@options%

    },

    execute at end scope={endpgfonlayer}

  },

  aa/.store in=cfr@aa,

  aa=0,

  pics/anrheg/.style n args={2}{

    code={

      node (-bocs) [anchor=north, rounded corners=2pt, outer sep=0pt, minimum width=5mm, minimum height=5mm, fill=#1, rotate=cfr@aa] {};

      path [fill=#2, draw=#2, rotate=cfr@aa]

      ([xshift=-.5mm]-bocs.south)

      [out=80, in=-105] to ([xshift=.5mm]-bocs.north)

      [out=175, in=5] to ([xshift=-.5mm]-bocs.north)

      [out=-85, in=100] to ([xshift=.5mm]-bocs.south)

      [out=-175, in=-5] to cycle;

      path [fill=#2, draw=#2, rotate=cfr@aa]

      ([yshift=.5mm]-bocs.west)

      [out=-10, in=-175] to ([yshift=-.5mm]-bocs.east)

      [out=85, in=-85] to ([yshift=.5mm]-bocs.east)

      [out=-175, in=-10] to ([yshift=-.5mm]-bocs.west)

      [out=95, in=-95] to cycle;

    },

  },

}

makeatother

tikzfading[

  name=disglair,

  inner color=transparent!0,

  outer color=transparent!100]

colorlet{lliw1}{Crimson}

colorlet{lliw2}{DeepPink}

colorlet{lliw3}{Violet}

colorlet{lliw4}{Purple3}

colorlet{lliw5}{Cyan}

colorlet{lliw6}{Green1}

colorlet{lliw7}{Gold}

colorlet{lliw8}{Aquamarine1}

colorlet{lliw0}{OrangeRed1}

colorlet{lliwanrheg1a}{WildStrawberry}

colorlet{lliwanrheg1b}{Ivory}

colorlet{lliwanrheg2a}{Red1}

colorlet{lliwanrheg2b}{Yellow1}

colorlet{lliwanrheg3a}{Turquoise2}

colorlet{lliwanrheg3b}{WildStrawberry}

colorlet{lliwanrheg4a}{Yellow1}

colorlet{lliwanrheg4b}{DodgerBlue3}

colorlet{lliwanrheg5a}{Ivory}

colorlet{lliwanrheg5b}{Turquoise2}

colorlet{lliwanrheg0a}{DodgerBlue3}

colorlet{lliwanrheg0b}{Red1}

begin{document}

forestset{

  declare count register=nodes y goeden,

  nodes y goeden'=0,

  declare count register=tier count,

  tier count'=1,

  % canghennau

  cangen chwith/.style={

    edge path={

      noexpandscoped[on canghennau layer]{

        noexpandpath [draw=ForestGreen, thick, forestoption{edge}]

          (!u.parent anchor) +(0,20pt) [out=-90, in=150] to (.child anchor)forestoption{edge label}

          (!u.parent anchor) +(0,15pt) [out=-90, in=150] to (.child anchor)forestoption{edge label}

          (!u.parent anchor) +(0,10pt) [out=-90, in=150] to (.child anchor)forestoption{edge label}

          (!u.parent anchor) +(0,5pt) [out=-90, in=150] to (.child anchor)forestoption{edge label}

          (!u.parent anchor) [out=-90, in=150] to (.child anchor)forestoption{edge label};

      }

    },

  },

  cangen dde/.style={

    edge path={

      noexpandscoped[on canghennau layer]{

        noexpandpath [draw=ForestGreen, thick, forestoption{edge}]

          (!u.parent anchor) +(0,20pt) [out=-90, in=30] to (.child anchor)forestoption{edge label}

          (!u.parent anchor) +(0,15pt) [out=-90, in=30] to (.child anchor)forestoption{edge label}

          (!u.parent anchor) +(0,10pt) [out=-90, in=30] to (.child anchor)forestoption{edge label}

          (!u.parent anchor) +(0,5pt) [out=-90, in=30] to (.child anchor)forestoption{edge label}

          (!u.parent anchor) [out=-90, in=30] to (.child anchor)forestoption{edge label};

      }

    },

  },

  plant/.style={

    before typesetting nodes={

      repeat=#1{

        prepend={[, bud, cangen chwith]},

        append={[, bud, cangen dde]},

      },

    },

  },

  boncyff/.style={

    edge path={

      noexpandscoped[on boncyff layer]{

        noexpandpath [line cap=round, line width=2.5pt, draw=Chocolate4, forestoption{edge}] (!u.parent anchor) -- (.child anchor)forestoption{edge label};

      }

    },

  },

  seren/.style={

    star, minimum size=25pt, star points=7, star point ratio=3, parent anchor=south, outer sep=2pt, inner color=white, outer color=Gold1, draw=Goldenrod1, inner color=white, outer color=Silver, draw=Snow3, tikz={scoped[on goleuni layer]node (sglein) [minimum width=50pt, circle, inner color=white, outer color=Silver, path fading=disglair] {};}

  },

  enw/.style={

    nodes y goeden'+=1,

    name/.process={Rw}{nodes y goeden}{n##1},

  },

  anrheg/.style={

    no edge, enw, anchor=north

  },

  bud/.style={

    inner sep=0pt,

    outer sep=0pt,

    parent anchor=center,

    child anchor=center,

    enw,

  },

  gwag/.style={

    inner sep=0pt,

    outer sep=0pt,

    parent anchor=center,

    child anchor=center,

    no edge,

  },

}

begin{forest}

  for tree={

    if level=0{}{

      bud,

    },

    boncyff,

    if n=1{

      tier count'+=1,

    }{},

    s sep+=7.5,

    before computing xy={

      l/.process={Rw+n+d}{tier count}{4*#1 pt}

    },

    before typesetting nodes={

      if n children=0{

        append={

          [, bud, boncyff

            [, bud, l'=2pt, boncyff

              [, anrheg, alias=troed, before computing xy={l'=0pt}

              ]

            ]

          ]

        },

        delay={

          for children={

            if={

              >OOw+n={n}{!u.n children}{(#1+1)/2}

            }{}{

              append={

                [, gwag, l'=2pt

                  [, anrheg, before computing xy={l'=7.5pt}

                  ]

                ]

              },

            },

          },

        },

      }{},

    },

  },

  [, seren, plant=1

    [, plant=2

      [, plant=3

        [, plant=4

          [, plant=5

            [, plant=6

            ]

          ]

        ]

      ]

    ]

  ]

  foreach i  in {1,...,50}

    {

      ifnumi=29relaxelseifnumi=28relaxelse

        pgfmathsetmacro{result}{int(mod(i,9))}

        node [circle, ball color=lliwresult] at (ni) {};

        scoped[on goleuni layer] node [circle, minimum width=20pt, inner color=lliwresult!50!white, outer color=lliwresult!50!Silver, path fading=disglair] at (ni) {};

      fifi

    }

  foreach i in {51,...,62}

    {

      tikzset{aa=0}

      pgfmathsetmacro{result}{int(mod(i,6))}

      pgfmathsetmacro{casgliad}{int(mod(4+i,6))}

      pgfmathsetmacro{nesaf}{int(1+i)}

      ifnumi>56

        pic at (ni) {anrheg={lliwanrhegresult a}{lliwanrhegresult b}};

      else

        pic at (ni) {anrheg={lliwanrhegresult b}{lliwanrhegresult a}};

      fi

      tikzset{aa=45}

      ifnumi<56

          pic at ([yshift=3.85mm,xshift=.25pt]$(ni)!1/4!(nnesaf)$) {anrheg={lliwanrhegcasgliad a}{lliwanrhegcasgliad b}};

      fi

      tikzset{aa=-45}

      ifnumi>56

        ifnumi<62

          pic at ([yshift=3.85mm,xshift=-.25pt]$(ni)!3/4!(nnesaf)$) {anrheg={lliwanrhegcasgliad b}{lliwanrhegcasgliad a}};

        fi

      fi

    }

  path

    (n29) ++(0,-1.5mm) coordinate (c0)

    (c0) arc (-90:0:5mm and 2.5mm) coordinate (c1)

    (c0) arc (-90:-180:5mm and 2.5mm) coordinate (c2)

    (c0) +(2.5mm,-4.5mm) coordinate (c3)

    (c0) +(-2.5mm,-4.5mm) coordinate (c4)

    (c1) +(0,-2mm) coordinate (c5)

    (c2) +(0,-2mm) coordinate (c6)

    ;

  path [fill=Sienna1] (c2) arc (-180:0:5mm and 2.5mm) -- (c5) -- (c3) arc (0:-180:2.5mm and 1.25mm) -- (c6) -- cycle;

  begin{scope}

    clip (c2) arc (-180:0:5mm and 2.5mm) -- (c5) -- (c3) arc (0:-180:2.5mm and 1.25mm) coordinate [midway] (c7) -- (c6) -- cycle;

    path [draw=Sienna3] (c6) arc (-180:0:5mm and 2.5mm);

    path [draw=Sienna3] (c2) arc (-180:0:5mm and 2.5mm);

  end{scope}

  begin{scope}[on canghennau layer]

    path [fill=Sienna1, draw=Sienna3] (c2) arc (-180:180:5mm and 2.5mm);

    path [fill=Brown!50!black] (n29 |- c2) circle (4mm and 2mm);

  end{scope}

  begin{scope}[on background layer]

      node [fill=MidnightBlue, inner sep=15pt, fit=(sglein) (troed) (n21) (n35) (c7) (n51) (n62) (cath)] {};

  end{scope}

%   foreach i in {1,...,62} node (anrheg i) [red] at (ni) {i};

end{forest}

end{document}

Forgot the cat...

My cat has decided that under the Christmas tree is the place to be now most of the presents have been distributed. I thought my forest tree needed a cat but there is no room under the tree here, so this cat has decided to keep guard from above...

The cat is just a TiKZ pic compiled with standalone as a separate image (see below). Here the cat is simply included as an external image and scaled for the sake of simplicity:

node (cath) [scale=.15, anchor=south, yshift=4.5mm, xshift=5mm] at (n34.north) {includegraphics{cath-gorwedd}};

Appendix: Cat Code

[If anybody spots what is messing up the bounding box, please let me know!]

pdfminorversion=7

RequirePackage[rgb,pdftex,dvipsnames,x11names]{xcolor}

documentclass[tikz,border=5pt]{standalone}

usetikzlibrary{calc,intersections,backgrounds}

pgfdeclarelayer{foreground}

pgfdeclarelayer{pen}

pgfdeclarelayer{corff}

pgfsetlayers{background,corff,main,pen,foreground}

makeatletter

% adapted (simplified version) from tex/generic/pgf/frontendlayer/tikz/libraries/tikzlibrarybackgrounds.code.tex

  tikzset{%

    on foreground layer/.style={%

          execute at begin scope={%

            pgfonlayer{foreground}%

            lettikz@options=pgfutil@empty%

            tikzset{every on foreground layer/.try,#1}%

            tikz@options%

          },

          execute at end scope={endpgfonlayer}

    },

    on pen layer/.style={

          execute at begin scope={%

            pgfonlayer{pen}%

            lettikz@options=pgfutil@empty%

            tikzset{every on pen layer/.try,#1}%

            tikz@options%

          },

          execute at end scope={endpgfonlayer}

    },

    on corff layer/.style={

          execute at begin scope={%

            pgfonlayer{corff}%

            lettikz@options=pgfutil@empty%

            tikzset{every on corff layer/.try,#1}%

            tikz@options%

          },

          execute at end scope={endpgfonlayer}

    },

    stripiau cwt/.style={draw=#1, very thin, shorten >=-5mm, shorten <=-5mm, double=#1, double distance=3.5mm},

    stripiau corff/.style={very thin, draw=#1, fill=#1},

    trwyn/.style={circle, yshift=1.25mm, minimum width=2.5mm, inner sep=0pt},

    llenwi cath/.style={fill=#1},

    llygaid/.style n args=2{inner color=#1, outer color=#2, ultra thick, draw},

    pics/cath b/.style n args=5{

      code={

        [ultra thick]

        begin{pgfonlayer}{pen}% ref. workaround from http://tex.stackexchange.com/a/218166/ (Mark Wibrow)

          begin{scope}[very thin]% [on pen layer={very thin}]

          path [clip]

            (0,10mm) coordinate (pen1) arc (90:65:19mm and 20mm) coordinate [pos=.75] (pp1) coordinate (pen2)

              arc (65:45:19mm and 20mm)  coordinate (pen3)

              arc (45:-60:19mm and 20mm) coordinate [pos=.05] (pp4) coordinate [pos=.4] (pp5) coordinate [pos=.45] (pp8) coordinate [pos=.75] (pp9)  coordinate (pen8)

              arc (-60:-90:19mm and 20mm) coordinate (pen10)

              arc (-90:-120:19mm and 20mm) coordinate (pen9)

              arc (-120:-225:19mm and 20mm) coordinate [pos=.25] (pp10) coordinate [pos=.55] (pp11) coordinate [pos=.6] (pp6) coordinate [pos=.95] (pp7) coordinate (pen4)

              arc (-225:-245:19mm and 20mm) coordinate (pen5)

              arc (-245:-270:19mm and 20mm) coordinate [pos=.25] (pp2)

              ;

          path [stripiau corff=#1]

            (pp2) [out=-45, in=95] to ($(pen1) - (0,10mm)$) coordinate (pp3) [out=85, in=-135] to (pp1) |- +(5mm,5mm) -| cycle

            (pp4) [out=-135, in=25] to +(-7.5mm,-4mm) [out=-25, in=115] to (pp5) -| +(5mm,5mm) |- cycle

            (pp7) [out=-45, in=155] to +(7.5mm,-4mm) [out=-155, in=65] to (pp6) -| +(-5mm,5mm) |- cycle

            (pp8) [out=-135, in=-25] to +(-17.5mm,0mm) [out=-45, in=115] to (pp9) -| +(5mm,5mm) |- cycle

            (pp11) [out=-45, in=-155] to +(17.5mm,0mm) [out=-135, in=65] to (pp10) -| +(-5mm,5mm) |- cycle

            ;

          end{scope}

        end{pgfonlayer}

        path

          (pen2) ++(4mm,7.5mm) coordinate (pen6)

          (pen5) ++(-4mm,7.5mm) coordinate (pen7);

        path [rounded corners=1pt, llenwi cath=#2]

          (pen1) arc (90:65:19mm and 20mm)

            [out=80, in=-110] to (pen6) [out=-80, in=85] to

          (pen3) arc (45:-225:19mm and 20mm)

            [out=95, in=-100] to (pen7) [out=-70, in=100] to

          (pen5) arc (-245:-270:19mm and 20mm);

        begin{scope}[on foreground layer={ultra thick}]

          draw [rounded corners=1pt, ultra thick]

            (pen1) arc (90:65:19mm and 20mm)

              [out=80, in=-110] to (pen6) [out=-80, in=85] to

            (pen3) arc (45:-225:19mm and 20mm)

              [out=95, in=-100] to (pen7) [out=-70, in=100] to

            (pen5) arc (-245:-270:19mm and 20mm);

        end{scope}

      path [llenwi cath=#2]% corff

          (pp8) [out=35, in=100] to coordinate [pos=.075] (corff7) coordinate [pos=.1] (corff8) coordinate [pos=.2] (corff9) coordinate [pos=.225] (corff10) coordinate [pos=.325] (corff11) coordinate [pos=.35] (corff12) coordinate [pos=.45] (corff13) coordinate [pos=.475] (corff14) coordinate [pos=.575] (corff15) coordinate [pos=.6] (corff16) coordinate [pos=.7] (corff17) coordinate [pos=.725] (corff18) coordinate [pos=.825] (corff19) coordinate [pos=.86] (corff20) coordinate [pos=.96] (corff21) ++(75mm,-15mm) coordinate (corff5)

            [out=-80, in=-85] to coordinate [pos=.6] (corff6) coordinate [pos=.7] (corff22) coordinate [pos=.775] (corff23) coordinate [pos=.825] (corff24) coordinate [pos=.875] (corff27) coordinate [pos=.9] (corff25) coordinate [pos=.985] (corff26) (pen9);

         begin{scope}[ultra thick]% stripiau'r corff

            clip

              (pp8) [out=35, in=100] to (corff5)

                [out=-80, in=-85] to (pen9) |- cycle;

            path [stripiau corff=#1]

              (pp8) [out=-95, in=65] to ++(7.5mm,-15mm) [out=45, in=-175] to (corff7)

              (corff8) [out=-85, in=50] to ++(7.5mm,-17.5mm) [out=45, in=-135] to (corff9)

              (corff10) [out=-90, in=60] to ++(5mm,-20mm) [out=50, in=-140] to (corff11)

              (corff12) [out=-100, in=55] to ++(2.5mm,-20mm) [out=50, in=-145] to (corff13)

              (corff14) [out=-110, in=50] to ++(0,-20mm) [out=40, in=-155] to (corff15)

              (corff16) [out=-115, in=40] to ++(-3.5mm,-18.5mm) [out=30, in=-170] to (corff17)

              (corff18) [out=-135, in=20] to ++(-7.5mm,-16.5mm) [out=10, in=-180] to (corff19)

              (corff20) [out=-170, in=-5] to ++(-10mm,-12.5mm) [out=-15, in=140] to (corff21)

              (corff26) [out=-45, in=-135] to ++(20mm,-1.5mm) [out=-115, in=45] to (corff25) -- +(-5mm,0) |- cycle

              (corff27) [out=40, in=-115] to ++(20mm,7.5mm) [out=-105, in=65] to (corff24) -- +(-5mm,0) |- cycle;

         end{scope}

        draw [ultra thick, name path=corff]

          (pp8) [out=35, in=100] to ++(75mm,-15mm)

            [out=-80, in=-85] to coordinate [pos=.6] (corff6) (pen9);

        draw [ultra thick, llenwi cath=#2]% coesau

          (corff22) ++(17.5mm,12.5mm) coordinate (coes1)

          (corff23) ++(12.5mm,15mm) coordinate (coes2)

          (coes1) [out=-120, in=35] to (corff22) [out=-145, in=5] to ++(-20mm,-7.5mm) [out=-175, in=0] to ++(-5mm,0) arc (-90:90:-5mm and 3mm) coordinate (coes9) [out=0, in=-175] to ++(5mm,0) coordinate (coes11) [out=5, in=-145] to (corff23) [out=35, in=-100] to (coes2);

        begin{pgfonlayer}{background}% ref. workaround from http://tex.stackexchange.com/a/218166/ (Mark Wibrow)

          begin{scope}

            draw [ultra thick, llenwi cath=#2]% coesau

              (corff23) [out=-145, in=5] to (coes11) [out=-175, in=0] to (coes9) arc (-90:90:-4mm and 2.5mm) [out=0, in=-145] to (corff24)

              ;

          end{scope}

        end{pgfonlayer}

        path [llenwi cath=#2]% llenwi'r cwt

          (corff5) [out=-80, in=-15] to ($(corff6) + (0,-2.5mm)$) coordinate (cwt5)

            [out=165, in=-90] to ++(-5mm,5mm) coordinate (cwt6)

            [out=90, in=170] to ++(7.5mm,5mm) coordinate (cwt7)

            [out=-10, in=-95] to ($(corff5) + (-15mm,-2.5mm)$) coordinate (cwt8)

          ;

        begin{scope}[ultra thick]% stripiau'r cwt

          clip (corff5) [out=-80, in=-15] to

              coordinate [pos=.1] (cwt9)

              coordinate [pos=.15] (cwt10a)

              coordinate [pos=.25] (cwt11a)

              coordinate [pos=.345] (cwt12a)

              coordinate [pos=.44] (cwt13a)

              coordinate [pos=.53] (cwt14a)

              coordinate [pos=.62] (cwt15a)

              coordinate [pos=.71] (cwt16a)

              coordinate [pos=.805] (cwt17a)

              coordinate [pos=.9] (cwt18a)

              coordinate [pos=1] (cwt19a)

              (cwt5)

            [out=165, in=-90] to

              coordinate [pos=.45] (cwt20a)

              (cwt6)

            [out=90, in=170] to

              coordinate [pos=.65] (cwt20b)

              (cwt7)

            [out=-10, in=-95] to

              coordinate [pos=.025] (cwt19b)

              coordinate [pos=.125] (cwt18b)

              coordinate [pos=.225] (cwt17b)

              coordinate [pos=.325] (cwt16b)

              coordinate [pos=.425] (cwt15b)

              coordinate [pos=.525] (cwt14b)

              coordinate [pos=.625] (cwt13b)

              coordinate [pos=.725] (cwt12b)

              coordinate [pos=.825] (cwt11b)

              coordinate [pos=.925] (cwt10b)

              (cwt8)

            |- (corff21) -- cycle;

          path [stripiau corff=#1]

            (corff5) [out=110, in=10] to ++(-7.5mm,-3.5mm) [out=0, in=120] to (cwt9);

          path [llenwi cath=#1]

            (cwt20a) [out=80, in=-80] to (cwt20b) [out=170, in=90] to (cwt6) [out=-90, in=165] to cycle

            ;

          foreach i in {10,...,19}

            draw [stripiau cwt=#1] (cwti a) [out=90, in=-60] to (cwti b);

        end{scope}

        draw [ultra thick, name path=cwt]

          (corff5) [out=-80, in=-15] to (cwt5)

            [out=165, in=-90] to (cwt6)

            [out=90, in=170] to (cwt7)

            [out=-10, in=-95] to (cwt8)

          ;

         begin{scope}[on foreground layer={ultra thick}]

          draw

            (pen10) -- ++(0,7.5mm) coordinate (ceg1)

              [out=-45, in=180] to +(5mm,-2.5mm) coordinate (ceg2)

              [out=0, in=-100] to +(2.5mm,3.5mm) coordinate (ceg3)

             ;

          draw

            (ceg1)

              [out=-135, in=0] to +(-5mm,-2.5mm) coordinate (ceg4)

              [out=180, in=-80] to +(-2.5mm,3.5mm) coordinate (ceg5)

            ;

          path (ceg1)

            node (trwyn1) [trwyn, anchor=west] {}

            node (trwyn2) [trwyn, anchor=east] {};

          draw

            ($(trwyn1)!1/2!(trwyn2)$) coordinate (trwyn) [out=10,in=140] to +(25mm,7.5mm)

            (trwyn) [out=-10, in=120] to +(.5mm,-5mm)

            (trwyn) [out=-40, in=130] to +(-1.5mm,-5mm)

            ;

          draw

            (trwyn) [out=170,in=40] to +(-25mm,7.5mm)

            (trwyn) [out=-170, in=60] to +(-.5mm,-5mm)

            (trwyn) [out=-140, in=50] to +(1.5mm,-5mm)

            ;

          path (ceg1)

            node (trwyn1) [trwyn, draw, ball color=#5, anchor=west] {}

            node (trwyn2) [trwyn, draw, ball color=#5, anchor=east] {};

         end{scope}

          draw [llygaid={#3}{#4}]

          ({$(pen1)!2/5!(pen10)$} -| {$(pen8)!3/4!(pen4)$}) coordinate (llygad chwith)

            ++(-5mm,0) coordinate (llygad chwith 1) [out=20, in=180] to ++(6mm,2.5mm) coordinate (llygad chwith 2) [out=0, in=120] to ++(4mm,-2.5mm)

            [out=-120, in=0] to ++(-4mm,-2.5mm) [out=180, in=-20] to ++(-6mm,2.5mm)

          ;

          draw [llygaid={#3}{#4}]

            ({$(pen1)!2/5!(pen10)$} -| {$(pen9)!3/4!(pen3)$}) coordinate (llygad de)

              ++(5mm,0) coordinate (llygad de 1) [out=160, in=0] to ++(-6mm,2.5mm) coordinate (llygad de 2) [out=180, in=40] to ++(-4mm,-2.5mm)

              [out=-40, in=180] to ++(4mm,-2.5mm) [out=0, in=-160] to ++(6mm,2.5mm)

          ;

          fill [ball color=black] (llygad chwith 1 -| llygad chwith 2) circle (2.5mm);

          fill [ball color=black] (llygad de 1 -| llygad de 2) circle (2.5mm);

          begin{scope}[on foreground layer={ultra thick}]

            draw [shorten >=1pt]

              ($(pen2)!7/10!(pen3)$) coordinate (clust1) [out=125, in=-80] to (pen6);

            draw [shorten >=1pt]

              ($(pen5)!7/10!(pen4)$) coordinate (clust2) [out=55, in=-100] to (pen7);

          end{scope}

          begin{scope}% llenwi clust de

            clip (clust1) [out=125, in=-80] to (pen6) [out=-110, in=80] to (pen2) |- cycle;

            path [stripiau corff=#1, rounded corners=1pt]

              (clust1) [out=125, in=-80] to (pen6) [out=-110, in=80] to (pen2) arc (65:45:19mm and 20mm)

              ;

          end{scope}

          begin{scope}% llenwi clust chwith

            clip (clust2) [out=55, in=-100] to (pen7) [out=-70, in=100] to (pen5) |- cycle;

            path [stripiau corff=#1, rounded corners=1pt]

              (clust2) [out=55, in=-100] to (pen7) [out=-70, in=100] to (pen5) arc (-245:-225:19mm and 20mm)

              ;

          end{scope}

          % dim yn ddefnyddiol ar hyn o bryd ond gobeithio bynnan nhw ar ôl iddyn nhw fix the bug!

          coordinate (-pen) at (pen1);

          coordinate (-clust chwith) at (pen7);

          coordinate (-clust de) at (pen6);

        }

    },

}

makeatother

begin{document}

  colorlet{lliw llygaid3}{Chartreuse1}

  colorlet{lliw llygaid4}{Green4}

  colorlet{lliw trwyn1}{LightPink2}

  colorlet{cath5}{LavenderBlush3}

  colorlet{cath6}{LavenderBlush4}

  begin{tikzpicture}

    pic {cath b={cath6}{cath5}{lliw llygaid3}{lliw llygaid4}{lliw trwyn1}};

  end{tikzpicture}

end{document}

I have learned a couple of new things in TikZ and created an own minimalistic version loosely based on Altermundus' first creation (and a beautiful one it is). Hopefully he does not mind. Merry Christmas to all of you!

documentclass[border=2mm]{standalone}

usepackage[dvipsnames]{xcolor}  

usepackage{tikz}

usetikzlibrary{shapes,decorations.shapes}

newsavebox{ball}

savebox{ball}{ 

begin{tikzpicture}[scale=.1]

draw (0,0) -- (0, 5);

shadedraw[ball color=red] (0,0) circle (60pt);

end{tikzpicture}

} 

begin{document}

begin{tikzpicture} 

   draw[fill=RawSienna] 

   (-.5,-1)  -- (.5,-1) -- (.5,4) -- (-.5,4) -- (-.5,-1) ;

draw[fill=green!50!black] 

(-3.5,2) -- (3.5, 2) -- (1.5,4) -- (3, 4) -- (1, 6) -- (2, 6) -- (0,9) -- (-2,6) -- (-1,6) -- (-3,4) -- (-1.5,4) -- (-3.5,2);

foreachdeco in {(1.5,5.65),(-1.5,5.65),(0.75,7.5),(-0.75,7.5),(-2,3.65), (2,3.65), (2.6,1.65),(-2.6,1.65)}

node at deco {usebox{ball}} ; 

 node [star, star point height=.3cm, minimum size=1.2cm, draw,fill=yellow] at (0,9.1) {};

end{tikzpicture}

end{document}

Merry Christmast everyone!

documentclass{beamer}

usepackage{graphicx}

usepackage{tikz}

usetikzlibrary{shapes.geometric}



usepackage{animate}

usepackage{hyperref}

hypersetup{pdfpagemode=FullScreen}

usepackage{ifthen}

newcounter{mycount}

setcounter{mycount}{0}



begin{document}



begin{frame}[fragile]{}

begin{center}

resizebox{5cm}{!}{%

    begin{animateinline}[loop, poster = first,controls]{10}

    whiledo{themycount<10}{

        begin{tikzpicture}[ballstyle/.style={circle,draw=blue!50,fill=c,thick, minimum size=6mm}]

             pgfmathdeclarerandomlist{color}{{red}{blue}{yellow}{white}{purple}}

             pgfmathrandomitem{c}{color}

             foreachycoord in {-3,0,3}{

                draw[fill=green,draw=green] (-3,ycoord)--(3,ycoord)--(0,ycoord+3)--cycle;

                node at (3,ycoord) [ballstyle] {};

                node at (-3,ycoord) [ballstyle] {};}

             node at (0,6) [star,fill =yellow,minimum size=2cm] {};

             draw[fill=brown,draw=black] (-1,-3)--(1,-3)--(1,-5)--(-1,-5)--cycle;

        end{tikzpicture}

        stepcounter{mycount}

        ifthenelse{themycount<10}{

                newframe

        }{

                end{animateinline}

        }

        }

    }

end{center}

end{frame}



end{document}

Just a tree

with extremely ugly code(I do not know how to do it corectly?! -ovelay and center):

documentclass{article}

usepackage{overpic}

usepackage{graphicx} 

begin{document}

begin{overpic}[unit=1cm, width=8cm, height=12cm]{ttt}

put(14.5,0){includegraphics[width=4cm,height=12cm]{ttt}}

put(23,0){includegraphics[width=1.5cm,height=12cm]{ttt}}

end{overpic}

end{document}

ttt.pdf is the compiled tree from the question.

I'm starting my Christmas decorating early, very early.

documentclass{article}

usepackage{tikz}

usetikzlibrary{lindenmayersystems}

usepackage{stackengine}

usepackage{simpsons}

newcommandball[4]{stackinset{c}{}{c}{#1}{#4}{textcolor{#2}{scalebox{#3}{$bullet$}}}}

newlengthtmplen

newcommandrb[2]{tmplen=#1baselineskiprelaxtmplen=.07tmplenrelax%

  raisebox{tmplen}{#2}}

begin{document}

setbox0=hbox{

begin{tikzpicture}

draw [color=green!50!black, l-system={rule set={S -> [+++G][---G]TS,

  G -> +H[-G]L, H -> -G[+H]L, T -> TL, L -> [-FFF][+FFF]F}, step=4pt, angle=18,

 axiom=+++++SLFFF, order=11}] lindenmayer system -- cycle;

end{tikzpicture}

}

centering

stackinset{c}{.6in}{b}{.8in}  {ball[1pt] {green!15}{3}  {P}}{%

stackinset{c}{-1.2in}{b}{1in}  {ball[.6pt]{red}     {4}  {textcolor{white}{S}}}{%

stackinset{c}{0in}{b}{2.5in}   {ball      {red!30}  {5}  {tinyLaTeX{}}}{%

stackinset{c}{.2in}{b}{2in}    {ball[1pt] {green!60}{3}  {@}}{%

stackinset{c}{-.6in}{b}{1.3in} {ball[.5pt]{yellow}  {2.5}{footnotesize A}}{%

stackinset{c}{1.4in}{b}{.8in}  {ball[.5pt]{yellow}  {2.5}{footnotesize $Omega$}}{%

stackinset{c}{.7in}{b}{1.1in}  {ball[1pt] {blue!50} {4.3}{scalebox{.42}{Bart}}}{%

stackinset{c}{-.24in}{b}{.8in} {ball[1pt] {cyan!20} {4.3}{scalebox{.42}{Homer}}}{%

stackinset{c}{-.3in}{b}{1.75in}{ball[1pt] {cyan!40} {4.3}{scalebox{.33}{Marge}}}{%

stackinset{c}{-0.7in}{b}{.75in}{ball[1pt] {green!40}{4.3}{scalebox{.42}{Lisa}}}{%

stackinset{c}{0.2in}{b}{1.4in} {ball[1pt] {blue!10} {4.3}{scalebox{.42}{Maggie}}}{%

hspace{5.8ex}box0

}}}}}}}}}}}par

vspace{-.7in}bfseriesnoindenthspace{5.8ex}%

rb{12}{ball[-2pt]{red}{3.4}{smash{textcolor{white}{M}}}kern-2pt}%

rb{7}{ball[-2pt]{red}{3.4}{smash{textcolor{white}{e}}}kern-2pt}%

rb{3}{ball[-2pt]{red}{3.4}{smash{textcolor{white}{r}}}kern-2pt}%

rb{1}{ball[-2pt]{red}{3.4}{smash{textcolor{white}{r}}}kern-2pt}%

rb{0}{ball[-2pt]{red}{3.4}{smash{textcolor{white}{y}}}kern-2pt}%

rb{1}{ball[-2pt]{red}{3.4}{smash{textcolor{white}{ }}}kern-2pt}%

rb{4}{ball[-2pt]{red}{3.4}{smash{textcolor{white}{C}}}kern-2pt}%

rb{9}{ball[-2pt]{red}{3.4}{smash{textcolor{white}{h}}}kern-2pt}%

rb{9}{ball[-2pt]{red}{3.4}{smash{textcolor{white}{r}}}kern-2pt}%

rb{4}{ball[-2pt]{red}{3.4}{smash{textcolor{white}{i}}}kern-2pt}%

rb{1}{ball[-2pt]{red}{3.4}{smash{textcolor{white}{s}}}kern-2pt}%

rb{0}{ball[-2pt]{red}{3.4}{smash{textcolor{white}{t}}}kern-2pt}%

rb{0}{ball[-2pt]{red}{3.4}{smash{textcolor{white}{m}}}kern-2pt}%

rb{1}{ball[-2pt]{red}{3.4}{smash{textcolor{white}{a}}}kern-2pt}%

rb{4}{ball[-2pt]{red}{3.4}{smash{textcolor{white}{s}}}kern-2pt}%

rb{9}{ball[-2pt]{red}{3.4}{smash{textcolor{white}{!}}}kern-2pt}%

end{document}

This is the one I made for the 24. “door” of my TikZ Advent Calendar in my Blog (in German):

Merry Christmas to all fellow TeX.SX users!

documentclass[border=5mm,tikz]{standalone}



usepackage[utf8]{inputenc}

usepackage[T1]{fontenc}



usepackage{chancery}



usepackage{tikz}

usetikzlibrary{

   arrows.meta,

   backgrounds,

   calc,

   decorations.pathmorphing,

   decorations.text,

   shapes.geometric,

}



begin{document}

begin{tikzpicture}[

   bauble/.pic = {

      shade [ball color = yellow!60!brown]

         (0,-0.9) circle [radius = 0.3];

      draw [

         ultra thick,

         red,

         -{>[scale=0.6]<[scale=0.9]},

      ] (0,-0.6) -- (0,0);

      shade [

         left color = yellow!40!brown,

         right color = yellow!30!black,

      ]

         (-0.1,-0.62) to[bend right, looseness = 0.6]

         (0.1,-0.62) -- ++(0,0.1) -| cycle;

   },

]

   % Star

   node (Stern) [

      star,

      star point height = 6mm,

      minimum size = 20mm,

      thick,

      draw = yellow!60!brown,

      inner color = yellow!40!brown,

      outer color = yellow!80!brown,

      rotate = 50,

   ] at (3,14) {};

   begin{scope}[on background layer]

      shade [

         left color = yellow!60!brown,

         right color = white,

      ]

         ($(Stern.center)-(0,0.1)$) -- ($(Stern.center)+(0,0.1)$)

         to[bend left] ++(4,1) -- ++(0.5,-1.5)

         to[bend right] cycle;

   end{scope}

   % Trunk

   begin{scope}

      filldraw [

         fill = brown!55!black,

         draw = brown!35!black,

         thick,

      ] (-1,0) rectangle (1,2);

      clip (-1,0) rectangle (1,2);

      foreach x in {-1,-0.9,...,1}

         draw [

            brown!35!black,

            ultra thick,

            decoration = {

               random steps,

               segment length = 1mm,

               amplitude = 0.25mm

            }, decorate

         ] (x,0) -- ++(0,2);

   end{scope}

   % Branches

   foreach b/y [count = n]

   in {6/2, 5.5/3.5, 5/5, 4.5/6.5, 3.5/8, 2.5/9.5}

      shadedraw [

         outer color = green!35!black,

         inner color = green!60!black,

         draw = green!35!black,

         looseness = 0.6,

      ]

         (-b,y-0.5) coordinate (L-n)

         to [bend right] coordinate [midway] (LM-n)

         (0,y) coordinate (M-n)

         to [bend right] coordinate [midway] (RM-n)

         (b,y-0.6) coordinate (R-n)

         to [bend left] coordinate [pos = 0.2 + 0.05*rand] (RS-n)

         (0,y+4) coordinate (S-n)

         to [bend left] coordinate [pos = 0.8 + 0.05*rand] (LS-n)

         cycle;

   % Top

   shadedraw [

      left color = yellow!20!brown,

      right color = yellow!80!brown,

      draw = yellow!40!brown,

      looseness = 0.4,

   ] ($(S-6)-(0.45,1.5)$)

      to [bend right] ++(0.9,0) 

      to [bend left] ($(S-6)+(0,0.25)$)

      to [bend left] cycle;

   draw [

      draw = yellow!40!brown,

      ultra thick,

      >>-{Rays[n = 6, width = 4mm, length = 4mm]},

      line cap = round,

   ] ($(S-6)+(0,-0.4)$) -- ++(0,0.8);

   % Decoration

   begin{scope}[

      ultra thick,

      decoration = {

         coil,

         aspect = 0.4,

         amplitude = 2mm,

         segment length = 1.5mm,

      },

   ]

      draw [red, decorate, bend right]

         (LS-6) to (RS-5)

         (LS-4) to (RS-3)

         (LS-2) to (RS-1);

      draw [red!75!black, decorate, bend left]

         (RS-6) to (LS-5)

         (RS-4) to (LS-3)

         (RS-2) to (LS-1);

   end{scope}

   % Baubles

   path

      ($(S-6)-(0.3,2.75)$) pic {bauble}

      ($(S-4)-(1.1,3.15)$) pic {bauble}

      ($(S-4)+(1.2,-3.4)$) pic {bauble}

      ($(S-2)-(1.9,3.8)$)  pic {bauble}

      ($(S-2)+(0.2,-3.3)$) pic {bauble}

      ($(S-2)+(1.8,-3.6)$) pic {bauble};

   % Texts

   path [

      decoration = {

         text along path,

         text = {|Huge|Merry Christmas!},

         text align = left,

      }, decorate,

   ] (-5,13.5) to[bend left] ++(7,2);

   node [

      font = Huge,

   ] at (4.5,-1.5) {… and a happy New Year!};

   % Show tree coordinates

%   foreach n in {1,...,6}

%      filldraw [

%         draw = white,

%         thick,

%         every node/.style = {

%            above = 1pt,

%            font = sffamilyscriptsize,

%            fill = white,

%            inner sep = 1pt,

%         },

%         every circle/.style = {

%            radius = 0.6mm

%         },

%      ]

%         (L-n)  circle node {L-n}

%         (LM-n) circle node {LM-n}

%         (M-n)  circle node {M-n}

%         (RM-n) circle node {RM-n}

%         (R-n)  circle node {R-n}

%         (RS-n) circle node {RS-n}

%         (S-n)  circle node {S-n}

%         (LS-n) circle node {LS-n};

end{tikzpicture}

end{document}

This is not done with decorations, but with Lua. I hope you enjoy this fractal christmas tree. Play around with the values in maketree to vary the number of points to be computed.

documentclass{article}

pagestyle{empty}

usepackage{luacode,pgfplots}

begin{luacode*}

rects = {

   -- lower branches

   {{0.6,0.2}, {0.6,0.5}, {0.0,0.0}},

   {{0.4,0.2}, {0.4,0.5}, {1.0,0.0}},

   -- lower middle branches

   {{0.6,0.35}, {0.6,0.65}, {0.15,0.13}},

   {{0.4,0.35}, {0.4,0.65}, {0.85,0.13}},

   -- upper middle branches

   {{0.6,0.45}, {0.6,0.75}, {0.2,0.25}},

   {{0.4,0.45}, {0.4,0.75}, {0.8,0.25}},

   -- top

   {{0.4,0.5}, {0.6,0.5}, {0.4,1}}

}



function calculate_transform(a,b,c)

   -- Calculate the transformation matrix and return it as a

   -- table with matrix and offset vector

   A_temp = { {0,0}, {0,0} }

   A_temp[1][1] = b[1] - a[1]

   A_temp[2][1] = b[2] - a[2]

   A_temp[1][2] = c[1] - a[1]

   A_temp[2][2] = c[2] - a[2]

   return { A_temp, a }

end



function apply_transform(T, p)

   -- Apply the transformation on the point p

   -- and return the new point

   A_temp = T[1]

   a_temp = T[2]

   p_new = { 0,0 }

   for i=1,#A_temp do

      for j=1,#A_temp[i] do

         p_new[i] = p_new[i] + A_temp[i][j]*p[j]

      end

   end

   for i=1,#p_new do

      p_new[i] = p_new[i] + a_temp[i]

   end

   return p_new

end



function make_trafos()

   -- Create a table of all transformations

   T = {}

   for i=1,#rects do

      T[i] = calculate_transform(rects[i][1], rects[i][2], rects[i][3])

   end

   return T

end



function calculate_attractor(trafos, N)

   -- Create a table of points which make up the

   -- fractal tree

   p_0 = { 0,0 }

   pos_list = {}



   -- Discard the first 100 points (warm up)

   for i=0,100 do

      p_0 = apply_transform(trafos[math.random(1, #trafos)], p_0)

   end



   -- Create the table of points

   for i=1,N do

      -- Apply a random transformation to the current p_0

      p_0 = apply_transform(trafos[math.random(1, #trafos)], p_0)

      pos_list[i] = p_0

   end



   return pos_list

end



function make_tree(Max_Points)

   -- Get the list of transformations

   trafos = make_trafos()



   -- Calculate the tree for Max_Points

   data = calculate_attractor(trafos, Max_Points)



   -- Output for pgfplots

   for i=1,#data do

      tex.sprint("(" .. data[i][1] .. "," .. data[i][2] .. ")")

   end

end

end{luacode*}



newcommandmaketree[1]{

  directlua{make_tree(#1)}

}



begin{document}

begin{tikzpicture}

  begin{axis}[balls/.style 2 args = {

      only marks,mark size=#2,

      every mark/.append style={draw=#1,fill=#1}

    },

    balls/.default={green!50!black}{.5pt}]

    addplot[balls] coordinates {maketree{10000}};

    addplot[balls={green}{2pt}] coordinates {maketree{10}};

    addplot[balls={red}{2pt}] coordinates {maketree{10}};

    addplot[balls={blue}{2pt}] coordinates {maketree{10}};

  end{axis}

end{tikzpicture}

end{document}

This answer is a by-product of my answer to "December challenge: Create an Advent Calendar". You can choose the amount of "snow" on the branches, and the size of the picture. However, the picture can't be too small, it fails for factors below 3.6.

Code

documentclass[tikz, border=2mm]{standalone}

usetikzlibrary{decorations.markings}



newcommand{NordmannFir}[3]%

% shift, scale, day

{ begin{scope}[shift={(#1)}, scale=#2]

        pgfmathsetmacro{C}{2+#3*4}

        colorlet{LightFir}{green!50!gray!75!black}

        colorlet{DarkFir}{green!35!black}

        colorlet{Snow}{cyan!80!blue!15}

        colorlet{Trunk}{brown!50!gray!70!black}



        fill[left color=Trunk!80, right color=Trunk!80, middle color=Trunk] (0,0) arc (270:180:0.05 and 0.01) -- (0,1) -- (0.05,0.01) arc (360:270:0.05 and 0.01) -- cycle;



        foreach y in {0,...,11}

        {   fill[bottom color=DarkFir, top color=Snow!C!LightFir, middle color=Snow!C!LightFir] (-0.35+0.025*y,0.07*y+0.06) to[out=0,in=200,looseness=0.5] (0,y*0.07+0.09) to[out=-20, in=180, looseness=0.5] ++ (0.35-y*0.025,-0.03) to[out=170,in=-30] ++ (-0.35+y*0.025,0.155-y*0.005) to[out=210,in=10] ++ (-0.35+y*0.025,-0.155+y*0.005) -- cycle;

        }

    end{scope}

}



newcommand{RegStar}[5]%

% inner radius, outer radius, tips, rot angle, options

{   pgfmathsetmacro{starangle}{360/#3}

    draw[#5] (#4:#1)

    foreach x in {1,...,#3}

    { -- (#4+x*starangle-starangle/2:#2) -- (#4+x*starangle:#1)

    }

    -- cycle;

}



newcommand{NGram}[4]%

% outer radius, tips, rot angle, options

{   pgfmathsetmacro{starangle}{360/#2}

    pgfmathsetmacro{innerradius}{#1*sin(90-starangle)/sin(90+starangle/2)}

    RegStar{innerradius}{#1}{#2}{#3}{#4}

}



newcommand{DecoratedTree}[2]% scale (>=3.6 !!!!), Snowiness (0...24)

{   begin{scope}[scale=#1]

    fill[inner color=blue!40!black, outer color=blue!10!black] (0.02,0.02) rectangle (0.98,0.98);

    NordmannFir{0.5,0.1}{0.8}{#2}

    NGram{0.03}{7}{-90}{shift={(0.5,0.9)},inner color=red, outer color=yellow, draw=orange}



    foreach LR in {1,-1}

    {   foreach y in {0,...,11}

        {   pgfmathtruncatemacro{C}{mod(LR*y+13,3)}

            draw[white, line width=#1/100*28.452756*0.2] ({0.5+(-LR*0.34+LR*0.025*y)*0.8},{0.1+(0.07*y+0.04)*0.8}) -- ++ (0,0.018);

            fill[ball color=ifcaseC cyanor magentaor yellowfi] ({0.5+(-LR*0.34+LR*0.025*y)*0.8},{0.1+(0.07*y+0.04)*0.8}) circle (0.012);

        }

    }

    fill[ball color=green!50!gray!75] (0.5,0.8) circle(0.016);



    xdefCuCo{0}



    draw

    [   yellow,

        bend left=10,

        decoration=

        {   markings,

            mark=between positions 0.01 and 1 step 0.02 with

            {   

                pgfmathtruncatemacro{C}{mod(CuCo,3)}

                fill[inner color=ifcaseC redor blueor yellowfi, outer color=transparent, opacity=0.07] (0,0) circle (0.03*#1);

                fill[inner color=ifcaseC redor blueor yellowfi, outer color=ifcaseC red!50or blue!50or yellow!50fi] (0,0) circle (0.005*#1);

                pgfmathparse{CuCo+1}

                xdefCuCo{pgfmathresult}

            }

        },

        postaction={decorate}] (0.61,0.21) to (0.40,0.265) (0.585,0.325) to (0.43,0.38) (0.56,0.44) to (0.45,0.50) (0.55,0.55) to (0.46,0.61) (0.53,0.665) to (0.475,0.72);

    end{scope}

}



begin{document}



foreach S in {0,...,24}

{   begin{tikzpicture}

        DecoratedTree{10}{S}

    end{tikzpicture}

}



foreach S in {23,...,1}

{   begin{tikzpicture}

        DecoratedTree{10}{S}

    end{tikzpicture}

}



end{document}

Output (1^st page)

Animation (increasing & decreasing snow)

produced with ImageMagick via

convert -loop 0 -delay 15 -dispose previous -density 95 xmas.pdf xmas.gif

Click here. Warning: ~ 2MB