graphviz - prepress-tips

　codeLayouterで graphvizの dot言語を使ってみる。

最終更新日時： 2009/07/02   

• 参考
• ダイアグラムのサンプル
• サンプルの作成

Edit

参考

• Graphviz Documentation
• 気の向くままにプログラミング - Graphviz チュートリアル

ダイアグラムのサンプル

s1.gif

s1.txt

/name ダイアグラム / s1.dot /?- ダイアグラムのサンプル /+ / digraph DG / 右方向に描く ; 矩形で描く / デフォルトのフォント ＭＳゴシック / { ルートA } / { Aの詳細 } { B1の詳細 } { B2の詳細 } * ルートA / / A1 [ "Ａ" ] ; * Aの詳細 / / circle = b1 -> b2 ; node = B1 B2 ; / A1 -> [ │ ] b1 ; / b1 -> B1 [ "あ" ] ; / b2 -> B2 [ "い" ] ; * B1の詳細 / / circle = c1 -> c2 -> c3 ; node = C1 C2 C3 ; node = CD1 ; / B1 -> [ ─ ] c1 ; / c1 -> [ "１" ] C1 [ "ａ" ] -> [ … ] CD1 [ "ａの説明" ] ; / c2 -> C2 [ "ｂ" ] ; / c3 -> C3 [ "ｃ" ] ; * B2の詳細 / / circle = d1 -> d2 -> d3 ; node = D1 D2 D3 ; / B2 -> [ ─ ] d1 ; / d1 -> D1 [ " ア 左寄せ" ] ; / d2 -> D2 [ "イ 右寄せ" ] ; / d3 -> D3 [ "ウ\lエ\rオ" ] ; /use / s1_detail.txt

      ※ 文字コードは シフトjis 。
          記述規則を変えているので 以下も参照してください。

記述規則の変更点

同一ランクのラベルのない circleノード と 矢印のないエッジ を同時に指定 circle = A ... B ; 同一ランクの ノードを指定 node = A ... B ; ノード と エッジ の属性指定順を入れ替え A [ p ] -> B のとき pは node A の属性を指定する A -> B [ p ] のとき pは node B の属性を指定する A -> [ p ] B のとき pは edge の属性を指定する エッジの属性 │ （縦罫線） 親と同じランクで 矢印なし ─ （横罫線） 親の１つ下で 矢印なし … （三点） 親の１つ下で 点線 矢印なし ラベルの属性 左寄せ \l 右寄せ \r

s1_detail.txt

/?- 変換規則 /?-- 描画の設定 * 右方向に描く / graph [ rankdir=LR ] * 矩形で描く / graph [ pack=true ] node [ shape=box , height=0.14 ] /?-- フォント * デフォルトのフォント(\s*)(\S+) / *~ node$1[$1$2$1];$1edge$1[$1$2$1] * ＭＳゴシック / /? どちらか有効な方を使う // fontname="MS Gothic" , fontsize=10 fontname="ＭＳ ゴシック" , fontsize=10 /?-- ラベル を省略表記 /? [ "p" ] * ([[]\s*)(".*?") / $1label=$2 /?-- 同一ランクのラベルのない circleノード と 矢印のないエッジ を同時に指定 /? circle = A ... B ; * circle(\s*)=([^;]*[^;\s])(\s*)(;|$) / *~ {$1node$1[$1label="",$1shape=circle$3];$1rank=same;$1edge$3[$1dir=none$3];$1$2} /?-- 同一ランクの ノードを指定 /? node = A ... B ; * node(\s*)=([^;]*[^;\s]\s*)(;|$) / {$1rank=same;$2} /?-- ノード と エッジ の属性指定順を入れ替え /? A [ p ] -> B のとき pは node A の属性を指定する /? A -> B [ p ] のとき pは node B の属性を指定する /? A -> [ p ] B のとき pは edge の属性を指定する * (\w+)(\s*[[][^]]*[]])(\s*)(->) / $1$2;$3$1$3$4 * (\w+\s*->)(\s*[[][^]]*[]])(\s*\w+) / $1$3$2;$3 * (\w+\s*->)(\s*\w+)(\s*[[][^]]*[]]) / $1$2;$2$3 /?-- エッジの属性 /? │ （縦罫線） 親と同じランクで 矢印なし /? ─ （横罫線） 親の１つ下で 矢印なし /? … （三点） 親の１つ下で 点線 矢印なし * │ / dir=none,constraint=false * ─ / dir=none * … / dir=none,style=dotted /?-- ラベルの属性 /? 左寄せ \l /? 右寄せ \r * 左寄せ(["|}]) / \l$1 * 右寄せ(["|}]) / \r$1

      ※ 文字コードは シフトjis 。

