QL.túra miazmás

:: 2004-02-23 ::

Röviden: www-cdf.fnal.gov/offline/PostScript/BLUEBOOK.PDF
Hosszan: www.adobe.com/devnet/postscript/pdfs/PLRM.pdf

Megírtam életem első PostScript programját. Persze a Mandelbrot halmazt számolja! :-))) 30 sor az egész és egy HP 4000-esen kb. 3-4 perc, amíg kijön... :-) 400x400 pont és 100-as iteráció. Szürke árnyalatos. Lehet, hogy holnap még átírom PS 2.0-ba, így még rövidebb lesz... :-)

300 421 translate
-2 .01 2 {
 /Cv exch def
 -2 .01 2 {
   /Ci exch def
   /Zv Cv def
   /Zi Ci def
   1 -.001 0 {
     /col exch def
     /Zvn Zv Zv mul def
     /Zin Zi Zi mul def
     Zvn Zin add 4 gt {exit} if
     /tZv Cv Zvn Zin sub add def
     /Zi Ci 2 Zv Zi mul mul add def
     /Zv tZv def
   } for
   col setgray
   newpath Cv 100 mul Ci 100 mul 1 1 rectfill
 } for
} for
showpage

 És még egy doksi: www.rightbrain.com/download/books/ThinkingInPostScript.pdf