# Reduce font size
s/fontsize=10/fontsize=8/g;
+##s/fontname="FreeSans.ttf"/fontname="Bitstream Vera Sans Mono"/g;
+s/fontname="FreeSans.ttf"/fontname="Verdana"/g;
+##s/fontname="FreeSans.ttf"/fontname="Lucida Sans Typewriter"/g;
# Wrap long labels (templates)
-if (/label=\"([^"]*)\"/) { #"])){ # To make emacs happy ...
+if (/label=\"([^"]*)\"/) { #"])){ # To make emacs happy ...
$pre=$`;
- $post=$'; #' # To make emacs happy ...
+ $post=$'; #'; # To make emacs happy ...
$label=$1;
# Break at each komma
# If more than one '<' is in the label, break after each '<'
if (($label=~tr/</</)>1) {
- $label=~s/</<\\r\\ \\ \\ \\ \\ \\ \\ \\ /g;
+ $label=~s/</<\\r\\ \\ \\ \\ \\ \\ \\ \\ /g;
}
# If at least one break is in there ...
if ($label=~/\\r/) {
- # Make last line flush right
- $label.="\\r";
- # and first line flush left
- $label=~s/\\r/\\l/;
+ # Make last line flush right
+ $label.="\\r";
+ # and first line flush left
+ $label=~s/\\r/\\ \\ \\ \\ \\ \\ \\ \\ \\l/;
}
print "${pre}label=\"${label}\"${post}";
} else {