4 s/fontsize=10/fontsize=8/g;
5 ##s/fontname="FreeSans.ttf"/fontname="Bitstream Vera Sans Mono"/g;
6 s/fontname="FreeSans.ttf"/fontname="Verdana"/g;
7 ##s/fontname="FreeSans.ttf"/fontname="Lucida Sans Typewriter"/g;
9 # Wrap long labels (templates)
10 if (/label=\"([^"]*)\"/) { #"])){ # To make emacs happy ...
12 $post=$'; #'; # To make emacs happy ...
16 $label=~s/,/,\\r\\ \\ \\ \\ \\ \\ \\ \\ /g;
18 # If more than one '<' is in the label, break after each '<'
19 if (($label=~tr/</</)>1) {
20 $label=~s/</<\\r\\ \\ \\ \\ \\ \\ \\ \\ /g;
23 # If at least one break is in there ...
25 # Make last line flush right
27 # and first line flush left
28 $label=~s/\\r/\\ \\ \\ \\ \\ \\ \\ \\ \\l/;
30 print "${pre}label=\"${label}\"${post}";