[SOLUTION] The Golden Fibonacci Ratio (#69)

[David Tran]

Simple Tk version.
"Inifinite" steps (rectangles);
press "Space" bar for each step;
automatic increase scroll region.



require 'tk'

class GoldenRect
include Enumerable
def initialize
@w =3D @h =3D 1
end

def each
inc_w =3D true
loop do
yield [@w, @h]
inc_w ? (@w +=3D @h) : (@h +=3D @w)
inc_w =3D !inc_w
end
end
end

canvas =3D TkCanvas.new() {
xscrollbar(sb_x =3D TkScrollbar.new)
yscrollbar(sb_y =3D TkScrollbar.new)
Tk.grid( self, sb_y, :sticky=3D>:news )
Tk.grid( sb_x, 'x', :sticky=3D>:we )
TkGrid.rowconfigure(Tk.root, 0, :weight=3D>1)
TkGrid.columnconfigure(Tk.root, 0, :weight=3D>1)
}

thread =3D Thread.new(canvas) { |c|
mx =3D my =3D 5 # margin x, y
sx =3D sy =3D 10 # rectangle unit scale
GoldenRect.new.each do |w, h|
c.create(TkcRectangle, mx, my, mx + (w * sx), my + (h * sy))
c.scrollregion([0, 0, (2 * mx) + (w * sx), (2 * my) + (h * sy)])
sleep
end
}

TkRoot.bind('space', proc { thread.wakeup })
Tk.mainloop



__END__

 

[hitesh.jasani]

Displaying rectangles in ASCII seemed a bit 20th century. ;-)

So I decided this was an excellent opportunity to play with the Ruby
PDF library. Code and example output at
http://www.jasani.org/articles/2006/03/06/rubyquiz-the-golden-fibonacci-ratio-69

- Hitesh
http://www.jasani.org/