流れ図（フローチャート）を描く

JIS規格のような矢印を描けませんが、データをつくるだけで簡易に表示できます。

!流れ図（フローチャート）を描く

PICTURE chart(n) !流れ図記号の基本図形
SELECT CASE n
CASE 1 !端子
PLOT LINES: -0.4,0.4; 0.4,0.4
PLOT LINES: -0.4,-0.4; 0.4,-0.4
DRAW arc(90,270) WITH SCALE(0.4)*SHIFT(-0.4,0)
DRAW arc(-90,90) WITH SCALE(0.4)*SHIFT(0.4,0)
CASE 2 !結合子
DRAW arc(0,360) WITH SCALE(0.4)
CASE 3 !処理
PLOT LINES: -0.8,-0.5; 0.8,-0.5; 0.8,0.5; -0.8,0.5; -0.8,-0.5
CASE 4 !定義済み処理
PLOT LINES: -0.8,-0.5; 0.8,-0.5; 0.8,0.5; -0.8,0.5; -0.8,-0.5
PLOT LINES: -0.75,-0.5; -0.75,0.5
PLOT LINES: 0.75,-0.5; 0.75,0.5
CASE 5 !判断
PLOT LINES: -0.8,0; 0,-0.6; 0.8,0; 0,0.6; -0.8,0
CASE 6,16 !繰り返しの開始
PLOT LINES: -0.8,-0.5; 0.8,-0.5; 0.8,0.5; 0.6,0.7; -0.6,0.7; -0.8,0.5; -0.8,-0.5
CASE 7,17 !繰り返しの終了
PLOT LINES: -0.8,0.7; 0.8,0.7; 0.8,-0.3; 0.6,-0.5; -0.6,-0.5; -0.8,-0.3; -0.8,0.7
CASE 8 !手操作入力
PLOT LINES: -0.8,-0.5; 0.8,-0.5; 0.8,0.7; -0.8,0.3; -0.8,-0.5
CASE 9 !表示
PLOT LINES: -0.8,-0.3; 0.8,-0.7; 0.8,0.7; -0.8,0.3; -0.8,-0.3
CASE 10 !入出力
PLOT LINES: -0.9,-0.5; 0.5,-0.5; 0.9,0.5; -0.5,0.5; -0.9,-0.5
CASE 23 !準備
PLOT LINES: -0.9,0; -0.7,-0.5; 0.7,-0.5; 0.9,0; 0.7,0.5; -0.7,0.5; -0.9,0;
CASE ELSE !13
END SELECT
END PICTURE
PICTURE arc(s,e) !円弧を描く
FOR i=s TO e
PLOT LINES: COS(RAD(i)),SIN(RAD(i));
NEXT i
PLOT LINES
END PICTURE

PICTURE ArrowAndComment(d,c$) !「矢印とその注釈」を描く
SET TEXT JUSTIFY "LEFT","HALF"
SELECT CASE d !方向
CASE 0 !右
DRAW arrow WITH SHIFT(0.7,0) !矢印
PLOT TEXT, AT 0.8,0.2: c$ !注釈
CASE 1 !上
DRAW arrow WITH ROTATE(PI/2)*SHIFT(0,0.4)
PLOT TEXT, AT 0.2,0.7: c$
CASE 2 !左
DRAW arrow WITH ROTATE(PI)*SHIFT(-0.7,0)
PLOT TEXT, AT -1.1,0.2: c$
CASE 3 !下
DRAW arrow WITH ROTATE(-PI/2)*SHIFT(0,-0.4)
PLOT TEXT, AT 0.2,-0.7: c$
CASE ELSE
END SELECT
END PICTURE
PICTURE arrow !矢印を描く
PLOT LINES: 0,0; 0.5,0
PLOT AREA: 0.5,0; 0.4,0.05; 0.4,-0.05
END PICTURE

流れ図（フローチャート）を描く	返事を書くノートメニュー
山中和義 <drdlxujciw> 2008/01/09 16:18:14 ** この記事は1回修正されてます
JIS規格のような矢印を描けませんが、データをつくるだけで簡易に表示できます。 !流れ図（フローチャート）を描く PICTURE chart(n) !流れ図記号の基本図形 SELECT CASE n CASE 1 !端子 PLOT LINES: -0.4,0.4; 0.4,0.4 PLOT LINES: -0.4,-0.4; 0.4,-0.4 DRAW arc(90,270) WITH SCALE(0.4)SHIFT(-0.4,0) DRAW arc(-90,90) WITH SCALE(0.4)SHIFT(0.4,0) CASE 2 !結合子 DRAW arc(0,360) WITH SCALE(0.4) CASE 3 !処理 PLOT LINES: -0.8,-0.5; 0.8,-0.5; 0.8,0.5; -0.8,0.5; -0.8,-0.5 CASE 4 !定義済み処理 PLOT LINES: -0.8,-0.5; 0.8,-0.5; 0.8,0.5; -0.8,0.5; -0.8,-0.5 PLOT LINES: -0.75,-0.5; -0.75,0.5 PLOT LINES: 0.75,-0.5; 0.75,0.5 CASE 5 !判断 PLOT LINES: -0.8,0; 0,-0.6; 0.8,0; 0,0.6; -0.8,0 CASE 6,16 !繰り返しの開始 PLOT LINES: -0.8,-0.5; 0.8,-0.5; 0.8,0.5; 0.6,0.7; -0.6,0.7; -0.8,0.5; -0.8,-0.5 CASE 7,17 !繰り返しの終了 PLOT LINES: -0.8,0.7; 0.8,0.7; 0.8,-0.3; 0.6,-0.5; -0.6,-0.5; -0.8,-0.3; -0.8,0.7 CASE 8 !手操作入力 PLOT LINES: -0.8,-0.5; 0.8,-0.5; 0.8,0.7; -0.8,0.3; -0.8,-0.5 CASE 9 !表示 PLOT LINES: -0.8,-0.3; 0.8,-0.7; 0.8,0.7; -0.8,0.3; -0.8,-0.3 CASE 10 !入出力 PLOT LINES: -0.9,-0.5; 0.5,-0.5; 0.9,0.5; -0.5,0.5; -0.9,-0.5 CASE 23 !準備 PLOT LINES: -0.9,0; -0.7,-0.5; 0.7,-0.5; 0.9,0; 0.7,0.5; -0.7,0.5; -0.9,0; CASE ELSE !13 END SELECT END PICTURE PICTURE arc(s,e) !円弧を描く FOR i=s TO e PLOT LINES: COS(RAD(i)),SIN(RAD(i)); NEXT i PLOT LINES END PICTURE PICTURE ArrowAndComment(d,c$) !「矢印とその注釈」を描く SET TEXT JUSTIFY "LEFT","HALF" SELECT CASE d !方向 CASE 0 !右 DRAW arrow WITH SHIFT(0.7,0) !矢印 PLOT TEXT, AT 0.8,0.2: c$ !注釈 CASE 1 !上 DRAW arrow WITH ROTATE(PI/2)SHIFT(0,0.4) PLOT TEXT, AT 0.2,0.7: c$ CASE 2 !左 DRAW arrow WITH ROTATE(PI)SHIFT(-0.7,0) PLOT TEXT, AT -1.1,0.2: c$ CASE 3 !下 DRAW arrow WITH ROTATE(-PI/2)*SHIFT(0,-0.4) PLOT TEXT, AT 0.2,-0.7: c$ CASE ELSE END SELECT END PICTURE PICTURE arrow !矢印を描く PLOT LINES: 0,0; 0.5,0 PLOT AREA: 0.5,0; 0.4,0.05; 0.4,-0.05 END PICTURE