{
   /Times-Roman findfont
   1 15 div  scalefont
   setfont
 

} def

/sierp

{

   dup

   0 eq

   { 1  0 rlineto currentpoint stroke moveto}

   {
 
 

     currentpoint

     2 mul

     exch

     2 mul

     exch
 
 

     0.5 0.5 scale
 
 

     moveto
 
 

     1 sub

     sierp

     -0.5  0.8660254  rlineto
 
 

     currentpoint

     stroke

     moveto
 
 

     sierp

     -0.5  -0.8660254   rlineto
 
 

     currentpoint

     stroke

     moveto
 
 

     sierp

     currentpoint
 
 

     2 div

     exch

     2 div

     exch
 
 

     2 2 scale
 
 

     moveto
 
 

     1 add

   }
 
 

   ifelse
 
 

}  def
 
 

/triangletitle

{

   /s 5 string def
   s cvs
   pop
   0.1 sub
   exch
   0.08 add
   exch
   moveto
   s show
   (. rendu Sierpinsky-haromszog) show

} def

/sierpinsky  % x,y,meret,forg,rend

{

  gsave

  0 setlinewidth

  /rend exch def

  /forg exch def

  /meret exch def

  /y exch def

  /x exch def

  x y translate

  0 0 moveto

  forg rotate

  meret meret scale

  rend sierp

  -0.5 0.8660254 rlineto

  currentpoint

  stroke

  moveto

  -0.5 -0.8660254 rlineto

  rend 6 lt

  { stroke }

  {
    currentpoint

    stroke

    rend triangletitle

  } ifelse

  grestore
}  def
 
 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% FOPROGRAM %%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
 

dofont

gsave

0 1 5 {

          gsave

          /i exch def

          1 i 1 5 div mul sub 0 i 1 5 div mul  setrgbcolor

          280 400 100 30 60 i mul add i sierpinsky

          grestore
 
 

      } for
 

grestore
 
gsave

1 0 0 setrgbcolor
0 300  200 0 6 sierpinsky

grestore

gsave

0 0 1 setrgbcolor
400 300 200 0 7 sierpinsky

grestore

gsave

60 630 translate
550 550 scale
0 0 moveto
(SIERPINSKY-HAROMSZOGEK) show

grestore

gsave

170 180 translate
550 550 scale
0 0 moveto
(Ocsenas Eleonora) show

grestore

gsave

180 120 translate
550 550 scale
0 0 moveto
(prog. mat.) show

grestore

showpage