require 'ming/ming'
include Ming

text = 'hj]d:k]K"D%hs'
SWFFont.font_path.push('/site/data/fonts/fdb/fonts_k')

m = SWFMovie.new
m.set_rate(6)
m.set_dimension(400, 100)

f = SWFFont.new('thyristor.fdb')

t = SWFText.new
t.set_font(f)
t.set_color(0x00, 0x70, 0xc0)
t.set_height(48)
t.add_string(text)
i = m.add(t)
width = t.get_width(text)
0.step(width + 400, width/20) do |x|
  i.move_to(400 - x, 80)
  m.next_frame
end

m.save('katakana.swf')