%!PS-Adobe-3.0 EPSF-3.0 xxx/IE43/IE43L00XX.PS 20090901 %%BoundingBox: 14 08 828 584 /pdfmark where {pop} {userdict /pdfmark /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: www.ps.bam.de/IE43/IE43.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2009090112000) /ModDate (D:2009090112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark %BEG IE43/10Y/Y10M00ZED Output Linearization (OL) LAB* -> cmyolvnw* 20060101 /sggray {setgray} bind def /sgrgbcolor {setrgbcolor} bind def /sgcmykcolor {setcmykcolor} bind def /sgtransfer {settransfer} bind def /sgcolortransfer {setcolortransfer} bind def /sgcolor {setcolor} bind def %FILE PREPARED FOR MIXED MODE, e. g. input ORS18 and output TLS00 %/IMES 0 def %0=LAB* used, no reflection factor necessary /IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection %/i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor /i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray %/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor %/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor %/i*ptrsc 4 def %LAB* setcolor to lab* setcolor %/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor %/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor %/i*ptrsc 7 def %LAB* setcolor to w* setgray /ISIN*ioG 0 def %default input for Offset Reflective System (ORS18) /ISOU*ioG 0 def %default output dto. %/ISIN*ioG 1 def %input for Television Luminous System (TLS00) %/ISOU*ioG 1 def %output dto. %/ISIN*ioG 2 def %input for Device Reflective measurement system (FRS06) %/ISOU*ioG 2 def %output dto. %/ISIN*ioG 3 def %input for Television Luminous Reflection System (TLS18) %/ISOU*ioG 3 def %output dto. %/ISIN*ioG 4 def %input for Natural Luminous System (NLS00) %/ISOU*ioG 4 def %output dto. %/ISIN*ioG 5 def %input for Natural Reflective System (NRS18) %/ISOU*ioG 5 def %output dto. %/ISIN*ioG 6 def %input for Standard Reflective System (SRS18) %/ISOU*ioG 6 def %output dto. %/ISIN*ioG 7 def %input for Standard Reflective System (TLS70) %/ISOU*ioG 7 def %output dto. /iLAB 0 def /ISIO*ioG 0 def /ISRL*ioG 0 def % for io-System, only once %line 36*************************************************************** %line 38*************************************************************** /LAB*ioG {%BEG Procedure LAB*ioG (L=local) %requires ISRL*ioG=0,1,3 /RJGBLAB* 12 array def /RJGBLAB*[ 39.92 58.74 27.99 % r CIE No.09 elementary colours in LAB, D65 81.26 -2.89 71.56 % J CIE No.10 52.23 -42.42 13.60 % G CIE No.11 30.57 1.41 -46.47 % B CIE No.12 ] def /LAB* 36 array def /LAB*a 36 array def /LAB*00 24 array def /LAB*01 24 array def /LAB*02 24 array def /LAB*03 24 array def /LAB*04 24 array def /LAB*05 24 array def /LAB*06 24 array def /LAB*07 24 array def ISRL*ioG 0 eq { %ISRL*ioG=0 /LAB*00 [%D=Device OYLCVMO+NW %for Offset Reflective System (ORS18) 47.94 65.31 52.07 %O 0 90.37 -11.16 96.17 %Y 1 50.90 -62.97 36.71 %L 2 58.62 -30.63 -42.75 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 25.72 31.45 -44.36 %V 4 48.13 75.20 -6.80 %M 5 18.01 0.50 -0.47 %N 7 95.41 -0.99 4.76 %W 8 ] def %OYLCVMO+NW /LAB*01 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS00) 50.50 76.92 64.55 %O 0 92.66 -20.70 90.75 %Y 1 83.63 -82.76 79.90 %L 2 86.88 -46.17 -13.56 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 30.39 76.06 -103.6 %V 4 corected 57.30 94.35 -58.42 %M 5 corected 00.01 0.00 0.00 %N 7 corected 95.41 0.00 0.00 %W 8 ] def %OYLCVMO+NW /LAB*02 [%D=Device OYLCVMO+NW %for Device Reflective System (FRS06. FUJI) 32.57 61.14 43.72 %8-0-0 O-W 0 olv* setrgbcolor 64 82.73 -3.51 109.24 %8-8-0 Y-W 1 olv* setrgbcolor 32 39.43 -62.87 42.80 %0-8-0 L-W 2 olv* setrgbcolor 80 47.86 -27.73 -37.62 %0-8-8 C-W 3 olv* setrgbcolor 0 actual printer 10.16 53.56 -62.92 %0-0-8 V-W 4 olv* setrgbcolor 96 34.50 79.53 -36.77 %8-0-8 M-W 5 olv* setrgbcolor 16 06.25 -1.63 -1.73 %0-0-0 N-W 6 olv* setrgbcolor 48 91.97 -0.18 -5.11 %8-8-8 A-W 7 olv* setrgbcolor ] def %OYLCVMO+NW /LAB*03 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS18) 52.76 71.63 49.88 %O 0 92.74 -20.03 84.97 %Y 1 84.00 -78.99 73.94 %L 2 87.14 -44.42 -13.12 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 35.47 64.92 -95.07 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 59.01 89.33 -55.68 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 18.01 0.00 0.00 %N 6 Yr=2.52 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*04 [%Natural symmetric Luminous System OYLCVMO+NW (NLS00) 31.81 82.62 47.70 %O 0 95.40/2 = 47.70 63.61 00.00 95.40 %Y 1 C*ab = 95.40 31.81 -82.62 47.70 %L 2 0.866 C*ab = 0.866 * 95.40 = 82.62 63.61 -82.62 -47.70 %C 3 delta L*=25.8 31.81 00.00 -95.40 %V 4 43.81=00.01+31.80 63.61 82.62 -47.70 %M 5 69.61=00.01+2*31.80 00.01 0.00 0.00 %N 6 95.40/3 = 31.80 95.41 0.00 0.00 %W 7 95.40*(2/3) = 63.60 ] def %CVMOYLC+NW /LAB*05 [%Natural symmetric Luminous System OYLCVMO+NW (NLS18) 43.81 67.03 38.70 %O 0 77.40/2 = 38.70 69.61 00.00 77.40 %Y 1 C*ab = 77.40 43.81 -67.03 38.70 %L 2 0.866 C*ab = 67.03 69.61 -67.03 -38.70 %C 3 delta L*=25.8 43.81 00.00 -77.40 %V 4 43.81=18.01+25.80 69.61 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 18.01+77.40/3 = 18.01+25.80=43.81 95.41 0.00 0.00 %W 7 18.01+77.40*(2/3) = 18.01+51.60=69.61 ] def %CVMOYLC+NW /LAB*06 [%Symmetric Reflective System OYLCVMO+NW (SRS18) 56.71 67.03 38.70 %O 0 18.01 + 77.40*0.5 = 18.01 + 38.70 = 56.71 56.71 00.00 77.40 %Y 1 C*ab = 77.40 56.71 -67.03 38.70 %L 2 0.866 C*ab = 67.03 56.71 -67.03 -38.70 %C 3 delta L*=25.8 56.71 00.00 -77.40 %V 4 43.81=18.01+25.80 56.71 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 95.41 0.00 0.00 %W 7 95.41=18.01+3*25.80 ] def %CVMOYLC+NW /LAB*07 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS70) 76.43 26.27 10.57 %O 0 93.93 -10.77 34.63 %Y 1 89.32 -35.81 27.64 %L 2 90.93 -21.96 -7.08 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 72.10 15.76 -35.64 %V 4 78.50 37.52 -25.24 %M 5 69.70 0.00 0.00 %N 6 Yr=40.32 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW } if %ISRL*ioG=0 ISRL*ioG 1 eq { %ISRL*ioG=1 /LAB*00 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS00) 50.50 76.91 64.55 %O 0 92.66 -20.68 90.75 %Y 1 83.62 -82.74 79.90 %L 2 86.88 -46.15 -13.54 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 30.39 76.06 -103.6 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 57.31 94.35 -58.40 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 00.01 0.00 0.00 %N 6 Yr=0.00 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*01 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS06) 51.08 75.54 59.69 %O 0 92.68 -20.51 89.24 %Y 1 83.72 -81.79 78.32 %L 2 86.94 -45.72 -13.43 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 31.77 72.91 -101.3 %V 4 57.74 93.06 -57.71 %M 5 05.69 0.00 0.00 %N 6 Yr=0.63 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*02 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS11) 51.65 74.20 55.83 %O 0 92.70 -20.35 87.77 %Y 1 83.81 -80.85 76.81 %L 2 87.01 -45.28 -13.33 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 33.06 70.03 -99.09 %V 4 58.17 91.80 -57.03 %M 5 10.99 0.00 0.00 %N 6 Yr=1.26 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*03 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS18) 52.76 71.63 49.88 %O 0 92.74 -20.03 84.97 %Y 1 84.00 -78.99 73.94 %L 2 87.14 -44.42 -13.12 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 35.47 64.92 -95.07 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 59.01 89.33 -55.68 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 18.01 0.00 0.00 %N 6 Yr=2.52 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*04 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS27) 54.88 66.84 41.69 %O 0 92.82 -19.39 79.81 %Y 1 84.37 -75.39 68.76 %L 2 87.40 -42.72 -12.70 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 39.70 56.66 -88.02 %V 4 60.64 84.61 -53.08 %M 5 26.85 0.00 0.00 %N 6 Yr=5.04 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*05 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS38) 58.77 58.45 31.73 %O 0 92.98 -18.11 70.81 %Y 1 85.11 -68.58 60.02 %L 2 87.92 -39.42 -11.87 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 46.64 44.93 -76.56 %V 4 63.71 75.92 -48.22 %M 5 37.99 0.00 0.00 %N 6 Yr=10.08 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*06 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS52) 65.53 45.06 20.98 %O 0 93.30 -15.61 56.27 %Y 1 86.55 -56.31 46.52 %L 2 88.94 -33.19 -10.24 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 57.17 30.66 -59.40 %V 4 69.22 60.95 -39.57 %M 5 52.02 0.00 0.00 %N 6 Yr=20.16 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*07 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS70) 76.43 26.27 10.57 %O 0 93.93 -10.77 34.63 %Y 1 89.32 -35.81 27.64 %L 2 90.93 -21.96 -7.08 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 72.10 15.76 -35.64 %V 4 78.50 37.52 -25.24 %M 5 69.70 0.00 0.00 %N 6 Yr=40.32 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW } if %ISRL*ioG=1 ISRL*ioG 2 eq { %ISRL*ioG=2 /LAB*00 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS00) 45.14 71.37 75.54 %O 0 90.22 -10.60 99.51 %Y 1 48.45 -73.19 42.21 %L 2 56.88 -33.11 -47.41 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 16.48 45.84 -56.22 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 45.36 81.85 -9.29 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 00.01 0.00 0.00 %N 6 Yr=0.00 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*01 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS06) 45.87 69.79 66.99 %O 0 90.25 -10.51 97.42 %Y 1 49.08 -70.28 40.08 %L 2 57.33 -32.38 -46.80 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 19.26 40.73 -52.47 %V 4 46.07 80.12 -9.04 %M 5 05.69 0.00 0.00 %N 6 Yr=0.63 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*02 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS11) 46.57 68.27 59.62 %O 0 90.29 -10.43 95.45 %Y 1 49.70 -67.60 38.19 %L 2 57.76 -31.68 -46.19 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 21.67 36.81 -49.37 %V 4 46.77 78.45 -8.80 %M 5 10.99 0.00 0.00 %N 6 Yr=1.26 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*03 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS18) 47.94 65.39 50.52 %O 0 90.37 -10.26 91.75 %Y 1 50.90 -62.83 34.96 %L 2 58.62 -30.34 -45.01 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 25.72 31.10 -44.40 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 48.13 75.28 -8.36 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 18.01 0.00 0.00 %N 6 Yr=2.52 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*04 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS27) 50.51 60.17 40.13 %O 0 90.52 -9.92 85.20 %Y 1 53.18 -55.04 30.00 %L 2 60.28 -27.91 -42.75 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 32.06 24.02 -37.32 %V 4 50.68 69.50 -7.57 %M 5 26.85 0.00 0.00 %N 6 Yr=5.04 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*05 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS38) 55.13 51.42 29.16 %O 0 90.83 -9.25 74.37 %Y 1 57.35 -43.84 23.35 %L 2 63.39 -23.83 -38.56 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 41.26 16.67 -28.49 %V 4 55.27 59.74 -6.32 %M 5 37.99 0.00 0.00 %N 6 Yr=10.08 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*06 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS52) 62.90 38.38 18.55 %O 0 91.44 -7.95 57.91 %Y 1 64.49 -30.06 15.67 %L 2 68.98 -17.74 -31.24 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 53.87 10.09 -18.84 %V 4 63.00 44.96 -4.56 %M 5 52.02 0.00 0.00 %N 6 Yr=20.16 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*07 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS70) 75.01 21.53 9.07 %O 0 92.64 -5.45 34.85 %Y 1 75.86 -15.50 7.96 %L 2 78.37 -9.90 -19.51 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 70.54 4.74 -9.47 %V 4 75.07 25.47 -2.46 %M 5 69.70 0.00 0.00 %N 6 Yr=40.32 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW } if %ISRL*ioG=2 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def sISO 7 le { %sISO=0,7 ISIO*ioG 0 eq { %ORS18/TLS00/OLS00 LAB* i30 LAB*00 i30 get put LAB* i31 LAB*00 i31 get put LAB* i32 LAB*00 i32 get put } if ISIO*ioG 1 eq { %TLS00/TLS06/OLS06 LAB* i30 LAB*01 i30 get put LAB* i31 LAB*01 i31 get put LAB* i32 LAB*01 i32 get put } if ISIO*ioG 2 eq { %FRS06/TLS11/OLS11 LAB* i30 LAB*02 i30 get put LAB* i31 LAB*02 i31 get put LAB* i32 LAB*02 i32 get put } if ISIO*ioG 3 eq { %TLS18/TLS18/OLS18 LAB* i30 LAB*03 i30 get put LAB* i31 LAB*03 i31 get put LAB* i32 LAB*03 i32 get put } if ISIO*ioG 4 eq { %NLS00/TSL28/OLS28 LAB* i30 LAB*04 i30 get put LAB* i31 LAB*04 i31 get put LAB* i32 LAB*04 i32 get put } if ISIO*ioG 5 eq { %NRS18/TLS38/OLS38 LAB* i30 LAB*05 i30 get put LAB* i31 LAB*05 i31 get put LAB* i32 LAB*05 i32 get put } if ISIO*ioG 6 eq { %SRS18/TLS50/OLS50 LAB* i30 LAB*06 i30 get put LAB* i31 LAB*06 i31 get put LAB* i32 LAB*06 i32 get put } if ISIO*ioG 7 eq { %TLS70/TLS70/OLS70 LAB* i30 LAB*07 i30 get put LAB* i31 LAB*07 i31 get put LAB* i32 LAB*07 i32 get put } if } %sISO=0,7 { %sISO=8,11 /jISO sISO 8 sub def /j30 jISO 3 mul def /j31 j30 1 add def /j32 j30 2 add def LAB* i30 RJGBLAB* j30 get put LAB* i31 RJGBLAB* j31 get put LAB* i32 RJGBLAB* j32 get put } ifelse %sISO=0,7 and 8,11 } for /L*Nio LAB* 18 get def /A*Nio LAB* 19 get def /B*Nio LAB* 20 get def /L*Wio LAB* 21 get def /A*Wio LAB* 22 get def /B*Wio LAB* 23 get def /A*Dio A*Wio A*Nio sub def /B*Dio B*Wio B*Nio sub def 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def LAB*a i30 LAB* i30 get put /l*CIE LAB* i30 get L*Nio sub L*Wio L*Nio sub div def %system rel. lightn. /a*s A*Wio A*Nio sub l*CIE mul def /b*s B*Wio B*Nio sub l*CIE mul def LAB*a i31 LAB* i31 get A*Nio sub a*s sub put LAB*a i32 LAB* i32 get B*Nio sub b*s sub put } for /cLAB*s0 3 array def %C cyan blue /vLAB*s0 3 array def %V violet blue /mLAB*s0 3 array def %M magenta red /oLAB*s0 3 array def %O orange red /yLAB*s0 3 array def %Y yellow /lLAB*s0 3 array def %L leaf green /nLAB*s0 3 array def %N black /wLAB*s0 3 array def %W white /rLAB*s0 3 array def %R elementary red /jLAB*s0 3 array def %J elementary yellow /gLAB*s0 3 array def %G elementary green /bLAB*s0 3 array def %B elementary blue %Determine Matrix data input or output data oLAB*s0 0 LAB*a 0 get L*Nio sub put oLAB*s0 1 LAB*a 1 get put oLAB*s0 2 LAB*a 2 get put yLAB*s0 0 LAB*a 3 get L*Nio sub put yLAB*s0 1 LAB*a 4 get put yLAB*s0 2 LAB*a 5 get put lLAB*s0 0 LAB*a 6 get L*Nio sub put lLAB*s0 1 LAB*a 7 get put lLAB*s0 2 LAB*a 8 get put cLAB*s0 0 LAB*a 9 get L*Nio sub put cLAB*s0 1 LAB*a 10 get put cLAB*s0 2 LAB*a 11 get put vLAB*s0 0 LAB*a 12 get L*Nio sub put vLAB*s0 1 LAB*a 13 get put vLAB*s0 2 LAB*a 14 get put mLAB*s0 0 LAB*a 15 get L*Nio sub put mLAB*s0 1 LAB*a 16 get put mLAB*s0 2 LAB*a 17 get put nLAB*s0 0 LAB*a 18 get L*Nio sub put nLAB*s0 1 LAB*a 19 get put nLAB*s0 2 LAB*a 20 get put wLAB*s0 0 LAB*a 21 get L*Nio sub put wLAB*s0 1 LAB*a 22 get put wLAB*s0 2 LAB*a 23 get put rLAB*s0 0 LAB*a 24 get L*Nio sub put rLAB*s0 1 LAB*a 25 get put rLAB*s0 2 LAB*a 26 get put jLAB*s0 0 LAB*a 27 get L*Nio sub put jLAB*s0 1 LAB*a 28 get put jLAB*s0 2 LAB*a 29 get put gLAB*s0 0 LAB*a 30 get L*Nio sub put gLAB*s0 1 LAB*a 31 get put gLAB*s0 2 LAB*a 32 get put bLAB*s0 0 LAB*a 33 get L*Nio sub put bLAB*s0 1 LAB*a 34 get put bLAB*s0 2 LAB*a 35 get put % Determine the input or output angle in the A* B* plane % of each of the colours defined above /C*Ang cLAB*s0 2 get cLAB*s0 1 get 0.0001 add atan def /V*Ang vLAB*s0 2 get vLAB*s0 1 get 0.0001 add atan def /M*Ang mLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /O*Ang oLAB*s0 2 get oLAB*s0 1 get 0.0001 add atan def /Y*Ang yLAB*s0 2 get yLAB*s0 1 get 0.0001 add atan def /L*Ang lLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /N*Ang 0 def /W*Ang 0 def /R*Ang rLAB*s0 2 get rLAB*s0 1 get 0.0001 add atan def /J*Ang jLAB*s0 2 get jLAB*s0 1 get 0.0001 add atan def /G*Ang gLAB*s0 2 get gLAB*s0 1 get 0.0001 add atan def /B*Ang bLAB*s0 2 get bLAB*s0 1 get 0.0001 add atan def % The detprocL below finds the determinant of the Matrix: % | A1 B1 C1 D1 | % | A2 B2 C2 D2 | % | A3 B3 C3 D3 | % | A4 B4 C4 D4 | % /detprocL { %BEG procedure detprocL /term1 B2 C3 mul D4 mul C2 D3 mul B4 mul add D2 B3 mul C4 mul add B4 C3 mul D2 mul sub C4 D3 mul B2 mul sub D4 B3 mul C2 mul sub def /term2 A2 C3 mul D4 mul C2 D3 mul A4 mul add D2 A3 mul C4 mul add A4 C3 mul D2 mul sub C4 D3 mul A2 mul sub D4 A3 mul C2 mul sub def /term3 A2 B3 mul D4 mul B2 D3 mul A4 mul add D2 A3 mul B4 mul add A4 B3 mul D2 mul sub B4 D3 mul A2 mul sub D4 A3 mul B2 mul sub def /term4 A2 B3 mul C4 mul B2 C3 mul A4 mul add C2 A3 mul B4 mul add A4 B3 mul C2 mul sub B4 C3 mul A2 mul sub C4 A3 mul B2 mul sub def /det A1 term1 mul B1 term2 mul sub C1 term3 mul add D1 term4 mul sub def } bind def %END procedure detprocL % The CoeffprocL procedure solves for WhiteCoeff, black Coeff, Col1Coeff and % Col2Coeff in the matrix equation below. It takes as inputs A1->A4 B1->B4 % C1->C4 D1->D4 and s,y,z,t. It solves for these using Cramer's rule. % Note: Cramer's rule is valid only for non-singular matrices, ie |A| not % equal to 0. % % | A1 B1 C1 D1 | |WhiteCoeff| |x| % | A2 B2 C2 D2 | |BlackCoeff| = |y| % | A3 B3 C3 D3 | |Col1Coeff | |z| % | A4 B4 C4 D4 | |Col2Coeff | |t| % A B = C % /CoeffprocL { %BEG procedure CoeffprocL /t exch def /z exch def /y exch def /x exch def /D4 exch def /D3 exch def /D2 exch def /D1 exch def /C4 exch def /C3 exch def /C2 exch def /C1 exch def /B4 exch def /B3 exch def /B2 exch def /B1 exch def /A4 exch def /A3 exch def /A2 exch def /A1 exch def detprocL /den det def % determine white coefficient /temp1 A1 def /temp2 A2 def /temp3 A3 def /temp4 A4 def /A1 x def /A2 y def /A3 z def /A4 t def detprocL /numW det def /A1 temp1 def /A2 temp2 def /A3 temp3 def /A4 temp4 def % determine black coefficient /temp1 B1 def /temp2 B2 def /temp3 B3 def /temp4 B4 def /B1 x def /B2 y def /B3 z def /B4 t def detprocL /numB det def /B1 temp1 def /B2 temp2 def /B3 temp3 def /B4 temp4 def % determine colour1 coefficient /temp1 C1 def /temp2 C2 def /temp3 C3 def /temp4 C4 def /C1 x def /C2 y def /C3 z def /C4 t def detprocL /numCol1 det def /C1 temp1 def /C2 temp2 def /C3 temp3 def /C4 temp4 def % determine colour2 coefficient /temp1 D1 def /temp2 D2 def /temp3 D3 def /temp4 D4 def /D1 x def /D2 y def /D3 z def /D4 t def detprocL /numCol2 det def /D1 temp1 def /D2 temp2 def /D3 temp3 def /D4 temp4 def /WhiteCoeff numW den div def /BlackCoeff numB den div def /Col1Coeff numCol1 den div def /Col2Coeff numCol2 den div def WhiteCoeff BlackCoeff Col1Coeff Col2Coeff % returns these *color data } bind def %BEG procedure CoeffprocL } def %END Procedure LAB*ioG %*********************************************************** /cmyolv*io_to_LAB*ioG { %BEG Procedure transfer cmyolv*io_to_LAB*ioG %input olv* for IMODE=0 and cmy* for IMODE=1 %the following calculations based on olv* %Procedure LAB*inoutL is required in advance IMODE 1 eq {%IMODE=1, input cmy* /o* 1 c* sub def /l* 1 m* sub def /v* 1 y* sub def } if %skip of olv* data <0 and >1 o* 0 le {/o* 0.0001 def} if l* 0 le {/l* 0.0001 def} if v* 0 le {/v* 0.0001 def} if o* 1 ge {/o* 0.9999 def} if l* 1 ge {/l* 0.9999 def} if v* 1 ge {/v* 0.9999 def} if %output olv* and cmy* for both olv* and cmy* input %n*n: relative blackness %r*n: relative chromaticness %w*n: relative whiteness %L*F: CIE lightness L* %A*F: CIE chromaticness a* %B*F: CIE chromaticness b* %C*F: CIE radial chroma Cab* %x*F: x-position of colour F %y*F: y-position of colour F %e*w: eigencolour value of F o* 0 le {/o* 0.0001 def} if l* 0 le {/l* 0.0001 def} if v* 0 le {/v* 0.0001 def} if o* 1 ge {/o* 0.9999 def} if l* 1 ge {/l* 0.9999 def} if v* 1 ge {/v* 0.9999 def} if /tdel 0 def v* l* ge l* o* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c* %sector C-V of C-M, C>=M: i*p=0 {/w*n o* def /n*n 1 v* sub def /t*a v* l* sub def /array1 vLAB*s0 def % colour 1 is violet blue /t*b l* o* sub def /array2 cLAB*s0 def % colour 2 is cyan blue /i*p 0 def o* l* sub abs 0.001 le {/i*p 1 def} if /t*p l* l* v* add 0.0001 add div def /tdel 1 def } if % v* >= l* >= o* v* o* ge o* l* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m* %sector V-M of C-M, M>=C: i*p=1 {/w*n l* def /n*n 1 v* sub def /t*a v* o* sub def /array1 vLAB*s0 def % colour 1 is violet blue /t*b o* l* sub def /array2 mLAB*s0 def % colour 2 is magenta red /i*p 1 def v* o* sub abs 0.001 le {/i*p 2 def} if /t*p o* o* v* add 0.0001 add div def /tdel 1 def } if % v* >= o* >= l* o* v* ge v* l* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m* %sector M-O of M-Y, M>=Y: i*p=2 {/w*n l* def /n*n 1 o* sub def /t*a o* v* sub def /array1 oLAB*s0 def % colour 1 is orange /t*b v* l* sub def /array2 mLAB*s0 def % colour 2 is magenta red /i*p 2 def l* v* sub abs 0.001 le {/i*p 3 def} if /t*p v* v* o* add 0.0001 add div def /tdel 1 def } if % o* >= v* >= l* o* l* ge l* v* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y* %sector O-Y of M-Y, Y>=M: i*p=3 {/w*n v* def /n*n 1 o* sub def /t*a o* l* sub def /array1 oLAB*s0 def % colour 1 is orange red /t*b l* v* sub def /array2 yLAB*s0 def % colour 2 is yellow /i*p 3 def o* l* sub abs 0.001 le {/i*p 4 def} if /t*p l* l* o* add 0.0001 add div def /tdel 1 def } if % o* >= l* >= v* l* o* ge o* v* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y* %sector Y-L of Y-C, Y>=C: i*p=4 {/w*n v* def /n*n 1 l* sub def /t*a l* o* sub def /array1 lLAB*s0 def % colour 1 is leaf green /t*b o* v* sub def /array2 yLAB*s0 def % colour 2 is yellow /i*p 4 def o* v* sub abs 0.001 le {/i*p 5 def} if /t*p o* o* l* add 0.0001 add div def /tdel 1 def } if % l* >= o* >= v* l* v* ge v* o* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c* %sector L-C of Y-C, C>=Y: i*p=5 {/w*n o* def /n*n 1 l* sub def /t*a l* v* sub def /array1 lLAB*s0 def % colour 1 is leaf green /t*b v* o* sub def /array2 cLAB*s0 def % colour 2 is cyan blue /i*p 5 def l* v* sub abs 0.001 le {/i*p 0 def} if /t*p v* v* l* add 0.0001 add div def /tdel 1 def } if % l* >= v* >= o* %achromatic %W: o*, l*, v* = 1.00 1.0 o* sub abs 0.001 le 1.0 l* sub abs 0.001 le and 1.0 v* sub abs 0.001 le and %W special case {/i*p 6 def %W /e*w 0 def /n*n 0 def /w*n 1 def /t*a 0.0001 def /t*b 0.0001 def /t*p 0.0001 def } if %N: o*, l*, v* <= 0.001 o* abs 0.001 le l* abs 0.001 le and v* abs 0.001 le and %N special case {/i*p 6 def %N /e*w 0 def /n*n 1 def /w*n 0 def /t*a 0.0001 def /t*b 0.0001 def /t*p 0.0001 def } if %Achromatic o* l* sub abs 0.001 le l* v* sub abs 0.001 le and %Achromatic special case {/i*p 6 def %N /e*w 0 def /n*n 1 o* sub def /w*n o* def /t*a 0.0001 def /t*b 0.0001 def /t*p 0.0001 def } if /r*n 1 w*n sub n*n sub def /t*n 1 t*p sub def %w0-line of equal relative whiteness in colour triangle: y = 0.5 / h x + yw0 %n0-line of equal relative blackness in colour triangle: y = -0.5 / h x + yn0 %x*F = (yn0 - yw0) h %y*F = 0.5 (yn0 - yw0) + yw0 = 0.5 (yn0 + yw0) /h 0.75 sqrt def /yn0 1 n*n sub def /yw0 w*n def /x*F yn0 yw0 sub h mul def /y*F yn0 yw0 add 0.5 mul def /t*F y*F def /lab*tFa t*F def /lab*cFa r*n def /lab*wFa w*n def /lab*nFa n*n def %x*F / (1-y*F) = e*x / 1 %e*w = e*x /(2h) = [x*F / (1-y*F)]/(2h) %/e*w x*F 1 y*F sub div 2 h mul div def /e*w r*n n*n r*n add 0.0001 add div def %Eigencolor ratio r*n abs 0.001 le r*n abs 0.001 le and {/e*w 0.0001 def} if % with 0 for achromatic (c*n=0) and 1 for whitish colors (n*n=0) %cmyolv*_to_cmy* /c* 1 o* sub def /m* 1 l* sub def /y* 1 v* sub def %cmyolv*_to_LAB*LFs0 %L*Fs0 = w*n wLAB*s0 (0) + n*n nLAB*s0 (0) + t*a array1(0) + t*b array2(0) %A*Fs0 = w*n wLAB*s0 (1) + n*n nLAB*s0 (1) + t*a array1(1) + t*b array2(1) %B*Fs0 = w*n wLAB*s0 (2) + n*n nLAB*s0 (2) + t*a array1(2) + t*b array2(2) /L*Fs0 w*n wLAB*s0 0 get mul n*n nLAB*s0 0 get mul add t*a array1 0 get mul add t*b array2 0 get mul add def /A*Fs0 w*n wLAB*s0 1 get mul n*n nLAB*s0 1 get mul add t*a array1 1 get mul add t*b array2 1 get mul add def /B*Fs0 w*n wLAB*s0 2 get mul n*n nLAB*s0 2 get mul add t*a array1 2 get mul add t*b array2 2 get mul add def /L*Fsm t*a array1 0 get mul t*b array2 0 get mul add L*Nio add def %LAB*Fs0_to_LAB*F /L*F L*Fs0 L*Nio add def /l*CIE L*F L*Nio sub L*Wio L*Nio sub 0.0001 add div def /A*F A*Fs0 A*Nio add A*Dio l*CIE mul add def /B*F B*Fs0 B*Nio add B*Dio l*CIE mul add def /lab*lFa l*CIE def /LAB*LF L*F def /LAB*AF A*F def /LAB*BF B*F def /LAB*LFa L*F def /LAB*AFa A*Fs0 def /LAB*BFa B*Fs0 def %FOR CIELAB LCH /C*Fs0 A*Fs0 dup mul B*Fs0 dup mul add 0.000001 add sqrt def /H*Fs0 B*Fs0 A*Fs0 0.0001 add atan def /LAB*CFa C*Fs0 def /LAB*HFa H*Fs0 def /lab*hFa LAB*HFa 360 div def } bind def %END Procedure transfer cmyolv*io_to_LAB*ioG (L=local) /LAB*io_to_cmyolv*ioG {%BEG Procedure LAB*io_to_cmyolv*ioG (L=local) /B*F exch def /A*F exch def /L*F exch def %ISIO*ioG 0 eq ISOUP*ioG 3 eq and % {%achromatic transfer L*F,A*F,B*F (PR18) % % -> L*Fsa, A*Fsa, B*Fsa (PR18) % % -> L*F, A*F, B*F (TV18) % %LAB*F_to_LAB*Fsa % /l*CIE L*F L*Nio sub L*Wio L*Nio sub 0.0001 add div def % /A*Fs0 A*F A*Nio sub A*Dio l*CIE mul sub def % /B*Fs0 B*F B*Nio sub B*Dio l*CIE mul sub def % /A*F A*Fs0 def % /B*F B*Fs0 def % } if %achromatic transfer L*F,A*F,B*F (PR18) /l*CIE L*F L*Nio sub L*Wio L*Nio sub 0.0001 add div def /L*Fs0 L*F L*Nio sub def /A*Fs0 A*F A*Nio sub A*Dio l*CIE mul sub def /B*Fs0 B*F B*Nio sub B*Dio l*CIE mul sub def /C*Fs0 A*Fs0 dup mul B*Fs0 dup mul add 0.000001 add sqrt def /H*Fs0 B*Fs0 A*Fs0 0.0001 add atan def /LAB*LF L*F def /LAB*AF A*F def /LAB*BF B*F def /LAB*LFa L*F def /LAB*AFa A*Fs0 def /LAB*BFa B*Fs0 def % the angle formed by the input LAB* *color data in the A*B* plane /col_ang B*Fs0 A*Fs0 0.0001 add atan def %determine which two colours the LAB* *color data corresponds to %by testing the angles and solve the related four simultaneous equations %to find the olv *color data. % angle between magenta red and orange red, sector M-O of M-Y, M>=Y col_ang M*Ang ge col_ang O*Ang lt or {1 wLAB*s0 0 get wLAB*s0 1 get wLAB*s0 2 get 1 nLAB*s0 0 get nLAB*s0 1 get nLAB*s0 2 get 1 mLAB*s0 0 get mLAB*s0 1 get mLAB*s0 2 get 1 oLAB*s0 0 get oLAB*s0 1 get oLAB*s0 2 get 1 L*Fs0 A*Fs0 B*Fs0 CoeffprocL /c1*w exch def %O /c2*w exch def %M /n*w exch def /w*w exch def %magenta is a mixture of orange red and voilet blue, therefore leaf green(l) = white, %orange(o) = 1-black(n), voilet blue(v) = white + magenta red (c2*w) /v*n w*w c2*w add def % /l*n w*w def /o*n 1 n*w sub def /i*p 2 def /t*p v*n v*n o*n add 0.0001 add div def } if % angle between orange red and yellow, sector O-Y of M-Y, Y>=M col_ang O*Ang ge col_ang Y*Ang lt and {1 wLAB*s0 0 get wLAB*s0 1 get wLAB*s0 2 get 1 nLAB*s0 0 get nLAB*s0 1 get nLAB*s0 2 get 1 oLAB*s0 0 get oLAB*s0 1 get oLAB*s0 2 get 1 yLAB*s0 0 get yLAB*s0 1 get yLAB*s0 2 get 1 L*Fs0 A*Fs0 B*Fs0 CoeffprocL /c1*w exch def %Y /c2*w exch def %O /n*w exch def /w*w exch def %yellow is a mixture of orange red and leaf green, therefore voilet blue(v) = white, %orange(o) = 1-black(n), leaf green(l) = white + yellow (c1*w) /l*n w*w c1*w add def /v*n w*w def /o*n 1 n*w sub def /i*p 3 def /t*p l*n l*n o*n add 0.0001 add div def } if % angle between yellow and leaf green, sector Y-L of Y-C, Y>=C col_ang Y*Ang ge col_ang L*Ang lt and {1 wLAB*s0 0 get wLAB*s0 1 get wLAB*s0 2 get 1 nLAB*s0 0 get nLAB*s0 1 get nLAB*s0 2 get 1 yLAB*s0 0 get yLAB*s0 1 get yLAB*s0 2 get 1 lLAB*s0 0 get lLAB*s0 1 get lLAB*s0 2 get 1 L*Fs0 A*Fs0 B*Fs0 CoeffprocL /c1*w exch def %L /c2*w exch def %Y /n*w exch def /w*w exch def %yellow is a mixture of orange red and leaf green, therefore voilet blue(v) = white , %leaf green(l) = 1-black(n), orange red(o) = white + yellow (c2*w) /v*n w*w def /l*n 1 n*w sub def /o*n w*w c2*w add def /i*p 4 def /t*p o*n o*n l*n add 0.0001 add div def } if % angle between leaf green and cyan blue, sector L-C of Y-C, C>=Y col_ang L*Ang ge col_ang C*Ang lt and {1 wLAB*s0 0 get wLAB*s0 1 get wLAB*s0 2 get 1 nLAB*s0 0 get nLAB*s0 1 get nLAB*s0 2 get 1 lLAB*s0 0 get lLAB*s0 1 get lLAB*s0 2 get 1 cLAB*s0 0 get cLAB*s0 1 get cLAB*s0 2 get 1 L*Fs0 A*Fs0 B*Fs0 CoeffprocL /c1*w exch def %C /c2*w exch def %L /n*w exch def /w*w exch def %cyan is a mixture of leaf green and voilet blue, therefore orange red(o) = white, %leaf green(l) = 1-black(n), voilet blue(v) = white + cyan blue (c1*w) /v*n w*w c1*w add def /l*n 1 n*w sub def /o*n w*w def /i*p 5 def /t*p v*n v*n l*n add 0.0001 add div def } if % angle between cyan blue and voilet blue, sector C-V of C-M, C>=M col_ang C*Ang ge col_ang V*Ang lt and {1 wLAB*s0 0 get wLAB*s0 1 get wLAB*s0 2 get 1 nLAB*s0 0 get nLAB*s0 1 get nLAB*s0 2 get 1 cLAB*s0 0 get cLAB*s0 1 get cLAB*s0 2 get 1 vLAB*s0 0 get vLAB*s0 1 get vLAB*s0 2 get 1 L*Fs0 A*Fs0 B*Fs0 CoeffprocL /c1*w exch def %V /c2*w exch def %C /n*w exch def /w*w exch def %cyan is a mixture of leaf green and voilet blue, therefore orange red(o) = white, %violet blue(v) = 1-black(n), leaf green(l) = white + cyan blue (c2*w) /v*n 1 n*w sub def /l*n w*w c2*w add def /o*n w*w def /i*p 0 def /t*p l*n l*n v*n add 0.0001 add div def } if % angle between voilet blue and magenta red, sector V-M of C-M, M>=C col_ang V*Ang ge col_ang M*Ang lt and {1 wLAB*s0 0 get wLAB*s0 1 get wLAB*s0 2 get 1 nLAB*s0 0 get nLAB*s0 1 get nLAB*s0 2 get 1 vLAB*s0 0 get vLAB*s0 1 get vLAB*s0 2 get 1 mLAB*s0 0 get mLAB*s0 1 get mLAB*s0 2 get 1 L*Fs0 A*Fs0 B*Fs0 CoeffprocL /c1*w exch def %M /c2*w exch def %V /n*w exch def /w*w exch def %magenta is a mixture of orange red and voilet blue, therefore leaf green(l) = white, %violet(o) = 1-black(n), orange red(o) = white + magenta red (c1*w) /v*n 1 n*w sub def /l*n w*w def /o*n w*w c1*w add def /i*p 1 def /t*p o*n o*n v*n add 0.0001 add div def } if %achromatic %W: o*n, l*n, v*n = 1.00 1.0 o*n sub abs 0.001 le 1.0 l*n sub abs 0.001 le and 1.0 v*n sub abs 0.001 le and %W special case {/i*p 6 def %W /e*w 0 def /n*n 0 def /w*n 1 def /t*p 0.0001 def } if %N: o*n, l*n, v*n <= 0.01 o*n abs 0.001 le l*n abs 0.001 le and v*n abs 0.001 le and %N special case {/i*p 6 def %N /e*w 0 def /n*n 1 def /w*n 0 def /t*p 0.0001 def } if %Achromatic o*n l*n sub abs 0.001 le l*n v*n sub abs 0.001 le and %Achromatic special case {/i*p 6 def %N /e*w 0 def /n*n o*n def /w*n 1 o*n sub def /t*p 0.0001 def } if /c*w 1 o*n sub def /m*w 1 l*n sub def /y*w 1 v*n sub def /t*n 1 t*p sub def /r*w 1 n*w sub w*w sub def %Ostwald equation for radial chromaticness: %with r*w=radial chromaticness, n*w=blackness, w*w=whiteness /t*w 1 n*w sub r*w 0.5 mul add def %triangle lightness /e*w r*w n*w r*w add 0.0001 add div def %Eigencolor ratio r*w abs 0.001 le r*w abs 0.001 le and {/e*w 0.0001 def} if % with 0 for achromatic (c*w=0) and 1 for whitish colors (n*w=0) /lab*rFa r*w def %/lab*tFa t*w def /h1* (-) def /h2* (-) def /H 0 def /H1* (-) def /H2* (-) def /H 0 def /IEND 0 def col_ang R*Ang gt col_ang J*Ang le and {/H* col_ang R*Ang sub J*Ang R*Ang sub div def /p*F 0.00 H* 0.25 mul add def /h1* (r) def /h2* (j) def /H1* (R) def /H2* (J) def /HM* R*Ang def /HP* J*Ang def /IEND 1 def} if col_ang J*Ang gt col_ang G*Ang le and {/H* col_ang J*Ang sub G*Ang J*Ang sub div def /p*F 0.25 H* 0.25 mul add def /h1* (j) def /h2* (g) def /H1* (J) def /H2* (G) def /HM* J*Ang def /HP* G*Ang def /IEND 1 def} if col_ang G*Ang gt col_ang B*Ang le and {/H* col_ang G*Ang sub B*Ang G*Ang sub div def /p*F 0.50 H* 0.25 mul add def /h1* (g) def /h2* (b) def /H1* (G) def /H2* (B) def /HM* G*Ang def /HP* B*Ang def /IEND 1 def} if col_ang R*Ang le IEND 0 eq and {/Pcol_ang col_ang 360 add def} {/Pcol_ang col_ang def} ifelse Pcol_ang B*Ang gt Pcol_ang R*Ang 360 add le and {/H* Pcol_ang B*Ang sub R*Ang 360 add B*Ang sub div def /p*F 0.75 H* 0.25 mul add def /h1* (b) def /h2* (r) def /H1* (B) def /H2* (R) def /HM* B*Ang def /HP* R*Ang 360 add def} if /lab*e1Fa h1* def /lab*EFa H* def /lab*e2Fa h2* def /lab*eFa p*F def /CIEF 100 88.60 div def /X* {L*F 16 add 116 div A*Fs0 500 div add } bind def /Y* {L*F 16 add 116 div } bind def /Z* {L*F 16 add 116 div B*Fs0 200 div sub} bind def /DecodeXYZ* { dup 6 29 div ge { dup dup mul mul } { 4 29 div sub 108 841 div mul } ifelse } bind def /XCIE {X* DecodeXYZ* 0.9505 mul} bind def /YCIE {Y* DecodeXYZ* } bind def /ZCIE {Z* DecodeXYZ* 1.0890 mul} bind def /XCIE1 {X* DecodeXYZ* 0.9505 mul CIEF mul} bind def /YCIE1 {Y* DecodeXYZ* CIEF mul} bind def /ZCIE1 {Z* DecodeXYZ* 1.0890 mul CIEF mul} bind def %Transformation X Y Z to RsRGB, GsRGB, BsRGB /RsRGB XCIE1 3.2406 mul YCIE1 -1.5372 mul add ZCIE1 -0.4986 mul add def /GsRGB XCIE1 -0.9686 mul YCIE1 1.8758 mul add ZCIE1 0.0415 mul add def /BsRGB XCIE1 0.0557 mul YCIE1 -0.2040 mul add ZCIE1 1.0570 mul add def /Slope 1.0 2.4 div def RsRGB 0.00313008 le {/R'sRGB RsRGB 12.92 mul def} {/R'sRGB RsRGB Slope exp 1.055 mul 0.055 sub def} ifelse GsRGB 0.00313008 le {/G'sRGB GsRGB 12.92 mul def} {/G'sRGB GsRGB Slope exp 1.055 mul 0.055 sub def} ifelse BsRGB 0.00313008 le {/B'sRGB BsRGB 12.92 mul def} {/B'sRGB BsRGB Slope exp 1.055 mul 0.055 sub def} ifelse c*w m*w y*w 0 %default output data definition } bind def %END Procedure LAB*io_to_cmyolv*ioG (L=local) /ouTab*ioG {%BEG Procedure ouTab*ioG (L=local) /Fontsize 152 Tabfakt mul def /TN {Fontsize /Times-ISOL1 FS} def /TI {Fontsize /TimesI-ISOL1 FS} def /TB {Fontsize /TimesB-ISOL1 FS} def /TBI {Fontsize /TimesBI-ISOL1 FS} def 0 0 0 setrgbcolor /o* r def /l* g def /v* b def %olv*, cmy* /yTABm ya ys 0.81 mul add def /yTABd 132 Tabfakt mul def /yTABx yTABm yTABd 1 mul sub def /yTAB0 yTABm yTABd 2 mul sub def /yTAB1 yTABm yTABd 3 mul sub def /yTAB2 yTABm yTABd 4 mul sub def /yTAB3 yTABm yTABd 5.1 mul sub def /yTAB4 yTABm yTABd 6.1 mul sub def /yTABn yTABm yTABd 7.1 mul sub def /yTAB5 yTABm yTABd 8.1 mul sub def /yTAB6 yTABm yTABd 9.2 mul sub def /yTAB7 yTABm yTABd 10.2 mul sub def /yTAB8 yTABm yTABd 11.2 mul sub def /yTAB9 yTABm yTABd 12.2 mul sub def /yTAB10 yTABm yTABd 13.3 mul sub def /yTAB11 yTABm yTABd 14.3 mul sub def /yTAB12 yTABm yTABd 15.2 mul sub def /yTAB13 yTABm yTABd 16.1 mul sub def /xTABm xa xs 0.84 mul sub def /xTABd 500 Tabfakt mul def /xTAB10 xTABm xTABd 1.15 mul add def /xTAB20 xTABm xTABd 2.00 mul add def /xTAB30 xTABm xTABd 2.85 mul add def /xTAB40 xTABm xTABd 3.70 mul add def /xTAB1 xTABm xTABd 1.60 mul add def /xTAB2 xTABm xTABd 2.55 mul add def /xTAB3 xTABm xTABd 3.50 mul add def /o3*Fa o* def /l3*Fa l* def /v3*Fa v* def xTABm yTABm moveto TBI (relative ) show TB (Inform. Technology (IT)) show xTABm yTABx moveto TI (olvi3*) show TN xTAB10 yTABx moveto o3*Fa cvsshow3 xTAB20 yTABx moveto l3*Fa cvsshow3 xTAB30 yTABx moveto v3*Fa cvsshow3 xTAB40 yTABx moveto ((1.0)) show /c3*Fa 1 o3*Fa sub def /m3*Fa 1 l3*Fa sub def /y3*Fa 1 v3*Fa sub def xTABm yTAB0 moveto TI (cmyn3*) show TN xTAB10 yTAB0 moveto c3*Fa cvsshow3 xTAB20 yTAB0 moveto m3*Fa cvsshow3 xTAB30 yTAB0 moveto y3*Fa cvsshow3 xTAB40 yTAB0 moveto ((0.0)) show LAB*ioG /c* c3*Fa def /m* m3*Fa def /y* y3*Fa def /n* 0.0 def /o* 1 c* sub def /l* 1 m* sub def /v* 1 y* sub def cmyolv*io_to_LAB*ioG xTABm yTAB3 moveto TBI (standard ) show TB (and ) show TBI (adapted ) show TB (CIELAB) show xTABm yTAB4 moveto TI (LAB*LAB) show TN xTAB1 yTAB4 moveto LAB*LF cvsshow2 xTAB2 yTAB4 moveto LAB*AF cvsshow2 xTAB3 yTAB4 moveto LAB*BF cvsshow2 xTABm yTABn moveto TI (LAB*LABa) show TN xTAB1 yTABn moveto LAB*LFa cvsshow2 xTAB2 yTABn moveto LAB*AFa cvsshow2 xTAB3 yTABn moveto LAB*BFa cvsshow2 xTABm yTAB5 moveto TI (LAB*TCHa) show TN xTAB1 yTAB5 moveto lab*tFa 100 mul cvsshow2 xTAB2 yTAB5 moveto LAB*CFa cvsshow2 xTAB3 yTAB5 moveto LAB*CFa 1.0 ge {LAB*HFa cvsshow2} {( -) show} ifelse L*F A*F B*F LAB*io_to_cmyolv*ioG %lab relative CIELAB /c4*Fa c3*Fa lab*nFa sub def %at least one of cmy will be cero /m4*Fa m3*Fa lab*nFa sub def /y4*Fa y3*Fa lab*nFa sub def /n4*Fa lab*nFa def /o4*Fa 1 c4*Fa sub def /l4*Fa 1 m4*Fa sub def /v4*Fa 1 y4*Fa sub def /i4*Fa 1 n4*Fa sub def colorm 0 eq {xTABm yTAB1 moveto TI (olvi4*) show TN xTAB10 yTAB1 moveto o4*Fa cvsshow3 xTAB20 yTAB1 moveto l4*Fa cvsshow3 xTAB30 yTAB1 moveto v4*Fa cvsshow3 xTAB40 yTAB1 moveto i4*Fa cvsshow3 xTABm yTAB2 moveto TI (cmyn4*) show TN xTAB10 yTAB2 moveto c4*Fa cvsshow3 xTAB20 yTAB2 moveto m4*Fa cvsshow3 xTAB30 yTAB2 moveto y4*Fa cvsshow3 xTAB40 yTAB2 moveto n4*Fa cvsshow3 } if colorm 1 eq {1 0 0 setrgbcolor xTABm yTAB1 moveto TI (olvi3*') show TN xTAB10 yTAB1 moveto o*sTab cvsshow3 xTAB20 yTAB1 moveto l*sTab cvsshow3 xTAB30 yTAB1 moveto v*sTab cvsshow3 xTAB40 yTAB1 moveto ((1.0)) show xTABm yTAB2 moveto TI (cmyn3*') show TN xTAB10 yTAB2 moveto 1 o*sTab sub cvsshow3 xTAB20 yTAB2 moveto 1 l*sTab sub cvsshow3 xTAB30 yTAB2 moveto 1 v*sTab sub cvsshow3 xTAB40 yTAB2 moveto ((0.0)) show 0 0 0 setrgbcolor } if xTABm yTAB6 moveto TBI (relative ) show TB (CIELAB ) show TBI (lab*) show xTABm yTAB7 moveto TI (lab*lab) show TN xTAB1 yTAB7 moveto lab*lFa cvsshow3 /lab*aFa lab*cFa LAB*HFa cos mul def /lab*bFa lab*cFa LAB*HFa sin mul def xTAB2 yTAB7 moveto lab*aFa cvsshow3 xTAB3 yTAB7 moveto lab*bFa cvsshow3 xTABm yTAB8 moveto TI (lab*tch) show TN xTAB1 yTAB8 moveto lab*tFa cvsshow3 xTAB2 yTAB8 moveto lab*cFa cvsshow3 xTAB3 yTAB8 moveto lab*cFa 0.01 ge {lab*hFa cvsshow3} {( -) show} ifelse xTABm yTAB9 moveto TI (lab*nch) show TN xTAB1 yTAB9 moveto lab*nFa cvsshow3 xTAB2 yTAB9 moveto lab*cFa cvsshow3 xTAB3 yTAB9 moveto lab*cFa 0.01 ge {lab*hFa cvsshow3} {( -) show} ifelse %lab*lrj,tce,ncE: similar to NCS xTABm yTAB10 moveto TBI (relative ) show TB (Natural Colour (NC)) show xTABm yTAB11 moveto TI (lab*lrj) show TN xTAB1 yTAB11 moveto lab*lFa cvsshow3 /lab*rFa lab*cFa lab*eFa 360 mul cos mul def /lab*jFa lab*cFa lab*eFa 360 mul sin mul def xTAB2 yTAB11 moveto lab*rFa cvsshow3 xTAB3 yTAB11 moveto lab*jFa cvsshow3 xTABm yTAB12 moveto TI (lab*tce) show TN xTAB1 yTAB12 moveto lab*tFa cvsshow3 xTAB2 yTAB12 moveto lab*cFa cvsshow3 xTAB3 yTAB12 moveto lab*cFa 0.01 ge {lab*eFa cvsshow3}{( -) show} ifelse xTABm yTAB13 moveto TI (lab*ncE) show TN xTAB1 yTAB13 moveto lab*nFa cvsshow3 xTAB2 yTAB13 moveto lab*cFa cvsshow3 xTAB3 yTAB13 moveto lab*cFa 0.01 ge {lab*e1Fa show lab*EFa 100 mul truncate cvi dup 10 lt {(0) show } if 6 string cvs show lab*e2Fa show} {( -) show} ifelse } bind def %END Procedure ouTab*ioG /ouCal*ioG {%BEG Procedure ouCal*ioG 0 0 0 setrgbcolor /o* r def /l* g def /v* b def /o3*Fa o* def /l3*Fa l* def /v3*Fa v* def /c3*Fa 1 o3*Fa sub def /m3*Fa 1 l3*Fa sub def /y3*Fa 1 v3*Fa sub def LAB*ioG /c* c3*Fa def /m* m3*Fa def /y* y3*Fa def /n* 0.0 def /o* 1 c* sub def /l* 1 m* sub def /v* 1 y* sub def cmyolv*io_to_LAB*ioG L*F A*F B*F LAB*io_to_cmyolv*ioG %lab relative CIELAB /c4*Fa c3*Fa lab*nFa sub def %at least one of cmy will be cero /m4*Fa m3*Fa lab*nFa sub def /y4*Fa y3*Fa lab*nFa sub def /n4*Fa lab*nFa def /o4*Fa 1 c4*Fa sub def /l4*Fa 1 m4*Fa sub def /v4*Fa 1 y4*Fa sub def /i4*Fa 1 n4*Fa sub def } bind def %END Procedure ouCal*ioG /proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioG { %BEG proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioG %only for calculation without hue tables %input LAB*Fa %input LAB*a (6 adapted colours OYLCVM) %input nLAB*s0 (colour white N for calculation of lab*l) %input wLAB*s0 (colour white W for achromatic axis) %output LAB*Ma %output olvi3*Ma %output cmyn3*Ma /UXF1a wLAB*s0 1 get B*Fa mul wLAB*s0 2 get A*Fa mul sub def /UXF2a wLAB*s0 2 get L*Fa mul wLAB*s0 0 get B*Fa mul sub def /UXF3a wLAB*s0 0 get A*Fa mul wLAB*s0 1 get L*Fa mul sub def /T1 0 def /T2 0 def 0 1 5 {/ia exch def /ia30 ia 3 mul def ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse /T1 LAB*a ia30 get UXF1a mul LAB*a ia30 1 add get UXF2a mul add LAB*a ia30 2 add get UXF3a mul add def /T2 LAB*a ia31 get UXF1a mul LAB*a ia31 1 add get UXF2a mul add LAB*a ia31 2 add get UXF3a mul add def T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse T1 0 le T2 0 gt and {/ia3END ia30 def exit} if } for /L*11a LAB*a ia3END get def /A*11a LAB*a ia3END 1 add get def /B*11a LAB*a ia3END 2 add get def ia3END 15 ge {/ia3END -3 def} if /L*21a LAB*a ia3END 3 add get def /A*21a LAB*a ia3END 4 add get def /B*21a LAB*a ia3END 5 add get def /NENNER L*21a L*11a sub UXF1a mul A*21a A*11a sub UXF2a mul add B*21a B*11a sub UXF3a mul add def /ZAEHLE L*21a UXF1a mul A*21a UXF2a mul add B*21a UXF3a mul add def NENNER 0 ne {/ALPH ZAEHLE NENNER div def} {/ALPH 99999} ifelse /L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def /A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def /B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def /C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def /ia30 ia 3 mul def /iap 1 ALPH sub def /iam ALPH def ia 0 eq {/c3*Ma 0 def %L, c*=0, sector O->Y /m3*Ma iam def %L, m*=1->0 /y3*Ma 1 def %L, y*=1 } if ia 1 eq {/c3*Ma iap def %L, c*=0->1, sector Y->L /m3*Ma 0 def %L, m*=0 /y3*Ma 1 def %L, y*=1 } if ia 2 eq {/c3*Ma 1 def %L, c*=1, sector L->C /m3*Ma 0 def %L, m*=0 /y3*Ma iam def %L, y*=1->0 } if ia 3 eq {/c3*Ma 1 def %L, c*=1, sector C->V /m3*Ma iap def %L, m*=1->0 /y3*Ma 0 def %L, y*=0 } if ia 4 eq {/c3*Ma iam def %L, c*=1->0, sector V->M /m3*Ma 1 def %L, m*=1 /y3*Ma 0 def %L, y*=0 } if ia 5 eq {/c3*Ma 0 def %L, c*=0, sector M->O /m3*Ma 1 def %L, m*=1 /y3*Ma iap def %L, y*=0->1 } if /o3*Ma 1 c3*Ma sub def /l3*Ma 1 m3*Ma sub def /v3*Ma 1 y3*Ma sub def /i3*Ma 1 def /lab*nMa 0.00 def /lab*cMa 1.00 def /lab*wMa 0.00 def /lab*tMa 0.50 def /lab*hMa H*Ma 360 div def /lab*lMa L*Ma nLAB*s0 0 get sub wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def } bind def %END /proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioG %END IE43/10Y/Y10M00ZED Output Linearization (OL) LAB* -> cmyolvnw* 20060101 %BEG IE43/10Y/OUTLIN1XFP.PS MXYZ_to_LAB* 20060101 %END IE43/10Y/OUTLIN1XFP.PS MXYZ_to_LAB* 20060101 %BEG DM00/CMISO_S1gLAB.DAT Output Linearization (OL), GLOBAL (G), 20011201 %EMPTY %END DM00/CMISO_S1gLAB.DAT Output Linearization (OL), GLOBAL (G), 20011201 %BEG DM00/CMISO_S1gXYZ.DAT Output Linearization (OL), GLOBAL (G), 20011201 %EMPTY %END DM00/CMISO_S1gXYZ.DAT Output Linearization (OL), GLOBAL (G), 20011201 %BEG DM00/CM_S1GCMYOS.DAT Output Linearization (OL), GLOBAL (G), 20010901 %EMPTY %END DM00/CM_S1GCMYOS.DAT Output Linearization (OL), GLOBAL (G), 20010901 %BEG IE43/10Y/OUTLIN1YFP.PS Output Linearization, coordinate transfer 20060101 %BEG IE43/10Y/OUTLIN1YFP.PS Linearization data in the File (F) for the device (Y) %File: www.ps.bam.de/IE43/10Y/Y10E00FP.PS % -- LUT Code --- /nR 9 def % LUT Größe /nG 9 def /nB 9 def /nges nR nG nB mul mul def /lut [ % Definition LUT-Tabelle Reihenfolge: RGB 000-001-002-...-010-011-012-...-100-101-... 6.250 -1.630 -1.730 % Nr. 1 0-0-0 5.880 2.210 -10.200 % Nr. 2 0-0-1 6.300 12.860 -24.560 % Nr. 3 0-0-2 7.060 21.830 -33.810 % Nr. 4 0-0-3 7.640 30.740 -42.350 % Nr. 5 0-0-4 8.460 38.160 -49.240 % Nr. 6 0-0-5 9.230 45.680 -55.950 % Nr. 7 0-0-6 9.810 50.490 -60.250 % Nr. 8 0-0-7 10.160 53.560 -62.920 % Nr. 9 0-0-8 7.240 -5.840 0.530 % Nr. 10 0-1-0 7.200 -2.610 -7.280 % Nr. 11 0-1-1 8.020 7.210 -21.800 % Nr. 12 0-1-2 8.980 15.760 -31.400 % Nr. 13 0-1-3 9.830 24.530 -40.210 % Nr. 14 0-1-4 10.820 32.520 -47.920 % Nr. 15 0-1-5 11.850 40.060 -54.910 % Nr. 16 0-1-6 12.700 45.250 -59.760 % Nr. 17 0-1-7 13.150 48.510 -62.710 % Nr. 18 0-1-8 15.010 -22.660 10.290 % Nr. 19 0-2-0 15.380 -19.980 2.050 % Nr. 20 0-2-1 16.460 -11.580 -13.560 % Nr. 21 0-2-2 17.560 -3.460 -24.320 % Nr. 22 0-2-3 18.380 5.920 -33.690 % Nr. 23 0-2-4 19.150 14.220 -42.280 % Nr. 24 0-2-5 20.170 22.590 -50.540 % Nr. 25 0-2-6 20.800 28.580 -56.080 % Nr. 26 0-2-7 21.280 32.460 -59.700 % Nr. 27 0-2-8 22.090 -35.160 20.210 % Nr. 28 0-3-0 22.350 -33.520 11.860 % Nr. 29 0-3-1 23.310 -27.020 -3.980 % Nr. 30 0-3-2 24.210 -19.910 -15.170 % Nr. 31 0-3-3 25.090 -11.490 -25.770 % Nr. 32 0-3-4 26.020 -3.360 -34.880 % Nr. 33 0-3-5 27.000 5.530 -44.060 % Nr. 34 0-3-6 27.660 12.310 -50.630 % Nr. 35 0-3-7 28.230 16.600 -54.810 % Nr. 36 0-3-8 27.650 -44.710 27.380 % Nr. 37 0-4-0 27.980 -43.750 19.230 % Nr. 38 0-4-1 29.180 -38.730 2.910 % Nr. 39 0-4-2 30.220 -32.420 -8.610 % Nr. 40 0-4-3 31.100 -24.710 -19.580 % Nr. 41 0-4-4 31.850 -16.620 -29.090 % Nr. 42 0-4-5 32.960 -7.750 -38.940 % Nr. 43 0-4-6 33.960 -1.350 -45.870 % Nr. 44 0-4-7 34.120 4.560 -50.720 % Nr. 45 0-4-8 33.430 -53.140 34.930 % Nr. 46 0-5-0 33.790 -52.850 26.680 % Nr. 47 0-5-1 34.940 -49.060 10.520 % Nr. 48 0-5-2 35.830 -43.730 -1.360 % Nr. 49 0-5-3 36.740 -37.010 -12.390 % Nr. 50 0-5-4 37.610 -29.450 -22.590 % Nr. 51 0-5-5 38.470 -20.880 -32.820 % Nr. 52 0-5-6 39.180 -13.970 -40.320 % Nr. 53 0-5-7 39.820 -9.200 -45.370 % Nr. 54 0-5-8 36.500 -58.440 39.140 % Nr. 55 0-6-0 36.920 -58.600 31.220 % Nr. 56 0-6-1 38.310 -55.830 15.120 % Nr. 57 0-6-2 39.310 -51.050 3.210 % Nr. 58 0-6-3 40.260 -44.840 -7.900 % Nr. 59 0-6-4 41.240 -37.720 -18.310 % Nr. 60 0-6-5 42.180 -29.570 -28.660 % Nr. 61 0-6-6 42.970 -22.730 -36.580 % Nr. 62 0-6-7 43.590 -17.930 -41.870 % Nr. 63 0-6-8 38.340 -61.610 40.860 % Nr. 64 0-7-0 39.180 -62.060 33.190 % Nr. 65 0-7-1 40.730 -59.630 17.150 % Nr. 66 0-7-2 42.160 -55.710 6.620 % Nr. 67 0-7-3 43.160 -49.850 -4.950 % Nr. 68 0-7-4 44.160 -43.290 -15.290 % Nr. 69 0-7-5 45.130 -35.410 -25.880 % Nr. 70 0-7-6 45.890 -29.010 -33.660 % Nr. 71 0-7-7 46.500 -24.080 -39.320 % Nr. 72 0-7-8 39.430 -62.870 42.800 % Nr. 73 0-8-0 40.220 -63.870 35.450 % Nr. 74 0-8-1 41.920 -62.230 20.210 % Nr. 75 0-8-2 43.010 -58.320 8.330 % Nr. 76 0-8-3 44.150 -53.010 -2.810 % Nr. 77 0-8-4 45.230 -46.690 -13.210 % Nr. 78 0-8-5 46.380 -39.250 -23.630 % Nr. 79 0-8-6 47.190 -32.630 -31.840 % Nr. 80 0-8-7 47.860 -27.730 -37.620 % Nr. 81 0-8-8 6.290 1.520 -0.860 % Nr. 82 1-0-0 6.470 5.630 -9.080 % Nr. 83 1-0-1 7.220 16.390 -24.460 % Nr. 84 1-0-2 8.120 25.180 -34.380 % Nr. 85 1-0-3 9.140 33.350 -42.890 % Nr. 86 1-0-4 10.100 41.270 -50.660 % Nr. 87 1-0-5 11.040 48.500 -57.490 % Nr. 88 1-0-6 11.740 52.740 -61.420 % Nr. 89 1-0-7 12.000 55.050 -63.490 % Nr. 90 1-0-8 9.400 -3.300 3.570 % Nr. 91 1-1-0 9.390 0.280 -5.090 % Nr. 92 1-1-1 10.200 9.810 -20.840 % Nr. 93 1-1-2 11.100 18.110 -31.240 % Nr. 94 1-1-3 12.110 26.630 -40.620 % Nr. 95 1-1-4 12.980 34.860 -48.820 % Nr. 96 1-1-5 13.980 42.620 -56.300 % Nr. 97 1-1-6 14.540 47.840 -61.090 % Nr. 98 1-1-7 14.900 50.370 -63.420 % Nr. 99 1-1-8 16.410 -17.780 13.000 % Nr. 100 1-2-0 16.960 -15.850 4.740 % Nr. 101 1-2-1 18.230 -8.050 -12.100 % Nr. 102 1-2-2 19.390 -0.280 -23.600 % Nr. 103 1-2-3 20.390 8.250 -33.820 % Nr. 104 1-2-4 21.560 16.640 -43.120 % Nr. 105 1-2-5 22.660 25.040 -51.640 % Nr. 106 1-2-6 23.300 30.900 -57.200 % Nr. 107 1-2-7 23.740 33.940 -60.030 % Nr. 108 1-2-8 24.480 -31.080 22.980 % Nr. 109 1-3-0 25.230 -29.850 14.260 % Nr. 110 1-3-1 25.890 -22.750 -2.890 % Nr. 111 1-3-2 26.980 -15.920 -15.060 % Nr. 112 1-3-3 28.120 -7.920 -26.320 % Nr. 113 1-3-4 29.100 0.150 -35.980 % Nr. 114 1-3-5 30.040 8.770 -45.360 % Nr. 115 1-3-6 30.680 15.080 -51.740 % Nr. 116 1-3-7 31.220 18.470 -55.280 % Nr. 117 1-3-8 30.220 -41.090 31.240 % Nr. 118 1-4-0 30.760 -40.240 23.030 % Nr. 119 1-4-1 32.230 -35.640 5.650 % Nr. 120 1-4-2 33.260 -29.590 -7.040 % Nr. 121 1-4-3 34.360 -22.250 -18.620 % Nr. 122 1-4-4 35.370 -14.350 -29.000 % Nr. 123 1-4-5 36.260 -5.390 -39.290 % Nr. 124 1-4-6 37.010 1.190 -46.360 % Nr. 125 1-4-7 37.410 5.010 -50.370 % Nr. 126 1-4-8 36.100 -50.140 38.670 % Nr. 127 1-5-0 36.910 -49.990 30.230 % Nr. 128 1-5-1 38.410 -46.380 12.670 % Nr. 129 1-5-2 39.600 -41.090 0.030 % Nr. 130 1-5-3 40.710 -34.210 -11.950 % Nr. 131 1-5-4 41.960 -26.740 -23.070 % Nr. 132 1-5-5 42.570 -17.860 -33.470 % Nr. 133 1-5-6 43.390 -11.480 -40.990 % Nr. 134 1-5-7 44.000 -7.840 -45.270 % Nr. 135 1-5-8 40.190 -55.440 44.460 % Nr. 136 1-6-0 40.960 -55.900 36.430 % Nr. 137 1-6-1 42.470 -53.470 18.920 % Nr. 138 1-6-2 43.570 -49.110 6.010 % Nr. 139 1-6-3 44.680 -43.220 -6.070 % Nr. 140 1-6-4 45.770 -36.320 -17.140 % Nr. 141 1-6-5 46.930 -28.280 -28.170 % Nr. 142 1-6-6 47.780 -21.660 -36.400 % Nr. 143 1-6-7 48.320 -17.720 -41.070 % Nr. 144 1-6-8 42.270 -59.250 47.030 % Nr. 145 1-7-0 43.360 -60.050 39.380 % Nr. 146 1-7-1 45.270 -58.310 22.240 % Nr. 147 1-7-2 46.480 -54.530 9.500 % Nr. 148 1-7-3 47.860 -49.110 -2.650 % Nr. 149 1-7-4 49.180 -42.660 -13.980 % Nr. 150 1-7-5 50.340 -34.990 -25.140 % Nr. 151 1-7-6 51.320 -28.780 -33.230 % Nr. 152 1-7-7 51.980 -24.910 -37.960 % Nr. 153 1-7-8 44.000 -61.090 48.700 % Nr. 154 1-8-0 45.320 -61.800 41.770 % Nr. 155 1-8-1 47.220 -60.820 24.830 % Nr. 156 1-8-2 48.710 -57.570 12.020 % Nr. 157 1-8-3 50.060 -52.720 0.040 % Nr. 158 1-8-4 51.290 -46.590 -11.250 % Nr. 159 1-8-5 52.570 -39.600 -22.380 % Nr. 160 1-8-6 53.390 -33.540 -30.710 % Nr. 161 1-8-7 53.960 -29.510 -35.880 % Nr. 162 1-8-8 8.950 10.040 3.970 % Nr. 163 2-0-0 9.290 13.750 -4.090 % Nr. 164 2-0-1 10.130 21.960 -20.420 % Nr. 165 2-0-2 11.010 29.350 -31.200 % Nr. 166 2-0-3 11.900 37.030 -40.720 % Nr. 167 2-0-4 12.790 44.200 -48.690 % Nr. 168 2-0-5 13.580 51.050 -55.920 % Nr. 169 2-0-6 14.190 55.340 -60.240 % Nr. 170 2-0-7 14.550 57.260 -62.140 % Nr. 171 2-0-8 12.170 5.720 7.880 % Nr. 172 2-1-0 12.680 8.690 -0.630 % Nr. 173 2-1-1 13.860 16.030 -17.220 % Nr. 174 2-1-2 14.900 23.190 -28.620 % Nr. 175 2-1-3 15.990 31.120 -39.040 % Nr. 176 2-1-4 16.620 38.420 -47.260 % Nr. 177 2-1-5 17.450 45.940 -55.290 % Nr. 178 2-1-6 18.210 50.410 -60.010 % Nr. 179 2-1-7 18.510 52.850 -62.460 % Nr. 180 2-1-8 20.300 -8.820 19.250 % Nr. 181 2-2-0 20.820 -7.060 10.390 % Nr. 182 2-2-1 22.220 -1.300 -7.410 % Nr. 183 2-2-2 23.200 5.200 -19.780 % Nr. 184 2-2-3 24.320 12.890 -31.100 % Nr. 185 2-2-4 25.290 20.800 -41.040 % Nr. 186 2-2-5 26.370 28.710 -50.180 % Nr. 187 2-2-6 26.970 34.420 -56.220 % Nr. 188 2-2-7 27.530 37.000 -59.070 % Nr. 189 2-2-8 27.940 -22.340 29.020 % Nr. 190 2-3-0 28.600 -21.160 20.140 % Nr. 191 2-3-1 30.120 -16.380 1.710 % Nr. 192 2-3-2 31.310 -10.440 -11.390 % Nr. 193 2-3-3 32.570 -3.440 -23.080 % Nr. 194 2-3-4 33.580 4.370 -33.850 % Nr. 195 2-3-5 34.590 12.850 -43.900 % Nr. 196 2-3-6 35.380 18.820 -50.610 % Nr. 197 2-3-7 35.790 22.020 -54.080 % Nr. 198 2-3-8 34.460 -31.860 37.480 % Nr. 199 2-4-0 35.090 -31.050 29.000 % Nr. 200 2-4-1 36.810 -27.780 10.480 % Nr. 201 2-4-2 37.940 -22.880 -2.890 % Nr. 202 2-4-3 39.110 -16.410 -15.410 % Nr. 203 2-4-4 40.020 -9.260 -26.380 % Nr. 204 2-4-5 41.050 -1.120 -37.340 % Nr. 205 2-4-6 41.750 5.340 -45.100 % Nr. 206 2-4-7 42.290 8.830 -49.260 % Nr. 207 2-4-8 41.060 -42.940 46.590 % Nr. 208 2-5-0 41.870 -42.550 38.260 % Nr. 209 2-5-1 43.560 -39.920 19.450 % Nr. 210 2-5-2 44.730 -35.700 5.920 % Nr. 211 2-5-3 45.850 -29.760 -7.120 % Nr. 212 2-5-4 46.950 -22.900 -19.070 % Nr. 213 2-5-5 47.950 -15.050 -30.410 % Nr. 214 2-5-6 48.780 -8.480 -38.940 % Nr. 215 2-5-7 49.470 -4.930 -43.460 % Nr. 216 2-5-8 45.660 -49.300 52.190 % Nr. 217 2-6-0 46.750 -49.240 44.030 % Nr. 218 2-6-1 48.560 -47.180 25.330 % Nr. 219 2-6-2 49.870 -43.640 11.500 % Nr. 220 2-6-3 50.650 -38.130 -1.370 % Nr. 221 2-6-4 51.810 -31.910 -13.310 % Nr. 222 2-6-5 53.040 -24.700 -25.110 % Nr. 223 2-6-6 53.950 -18.510 -33.920 % Nr. 224 2-6-7 54.490 -14.550 -39.240 % Nr. 225 2-6-8 48.560 -53.360 56.450 % Nr. 226 2-7-0 49.850 -54.080 48.900 % Nr. 227 2-7-1 51.880 -53.500 30.770 % Nr. 228 2-7-2 53.330 -50.620 17.250 % Nr. 229 2-7-3 54.660 -46.260 4.120 % Nr. 230 2-7-4 55.970 -40.600 -8.070 % Nr. 231 2-7-5 57.240 -33.590 -20.370 % Nr. 232 2-7-6 58.210 -27.590 -29.490 % Nr. 233 2-7-7 58.800 -23.780 -34.950 % Nr. 234 2-7-8 49.920 -55.530 58.180 % Nr. 235 2-8-0 51.640 -56.670 51.100 % Nr. 236 2-8-1 54.140 -56.610 33.150 % Nr. 237 2-8-2 55.770 -54.290 19.580 % Nr. 238 2-8-3 57.280 -50.480 6.800 % Nr. 239 2-8-4 58.720 -45.480 -5.200 % Nr. 240 2-8-5 60.230 -38.970 -17.350 % Nr. 241 2-8-6 61.360 -33.050 -26.880 % Nr. 242 2-8-7 61.850 -29.450 -32.280 % Nr. 243 2-8-8 13.200 19.800 10.620 % Nr. 244 3-0-0 13.410 22.580 2.380 % Nr. 245 3-0-1 14.100 28.880 -14.740 % Nr. 246 3-0-2 14.870 34.960 -26.180 % Nr. 247 3-0-3 15.580 41.510 -36.300 % Nr. 248 3-0-4 16.430 47.900 -44.850 % Nr. 249 3-0-5 17.180 53.960 -52.220 % Nr. 250 3-0-6 17.740 58.290 -56.940 % Nr. 251 3-0-7 17.980 60.190 -59.050 % Nr. 252 3-0-8 15.480 15.890 14.000 % Nr. 253 3-1-0 16.090 18.170 5.660 % Nr. 254 3-1-1 17.340 23.710 -11.720 % Nr. 255 3-1-2 18.160 29.620 -23.720 % Nr. 256 3-1-3 19.120 36.310 -34.640 % Nr. 257 3-1-4 20.060 42.890 -43.720 % Nr. 258 3-1-5 21.090 49.530 -51.880 % Nr. 259 3-1-6 21.770 53.830 -56.870 % Nr. 260 3-1-7 22.070 56.090 -59.230 % Nr. 261 3-1-8 24.320 1.760 25.070 % Nr. 262 3-2-0 25.200 3.620 16.120 % Nr. 263 3-2-1 26.750 8.210 -2.400 % Nr. 264 3-2-2 26.790 14.530 -15.860 % Nr. 265 3-2-3 27.940 20.870 -27.670 % Nr. 266 3-2-4 29.190 27.090 -37.580 % Nr. 267 3-2-5 30.150 34.250 -47.110 % Nr. 268 3-2-6 30.870 39.140 -53.260 % Nr. 269 3-2-7 31.290 42.080 -56.630 % Nr. 270 3-2-8 31.880 -11.590 35.420 % Nr. 271 3-3-0 32.720 -10.400 26.730 % Nr. 272 3-3-1 34.200 -6.750 7.540 % Nr. 273 3-3-2 35.200 -2.080 -6.110 % Nr. 274 3-3-3 36.480 3.780 -18.540 % Nr. 275 3-3-4 37.500 10.660 -29.850 % Nr. 276 3-3-5 38.550 17.780 -40.170 % Nr. 277 3-3-6 39.280 23.820 -47.750 % Nr. 278 3-3-7 39.750 26.890 -51.750 % Nr. 279 3-3-8 38.850 -22.970 44.360 % Nr. 280 3-4-0 39.870 -21.860 35.700 % Nr. 281 3-4-1 41.630 -18.900 16.200 % Nr. 282 3-4-2 42.630 -14.480 2.010 % Nr. 283 3-4-3 43.670 -8.600 -11.220 % Nr. 284 3-4-4 44.820 -2.110 -22.810 % Nr. 285 3-4-5 45.840 5.380 -34.420 % Nr. 286 3-4-6 45.640 12.460 -42.900 % Nr. 287 3-4-7 46.170 15.820 -47.490 % Nr. 288 3-4-8 46.080 -32.680 54.250 % Nr. 289 3-5-0 46.940 -32.120 45.640 % Nr. 290 3-5-1 48.500 -30.240 26.120 % Nr. 291 3-5-2 49.770 -26.880 11.520 % Nr. 292 3-5-3 50.580 -22.140 -1.790 % Nr. 293 3-5-4 51.610 -16.230 -14.430 % Nr. 294 3-5-5 52.570 -9.120 -26.630 % Nr. 295 3-5-6 53.340 -2.990 -35.880 % Nr. 296 3-5-7 53.910 0.880 -41.300 % Nr. 297 3-5-8 51.010 -40.480 60.910 % Nr. 298 3-6-0 52.100 -40.350 52.550 % Nr. 299 3-6-1 53.900 -39.110 33.110 % Nr. 300 3-6-2 55.090 -36.330 18.340 % Nr. 301 3-6-3 56.170 -31.990 4.690 % Nr. 302 3-6-4 57.290 -26.640 -7.970 % Nr. 303 3-6-5 58.380 -19.870 -20.680 % Nr. 304 3-6-6 59.230 -13.710 -30.610 % Nr. 305 3-6-7 59.760 -9.670 -36.410 % Nr. 306 3-6-8 54.730 -45.120 65.400 % Nr. 307 3-7-0 56.440 -45.650 57.570 % Nr. 308 3-7-1 58.050 -45.100 39.040 % Nr. 309 3-7-2 59.440 -43.190 24.870 % Nr. 310 3-7-3 60.790 -39.800 10.790 % Nr. 311 3-7-4 61.940 -35.230 -2.020 % Nr. 312 3-7-5 63.060 -29.320 -14.930 % Nr. 313 3-7-6 63.970 -23.630 -25.210 % Nr. 314 3-7-7 64.600 -19.670 -31.780 % Nr. 315 3-7-8 56.480 -47.990 68.390 % Nr. 316 3-8-0 58.290 -49.080 61.320 % Nr. 317 3-8-1 60.830 -49.910 43.030 % Nr. 318 3-8-2 62.350 -48.690 28.800 % Nr. 319 3-8-3 63.840 -45.950 15.250 % Nr. 320 3-8-4 65.240 -41.930 2.370 % Nr. 321 3-8-5 66.600 -36.430 -10.830 % Nr. 322 3-8-6 67.520 -31.030 -21.530 % Nr. 323 3-8-7 68.160 -27.130 -28.120 % Nr. 324 3-8-8 16.630 28.430 16.440 % Nr. 325 4-0-0 17.030 30.990 8.060 % Nr. 326 4-0-1 17.960 36.370 -9.200 % Nr. 327 4-0-2 18.650 41.150 -20.930 % Nr. 328 4-0-3 19.390 46.660 -31.530 % Nr. 329 4-0-4 20.400 52.890 -40.520 % Nr. 330 4-0-5 20.970 57.400 -47.980 % Nr. 331 4-0-6 21.350 61.540 -52.870 % Nr. 332 4-0-7 21.540 63.340 -55.150 % Nr. 333 4-0-8 19.460 24.970 20.560 % Nr. 334 4-1-0 20.010 26.890 12.150 % Nr. 335 4-1-1 21.020 31.440 -5.830 % Nr. 336 4-1-2 21.790 36.060 -18.330 % Nr. 337 4-1-3 22.690 41.520 -29.220 % Nr. 338 4-1-4 23.510 47.190 -39.020 % Nr. 339 4-1-5 24.290 53.390 -47.800 % Nr. 340 4-1-6 24.900 57.540 -53.230 % Nr. 341 4-1-7 25.160 59.570 -55.920 % Nr. 342 4-1-8 27.260 11.610 30.480 % Nr. 343 4-2-0 28.280 13.280 21.840 % Nr. 344 4-2-1 29.620 16.730 2.520 % Nr. 345 4-2-2 30.520 21.070 -10.900 % Nr. 346 4-2-3 31.690 26.700 -23.030 % Nr. 347 4-2-4 32.680 32.690 -33.840 % Nr. 348 4-2-5 33.590 39.480 -43.620 % Nr. 349 4-2-6 34.220 44.150 -50.110 % Nr. 350 4-2-7 34.500 46.830 -53.550 % Nr. 351 4-2-8 36.150 -1.120 41.560 % Nr. 352 4-3-0 35.940 0.910 31.720 % Nr. 353 4-3-1 37.360 3.580 12.360 % Nr. 354 4-3-2 38.590 7.190 -1.880 % Nr. 355 4-3-3 39.580 12.170 -14.720 % Nr. 356 4-3-4 40.520 17.630 -26.290 % Nr. 357 4-3-5 41.540 24.340 -37.420 % Nr. 358 4-3-6 42.250 29.600 -45.080 % Nr. 359 4-3-7 42.690 32.640 -49.550 % Nr. 360 4-3-8 42.520 -13.120 50.610 % Nr. 361 4-4-0 43.360 -12.150 41.680 % Nr. 362 4-4-1 44.840 -10.020 21.680 % Nr. 363 4-4-2 45.900 -6.720 7.110 % Nr. 364 4-4-3 46.970 -1.770 -6.500 % Nr. 365 4-4-4 47.820 3.800 -18.840 % Nr. 366 4-4-5 48.600 10.620 -31.120 % Nr. 367 4-4-6 49.260 16.730 -39.940 % Nr. 368 4-4-7 49.810 20.060 -44.890 % Nr. 369 4-4-8 50.240 -24.070 60.410 % Nr. 370 4-5-0 51.150 -23.140 51.450 % Nr. 371 4-5-1 52.600 -21.480 30.990 % Nr. 372 4-5-2 53.450 -18.570 15.850 % Nr. 373 4-5-3 54.410 -14.210 1.600 % Nr. 374 4-5-4 54.450 -8.460 -11.240 % Nr. 375 4-5-5 55.280 -2.110 -23.980 % Nr. 376 4-5-6 56.350 3.620 -33.490 % Nr. 377 4-5-7 56.900 7.380 -39.610 % Nr. 378 4-5-8 55.420 -31.140 67.840 % Nr. 379 4-6-0 56.340 -31.200 59.470 % Nr. 380 4-6-1 57.740 -30.800 39.240 % Nr. 381 4-6-2 58.720 -28.830 24.080 % Nr. 382 4-6-3 59.850 -25.190 9.820 % Nr. 383 4-6-4 60.690 -20.710 -3.540 % Nr. 384 4-6-5 61.650 -14.450 -17.070 % Nr. 385 4-6-6 62.590 -8.650 -27.490 % Nr. 386 4-6-7 63.290 -4.650 -34.130 % Nr. 387 4-6-8 59.560 -37.290 73.000 % Nr. 388 4-7-0 60.820 -37.920 65.180 % Nr. 389 4-7-1 62.600 -38.490 45.390 % Nr. 390 4-7-2 63.960 -37.150 30.430 % Nr. 391 4-7-3 65.290 -34.320 16.130 % Nr. 392 4-7-4 66.520 -30.250 2.700 % Nr. 393 4-7-5 67.560 -24.630 -11.010 % Nr. 394 4-7-6 68.470 -19.200 -21.850 % Nr. 395 4-7-7 69.150 -15.110 -28.940 % Nr. 396 4-7-8 62.350 -39.900 77.030 % Nr. 397 4-8-0 63.920 -41.290 69.890 % Nr. 398 4-8-1 66.170 -43.220 50.680 % Nr. 399 4-8-2 67.480 -42.870 36.040 % Nr. 400 4-8-3 68.810 -41.160 22.160 % Nr. 401 4-8-4 70.150 -38.030 8.540 % Nr. 402 4-8-5 71.360 -33.420 -5.340 % Nr. 403 4-8-6 72.500 -28.280 -16.780 % Nr. 404 4-8-7 73.080 -24.230 -24.630 % Nr. 405 4-8-8 20.850 37.440 24.080 % Nr. 406 5-0-0 21.000 39.250 15.400 % Nr. 407 5-0-1 21.660 43.300 -2.720 % Nr. 408 5-0-2 22.310 47.360 -15.030 % Nr. 409 5-0-3 23.000 52.450 -26.070 % Nr. 410 5-0-4 23.470 56.830 -35.340 % Nr. 411 5-0-5 24.200 61.950 -43.440 % Nr. 412 5-0-6 24.630 65.410 -48.390 % Nr. 413 5-0-7 24.900 67.080 -50.560 % Nr. 414 5-0-8 23.880 34.730 27.590 % Nr. 415 5-1-0 24.370 35.960 18.770 % Nr. 416 5-1-1 25.260 39.530 0.020 % Nr. 417 5-1-2 26.060 43.420 -12.980 % Nr. 418 5-1-3 26.330 48.020 -24.670 % Nr. 419 5-1-4 27.020 53.050 -34.760 % Nr. 420 5-1-5 27.860 58.110 -43.550 % Nr. 421 5-1-6 28.340 61.820 -49.230 % Nr. 422 5-1-7 28.740 63.880 -51.970 % Nr. 423 5-1-8 31.510 22.460 37.350 % Nr. 424 5-2-0 32.080 23.020 28.220 % Nr. 425 5-2-1 33.270 25.470 8.500 % Nr. 426 5-2-2 34.100 28.680 -5.510 % Nr. 427 5-2-3 35.130 33.610 -18.510 % Nr. 428 5-2-4 35.830 38.720 -29.680 % Nr. 429 5-2-5 36.730 44.540 -39.830 % Nr. 430 5-2-6 37.390 48.930 -46.710 % Nr. 431 5-2-7 37.760 51.510 -50.360 % Nr. 432 5-2-8 39.310 8.730 47.070 % Nr. 433 5-3-0 40.050 9.410 37.940 % Nr. 434 5-3-1 41.390 11.560 17.240 % Nr. 435 5-3-2 42.390 14.640 2.690 % Nr. 436 5-3-3 43.310 19.130 -10.610 % Nr. 437 5-3-4 44.140 24.310 -22.620 % Nr. 438 5-3-5 44.740 30.600 -34.130 % Nr. 439 5-3-6 45.690 35.580 -41.900 % Nr. 440 5-3-7 45.070 39.320 -47.150 % Nr. 441 5-3-8 46.150 -1.050 56.390 % Nr. 442 5-4-0 46.810 -1.180 47.260 % Nr. 443 5-4-1 47.920 -0.060 26.270 % Nr. 444 5-4-2 48.930 2.280 11.360 % Nr. 445 5-4-3 49.850 6.430 -2.660 % Nr. 446 5-4-4 50.740 11.090 -15.100 % Nr. 447 5-4-5 51.690 17.320 -27.530 % Nr. 448 5-4-6 52.290 22.650 -36.790 % Nr. 449 5-4-7 52.810 26.090 -42.280 % Nr. 450 5-4-8 54.280 -14.020 67.100 % Nr. 451 5-5-0 54.630 -14.030 57.820 % Nr. 452 5-5-1 55.920 -13.220 36.320 % Nr. 453 5-5-2 56.670 -11.070 20.980 % Nr. 454 5-5-3 57.590 -7.420 6.340 % Nr. 455 5-5-4 58.190 -2.760 -6.930 % Nr. 456 5-5-5 59.110 3.610 -20.360 % Nr. 457 5-5-6 59.940 9.080 -30.450 % Nr. 458 5-5-7 60.390 13.110 -36.700 % Nr. 459 5-5-8 60.060 -22.320 74.500 % Nr. 460 5-6-0 60.350 -22.410 64.890 % Nr. 461 5-6-1 61.800 -22.120 43.940 % Nr. 462 5-6-2 61.800 -20.210 28.750 % Nr. 463 5-6-3 62.840 -17.120 13.670 % Nr. 464 5-6-4 63.840 -13.260 0.310 % Nr. 465 5-6-5 64.980 -7.600 -13.440 % Nr. 466 5-6-6 65.740 -2.510 -24.380 % Nr. 467 5-6-7 66.390 1.560 -31.740 % Nr. 468 5-6-8 64.290 -28.420 80.570 % Nr. 469 5-7-0 64.980 -29.770 72.190 % Nr. 470 5-7-1 66.680 -30.790 51.940 % Nr. 471 5-7-2 67.880 -29.960 36.300 % Nr. 472 5-7-3 68.920 -27.800 21.640 % Nr. 473 5-7-4 70.120 -24.490 8.060 % Nr. 474 5-7-5 71.190 -19.590 -6.070 % Nr. 475 5-7-6 72.180 -14.550 -17.940 % Nr. 476 5-7-7 72.920 -10.750 -25.710 % Nr. 477 5-7-8 67.160 -32.590 84.570 % Nr. 478 5-8-0 68.570 -34.410 76.690 % Nr. 479 5-8-1 70.710 -36.870 56.900 % Nr. 480 5-8-2 72.180 -36.960 41.950 % Nr. 481 5-8-3 73.520 -35.740 27.490 % Nr. 482 5-8-4 74.920 -33.050 13.880 % Nr. 483 5-8-5 76.300 -28.860 -0.390 % Nr. 484 5-8-6 76.970 -24.740 -11.850 % Nr. 485 5-8-7 77.650 -20.420 -20.690 % Nr. 486 5-8-8 25.910 47.560 32.450 % Nr. 487 6-0-0 25.850 48.650 23.420 % Nr. 488 6-0-1 26.250 51.630 4.750 % Nr. 489 6-0-2 26.670 54.860 -8.230 % Nr. 490 6-0-3 27.190 58.700 -19.850 % Nr. 491 6-0-4 27.680 62.910 -29.500 % Nr. 492 6-0-5 28.030 66.840 -37.730 % Nr. 493 6-0-6 28.310 69.800 -43.190 % Nr. 494 6-0-7 28.460 71.340 -45.630 % Nr. 495 6-0-8 28.210 44.620 35.240 % Nr. 496 6-1-0 28.550 45.330 26.200 % Nr. 497 6-1-1 29.310 48.260 6.420 % Nr. 498 6-1-2 29.760 51.100 -7.110 % Nr. 499 6-1-3 30.300 54.950 -19.030 % Nr. 500 6-1-4 31.130 59.470 -29.430 % Nr. 501 6-1-5 31.740 63.960 -38.310 % Nr. 502 6-1-6 32.310 67.250 -43.830 % Nr. 503 6-1-7 32.570 68.850 -46.490 % Nr. 504 6-1-8 36.170 33.800 44.590 % Nr. 505 6-2-0 36.690 34.220 34.950 % Nr. 506 6-2-1 36.860 36.630 14.240 % Nr. 507 6-2-2 37.670 39.370 -0.390 % Nr. 508 6-2-3 38.680 42.560 -13.430 % Nr. 509 6-2-4 39.530 46.770 -24.710 % Nr. 510 6-2-5 40.390 51.550 -34.910 % Nr. 511 6-2-6 41.060 55.530 -42.200 % Nr. 512 6-2-7 41.400 57.820 -46.100 % Nr. 513 6-2-8 43.990 20.900 55.060 % Nr. 514 6-3-0 44.510 21.010 45.650 % Nr. 515 6-3-1 45.690 22.330 23.940 % Nr. 516 6-3-2 46.490 24.650 8.740 % Nr. 517 6-3-3 47.180 28.130 -5.130 % Nr. 518 6-3-4 48.150 32.650 -17.500 % Nr. 519 6-3-5 48.910 37.870 -29.030 % Nr. 520 6-3-6 49.240 42.370 -37.820 % Nr. 521 6-3-7 49.590 45.020 -42.570 % Nr. 522 6-3-8 51.370 9.200 64.270 % Nr. 523 6-4-0 51.800 9.500 54.260 % Nr. 524 6-4-1 52.760 10.730 32.320 % Nr. 525 6-4-2 53.400 12.900 16.720 % Nr. 526 6-4-3 53.990 16.470 1.900 % Nr. 527 6-4-4 54.840 20.600 -10.940 % Nr. 528 6-4-5 54.570 26.980 -23.930 % Nr. 529 6-4-6 55.360 31.510 -33.330 % Nr. 530 6-4-7 56.120 34.170 -38.970 % Nr. 531 6-4-8 58.830 -1.700 74.860 % Nr. 532 6-5-0 59.130 -1.880 65.020 % Nr. 533 6-5-1 60.220 -1.490 42.740 % Nr. 534 6-5-2 60.880 0.070 26.770 % Nr. 535 6-5-3 61.600 3.050 11.510 % Nr. 536 6-5-4 62.410 6.970 -2.010 % Nr. 537 6-5-5 63.190 12.000 -15.360 % Nr. 538 6-5-6 63.730 17.130 -26.420 % Nr. 539 6-5-7 64.470 20.470 -33.030 % Nr. 540 6-5-8 65.020 -11.120 82.900 % Nr. 541 6-6-0 65.580 -11.250 73.300 % Nr. 542 6-6-1 66.490 -11.540 50.870 % Nr. 543 6-6-2 67.260 -10.250 34.610 % Nr. 544 6-6-3 68.110 -7.810 19.220 % Nr. 545 6-6-4 69.020 -4.320 5.480 % Nr. 546 6-6-5 69.710 0.510 -8.480 % Nr. 547 6-6-6 70.210 5.510 -20.390 % Nr. 548 6-6-7 70.660 9.400 -27.990 % Nr. 549 6-6-8 70.150 -17.980 89.640 % Nr. 550 6-7-0 70.400 -18.340 80.520 % Nr. 551 6-7-1 71.750 -20.000 59.020 % Nr. 552 6-7-2 72.950 -19.730 42.960 % Nr. 553 6-7-3 74.080 -18.250 27.790 % Nr. 554 6-7-4 75.110 -15.770 14.100 % Nr. 555 6-7-5 76.180 -11.680 -0.430 % Nr. 556 6-7-6 77.030 -7.230 -12.860 % Nr. 557 6-7-7 77.760 -3.710 -21.340 % Nr. 558 6-7-8 73.330 -22.170 94.740 % Nr. 559 6-8-0 74.640 -24.260 86.230 % Nr. 560 6-8-1 76.750 -27.040 65.490 % Nr. 561 6-8-2 78.030 -27.660 50.050 % Nr. 562 6-8-3 79.400 -27.020 35.060 % Nr. 563 6-8-4 80.650 -25.090 20.950 % Nr. 564 6-8-5 81.840 -22.000 6.540 % Nr. 565 6-8-6 82.790 -18.070 -6.290 % Nr. 566 6-8-7 83.430 -14.600 -15.300 % Nr. 567 6-8-8 30.370 56.770 39.790 % Nr. 568 7-0-0 30.540 57.810 30.340 % Nr. 569 7-0-1 30.870 60.220 10.710 % Nr. 570 7-0-2 31.090 62.920 -2.980 % Nr. 571 7-0-3 31.460 66.240 -15.050 % Nr. 572 7-0-4 31.570 69.000 -24.740 % Nr. 573 7-0-5 31.800 72.550 -32.960 % Nr. 574 7-0-6 31.990 74.850 -38.260 % Nr. 575 7-0-7 32.090 76.150 -40.730 % Nr. 576 7-0-8 33.220 54.140 43.550 % Nr. 577 7-1-0 33.570 55.000 33.820 % Nr. 578 7-1-1 34.220 57.140 13.240 % Nr. 579 7-1-2 34.700 59.720 -0.970 % Nr. 580 7-1-3 35.270 62.690 -13.170 % Nr. 581 7-1-4 35.700 66.290 -23.950 % Nr. 582 7-1-5 36.120 70.060 -33.060 % Nr. 583 7-1-6 36.440 72.620 -38.870 % Nr. 584 7-1-7 36.700 74.050 -41.750 % Nr. 585 7-1-8 41.440 43.920 53.070 % Nr. 586 7-2-0 41.790 44.310 42.610 % Nr. 587 7-2-1 42.630 46.000 20.400 % Nr. 588 7-2-2 43.210 48.110 5.270 % Nr. 589 7-2-3 43.910 51.350 -8.150 % Nr. 590 7-2-4 44.600 55.070 -19.680 % Nr. 591 7-2-5 45.060 59.050 -29.620 % Nr. 592 7-2-6 45.490 62.330 -37.000 % Nr. 593 7-2-7 45.660 64.260 -40.940 % Nr. 594 7-2-8 48.640 33.540 62.480 % Nr. 595 7-3-0 49.010 33.630 52.180 % Nr. 596 7-3-1 49.930 34.220 29.410 % Nr. 597 7-3-2 50.720 35.810 13.920 % Nr. 598 7-3-3 51.560 38.690 -0.240 % Nr. 599 7-3-4 52.300 42.200 -12.730 % Nr. 600 7-3-5 52.910 46.270 -24.110 % Nr. 601 7-3-6 53.380 50.110 -32.900 % Nr. 602 7-3-7 53.940 52.190 -37.880 % Nr. 603 7-3-8 56.770 21.200 73.000 % Nr. 604 7-4-0 57.070 21.630 62.190 % Nr. 605 7-4-1 57.900 22.200 38.890 % Nr. 606 7-4-2 58.380 23.830 22.360 % Nr. 607 7-4-3 59.110 26.730 7.470 % Nr. 608 7-4-4 59.490 29.990 -5.680 % Nr. 609 7-4-5 59.880 34.750 -18.470 % Nr. 610 7-4-6 60.390 38.740 -28.260 % Nr. 611 7-4-7 60.760 41.530 -34.090 % Nr. 612 7-4-8 64.510 10.010 82.980 % Nr. 613 7-5-0 64.540 10.410 71.710 % Nr. 614 7-5-1 65.030 11.010 47.940 % Nr. 615 7-5-2 65.630 12.220 31.120 % Nr. 616 7-5-3 65.410 15.240 15.690 % Nr. 617 7-5-4 66.030 18.220 2.160 % Nr. 618 7-5-5 66.760 22.300 -11.230 % Nr. 619 7-5-6 67.330 26.380 -22.010 % Nr. 620 7-5-7 68.010 29.350 -29.010 % Nr. 621 7-5-8 70.300 1.620 91.400 % Nr. 622 7-6-0 70.700 1.350 80.860 % Nr. 623 7-6-1 71.630 0.780 57.330 % Nr. 624 7-6-2 72.280 1.440 40.760 % Nr. 625 7-6-3 73.010 3.410 24.820 % Nr. 626 7-6-4 73.670 5.870 11.090 % Nr. 627 7-6-5 74.260 9.810 -3.070 % Nr. 628 7-6-6 75.040 13.800 -15.070 % Nr. 629 7-6-7 75.510 16.970 -22.940 % Nr. 630 7-6-8 75.690 -6.070 98.660 % Nr. 631 7-7-0 76.410 -6.830 88.440 % Nr. 632 7-7-1 77.710 -8.610 65.640 % Nr. 633 7-7-2 78.650 -8.680 48.840 % Nr. 634 7-7-3 79.540 -7.630 33.480 % Nr. 635 7-7-4 80.240 -5.590 19.030 % Nr. 636 7-7-5 80.910 -2.250 4.750 % Nr. 637 7-7-6 81.600 1.440 -7.910 % Nr. 638 7-7-7 81.890 4.970 -16.760 % Nr. 639 7-7-8 79.300 -10.180 104.390 % Nr. 640 7-8-0 80.500 -12.420 95.130 % Nr. 641 7-8-1 82.460 -15.740 73.040 % Nr. 642 7-8-2 83.750 -16.910 57.090 % Nr. 643 7-8-3 84.960 -16.780 41.780 % Nr. 644 7-8-4 86.060 -15.780 27.860 % Nr. 645 7-8-5 87.110 -13.490 13.310 % Nr. 646 7-8-6 87.960 -10.190 -0.040 % Nr. 647 7-8-7 88.650 -7.050 -9.610 % Nr. 648 7-8-8 32.570 61.140 43.720 % Nr. 649 8-0-0 32.580 62.240 33.510 % Nr. 650 8-0-1 32.880 64.600 12.810 % Nr. 651 8-0-2 33.180 67.320 -0.900 % Nr. 652 8-0-3 33.410 70.380 -12.960 % Nr. 653 8-0-4 33.710 73.390 -22.370 % Nr. 654 8-0-5 34.040 76.420 -30.190 % Nr. 655 8-0-6 34.270 78.530 -34.970 % Nr. 656 8-0-7 34.500 79.530 -36.770 % Nr. 657 8-0-8 36.080 58.970 47.620 % Nr. 658 8-1-0 36.490 60.080 37.070 % Nr. 659 8-1-1 37.100 62.420 15.330 % Nr. 660 8-1-2 37.050 64.780 1.410 % Nr. 661 8-1-3 37.580 67.860 -11.160 % Nr. 662 8-1-4 38.140 70.900 -21.580 % Nr. 663 8-1-5 38.610 74.120 -30.330 % Nr. 664 8-1-6 39.010 76.520 -35.750 % Nr. 665 8-1-7 39.250 77.800 -38.480 % Nr. 666 8-1-8 44.230 49.480 57.870 % Nr. 667 8-2-0 44.880 50.440 46.970 % Nr. 668 8-2-1 45.610 51.920 23.620 % Nr. 669 8-2-2 46.270 54.100 8.210 % Nr. 670 8-2-3 46.920 56.930 -5.180 % Nr. 671 8-2-4 47.540 60.150 -16.660 % Nr. 672 8-2-5 48.020 63.740 -26.810 % Nr. 673 8-2-6 48.320 66.800 -33.980 % Nr. 674 8-2-7 48.530 68.370 -37.810 % Nr. 675 8-2-8 52.270 38.120 67.740 % Nr. 676 8-3-0 52.780 39.010 56.060 % Nr. 677 8-3-1 53.680 40.290 32.120 % Nr. 678 8-3-2 54.280 42.460 16.080 % Nr. 679 8-3-3 54.840 45.360 2.020 % Nr. 680 8-3-4 55.290 48.630 -10.140 % Nr. 681 8-3-5 55.810 52.500 -21.560 % Nr. 682 8-3-6 55.350 56.620 -30.290 % Nr. 683 8-3-7 55.990 58.260 -35.010 % Nr. 684 8-3-8 59.190 28.860 77.260 % Nr. 685 8-4-0 59.410 29.550 65.320 % Nr. 686 8-4-1 60.230 30.190 41.050 % Nr. 687 8-4-2 60.950 31.860 24.700 % Nr. 688 8-4-3 61.450 34.380 9.620 % Nr. 689 8-4-4 62.150 37.530 -2.930 % Nr. 690 8-4-5 62.610 41.470 -15.500 % Nr. 691 8-4-6 63.070 45.180 -25.110 % Nr. 692 8-4-7 63.410 47.510 -30.780 % Nr. 693 8-4-8 67.420 16.870 88.030 % Nr. 694 8-5-0 67.690 17.760 76.170 % Nr. 695 8-5-1 68.300 18.410 51.040 % Nr. 696 8-5-2 68.830 19.760 34.070 % Nr. 697 8-5-3 69.320 22.030 18.950 % Nr. 698 8-5-4 69.810 24.920 5.330 % Nr. 699 8-5-5 70.350 28.860 -8.300 % Nr. 700 8-5-6 70.830 32.820 -18.810 % Nr. 701 8-5-7 71.110 35.560 -25.330 % Nr. 702 8-5-8 73.230 9.030 95.610 % Nr. 703 8-6-0 73.580 9.550 83.480 % Nr. 704 8-6-1 74.170 10.230 60.100 % Nr. 705 8-6-2 74.940 10.740 42.750 % Nr. 706 8-6-3 75.770 12.090 27.170 % Nr. 707 8-6-4 76.480 14.330 13.400 % Nr. 708 8-6-5 77.110 17.570 -0.160 % Nr. 709 8-6-6 77.810 21.130 -11.780 % Nr. 710 8-6-7 78.360 23.840 -19.560 % Nr. 711 8-6-8 78.960 1.530 104.080 % Nr. 712 8-7-0 79.880 1.150 93.300 % Nr. 713 8-7-1 81.270 -0.320 69.330 % Nr. 714 8-7-2 82.160 -0.330 52.390 % Nr. 715 8-7-3 83.060 0.510 37.170 % Nr. 716 8-7-4 83.770 2.240 22.960 % Nr. 717 8-7-5 84.530 5.150 8.450 % Nr. 718 8-7-6 85.280 8.480 -3.960 % Nr. 719 8-7-7 85.730 11.340 -12.570 % Nr. 720 8-7-8 82.730 -3.510 109.240 % Nr. 721 8-8-0 84.330 -4.940 99.270 % Nr. 722 8-8-1 86.460 -7.870 76.430 % Nr. 723 8-8-2 87.640 -8.820 60.350 % Nr. 724 8-8-3 88.750 -8.670 44.870 % Nr. 725 8-8-4 89.720 -7.640 30.860 % Nr. 726 8-8-5 90.700 -5.550 17.020 % Nr. 727 8-8-6 91.470 -2.810 4.230 % Nr. 728 8-8-7 91.970 -0.180 -5.110 % Nr. 729 8-8-8 ] def % --- Lab2RGB ----------------- % % --- Eingabe (stack): L* a* b* % --- Ausgabe (stack): iR iG iB ; die Indizes des LUT-Wertes mit dem geringsten Delta-E bzgl. Eingabewert % ---- : delta-E ; und das Delta-E dazu % /Lab2RGB { /Zielb exch def /Ziela exch def /ZielL exch def /dE 1000 def /opt 0 def 1 1 nges { 1 sub 3 mul /ii exch def /dL lut ii get ZielL sub abs def dE dL ge { %dE>dL /da lut ii 1 add get Ziela sub abs def dE da ge { %dE>da /db lut ii 2 add get Zielb sub abs def dE db ge { %dE>db /dEneu dL dL mul da da mul db db mul add add sqrt def dE dEneu ge { % test ob dEneuv8: RGB, RGB+1, RG+1B, RG+1B+1, usw.. % --- Ausgabe (stack): keine % /set_oktant { /B_index exch def /G_index exch def /R_index exch def R_index G_index B_index indexkonv /tempindex exch def % /eswird R_index G_index B_index /zu tempindex /lin_v8L lut tempindex get def /lin_v8a lut tempindex 1 add get def /lin_v8b lut tempindex 2 add get def R_index G_index B_index 1 sub indexkonv /tempindex exch def % /eswird R_index G_index B_index 1 sub /zu tempindex jens /lin_v7L lut tempindex get def /lin_v7a lut tempindex 1 add get def /lin_v7b lut tempindex 2 add get def R_index G_index 1 sub B_index indexkonv /tempindex exch def /lin_v6L lut tempindex get def /lin_v6a lut tempindex 1 add get def /lin_v6b lut tempindex 2 add get def R_index G_index 1 sub B_index 1 sub indexkonv /tempindex exch def /lin_v5L lut tempindex get def /lin_v5a lut tempindex 1 add get def /lin_v5b lut tempindex 2 add get def R_index 1 sub G_index B_index indexkonv /tempindex exch def /lin_v4L lut tempindex get def /lin_v4a lut tempindex 1 add get def /lin_v4b lut tempindex 2 add get def R_index 1 sub G_index B_index 1 sub indexkonv /tempindex exch def /lin_v3L lut tempindex get def /lin_v3a lut tempindex 1 add get def /lin_v3b lut tempindex 2 add get def R_index 1 sub G_index 1 sub B_index indexkonv /tempindex exch def /lin_v2L lut tempindex get def /lin_v2a lut tempindex 1 add get def /lin_v2b lut tempindex 2 add get def R_index 1 sub G_index 1 sub B_index 1 sub indexkonv /tempindex exch def /lin_v1L lut tempindex get def /lin_v1a lut tempindex 1 add get def /lin_v1b lut tempindex 2 add get def } def % Ende set_oktant % --- L_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /L_abc { /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8L alpha beta gamma mul mul mul lin_v7L alpha beta gammam mul mul mul add lin_v6L alpha betam gamma mul mul mul add lin_v5L alpha betam gammam mul mul mul add lin_v4L alpham beta gamma mul mul mul add lin_v3L alpham beta gammam mul mul mul add lin_v2L alpham betam gamma mul mul mul add lin_v1L alpham betam gammam mul mul mul add } def % Ende L_abc % --- a_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /a_abc { /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8a alpha beta gamma mul mul mul lin_v7a alpha beta gammam mul mul mul add lin_v6a alpha betam gamma mul mul mul add lin_v5a alpha betam gammam mul mul mul add lin_v4a alpham beta gamma mul mul mul add lin_v3a alpham beta gammam mul mul mul add lin_v2a alpham betam gamma mul mul mul add lin_v1a alpham betam gammam mul mul mul add } def % Ende a_abc % --- b_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /b_abc { /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8b alpha beta gamma mul mul mul lin_v7b alpha beta gammam mul mul mul add lin_v6b alpha betam gamma mul mul mul add lin_v5b alpha betam gammam mul mul mul add lin_v4b alpham beta gamma mul mul mul add lin_v3b alpham beta gammam mul mul mul add lin_v2b alpham betam gamma mul mul mul add lin_v1b alpham betam gammam mul mul mul add } def % Ende b_abc % --- Jacobi_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): Jacobi Matrix an der stelle abc im aktuellen Oktanten % in der reihenfolge abcdefghi % (a b c) % (d e f) % (g h i) % /Jacobi_abc { /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v5L lin_v1L sub betam gammam mul mul lin_v6L lin_v2L sub betam gamma mul mul add lin_v7L lin_v3L sub beta gammam mul mul add lin_v8L lin_v4L sub beta gamma mul mul add lin_v3L lin_v1L sub alpham gammam mul mul lin_v4L lin_v2L sub alpham gamma mul mul add lin_v7L lin_v5L sub alpha gammam mul mul add lin_v8L lin_v6L sub alpha gamma mul mul add lin_v2L lin_v1L sub alpham betam mul mul lin_v4L lin_v3L sub alpham beta mul mul add lin_v6L lin_v5L sub alpha betam mul mul add lin_v8L lin_v7L sub alpha beta mul mul add lin_v5a lin_v1a sub betam gammam mul mul lin_v6a lin_v2a sub betam gamma mul mul add lin_v7a lin_v3a sub beta gammam mul mul add lin_v8a lin_v4a sub beta gamma mul mul add lin_v3a lin_v1a sub alpham gammam mul mul lin_v4a lin_v2a sub alpham gamma mul mul add lin_v7a lin_v5a sub alpha gammam mul mul add lin_v8a lin_v6a sub alpha gamma mul mul add lin_v2a lin_v1a sub alpham betam mul mul lin_v4a lin_v3a sub alpham beta mul mul add lin_v6a lin_v5a sub alpha betam mul mul add lin_v8a lin_v7a sub alpha beta mul mul add lin_v5b lin_v1b sub betam gammam mul mul lin_v6b lin_v2b sub betam gamma mul mul add lin_v7b lin_v3b sub beta gammam mul mul add lin_v8b lin_v4b sub beta gamma mul mul add lin_v3b lin_v1b sub alpham gammam mul mul lin_v4b lin_v2b sub alpham gamma mul mul add lin_v7b lin_v5b sub alpha gammam mul mul add lin_v8b lin_v6b sub alpha gamma mul mul add lin_v2b lin_v1b sub alpham betam mul mul lin_v4b lin_v3b sub alpham beta mul mul add lin_v6b lin_v5b sub alpha betam mul mul add lin_v8b lin_v7b sub alpha beta mul mul add } def % Ende Jacobi_abc % --- Inverse_mat ----------------- % % --- Eingabe (stack): Matrix in der reihenfolge abcdefghi % invertiert die Matrix (a b c) % (d e f) % (g h i) % --- Ausgabe (stack): Matrix % /Inverse_mat { /i_i exch def /i_h exch def /i_g exch def /i_f exch def /i_e exch def /i_d exch def /i_c exch def /i_b exch def /i_a exch def /i_det i_a i_e i_i mul mul i_b i_d i_i mul mul sub i_a i_f i_h mul mul sub i_c i_d i_h mul mul add i_b i_f i_g mul mul add i_c i_e i_g mul mul sub def i_e i_i mul i_f i_h mul sub i_det div %a der inversen auf stack i_c i_h mul i_b i_i mul sub i_det div %b der inversen auf stack i_b i_f mul i_c i_e mul sub i_det div %c der inversen auf stack i_f i_g mul i_d i_i mul sub i_det div %d der inversen auf stack i_a i_i mul i_c i_g mul sub i_det div %e der inversen auf stack i_c i_d mul i_a i_f mul sub i_det div %f der inversen auf stack i_d i_h mul i_e i_g mul sub i_det div %g der inversen auf stack i_b i_g mul i_a i_h mul sub i_det div %h der inversen auf stack i_a i_e mul i_b i_d mul sub i_det div %i der inversen auf stack } def % Ende Inverse_mat % --- linear_finden ----------------- % % --- Eingabe (stack): iR iG iB ; Indizes eines LUT-Wertes, kennzeichnet die dem Ursprung entfernteste Ecke des % ausgewählten Raumbereiches % L* a* b* ; danach der zielpunkt als lab wert % --- Ausgabe (stack): Delta-E: Abstand zum Zielpunkt % alpha, beta, gamma die den kürzesten abstand zum gegebenen zielpunkt aufweisen % /linear_finden { /lin_zielb exch def /lin_ziela exch def /lin_zielL exch def set_oktant /akt_a 0.5 def /akt_b 0.5 def /akt_c 0.5 def /last_L akt_a akt_b akt_c L_abc def /last_a akt_a akt_b akt_c a_abc def /last_b akt_a akt_b akt_c b_abc def /diff_L last_L lin_zielL sub def /diff_a last_a lin_ziela sub def /diff_b last_b lin_zielb sub def 0 %default rückgabewert für delta-e (wird nie benutzt, aber für pop wichtig) 1 1 10 { pop %pop schleifenzähler pop %pop letzes Delta-E akt_a akt_b akt_c Jacobi_abc Inverse_mat diff_b mul exch diff_a mul add exch diff_L mul add /delta_c exch def diff_b mul exch diff_a mul add exch diff_L mul add /delta_b exch def diff_b mul exch diff_a mul add exch diff_L mul add /delta_a exch def % akt_a akt_b akt_c % delta_a delta_b delta_c /akt_a akt_a delta_a sub def /akt_b akt_b delta_b sub def /akt_c akt_c delta_c sub def akt_a 0 lt {/akt_a 0 def} if akt_b 0 lt {/akt_b 0 def} if akt_c 0 lt {/akt_c 0 def} if 1 akt_a lt {/akt_a 1 def} if 1 akt_b lt {/akt_b 1 def} if 1 akt_c lt {/akt_c 1 def} if /last_L akt_a akt_b akt_c L_abc def /last_a akt_a akt_b akt_c a_abc def /last_b akt_a akt_b akt_c b_abc def /diff_L last_L lin_zielL sub def /diff_a last_a lin_ziela sub def /diff_b last_b lin_zielb sub def %/nächster %akt_a %akt_b %akt_c %last_L %last_a %last_b diff_L dup mul diff_a dup mul diff_b dup mul add add sqrt dup %Abbruch wenn Delta_e<0.1 0.1 lt {exit} if } for akt_a akt_b akt_c } def /Lab2RGBinterpolation { /Ziel_b exch def /Ziel_a exch def /Ziel_L exch def Ziel_L Ziel_a Ziel_b Lab2RGB /now_delta_e exch def /B_next exch def /G_next exch def /R_next exch def /R_fin R_next nR 1 sub div def % defaults falls kein besserer wert gefunden /G_fin G_next nG 1 sub div def /B_fin B_next nB 1 sub div def -1 1 2 { R_next add /R_now exch def -1 1 2 { G_next add /G_now exch def -1 1 2 { B_next add /B_now exch def B_now 0 gt G_now 0 gt R_now 0 gt nB B_now gt nG G_now gt nR R_now gt and and and and and { R_now G_now B_now Ziel_L Ziel_a Ziel_b linear_finden /now_c exch def /now_b exch def /now_a exch def dup %rückgabe delta-e doppeln now_delta_e lt { /now_delta_e exch def /Bs0 B_now 1 sub nB 1 sub div 255 mul round 255 div def /Bs1 B_now nB 1 sub div 255 mul round 255 div def /B_fin Bs0 1 now_c sub mul Bs1 now_c mul add def /Gs0 G_now 1 sub nG 1 sub div 255 mul round 255 div def /Gs1 G_now nG 1 sub div 255 mul round 255 div def /G_fin Gs0 1 now_b sub mul Gs1 now_b mul add def /Rs0 R_now 1 sub nR 1 sub div 255 mul round 255 div def /Rs1 R_now nR 1 sub div 255 mul round 255 div def /R_fin Rs0 1 now_a sub mul Rs1 now_a mul add def } { pop } ifelse } if } for } for } for R_fin G_fin B_fin } bind def % Ende Lab2RGBinterpolation /setrgbcolor {/b exch def /g exch def /r exch def /IMODE 0 def ouCal*ioG L*F A*F B*F Lab2RGBinterpolation /v*s exch def /l*s exch def /o*s exch def o*s l*s v*s sgrgbcolor } def %END IE43/10Y/Y10E00FP.PS Linearization data in the File (F) for the device (Y) %END IE43/10Y/OUTLIN1YFP.PS Output Linearization, coordinate transfer 20060101 %BEG IE43/10Y/OUTLIN1IFP.PS olv* image input and output Linearization 20060101 %END IE43/10Y/OUTLIN1IFP.PS olv* image input and output Linearization 20060101 /CFilenameS1g %START output of step S1g (www.ps.bam.de/IE43/10Y/Y10M00N) def %Link file name for data /CDateS1g (2009-10-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (IE43/10Y/Y10M00N) def %File name measured in step S1g %change scount2g from 2 to 10 for 10 series %change pcount2g from 8 to 240 for 240 pages of each series /scount1g 1 def /scount2g 1 def /scountg 1 def /pcount1g 1 def /pcount2g 10 def /pcountg 1 def %start=1, one more 9+1! /xchart1g 0 def /xchart2g 9 def /xchartg 0 def /BeginEPSF { % def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF { % def count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /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 % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /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 /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-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 /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-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 %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [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 /tzam [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 /tzay [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 /tzan [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 /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 CMYKD /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 /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /A4quer {598 0 translate 90 rotate} def %0 %1 /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def /tzank [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 %picturetransfer from standard locations (8 pictures, 5 test charts) /xpic5458 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %x for chartg=0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %x for chartg=1 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %x for chartg=2 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %x for chartg=3 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def %x for chartg=4 /ypic5458 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %y for chartg=0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %y for chartg=1 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %y for chartg=2 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %y for chartg=3 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def %y for chartg=4 %BEG 61 lines comment or new PS operators possible %02 %03 %04 %05 %06 %07 %08 %09 %11 %END 38 lines comment or new PS operators possible %%EndProlog %%BeginPageSetup /#copies 1 def %A4quer 1.0 1.0 scale /pgsave save def %%EndPageSetup 0.0 MM 0.0 MM translate %Verschiebung nach oben und links fuer Belichter gsave /SS$ [(g) (e) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(A.PS /.TXT) (B.PS /.BMP) (G.PS /.GIF) (H.PS /.HTM) (I.PS /.HTM) (J.PS /.JPE) (P.PDF /.PS) (T.PS /.TIF)] def /EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /lanindg1 1 def /lanindg2 1 def /colormg1 1 def /colormg2 1 def /xcolorg1 0 def /xcolorg2 0 def /xchartg1 0 def /xchartg2 0 def /lanindg lanindg1 def %no loops /colormg colormg1 def /xcolorg xcolorg1 def /xchartg xchartg1 def /pcount2x pcount2g xchart2g sub 2 add def %scount1g 1 scount2g {/scountg exch def %s=serie, e. g. 1,1,10 %pcount1g 1 pcount2x {/pcountg exch def %p=page, e. g. 1,1,250 /xchart10 0 def /xchart20 1 def %pcountg pcount1g eq {/xchart10 0 def /xchart20 0 def} % {/xchart10 1 def /xchart20 1 def} ifelse %pcountg pcount2x eq {/xchart10 2 def /xchart20 9 def} if xchart10 1 xchart20 {/xchartg exch def %2 MM /Times-Roman FS %274 MM 82 MM moveto -90 rotate (/IE43/ ) show (Form: ) show %xchartg 1 add cvi 6 string cvs show (/) show %xchart2g 1 add cvi 6 string cvs show (,) show 90 rotate %274 MM 65 MM moveto -90 rotate (Serie: ) show %scountg cvi 6 string cvs show (/) show %scount2g cvi 6 string cvs show (,) show 90 rotate %274 MM 55 MM moveto -90 rotate %lanindg 0 eq {(Seite: )}{(Page: )} ifelse show %pcountg xchartg xchart10 sub add cvi 6 string cvs show 90 rotate %274 MM 45 MM moveto %-90 rotate %lanindg 0 eq {(Seitenz\344hlung )}{(Page: count: )} ifelse show %scountg 1 sub pcount2g mul pcountg add %pcountg pcount2x eq {xchartg add pcount1g pcount2x ne {2 sub } if} if %cvi 6 string cvs show %90 rotate /GSS$ SS$ lanindg get def /GSC$ SC$ colormg get def /xcolol xcolorg xcolorg 16 idiv 16 mul sub def /GSX$ SX$ xcolol get def /xcharl xchartg xchartg 16 idiv 16 mul sub def /GSY$ SY$ xcharl get def /GEX$ EX$ 6 get def /GEY$ EY$ 6 get def /xcha801 xchartg 8 mul 0 add def /xcha803 xchartg 8 mul 1 add def /xcha805 xchartg 8 mul 2 add def /xcha807 xchartg 8 mul 3 add def /xcha811 xchartg 8 mul 4 add def /xcha813 xchartg 8 mul 5 add def /xcha815 xchartg 8 mul 6 add def /xcha817 xchartg 8 mul 7 add def %gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %!PS-Adobe-3.0 EPSF-3.0 IE430-1N.EPS %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 7 /Times-Roman FS 72 83 moveto %!2 (IE430-1, )show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %line 339 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %!PS-Adobe-3.0 EPSF-3.0 IE430-2, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (IE430-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %line 349 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %!PS-Adobe-3.0 EPSF-3.0 IE430-3N %%BoundingBox: 70 82 420 330 %START PDFDE011.EPS /pdfmark03 where {pop} {userdict /pdfmark03 /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: Image Technology) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2009090112000) /ModDate (D:2009090112000) /DOCINFO pdfmark03 [ /View [ /FitB ] /DOCVIEW pdfmark03 %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 /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-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 /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-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 %*********************************************************** /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 /nshow {300 /Times-ISOL1 FS show} bind def /kshow {300 /TimesI-ISOL1 FS show} bind def /bshow {300 /TimesB-ISOL1 FS show} bind def /jshow {300 /TimesBI-ISOL1 FS show} bind def /sshow {300 /Symbol FS show} bind def /ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def /eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def /cvishow {0.5 add cvi 6 string cvs show} def /cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} 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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 1 def /colorm2 1 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /xchartg where {pop /xchart xchartg def} {/xchart 1 def} ifelse /xcolorg where {pop /xcolor xcolorg def} {/xcolor 0 def} ifelse xchart 1 eq {%xchart=1 72 90 translate 0.01 MM dup scale gsave 20 setlinewidth 1.0 setgray 0 0 moveto 12000 0 rlineto 0 8200 rlineto -12000 0 rlineto closepath fill 0.0 setgray 0 0 moveto 12000 0 rlineto 0 8200 rlineto -12000 0 rlineto closepath stroke TM 00100 -240 moveto (Teil 1) showde (Part 1) showen 10000 -240 moveto (IE431-1) show /y0 7800 def /yd 320 def TBG 100 y0 moveto (Equality of grey series by four grey definitions (Yes/No decision)) showen (Gleichheit von Graureihen mit vier Graudefinitionen (Ja/Nein\255Entscheidung)) showde TM 400 y0 yd 1.1 mul sub moveto (Layoutbeispiel: 16\255stufige Graureihen mit vier Graudefinitionen) showde (Layout example: 16 step grey series with four grey definitions) showen TM 6000 y0 yd 2.2 mul sub moveto (There are two basic colours on each page:) showen (Es gibt zwei Grundfarben auf jeder Seite:) showde 6000 y0 yd 3.2 mul sub moveto (Black N and White W in mean grey background.) showen (Schwarz N und Wei\337 W in grauem Umfeld.) showde 6000 y0 yd 4.4 mul sub moveto (There are adjacent (upper row)) showen (Es gibt aneinandergrenzende (obere Reihe)) showde 6000 y0 yd 5.4 mul sub moveto (and separate grey samples (lower row).) showen (und separate Graumuster (untere Reihe).) showde 6000 y0 yd 6.4 mul sub moveto (This gives eight grey series.) showen (Dies erzeugt acht Graureihen.) showde 6000 y0 yd 7.6 mul sub moveto (In each colunme the four adjacent greys) showen (In jeder Spalte sollten die vier aneinander\255) showde 6000 y0 yd 8.6 mul sub moveto (should be equal.) showen (grenzenden Graustufen gleich sein.) showde 6000 y0 yd 9.8 mul sub moveto (The four grey series are defined by four) showen (Die vier Graureihen sind mit vier) showde 6000 y0 yd 10.8 mul sub moveto ( different PS\255operators.) showen ( verschiedenen PS\255Operatoren definiert.) showde /xpN 1000 def /ypN 4300 def /xsize 4400 def /ysize 4500 0.7 mul def /ysiz4 ysize 0.25 mul def xpN 600 sub ypN 400 sub moveto ( Black N) showen (Schwarz N) showde xpN xsize add 500 sub ypN 400 sub moveto (White W) showen (Wei\337 W) showde xpN 1400 add ypN 400 sub moveto (16 steps) showen (16 Stufen) showde newpath 0.5 setgray xpN 150 sub ypN 100 sub moveto xsize 200 add 0 rlineto 0 ysize rlineto xsize 200 add neg 0 rlineto closepath fill 0.0 setgray xpN 150 sub ypN 100 sub moveto xsize 200 add 0 rlineto 0 ysize rlineto xsize 200 add neg 0 rlineto closepath stroke 0.3 setlinewidth 1.0 setgray xpN 100 sub ypN 100 sub ysiz4 1 mul add moveto xsize 000 sub 0 rlineto stroke xpN 100 sub ypN 100 sub ysiz4 2 mul add moveto xsize 000 sub 0 rlineto stroke xpN 100 sub ypN 100 sub ysiz4 3 mul add moveto xsize 000 sub 0 rlineto stroke /ifak 0.2 def 0 1 3 {/k exch def %k=0,3 /ypNk ypN ysiz4 k mul add def /iy0 ypNk 50 add def /s 0700 ifak mul def 0 1 15 {/j exch def /ix0 xpN j 1400 ifak mul mul add def 1 setgray ix0 iy0 s s rec fill 0 setgray ix0 iy0 s s rec stroke } for %j /s 1400 ifak mul def /iy0 ypNk 1500 ifak mul add def 0 1 15 {/j exch def /ix0 xpN j 1400 ifak mul mul 350 ifak mul sub add def 1 setgray ix0 iy0 s s rec fill 0 setgray ix0 iy0 s s rec stroke } for %j } for %k=0,3 0 setgray xpN 360 sub ypN 2600 add moveto (1) show xpN 360 sub ypN 1800 add moveto (2) show xpN 360 sub ypN 1000 add moveto (3) show xpN 360 sub ypN 200 add moveto (4) show /yt0 03500 def /x00 00100 def /x10 00900 def /x01 10100 def /x20 10900 def 100 yt0 moveto TM (This test uses only the four upper adjacent grey series N-W.) showen (Die Pr\374fung benutzt nur die vier oberen aneinandergrenzenden) showde ( Graureihen N-W.) showde 100 yt0 yd 1 mul sub moveto (For the upper grey series and in each columne) showen ( the four greys should be equal for) showen (F\374r die oberen Graureihen und in jeder Spalte) showde ( sollten die vier Graus f\374r) showde TBM ( all) showen ( alle) showde TM ( the 16 steps.) showen ( 16 Stufen gleich sein.) showde TBM x00 yt0 yd 2.2 mul sub moveto (Are in each columne) showen (Sind in jeder Spalte) showde ( the four greys for all the 16 steps equal?) showen ( die vier Graus f\374r alle 16 Stufen gleich?) showde TBM x00 8900 add yt0 yd 2.2 mul sub moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde TBM x00 yt0 yd 3.4 mul sub moveto (Only in case of "No":) showen (Nur bei "Nein":) showde TM x00 300 add yt0 yd 4.6 mul sub moveto (Is row no. 3 most different compared to all others ?) showen (Ist Reihe Nr. 3 am meisten verschieden von allen anderen?) showde x00 8900 add yt0 yd 4.6 mul sub moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde x00 300 add yt0 yd 5.6 mul sub moveto (Are the series no. 1, no. 2, and no. 4 equal?) showen (Sind die Reihen Nr. 1, Nr. 2 und Nr. 4 gleich?) showde x00 8900 add yt0 yd 5.6 mul sub moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde TBM x00 300 add yt0 yd 6.8 mul sub moveto (Only in case of "No":) showen (Nur bei "Nein":) showde TM x00 600 add yt0 yd 7.8 mul sub moveto (Are the rows no. 2 and no. 4 equal ?) showen (Sind die Reihen Nr. 2 und Nr. 4 gleich?) showde x00 8900 add yt0 yd 7.8 mul sub moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde TM x00 yt0 yd 9 mul sub moveto (Remarks, e. q. other equality: .......................................) showen (Anmerkungen, z. B. andere Gleichheit .................................) showde TM x00 yt0 yd 10 mul sub moveto (......................................................................) showen (......................................................................) showde %TM %x00 yt0 yd 11 mul sub moveto %(......................................................................) showen %(......................................................................) showde showpage grestore } if %xchart=1 %%Trailer %line 359 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %!PS-Adobe-3.0 EPSF-3.0 IE430-4, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (IE430-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %line 369 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 064 MM 44 MM sub translate %15->17 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %!PS-Adobe-3.0 EPSF-3.0 IE430-5N %%BoundingBox: 70 82 420 330 %START PDFDE011.EPS /pdfmark05 where {pop} {userdict /pdfmark05 /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: Image Technology) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2009090112000) /ModDate (D:2009090112000) /DOCINFO pdfmark05 [ /View [ /FitB ] /DOCVIEW pdfmark05 %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 /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-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 /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-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 %*********************************************************** /nshow {300 /Times-ISOL1 FS show} bind def /kshow {300 /TimesI-ISOL1 FS show} bind def /bshow {300 /TimesB-ISOL1 FS show} bind def /jshow {300 /TimesBI-ISOL1 FS show} bind def /sshow {300 /Symbol FS show} bind def /ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def /eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def /cvishow {0.5 add cvi 6 string cvs show} def /cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} 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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 1 def /colorm2 1 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /xchartg where {pop /xchart xchartg def} {/xchart 1 def} ifelse /xcolorg where {pop /xcolor xcolorg def} {/xcolor 0 def} ifelse xchart 1 eq {%xchart=1 72 90 translate 0.01 MM dup scale gsave 20 setlinewidth 1.0 setgray 0 0 moveto 12000 0 rlineto 0 8300 rlineto -12000 0 rlineto closepath fill 0.0 setgray 0 0 moveto 12000 0 rlineto 0 8300 rlineto -12000 0 rlineto closepath stroke TM 00100 -240 moveto (Teil 3) showde (Part 3) showen 10000 -240 moveto (IE430-5) show %(Documentation of file format, hardware and software) showen %(Dokumentation von Dateiformat, Hard\255 und Software) showde /x20 100 def /y20 7200 def /yd 320 def TBG x20 y20 yd 2.3 mul add moveto (Documentation of file format, hardware and software) showen ( for this test:) showen (Dokumentation von Dateiformat, Hard\255 und Software) showde ( f\374r diese Pr\374fung:) showde TBM x20 y20 yd add moveto (PDF\255File:) showen (PDF\255Datei:) showde TM x20 1500 add y20 yd add moveto ( either xxx/IE43/IE43L0NP.PDF) showen ( entweder xxx/IG43/IG43L0NP.PDF) showde TBM x20 8900 add y20 yd add moveto (underline Yes/No) showen (unterstreiche Ja/Nein) showde TM x20 1500 add y20 yd 0 mul add moveto ( or xxx/IE43/IE43P0NP.PDF) showen ( oder xxx/IG43/IG43P0NP.PDF) showde TBM x20 8400 add y20 yd 0 mul add moveto ( or underline Yes/No) showen (oder unterstreiche Ja/Nein) showde x20 y20 yd 1 mul sub moveto (PS\255File:) showen (PS\255Datei:) showde TM x20 1500 add y20 yd 1 mul sub moveto ( either xxx/IE43/IE43L0NA.PS) showen ( entweder xxx/IG43/IG43L0NA.PS) showde TBM x20 8400 add y20 yd 1 mul sub moveto ( or underline Yes/No) showen (oder unterstreiche Ja/Nein) showde TM x20 1500 add y20 yd 2 mul sub moveto ( or xxx/IE43/IE43P0NA.PS) showen ( oder xxx/IG43/IG43P0NA.PS) showde TBM x20 8400 add y20 yd 2 mul sub moveto ( or underline Yes/No) showen (oder unterstreiche Ja/Nein) showde TBM x20 y20 yd 3.25 mul sub moveto (Used computer operating system:) showen (benutztes Rechner\255Betriebssystem:) showde TM x20 y20 yd 4.25 mul sub moveto (either one of Windows/Mac/Unix/other and version:) showen (nur eines von Windows/Mac/Unix/anderes und Version:) showde (.................................) show TBM x20 y20 yd 5.50 mul sub moveto (This evaluation is for the device output:) showen (Die Beurteilung ist f\374r die Ger\344teausgabe:) showde x20 5800 add y20 yd 5.50 mul sub moveto (underline monitor/data projector/printer) showen (unterstreiche Monitor/Datenprojektor/Drucker) showde TM x20 y20 yd 6.50 mul sub moveto (Device model, driver and version:) showen (Ger\344te\255Modell, \255Treiber und \255Version:) showde (......................) show TBM x20 y20 yd 7.75 mul sub moveto (Device output with PDF/PS\255file:) showen (Ger\344teausgabe mit PDF/PS\255Datei:) showde x20 8000 add y20 yd 7.75 mul sub moveto (underline PDF/PS\255file) showen (unterstreiche PDF\255/PS\255Datei) showde x20 y20 yd 8.75 mul sub moveto (For device output with PDF\255file IE43(L/P)0NP.PDF:) showen (F\374r Ger\344teausgabe mit PDF\255Datei IG43(L/P)0NP.PDF:) showde /xshif 500 def TM x20 xshif add y20 yd 9.75 mul sub moveto (either PDF\255file transfer "download, copy" to PDF device) showen (entweder PDF\255Dateitransfer "download, copy" nach PDF\255Ger\344t) showde (.................................) show x20 xshif add y20 yd 10.75 mul sub moveto (or with computer system interpretation by "Display\255PDF":) showen (oder mit Rechnersystem\255Interpretation durch "Display\255PDF":) showde (.................................) show x20 xshif add y20 yd 11.75 mul sub moveto (or with software. e. g. Adobe\255Reader/\255Acrobat and version:) showen (oder mit Software, z. B. Adobe\255Reader/\255Acrobat und Version:) showde (.................................) show x20 xshif add y20 yd 12.75 mul sub moveto (or with software e. g. Ghostscript and version:) showen (oder mit Software, z. B. Ghostscript und Version:) showde (.................................) show TBM x20 y20 yd 13.75 mul sub moveto (For device output with PS\255file (L/P)13e00NA.PS:) showen (F\374r Ger\344teausgabe mit PS\255Datei (L/P)13g00NA.PS:) showde TM x20 xshif add y20 yd 14.75 mul sub moveto (either PS\255file transfer "download, copy" to PS device) showen (entweder PS\255Dateitransfer "download, copy" nach PS\255Ger\344t) showde (.................................) show x20 xshif add y20 yd 15.75 mul sub moveto (or with computer system interpretation by "Display\255PS":) showen (oder mit Rechnersystem\255Interpretation durch "Display\255PS":) showde (.................................) show x20 xshif add y20 yd 16.75 mul sub moveto (or with software e. g. Ghostscript and version:) showen (oder mit Software, z. B. Ghostscript und Version:) showde (.................................) show x20 xshif add y20 yd 17.75 mul sub moveto (or with software e. g. Mac\255Yap and version:) showen (oder mit Software, z. B. Mac\255Yap und Version:) showde (.................................) show x20 y20 yd 19 mul sub moveto (Special remarks, e. g. output of Landscape (L)) showen ( file IE43L0NA.PS was cutted,) showen (Spezielle Anmerkungen, z. B. Ausgabe von Landschaftsdatei (L)) showde ( IG43L0NA.PS wurde abge\255) showde x20 y20 yd 20 mul sub moveto (Portrait (P) file IE43P0NA.PS was used:.............................) showen (schnitten, Portr\344tdatei (P) IG43P0NA.PS wurde benutzt:.............) showde x20 y20 yd 21 mul sub moveto (......................................................................) show x20 y20 yd 22 mul sub moveto (......................................................................) show showpage grestore } if %xchart=1 %%Trailer %line 379 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %!PS-Adobe-3.0 EPSF-3.0 IE430-6, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (IE430-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %line 389 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 3.5 MM sub 020 MM 1 MM add translate %special 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %!PS-Adobe-3.0 EPSF-3.0 IE430-7A %%BoundingBox: 70 80 785 580 %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: Image Technology) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2009090112000) /ModDate (D:2009090112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %BEG CM_S0LCMYS.DAT Linearization Method (LM) LOCAL (L) cmyolvnw*S 20080301 %CMYOLVNW4DL.PS 4dimensional series %INCLUDES STANDARD (S) relative series a: cmyn-w and b: olv(cmy)-w /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 %END CM_S0LCMYS.DAT Linearization Method (LM) LOCAL (L) cmyolvnw*S DATA 20010401 % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %Umrechnung Inch -> mm /A4quer {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-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 /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-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 /TKr {250 /Times-Roman FS} bind def /TMr {300 /Times-Roman FS} bind def /TGr {350 /Times-Roman FS} bind def /TIKr {250 /Times-Italic FS} bind def /TIMr {300 /Times-Italic FS} bind def /TIGr {350 /Times-Italic FS} bind def /TBKr {250 /Times-Bold FS} bind def /TBMr {300 /Times-Bold FS} bind def /TBGr {350 /Times-Bold FS} bind def /TBIKr {250 /Times-BoldItalic FS} bind def /TBIMr {300 /Times-BoldItalic FS} bind def /TBIGr {350 /Times-BoldItalic FS} bind 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 /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tfn {0 setgray} bind def /tfw {1 setgray} bind def %%EndProlog gsave %LANINDL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (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 /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage gsave %LANINDL2 END /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse /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 xchart 0 eq {%xchart=0 %00 1 0 {/xchart exch def %BEG xchart=0,0 72 90 translate 0.01 MM dup scale 300 /Times-ISOL1 FS 22000 -340 moveto (IE430-7) show tfn 0 -100 moveto 25000 0 rlineto 0 17100 rlineto -25000 0 rlineto closepath stroke 0 1 3 {/k exch def %k=0,3 tfn 300 /Times-ISOL1 FS 250 13000 240 sub k 4250 mul sub moveto (Benutzung des PS\255Operators) showde (Use of the PS operator) showen 300 /TimesI-ISOL1 FS k 0 eq {( 000n* setcmykcolor) show} if k 1 eq {( w* setgray) show} if k 2 eq {( nnn0* setcmykcolor) show} if k 3 eq {( www* setrgbcolor) show} if 15 setlinewidth /tfzolv* {/n* tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add def k 0 eq {0 0 0 n* setcmykcolor} if k 1 eq {1 n* sub setgray} if k 2 eq {n* dup dup 0 setcmykcolor} if k 3 eq {1 n* sub dup dup setrgbcolor} if } bind def 250 13000 k 4250 mul sub translate tfzolv* 0 0 moveto 24500 0 rlineto 0 3900 rlineto -24500 0 rlineto closepath fill tfn 0 0 moveto 24500 0 rlineto 0 3900 rlineto -24500 0 rlineto closepath stroke %%%%%%%%%%% oberer Schriftzug %%%%%%%%%%%%%%%% tfw 30 3500 moveto TBIG (L* / Y+Yr) show 100 3100 moveto TBIK ((absolut)) showde ((absolute)) showen ((absolute)) showes ((absolute)) showfr ((absolute)) showit ((absolute)) showjp ((absolute)) showm 100 1850 moveto TBIG (Nr. und) showde (No. and) showen (No. and) showes (No. and) showfr (No. and) showit (No. and) showjp (No. and) showm 100 1450 moveto TBIG (Hex\255Code) showde (Hex code) showen (Hex code) showes (Hex code) showfr (Hex code) showit (Hex code) showjp (Hex code) showm 100 500 moveto TBIG (l*) show -50 -100 rmoveto TBIK (CIELAB, r) show 100 100 moveto TBIK ((relativ)) showde ((relative)) showen ((relative)) showes ((relative)) showfr ((relative)) showit ((relative)) showjp ((relative)) showm 1900 500 translate %untere Reihe um +200, +200 verschoben bei dx=1000 von 1400 tfn /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,0) (23,1) (28,2) (33,3) (38,5) (43,6) (48,8) (54,0) (59,1) (64,3) (69,5) (74,7) (79,8) (85,0) (90,2) (95,4) (18,0) (37,3) (56,7) (76,0) (95,4)] def /nty [( 2,5) ( 3,8) ( 5,5) ( 7,7) (10,3) (13,6) (17,4) (21,9) (27,2) (33,2) (40,0) (47,8) (56,5) (66,1) (76,8) (88,6) ( 2,5) (10,0) (24,0) (50,0) (88,6)] 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) (0.00) (0.25) (0.50) (0.75) (1.00)] def /cvs1 {10 mul cvi 0.1 mul 7 string cvs} def TBM tfw /iy0 0 def 0 1 15 {/j exch def /ix0 j 1400 mul def ix0 100 add iy0 300 sub moveto ntu j get show } 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 show (/) show nty j get show } for %j TBG tfn /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 /n* tzancmyw0l j 48 add get def ix0 iy0 s s k 0 eq {0 0 0 n* colrecficmyn*} if k 1 eq {1 n* sub colrecfiw*} if k 2 eq {n* dup dup 0 colrecficmyn*} if k 3 eq {1 n* sub dup dup colrecfiolv*} if j 7 eq j 8 eq or {%white arround mean grey ix0 iy0 s s k 0 eq {0 0 0 0 colrecstcmyn*} if k 1 eq {1 colrecstw*} if k 2 eq {0 0 0 0 colrecstcmyn*} if k 3 eq {1 1 1 colrecstolv*} if } if } for %j /s 1400 def /iy0 1500 def 0 1 15 {/j exch def /ix0 j 1400 mul 200 sub def /n* tzancmyw0l j 48 add get def ix0 iy0 s s k 0 eq {0 0 0 n* colrecficmyn*} if k 1 eq {1 n* sub colrecfiw*} if k 2 eq {n* dup dup 0 colrecficmyn*} if k 3 eq {1 n* sub dup dup colrecfiolv*} if } for %j -1900 -500 translate -250 13000 k 4250 mul sub neg translate } for %k=0,3 grestore showpage %} for %xchart=0 } if %xchart=0 %%Trailer %line 399 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %!PS-Adobe-3.0 EPSF-3.0 IE430-8, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (IE430-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %line 409 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 419 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %!PS-Adobe-3.0 EPSF-3.0 IE431-1N.EPS %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 7 /Times-Roman FS 72 83 moveto %!2 (IE431-1, )show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %line 429 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %!PS-Adobe-3.0 EPSF-3.0 IE431-2, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (IE431-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %line 439 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 8 MM sub 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %!PS-Adobe-3.0 EPSF-3.0 IE431-3N %%BoundingBox: 70 82 420 330 %START PDFDE011.EPS /pdfmark13 where {pop} {userdict /pdfmark13 /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: Image Technology) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2009090112000) /ModDate (D:2009090112000) /DOCINFO pdfmark13 [ /View [ /FitB ] /DOCVIEW pdfmark13 %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 /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-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 /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-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 %*********************************************************** /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 /nshow {300 /Times-ISOL1 FS show} bind def /kshow {300 /TimesI-ISOL1 FS show} bind def /bshow {300 /TimesB-ISOL1 FS show} bind def /jshow {300 /TimesBI-ISOL1 FS show} bind def /sshow {300 /Symbol FS show} bind def /ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def /eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def /cvishow {0.5 add cvi 6 string cvs show} def /cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} 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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 1 def /colorm2 1 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /xchartg where {pop /xchart xchartg def} {/xchart 1 def} ifelse /xcolorg where {pop /xcolor xcolorg def} {/xcolor 0 def} ifelse xchart 1 eq {%xchart=1 72 90 translate 0.01 MM dup scale gsave 20 setlinewidth 1.0 setgray 0 0 moveto 12000 0 rlineto 0 8200 rlineto -12000 0 rlineto closepath fill 0.0 setgray 0 0 moveto 12000 0 rlineto 0 8200 rlineto -12000 0 rlineto closepath stroke TM 00100 -240 moveto (Teil 2) showde (Part 2) showen 10000 -240 moveto (IE431-3) show /y0 7800 def /yd 320 def 310 /TimesB-ISOL1 FS 100 y0 moveto (Discriminability of 16 step grey series by four grey definitions) showen ( (Yes/No decision)) showen (Unterscheidbarkeit von 16\255stufigen Graureihen mit 4 Definitionen) showde ( (Ja/Nein\255Entscheidung)) showde TM 400 y0 yd 1.1 mul sub moveto (Layoutbeispiel: 16\255stufige Graureihen mit vier Graudefinitionen) showde (Layout example: 16 step grey series with four grey definitions) showen TM 6000 y0 yd 2.2 mul sub moveto (There are two basic colours on each page:) showen (Es gibt zwei Grundfarben auf jeder Seite:) showde 6000 y0 yd 3.2 mul sub moveto (Black N and White W in mean grey background.) showen (Schwarz N und Wei\337 W in grauem Umfeld.) showde 6000 y0 yd 4.4 mul sub moveto (There are adjacent (upper row)) showen (Es gibt aneinandergrenzende (obere Reihe)) showde 6000 y0 yd 5.4 mul sub moveto (and separate grey samples (lower row).) showen (und separate Graumuster (untere Reihe).) showde 6000 y0 yd 6.4 mul sub moveto (This gives eight grey series.) showen (Dies erzeugt acht Graureihen.) showde 6000 y0 yd 7.6 mul sub moveto (The adjacent and separated are identical.) showen (Aneinandergrenzende und separate sind identisch.) showde 6000 y0 yd 8.6 mul sub moveto (Separated greys are less distiguishable.) showen (Separate Graus sind weniger unterscheidbar.) showde 6000 y0 yd 9.8 mul sub moveto (Any grey colour is defined by four different) showen (Jede graue Farbe ist definiert durch vier) showde 6000 y0 yd 10.8 mul sub moveto (PS\255operators in four rows) showen (verschiedene PS\255Operatoren im vier Reihen) showde /xpN 1000 def /ypN 4300 def /xsize 4400 def /ysize 4500 0.7 mul def /ysiz4 ysize 0.25 mul def xpN 650 sub ypN 400 sub moveto ( Black N) showen (Schwarz N) showde xpN xsize add 400 sub ypN 400 sub moveto (White W) showen (Wei\337 W) showde xpN 800 add ypN 400 sub moveto (16 steps, 15 differences) showen (16 Stufen, 15 Differenzen) showde newpath 0.5 setgray xpN 150 sub ypN 100 sub moveto xsize 200 add 0 rlineto 0 ysize rlineto xsize 200 add neg 0 rlineto closepath fill 0.0 setgray xpN 150 sub ypN 100 sub moveto xsize 200 add 0 rlineto 0 ysize rlineto xsize 200 add neg 0 rlineto closepath stroke 0.3 setlinewidth 1.0 setgray xpN 100 sub ypN 100 sub ysiz4 1 mul add moveto xsize 000 sub 0 rlineto stroke xpN 100 sub ypN 100 sub ysiz4 2 mul add moveto xsize 000 sub 0 rlineto stroke xpN 100 sub ypN 100 sub ysiz4 3 mul add moveto xsize 000 sub 0 rlineto stroke /ifak 0.2 def 0 1 3 {/k exch def %k=0,3 /ypNk ypN ysiz4 k mul add def /iy0 ypNk 50 add def /s 0700 ifak mul def 0 1 15 {/j exch def /ix0 xpN j 1400 ifak mul mul add def 1 setgray ix0 iy0 s s rec fill 0 setgray ix0 iy0 s s rec stroke } for %j /s 1400 ifak mul def /iy0 ypNk 1500 ifak mul add def 0 1 15 {/j exch def /ix0 xpN j 1400 ifak mul mul 350 ifak mul sub add def 1 setgray ix0 iy0 s s rec fill 0 setgray ix0 iy0 s s rec stroke } for %j } for %k=0,3 0 setgray xpN 360 sub ypN 2600 add moveto (1) show xpN 360 sub ypN 1800 add moveto (2) show xpN 360 sub ypN 1000 add moveto (3) show xpN 360 sub ypN 200 add moveto (4) show /yt0 03550 def /x00 00100 def /x10 00900 def /x01 10100 def /x20 10900 def 100 yt0 moveto TBM (All) showen (Alle) showde TM ( the 16 steps of the eight series N-W should be distinguishable) showen ( 16 Stufen der acht Serien N-W sollten unterscheidbar sein) showde TBM x00 yt0 yd 1 mul sub moveto (Are all 15 grey differences of the eight rows distinguishable?) showen (Sind alle 15 Graudifferenzen der acht Reihen unterscheidbar?) showde TBM x00 8900 add yt0 yd 1 mul sub moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde TM x00 yt0 yd 2.1 mul sub moveto (Only in case of "No":) showen (Nur bei "Nein":) showde TM x00 300 add yt0 yd 3.1 mul sub moveto (Test of adjacent grey samples (four upper rows):) showen (Pr\374fung von aneinandergrenzenden Graumustern (vier obere Reihen):) showde TM x00 300 add yt0 yd 4.1 mul sub moveto (Are the 15 grey differences of the four series distinguishable?) showen (Sind die 15 Graudifferenzen der vier Serien unterscheidbar?) showde TM x00 8900 add yt0 yd 4.1 mul sub moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde TM x00 300 add yt0 yd 5.1 mul sub moveto (Only in case of "No":) showen (Nur bei "Nein":) showde TM x00 600 add yt0 yd 6.1 mul sub moveto (Are the 15 grey differences of series no. 1 distinguishable?) showen (Sind die 15 Graudifferenzen der Serie Nr. 1 unterscheidbar?) showde x00 8900 add yt0 yd 6.1 mul sub moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde x00 600 add yt0 yd 7.1 mul sub moveto (Are the 15 grey differences of series no. 2 distinguishable?) showen (Sind die 15 Graudifferenzen der Serie Nr. 2 unterscheidbar?) showde x00 8900 add yt0 yd 7.1 mul sub moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde x00 600 add yt0 yd 8.1 mul sub moveto (Are the 15 grey differences of series no. 3 distinguishable?) showen (Sind die 15 Graudifferenzen der Serie Nr. 3 unterscheidbar?) showde x00 8900 add yt0 yd 8.1 mul sub moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde x00 600 add yt0 yd 9.1 mul sub moveto (Are the 15 grey differences of series no. 4 distinguishable?) showen (Sind die 15 Graudifferenzen der Serie Nr. 4 unterscheidbar?) showde TM x00 8900 add yt0 yd 9.1 mul sub moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde %TM %x00 300 add yt0 yd 9.2 mul sub moveto %(Test of separate grey samples (four lower rows):) showen %(Pr\374fung von separaten Graumustern (vier untere Reihen):) showde %TM %x00 300 add yt0 yd 9.2 mul sub moveto %(Are the 15 grey differences of the four series distinguishable?) showen %(Sind die 15 Graudifferenzen der vier Serien unterscheidbar?) showde %TM %x00 8900 add yt0 yd 9.2 mul sub moveto %(underline: Yes/No) showen %(unterstreiche: Ja/Nein) showde TM 00 yt0 yd 10.2 mul sub moveto (Remarks: ........................................................) showen (Anmerkungen: ....................................................) showde showpage grestore } if %xchart=1 %%Trailer %line 449 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %!PS-Adobe-3.0 EPSF-3.0 IE431-4, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (IE431-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %line 459 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 8 MM sub 064 MM 044 MM sub translate %25->27 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %!PS-Adobe-3.0 EPSF-3.0 IE431-5N %%BoundingBox: 70 82 420 330 %START PDFDE011.EPS /pdfmark15 where {pop} {userdict /pdfmark15 /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: Image Technology) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2009090112000) /ModDate (D:2009090112000) /DOCINFO pdfmark15 [ /View [ /FitB ] /DOCVIEW pdfmark15 %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 /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-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 /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-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 %*********************************************************** /nshow {300 /Times-ISOL1 FS show} bind def /kshow {300 /TimesI-ISOL1 FS show} bind def /bshow {300 /TimesB-ISOL1 FS show} bind def /jshow {300 /TimesBI-ISOL1 FS show} bind def /sshow {300 /Symbol FS show} bind def /ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def /eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def /cvishow {0.5 add cvi 6 string cvs show} def /cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} 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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 1 def /colorm2 1 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /xchartg where {pop /xchartx xchartg def} {/xchartx 10 def} ifelse /xcolorg where {pop /xcolorx xcolorg def} {/xcolorx 0 def} ifelse /xchart xchartx def /xcolor xcolorx def xchart 10 eq {%xchart=10 72 90 translate 0.01 MM dup scale gsave 20 setlinewidth 1.0 setgray 0 0 moveto 12000 0 rlineto 0 8300 rlineto -12000 0 rlineto closepath fill 0.0 setgray 0 0 moveto 12000 0 rlineto 0 8300 rlineto -12000 0 rlineto closepath stroke TM 00100 -240 moveto (Teil 4) showde (Part 4) showen 10000 -240 moveto (IE431-5) show %(Documentation of file format, hardware and software) showen %(Dokumentation von Dateiformat, Hard\255 und Software) showde /x20 100 def /y1 8000 def /yd 320 def /y11 y1 def /y12 y1 yd 1.0 mul sub def x20 y11 moveto TBG (Documentation of assessor colour vision properties) showen ( for visual assessment) showen (Dokumentation der Beurteiler\255Farbseheigenschaften) showde ( f\374r diese Pr\374fung:) showde x20 y12 moveto TM (The assessor has) showen TBM ( normal) showen TM ( colour vision according to one test:) showen TM (Der Beurteiler hat) showde TBM ( normales) showde TM ( Farbsehen nach einer Pr\374fung:) showde x20 8400 add y12 moveto TBM ( underline Yes/No) showen ( unterstreiche Ja/Nein) showde x20 300 add y12 yd 1 mul sub moveto TM ( entweder nach DIN 6160:1996 mit Anomaloskop nach) showde ( either according to DIN 6160:1996 with Anomaloskop of) showen TIM ( Nagel) show x20 8400 add y12 yd 1 mul sub moveto TM ( underline Yes/unknown) showen ( unterstreiche Ja/unbekannt) showde x20 300 add y12 yd 2 mul sub moveto TM ( oder mit Farbpunkt\255Pr\374ftafeln nach) showde ( or with test charts using colour points according to) showen TIM ( Ishihara) show x20 8400 add y12 yd 2 mul sub moveto TM ( underline Yes/unknown) showen ( unterstreiche Ja/unbekannt) showde x20 300 add y12 yd 3 mul sub moveto TM ( oder mit, bitte nennen:............................................) showde ( or tested with, please specify: ...................................) showen x20 8400 add y12 yd 3 mul sub moveto TM ( underline Yes/unknown) showen ( unterstreiche Ja/unbekannt) showde /y21 y12 yd 4.2 mul sub def /y22 y12 yd 5.2 mul sub def x20 y21 moveto TBG (Only for display (monitor, data projector) output:) showen (Nur f\374r Display(Monitor, Daten\255Projektor)\255Ausgabe:) showde x20 300 add y22 moveto TM (B\374ro\255Arbeitsplatz\255Beleuchtung ist Tageslicht (bedeckter/Nordhimmel)) showde (Office workplace illumination is daylight (clouded/north sky)) showen x20 8900 add y22 moveto TM (underline Yes/No) showen (unterstreiche Ja/Nein) showde x20 300 add y22 yd sub moveto TM (PDF\255file output with) showen (PDF\255Dateiausgabe mit) showde TM ( xxx/IE43/IE43L0NP.PDF) showen ( xxx/IG43/IG43L0NP.PDF) showde x20 8900 add y22 yd sub moveto TM (underline Yes/No) showen (unterstreiche Ja/Nein) showde x20 300 add y22 yd 2 mul sub moveto TM (Vergleich Kontrastbereich der 16 Stufen F bis 0 mit Pr\374fvorlage) showde (Comparison of contrast range of 16 steps F to 0 with test chart) showen TM ( Anhang B von ISO 9241\255306:2009) showde ( Annex B of ISO 9241\255306:2008) showen x20 300 add y22 yd 3 mul sub moveto TM (Nenne Kontastbereich:) showde (give contrast range:) showen TM ( (>F:0) (F:0) (E:0) (D:0) (C:0) (A:0) (9:0) (7:0) (5:0) (3:0) (<3:0)) show x20 600 add y22 yd 4 mul sub moveto TIM (Anmerkung: Bei Tageslichtb\374robeleuchtung ist der Kontrastbereich oft:) showde (Remark: In daylighted offices the contrast range is in many cases:) showen x20 600 add y22 yd 5 mul sub moveto TIM (auf Papier zwischen: >F:0 (Hochglanz), F:0 (Seidenglanz) und E:0 (Matt)) showde (on paper between: >F:0 (highly glossy), F:0 (silk glossy) and E:0 (matte)) showen x20 600 add y22 yd 6 mul sub moveto TIM (am Display zwischen: >F:0 und E:0 (Monitor), D:0 und 3:0 (Datenprojektor)) showde (on display between: >F:0 and E:0 (monitor), D:0 and 3:0 (data projector)) showen /y31 y22 yd 7.2 mul sub def /y32 y22 yd 8.2 mul sub def x20 y31 moveto TBG (Only for optional colorimetric specification with PDF/PS file output) showen (Nur f\374r optionale farbmetrische Kennzeichnung mit PDF/PS\255Dateiausgabe) showde x20 y32 moveto TBM (PDF\255File:) showen (PDF\255Datei:) showde x20 1500 add y32 moveto TM ( either xxx/IE41/IE41L0NP.PDF) showen ( entweder xxx/IG41/IG41L0NP.PDF) showde x20 8990 add y32 moveto TM (underline Yes/No) showen (unterstreiche Ja/Nein) showde x20 1500 add y32 yd 1 mul sub moveto TM ( or xxx/IE41/IE41P0NP.PDF) showen ( oder xxx/IG41/IG41P0NP.PDF) showde x20 8400 add y32 yd 1 mul sub moveto TM ( or underline Yes/No) showen (oder unterstreiche Ja/Nein) showde x20 y32 yd 2 mul sub moveto TBM (PS\255File:) showen (PS\255Datei:) showde x20 1500 add y32 yd 2 mul sub moveto TM ( either xxx/IE41/IE41L0NA.PS) showen ( entweder xxx/IG41/IG41L0NA.PS) showde x20 8400 add y32 yd 2 mul sub moveto TM ( or underline Yes/No) showen (oder unterstreiche Ja/Nein) showde x20 1500 add y32 yd 3 mul sub moveto TM ( or xxx/IE41/IE41P0NA.PS) showen ( oder xxx/IG41/IG41P0NA.PS) showde x20 8400 add y32 yd 3 mul sub moveto TM ( or underline Yes/No) showen (oder unterstreiche Ja/Nein) showde x20 y32 yd 4 mul sub moveto TBM (Farbmessung und Kennzeichnung f\374r:) showde (colour measurement and specification for:) showen x20 300 add y32 yd 5 mul sub moveto TM (CIE\255Normlichtart D65, CIE\2552\255Grad\255Beobachter, CIE\25545/0\255Geometrie) showde (CIE standard illuminant D65, 2 degree observer, CIE 45/0 geometry:) showen x20 8900 add y32 yd 5 mul sub moveto TM (underline Yes/No) showen (unterstreiche Ja/Nein) showde x20 300 add y32 yd 6 mul sub moveto TM (Wenn Nein, bitte andere Parameter nennen: ...................................) showde (If No, please give other parameters: ...........................................) showen x20 y32 yd 7 mul sub moveto TBM (Farbmetrische Kennzeichnung mit PS\255Datei f\374r Farben der Spalten A bis T) showde (Colorimetric specification with PS file for colours in the columns A to T) showen x20 300 add y32 yd 8 mul sub moveto TM (Ersatz der CIELAB\255Daten in Datei) showde (Exchange of CIELAB data in file) showen TM ( xxx/IE47/IE47L0NP.PS) showen ( xxx/IG47/IG47L0NP.PS) showde TM ( und Transfer) showde ( and transfer) showen x20 300 add y32 yd 9 mul sub moveto TM (der PS\255Datei IG47L0NP.PS in PDF\255Datei IG47L0NP.PDF) showde (of the PS\255file IE47L0NP.PS in PDF\255file IE47L0NP.PDF) showen x20 8900 add y32 yd 9 mul sub moveto TM (underline Yes/No) showen (unterstreiche Ja/Nein) showde x20 300 add y32 yd 10 mul sub moveto TM (Wenn Nein, bitte andere Methode beschreiben: ..............................) showde (If No, please describe other method: ......................................) showen showpage grestore } if %xchart=10 %%Trailer %line 469 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %!PS-Adobe-3.0 EPSF-3.0 IE431-6, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (IE431-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %line 479 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 020 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %!PS-Adobe-3.0 EPSF-3.0 IE431-7N.EPS %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 7 /Times-Roman FS 72 83 moveto %!2 (IE431-7, )show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %line 489 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 28 %!PS-Adobe-3.0 EPSF-3.0 IE431-8, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (IE431-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %line 499 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20080301 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 1 def /colorm2 1 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /i*ptrsc where {pop %/i*ptrsc i*ptrsc def } {/i*ptrsc 0 def} ifelse gsave /xchartg where {pop /xchartx xchartg def} {/xchartx 0 def} ifelse /scountg where {pop /scount scountg def} {/scount 1 def} ifelse /ISRL*ioG where {pop}{/ISRL*ioG 0 def} ifelse /ISIN*ioG where {pop}{/ISIN*ioG 0 def} ifelse /ISOU*ioG where {pop}{/ISOU*ioG 0 def} ifelse /xchart xchartx xchartx 10 idiv 10 mul sub def %xchart 0 eq {%beg if xchart=0 0 setgray 1.0 1.0 scale 0.0 MM 0.0 MM translate 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] def /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzccmy0* setcmykcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmcmy0* setcmykcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzycmy0* setcmykcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzocmy0* setcmykcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlcmy0* setcmykcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvcmy0* setcmykcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %j=16,20 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def 0 1 3 {/ij exch def %ij=0,3 ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor j 16 eq {/ng tzan j get def ng ng ng 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if /ng tzan j get def ng ng ng 0 setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=0,2 i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor j 16 eq {/wg 1 tzan j get sub def wg wg wg colorm 0 eq {setrgbcolor} {sgrgbcolor} ifelse %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if /wg 1 tzan j get sub def wg wg wg colorm 0 eq {setrgbcolor} {sgrgbcolor} ifelse %N ix0 iy0 s s rec fill } if %i*ptrsc=1,3 i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5 [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=4,5 i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor j 16 eq {/ng tzan j get def 0 0 0 ng setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if /ng tzan j get def 0 0 0 ng setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {/wg 1 tzan j get sub def wg setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if /wg 1 tzan j get sub def wg setgray ix0 iy0 s s rec fill } if %i*ptrsc=7 } for %ij=0,3 } for %j=16,20 0 setgray 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 0 setgray xchart 0 eq {%xchart=0 12 /Times-ISOL1 FS 0 setgray 12 /Times-ISOL1 FS 61 MM 13 MM moveto (TUB\255Pr\374fvorlage IE43 f\374r visuelle Displays) showde (TUB\255test chart IE43 for visual displays) showen (, Page ) showen (, Seite ) showde xchartx 1 add cvishow (/2) show 61 MM 09 MM moveto (Equality; Discriminability with 4 colour definitions,) showen (Gleichheit; Unterscheidbarkeit mit 4 Farbdefinitionen,) showde ISRL*ioG 0 eq { %ISRL*ioG=0 ISIN*ioG 0 eq {( ORS18) show} if ISIN*ioG 1 eq {( TLS00) show} if ISIN*ioG 2 eq {( FRS06) show} if ISIN*ioG 3 eq {( TLS18) show} if ISIN*ioG 4 eq {( NLS00) show} if ISIN*ioG 5 eq {( NRS18) show} if ISIN*ioG 6 eq {( SRS18) show} if ISIN*ioG 7 eq {( TLS70) show} if } if %ISRL*ioG=0 ISRL*ioG 1 eq { %ISRL*ioG=1 ISIN*ioG 0 eq {( TLS00) show} if ISIN*ioG 1 eq {( TLS06) show} if ISIN*ioG 2 eq {( TLS11) show} if ISIN*ioG 3 eq {( TLS18) show} if ISIN*ioG 4 eq {( TLS27) show} if ISIN*ioG 5 eq {( TLS38) show} if ISIN*ioG 6 eq {( TLS52) show} if ISIN*ioG 7 eq {( TLS70) show} if } if %ISRL*ioG=1 ISRL*ioG 2 eq { %ISRL*ioG=2 ISIN*ioG 0 eq {( OLS00) show} if ISIN*ioG 1 eq {( OLS06) show} if ISIN*ioG 2 eq {( OLS11) show} if ISIN*ioG 3 eq {( OLS18) show} if ISIN*ioG 4 eq {( OLS27) show} if ISIN*ioG 5 eq {( OLS38) show} if ISIN*ioG 6 eq {( OLS52) show} if ISIN*ioG 7 eq {( OLS70) show} if } if %ISRL*ioG=2 } if %xchart=0 (a) show xchart 1 eq {%xchart=1 12 /Times-ISOL1 FS 61 MM 13 MM moveto (Vordruck A f\374r Pr\374fvorlage 1 nach DIN 33872-3) showde (Form A for test chart 1 according to DIN 33872-3) showen (, Page ) showen (, Seite ) showde xchart 1 add cvishow (/2) show 61 MM 09 MM moveto (Equality and Discriminability (Yes/No decision)) showen (Gleichheit und Unterscheidbarkeit (Ja/Nein\255Entscheidung)) showde } if %xchart=1 171 MM 13 MM moveto (input: ) showen (Eingabe: ) showde 12 /TimesI-ISOL1 FS (000n/w/cmy0/rgb (mixed)) showen (000n/w/cmy0/rgb(gemischt)) showde 12 /Times-ISOL1 FS 172 MM 9 MM moveto (output: ) showen (Ausgabe: ) showde LSC$ (N) eq { (no change compared to input) showen (keine Eingabe\344nderung) showde } if %1 setgray %start white and unvisible LSC$ (S) eq { (Startup (S) data dependend) showen (Startup\255Daten (S) abh\344ngig) showde } if LSC$ (F) eq { 12 /TimesI-ISOL1 FS i*ptrsc 0 eq {(cmy0* / 000n* setcmykcolor) show} if i*ptrsc 1 eq {(olv*' (TRI9) setrgbcolor ) show} if %special i*ptrsc 2 eq {(cmy0* / nnn0* setcmykcolor) show} if i*ptrsc 3 eq {(olv* / www* setrgbcolor) show} if i*ptrsc 4 eq {(lab* setcolor) show} if i*ptrsc 5 eq {(LAB* setcolor) show} if i*ptrsc 6 eq {(000n* setcmykcolor) show} if i*ptrsc 7 eq {(w* setgray) show} if } if %0 setgray %end white and unvisible 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (http://130.149.60.45/~farbmetrik/IE43/IE43L) show (0) show LSC$ show LEX$ show %1 setgray %start white and unvisible (; ) show LSC$ (N) eq { (Start\255Ausgabe) showde (start output) showen (start output) showes (start output) showfr (start output) showit (start output) showjp (start output) showm } if LSC$ (C) eq { (Start\255Ausgabe) showde (start output) showen (start output) showes (start output) showfr (start output) showit (start output) showjp (start output) showm } if LSC$ (F) eq { (Linearisierte\255Ausgabe) showde (linearized output) showen (linearized output) showes (linearized output) showfr (linearized output) showit (linearized output) showjp (linearized output) showm } if 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine Ausgabe\255Linearisierung (OL) in Datei (F), Startup (S), Ger\344t (D)) showde (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showen (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showes (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showfr (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showit (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showjp (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showm } {LSC$ show (: ) show (Ausgabe\255Linearisierung (OL\255Daten) ) showde (Output Linearization (OL) data ) showen (Output Linearization (OL) data ) showes (Output Linearization (OL) data ) showfr (Output Linearization (OL) data ) showit (Output Linearization (OL) data ) showjp (Output Linearization (OL) data ) showm (IE43/IE43L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in der Datei (F)) showde ( in File (F)) showen ( in File (F)) showes ( in File (F)) showfr ( in File (F)) showit ( in File (F)) showjp ( in File (F)) showm } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde ( in Distiller Startup (S) Directory) showen ( in Distiller Startup (S) Directory) showes ( in Distiller Startup (S) Directory) showfr ( in Distiller Startup (S) Directory) showit ( in Distiller Startup (S) Directory) showjp ( in Distiller Startup (S) Directory) showm } if LSC$ (D) eq { ( in PostScript Device (D)) showde ( in PostScript Device (D)) showen ( in PostScript Device (D)) showes ( in PostScript Device (D)) showfr ( in PostScript Device (D)) showit ( in PostScript Device (D)) showjp ( in PostScript Device (D)) showm } if LSC$ (T) eq { ( von Distiller Startup (S) Directory) showde ( of Distiller Startup (S) Directory) showen ( of Distiller Startup (S) Directory) showes ( of Distiller Startup (S) Directory) showfr ( of Distiller Startup (S) Directory) showit ( of Distiller Startup (S) Directory) showjp ( of Distiller Startup (S) Directory) showm } if LSC$ (E) eq { ( von PostScript Device (D)) showde ( of PostScript Device (D)) showen ( of PostScript Device (D)) showes ( of PostScript Device (D)) showfr ( of PostScript Device (D)) showit ( of PostScript Device (D)) showjp ( of PostScript Device (D)) showm } if %0 setgray %end white and unvisible 16 MM 185 MM moveto -90 rotate (Siehe Original/Kopie: ) showde (See original or copy: ) showen (http://web.me.com/klaus.richter/IE43/IE43L) show (0) show LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde (Technical information: ) showen (http://www.ps.bam.de) show ( or ) showen ( oder ) showde (http://130.149.60.45/~farbmetrik) show 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20090901\255IE43/IE43L) showde (TUB registration: 20090901\255IE43/IE43L) showen (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde (TUB material: code=rha4ta) showen 90 rotate 277 MM 185 MM moveto -90 rotate /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def ( Anwendung f\374r Ausgabe von) showde ( visuellen Display\255Systemen) showde ( application for output of) showen ( visual display systems) showen IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke %} if %end if xchart=0 %} for %output with xchart end %} for %output with colorm end %} for %output with xcolor end %} for %output with lanind end %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore } for %end for xchartg=xchartg1,xchartg2 %} for %end for pcountg=pcountg1,pcount2g %} for %end for scountg=scountg1,scount2g %%Trailer