require 'tk' class AntFarm SIZE=10 def initialize(root) @canvas = TkCanvas.new(root) { width 20*SIZE height 20*SIZE }.pack end def draw_ant_at(x, y, color) TkcRectangle.new ( @canvas, x*SIZE, y*SIZE, (x+1)*SIZE, (y+1)*SIZE) { fill color } end end root = TkRoot.new { title "Ant Farm" } farm = AntFarm.new(root) ant_drawer = proc { x = rand(20) y = rand(20) color = %w{ red green blue white }[rand(4)] farm.draw_ant_at(x, y, color) Tk.after(50, &ant_drawer) } ant_drawer.call Tk.mainloop |
[ Index ][ Table of Contents ] | Generated by [ source2html ] |