# action.rb
# Ming/Ruby
# http://opaque.net/ming/examples/example.php?name=action

GC.disable

require 'ming/ming'
include Ming

s = SWFShape.new
f = s.add_fill(0xff, 0, 0)
s.set_right_fill(f)

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

p = SWFMovieClip.new
i = p.add(s)
i.set_depth(1)
p.next_frame

5.times do
  i.rotate(-15)
  p.next_frame
end

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

j = m.add(p)
j.set_depth(1)
j.move_to(-50, 120)
j.set_name('box')

m.add(SWFAction.new('box._x += 3;'))
m.next_frame
a = SWFAction.new('play();')
m.add(a)
m.next_frame

m.save('action.swf')