%!PS % Halftone testing inspired by % McGilton, Henry and Campione, Mary: % PostScript by Example. % First printing, 1992, P. 544 ff % Willadt 2016-07-27 % version 2018-02-12 #version %version % for information on usage and changes see pdflatexpicscale.pdf /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