PostScript

%!PS-Adobe
/inch {72 mul} def
/depth 6 def       % глубина рекурсии
/baseX 1 inch def  % положение левого нижнего
/baseY 5 inch def  % угла исходного треугольника
/edge  6 inch def  % длина стороны треугольника
0.8 setlinewidth   % толщина линии
% buildElem - ГЛАВНАЯ РЕКУРСИВНАЯ ФУНКЦИЯ
/buildElem {
   2 copy
   /recDepth 0 def
   /L 0 def
   /L exch store        % L        = arg2
   /recDepth exch store % recDepth = arg1
   recDepth 0 le {
     newpath 0 0 moveto L 0 rlineto stroke
   } {
     gsave
       /recDepth recDepth 1 sub store
       /delta L 3 div def
       recDepth delta buildElem
       gsave
         dup 0 translate 60 rotate
         buildElem
         dup 0 translate -120 rotate
         buildElem
       grestore
       dup 2 mul 0 translate
       buildElem
       pop pop
     grestore
   } ifelse
} def
gsave
   baseX baseY translate 60 rotate
   depth edge buildElem
   edge 0 translate -120 rotate
   buildElem
   edge 0 translate -120 rotate
   buildElem
   pop pop
grestore
stroke
showpage