TclGDI

TclGDIはウインドウに図形を描画する機能です。

  1. はじめにキャンバスウインドウを作成します。
  2. 次にキャンバスにレイヤを登録します。レイヤには図形タイプを与えます。
  3. 次に、そのレイヤに図形オブジェクトを登録します。図形オブジェクトには座標値と属性値を与えます。
  4. このようにキャンバスはレイヤをコレクションし、レイヤは図形オブジェクトをコレクションするという関係にあります。

サンプルプログラム

サンプルプログラム

#=======================================================
# サンプルプログラム
#=======================================================
proc main {} {

  # ウインドウ作成
  set hwnd [gui window MAIN TestGDI 10 10 300 300]

  # キャンバス作成
  set canvas [gdi CreateCanvas $hwnd 0 0 250 250]

  # レイヤ作成
  set layer [gdi $canvas.newlayer LINE string]

  # ラインオブジェクト作成
  set obj [gdi $layer.newobj]
  gdi $obj.xy 0 0 100 100

  gui display MAIN
}


########## サンプルプログラム終了 ##################