サンプルの作成

• s1.txt , s1_detail.txt から s1.dot , s1_utf8.dot を作成して dotを実行し
  s1.gif , s1.map を作ります。
• 文字コードの変換（ シフトjis ←→ utf8 ）は dot のエラーメッセージも含めて
  perlの Encode で行います。

s1_dot.bat

@echo off cd /d "%~dp0" set codeLayouter=c:\mytools\codeLayouter.exe set Graphviz=C:\Program Files\Graphviz2.22\bin\ path "%Graphviz%";%path% set fn=s1 echo new %fn% echo/ && "%codeLayouter%" %fn%.txt || ( pause && exit ) echo/ && echo adjust %fn% ( if exist _.txt del _.txt ) && ren %fn%.dot _.txt perl adjust_source.pl d < _.txt > %fn%.dot if exist _.txt del _.txt echo/ && echo to utf8 && ( perl -p ^ -e " BEGIN{ use Encode qw ' encode decode ' } " ^ -e " $_ = encode( 'utf8' , decode( 'cp932' , $_ ) ) ; "^ %fn%.dot > %fn%_utf8.dot ) echo/ && echo start dot dot "%fn%_utf8.dot" -Tcmapx -o "%fn%.map" -Tgif -o "%fn%.gif" 2>&1 | ( perl -p ^ -e " BEGIN{ use Encode qw ' encode decode ' } " ^ -e " $_ = encode( 'cp932' , decode( 'utf8' , $_ ) ) ; " ) rem dot "%~nx1" -Tsvg -o "%~n1.svg" :END echo/ && pause

adjust_source.pl

my $pl = ( 0 < @ARGV && $ARGV[0] =~ /^[p]$/i ); my $css = ( 0 < @ARGV && $ARGV[0] =~ /^[c]$/i ); my $js = ( 0 < @ARGV && $ARGV[0] =~ /^[j]$/i ); my $tag = ( 0 < @ARGV && $ARGV[0] =~ /^[t]$/i ); my $r = ( 0 < @ARGV && $ARGV[0] =~ /^[r]$/i ); my $dot = ( 0 < @ARGV && $ARGV[0] =~ /^[d]$/i ); while( ＜STDIN> ) { $pl && do { s,^(\s*)//,$1#,; s,^/\*,$1=pod,; s,^\*/,$1=cut,; s,^(\s*\{\s*)//,$1#,; s,^(?!\s*(?:my|our)\s)(\s*)(\S+\s*)\([^\)]*\)(\s*\{\s*)//,$1sub $2$3#,; s,^(?!\s*sub\s)(\s*[^\{;]*[^\{;\s])\s*;?\s*(\{\s*)//,$1 ; $2#,; s,^(?!\s*sub\s)(\s*[^\{;/]*;\s*)//,$1#,; }; $css && do { m,^[^{;]*;?\s*{\s*//, && ( s"^([^{;]*);?(\s*{\s*)//"$1$2/*", s"(?=$)" */" ); m,^\s*//, && ( s"^(\s*)//"$1/*", s"(?=$)" */" ); }; $js && do { s,^(\s*)(\S+\s*\([^\)]*\)\s*\{\s*)//,$1function $2//,; s,^(?!\s*function\s)(\s*[^\{;]*[^\{;\s])\s*;?\s*(\{\s*)//,$1 ; $2//,; }; $tag && m,^\s*//, && ( s/^\s*/$&<!-- /, s/$/ -->/ ), s,(>\s*);$,$1, ; $r && do { s,^(\s*\S+\s*)(\([^\)]*\)\s*\{\s*)//,$1 <- function $2#,; s,^(\s*\S+)(\s*)(;?\s*)//,$1 <- NULL$2; $3#,; s,^(\s*)//,$1#,; }; $dot && do { m,^[^{;]*;?\s*{\s*//, && ( s"^([^{;]*);?(\s*{\s*)//"$1$2/*", s"(?=$)" */" ); m,^\s*//, && ( s"^(\s*)//"$1/*", s"(?=$)" */" ); }; print; }

      ※ pl中の ＜ はすべて半角に置換すること。

Edit

---