pdflatexpicscale (27jul16)

git-svn-id: svn://tug.org/texlive/trunk@41779 c570f23f-e606-0410-a88d-b1316a301751

3 files changed, 236 insertions, 0 deletions

diff --git a/Master/texmf-dist/doc/support/pdflatexpicscale/README b/Master/texmf-dist/doc/support/pdflatexpicscale/README
new file mode 100644
index 00000000000..97d31c5d27a
--- /dev/null
+++ b/Master/texmf-dist/doc/support/pdflatexpicscale/README
@@ -0,0 +1,30 @@
+pdflatexpicscale is software to scale pictures down 
+to a target resolution before creating a PDF document
+with PdfLaTeX.
+
+*Requirements*
+Perl and ImageMagick have to be installed.
+
+*Basic usage*
+pdflatex article
+pdflatexpicscale.pl article
+edit article.tex: insert \graphicspath{{printimg/}}
+pdflatex article
+and you're done.
+
+For more information, please consult pdflatexpicscale.pdf.
+
+*File list*
+README               This file
+pdflatexpicscale.pl  Tool, perl code
+pdflatexpicscale.pdf Documentation (Installation and usage)
+testprinter.ps       Resolution test file for your PostScript printer
+
+*Licensing*
+pdflatexpicscale and the accompanying files are 
+subject to the current version of the
+LaTeX project public license (not included).
+
+*Author*
+Peter Willadt
+Email: willadt at t-online.de
diff --git a/Master/texmf-dist/doc/support/pdflatexpicscale/pdflatexpicscale.pdf b/Master/texmf-dist/doc/support/pdflatexpicscale/pdflatexpicscale.pdf
new file mode 100644
index 00000000000..1f8ab3029f0
--- /dev/null
+++ b/Master/texmf-dist/doc/support/pdflatexpicscale/pdflatexpicscale.pdf
diff --git a/Master/texmf-dist/doc/support/pdflatexpicscale/testprinter.ps b/Master/texmf-dist/doc/support/pdflatexpicscale/testprinter.ps
new file mode 100644
index 00000000000..e6e17254a0b
--- /dev/null
+++ b/Master/texmf-dist/doc/support/pdflatexpicscale/testprinter.ps
@@ -0,0 +1,206 @@
+%!PS
+% Halftone testing inspired by PS by Example P. 544 ff
+% Willadt 2016-07-27
+/prozente 20 string def
+
+/Palatino-Roman findfont
+36 scalefont
+setfont
+72 60 moveto
+(Gray scale test) show
+
+/Palatino-Roman findfont
+10 scalefont
+setfont
+
+444 60 moveto
+(Version 2016-07-27) show
+72 100 translate
+
+/raster
+{
+    5 mul
+    dup
+    0 60 moveto
+    0 setgray
+    prozente cvs show
+    ( lpi) show
+    0 {dup mul exch dup mul add 1 exch sub } setscreen
+    .45 setgray
+    0 0 moveto
+    0 50 lineto
+    10 50 lineto
+    10 0 lineto
+    closepath
+    fill
+    .5 setgray
+    10 0 moveto
+    10 50 lineto
+    20 50 lineto
+    20 0 lineto
+    closepath
+    fill
+    .55 setgray
+    20 0 moveto
+    20 50 lineto
+    30 50 lineto
+    30 0 lineto
+    closepath
+    fill
+    .6 setgray
+    30 0 moveto
+    30 50 lineto
+    40 50 lineto
+    40 0 lineto
+    closepath
+    fill
+    .65 setgray
+    40 0 moveto
+    40 50 lineto
+    50 50 lineto
+    50 0 lineto
+    closepath
+    fill
+    60 0 translate
+} def
+
+/rechteck
+{
+    0 0 moveto
+    0 50 lineto
+    40 50 lineto
+    40 0 lineto
+    closepath
+    dup
+%    gsave
+    setgray
+    fill
+%    grestore
+    100 mul
+    0 60 moveto
+    0 setgray
+    prozente cvs show
+    ( %) show
+    50 0 translate
+} def
+
+0    rechteck
+0.02 rechteck
+0.04 rechteck
+0.06 rechteck
+0.08 rechteck
+0.1 rechteck
+0.12 rechteck
+0.15 rechteck
+0.2 rechteck
+-450 80 translate
+0.8  rechteck
+0.85  rechteck
+0.88 rechteck
+0.9  rechteck
+0.92 rechteck
+0.94 rechteck
+0.96 rechteck
+0.98 rechteck
+1   rechteck
+-450 80 translate
+/Palatino-Roman findfont
+36 scalefont
+setfont
+0 0 moveto
+(Raster test) show
+0 0 moveto
+0 50 translate
+/Palatino-Roman findfont
+10 scalefont
+setfont
+
+0 setgray
+5 raster
+6 raster
+7 raster
+8 raster
+9 raster
+10 raster
+11 raster
+12 raster
+-480 70 translate
+13 raster
+14 raster
+15 raster
+16 raster
+17 raster
+18 raster
+19 raster
+20 raster
+-480 70 translate
+21 raster
+22 raster
+23 raster
+24 raster
+25 raster
+26 raster
+27 raster
+28 raster
+-480 70 translate
+0 setgray
+/Palatino-Roman findfont
+36 scalefont
+setfont
+0 0 moveto
+(Line test) show
+0 0 moveto
+0 50 translate
+/Palatino-Roman findfont
+10 scalefont
+setfont
+
+0 setlinewidth
+
+/linien
+{
+    0 60 moveto
+    5 mul
+    dup dup
+    prozente cvs show
+    ( lpi) show
+    0 exch 72 exch div 50 {
+	dup
+	0 moveto
+	50 lineto
+	stroke
+   }for
+   60 0 translate
+} def
+
+
+
+ 5 linien
+ 6 linien
+ 7 linien
+ 8 linien
+ 9 linien
+ 10 linien
+ 11 linien
+ 12 linien
+-480 70 translate
+ 13 linien
+ 14 linien
+ 15 linien
+ 16 linien
+ 17 linien
+ 18 linien
+ 19 linien
+ 20 linien
+ -480 70 translate
+ 21 linien
+ 22 linien
+ 23 linien
+ 24 linien
+ 25 linien
+ 26 linien
+ 27 linien
+ 28 linien
+
+
+showpage