%!PS-Adobe-2.0 EPSF-2.0 %%Title: Curva di Koch - by Emanuele Paolini %%BoundingBox: 0 50 550 660 %%Pages: 1 %%EndComments %%EndProlog %%Page: 1 1 /koch { dup 1 ge { 1 sub gsave 1 3 div dup scale dup koch 1 0 translate 60 rotate dup koch 1 0 translate -120 rotate dup koch 1 0 translate 60 rotate dup koch grestore} {newpath 0 0 moveto 1 0 lineto stroke} ifelse pop } def 20 500 translate 500 500 scale 0.1 setlinewidth %numero di iterazioni: 8 dup koch 1 0 translate -120 rotate dup koch 1 0 translate -120 rotate dup koch showpage %%Trailer
Si noti che la figura in PostScript è vettoriale, quindi la risoluzione in stampa (o in preview) è limitata solo dalla stampante (o dalla risoluzione del monitor). Di fatto questo disegno è l'ottava iterazione del frattale "fiocco di neve" e contiene esattamente 196608 segmentini lunghi ognuno 0.003 cm.
Si noti poi che il numero di iterazioni può essere specificato a piacere modificando un solo numerino nel file. Il PostScript infatti è un completo linguaggio di programmazione (in "notazione polacca inversa"). In questo caso tutti i calcoli (ricorsivi) per disegnare i frattali vengono fatti dalla stampante stessa.
Altri simpatici frattali in Postscript: