X-Git-Url: http://git.megacz.com/?p=nestedvm.git;a=blobdiff_plain;f=doc%2Fcharts%2Fboxfill.pl;fp=doc%2Fcharts%2Fboxfill.pl;h=91b846489d6ccbbe08331ef17203eae31133dc7a;hp=0000000000000000000000000000000000000000;hb=078ff4840f2024d159a77080e966c7133517c908;hpb=3d0b454c857586f3b5e5d35df2d7de709353a6f2

diff --git a/doc/charts/boxfill.pl b/doc/charts/boxfill.pl
new file mode 100755
index 0000000..91b8464
--- /dev/null
+++ b/doc/charts/boxfill.pl
@@ -0,0 +1,259 @@
+#!/usr/bin/perl -w
+
+# Copyright 2001, Felix Ritter (Felix.Ritter@gmx.de)
+#
+# Original script (color mode) Copyright 2000,
+# Andreas Widmann (widmann@rz.uni-leipzig.de)
+#
+# This script is free software; permission to use, copy, modify, and
+# distribute this software and its documentation for any purpose without
+# fee is hereby granted, provided that both the above copyright notice
+# and this permission notice appear in all copies and in supporting
+# documentation.
+#
+# This software is provided "as is" without express or implied warranty
+# of any kind.
+
+#introstuff
+sub usage_info() {
+  print "gnuplot-boxfill.pl\n";
+  print "  fills (and outlines) boxes in gnuplot 3.7.1 postscript files\n";
+  print "usage:\n";
+  print "  gnuplot-boxfill.pl [-c | -g | -p] [-o] [-r] [-z] <ps_in> <ps_out>\n";
+  print "options:\n";
+  print "  -c         color fill (default)\n";
+  print "  -g         gray fill\n";
+  print "  -p         pattern fill\n";
+  print "  -o         draw outline\n";
+  print "  -r         remove \"currentpoint stroke M\" (experimental!)\n";
+  print "  -z         outline zero height boxes (experimental!)\n";
+  print "arguments:\n";
+  print "  <ps_in>    postscript input file\n";
+  print "  <ps_out>   postscript output file\n";
+}
+if ($#ARGV < 1) {
+  &usage_info();
+  exit(0);
+}
+
+$prolog = '/graymode true def
+
+/BfDict 400 dict def 
+
+/dpiranges   [  2540    2400    1693     1270    1200     635      600      0      ] def
+/PatFreq     [	10.5833 10.0     9.4055  10.5833 10.0	  10.5833  10.0	   9.375   ] def
+
+/dpi 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt def
+
+/screenIndex {
+	0 1 dpiranges length 1 sub { dup dpiranges exch get 1 sub dpi le {exit} {pop} ifelse } for
+} bind def
+
+/CurColors [ 0 0 0 1 0 0 0 1] def
+
+/RealSetgray /setgray load def
+/RealSetrgbcolor /setrgbcolor load def
+/RealSetcmykcolor {
+	4 1 roll
+	3 { 3 index add 0 max 1 min 1 exch sub 3 1 roll} repeat 
+	RealSetrgbcolor pop
+} bind def
+
+/tintCMYK {
+	1 tintGray sub CurColors 0 4 getinterval aload pop 	
+	4 index mul 5 1 roll										
+	3 index mul 5 1 roll										
+	2 index mul 5 1 roll										
+	mul 4 1 roll												
+}bind def
+/tintRGB {
+	1 tintGray sub CurColors 4 3 getinterval aload pop 	
+	1 exch sub 3 index mul 1 exch sub 4 1 roll					
+	1 exch sub 2 index mul 1 exch sub 4 1 roll					
+	1 exch sub mul 1 exch sub 3 1 roll							
+}bind def
+/combineColor {
+	/tintGray 1 1 CurGray sub CurColors 7 get mul sub def
+	graymode not {
+		[/Pattern [/DeviceCMYK]] setcolorspace
+		tintCMYK CurPat setcolor
+	} {
+		CurColors 3 get 1.0 ge {
+			tintGray RealSetgray
+		} {
+			graymode {
+				tintCMYK
+				RealSetcmykcolor
+			} {
+				tintRGB
+				RealSetrgbcolor
+			} ifelse
+		} ifelse
+	} ifelse
+} bind def
+
+/patProcDict 5 dict dup begin
+	<0f1e3c78f0e1c387> { 3 setlinewidth -1 -1 moveto 9 9 lineto stroke
+				4 -4 moveto 12 4 lineto stroke
+				-4 4 moveto 4 12 lineto stroke} bind def
+	<0f87c3e1f0783c1e> { 3 setlinewidth -1 9 moveto 9 -1 lineto stroke
+				-4 4 moveto 4 -4 lineto stroke
+				4 12 moveto 12 4 lineto stroke} bind def
+	<8142241818244281> { 1 setlinewidth -1 9 moveto 9 -1 lineto stroke
+				-1 -1 moveto 9 9 lineto stroke } bind def
+	<03060c183060c081> { 1 setlinewidth -1 -1 moveto 9 9 lineto stroke
+				4 -4 moveto 12 4 lineto stroke
+				-4 4 moveto 4 12 lineto stroke} bind def
+	<8040201008040201> { 1 setlinewidth -1 9 moveto 9 -1 lineto stroke
+				-4 4 moveto 4 -4 lineto stroke
+				4 12 moveto 12 4 lineto stroke} bind def
+end def
+/patDict 15 dict dup begin
+	/PatternType 1 def		
+	/PaintType 2 def		
+	/TilingType 3 def		
+	/BBox [ 0 0 8 8 ] def 	
+	/XStep 8 def			
+	/YStep 8 def			
+	/PaintProc {
+		begin
+		patProcDict bstring known {
+			patProcDict bstring get exec
+		} {
+			8 8 true [1 0 0 -1 0 8] bstring imagemask
+		} ifelse
+		end
+	} bind def
+end def
+
+/setPatternMode {
+	pop pop
+	dup patCache exch known {
+		patCache exch get
+	} { 
+		dup
+		patDict /bstring 3 -1 roll put
+		patDict 
+		65 PatFreq screenIndex get div dup matrix scale
+		makepattern
+		dup 
+		patCache 4 -1 roll 3 -1 roll put
+	} ifelse
+	/CurGray 0 def
+	/CurPat exch def
+	/graymode false def
+	combineColor
+} bind def
+/setGrayScaleMode {
+	graymode not {
+		/graymode true def
+	} if
+	/CurGray exch def
+	combineColor
+} bind def
+
+BfDict begin [
+	/fillvals
+] { 0 def } forall
+
+/SetPattern { 
+	fillvals exch get
+	dup type /stringtype eq
+	{8 1 setPatternMode} 
+	{setGrayScaleMode}
+	ifelse
+	} bind def
+
+/InitPattern {
+	BfDict begin dup
+	array /fillvals exch def
+	dict /patCache exch def
+	end
+	} def
+/DefPattern {
+	BfDict begin
+	fillvals 3 1 roll put
+	end
+	} def
+
+7 InitPattern
+0 <03060c183060c081> DefPattern
+1 <8040201008040201> DefPattern
+2 <0f1e3c78f0e1c387> DefPattern
+3 <0f87c3e1f0783c1e> DefPattern
+4 <8142241818244281> DefPattern
+5 <111111ff111111ff> DefPattern
+6 0 DefPattern';
+
+$outlinestyle = 'LTb';
+if(grep(/^-o$/, @ARGV) == 1) { $outline = "\ngsave\ncurrentpoint $outlinestyle M redo stroke\ngrestore" }
+else { $outline = '' }
+
+#read input file
+open(IN, $ARGV[$#ARGV - 1]) || die "Cannot open $ARGV[$#ARGV - 1]\n";
+$content = join('', <IN>);
+close(IN);
+
+#search patterns
+$key = '(-*\d+ -*\d+ M\n)(-*\d+)( -*\d+ V\n)(-*\d+ -*\d+ [RM]\n-*\d+ -*\d+ V\n-*\d+ -*\d+ V\n-*\d+ -*\d+ V\n-*\d+ -*\d+ V\n)';
+#$key = '(-*\d+ -*\d+ M\n)(-*\d+)( -*\d+ V\n)(-*\d+ -*\d+ [RM]\n-*\d+ -*\d+ V\n-*\d+ -*\d+ V\n)'; #experimental
+$box = '(?<!LTb)(\n-*\d+ -*\d+ [RM]\n)(-*\d+ -*\d+ V\n-*\d+ -*\d+ V\n-*\d+ -*\d+ V\n-*\d+ -*\d+ V)';
+#$box = '(?<!LTb)(\n-*\d+ -*\d+ [RM]\n)(-*\d+ -*\d+ V\n-*\d+ -*\d+ V\n-*\d+ -*\d+ [LV]\n-*\d+ -*\d+ V)'; #experimental
+$endComments = '(%%EndComments[ \t]*\n)';
+$sftextcmd = '(/[LRC]show *{)(.*\n.*)(}.*def)';
+$mftextcmd = '(/MFshow *{.*\n.*\n.*{)(show)(}.*\n.*} *bind *def)';
+$ltTable = '(/LT)([0-8])( { PL \[.*\] ).* DL( } def)';
+$bfDLPlace = '(/DL { Color)';
+
+#substitute comments
+$content =~ s/(%%Title: ).*$/$1$ARGV[$#ARGV]/m;
+$content =~ s/(%%Creator: ).*$/$1gnuplot-boxfill.pl/m;
+$content =~ s/(%%CreationDate: ).*$/$1.localtime()/em;
+
+#remove "currentpoint stroke M"
+if(grep(/^-r$/, @ARGV) == 1) { $content =~ s/\ncurrentpoint stroke M\n/\n/g }
+
+if(grep(/^-g$/, @ARGV) == 1) {
+  #modify colors
+  $content =~ s/$bfDLPlace/\/BfDL { Color {8 exch sub 4 div 1 sub 0.15 sub setgray Solid {pop []} if 0 setdash }\n {pop Solid {pop []} if 0 setdash} ifelse } def\n$1/;
+  $content =~ s/$ltTable/$1$2$3$2 BfDL$4/g;
+
+  #substitute boxplot commands
+  $content =~ s/$key/$1gsave\n\/redo \{0 vpt 1.25 div V $2 0 V 0 vpt 1.75 mul neg V $2 neg 0 V closepath\} bind def\ncurrentpoint M redo fill\ngrestore$outline\n$2 0 R\n$4/g;
+  $content =~ s/$box/$1gsave\n\/redo\{$2\} bind def\ncurrentpoint M redo fill\ngrestore$outline/g;
+
+  #modify text output commands
+  $content =~ s/$sftextcmd/$1gsave 0 setgray\n$2grestore\n$3/g;
+  $content =~ s/$mftextcmd/$1gsave 0 setgray $2 grestore$3/g;
+}
+elsif(grep(/^-p$/, @ARGV) == 1) {
+  #add postscript macros
+  $content =~ s/$endComments/$1$prolog\n/;
+
+  #modify colors
+  $content =~ s/$ltTable/$1$2$3$2 SetPattern$4/g;
+
+  #substitute boxplot commands
+  $content =~ s/$key/$1gsave\n\/redo \{0 vpt 1.25 div V $2 0 V 0 vpt 1.75 mul neg V $2 neg 0 V closepath\} bind def\ncurrentpoint currentpoint M redo gsave 1 setgray fill grestore M redo fill\ngrestore$outline\n$2 0 R\n$4/g;
+  $content =~ s/$box/$1gsave\n\/redo\{$2\} bind def\ncurrentpoint currentpoint M redo gsave 1 setgray fill grestore M redo fill\ngrestore$outline/g;
+
+  #modify text output commands
+  $content =~ s/$sftextcmd/$1gsave 0 setgray\n$2grestore\n$3/g;
+  $content =~ s/$mftextcmd/$1gsave 0 setgray $2 grestore$3/g;
+}
+else {
+  #substitute boxplot commands
+  $content =~ s/$key/$1gsave\n\/redo \{0 vpt 1.25 div V $2 0 V 0 vpt 1.75 mul neg V $2 neg 0 V closepath\} bind def\ncurrentpoint M redo fill\ngrestore$outline\n$2 0 R\n$4/g;
+  $content =~ s/$box/$1gsave\n\/redo\{$2\} bind def\ncurrentpoint M redo fill\ngrestore$outline/g;
+}
+
+#outline zero height boxes
+if(grep(/^-z$/, @ARGV) == 1) {
+  $boxshort = '(?<!LTb)(\n-*\d+ -*\d+ [RM]\n)(-*\d+ -*\d+ V\n-*\d+ -*\d+ V)(?!\n.*V\n)';
+  $content =~ s/$boxshort/$1gsave\n\/redo\{$2\} bind def\ncurrentpoint stroke M redo fill\ngrestore$outline/g;
+}
+
+#write to output file
+open(OUT, ">$ARGV[$#ARGV]") || die "Cannot open $ARGV[$#ARGV]\n";
+print OUT "$content";
+close(OUT);