すでに気づいたことと思いますが、toolsユニットのForm3は表示させる必要はありません。というよりも実はtoolsユニットにはフォームは必要ありません。toolsは純粋に描画ツールの道具箱としての意味を持っている訳です。このようにユニットは有用なツールの入った"道具箱"と捉えることができます。
本節では、このtoolsに幾つかの描画ツール(手続き)を付け加えましょう。
基礎課題8-6 |
手続き Yoko と同様に、縦線を描く手続き Tate を tools ユニットの中に作りましょう。また、この手続きを control ユニットの ButtonDrawClick から次のように呼び出してください。
画面にはなんというアルファベットが表示されますか?
斜線を描く手続き Naname を tools ユニットの中に作ってください。また、この手続きを control ユニットの ButtonDrawClick から次のように呼び出してください。なお、下例は「(0, 10) から (60, 40) に向かって(赤色の)直線を描きなさい」という命令の場合です。
上で定義したNanameを用いて、正方形を描く手続き Square を tools ユニットの中に作りましょう。なお、この手続きは、
のように呼び出されます。上の例は、点(15, 25)を左上隅とし、一辺の長さが30の正方形を(赤線で)描くという意味です。