SchemeからSwfの生成に成功したよ!

いままで色々がんばってきて、やっとSchemeからSwfに変換できるようになった。やった。

;; swf.scm
(define-class Hello flash.display.Sprite
  ((init) (let [(t (new flash.text.TextField))]
	    (invoke t appendText "Hello,world!!")
	    (invoke this addChild t))))

こんなコードが、

こうなる。

簡単な手順

1. scheme-abcでSchemeをABCに変換
2. abc2xmlでABCをXMLに変換
3. XMLをswf用のテンプレートに埋め込む
4. swfmill(SVN HEAD)でXMLをswfに変換