[Scheme] SICPを読む(61) 図形言語の準備(2) アインシュタインがやってきた。

ぜぇぜぇ。興奮気味(笑

世界中飛び回って探しました。

University of Massachusetts LowellのHolly A. Yanco教授のページで公開されている図形言語は、なんと、「画像にも対応」しかもDrSchemeで動く!!

素晴らしいです。

Index of /~holly/91.301/Spring2006/ps4

改造する

DrSchemeなら問題なく動きますが、立ち上げるのが面倒なので、MrEd用に改造します。

primitives.scm

DrScheme用のオブジェクトに変換されているので、picture->snipをpicture->bitmapだけにします。

(define (picture->snip picture)
  (picture->bitmap picture))

ps4-ans.ss

僕の回答はこんな感じ。

;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Your answers here  ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;

(define window-size 512)
(define window (instantiate frame%
                            ("Yanco Picture Language with MrEd")
                            (width window-size)
                            (height window-size)))
(define canvas (instantiate canvas% (window)))
(define dc (send canvas get-dc))

(define (hi obj)
  (send dc draw-bitmap (paint-hi-res obj) 0 0 'solid))


(send window show #t)
(sleep/yield 1)


(hi (right-split einstein 4))

線でも画像でも表示出来るようになりました。これでアインシュタイン先生と一緒に図形言語のお勉強が出来ます。