はじめてのMrEd - ボクノス

図形言語に向けて、ちょっとGUIの勉強を。

単体のMzSchemeではGUIが表示出来ないっぽいので、MrEd + MzSchemeなDrSchemeを使おうと思います。言語メニューからMrEdのあるScheme環境を選択してください。

線を引く

MrEd単体だとかなり面倒なので、Teachpacksに付属しているdraw.ssを使って線を描いてみます。

(require (lib "draw.ss" "htdp"))
(require (lib "posn.ss" "lang"))

(start 400 400)
(draw-solid-line (make-posn 1 1) (make-posn 400 400))

startでウィンドウ表示
make-posnはposn構造体を作る。
draw-solid-lineで、線を引く。

お手軽ですね。

とりあえず、線が引けるようになりました。

遊んでみよう!

これだけで随分遊べそうなので、ちょっと遊んでみる。

(require (lib "draw.ss" "htdp"))
(require (lib "posn.ss" "lang"))

(define (random-lines n)
  (cond ((> n 0)
         (draw-solid-line (make-posn 200 200)
                          (make-posn (random 400) (random 400)))
         (random-lines (- n 1)))))

(start 400 400)
(random-lines 100)