TUT Scheme を使わずに, MIT Scheme を使う選択をされた方は, MIT-Scheme ではなく, MIT-Scheme-6001 をインストールして下さい.また, コースウェアは ArtDigita University の コースウエア のページにある Problem Set 4 のプログラム ( go.scm, hend.scm, hutils.scm, prmpnt.scm ) を使用して下さい. (動作確認済み)
これで, tk のウインドウが現れるはずです./staff/umatani/local/bin/tustk2
これで準備完了.(load '/staff/umatani/local/lib/tustk/demos/picl)
(load '/staff/umatani/local/lib/tustk/demos/picl-test)
サンプルプログラムは/staff/umatani/local/lib/tustk/demos にあります.
(make-canvas frm1)
(wave frm1)
(clear)
((square-limit wave 4) frm1)
(forget-canvas)
(make-canvas frm2
(wave frm2)
(clear)
((square-limit wave 1) frm2)
(output-cancas "ファイル名">
(load '/staff/umatani/local/lib/tustk/demos/5x5)
(load '/staff/umatani/local/lib/tustk/demos/segment.lsp)