From 733b0e9dd1b32a7de63c20a446456262ebb549a1 Mon Sep 17 00:00:00 2001
From: Bernd Flemisch <bernd@iws.uni-stuttgart.de>
Date: Fri, 16 Jul 2010 14:33:22 +0000
Subject: [PATCH] added missing handbook files
git-svn-id: svn://svn.iws.uni-stuttgart.de/DUMUX/dumux/trunk@3858 2fb0f335-1f38-0410-981e-8018bf24f1b0
---
doc/handbook/EPS/Ex2_Boundary.eps | 238 +
doc/handbook/EPS/Ex2_Domain.eps | 240 +
doc/handbook/EPS/dunedesign.eps | 163154 +++++++++++++++
doc/handbook/EPS/exercise1_c.eps | 154 +
doc/handbook/EPS/masstransfer.eps | 1228 +
.../EPS/tutorial-problemconfiguration.eps | 818 +
.../ModelDescriptions/1p2cboxmodel.tex | 0
doc/handbook/ModelDescriptions/1pboxmodel.tex | 0
.../ModelDescriptions/2p2cboxmodel.tex | 0
.../ModelDescriptions/2p2cniboxmodel.tex | 0
doc/handbook/ModelDescriptions/2pboxmodel.tex | 0
.../ModelDescriptions/2pdecoupledmodel.tex | 0
.../ModelDescriptions/2pniboxmodel.tex | 0
.../ModelDescriptions/decoupled2p2c.tex | 0
.../ModelDescriptions/richardsboxmodel.tex | 0
doc/handbook/XFIG/Ex2_Boundary.fig | 44 +
doc/handbook/XFIG/Ex2_Domain.fig | 76 +
doc/handbook/XFIG/exercise1_c.fig | 37 +
doc/handbook/XFIG/exercise_1a.fig | 31 +
19 files changed, 166020 insertions(+)
create mode 100644 doc/handbook/EPS/Ex2_Boundary.eps
create mode 100644 doc/handbook/EPS/Ex2_Domain.eps
create mode 100644 doc/handbook/EPS/dunedesign.eps
create mode 100644 doc/handbook/EPS/exercise1_c.eps
create mode 100644 doc/handbook/EPS/masstransfer.eps
create mode 100644 doc/handbook/EPS/tutorial-problemconfiguration.eps
create mode 100644 doc/handbook/ModelDescriptions/1p2cboxmodel.tex
create mode 100644 doc/handbook/ModelDescriptions/1pboxmodel.tex
create mode 100644 doc/handbook/ModelDescriptions/2p2cboxmodel.tex
create mode 100644 doc/handbook/ModelDescriptions/2p2cniboxmodel.tex
create mode 100644 doc/handbook/ModelDescriptions/2pboxmodel.tex
create mode 100644 doc/handbook/ModelDescriptions/2pdecoupledmodel.tex
create mode 100644 doc/handbook/ModelDescriptions/2pniboxmodel.tex
create mode 100644 doc/handbook/ModelDescriptions/decoupled2p2c.tex
create mode 100644 doc/handbook/ModelDescriptions/richardsboxmodel.tex
create mode 100644 doc/handbook/XFIG/Ex2_Boundary.fig
create mode 100644 doc/handbook/XFIG/Ex2_Domain.fig
create mode 100644 doc/handbook/XFIG/exercise1_c.fig
create mode 100644 doc/handbook/XFIG/exercise_1a.fig
diff --git a/doc/handbook/EPS/Ex2_Boundary.eps b/doc/handbook/EPS/Ex2_Boundary.eps
new file mode 100644
index 0000000000..652614b5e5
--- /dev/null
+++ b/doc/handbook/EPS/Ex2_Boundary.eps
@@ -0,0 +1,238 @@
+%!PS-Adobe-2.0 EPSF-2.0
+%%Title: Ex2_Boundary.fig
+%%Creator: fig2dev Version 3.2 Patchlevel 5
+%%CreationDate: Fri Nov 14 16:44:03 2008
+%%For: melanie@alvine (Melanie Darcis)
+%%BoundingBox: 0 0 557 252
+%Magnification: 1.0000
+%%EndComments
+/MyAppDict 100 dict dup begin def
+/$F2psDict 200 dict def
+$F2psDict begin
+$F2psDict /mtrx matrix put
+/col-1 {0 setgray} bind def
+/col0 {0.000 0.000 0.000 srgb} bind def
+/col1 {0.000 0.000 1.000 srgb} bind def
+/col2 {0.000 1.000 0.000 srgb} bind def
+/col3 {0.000 1.000 1.000 srgb} bind def
+/col4 {1.000 0.000 0.000 srgb} bind def
+/col5 {1.000 0.000 1.000 srgb} bind def
+/col6 {1.000 1.000 0.000 srgb} bind def
+/col7 {1.000 1.000 1.000 srgb} bind def
+/col8 {0.000 0.000 0.560 srgb} bind def
+/col9 {0.000 0.000 0.690 srgb} bind def
+/col10 {0.000 0.000 0.820 srgb} bind def
+/col11 {0.530 0.810 1.000 srgb} bind def
+/col12 {0.000 0.560 0.000 srgb} bind def
+/col13 {0.000 0.690 0.000 srgb} bind def
+/col14 {0.000 0.820 0.000 srgb} bind def
+/col15 {0.000 0.560 0.560 srgb} bind def
+/col16 {0.000 0.690 0.690 srgb} bind def
+/col17 {0.000 0.820 0.820 srgb} bind def
+/col18 {0.560 0.000 0.000 srgb} bind def
+/col19 {0.690 0.000 0.000 srgb} bind def
+/col20 {0.820 0.000 0.000 srgb} bind def
+/col21 {0.560 0.000 0.560 srgb} bind def
+/col22 {0.690 0.000 0.690 srgb} bind def
+/col23 {0.820 0.000 0.820 srgb} bind def
+/col24 {0.500 0.190 0.000 srgb} bind def
+/col25 {0.630 0.250 0.000 srgb} bind def
+/col26 {0.750 0.380 0.000 srgb} bind def
+/col27 {1.000 0.500 0.500 srgb} bind def
+/col28 {1.000 0.630 0.630 srgb} bind def
+/col29 {1.000 0.750 0.750 srgb} bind def
+/col30 {1.000 0.880 0.880 srgb} bind def
+/col31 {1.000 0.840 0.000 srgb} bind def
+
+end
+save
+newpath 0 252 moveto 0 0 lineto 557 0 lineto 557 252 lineto closepath clip newpath
+-72.8 457.3 translate
+1 -1 scale
+
+% left30
+<<
+ /PatternType 1
+ /PaintType 2
+ /TilingType 2
+ /BBox [-2 -4 10 5]
+ /XStep 8
+ /YStep 4
+ /PaintProc
+ {
+ pop
+ newpath
+ .7 setlinewidth
+ -2 -1 moveto
+ 12 6 rlineto
+ stroke
+ } bind
+
+>>
+
+matrix
+makepattern
+/P1 exch def
+
+/cp {closepath} bind def
+/ef {eofill} bind def
+/gr {grestore} bind def
+/gs {gsave} bind def
+/sa {save} bind def
+/rs {restore} bind def
+/l {lineto} bind def
+/m {moveto} bind def
+/rm {rmoveto} bind def
+/n {newpath} bind def
+/s {stroke} bind def
+/sh {show} bind def
+/slc {setlinecap} bind def
+/slj {setlinejoin} bind def
+/slw {setlinewidth} bind def
+/srgb {setrgbcolor} bind def
+/rot {rotate} bind def
+/sc {scale} bind def
+/sd {setdash} bind def
+/ff {findfont} bind def
+/sf {setfont} bind def
+/scf {scalefont} bind def
+/sw {stringwidth} bind def
+/tr {translate} bind def
+/tnt {dup dup currentrgbcolor
+ 4 -2 roll dup 1 exch sub 3 -1 roll mul add
+ 4 -2 roll dup 1 exch sub 3 -1 roll mul add
+ 4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
+ bind def
+/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
+ 4 -2 roll mul srgb} bind def
+/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
+/$F2psEnd {$F2psEnteredState restore end} def
+
+$F2psBegin
+10 setmiterlimit
+0 slj 0 slc
+ 0.06299 0.06299 sc
+%
+% Fig objects follow
+%
+%
+% here starts figure with depth 50
+% Polyline
+0 slj
+0 slc
+7.500 slw
+n 3015 3870 m 8775 3870 l 8775 6615 l 3015 6615 l
+ cp gs col0 s gr
+% Polyline
+n 4095 4770 m 7650 4770 l 7650 5760 l 4095 5760 l
+ cp gs col31 1.00 shd ef gr gs col0 s gr
+% Polyline
+ [15 45] 45 sd
+n 3015 6615 m 8775 6615 l 8775 6795 l 3015 6795 l
+ cp
+% Fill with pattern background color
+gs /DeviceRGB setcolorspace 1.00 1.00 1.00 setcolor fill gr
+
+% Fill with pattern pen color
+gs /DeviceRGB setcolorspace 0.00 0.00 0.00 P1 setpattern fill gr
+
+gs col0 s gr [] 0 sd
+% Polyline
+ [15 45] 45 sd
+n 3015 3690 m 8775 3690 l 8775 3870 l 3015 3870 l
+ cp
+% Fill with pattern background color
+gs /DeviceRGB setcolorspace 1.00 1.00 1.00 setcolor fill gr
+
+% Fill with pattern pen color
+gs /DeviceRGB setcolorspace 0.00 0.00 0.00 P1 setpattern fill gr
+
+gs col0 s gr [] 0 sd
+% Polyline
+gs clippath
+9320 4462 m 9465 4462 l 9465 4357 l 9320 4357 l 9320 4357 l 9440 4410 l 9320 4462 l cp
+eoclip
+n 9000 4410 m
+ 9450 4410 l gs col0 s gr gr
+
+% arrowhead
+n 9320 4462 m 9440 4410 l 9320 4357 l col0 s
+% Polyline
+gs clippath
+9320 4867 m 9465 4867 l 9465 4762 l 9320 4762 l 9320 4762 l 9440 4815 l 9320 4867 l cp
+eoclip
+n 9000 4815 m
+ 9450 4815 l gs col0 s gr gr
+
+% arrowhead
+n 9320 4867 m 9440 4815 l 9320 4762 l col0 s
+% Polyline
+gs clippath
+9320 5272 m 9465 5272 l 9465 5167 l 9320 5167 l 9320 5167 l 9440 5220 l 9320 5272 l cp
+eoclip
+n 9000 5220 m
+ 9450 5220 l gs col0 s gr gr
+
+% arrowhead
+n 9320 5272 m 9440 5220 l 9320 5167 l col0 s
+% Polyline
+gs clippath
+9320 5722 m 9465 5722 l 9465 5617 l 9320 5617 l 9320 5617 l 9440 5670 l 9320 5722 l cp
+eoclip
+n 9045 5670 m
+ 9450 5670 l gs col0 s gr gr
+
+% arrowhead
+n 9320 5722 m 9440 5670 l 9320 5617 l col0 s
+% Polyline
+gs clippath
+9320 6127 m 9465 6127 l 9465 6022 l 9320 6022 l 9320 6022 l 9440 6075 l 9320 6127 l cp
+eoclip
+n 9045 6075 m
+ 9450 6075 l gs col0 s gr gr
+
+% arrowhead
+n 9320 6127 m 9440 6075 l 9320 6022 l col0 s
+% Polyline
+gs clippath
+9320 6532 m 9465 6532 l 9465 6427 l 9320 6427 l 9320 6427 l 9440 6480 l 9320 6532 l cp
+eoclip
+n 9045 6480 m
+ 9450 6480 l gs col0 s gr gr
+
+% arrowhead
+n 9320 6532 m 9440 6480 l 9320 6427 l col0 s
+% Polyline
+gs clippath
+9320 4057 m 9465 4057 l 9465 3952 l 9320 3952 l 9320 3952 l 9440 4005 l 9320 4057 l cp
+eoclip
+n 9000 4005 m
+ 9450 4005 l gs col0 s gr gr
+
+% arrowhead
+n 9320 4057 m 9440 4005 l 9320 3952 l col0 s
+/Times-Roman ff 190.50 scf sf
+5535 7245 m
+gs 1 -1 sc (no flow) col0 sh gr
+/Times-Roman ff 190.50 scf sf
+5535 3420 m
+gs 1 -1 sc (no flow) col0 sh gr
+/Times-Roman ff 190.50 scf sf
+9720 4995 m
+gs 1 -1 sc (qw) col0 sh gr
+/Times-Roman ff 190.50 scf sf
+9765 5490 m
+gs 1 -1 sc (qo) col0 sh gr
+/Times-Roman ff 190.50 scf sf
+1170 4815 m
+gs 1 -1 sc (pw) col0 sh gr
+/Times-Roman ff 190.50 scf sf
+1170 5310 m
+gs 1 -1 sc (S) col0 sh gr
+% here ends figure;
+$F2psEnd
+rs
+end
+showpage
+%%Trailer
+%EOF
diff --git a/doc/handbook/EPS/Ex2_Domain.eps b/doc/handbook/EPS/Ex2_Domain.eps
new file mode 100644
index 0000000000..aa1a824d07
--- /dev/null
+++ b/doc/handbook/EPS/Ex2_Domain.eps
@@ -0,0 +1,240 @@
+%!PS-Adobe-2.0 EPSF-2.0
+%%Title: Ex2_Domain.fig
+%%Creator: fig2dev Version 3.2 Patchlevel 5
+%%CreationDate: Fri Nov 14 16:45:34 2008
+%%For: melanie@alvine (Melanie Darcis)
+%%BoundingBox: 0 0 493 283
+%Magnification: 1.0000
+%%EndComments
+/$F2psDict 200 dict def
+$F2psDict begin
+$F2psDict /mtrx matrix put
+/col-1 {0 setgray} bind def
+/col0 {0.000 0.000 0.000 srgb} bind def
+/col1 {0.000 0.000 1.000 srgb} bind def
+/col2 {0.000 1.000 0.000 srgb} bind def
+/col3 {0.000 1.000 1.000 srgb} bind def
+/col4 {1.000 0.000 0.000 srgb} bind def
+/col5 {1.000 0.000 1.000 srgb} bind def
+/col6 {1.000 1.000 0.000 srgb} bind def
+/col7 {1.000 1.000 1.000 srgb} bind def
+/col8 {0.000 0.000 0.560 srgb} bind def
+/col9 {0.000 0.000 0.690 srgb} bind def
+/col10 {0.000 0.000 0.820 srgb} bind def
+/col11 {0.530 0.810 1.000 srgb} bind def
+/col12 {0.000 0.560 0.000 srgb} bind def
+/col13 {0.000 0.690 0.000 srgb} bind def
+/col14 {0.000 0.820 0.000 srgb} bind def
+/col15 {0.000 0.560 0.560 srgb} bind def
+/col16 {0.000 0.690 0.690 srgb} bind def
+/col17 {0.000 0.820 0.820 srgb} bind def
+/col18 {0.560 0.000 0.000 srgb} bind def
+/col19 {0.690 0.000 0.000 srgb} bind def
+/col20 {0.820 0.000 0.000 srgb} bind def
+/col21 {0.560 0.000 0.560 srgb} bind def
+/col22 {0.690 0.000 0.690 srgb} bind def
+/col23 {0.820 0.000 0.820 srgb} bind def
+/col24 {0.500 0.190 0.000 srgb} bind def
+/col25 {0.630 0.250 0.000 srgb} bind def
+/col26 {0.750 0.380 0.000 srgb} bind def
+/col27 {1.000 0.500 0.500 srgb} bind def
+/col28 {1.000 0.630 0.630 srgb} bind def
+/col29 {1.000 0.750 0.750 srgb} bind def
+/col30 {1.000 0.880 0.880 srgb} bind def
+/col31 {1.000 0.840 0.000 srgb} bind def
+
+end
+save
+newpath 0 283 moveto 0 0 lineto 493 0 lineto 493 283 lineto closepath clip newpath
+-132.3 508.2 translate
+1 -1 scale
+
+/cp {closepath} bind def
+/ef {eofill} bind def
+/gr {grestore} bind def
+/gs {gsave} bind def
+/sa {save} bind def
+/rs {restore} bind def
+/l {lineto} bind def
+/m {moveto} bind def
+/rm {rmoveto} bind def
+/n {newpath} bind def
+/s {stroke} bind def
+/sh {show} bind def
+/slc {setlinecap} bind def
+/slj {setlinejoin} bind def
+/slw {setlinewidth} bind def
+/srgb {setrgbcolor} bind def
+/rot {rotate} bind def
+/sc {scale} bind def
+/sd {setdash} bind def
+/ff {findfont} bind def
+/sf {setfont} bind def
+/scf {scalefont} bind def
+/sw {stringwidth} bind def
+/tr {translate} bind def
+/tnt {dup dup currentrgbcolor
+ 4 -2 roll dup 1 exch sub 3 -1 roll mul add
+ 4 -2 roll dup 1 exch sub 3 -1 roll mul add
+ 4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
+ bind def
+/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
+ 4 -2 roll mul srgb} bind def
+/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
+/$F2psEnd {$F2psEnteredState restore end} def
+
+$F2psBegin
+10 setmiterlimit
+0 slj 0 slc
+ 0.06299 0.06299 sc
+%
+% Fig objects follow
+%
+%
+% here starts figure with depth 50
+% Polyline
+0 slj
+0 slc
+7.500 slw
+n 3015 3870 m 8775 3870 l 8775 6615 l 3015 6615 l
+ cp gs col0 s gr
+% Polyline
+n 2610 3870 m
+ 2610 4950 l gs col0 s gr
+% Polyline
+n 2610 5535 m
+ 2610 6615 l gs col0 s gr
+% Polyline
+n 6435 3690 m
+ 8775 3690 l gs col0 s gr
+% Polyline
+n 4860 5805 m
+ 4860 6075 l gs col0 s gr
+% Polyline
+n 4860 6390 m
+ 4860 6615 l gs col0 s gr
+% Polyline
+n 3870 4770 m
+ 3870 5085 l gs col0 s gr
+% Polyline
+n 3870 5445 m
+ 3870 5760 l gs col0 s gr
+% Polyline
+n 3915 4770 m
+ 3780 4770 l gs col0 s gr
+% Polyline
+n 3915 5760 m
+ 3780 5760 l gs col0 s gr
+% Polyline
+n 3015 3690 m
+ 5355 3690 l gs col0 s gr
+% Polyline
+n 4140 4590 m
+ 5580 4590 l gs col0 s gr
+% Polyline
+n 6390 4590 m
+ 7650 4590 l gs col0 s gr
+% Polyline
+n 8550 5220 m
+ 8775 5220 l gs col0 s gr
+% Polyline
+n 7695 5220 m
+ 7920 5220 l gs col0 s gr
+% Polyline
+n 4095 4770 m 7650 4770 l 7650 5760 l 4095 5760 l
+ cp gs col31 1.00 shd ef gr gs col0 s gr
+% Polyline
+gs clippath
+6113 5413 m 5991 5322 l 5955 5370 l 6077 5461 l 6077 5461 l 6023 5383 l 6113 5413 l cp
+eoclip
+n 7965 6840 m
+ 5985 5355 l gs col0 s gr gr
+
+% arrowhead
+30.000 slw
+n 6113 5413 m 6023 5383 l 6077 5461 l 6119 5455 l 6113 5413 l
+ cp gs 0.00 setgray ef gr col0 s
+% Polyline
+7.500 slw
+gs clippath
+6073 6363 m 6196 6273 l 6161 6224 l 6038 6314 l 6038 6314 l 6129 6286 l 6073 6363 l cp
+eoclip
+n 5380 6827 m
+ 6167 6258 l gs col0 s gr gr
+
+% arrowhead
+30.000 slw
+n 6073 6363 m 6129 6286 l 6038 6314 l 6031 6356 l 6073 6363 l
+ cp gs 0.00 setgray ef gr col0 s
+% Polyline
+7.500 slw
+n 2700 3870 m
+ 2565 3870 l gs col0 s gr
+% Polyline
+n 2700 6615 m
+ 2565 6615 l gs col0 s gr
+% Polyline
+n 3015 3780 m
+ 3015 3600 l gs col0 s gr
+% Polyline
+n 8775 3780 m
+ 8775 3600 l gs col0 s gr
+% Polyline
+n 7650 4680 m
+ 7650 4500 l gs col0 s gr
+% Polyline
+n 4095 4680 m
+ 4095 4500 l gs col0 s gr
+% Polyline
+ [15 45] 45 sd
+n 2835 6840 m 6075 6840 l 6075 7875 l 2835 7875 l
+ cp gs col0 s gr [] 0 sd
+% Polyline
+ [15 45] 45 sd
+n 6615 6840 m 9900 6840 l 9900 8055 l 6615 8055 l
+ cp gs col0 s gr [] 0 sd
+/Times-Roman ff 190.50 scf sf
+7965 5265 m
+gs 1 -1 sc (L3x) col0 sh gr
+/Times-Roman ff 190.50 scf sf
+5670 4635 m
+gs 1 -1 sc (L2x) col0 sh gr
+/Times-Roman ff 190.50 scf sf
+5445 3780 m
+gs 1 -1 sc (L1x) col0 sh gr
+/Times-Roman ff 190.50 scf sf
+4455 6300 m
+gs 1 -1 sc (H2y) col0 sh gr
+/Times-Roman ff 190.50 scf sf
+3330 5310 m
+gs 1 -1 sc (H3y) col0 sh gr
+/Times-Roman ff 190.50 scf sf
+2115 5310 m
+gs 1 -1 sc (H1y) col0 sh gr
+/Times-Roman ff 190.50 scf sf
+2970 7695 m
+gs 1 -1 sc (Lin) col0 sh gr
+/Times-Roman ff 190.50 scf sf
+2970 7425 m
+gs 1 -1 sc (phi1) col0 sh gr
+/Times-Roman ff 190.50 scf sf
+2970 7155 m
+gs 1 -1 sc (K1) col0 sh gr
+/Times-Roman ff 190.50 scf sf
+6750 7155 m
+gs 1 -1 sc (K2) col0 sh gr
+/Times-Roman ff 190.50 scf sf
+6750 7380 m
+gs 1 -1 sc (phi2) col0 sh gr
+/Times-Roman ff 190.50 scf sf
+6750 7650 m
+gs 1 -1 sc (BC1) col0 sh gr
+/Times-Roman ff 190.50 scf sf
+6750 7920 m
+gs 1 -1 sc (BC2) col0 sh gr
+% here ends figure;
+$F2psEnd
+rs
+showpage
+%%Trailer
+%EOF
diff --git a/doc/handbook/EPS/dunedesign.eps b/doc/handbook/EPS/dunedesign.eps
new file mode 100644
index 0000000000..883f9e8026
--- /dev/null
+++ b/doc/handbook/EPS/dunedesign.eps
@@ -0,0 +1,163154 @@
+%!PS-Adobe-3.0 EPSF-3.0
+%%Creator: (ImageMagick)
+%%Title: (dunedesign.eps)
+%%CreationDate: (Thu Sep 25 19:52:47 2008)
+%%BoundingBox: 0 0 1544 1342
+%%HiResBoundingBox: 0 0 1544.49 1342
+%%DocumentData: Clean7Bit
+%%LanguageLevel: 1
+%%Pages: 1
+%%EndComments
+
+%%BeginDefaults
+%%EndDefaults
+
+%%BeginProlog
+%
+% Display a color image. The image is displayed in color on
+% Postscript viewers or printers that support color, otherwise
+% it is displayed as grayscale.
+%
+/DirectClassPacket
+{
+ %
+ % Get a DirectClass packet.
+ %
+ % Parameters:
+ % red.
+ % green.
+ % blue.
+ % length: number of pixels minus one of this color (optional).
+ %
+ currentfile color_packet readhexstring pop pop
+ compression 0 eq
+ {
+ /number_pixels 3 def
+ }
+ {
+ currentfile byte readhexstring pop 0 get
+ /number_pixels exch 1 add 3 mul def
+ } ifelse
+ 0 3 number_pixels 1 sub
+ {
+ pixels exch color_packet putinterval
+ } for
+ pixels 0 number_pixels getinterval
+} bind def
+
+/DirectClassImage
+{
+ %
+ % Display a DirectClass image.
+ %
+ systemdict /colorimage known
+ {
+ columns rows 8
+ [
+ columns 0 0
+ rows neg 0 rows
+ ]
+ { DirectClassPacket } false 3 colorimage
+ }
+ {
+ %
+ % No colorimage operator; convert to grayscale.
+ %
+ columns rows 8
+ [
+ columns 0 0
+ rows neg 0 rows
+ ]
+ { GrayDirectClassPacket } image
+ } ifelse
+} bind def
+
+/GrayDirectClassPacket
+{
+ %
+ % Get a DirectClass packet; convert to grayscale.
+ %
+ % Parameters:
+ % red
+ % green
+ % blue
+ % length: number of pixels minus one of this color (optional).
+ %
+ currentfile color_packet readhexstring pop pop
+ color_packet 0 get 0.299 mul
+ color_packet 1 get 0.587 mul add
+ color_packet 2 get 0.114 mul add
+ cvi
+ /gray_packet exch def
+ compression 0 eq
+ {
+ /number_pixels 1 def
+ }
+ {
+ currentfile byte readhexstring pop 0 get
+ /number_pixels exch 1 add def
+ } ifelse
+ 0 1 number_pixels 1 sub
+ {
+ pixels exch gray_packet put
+ } for
+ pixels 0 number_pixels getinterval
+} bind def
+
+/GrayPseudoClassPacket
+{
+ %
+ % Get a PseudoClass packet; convert to grayscale.
+ %
+ % Parameters:
+ % index: index into the colormap.
+ % length: number of pixels minus one of this color (optional).
+ %
+ currentfile byte readhexstring pop 0 get
+ /offset exch 3 mul def
+ /color_packet colormap offset 3 getinterval def
+ color_packet 0 get 0.299 mul
+ color_packet 1 get 0.587 mul add
+ color_packet 2 get 0.114 mul add
+ cvi
+ /gray_packet exch def
+ compression 0 eq
+ {
+ /number_pixels 1 def
+ }
+ {
+ currentfile byte readhexstring pop 0 get
+ /number_pixels exch 1 add def
+ } ifelse
+ 0 1 number_pixels 1 sub
+ {
+ pixels exch gray_packet put
+ } for
+ pixels 0 number_pixels getinterval
+} bind def
+
+/PseudoClassPacket
+{
+ %
+ % Get a PseudoClass packet.
+ %
+ % Parameters:
+ % index: index into the colormap.
+ % length: number of pixels minus one of this color (optional).
+ %
+ currentfile byte readhexstring pop 0 get
+ /offset exch 3 mul def
+ /color_packet colormap offset 3 getinterval def
+ compression 0 eq
+ {
+ /number_pixels 3 def
+ }
+ {
+ currentfile byte readhexstring pop 0 get
+ /number_pixels exch 1 add 3 mul def
+ } ifelse
+ 0 3 number_pixels 1 sub
+ {
+ pixels exch color_packet putinterval
+ } for
+ pixels 0 number_pixels getinterval
+} bind def
+
+/PseudoClassImage
+{
+ %
+ % Display a PseudoClass image.
+ %
+ % Parameters:
+ % class: 0-PseudoClass or 1-Grayscale.
+ %
+ currentfile buffer readline pop
+ token pop /class exch def pop
+ class 0 gt
+ {
+ currentfile buffer readline pop
+ token pop /depth exch def pop
+ /grays columns 8 add depth sub depth mul 8 idiv string def
+ columns rows depth
+ [
+ columns 0 0
+ rows neg 0 rows
+ ]
+ { currentfile grays readhexstring pop } image
+ }
+ {
+ %
+ % Parameters:
+ % colors: number of colors in the colormap.
+ % colormap: red, green, blue color packets.
+ %
+ currentfile buffer readline pop
+ token pop /colors exch def pop
+ /colors colors 3 mul def
+ /colormap colors string def
+ currentfile colormap readhexstring pop pop
+ systemdict /colorimage known
+ {
+ columns rows 8
+ [
+ columns 0 0
+ rows neg 0 rows
+ ]
+ { PseudoClassPacket } false 3 colorimage
+ }
+ {
+ %
+ % No colorimage operator; convert to grayscale.
+ %
+ columns rows 8
+ [
+ columns 0 0
+ rows neg 0 rows
+ ]
+ { GrayPseudoClassPacket } image
+ } ifelse
+ } ifelse
+} bind def
+
+/DisplayImage
+{
+ %
+ % Display a DirectClass or PseudoClass image.
+ %
+ % Parameters:
+ % x & y translation.
+ % x & y scale.
+ % label pointsize.
+ % image label.
+ % image columns &