図形を描く のバックアップ(No.3)

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• 現在との差分 - Visual を表示
• ソース を表示
• 図形を描く へ行く。
  • 1 (2011-11-23 (水) 18:58:18)
  • 2 (2011-11-24 (木) 01:49:29)
  • 3 (2011-11-24 (木) 03:10:59)
  • 4 (2011-11-24 (木) 11:41:29)

図形を作図するための手続きにはVectorworksのツールと同じように
さまざまな種類があります。

直線を描く

まず、手続きMoveToを使って直線を描き始める座標(ペン位置)を指定します。
次に手続きLineToを使って直線の終点座標を指定します。
手続き「Line」を使うと相対的な座標で指定できます。
手続きLineTo/Lineで直線を描いた後のペン座標には終点がセットされます。
LineTo/Lineを続けて使えば、連続した直線が描けます。
←　MoveTo　LineToの使い方

PROCEDURE TEST;
BEGIN
		MoveTo(0,0);
		LineTo(50,50);
END;
Run(TEST);

結果は上画像
例題プログラム

PROCEDURE TEST;
BEGIN
		MoveTo(0,0);
		LineTo(50,50);
		LineTo(100,0);
		Line(50,50);
END;
Run(TEST);

上記プログラムの実行結果

多角形を描く

手続きBeginPolyとEndPolyの間の行に手続きAddPointを使って頂点を追加します。
BeginPolyの前に手続きClosePolyを書くと多角形の始点と終点が閉じるようにできます。

例題プログラム

PROCEDURE TEST;
BEGIN
		ClosePoly;
		BeginPoly;
		AddPoint(0,30);
		AddPoint(40,10);
		AddPoint(20,-30);
		AddPoint(-20,-30);
		AddPoint(-40,10);
		EndPoly;
END;
Run(TEST);

上記プログラムの実行結果

円弧を描く

手続き「Arc」を使います。Arcでは6つのパラメータを指定します。
1番目から4番目までのパラメータは円弧に内接する四角形の座標です。
5番目のパラメータは円弧の開始角度です。
最後のパラメータは円弧の角度です。

PROCEDURE TEST;
BEGIN
		Arc(-50,50,50,-50,45,90);
		Arc(-50,50,50,-50,225,90);
END;
Run(TEST);

上記プログラムの実行結果

隅の丸い四角形を描く

手続き「RRect」を使います。
これもパラメータの1〜4番目までは四角形の座標です。
5・6番目のパラメータは隅を丸める円の直径です。

PROCEDURE TEST;
BEGIN
		RRect(-50,60,50,10,20,20);
		RRect(-50,-10,50,-60,30,10);
END;
Run(TEST);

上記プログラムの実行結果