#!/usr/pkg/bin/ruby32

require'ming/ming'
include Ming

set_scale(20.000000)
use_SWF_version(9)

@m= SWFMovie.new
@m.set_dimension(550, 400)
@m.set_background(0x33, 0x33, 0x33)
@m.set_rate(12.0)

@file = '../common/video01.flv'

@stream= SWFVideoStream.new(@file)
@stream.set_dimension(200, 200)

@frames = @stream.get_num_frames

@mc = SWFMovieClip.new
@mc.add(@stream)

(@frames-1).times do
  @mc.next_frame
end

@m.add(@mc)
@m.next_frame

@m.save("video5.swf")
