# Ming/Slide 0.0.1
#

require 'ming/slide/slide'

load "~/.msdrc"
load "effect.mst"
load "default.mst"
# load "gradation.mst"

movie = SlideMovie.new("Ming/Slide")

slide = movie.newpage
slide.style = 'title'
slide.add('headline', "Ming/Slide", 1)
slide.add('headline', "池上 大介", 2)
slide.add('headline', "奈良先端科学技術大学院大学", 3)
slide.add('headline', "daisu-ik@is.aist-nara.ac.jp", 4)
slide.display

slide = movie.newpage
slide.style = 'plain'
# slide.effect = 'wipe_right'
slide.add('headline', "インストール", 1)
slide.add('textblock', "やる気をなくすくらい、いろいろ必要ですみません。")
slide.start('itemlist')
slide.add('itemlist', "日本語 TrueType フォント")
slide.add('itemlist', "Ming/Slide")
slide.add('itemlist', "Ming/Ruby")
slide.add('itemlist', "JaMing")
slide.add('itemlist', "RDtool")
slide.add('itemlist', "Ruby")
slide.end('itemlist')
slide.display

slide = movie.newpage
slide.style = 'plain'
# slide.effect = 'wipe_left'
slide.add('headline', "どんなもの?", 1)
slide.add('textblock', "RD フォーマットの原稿をだらだらと書けば,それがそのままスライドになります。RD の強みですね。")
slide.add('textblock', "原稿の見た目とスライドの見た目がとても近いです。")
slide.display

slide = movie.newpage
slide.style = 'plain'
# slide.effect = 'wipe_up'
slide.add('headline', "スライド作成手順", 1)
slide.add('textblock', "次の手順で RD の原稿が Flash スライドに変ります。")
slide.start('enumlist')
slide.add('enumlist', "RD で原稿を書きセーブする")
slide.add('enumlist', "% rd2swf hoge.rd")
slide.end('enumlist')
slide.add('textblock', "これだけ!")
slide.display

slide = movie.newpage
slide.style = 'plain'
# slide.effect = 'wipe_down'
slide.add('headline', "RD って?", 1)
slide.add('textblock', "こんなフォーマットのファイルです。")
slide.add('verbatim', "=begin")
slide.add('verbatim', "")
slide.add('verbatim', "= タイトル")
slide.add('verbatim', "")
slide.add('verbatim', "だらだらん")
slide.add('verbatim', "")
slide.add('verbatim', "* 箇条書き")
slide.add('verbatim', "* その 2")
slide.add('verbatim', "")
slide.add('verbatim', "=end")
slide.display

slide = movie.newpage
slide.style = 'plain'
slide.add('headline', "Flash に凝りたい", 1)
slide.add('textblock', "現在用意されているテーマは貧弱ですが、Ming/Ruby の文法を知っている人は、スライドを改良することができます。")
slide.add('textblock', "原稿 hoge.rd をコマンド rd2swf によって変換すると,中間表現ファイル hoge.msd ができているはずです。")
slide.add('textblock', "hoge.msdは実は Ruby スクリプトで、スライド構成要素を定義しています。")
slide.display

slide = movie.newpage
slide.style = 'plain'
slide.add('headline', "テーマを作りたい", 1)
slide.start('desclist')
slide.add('desclist', "テーマ")
slide.add('textblock', "スライドの構成要素や動作、表現効果などを記述するファイルのこと")
slide.end('desclist')
slide.add('textblock', "用意されているテーマ default.mst を参考に,オリジナルのテーマを作ることができるでしょう。")
slide.display

movie.save("slide.swf")