%!PS-Adobe-3.0 EPSF-3.0 TG720-7N %%BoundingBox: 70 82 785 585 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript Pictures: http://130.149.60.45/~farbmetrik/TG72/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2013120112000) /ModDate (D:2013120112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def %***************************************************************************** %ANFA /tzNW [0.000 0.067 0.132 0.200 0.267 0.333 0.400 0.467 0.533 0.600 0.667 0.733 0.800 0.867 0.933 1.000 0.000 0.250 0.500 0.750 1.000] def /tzWN [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzZW [0.500 0.533 0.567 0.600 0.633 0.667 0.700 0.733 0.767 0.800 0.833 0.867 0.900 0.933 0.967 1.000 0.500 0.625 0.750 0.875 1.000] def /tzWZ [1.000 0.967 0.933 0.900 0.867 0.833 0.800 0.767 0.733 0.700 0.667 0.633 0.600 0.567 0.533 0.500 1.000 0.875 0.750 0.625 0.500] def /tzNZ [0.000 0.033 0.067 0.100 0.133 0.167 0.200 0.233 0.267 0.300 0.333 0.367 0.400 0.433 0.467 0.500 0.000 0.125 0.250 0.375 0.500] def /tzZN [0.500 0.467 0.433 0.400 0.367 0.333 0.300 0.267 0.233 0.200 0.167 0.133 0.100 0.067 0.033 0.000 0.500 0.375 0.250 0.125 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE /tzaccmyw0l 64 array def /tzamcmyw0l 64 array def /tzaycmyw0l 64 array def /tzancmyw0l 64 array def /tzbocmyw0l 64 array def /tzblcmyw0l 64 array def /tzbvcmyw0l 64 array def /tzbncmyw0l 64 array def /tzaccmyw0l [ %Ccmyw0l01.dat 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 ] def /tzamcmyw0l [ %Mcmyw0l01.dat 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 ] def /tzaycmyw0l [ %Ycmyw0l01.dat 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 ] def /tzancmyw0l [ %Ncmyw0l01.dat 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 ] def /tzbocmyw0l [ %Ocmyw0l01.dat 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 ] def /tzblcmyw0l [ %Lcmyw0l01.dat 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 ] def /tzbvcmyw0l [ %Vcmyw0l01.dat 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 ] def /tzbncmyw0l [ %CMYcmyw0l01.dat 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 ] def /colrecfiw* %x y width heigth w* { 1.0 exp setgray rec fill} bind def /colrecstw* %x y width heigth w* { 1.0 exp setgray rec stroke} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tfnw* {tznw* setgray} def /tfww* {tzww* setgray} def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /cvishow {0.5 add cvi dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow0 {10 mul 0.5 add cvi 0.1 mul 6 string cvs show} def /cvsshow1 {10 mul 0.5 add cvi 0.1 mul dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow2 {100 mul 0.5 add cvi 0.01 mul dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow3 {1000 mul 0.5 add cvi 0.001 mul 6 string cvs show} def %END CM_S0LCMYS.DAT Linearization Method (LM) LOCAL (L) cmyolvnw*S DATA 20010401 %*********************************************************************************** %*********************************************************************************** /proc_rosetten {%BEG procedure rosetten %requires 0<=iout<=1 %requires deintp=0,1 /tfzw* {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add 1 exch sub 1.0 exp setgray} bind def 15 setlinewidth tfnw* 0 0 moveto 6000 0 rlineto 0 4000 rlineto -6000 0 rlineto closepath fill 0 0 moveto 12000 0 rlineto 0 8400 rlineto -12000 0 rlineto closepath stroke tfnw* TK 100 -230 moveto (TG720-3, ) show (Bild ) showde (Picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 3 ge {(A1) show}{(C1) show} ifelse (W) show Txx show %(\255) show colorm cvishow xcolor cvishow deintp cvishow %xchart xchart 8 idiv 8 mul sub cvishow %(\255) show xchart 8 idiv cvishow (: ) show TK (Element A: Radialgitter ) showde (Element A: radial gratings ) showen (Elemento A: rejillas radial ) showes (\311l\351ment A: \351toile de Siemens ) showfr (Elemento A: reticoli radiali ) showit (Element A: Radielt gitter ) showjp TIK (N-W, W-N, N-Z ) show TK (und ) showde (and ) showen (y ) showes (et ) showfr (i ) showit (og ) showjp TIK (W-Z) show TK (; ) show TIK (PS) show TK (\255Operator:) showde ( operator:) showen ( operator:) showes ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK ( rgb/cmy0) show TK %/ausz 7 def /half 0 def %Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 15 setlinewidth %neuer Rastermittelpunkt und Nullpunkt 3000 2100 translate %Zeichnen der Rosette C, Radius 1,8 cm, Zentralgrau tfzw* newpath 0 0 0500 0 360 arc closepath stroke newpath 0 0 1000 0 360 arc closepath stroke newpath 0 0 1500 0 360 arc closepath stroke 0 10 350 {newpath 0 0 moveto 0 0 1800 4 -1 roll dup 5 add arc closepath fill} for tfww* 25 setlinewidth newpath 0 0 0300 0 360 arc closepath stroke -3000 -2100 translate TBK tfww* 1300 0100 moveto (Radialgitter (Siemenssterne)) showde (radial gratings (Siemens\255stars)) showen (rejillas radial (Siemens estrellas)) showes (\351toile de Siemens) showfr (reticoli radiali (Siemens stelle)) showit (radielt gitter (Siemens-stjerner)) showjp TBIK ( N-Z) show TBK TBM 3000 550 add 2100 moveto (10) show 3000 1050 add 2100 moveto (20) show 3000 1550 add 2100 moveto (30) show 0000 4400 translate /tfzw* {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add 1 exch sub 1.0 exp setgray} bind def tfnw* 0 0 moveto 6000 0 rlineto 0 4000 rlineto -6000 0 rlineto closepath fill 0 0 moveto 6000 0 rlineto 0 4000 rlineto -6000 0 rlineto closepath stroke %neuer Rastermittelpunkt und Nullpunkt 3000 2100 translate %Zeichnen der Rosette C, Radius 1,8 cm, Zentralgrau tfww* newpath 0 0 0500 0 360 arc closepath stroke newpath 0 0 1000 0 360 arc closepath stroke newpath 0 0 1500 0 360 arc closepath stroke 0 10 350 {newpath 0 0 moveto 0 0 1800 4 -1 roll dup 5 add arc closepath fill} for tfnw* 25 setlinewidth newpath 0 0 0300 0 360 arc closepath stroke -3000 -2100 translate TBK tfww* 1300 0100 moveto (Radialgitter (Siemenssterne)) showde (radial gratings (Siemens\255stars)) showen (rejillas radial (Siemens estrellas)) showes (\351toile de Siemens) showfr (reticoli radiali (Siemens stelle)) showit (radielt gitter (Siemens-stjerner)) showjp TBIK ( N-W) show TBK TBM tfzw* 3000 550 add 2100 moveto (10) show 3000 1050 add 2100 moveto (20) show 3000 1550 add 2100 moveto (30) show -0000 -4400 translate 6000 4400 translate /tfzw* {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add 1 exch sub 1.0 exp setgray} bind def %neuer Rastermittelpunkt und Nullpunkt 3000 2100 translate %Zeichnen der Rosette C, Radius 1,8 cm, Zentralgrau tfnw* newpath 0 0 0500 0 360 arc closepath stroke newpath 0 0 1000 0 360 arc closepath stroke newpath 0 0 1500 0 360 arc closepath stroke 0 10 350 {newpath 0 0 moveto 0 0 1800 4 -1 roll dup 5 add arc closepath fill} for tfww* 25 setlinewidth newpath 0 0 0300 0 360 arc closepath stroke -3000 -2100 translate TBK tfnw* 1300 0100 moveto (Radialgitter (Siemenssterne)) showde (radial gratings (Siemens\255stars)) showen (rejillas radial (Siemens estrellas)) showes (\351toile de Siemens) showfr (reticoli radiali (Siemens stelle)) showit (radielt gitter (Siemens-stjerner)) showjp TBIK ( W-N) show TBK TBM tfzw* 3000 550 add 2100 moveto (10) show 3000 1050 add 2100 moveto (20) show 3000 1550 add 2100 moveto (30) show -6000 -4400 translate 6000 0000 translate /tfzw* {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add 1 exch sub 1.0 exp setgray} bind def %tfww* %0 0 moveto 6000 0 rlineto 0 4000 rlineto % -6000 0 rlineto closepath fill %neuer Rastermittelpunkt und Nullpunkt 3000 2100 translate %Zeichnen der Rosette C, Radius 1,8 cm, Zentralgrau tfzw* newpath 0 0 0500 0 360 arc closepath stroke newpath 0 0 1000 0 360 arc closepath stroke newpath 0 0 1500 0 360 arc closepath stroke 0 10 350 {newpath 0 0 moveto 0 0 1800 4 -1 roll dup 5 add arc closepath fill} for tfnw* 25 setlinewidth newpath 0 0 0300 0 360 arc closepath stroke -3000 -2100 translate TBK tfnw* 1300 0100 moveto (Radialgitter (Siemenssterne)) showde (radial gratings (Siemens\255stars)) showen (rejillas radial (Siemens estrellas)) showes (\351toile de Siemens) showfr (reticoli radiali (Siemens stelle)) showit (radielt gitter (Siemens-stjerner)) showjp TBIK ( W-Z) show TBK TBM 3000 550 add 2100 moveto (10) show 3000 1050 add 2100 moveto (20) show 3000 1550 add 2100 moveto (30) show -6000 -0000 translate } def %END proc_rosetten %********************************************************** /proc_05step {%BEG proc_05step %requires 0<=iout<=1 %requires deintp=0,1 /tfzw* {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add 1 exch sub 1.0 exp setgray} bind def 15 setlinewidth tfzw* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath fill tfnw* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath stroke tfnw* TK 100 -230 moveto (TG720-5, ) show (Bild ) showde (Picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 3 ge {(A2) show}{(C2) show} ifelse (W) show Txx show %(\255) show colorm cvishow xcolor cvishow deintp cvishow %xchart xchart 8 idiv 8 mul sub cvishow %(\255) show xchart 8 idiv cvishow (: ) show (Element B: 5 visuell gleichabst\344ndige ) showde (Element B: 5 visual equidistant ) showen (Elemento B: 5 equidistante ) showes (\311l\351ment B: 5 paliers de gris ) showfr (Elemento B: 5 equidistante ) showit (Element B: 5 visuelle ekvidistante ) showjp TIK (L*) show TK (\255Graustufen) showde (\255grey steps) showen ( pasos de gris) showes ( \350quidistante) showfr ( grigio passi) showit (\255gr\345trinn) showjp TIK ( + N0 + W1) show TK (; ) show TIK (PS) show TK (\255Operator:) showde ( operator:) showen ( operator:) showes ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK ( rgb/cmy0) show TK 15 setlinewidth /L*Nl 18.01 def %standard lightness black /L*Wl 95.41 def %standard lightness white /L*ND where {pop /L*Nl L*ND def} if /L*WD where {pop /L*Wl L*WD def} if /L*Dl L*Wl L*Nl sub def %range between white and black %%%%%%%%%%% oberer Schriftzug %%%%%%%%%%%%%%%% tfww* 80 3650 moveto TBIG (L*/Y) show -50 -50 rmoveto TBK colorm 0 eq { (Eingabe) showde %0TG72X-Y 0100# (input) showen %1TG72X-Y 0100# (entrada) showes %2TG72X-Y 0100# (entr\351e) showfr %3TG72X-Y 0100# (immettere) showit %4TG72X-Y 0100# (input) showjp %5TG72X-Y 0100# } if colorm 0 ne { (intended) showen (vorgesehen) showde (pretenden) showes (destin\361) showfr (destinati) showit (intendert) showjp } if 100 3200 moveto TBIK ((absolut)) showde ((absolute)) showen ((absoluta)) showes ((absolu)) showfr ((absoluta)) showit ((absolutt)) showjp 100 1200 moveto TBIG (w*=l*) show -150 -100 rmoveto TBIK (CIELAB, r) show 100 800 moveto TBIK ((relativ)) showde ((relative)) showen ((relativa)) showes ((relative)) showfr ((relativo)) showit ((relativ)) showjp 900 450 moveto TBIG (w*) show -150 -50 rmoveto TBK (Eingabe) showde %0TG72X-Y 0500# (input) showen %1TG72X-Y 0500# (entrada) showes %2TG72X-Y 0500# (entr\351e) showfr %3TG72X-Y 0500# (immettere) showit %4TG72X-Y 0500# (input) showjp %5TG72X-Y 0500# colorm 0 ne {900 100 moveto TBIG (w*) show -050 -50 rmoveto TBK (Ausgabe) showde %0TG72X-Y 0600# (output) showen %1TG72X-Y 0600# (salida) showes %2TG72X-Y 0600# (sortie) showfr %3TG72X-Y 0600# (uscita) showit %4TG72X-Y 0600# (output) showjp %5TG72X-Y 0600# } if 2200 600 translate %untere Reihe um +200, +200 verschoben bei dx=1000 von 1400 tfnw* /ntu [(0,000) (0,067) (0,133) (0,200) (0,267) (0,333) (0,400) (0,467) (0,533) (0,600) (0,667) (0,733) (0,800) (0,867) (0,933) (1,000) (0,000) (0,250) (0,500) (0,750) (1,000)] def /nto [18.01 23.17 28.33 33.49 38.65 43.81 48.97 54.13 59.29 64.45 69.61 74.77 79.93 85.09 90.25 95.41 18.01 37.36 56.71 76.06 95.41] def /nty [ 2.52 3.85 5.58 7.77 10.46 13.71 17.57 22.10 27.34 33.36 40.20 47.91 56.56 66.18 76.84 88.59 2.52 9.73 24.63 49.98 88.59] def /n* [(F) (E) (D) (C) (B) (A) (9) (8) (7) (6) (5) (4) (3) (2) (1) (0) (F) (B) (7) (3) (0)] def /cvs1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs} def /cvs3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs} def /ntu2 21 array def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /MTLoutaS0 21 array def /MTLoutaS1 21 array def /MTLoutaS2 21 array def /MTLoutaS0g where {pop 0 1 20 {/i exch def MTLoutaS0 i MTLoutaS0g i get put} for} {/MTLoutaS0 [18.0 23.2 28.3 33.5 38.6 43.8 49.0 54.1 59.3 64.4 69.6 74.8 79.9 85.1 90.2 95.4 18.0 37.3 56.7 76.0 95.4] def } ifelse /MTLoutaS1g where {pop 16 1 20 {/i exch def i 16 eq {MTLoutaS1 i MTLoutaS1g 0 get put} if i 17 eq {MTLoutaS1 i MTLoutaS1g 3 get 0.25 mul MTLoutaS1g 4 get 0.75 mul add put} if i 18 eq {MTLoutaS1 i MTLoutaS1g 7 get 0.50 mul MTLoutaS1g 8 get 0.50 mul add put} if i 19 eq {MTLoutaS1 i MTLoutaS1g 11 get 0.75 mul MTLoutaS1g 12 get 0.25 mul add put} if i 20 eq {MTLoutaS1 i MTLoutaS1g 15 get put} if } for} {16 1 20 {/i exch def MTLoutaS1 i MTLoutaS0 i get put} for } ifelse /MTLoutaS2g where {pop 16 1 20 {/i exch def i 16 eq {MTLoutaS2 i MTLoutaS2g 0 get put} if i 17 eq {MTLoutaS2 i MTLoutaS2g 3 get 0.25 mul MTLoutaS2g 4 get 0.75 mul add put} if i 18 eq {MTLoutaS2 i MTLoutaS2g 7 get 0.50 mul MTLoutaS2g 8 get 0.50 mul add put} if i 19 eq {MTLoutaS2 i MTLoutaS2g 11 get 0.75 mul MTLoutaS2g 12 get 0.25 mul add put} if i 20 eq {MTLoutaS2 i MTLoutaS2g 15 get put} if } for} {16 1 20 {/i exch def MTLoutaS2 i MTLoutaS1 i get put} for } ifelse 16 1 20 {/i exch def %i=16,20 colorm 0 eq {nto i i 16 sub 4 div MTLoutaS0 20 get MTLoutaS0 16 get sub mul MTLoutaS0 16 get add put /Y* {MTLoutaS0 i get 16 add 116 div} bind def } {nto i i 16 sub 4 div MTLoutaS1 20 get MTLoutaS1 16 get sub mul MTLoutaS1 16 get add put /Y* {MTLoutaS1 i get 16 add 116 div} bind def } ifelse nty i Y* DecodeXYZ* 100.00 mul put } for %i=0,15 16 1 20 {/i exch def %i=16,20 ntu2 i MTLoutaS2 i get MTLoutaS2 16 get sub MTLoutaS2 20 get MTLoutaS2 16 get sub div put } for %i=16,20 TBM tfww* /iy0 0 def 0 1 06 {/j exch def /ix0 j 1400 mul def ix0 100 add iy0 250 sub moveto j 4 le {ntu 16 j add get show colorm 0 ne xcolor 1 eq and {ix0 100 add iy0 500 sub moveto ntu2 16 j add get cvs3 show} if } if 5 j eq {-150 0 rmoveto TBIM (N) show 0 -50 rmoveto TBIK (0) show 50 50 rmoveto TBIM ((min.)) show 100 0 rmoveto } if 6 j eq {-150 0 rmoveto TBIM (W) show 0 -50 rmoveto TBIK (1) show 50 50 rmoveto TBIM ((max.)) show 100 0 rmoveto } if } for %j TBM tfww* /iy0 3050 def 0 1 06 {/j exch def /ix0 100 j 1400 mul add def ix0 200 sub iy0 moveto j 4 le {nto 16 j add get cvs1 show (/) show xcolor 0 eq {nty 16 j add get cvs1 show} {colorm 0 ne {MTLoutaS2 16 j add get cvs1 show} {nty 16 j add get cvs1 show} ifelse } ifelse } if 5 j eq {-150 0 rmoveto TBIM (N) show 0 -50 rmoveto TBIK (0) show 50 50 rmoveto TBIM ((min.)) show 100 0 rmoveto} if 6 j eq {-150 0 rmoveto TBIM (W) show 0 -50 rmoveto TBIK (1) show 50 50 rmoveto TBIM ((max.)) show 100 0 rmoveto} if } for %j TBG tfnw* /iy0 0 def /s 1000 def 0 1 06 {/j exch def /ix0 j 1400 mul def ix0 iy0 s s 1 j eq {tzancmyw0l 03 48 add get 0.2500 mul tzancmyw0l 04 48 add get 0.7500 mul add} if 2 j eq {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add} if 3 j eq {tzancmyw0l 11 48 add get 0.7500 mul tzancmyw0l 12 48 add get 0.2500 mul add} if 0 j eq 5 j eq or {tzancmyw0l 0 48 add get} if 4 j eq 6 j eq or {tzancmyw0l 15 48 add get} if 1 exch sub colrecfiw* j 2 eq { %white arround mean grey ix0 iy0 s s 1.0 colrecstw*} if } for %j /s 1400 def /iy0 1500 def 0 1 06 {/j exch def /ix0 j 1400 mul 200 sub def ix0 iy0 s s 1 j eq {tzancmyw0l 03 48 add get 0.2500 mul tzancmyw0l 04 48 add get 0.7500 mul add} if 2 j eq {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add} if 3 j eq {tzancmyw0l 11 48 add get 0.7500 mul tzancmyw0l 12 48 add get 0.2500 mul add} if 0 j eq 5 j eq or {tzancmyw0l 0 48 add get} if 4 j eq 6 j eq or {tzancmyw0l 15 48 add get} if 1 exch sub colrecfiw* } for %j /s 0700 def /iy0 1850 def 0 1 06 {/j exch def /ix0 j 1400 mul 200 sub 350 add def ix0 iy0 s s 1 j eq {tzancmyw0l 03 48 add get 0.2500 mul tzancmyw0l 04 48 add get 0.7500 mul add} if 2 j eq {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add} if 3 j eq {tzancmyw0l 11 48 add get 0.7500 mul tzancmyw0l 12 48 add get 0.2500 mul add} if 0 j eq 5 j eq or {tzancmyw0l 0 48 add get} if 4 j eq 6 j eq or {tzancmyw0l 15 48 add get} if dup dup 0 % 0 0 0 0 setcmykcolor rec fill } for %j -2200 -600 translate } def %END proc_05step %********************************************************** /proc_16step {%BEG proc_16step %requires 0<=iout<=1 %requires deintp=0,1 /tfzw* {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add 1 exch sub 1.0 exp setgray} bind def 15 setlinewidth tfzw* 0 0 moveto 24800 0 rlineto 0 4000 rlineto -24800 0 rlineto closepath fill tfnw* 0 0 moveto 24800 0 rlineto 0 4000 rlineto -24800 0 rlineto closepath stroke tfnw* TK 100 -230 moveto (TG720-7, ) show (Bild ) showde (Picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 3 ge {(A3) show}{(C3) show} ifelse (W) show Txx show %(\255) show colorm cvishow xcolor cvishow deintp cvishow %xchart xchart 8 idiv 8 mul sub cvishow %(\255) show xchart 8 idiv cvishow (: ) show (Element C: 16 visuell gleichabst\344ndige ) showde (Element C: 16 visual equidistant ) showen (Elemento C: 16 equidistante ) showes (\311l\351ment C: 16 paliers de gris ) showfr (Elemento C: 16 equidistante ) showit (Element C: 16 visuelle ekvidistante ) showjp TIK (L*) show TK (\255Graustufen) showde (\255grey steps) showen ( pasos de gris) showes ( \350quidistante) showfr ( grigio passi) showit (\255gr\345trinn) showjp TK (; ) show TIK (PS) show TK (\255Operator:) showde ( operator:) showen ( operator:) showes ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK ( rgb/cmy0) show TK /cvs0 {cvi 7 string cvs} def 15 setlinewidth /L*Nl 18.01 def %standard lightness black /L*Wl 95.41 def %standard lightness white /L*ND where {pop /L*Nl L*ND def} if /L*WD where {pop /L*Wl L*WD def} if /L*Dl L*Wl L*Nl sub def %range between white and black %%%%%%%%%%% oberer Schriftzug %%%%%%%%%%%%%%%% tfww* 100 3650 moveto TBIG (L*/Y) show -50 -50 rmoveto TBK colorm 0 eq { (Eingabe) showde %0TG72X-Y 0100# (input) showen %1TG72X-Y 0100# (entrada) showes %2TG72X-Y 0100# (entr\351e) showfr %3TG72X-Y 0100# (immettere) showit %4TG72X-Y 0100# (input) showjp %5TG72X-Y 0100# 50 50 rmoveto} if colorm 0 ne { (intended) showen (vorgesehen) showde (pretenden) showes (destin\361) showfr (destinati) showit (intendert) showjp 50 50 rmoveto} if 100 3200 moveto TBIK ((absolut)) showde ((absolute)) showen ((absoluta)) showes ((absolu)) showfr ((absoluta)) showit ((absolutt)) showjp 100 1950 moveto TBK (Nr. und) showde (No. and) showen (NO y) showes (No et) showfr (N. e) showit (Nr. og) showjp 100 1650 moveto TBK (Hex\255Code) showde (Hex code) showen (c\363digo Hex) showes (code Hex) showfr (codige Hex) showit (Hex\255code) showjp 100 1200 moveto TBIG (w*=l*) show -150 -100 rmoveto TBIK (CIELAB, r) show 100 800 moveto TBIK ((relativ)) showde ((relative)) showen ((relativa)) showes ((relative)) showfr ((relativo)) showit ((relativ)) showjp 900 450 moveto TBIG (w*) show -150 -50 rmoveto TBK (Eingabe) showde %0TG72X-Y 0500# (input) showen %1TG72X-Y 0500# (entrada) showes %2TG72X-Y 0500# (entr\351e) showfr %3TG72X-Y 0500# (immettere) showit %4TG72X-Y 0500# (input) showjp %5TG72X-Y 0500# colorm 0 ne {900 100 moveto TBIG (w*) show -050 -50 rmoveto TBK (Ausgabe) showde %0TG72X-Y 0600# (output) showen %1TG72X-Y 0600# (salida) showes %2TG72X-Y 0600# (sortie) showfr %3TG72X-Y 0600# (uscita) showit %4TG72X-Y 0600# (output) showjp %5TG72X-Y 0600# } if 2200 600 translate %untere Reihe um +200, +200 verschoben bei dx=1000 von 1400 tfnw* /ntu [(0,000) (0,067) (0,133) (0,200) (0,267) (0,333) (0,400) (0,467) (0,533) (0,600) (0,667) (0,733) (0,800) (0,867) (0,933) (1,000) (0,000) (0,250) (0,500) (0,750) (1,000)] def /nto [18.01 23.17 28.33 33.49 38.65 43.81 48.97 54.13 59.29 64.45 69.61 74.77 79.93 85.09 90.25 95.41 18.01 37.36 56.71 76.06 95.41] def /nty [ 2.52 3.85 5.58 7.77 10.46 13.71 17.57 22.10 27.34 33.36 40.20 47.91 56.56 66.18 76.84 88.59 2.52 9.73 24.63 49.98 88.59] def /n* [(00;F) (01;E) (02;D) (03;C) (04;B) (05;A) (06;9) (07;8) (08;7) (09;6) (10;5) (11;4) (12;3) (13;2) (14;1) (15;0) (00;F) (01;B) (02;7) (03;3) (04;0)] def /cvs1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs} def /cvs3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs} def /ntu2 16 array def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /MTLoutaS0 16 array def /MTLoutaS1 16 array def /MTLoutaS2 16 array def /MTLoutaS0g where {pop 0 1 15 {/i exch def MTLoutaS0 i MTLoutaS0g i get put} for} {/MTLoutaS0 [18.0 23.2 28.3 33.5 38.6 43.8 49.0 54.1 59.3 64.4 69.6 74.8 79.9 85.1 90.2 95.4] def } ifelse /MTLoutaS1g where {pop 0 1 15 {/i exch def MTLoutaS1 i MTLoutaS1g i get put} for} {0 1 15 {/i exch def MTLoutaS1 i MTLoutaS0 i get put} for } ifelse /MTLoutaS2g where {pop 0 1 15 {/i exch def MTLoutaS2 i MTLoutaS2g i get put} for} {0 1 15 {/i exch def MTLoutaS2 i MTLoutaS1 i get put} for } ifelse 0 1 15 {/i exch def %i=0,15 colorm 0 eq {nto i i 0 sub 15 div MTLoutaS0 15 get MTLoutaS0 0 get sub mul MTLoutaS0 0 get add put /Y* {nto i get 16 add 116 div} bind def } {nto i i 0 sub 15 div MTLoutaS1 15 get MTLoutaS1 0 get sub mul MTLoutaS1 0 get add put /Y* {nto i get 16 add 116 div} bind def } ifelse nty i Y* DecodeXYZ* 100.00 mul put } for %i=0,15 0 1 15 {/i exch def %i=0,15 ntu2 i MTLoutaS2 i get MTLoutaS2 0 get sub MTLoutaS2 15 get MTLoutaS2 0 get sub div put } for %i=0,15 TBM tfww* /iy0 0 def 0 1 15 {/j exch def /ix0 j 1400 mul def ix0 100 add iy0 250 sub moveto ntu j get show colorm 0 ne xcolor 1 eq and {ix0 100 add iy0 500 sub moveto ntu2 j get cvs3 show } if } for %j /iy0 3050 def 0 1 15 {/j exch def /ix0 300 j 1400 mul add def ix0 400 sub iy0 moveto nto j get cvs1 show (/) show xcolor 0 eq {nty j get cvs1 show} {colorm 0 ne {MTLoutaS2 j get cvs1 show} {nty j get cvs1 show} ifelse } ifelse } for %j TBG tfnw* /iy0 0 def 0 1 15 {/j exch def /ix0 400 j 1400 mul add def ix0 300 sub iy0 1150 add moveto n* j get show } for %j /s 1000 def 0 1 15 {/j exch def /ix0 j 1400 mul def ix0 iy0 s s tzancmyw0l j 48 add get 1 exch sub colrecfiw* j 7 eq j 8 eq or { %white arround mean grey ix0 iy0 s s 1.0 colrecstw*} if } for %j /s 1400 def /iy0 1500 def 0 1 15 {/j exch def /ix0 j 1400 mul 200 sub def ix0 iy0 s s tzancmyw0l j 48 add get 1 exch sub colrecfiw* } for %j /s 0700 def /iy0 1850 def 0 1 15 {/j exch def /ix0 j 1400 mul 200 sub 350 add def ix0 iy0 s s tzancmyw0l j 48 add get dup dup 0 % 0 0 0 0 setcmykcolor rec fill } for %j -2200 -600 translate } def %END proc_16step %********************************************************** /proc_Landolt { %BEG proc_Landolt %requires 0<=iout<=1 %requires deintp=0,1 15 setlinewidth tfww* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath fill tfnw* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath stroke tfnw* TK 100 -230 moveto (TG721-1, ) show (Bild ) showde (Picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 3 ge {(A4) show}{(C4) show} ifelse (W) show Txx show %(\255) show colorm cvishow xcolor cvishow deintp cvishow %xchart xchart 8 idiv 8 mul sub cvishow %(\255) show xchart 8 idiv cvishow (: ) show (Element D: Landoltringe ) showde (Element D: Landolt\255rings ) showen (Elemento D: anillos de Landolt ) showes (\311l\351ment D: anneaux Landolt ) showfr (Elemento D: anelli di Landolt ) showit (Element D: Landoltringer ) showjp TIK (W\255N) show TK (; ) show TIK (PS) show TK (\255Operator:) showde ( operator:) showen ( operator:) showes ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK ( rgb/cmy0) show TK TBIK 200 3500 moveto (Umfeldstufe) showde (background step) showen (paso fondo) showes (\351chelonnement du) showfr (lo sfondo passo) showit (omfelt-trinn) showjp 200 3200 moveto (Hex\255Code) showde (Hex code) showen (C\363digo Hexadecimal) showes (font code hex) showfr (codice esadecimale) showit (Hex\255code) showjp TBK 4100 50 moveto (Landoltringe ) showde (Landolt\255rings ) showen (anillos de Landolt ) showes (anneaux Landolt ) showfr (anelli di Landolt ) showit (Landoltringer ) showjp TBIK (W-N) show 8200 3500 moveto (Ringstufe) showde (ring step) showen (paso del anillo) showes (\351chelonnement) showfr (anello passo) showit (ring-trinn) showjp 8200 3200 moveto (Hex\255Code) showde (Hex code) showen (C\363digo Hexadecimal) showes (anneau de Landolt) showfr (codice esadecimale) showit (Hex\255code) showjp 9050 50 moveto (Code: Umfeld-Ring) showde (code: background-ring) showen (c\363digo: fondo-paso del anillo) showes (code: fond anneaux) showfr (codice: sfondo passo-anello passo) showit (kode: omfelt-ring) showjp TBM /nll [(F) (8) (2) (E) (7) (0)] def 0 1 5 {/j exch def /iy0 500 j 600 mul add def 2150 iy0 moveto nll j get show } for %j /nr [(D) (6) (0) (F) (8) (1)] def 0 1 5 {/j exch def /iy0 500 j 600 mul add def 7800 iy0 moveto nr j get show } for %j /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def 0 1 5 {/j exch def /iy0 500 j 600 mul add def 10050 iy0 moveto nc j get show } for %j /ar 80 def ar setlinewidth /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /nl [0 7 13 1 8 15] def %+2, -1 0 1 07 {/j exch def /ix0 2700 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /ixd 600 def ix0 iy0 ixd ixd tzancmyw0l i1 48 add get 1 exch sub colrecfiw* l 2 le {/i1 nl l get 2 add def} {/i1 nl l get 1 sub def} ifelse tzancmyw0l i1 48 add get 1 exch sub 1.0 exp setgray ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def tzancmyw0l i1 48 add get 1 exch sub 1.0 exp setgray ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def tzancmyw0l i1 48 add get 1 exch sub 1.0 exp setgray ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j } def %END proc_Landolt %********************************************************** /proc_Line45 { %BEG proc_Line45 %requires 0<=iout<=1 %requires deintp=0,1 15 setlinewidth tfww* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath fill tfnw* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath stroke tfnw* TK 100 -230 moveto (TG721-3, ) show (Bild ) showde (Picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 3 ge {(A5) show}{(C5) show} ifelse (W) show Txx show %(\255) show colorm cvishow xcolor cvishow deintp cvishow %xchart xchart 8 idiv 8 mul sub cvishow %(\255) show xchart 8 idiv cvishow (: ) show (Element E: Linienraster unter 45\260 (oder 135\260)) showde (Element E: Line raster under 45\260 (or 135\260)) showen (Elemento E: Trama linea menores de 45\260 (o 135\260) grados) showes (\311l\351ment E: trame lin\351aire \340 45\260 (ou 135\260)) showfr (Elemento E: Linea raster a 45\260 (o 135\260) gradi) showit (Element E: Linjeraster med 45\260 (eller 135\260)) showjp TK (; ) show TIK (PS) show TK (\255Operator:) showde ( operator:) showen ( operator:) showes ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK ( rgb/cmy0) show TK % 0,01 * (72/25,4) = 0,02834 Zoll = 0,01 MM % 72 / 3600 = 2 / 100 Zoll = 0,02 Zoll = 0,00705555 mm %/FAKT {0.01 72 mul 25.4 div 72 3600 div div} def %(0,01 * 72 / 25.4)/(72/3600) = (0.01/25.4)/(1/3600) = (0.01*3600)/25.4 % = 36/25.4 = 1.4173228 /FAKT {36 25.4 div mul} def /FAKC {36 25.4 div} def %72 3600 div FAKT dup scale %Belichtereinheit = 25.4 mm / 3600 = 0,0070555555 mm %PostScript-Einheit =(72/3600) = 2 / 100 = 0.02 %bisherige Einheit 0.01 * 72 / 25.4 = 0,0283464 = 3/100 Zoll %bisherige Einheit 0.01 / 25.4 = 0,0003937 %MM -> DPI = 0,0283464 / 0.07055 = (25.4/3600) / (72/25.4) = 2 / 100 = 0,02 /TEKx {200 /Times-ISOL1 FS} bind def %/ausz 8 def /half 0 def %Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 15 setlinewidth %kleinste Linienbreite TBK 4300 100 moveto (Rasterweite in ) showde (line raster diameter in ) showen (de di\341metro r\341ster in ) showes (largeur de trame in ) showfr (diametro linea raster in ) showit (rasterbredde i ) showjp TBIK (lpi) show /ntl [( 15) ( 30) ( 60) (120)] def /ntp [(\050+1\051) (\050+2\051) (\050+4\051) (\050+8\051)] def /ntr [( 30) ( 60) (120) (240)] def /ntu [(15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27) (28) (29) (30)] def /nto [(120) (128) (136) (144) (152) (160) (168) (176) (184) (192) (200) (208) (216) (224) (232) (240)] def TBM tfnw* 0 1 4 {/l exch def /iy0 850 l 600 mul add def 500 iy0 moveto 10800 0 rlineto closepath stroke } for %l 0 3 3 {/l exch def /iy0 l 600 mul def 0 1 15 {/j exch def /ix0 1150 j 600 mul add def l 0 eq {ix0 150 add iy0 450 add moveto ntu j get show} if l 3 eq {ix0 050 add iy0 1600 add moveto nto j get show} if l 0 eq {ix0 iy0 400 add moveto 0 3300 rlineto closepath stroke} if l 0 eq j 15 eq and {ix0 600 add iy0 400 add FAKT moveto 0 3300 rlineto closepath stroke} if } for %j } for %l tfnw* 0 1 03 {/l exch def /iy0 850 l 600 mul add def TBK 600 iy0 100 add moveto ntp l get show TBM 500 iy0 350 add moveto ntl l get show 10900 iy0 150 add moveto ntr l get show tfnw* %Achtung N-Raster /ixd 600 def 0 1 15 {/j exch def /ix0 1150 j 600 mul add def TEKx l 0 eq {/ixjF0 3600 30 j 1 mul add div def /kmax 8 def /x ix0 def %BEG special 45 degree /y iy0 def /width ixd def /height ixd def gsave newpath x y moveto width 0 rlineto 0 height rlineto width neg 0 rlineto closepath clip newpath %END special 45 degree kmax neg 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k 2 sub mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto ixd dup rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 } for %k grestore %special 45 degree } if l 1 eq {/ixjF0 3600 60 j 2 mul add div def /kmax 16 def /x ix0 def %BEG special 45 degree /y iy0 def /width ixd def /height ixd def gsave newpath x y moveto width 0 rlineto 0 height rlineto width neg 0 rlineto closepath clip newpath %END special 45 degree kmax neg 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto ixd dup rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 FAKT } for %k grestore %special 45 degree } if l 2 eq {/ixjF0 3600 120 j 4 mul add div def /kmax 32 def /x ix0 def %BEG special 45 degree /y iy0 def /width ixd def /height ixd def gsave newpath x y moveto width 0 rlineto 0 height rlineto width neg 0 rlineto closepath clip newpath %END special 45 degree kmax neg 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto ixd dup rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 FAKT } for %k grestore %special 45 degree } if l 3 eq {/ixjF0 3600 240 j 8 mul add div def /kmax 64 def /x ix0 def %BEG special 45 degree /y iy0 def /width ixd def /height ixd def gsave newpath x y moveto width 0 rlineto 0 height rlineto width neg 0 rlineto closepath clip newpath %END special 45 degree kmax neg 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto ixd dup rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 FAKT } for %k grestore %special 45 degree } if } for %j tfnw* } for %l } def %END proc_Line45 %********************************************************** /proc_Line90 { %BEG proc_Line90 %requires 0<=iout<=1 %requires deintp=0,1 15 setlinewidth tfww* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath fill tfnw* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath stroke tfnw* TK 100 -230 moveto (TG721-5, ) show (Bild ) showde (Picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 3 ge {(A6) show}{(C6) show} ifelse (W) show Txx show %(\255) show colorm cvishow xcolor cvishow deintp cvishow %xchart xchart 8 idiv 8 mul sub cvishow %(\255) show xchart 8 idiv cvishow (: ) show (Element F: Linienraster unter 90\260 (oder 0\260)) showde (Element F: Line raster under 90\260 (or 0\260)) showen (Elemento F: Trama linea menores de 90\260 (o 0\260) grados) showes (\311l\351ment F: trame lin\351aire \340 90\260 (ou 0\260)) showfr (Elemento F: Linea raster a 90\260 (o 180\260) gradi) showit (Element F: Linjeraster med 90\260 (eller 0\260)) showjp TK (; ) show TIK (PS) show TK (\255Operator:) showde ( operator:) showen ( operator:) showes ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK ( rgb/cmy0) show TK % 0,01 * (72/25,4) = 0,02834 Zoll = 0,01 MM % 72 / 3600 = 2 / 100 Zoll = 0,02 Zoll = 0,00705555 mm %/FAKT {0.01 72 mul 25.4 div 72 3600 div div} def %(0,01 * 72 / 25.4)/(72/3600) = (0.01/25.4)/(1/3600) = (0.01*3600)/25.4 % = 36/25.4 = 1.4173228 /FAKT {36 25.4 div mul} def /FAKC {36 25.4 div} def %72 3600 div FAKT dup scale %Belichtereinheit = 25.4 mm / 3600 = 0,0070555555 mm %PostScript-Einheit =(72/3600) = 2 / 100 = 0.02 %bisherige Einheit 0.01 * 72 / 25.4 = 0,0283464 = 3/100 Zoll %bisherige Einheit 0.01 / 25.4 = 0,0003937 %MM -> DPI = 0,0283464 / 0.07055 = (25.4/3600) / (72/25.4) = 2 / 100 = 0,02 /TEKx {200 /Times-ISOL1 FS} bind def %/ausz 8 def /half 0 def %Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 15 setlinewidth %kleinste Linienbreite TBK 4300 100 moveto (Rasterweite in ) showde (line raster diameter in ) showen (de di\341metro r\341ster in ) showes (largeur de trame in ) showfr (diametro linea raster in ) showit (rasterbredde i ) showjp TBIK (lpi) show /ntl [( 15) ( 30) ( 60) (120)] def /ntp [(\050+1\051) (\050+2\051) (\050+4\051) (\050+8\051)] def /ntr [( 30) ( 60) (120) (240)] def /ntu [(15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27) (28) (29) (30)] def /nto [(120) (128) (136) (144) (152) (160) (168) (176) (184) (192) (200) (208) (216) (224) (232) (240)] def TBM tfnw* 0 1 4 {/l exch def /iy0 850 l 600 mul add def 500 iy0 moveto 10800 0 rlineto closepath stroke } for %l 0 3 3 {/l exch def /iy0 l 600 mul def 0 1 15 {/j exch def /ix0 1150 j 600 mul add def l 0 eq {ix0 150 add iy0 450 add moveto ntu j get show} if l 3 eq {ix0 050 add iy0 1600 add moveto nto j get show} if l 0 eq {ix0 iy0 400 add moveto 0 3300 rlineto closepath stroke} if l 0 eq j 15 eq and {ix0 600 add iy0 400 add FAKT moveto 0 3300 rlineto closepath stroke} if } for %j } for %l tfnw* 0 1 03 {/l exch def /iy0 850 l 600 mul add def TBK 600 iy0 100 add moveto ntp l get show TBM 500 iy0 350 add moveto ntl l get show 10900 iy0 150 add moveto ntr l get show /ixd 600 def 0 1 15 {/j exch def /ix0 1150 j 600 mul add def TEKx l 0 eq {/ixjF0 3600 30 j 1 mul add div def /kmax 8 def 0 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto 000 ixd rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 } for %k } if l 1 eq {/ixjF0 3600 60 j 2 mul add div def /kmax 16 def 0 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto 000 ixd rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 FAKT } for %k } if l 2 eq {/ixjF0 3600 120 j 4 mul add div def /kmax 32 def 0 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto 000 ixd rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 FAKT } for %k } if l 3 eq {/ixjF0 3600 240 j 8 mul add div def /kmax 64 def 0 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto 000 ixd rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 FAKT } for %k } if } for %j tfnw* } for %l } def %END proc_Line90 %********************************************************** /trn {0.0 0.0 0.0} def %Reproduktionsfarben NZW /trz {0.5 0.5 0.5} def /trw {1.0 1.0 1.0} def /tgn {trn setrgbcolor} def /tgz {trz setrgbcolor} def /tgw {trw setrgbcolor} def %********************************************************** /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /rem %x0, y0 width heigth {/heigth exch def /width exch def /y0 exch def /x0 exch def x0 width 0.5 mul add y0 heigth 0.5 mul add moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /cviht {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse 1000 mul cvi 0.001 mul 7 string cvs show} def /A4quer {598 0 tl 90 rotate} def %%ENDProlog gsave /lanind 0 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanind1 0 def /lanind2 0 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 00 def /xcolor2 00 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def /lanindd laninddg def} if /colormg where {pop /colorm1 colormg def /colorm2 colormg def /colormd colormdg def} if /deintpg where {pop /deintp1 deintpg def /deintp2 deintpg def /deintpd deintpdg def} if /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def /xcolord xcolordg def} if /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def /xchartd xchartdg def} if /pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def /pchartd pchartdg def} if /colsepg where {pop /colsep1 colsepg def /colsep2 colsepg def /colsepd colsepdg def} if /pmetamg where {pop /pmetam1 pmetamg def /pmetam2 pmetamg def /pmetamd pmetamdg def} if /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if %only for editorial change of the following loops %/lanind lanind1 def % %/colorm colorm1 def % %/deintp deintp1 def % %/xcolor xcolor1 def % %/xchart xchart1 def % %/pchart pchart1 def % %/colsep colsep1 def % %/pmetam pmetam1 def % /lanind lanind1 def %lanind1 lanindd lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 colormd colorm2 {/colorm exch def %output showpage /deintp deintp1 def %deintp1 deintpd deintp2 {/deintp exch def %output showpage /xcolor xcolor1 def %xcolor1 xcolord xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 xchartd xchart2 {/xchart exch def %output showpage /pchart pchart1 def %pchart1 pchartd pchart2 {/pchart exch def %output showpage /colsep colsep1 def %colsep1 colsepd colsep2 {/colsep exch def %output showpage colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if gsave xcolor 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolor 1 eq {/tfnx* {0 setgray} def /tfwx* {1 setgray} def /colrecfix* {setgray rec fill} bind def /colrecstx* {setgray rec stroke} bind def } if xcolor 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolor 3 eq {/tfnx* {0 0 0 setrgbcolor} def /tfwx* {1 1 1 setrgbcolor} def /colrecfix* {setrgbcolor rec fill} bind def /colrecstx* {setrgbcolor rec stroke} bind def } if 68 90 translate 0.01 MM dup scale 0 setgray 15 setlinewidth /iout 2 def /INW 0 def %********************************************************** 1 1 1 setrgbcolor 0 0 moveto 25200 0 rlineto 0 17500 rlineto %Picture larger -25200 0 rlineto closepath fill 0 0 0 setrgbcolor 0 0 moveto 25200 0 rlineto 0 17500 rlineto %Picture larger -25200 0 rlineto closepath stroke %no. 0 1 2 3 4 5 6 7 framef image /xtr [ 0200 13000 200 13000 200 13000 200 13000 -2400 200] def /ytr [13400 13400 9050 9050 4700 4700 0350 0350 -2000 8750] def %gsave %Names: %proc_rosetten: position 2 for CMY and OLV %proc_05step: position 4 for CMY and OLV %proc_16step: position 6 for CMY and OLV %proc_Landolt: position 1 for CMY and OLV %proc_Line45: position 3 for CMY and OLV %proc_Line90: position 5 for CMY and OLV %********************************************************** xtr 2 get ytr 2 get translate %/iout 3 def proc_rosetten xtr 2 get neg ytr 2 get neg translate %********************************************************** xtr 4 get ytr 4 get translate %/iout 0 def proc_05step xtr 4 get neg ytr 4 get neg translate %********************************************************** xtr 6 get ytr 6 get translate %/iout 0 def proc_16step xtr 6 get neg ytr 6 get neg translate %********************************************************** xtr 1 get ytr 1 get translate %/iout 0 def proc_Landolt xtr 1 get neg ytr 1 get neg translate %********************************************************** xtr 3 get ytr 3 get translate %/iout 0 def proc_Line45 xtr 3 get neg ytr 3 get neg translate %********************************************************** xtr 5 get ytr 5 get translate %/iout 0 def proc_Line90 xtr 5 get neg ytr 5 get neg translate %********************************************************** showpage grestore %} for %colsep=0,1 %} for %pchart=0,0 %} for %xchart=0,18 %} for %xcolor=3,3 %} for %deintp=0,1 %} for %colorm=0,1 %} for %lanind=0,0 %%Trailer