From: Christian Neukirchen <chneukirchen@...>
Date: 2006-03-06T22:21:46+09:00
Subject: Re: [QUIZ.SOLUTION] The Golden Fibonacci Ratio

"Matthew Moss" <matthew.moss.coder@gmail.com> writes:

> Here is my solution...  Uses a cheap trick (a la method_missing) to
> allow inline Postscript as method calls (so not as postfix).  The
> output is dumped to standard output to be redirected to a .ps file,
> which can be easily viewed on Mac OS X (and almost as easily on other
> platforms using ghostscript).

Okay, I could not resist "doing it right". ;-)

puts <<EOF
100 100 translate

/s 400 def
/colors [ 0.7 0.5 0.3 ] def

/phi 5 sqrt 1 sub 2 div def

/box { /i exch def
  0 0 moveto
  i 0 lineto
  i i lineto
  0 i lineto
  closepath
} def


0 1 9 { %for
    colors exch 3 mod get setgray
    s box
    gsave fill grestore
    0 setgray stroke

    0.8 0.4 0 setrgbcolor
    0 s s 270 360 arc stroke

    s s translate
    90 rotate
    phi phi scale
    currentlinewidth 1 phi div mul setlinewidth   % keep linewidth
} for

showpage
EOF

-- 
Christian Neukirchen  <chneukirchen@gmail.com>  http://chneukirchen.org