# button.rb
# Ming/Ruby
# http://opaque.net/ming/examples/button.html

require 'ming/ming'
include Ming

set_scale(1.0)

def makeRect(r, g, b)

  s = SWFShape.new
  
  s.set_right_fill(s.add_fill(r, g, b))

  s.move_pen_to(-50, -50)
  
  [
	[-50, 50], [50, -50], [50, 50], [-50, 50], [-50, -50],
  ].each do |x, y|
	s.draw_line_to(x, y)
  end

  s
end

b = SWFButton.new
b.set_up(makeRect(0xff, 0, 0))
b.set_over(makeRect(0, 0xff, 0))
b.set_down(makeRect(0, 0, 0xff))
b.set_hit(makeRect(0, 0, 0))

m = SWFMovie.new
m.set_dimension(200, 200)
m.set_background(0xff, 0xff, 0xff)

i = m.add(b)
i.move_to(100, 100)

m.save('button.swf')