[PS] 포스트스크립트로 프랙탈 트리 그리기

포스트 스크립트 예제 책을 좀 보다가 재미있는 게 있어서 예제를 아주 살짝 변형해서 그려 봄. 소스를 프린터로 쏘니까 프린터가 그걸 알아먹고 예쁜 그림을 그려주는 게 신기했음.

 

%%-- variables and procedures
/depth 0 def
/maxdepth 14 def
/down { /depth depth 1 add def } def
/up { /depth depth 1 sub def } def

% print a vertical line
/DoLine
{   0 144 rlineto currentpoint
    stroke translate 0 0 moveto
} def

/FracArrow
{
    % reduce scale
    gsave .7 .7 scale
        10 setlinewidth
        down DoLine
        % depth < maxdepth
        depth maxdepth le
        {
            70 rotate FracArrow
            -100 rotate FracArrow
        } if
        up
    grestore
} def

%-- begin program
300 400 moveto
FracArrow
stroke
showpage

고스트뷰 결과화면

see also : daewonyoon.tistory.com/351 : 파이썬 터틀로 프랙탈트리 그리기

see also : www.pvv.ntnu.no/~andersr/fractal/PostScript.html