%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.445/~farbmetrik/JG00/JG00L00XX 20100101 %%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/JG00/JG00.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:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark %BEG GK0X->JG00/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20090201 %Early Binding: needed for colour separation /sgcmykcolor {setcmykcolor} bind def /sggray {setgray} bind def /sgrgbcolor {setrgbcolor} 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/FRS09) /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 (FRS09) %/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 (NRS11) %/ISOU*ioG 5 def %output dto. %/ISIN*ioG 6 def %input for Standard Reflective System (CIE18) %/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 /auszg 8 def /ausz 8 def %END GK0X->JG00/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20090201 %***************************************************************************** %BEG GK0X->JG00/10L/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20090201 %***************************************************************************** %Data (ORS18_95, L*=18_95) /proc_LAB*ioG {%BEG Procedure proc_LAB*ioG %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* 132 array def %12x3=36 including N,W + 16x3=48 elementary system + 16x3=48 device system /LAB*a 132 array def /LAB*Hx 13 array def %0_to_6 8_to_12 for device and elemetary colours /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 /LAB*TE %used in file and frame [(ORS18_95, L*=18_95) (TLS00) (FRS06) (TSL18) (NLS00) (NLS18) (SRS18) (TLS70) (TLS00) (TLS06) (TLS11) (TLS18) (TLS27) (TLS38) (TLS52) (TLS70) (OLS00) (OLS06) (OLS11) (OLS18) (OLS27) (OLS38) (OLS52) (OLS70)] def %ORS18_950_D65_ALM_GK00_G.DAT, Model or transfer to Real data, 55 lines, 141:195 ISRL*ioG 0 eq { %ISRL*ioG=0 /LAB*00 [%D=Device OYLCVMO+NW %for Offset Reflective System (ORS18) %LAB* %#1000 x (r g b c m y 0) (ORS18_95A_D65_ALM) %047.94 65.31 52.07 %O 0 %090.37 -11.16 96.17 %Y 1 %050.90 -62.97 36.71 %L 2 %058.62 -30.63 -42.75 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 %025.72 31.45 -44.36 %V 4 %048.13 75.20 -6.80 %M 5 %018.01 0.50 -0.47 %N 7 %095.41 -0.99 4.76 %W 8 %From LUT_De740-7N_3_4_ORS18_95.DAT 20080625 %Data output of De74/10L/De740-7N.EPS -> De740_3_4_Model.log %(ORS18_950_D65_ALM_GK00), line 15-34 %LAB* %#1000 x (r g b c m y 0) not adapted %z04794 06531 05207 %O 0 %z09037 -1116 09617 %Y 1 %z05090 -6297 03671 %L 2 %z05862 -3063 -4275 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 %z02572 03145 -4436 %V 4 %z04813 07520 -0680 %M 5 %z01801 00050 -0047 %N 6 %z09541 -0099 00476 %W 7 %$ 04794 06531 05207 %O 0 09037 -1116 09617 %Y 1 05090 -6297 03671 %L 2 05862 -3063 -4275 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 02572 03145 -4436 %V 4 04813 07520 -0680 %M 5 01801 00050 -0047 %N 6 09541 -0099 00476 %W 7 %$ %(ORS18_95A_D65_ALM_GK00), line 35-54 %LAB*a %#1000 x (r g b c m y 0), adapted %04794 06537 05050 %#1000 0000 0000 0000 1000 1000 0000 %1074 l26 $O %09036 -1026 09173 %#1000 1000 0000 0000 0000 1000 0000 %1076 m26 $Y %05090 -6282 03495 %#0000 1000 0000 1000 0000 1000 0000 %1078 n26 $L %05861 -3034 -4501 %#0000 1000 1000 1000 0000 0000 0000 %1075 l27 $C %02572 03109 -4440 %#0000 0000 1000 1000 1000 0000 0000 %1077 m27 $V %04813 07526 -0836 %#1000 0000 1000 0000 1000 0000 0000 %1079 n27 $M %01802 00000 00000 %#0000 0000 0000 1000 1000 1000 0000 %1072 k26 $N %09540 00000 00000 %#1000 1000 1000 0000 0000 0000 0000 %1073 k27 $W %$ %04794 06537 05050 %#1000 0000 0000 0000 1000 1000 0000 %1074 l26 $O %09036 -1026 09173 %#1000 1000 0000 0000 0000 1000 0000 %1076 m26 $Y %05090 -6282 03495 %#0000 1000 0000 1000 0000 1000 0000 %1078 n26 $L %05861 -3034 -4501 %#0000 1000 1000 1000 0000 0000 0000 %1075 l27 $C %02572 03109 -4440 %#0000 0000 1000 1000 1000 0000 0000 %1077 m27 $V %04813 07526 -0836 %#1000 0000 1000 0000 1000 0000 0000 %1079 n27 $M %01802 00000 00000 %#0000 0000 0000 1000 1000 1000 0000 %1072 k26 $N %09540 00000 00000 %#1000 1000 1000 0000 0000 0000 0000 %1073 k27 $W %$ ] 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 %sISO=0,11 /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 100 div put LAB* i31 LAB*00 i31 get 100 div put LAB* i32 LAB*00 i32 get 100 div 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 %Definition 8 to 11 (24 to 35=33+2) /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 LAB*a i30 LAB* i30 get put LAB*a i31 LAB* i31 get put LAB*a i32 LAB* i32 get put } ifelse } for %sISO=0,11 % possible change of LAB*a according to reduced gamut %LAB* = 20 for Black N %LAB* = 95 for White W %cfakt = (95 - 20)/(95.41 - 18.01) = 0.969 %LAB*L*Nn = 20 for Black N instead of LAB*L*N = 18,01 %LAB*L*Wn = 95 for White W instead of LAB*L*W = 95,41 %LAB*L*Zn = 20+(95-20)/2=57,5 for Grey Z instead of %LAB*L*Z = 18,01+(95,41-18,01)/2=56,71 %L*neu = L*alt + (1 - cfakt %For achromatic %deltaLmean = 57,5 (1-c*neu); 56,71 (1-c*alt) %deltaLmimu = 20,0 (1-c*neu); 18,01 (1-c*alt) %deltaLplus = 95,0 (1-c*neu); 95,41 (1-c*alt) %For chromatic M %deltaLmean = L*Ma,neu; L*Ma,alt = known %C*Ma,alt known, C*Ma,neu known /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 /L*Wioref 95.0 def /L*Nioref 18.0 def /cfakt 1 def %/cfakt L*Wioref L*Nioref sub L*Wio L*Nio sub div def cfakt 1 ne {%cfakt#1 %change of lightness for Maximum colour /l*CIEN L*Nioref L*Nio sub L*Wio L*Nio sub div def /l*CIEW L*Wioref L*Nio sub L*Wio L*Nio sub div def %LAB* 18 L*Nioref put %defined change of lightness and chroma a*,b* for N LAB* 19 A*Nio A*Wio A*Nio sub l*CIEN mul add put LAB* 20 B*Nio B*Wio B*Nio sub l*CIEN mul add put %LAB* 21 L*Wioref put %defined change of lightness and chroma a*,b* for W LAB* 22 A*Nio A*Wio A*Nio sub l*CIEW mul add put LAB* 23 B*Nio B*Wio B*Nio sub l*CIEW mul add put %change of chroma by factor cfakt 0 1 07 {/iISO exch def /i30 iISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /l*CIEL LAB* i30 get L*Nio sub L*Wio L*Nio sub div def LAB* i30 L*Nioref L*Wioref L*Nioref sub l*CIEL mul add put LAB* i31 LAB* i31 get cfakt mul put LAB* i32 LAB* i32 get cfakt mul put } for } if %cfakt#1 /L*Nior LAB* 18 get def %r=reference for reverse transform /A*Nior LAB* 19 get def /B*Nior LAB* 20 get def /L*Wior LAB* 21 get def /A*Wior LAB* 22 get def /B*Wior LAB* 23 get def /cf1 1.00 def 0 1 7 {/iISO exch def %iISO=0,7 /i30 iISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /l*CIE LAB* i30 get L*Nior sub L*Wior L*Nior sub div def /a*sr A*Wior A*Nior sub l*CIE mul def /b*sr B*Wior B*Nior sub l*CIE mul def /L*Z L*Nior L*Wior L*Nior sub 0.5 mul add def LAB*a i30 LAB* i30 get L*Z sub cf1 mul L*Z add put LAB*a i31 LAB* i31 get A*Nior sub a*sr sub cf1 mul put LAB*a i32 LAB* i32 get B*Nior sub b*sr sub cf1 mul put } for /L*Nio LAB*a 18 get def %=18.01 /A*Nio LAB*a 19 get def %=0 /B*Nio LAB*a 20 get def %=0 /L*Wio LAB*a 21 get def %=95.41 /A*Wio LAB*a 22 get def %=0 /B*Wio LAB*a 23 get def %=0 /A*Dio A*Wio A*Nio sub def %=0 /B*Dio B*Wio B*Nio sub def %=0 /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 %6+1 hue angles for 6 device colour (index 0 to 06) %4+1 hue angles for 4 elementary colours (index 8 to 12) %no. 6 and 7 originaly achromatic 0 1 11 {/iHx exch def /i1x iHx 3 mul 1 add def /i2x i1x 1 add def LAB*Hx iHx LAB*a i2x get LAB*a i1x get 0.000001 add atan put } for LAB*Hx 06 LAB*Hx 00 get 360 add put LAB*Hx 12 LAB*Hx 08 get 360 add put %6 Hue angles of elementary and intermediate colours e=RJGCgbBMbr /LAB*He 7 array def LAB*He 0 LAB*Hx 08 get put %R LAB*He 1 LAB*Hx 09 get put %J LAB*He 2 LAB*Hx 10 get put %G LAB*He 3 LAB*Hx 10 get LAB*Hx 11 get add 0.5 mul put %Cgb LAB*He 4 LAB*Hx 11 get put %B LAB*He 5 LAB*Hx 11 get LAB*Hx 08 get 360 add add 0.5 mul put %Mbr LAB*He 6 LAB*Hx 08 get 360 add put %R(+360) %6 Hue angles of device and intermediate colours d=OYLCVMO /LAB*Hd 7 array def LAB*Hd 0 LAB*Hx 00 get put %O LAB*Hd 1 LAB*Hx 01 get put %Y LAB*Hd 2 LAB*Hx 02 get put %L LAB*Hd 3 LAB*Hx 03 get put %C LAB*Hd 4 LAB*Hx 04 get put %V LAB*Hd 5 LAB*Hx 05 get put %M LAB*Hd 6 LAB*Hx 00 get 360 add put %O(+360) /ColeiNames 16 array def /ColeiNames [(r00j) (r25j) (r50j) (r75j) (j00g) (j25g) (j50g) (j75g) (g00b) (g25b) (g50b) (g75b) (b00r) (b25r) (b50r) (b75r) ] def /ColdiNames 16 array def /ColdiNames [(o00y) (o25y) (o50y) (o75y) (y00l) (y25l) (y50l) (y75l) (l00c) (l50c) (c00v) (c50v) (v00m) (v50m) (m00o) (m50o) ] def /L*diMa 16 array def %LAB*diMa /A*diMa 16 array def /B*diMa 16 array def /o3*ddiMa 16 array def %olv3*ddiMa /l3*ddiMa 16 array def /v3*ddiMa 16 array def /u*ddiMa1 16 array def %u*ddiMax /u*ddiMai 16 array def /u*ddiMa2 16 array def /o3*deiMa 16 array def %olv3*deiMa /l3*deiMa 16 array def /v3*deiMa 16 array def /u*deiMa1 16 array def %u*deiMax /u*deiMai 16 array def /u*deiMa2 16 array def /L*eiMa 16 array def %LAB*eiMa /A*eiMa 16 array def /B*eiMa 16 array def /o3*eeiMa 16 array def %olv3*eeiMa /l3*eeiMa 16 array def /v3*eeiMa 16 array def /u*eeiMa1 16 array def %u*eeiMax /u*eeiMai 16 array def /u*eeiMa2 16 array def /o3*ediMa 16 array def %olv3*ediMa /l3*ediMa 16 array def /v3*ediMa 16 array def /u*ediMa1 16 array def %u*ediMax /u*ediMai 16 array def /u*ediMa2 16 array def %/L*xiMa 16 array def %LAB*xiMa x=d/e %/A*xiMa 16 array def %/B*xiMa 16 array def %/o3*xxiMa 16 array def %olv3*xxiMa xx=dd/ee %/l3*xxiMa 16 array def %/v3*xxiMa 16 array def /u*xxiMa1 16 array def %u*xxiMax xx=dd/ee /u*xxiMai 16 array def /u*xxiMa2 16 array def %/o3*xyiMa 16 array def %olv3*xxiMa xy=de/ed %/l3*xyiMa 16 array def %/v3*xyiMa 16 array def %/u*xyiMa1 16 array def %u*xxiMax xy=de/ed %/u*xyiMai 16 array def %/u*xyiMa2 16 array def %Definition LAB*diMa, olv3*deiMa, u*deiMax (all 00 to 15) by equal device (d) hue angle difference %between O and Y, Y and L, L and C, C and V, V and M, and M and O %Definition of OYLCVMO, 4 steps between OYL, 2 steps between LCVMO 0 1 15 {/iinx exch def %iinx=0,15 %define device hue angle H*M of 16 hues iinx 00 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan def} if iinx 01 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 0.75 mul LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.25 mul add def} if iinx 02 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 0.50 mul LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.50 mul add def} if iinx 03 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 0.25 mul LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.75 mul add def} if iinx 04 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan def} if iinx 05 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.75 mul LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.25 mul add def} if iinx 06 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.50 mul LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.50 mul add def} if iinx 07 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.25 mul LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.75 mul add def} if iinx 08 eq {/H*M LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan def} if iinx 09 eq {/H*M LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.5 mul LAB*a 3 3 mul 2 add get LAB*a 3 3 mul 1 add get atan 0.5 mul add def} if iinx 10 eq {/H*M LAB*a 3 3 mul 2 add get LAB*a 3 3 mul 1 add get atan def} if iinx 11 eq {/H*M LAB*a 3 3 mul 2 add get LAB*a 3 3 mul 1 add get atan 0.5 mul LAB*a 4 3 mul 2 add get LAB*a 4 3 mul 1 add get atan 0.5 mul add def} if iinx 12 eq {/H*M LAB*a 4 3 mul 2 add get LAB*a 4 3 mul 1 add get atan def} if iinx 13 eq {/H*M LAB*a 4 3 mul 2 add get LAB*a 4 3 mul 1 add get atan 0.5 mul LAB*a 5 3 mul 2 add get LAB*a 5 3 mul 1 add get atan 0.5 mul add def} if iinx 14 eq {/H*M LAB*a 5 3 mul 2 add get LAB*a 5 3 mul 1 add get atan def} if iinx 15 eq {/H*M LAB*a 5 3 mul 2 add get LAB*a 5 3 mul 1 add get atan 0.5 mul LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 360 add 0.5 mul add def} if proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG %stores LAB*diMa L*diMa iinx L*Ma put A*diMa iinx A*Ma put B*diMa iinx B*Ma put %stores olv3*ddiMa o3*ddiMa iinx o3*ddMa put l3*ddiMa iinx l3*ddMa put v3*ddiMa iinx v3*ddMa put %stores u*ddiMax u*ddiMa1 iinx u*ddMa1 put u*ddiMai iinx u*ddMai put u*ddiMa2 iinx u*ddMa2 put %stores olv3*deiMa o3*deiMa iinx o3*deMa put l3*deiMa iinx l3*deMa put v3*deiMa iinx v3*deMa put %stores u*deiMax u*deiMa1 iinx u*deMa1 put u*deiMai iinx u*deMai put u*deiMa2 iinx u*deMa2 put } for %iinx=0,15 %Definition LAB*eiMa, olv3*ediMa, u*ediMax (all 00 to 15) by equal elementary (e) hue angle difference %between R and J, J and G, G and B, and B and R 0 1 03 {/ik exch def %ik=0,3 /H*1 RJGBLAB* ik 3 mul 2 add get RJGBLAB* ik 3 mul 1 add get 0.00001 add atan def ik 2 le {/ik2b ik 3 mul 5 add def} {/ik2b 2 def} ifelse /ik2a ik2b 1 sub def /H*2 RJGBLAB* ik2b get RJGBLAB* ik2a get 0.00001 add atan def ik 3 eq {/H*2 H*2 360 add def} if 0 1 03 {/ij exch def %ij=1,3 ij 0 eq {/a0 1.00 def /b0 0.00 def} if ij 1 eq {/a0 0.75 def /b0 0.25 def} if ij 2 eq {/a0 0.50 def /b0 0.50 def} if ij 3 eq {/a0 0.25 def /b0 0.75 def} if /H*M a0 H*1 mul b0 H*2 mul add def H*M 360 ge {/H*M H*M 360 sub def} if proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG /iinx ik 4 mul ij add def %stores LAB*eiMa L*eiMa iinx L*Ma put A*eiMa iinx A*Ma put B*eiMa iinx B*Ma put %stores olv3*eeiMa o3*eeiMa iinx o3*deMa put l3*eeiMa iinx l3*deMa put v3*eeiMa iinx v3*deMa put %stores u*eeiMax u*eeiMa1 iinx u*deMa1 put u*eeiMai iinx u*deMai put u*eeiMa2 iinx u*deMa2 put %stores olv3*ediMa o3*ediMa iinx o3*ddMa put l3*ediMa iinx l3*ddMa put v3*ediMa iinx v3*ddMa put %stores u*eeiMax u*ediMa1 iinx u*ddMa1 put u*ediMai iinx u*ddMai put u*ediMa2 iinx u*ddMa2 put } for %ik=0,3 } for %ij=0,3 0 1 15 {/i exch def %i=0,15 %L*xiMa i DEintp 0 eq {L*diMa}{L*eiMa} ifelse i get put %LAB*xiMa x=d/e %A*xiMa i DEintp 0 eq {A*diMa}{A*eiMa} ifelse i get put %B*xiMa i DEintp 0 eq {B*diMa}{B*eiMa} ifelse i get put %o3*xxiMa i DEintp 0 eq {o3*ddiMa}{o3*eeiMa} ifelse i get put %olv3*xxiMa xx=dd/ee %l3*xxiMa i DEintp 0 eq {l3*ddiMa}{l3*eeiMa} ifelse i get put %v3*xxiMa i DEintp 0 eq {v3*ddiMa}{v3*eeiMa} ifelse i get put u*xxiMa1 i DEintp 0 eq {u*ddiMa1}{u*eeiMa1} ifelse i get put %u*xxiMax xx=dd/ee u*xxiMai i DEintp 0 eq {u*ddiMai}{u*eeiMai} ifelse i get put u*xxiMa2 i DEintp 0 eq {u*ddiMa2}{u*eeiMa2} ifelse i get put %o3*xyiMa i DEintp 0 eq {o3*deiMa}{o3*ediMa} ifelse i get put %olv3*xxiMa xy=de/ed %l3*xyiMa i DEintp 0 eq {l3*deiMa}{l3*ediMa} ifelse i get put %v3*xyiMa i DEintp 0 eq {v3*deiMa}{v3*ediMa} ifelse i get put %u*xyiMa1 i DEintp 0 eq {u*deiMa1}{u*ediMa1} ifelse i get put %u*xxiMax xy=de/ed %u*xyiMai i DEintp 0 eq {u*deiMai}{u*ediMai} ifelse i get put %u*xyiMa2 i DEintp 0 eq {u*deiMa2}{u*ediMa2} ifelse i get put } for %i=0,15 } bind def %END Procedure proc_LAB*ioG %*********************************************************** /proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG { %BEG procedure proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG %only for calculation without hue tables %input H*M (only hue (H) of Fa/Ma) %input LAB*a (6 adapted colours OYLCVM) %input nLAB*s0 (colour Black N for calculation of lab*l) %input wLAB*s0 (colour White W for achromatic axis) %output LAB*Ma %output olvi3*Ma %output cmyn3*Ma /L*Ha 50 def /A*Ha 75 H*M cos mul def /B*Ha 75 H*M sin mul def /UXF1a wLAB*s0 1 get B*Ha mul wLAB*s0 2 get A*Ha mul sub def /UXF2a wLAB*s0 2 get L*Ha mul wLAB*s0 0 get B*Ha mul sub def /UXF3a wLAB*s0 0 get A*Ha mul wLAB*s0 1 get L*Ha 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 atan def /H*abd B*Ha A*Ha 0.0001 add atan def /H*abe H*abd def %faktor and section in actual System (for example ORS18) /jsecd -1 def %main equations %faktd = [col_angh - LAB*Hd(n)]/[LAB*Hd(n+1) - LAB*Hd(n)] %col_angh = faktd [LAB*Hd(n+1) - LAB*Hd(n)] + LAB*Hd(n) H*abd LAB*Hd 0 get lt {/H*abd H*abd 360 add def} if 0 1 5 {/nx exch def /np nx 1 add def H*abd LAB*Hd nx get ge H*abd LAB*Hd np get lt and {/jsecd nx def /faktd H*abd LAB*Hd nx get sub LAB*Hd np get LAB*Hd nx get sub div def} if } for %nx=0,5 %1 0 0 %O jsecd=0 %1 1 0 %Y jsecd=1 %0 1 0 %L jsecd=2 %0 1 1 %C jsecd=3 %0 0 1 %V jsecd=4 %1 0 1 %M jsecd=5 jsecd -1 eq {STOPjsecd} if /fakmd 1 faktd sub def /o3*ddMa -1 def /l3*ddMa -1 def /v3*ddMa -1 def jsecd 0 eq {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /o3*ddMa 1 def /l3*ddMa faktd def /v3*ddMa 0 def /u*ddMa1 (o) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (y) def} if jsecd 1 eq {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /o3*ddMa fakmd def /l3*ddMa 1 def /v3*ddMa 0 def /u*ddMa1 (y) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (l) def} if jsecd 2 eq {%sector L->C, o3*=0, l3*=1, v3*=0->1 /o3*ddMa 0 def /l3*ddMa 1 def /v3*ddMa faktd def /u*ddMa1 (l) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (c) def} if jsecd 3 eq {%sector C->V, o3*=0, l3*=0->1, v3*=1 /o3*ddMa 0 def /l3*ddMa fakmd def /v3*ddMa 1 def /u*ddMa1 (c) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (v) def} if jsecd 4 eq {%sector V->M, o3*=0->1, l3*=0, v3*=1 /o3*ddMa faktd def /l3*ddMa 0 def /v3*ddMa 1 def /u*ddMa1 (v) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (m) def} if jsecd 5 eq {%sector M->O, o3*=1, l3*=0, v3*=1->0 /o3*ddMa 1 def /l3*ddMa 0 def /v3*ddMa fakmd def /u*ddMa1 (m) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (o) def} if o3*ddMa -1 eq {STOPo3*ddMa1} if l3*ddMa -1 eq {STOPl3*ddMa1} if v3*ddMa -1 eq {STOPv3*ddMa1} if /i3*ddMa 1 def /c3*ddMa 1 o3*ddMa sub def /m3*ddMa 1 l3*ddMa sub def /y3*ddMa 1 v3*ddMa sub def /n3*ddMa 0 def %calculations for elementary (e) system: %faktor and section in actual System (for example ORS18) /jsece -1 def %main equations %fakte = [col_angh - LAB*He(n)]/[LAB*He(n+1) - LAB*He(n)] %col_angh = fakte [LAB*He(n+1) - LAB*He(n)] + LAB*He(n) H*abe LAB*He 0 get lt {/H*abe H*abe 360 add def} if 0 1 5 {/nx exch def /np nx 1 add def H*abe LAB*He nx get ge H*abe LAB*He np get lt and {/jsece nx def /fakte H*abe LAB*He nx get sub LAB*He np get LAB*He nx get sub div def} if } for %nx=0,5 %1 0 0 %R jsece=0 %1 1 0 %J jsece=1 %0 1 0 %G jsece=2 %0 1 1 %C' jsece=3 %0 0 1 %B jsece=4 %1 0 1 %R jsece=5 jsece -1 eq {STOPjsece} if /fakme 1 fakte sub def /o3*deMa -1 def /l3*deMa -1 def /v3*deMa -1 def jsece 0 eq {%sector O->Y, o3*=1, l3*=0->1, v*=0 /o3*deMa 1 def /l3*deMa fakte def /v3*deMa 0 def /u*dtMa1 (r) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (j) def /u*deMa1 (r) def /u*deMai fakte 99 mul cviht def /u*deMa2 (j) def} if jsece 1 eq {%sector Y->L, o3*=1->0, l3*=1, v*=0 /o3*deMa fakme def /l3*deMa 1 def /v3*deMa 0 def /u*dtMa1 (j) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (g) def /u*deMa1 (j) def /u*deMai fakte 99 mul cviht def /u*deMa2 (g) def} if jsece 2 eq {%sector L->C, o3*=0, l3*=1, v*=0->1 /o3*deMa 0 def /l3*deMa 1 def /v3*deMa fakte def /u*dtMa1 (g) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (c') def /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (b) def} if jsece 3 eq {%sector C->V, o3*=0, l3*=0->1, v*=1 /o3*deMa 0 def /l3*deMa fakme def /v3*deMa 1 def /u*dtMa1 (c') def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (b) def /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (b) def} if jsece 4 eq {%sector V->M, o3*=0->1, l3*=0, v*=1 /o3*deMa fakte def /l3*deMa 0 def /v3*deMa 1 def /u*dtMa1 (b) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (m') def /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (r) def} if jsece 5 eq {%sector M->O, o3*=1, l3*=0, v*=1->0 /o3*deMa 1 def /l3*deMa 0 def /v3*deMa fakme def /u*dtMa1 (m') def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (r) def /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (r) def} if o3*deMa -1 eq {STOPo3*Ma0} if l3*deMa -1 eq {STOPl3*Ma0} if v3*deMa -1 eq {STOPv3*Ma0} if /i3*deMa 1 def /c3*deMa 1 o3*deMa sub def /m3*deMa 1 l3*deMa sub def /y3*deMa 1 v3*deMa sub def /n3*deMa 0 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 procedure proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG %************************************************************* /proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG { %BEG Procedure proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %transfer from elementary data to device (ed) and elementary data (ee) %For tLAB=1 Transfer to LAB*Ma and LAB*Fa /v*s exch def /l*s exch def /o*s exch def /i*p 0 def %test if achromatic %W special case %W: o*s, l*s, v*s = 1.00 1.0 o*s sub abs 0.001 le 1.0 l*s sub abs 0.001 le and 1.0 v*s sub abs 0.001 le and %W special case {/i*p 6 def %W /c*rs 0 def /n*s 0 def /w*s 1 def /t*s 1 def } if %Test if achromatic %N special case %N: o*n, l*n, v*n <= 0.01 o*s abs 0.001 le l*s abs 0.001 le and v*s abs 0.001 le and %N special case {/i*p 6 def %N /c*rs 0 def /n*s 1 def /w*s 0 def /t*s 0 def } if %test if achromatic Grey sample o*s l*s sub abs 0.001 le l*s v*s sub abs 0.001 le and %Achromatic grey special case {/i*p 6 def %Grey /c*rs 0 def /n*s 1 o*s sub def /w*s o*s def /t*s 1 n*s sub c*rs 0.5 mul sub def } if i*p 6 eq {%achromatic,chromatic colours /o3*edMa 1 def /l3*edMa 1 def /v3*edMa 1 def /o3*eeMa 1 def /l3*eeMa 1 def /v3*eeMa 1 def /u*edMa1 (o) def /u*edMai 0 def /u*edMa2 (y) def /u*etMa1 (r) def /u*etMai 0 def /u*etMa2 (j) def /u*eeMa1 (r) def /u*eeMai 0 def /u*eeMa2 (j) def /o3*ed o*s def /l3*ed l*s def /v3*ed v*s def /o3*ee o*s def /l3*ee l*s def /v3*ee v*s def } %achromatic i*p=6 { %chromatic i*p#6 o*s l*s ge o*s v*s ge and {/olv*smax o*s def l*s v*s ge {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /olv*smin v*s def /olv*smean l*s def /jsecs 0 def} {%sector M->O, o3*=1, l3*=0, v3*=1->0 /olv*smin l*s def /olv*smean v*s def /jsecs 5 def} ifelse } if l*s v*s ge l*s o*s ge and {/olv*smax l*s def v*s o*s ge {%sector L->C, o3*=0, l3*=1, v3*=0->1 /olv*smin o*s def /olv*smean v*s def /jsecs 2 def} {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /olv*smin v*s def /olv*smean o*s def /jsecs 1 def} ifelse } if v*s o*s ge v*s l*s ge and {/olv*smax v*s def o*s l*s ge {%sector V->M, o3*=0->1, l3*=0, v3*=1 /olv*smin l*s def /olv*smean o*s def /jsecs 4 def} {%sector C->V, o3*=0, l3*=0->1, v3*=1 /olv*smin o*s def /olv*smean l*s def /jsecs 3 def } ifelse } if /c*rs olv*smax olv*smin sub def /n*s 1 olv*smax sub def /w*s 1 n*s sub c*rs sub def /t*s 1 n*s sub c*rs 0.5 mul sub def /b_a olv*smean olv*smax div def /c_a olv*smin olv*smax div def /alpha 1 c_a sub def /fakts b_a c_a sub alpha 0.00001 add div def /fakms 1 fakts sub def %jsecs interpreted as elementary hue angle jsecs 0 eq {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /o3*eeMa 1 def /l3*eeMa fakts def /v3*eeMa 0 def /H*Me LAB*He 0 get LAB*He 1 get LAB*He 0 get sub fakts mul add def /u*eeMa1 (r) def /u*eeMai fakts 99 mul cviht def /u*eeMa2 (j) def} if jsecs 1 eq {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /o3*eeMa fakts def /l3*eeMa 1 def /v3*eeMa 0 def /H*Me LAB*He 1 get LAB*He 2 get LAB*He 1 get sub fakms mul add def /u*eeMa1 (j) def /u*eeMai fakms 99 mul cviht def /u*eeMa2 (g) def} if jsecs 2 eq {%sector L->C, o3*=0, l3*=1, v3*=0->1 /o3*eeMa 0 def /l3*eeMa 1 def /v3*eeMa fakts def /H*Me LAB*He 2 get LAB*He 3 get LAB*He 2 get sub fakts mul add def /u*etMa1 (g) def /u*etMai fakts 99 mul cviht def /u*etMa2 (C) def /u*eeMa1 (g) def /u*eeMai fakts 99 mul 0.5 mul cviht def /u*eeMa2 (b) def} if jsecs 3 eq {%sector C->V, o3*=0, l3*=0->1, v3*=1 /o3*eeMa 0 def /l3*eeMa fakts def /v3*eeMa 1 def /H*Me LAB*He 3 get LAB*He 4 get LAB*He 3 get sub fakms mul add def /u*etMa1 (C) def /u*etMai fakms 99 mul cviht def /u*etMa2 (b) def /u*eeMa1 (g) def /u*eeMai fakms 99 mul 0.5 mul 50 add cviht def /u*eeMa2 (b) def} if jsecs 4 eq {%sector V->M, o3*=0->1, l3*=0, v3*=1 /o3*eeMa fakts def /l3*eeMa 0 def /v3*eeMa 1 def /H*Me LAB*He 4 get LAB*He 5 get LAB*He 4 get sub fakts mul add def /u*etMa1 (b) def /u*etMai fakts 99 mul cviht def /u*etMa2 (M) def /u*eeMa1 (b) def /u*eeMai fakts 99 mul 0.5 mul cviht def /u*eeMa2 (r) def} if jsecs 5 eq {%sector M->O, o3*=1, l3*=0, v3*=1->0 /o3*eeMa 1 def /l3*eeMa 0 def /v3*eeMa fakts def /H*Me LAB*He 5 get LAB*He 6 get LAB*He 5 get sub fakms mul add def /u*etMa1 (M) def /u*etMai fakms 99 mul cviht def /u*etMa2 (r) def /u*eeMa1 (b) def /u*eeMai fakms 99 mul 0.5 mul 50 add cviht def /u*eeMa2 (r) def} if /i3*eeMa 1 def /c3*eeMa 1 o3*eeMa sub def /m3*eeMa 1 l3*eeMa sub def /y3*eeMa 1 v3*eeMa sub def /n3*eeMa 0 def H*Me 360 ge {/H*Me H*Me 360 sub def} if %H*Me = H*abd = H*abe for all hue angles /H*abd H*Me def %calculations for device (d) system: %faktor and section in actual System (for example ORS18) /jsece -1 def %main equations %faktd = [col_angh - LAB*Hd(n)]/[LAB*Hd(n+1) - LAB*Hd(n)] %col_angh = faktd [LAB*Hd(n+1) - LAB*Hd(n)] + LAB*Hd(n) H*abd LAB*Hd 0 get lt {/H*abd H*abd 360 add def} if 0 1 5 {/nx exch def /np nx 1 add def H*abd LAB*Hd nx get ge H*abd LAB*Hd np get lt and {/jsecd nx def /faktd H*abd LAB*Hd nx get sub LAB*Hd np get LAB*Hd nx get sub div def} if } for %nx=0,5 %1 0 0 %O jsecd=0 %1 1 0 %Y jsecd=1 %0 1 0 %L jsecd=2 %0 1 1 %C jsecd=3 %0 0 1 %V jsecd=4 %1 0 1 %O jsecd=5 jsecd -1 eq {STOPjsecd} if /fakmd 1 faktd sub def /o3*edMa -1 def /l3*edMa -1 def /v3*edMa -1 def jsecd 0 eq {%sector O->Y, o3*=1, l3*=0->1, v*=0 /o3*edMa 1 def /l3*edMa faktd def /v3*edMa 0 def /u*dtMa1 (o) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (y) def /u*edMa1 (o) def /u*edMai faktd 99 mul cviht def /u*edMa2 (y) def} if jsecd 1 eq {%sector Y->L, o3*=1->0, l3*=1, v*=0 /o3*edMa fakmd def /l3*edMa 1 def /v3*edMa 0 def /u*dtMa1 (y) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (l) def /u*edMa1 (y) def /u*edMai faktd 99 mul cviht def /u*edMa2 (l) def} if jsecd 2 eq {%sector L->C, o3*=0, l3*=1, v*=0->1 /o3*edMa 0 def /l3*edMa 1 def /v3*edMa faktd def /u*dtMa1 (l) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (c) def /u*edMa1 (l) def /u*edMai faktd 99 mul cviht def /u*edMa2 (c) def} if jsecd 3 eq {%sector C->V, o3*=0, l3*=0->1, v*=1 /o3*edMa 0 def /l3*edMa fakmd def /v3*edMa 1 def /u*dtMa1 (c) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (v) def /u*edMa1 (c) def /u*edMai faktd 99 mul cviht def /u*edMa2 (v) def} if jsecd 4 eq {%sector V->M, o3*=0->1, l3*=0, v*=1 /o3*edMa faktd def /l3*edMa 0 def /v3*edMa 1 def /u*dtMa1 (v) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (m) def /u*edMa1 (v) def /u*edMai faktd 99 mul cviht def /u*edMa2 (m) def} if jsecd 5 eq {%sector M->O, o3*=1, l3*=0, v*=1->0 /o3*edMa 1 def /l3*edMa 0 def /v3*edMa fakmd def /u*dtMa1 (m) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (o) def /u*edMa1 (v) def /u*edMai faktd 99 mul cviht def /u*edMa2 (o) def} if o3*edMa -1 eq {STOPo3*Ma0} if l3*edMa -1 eq {STOPl3*Ma0} if v3*edMa -1 eq {STOPv3*Ma0} if /i3*edMa 1 def /c3*edMa 1 o3*edMa sub def /m3*edMa 1 l3*edMa sub def /y3*edMa 1 v3*edMa sub def /n3*edMa 0 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 %/o3*ee o*s def %/o3*ee w*s o3*eeMa c*rs mul add def %/l3*ee l*s def %/l3*ee w*s l3*eeMa c*rs mul add def %/v3*ee v*s def %/v3*ee w*s v3*eeMa c*rs mul add def /o3*ee w*s o3*eeMa c*rs mul add def /l3*ee w*s l3*eeMa c*rs mul add def /v3*ee w*s v3*eeMa c*rs mul add def /o3*ed w*s o3*edMa c*rs mul add def /l3*ed w*s l3*edMa c*rs mul add def /v3*ed w*s v3*edMa c*rs mul add def } ifelse %chromatic colour i*p#6 %For tLAB=1 Transfer to LAB*Ma and LAB*Fa tLAB 1 eq {%tLAB = 1 i*p 6 eq { %achromatic,chromatic colours /L*Ma L*Wio def /A*Ma 0 def /B*Ma 0 def /H*Ma B*Ma A*Ma 0.0001 add atan def /C*Ma 0 def /L*Fa L*Nio L*Wio L*Nio sub w*s mul add def /A*Fa 0 def /B*Fa 0 def /H*Fa B*Fa A*Fa 0.0001 add atan def /C*Fa 0 def /l*rs w*s def } %achromatic i*p=6 {%chromatic i*p#6 /H*M H*Me def %H*M allready defined /L*Ha 50 def /A*Ha 75 H*M cos mul def /B*Ha 75 H*M sin mul def /UXF1a wLAB*s0 1 get B*Ha mul wLAB*s0 2 get A*Ha mul sub def /UXF2a wLAB*s0 2 get L*Ha mul wLAB*s0 0 get B*Ha mul sub def /UXF3a wLAB*s0 0 get A*Ha mul wLAB*s0 1 get L*Ha 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 %equations %/c*rs olv*smax olv*smin sub def %/n*s 1 olv*smax sub def %/w*s 1 n*s sub c*rs sub def %/t*s 1 n*s sub c*rs 0.5 mul sub def %l* = t* + c* [L*M - L*N]/[L*W - L*N] - 0.5 c* %l* = (L*Fa - L*Na) / (L*Wa - L*Na) %L*Fa = l* (L*Wa - L*Na) + L*Na %given L*Nio, L*Wio /l*rs t*s L*Ma L*Nio sub L*Wio L*Nio sub div c*rs mul add c*rs 0.5 mul sub def /L*Fa L*Nio L*Wio L*Nio sub l*rs mul add def /C*Fa C*Ma c*rs mul def /H*Fa H*Ma def /A*Fa C*Fa H*Ma cos mul def /B*Fa C*Fa H*Ma sin mul def } ifelse %chromatic colour i*p#6 } if %tLAB = 1 } bind def %END Procedure proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %******************************************************************** /proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioG { %BEG Procedure proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioG %transfer from device data to device (dd) and elementary data (de) %For tLAB=1 Transfer to LAB*Ma and LAB*Fa /v*s exch def /l*s exch def /o*s exch def /i*p 0 def %test if achromatic %W special case %W: o*s, l*s, v*s = 1.00 1.0 o*s sub abs 0.001 le 1.0 l*s sub abs 0.001 le and 1.0 v*s sub abs 0.001 le and %W special case {/i*p 6 def %W /c*rs 0 def /n*s 0 def /w*s 1 def /t*s 1 def } if %Test if achromatic %N special case %N: o*n, l*n, v*n <= 0.01 o*s abs 0.001 le l*s abs 0.001 le and v*s abs 0.001 le and %N special case {/i*p 6 def %N /c*rs 0 def /n*s 1 def /w*s 0 def /t*s 0 def } if %test if achromatic Grey sample o*s l*s sub abs 0.001 le l*s v*s sub abs 0.001 le and %Achromatic grey special case {/i*p 6 def %Grey /c*rs 0 def /n*s 1 o*s sub def /w*s o*s def /t*s 1 n*s sub c*rs 0.5 mul sub def } if i*p 6 eq {%achromatic,chromatic colours /o3*ddMa 1 def /l3*ddMa 1 def /v3*ddMa 1 def /o3*deMa 1 def /l3*deMa 1 def /v3*deMa 1 def /u*ddMa1 (o) def /u*ddMai 0 def /u*ddMa2 (y) def /u*dtMa1 (r) def /u*dtMai 0 def /u*dtMa2 (j) def /u*deMa1 (r) def /u*deMai 0 def /u*deMa2 (j) def /o3*dd o*s def /l3*dd l*s def /v3*dd v*s def /o3*de o*s def /l3*de l*s def /v3*de v*s def } %achromatic i*p=6 { %chromatic i*p#6 o*s l*s ge o*s v*s ge and {/olv*smax o*s def l*s v*s ge {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /olv*smin v*s def /olv*smean l*s def /jsecd 0 def} {%sector M->O, o3*=1, l3*=0, v3*=1->0 /olv*smin l*s def /olv*smean v*s def /jsecd 5 def} ifelse } if l*s v*s ge l*s o*s ge and {/olv*smax l*s def v*s o*s ge {%sector L->C, o3*=0, l3*=1, v3*=0->1 /olv*smin o*s def /olv*smean v*s def /jsecd 2 def} {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /olv*smin v*s def /olv*smean o*s def /jsecd 1 def} ifelse } if v*s o*s ge v*s l*s ge and {/olv*smax v*s def o*s l*s ge {%sector V->M, o3*=0->1, l3*=0, v3*=1 /olv*smin l*s def /olv*smean o*s def /jsecd 4 def} {%sector C->V, o3*=0, l3*=0->1, v3*=1 /olv*smin o*s def /olv*smean l*s def /jsecd 3 def } ifelse } if /c*rs olv*smax olv*smin sub def /n*s 1 olv*smax sub def /w*s 1 n*s sub c*rs sub def /t*s 1 n*s sub c*rs 0.5 mul sub def /b_a olv*smean olv*smax div def /c_a olv*smin olv*smax div def /alpha 1 c_a sub def /faktd b_a c_a sub alpha 0.00001 add div def /fakmd 1 faktd sub def %jsecd interpreted as device angle jsecd 0 eq {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /o3*ddMa 1 def /l3*ddMa faktd def /v3*ddMa 0 def /H*M LAB*Hd 0 get LAB*Hd 1 get LAB*Hd 0 get sub faktd mul add def /u*ddMa1 (o) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (y) def} if jsecd 1 eq {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /o3*ddMa faktd def /l3*ddMa 1 def /v3*ddMa 0 def /H*M LAB*Hd 1 get LAB*Hd 2 get LAB*Hd 1 get sub fakmd mul add def /u*ddMa1 (y) def /u*ddMai fakmd 99 mul cviht def /u*ddMa2 (l) def} if jsecd 2 eq {%sector L->C, o3*=0, l3*=1, v3*=0->1 /o3*ddMa 0 def /l3*ddMa 1 def /v3*ddMa faktd def /H*M LAB*Hd 2 get LAB*Hd 3 get LAB*Hd 2 get sub faktd mul add def /u*ddMa1 (l) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (c) def} if jsecd 3 eq {%sector C->V, o3*=0, l3*=0->1, v3*=1 /o3*ddMa 0 def /l3*ddMa faktd def /v3*ddMa 1 def /H*M LAB*Hd 3 get LAB*Hd 4 get LAB*Hd 3 get sub fakmd mul add def /u*ddMa1 (c) def /u*ddMai fakmd 99 mul cviht def /u*ddMa2 (v) def} if jsecd 4 eq {%sector V->M, o3*=0->1, l3*=0, v3*=1 /o3*ddMa faktd def /l3*ddMa 0 def /v3*ddMa 1 def /H*M LAB*Hd 4 get LAB*Hd 5 get LAB*Hd 4 get sub faktd mul add def /u*ddMa1 (v) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (m) def} if jsecd 5 eq {%sector M->O, o3*=1, l3*=0, v3*=1->0 /o3*ddMa 1 def /l3*ddMa 0 def /v3*ddMa faktd def /H*M LAB*Hd 5 get LAB*Hd 6 get LAB*Hd 5 get sub fakmd mul add def /u*ddMa1 (m) def /u*ddMai fakmd 99 mul cviht def /u*ddMa2 (o) def} if /i3*ddMa 1 def /c3*ddMa 1 o3*ddMa sub def /m3*ddMa 1 l3*ddMa sub def /y3*ddMa 1 v3*ddMa sub def /n3*ddMa 0 def H*M 360 ge {/H*M H*M 360 sub def} if %H*M = H*abd = H*abe for all hue angles /H*abe H*M def %calculations for elementary (e) system: %faktor and section in actual System (for example ORS18) /jsece -1 def %main equations %fakte = [col_angh - LAB*He(n)]/[LAB*He(n+1) - LAB*He(n)] %col_angh = fakte [LAB*He(n+1) - LAB*He(n)] + LAB*He(n) H*abe LAB*He 0 get lt {/H*abe H*abe 360 add def} if 0 1 5 {/nx exch def /np nx 1 add def H*abe LAB*He nx get ge H*abe LAB*He np get lt and {/jsece nx def /fakte H*abe LAB*He nx get sub LAB*He np get LAB*He nx get sub div def} if } for %nx=0,5 %1 0 0 %R jsece=0 %1 1 0 %J jsece=1 %0 1 0 %G jsece=2 %0 1 1 %C' jsece=3 %0 0 1 %B jsece=4 %1 0 1 %R jsece=5 jsece -1 eq {STOPjsece} if /fakme 1 fakte sub def /o3*deMa -1 def /l3*deMa -1 def /v3*deMa -1 def jsece 0 eq {%sector O->Y, o3*=1, l3*=0->1, v*=0 /o3*deMa 1 def /l3*deMa fakte def /v3*deMa 0 def /u*dtMa1 (r) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (j) def /u*deMa1 (r) def /u*deMai fakte 99 mul cviht def /u*deMa2 (j) def} if jsece 1 eq {%sector Y->L, o3*=1->0, l3*=1, v*=0 /o3*deMa fakme def /l3*deMa 1 def /v3*deMa 0 def /u*dtMa1 (j) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (g) def /u*deMa1 (j) def /u*deMai fakte 99 mul cviht def /u*deMa2 (g) def} if jsece 2 eq {%sector L->C, o3*=0, l3*=1, v*=0->1 /o3*deMa 0 def /l3*deMa 1 def /v3*deMa fakte def /u*dtMa1 (g) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (C) def /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (b) def} if jsece 3 eq {%sector C->V, o3*=0, l3*=0->1, v*=1 /o3*deMa 0 def /l3*deMa fakme def /v3*deMa 1 def /u*dtMa1 (C) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (b) def /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (b) def} if jsece 4 eq {%sector V->M, o3*=0->1, l3*=0, v*=1 /o3*deMa fakte def /l3*deMa 0 def /v3*deMa 1 def /u*dtMa1 (b) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (M) def /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (r) def} if jsece 5 eq {%sector M->O, o3*=1, l3*=0, v*=1->0 /o3*deMa 1 def /l3*deMa 0 def /v3*deMa fakme def /u*dtMa1 (M) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (r) def /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (r) def} if o3*deMa -1 eq {STOPo3*Ma0} if l3*deMa -1 eq {STOPl3*Ma0} if v3*deMa -1 eq {STOPv3*Ma0} if /i3*deMa 1 def /c3*deMa 1 o3*deMa sub def /m3*deMa 1 l3*deMa sub def /y3*deMa 1 v3*deMa sub def /n3*deMa 0 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 /o3*dd o*s def /o3*dd w*s o3*ddMa c*rs mul add def /l3*dd l*s def /l3*dd w*s l3*ddMa c*rs mul add def /v3*dd v*s def /v3*dd w*s v3*ddMa c*rs mul add def /o3*de w*s o3*deMa c*rs mul add def /l3*de w*s l3*deMa c*rs mul add def /v3*de w*s v3*deMa c*rs mul add def } ifelse %chromatic colour i*p#6 %For tLAB=1 Transfer to LAB*Ma and LAB*Fa tLAB 1 eq {%tLAB = 1 i*p 6 eq {%achromatic,chromatic colours /L*Ma L*Wio def /A*Ma 0 def /B*Ma 0 def /H*Ma B*Ma A*Ma 0.0001 add atan def /C*Ma 0 def /L*Fa L*Nio L*Wio L*Nio sub w*s mul add def /A*Fa 0 def /B*Fa 0 def /H*Fa B*Fa A*Fa 0.0001 add atan def /C*Fa 0 def /l*rs w*s def } %achromatic i*p=6 { %chromatic i*p#6 %H*M allready defined /L*Ha 50 def /A*Ha 75 H*M cos mul def /B*Ha 75 H*M sin mul def /UXF1a wLAB*s0 1 get B*Ha mul wLAB*s0 2 get A*Ha mul sub def /UXF2a wLAB*s0 2 get L*Ha mul wLAB*s0 0 get B*Ha mul sub def /UXF3a wLAB*s0 0 get A*Ha mul wLAB*s0 1 get L*Ha 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 %equations %/c*rs olv*smax olv*smin sub def %/n*s 1 olv*smax sub def %/w*s 1 n*s sub c*rs sub def %/t*s 1 n*s sub c*rs 0.5 mul sub def %l* = t* + c* [L*M - L*N]/[L*W - L*N] - 0.5 c* %l* = (L*Fa - L*Na) / (L*Wa - L*Na) %L*Fa = l* (L*Wa - L*Na) + L*Na %given L*Nio, L*Wio /l*rs t*s L*Ma L*Nio sub L*Wio L*Nio sub div c*rs mul add c*rs 0.5 mul sub def /L*Fa L*Nio L*Wio L*Nio sub l*rs mul add def /C*Fa C*Ma c*rs mul def /H*Fa H*Ma def /A*Fa C*Fa H*Ma cos mul def /B*Fa C*Fa H*Ma sin mul def } ifelse %chromatic colour i*p#6 } if %tLAB = 1 } bind def %END Procedure proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioG %******************************************************************* from De990-7N04.PS /proc_ColSep*ioG {%BEG Procedure proc_ColSep*ioG ColourSeparation for NP-file 20090201 /setgc {pop pop pop 1 exch sub sggray} bind def /setgm {pop pop 1 exch sub sggray pop} bind def /setgy {pop 1 exch sub sggray pop pop} bind def /setgn {1 exch sub sggray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub sggray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add sggray} ifelse } bind def /setcmykcolorf { sgcmykcolor} bind def %fuer PSL1/2-Farbgeraet /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc} if %C ausz 2 eq {setgm} if %M ausz 3 eq {setgy} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def %********************************************************************* /rgb_LAB_Interp_olv*ioG {%BEG Procedure rgb_LAB_Interp_olv*ioG zm60'LABINPLT.PS %assumes input of rgb, LAB_Interpolation and calculation of olv* %split in chromatic and achromatic colours %two special cases black N and white W /b exch def /g exch def /r exch def r g sub abs 0.001 le r b sub abs 0.001 le and {%achromatic case /Case 0 def r abs 0.001 le g abs 0.001 le and b abs 0.001 le and {%N special case /Case 1 def } if %N special case 1 r sub abs 0.001 le 1 g sub abs 0.001 le and 1 b sub abs 0.001 le and {%W special case /Case 2 def } if }%achromatic {%chromatic /Case 3 def } ifelse %chromatic Case 1 eq {%Black N /o* 0 def /l* 0 def /v* 0 def } if %N special case Case 2 eq {%White W /o* 1 def /l* 1 def /v* 1 def } if %W special case Case 0 eq Case 3 eq or {%chromatic or gray /tLAB 1 def r g b proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioG L*Fa A*Fa B*Fa Lab2RGBinterpolation /v* exch def /l* exch def /o* exch def } if %chromatic or gray } bind def %END Procedure rgb_LAB_Interp_olv*ioG 'zm60'LABINPLT.PS %********************************************************************* /trans_rgb3*_cmyn4*ioG {%BEG Procedure trans_rgb3*_cmyn4*ioG %assumes input of olv* o* 0 le {/o* 0.0000 def} if l* 0 le {/l* 0.0000 def} if v* 0 le {/v* 0.0000 def} if o* 1 ge {/o* 1.0000 def} if l* 1 ge {/l* 1.0000 def} if v* 1 ge {/v* 1.0000 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 {/n*n 1 v* sub def /w*w o* 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 {/n*n 1 v* sub def /w*w l* 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 {/n*n 1 o* sub def /w*w l* 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 {/n*n 1 o* sub def /w*w v* 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 {/n*n 1 l* sub def /w*w v* 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 {/n*n 1 l* sub def /w*w o* 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 {/n*n 0 def /w*w 1 def %W } 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 {/n*n 1 def /w*w 0 def %N } if %Achromatic o* l* sub abs 0.001 le l* v* sub abs 0.001 le and %Achromatic special case {/n*n 1 o* sub def /w*w o* def %grey } if /lab*wFa w*w def /lab*nFa n*n def /c3*Fa 1 o* sub def /m3*Fa 1 l* sub def /y3*Fa 1 v* sub def /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 %cmyn4* /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 trans_rgb3*_cmyn4*ioG %******************************************************************* /trans_rgb3*_cmyn5*ioG {%BEG Procedure trans_rgb3*_cmyn5*ioG %assumes input of olv*, 'zm60'CMYN559LT.PS o* 0 le {/o* 0.0000 def} if l* 0 le {/l* 0.0000 def} if v* 0 le {/v* 0.0000 def} if o* 1 ge {/o* 1.0000 def} if l* 1 ge {/l* 1.0000 def} if v* 1 ge {/v* 1.0000 def} if /ok* o* def /lk* l* def /vk* v* def /tdel 0 def vk* lk* ge lk* ok* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c* %sector C-V of C-M, C>=M: i*p=0 {/n*n 1 vk* sub def /w*w ok* def /m*w lk* def /tdel 1 def /isec 3 def } if % v* >= l* >= o* vk* ok* ge ok* lk* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m* %sector V-M of C-M, M>=C: i*p=1 {/n*n 1 vk* sub def /w*w lk* def /m*w ok* def /tdel 1 def /isec 4 def } if % v* >= o* >= l* ok* vk* ge vk* lk* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m* %sector M-O of M-Y, M>=Y: i*p=2 {/n*n 1 ok* sub def /w*w lk* def /m*w vk* def /tdel 1 def /isec 5 def } if % o* >= v* >= l* ok* lk* ge lk* vk* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y* %sector O-Y of M-Y, Y>=M: i*p=3 {/n*n 1 ok* sub def /w*w vk* def /m*w lk* def /tdel 1 def /isec 0 def } if % o* >= l* >= v* lk* ok* ge ok* vk* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y* %sector Y-L of Y-C, Y>=C: i*p=4 {/n*n 1 lk* sub def /w*w vk* def /m*w ok* def /tdel 1 def /isec 1 def } if % l* >= o* >= v* lk* vk* ge vk* ok* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c* %sector L-C of Y-C, C>=Y: i*p=5 {/n*n 1 lk* sub def /w*w ok* def /m*w vk* def /tdel 1 def /isec 2 def } if % l* >= v* >= o* %achromatic %W: ok*, lk*, vk* = 1.00 1.0 ok* sub abs 0.001 le 1.0 lk* sub abs 0.001 le and 1.0 vk* sub abs 0.001 le and %W special case {/n*n 0 def /w*w 1 def /m*w 1 def %W /isec 6 def } if %N: ok*, lk*, vk* <= 0.001 ok* abs 0.001 le lk* abs 0.001 le and vk* abs 0.001 le and %N special case {/n*n 1 def /w*w 0 def /m*w 0 def %N /isec 6 def } if %Achromatic ok* lk* sub abs 0.001 le lk* vk* sub abs 0.001 le and %Achromatic special case {/n*n 1 ok* sub def /w*w ok* def /m*w ok* def %grey /isec 6 def } if /lab*wFa w*w def /lab*nFa n*n def /lab*cFa 1 n*n sub w*w sub def /argb 1 lab*nFa sub def /brgb m*w def /crgb lab*wFa def /c* lab*cFa def /lab*tFa 1 lab*nFa sub lab*cFa 0.5 mul sub def isec 6 eq {%BEG isec=6 achromatic /o*1 1 def /l*1 1 def /v*1 1 def }%END isec=6 achromatic {%BEG isec#6 chromatic /o*1 ok* argb 0.000001 add div def /l*1 lk* argb 0.000001 add div def /v*1 vk* argb 0.000001 add div def } ifelse %END isec#6 /c3*Fa 1 o*1 sub def /m3*Fa 1 l*1 sub def /y3*Fa 1 v*1 sub def /c4*Fa c3*Fa def %at least one of cmy will be cero /m4*Fa m3*Fa def /y4*Fa y3*Fa def /n4*Fa lab*nFa def %cmyn5* /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 trans_rgb3*_cmyn5*ioG 'zm60'CMYN559LT.PS %********************************************************************* /trans_rgb3*_cmyn6*ioG {%BEG Procedure trans_rgb3*_cmyn6*ioG %assumes input of olv*, 'zm60'CMYN559LT.PS o* 0 le {/o* 0.0000 def} if l* 0 le {/l* 0.0000 def} if v* 0 le {/v* 0.0000 def} if o* 1 ge {/o* 1.0000 def} if l* 1 ge {/l* 1.0000 def} if v* 1 ge {/v* 1.0000 def} if /ok* o* def /lk* l* def /vk* v* def /tdel 0 def vk* lk* ge lk* ok* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c* %sector C-V of C-M, C>=M: i*p=0 {/n*n 1 vk* sub def /w*w ok* def /m*w lk* def /tdel 1 def /isec 3 def } if % v* >= l* >= o* vk* ok* ge ok* lk* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m* %sector V-M of C-M, M>=C: i*p=1 {/n*n 1 vk* sub def /w*w lk* def /m*w ok* def /tdel 1 def /isec 4 def } if % v* >= o* >= l* ok* vk* ge vk* lk* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m* %sector M-O of M-Y, M>=Y: i*p=2 {/n*n 1 ok* sub def /w*w lk* def /m*w vk* def /tdel 1 def /isec 5 def } if % o* >= v* >= l* ok* lk* ge lk* vk* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y* %sector O-Y of M-Y, Y>=M: i*p=3 {/n*n 1 ok* sub def /w*w vk* def /m*w lk* def /tdel 1 def /isec 0 def } if % o* >= l* >= v* lk* ok* ge ok* vk* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y* %sector Y-L of Y-C, Y>=C: i*p=4 {/n*n 1 lk* sub def /w*w vk* def /m*w ok* def /tdel 1 def /isec 1 def } if % l* >= o* >= v* lk* vk* ge vk* ok* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c* %sector L-C of Y-C, C>=Y: i*p=5 {/n*n 1 lk* sub def /w*w ok* def /m*w vk* def /tdel 1 def /isec 2 def } if % l* >= v* >= o* %achromatic %W: ok*, lk*, vk* = 1.00 1.0 ok* sub abs 0.001 le 1.0 lk* sub abs 0.001 le and 1.0 vk* sub abs 0.001 le and %W special case {/n*n 0 def /w*w 1 def /m*w 1 def %W /isec 6 def } if %N: ok*, lk*, vk* <= 0.001 ok* abs 0.001 le lk* abs 0.001 le and vk* abs 0.001 le and %N special case {/n*n 1 def /w*w 0 def /m*w 0 def %N /isec 6 def } if %Achromatic ok* lk* sub abs 0.001 le lk* vk* sub abs 0.001 le and %Achromatic special case {/n*n 1 ok* sub def /w*w ok* def /m*w ok* def %grey /isec 6 def } if /lab*wFa w*w def /lab*nFa n*n def /lab*cFa 1 n*n sub w*w sub def /argb 1 lab*nFa sub def /brgb m*w def /crgb lab*wFa def /c* lab*cFa def /lab*tFa 1 lab*nFa sub lab*cFa 0.5 mul sub def isec 6 eq {%BEG isec=6 achromatic /o*1 1 def /l*1 1 def /v*1 1 def }%END isec=6 achromatic {%BEG isec#6 chromatic /o*1 ok* argb 0.000001 add div def /l*1 lk* argb 0.000001 add div def /v*1 vk* argb 0.000001 add div def } ifelse %END isec#6 /c3*Fa 1 o*1 sub def /m3*Fa 1 l*1 sub def /y3*Fa 1 v*1 sub def /c41*Fa c3*Fa def %at least one of cmy will be cero /m41*Fa m3*Fa def /y41*Fa y3*Fa def /n4*Fa lab*nFa 1.0 exp def %cmyn6* %change by deepness difference delta d* = c*S1 - c*S2 %use lab*cFa, lab*tFa for correction %equations of three lines %t* = 1 - 0.5 c* %t* = [t* / c*] c* %t* = [(t* + 0,18) / c*] c* - 0,18 %cut point S1 for nt=0,18: %c*s1 = 1 /[ t*F / c*F + 0,5 ] %cut point S2 for n=0,18: %c*s1 = (1 + nt) / [ (t*F + nt) / c*F + 0,5 ] %special case lab*cFa=0 and n=0,18 /nt 0.18 def lab*cFa 0 eq { %lab*cFa=0,#0 /c*S1 0 def /c*S2 0 def } %lab*cFa=0 { %lab*cFa#0 /c*S1 1 lab*tFa lab*cFa div 0.5 add div def /c*S2 1 nt add lab*tFa nt add lab*cFa div 0.5 add div def } ifelse %lab*cFa=0,#0 /c4*Fa c41*Fa c41*Fa c*S1 c*S2 sub mul sub def /m4*Fa m41*Fa m41*Fa c*S1 c*S2 sub mul sub def /y4*Fa y41*Fa y41*Fa c*S1 c*S2 sub mul sub 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 trans_rgb3*_cmyn6*ioG 'zm60'CMYN559LT.PS %********************************************************************* %BEG 'zm60'COLM57_590415LT.PS 20090201 ColSpx 0 eq {%ColSpx=0 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM57LT.PS cmy0* 20090201 colorm 0 eq {%BEG colorm=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if %standard cmy0* for input /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* sgrgbcolor} ifelse } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if %standard cmy0* for input /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* sgrgbcolor} ifelse } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /i* 0 def } {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def /i* 0 def } ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* sgrgbcolor} ifelse } def }%END colorm=0 {%BEG colorm=1 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* sgrgbcolor} ifelse } def /setgray {/w*w exch def /o* w*w def /l* w*w def /v* w*w def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* sgrgbcolor} ifelse } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* sgrgbcolor} ifelse } def } ifelse %END colorm=1 }%END %xcharti>=1 {%BEG %xcharti=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* sgrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* sggray } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /n4*Fa 0 def} {/o* 1 def /l* 1 def /v* 1 def /n4*Fa n*n def} ifelse /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def c4*Fa m4*Fa y4*Fa n4*Fa sgcmykcolor } def } ifelse %END %xcharti=0 'zm60'COLM57LT.PS cmy0* 20090201 } if %ColSpx=0 %********************************************************************* ColSpx 1 eq {%ColSpx=1 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM559LT.PS cmyn6* 20080201 colorm 0 eq {%BEG colorm=0 /olvtrans 1 def %changes olv* to olvk* /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {/w*w exch def /v* w*w def /l* w*w def /o* w*w def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def }%END colorm=0 {%BEG colorm=1 /olvtrans 0 def %no change of olv* /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def } ifelse %END colorm=1 }%END %xcharti>=0 {%BEG %xcharti=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* sgrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* sggray } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /n4*Fa 0 def} {/o* 1 def /l* 1 def /v* 1 def /n4*Fa n*n def} ifelse /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def c4*Fa m4*Fa y4*Fa n4*Fa sgcmykcolor } def } ifelse %END %xcharti=0 'zm60'COLM559LT.PS cmyn6* 20080201 } if %ColSpx=1 %*************************************************************** ColSpx 2 eq {%ColSpx=2 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM58LT.PS cmyn4* 20090201 colorm 0 eq {%BEG colorm=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def }%END colorm=0 {%BEG colorm=1 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn4*ioG %needs olv* for input %produces cmyn4*ioG as output c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def } ifelse %END colorm=1 }%END %xcharti>=0 {%BEG %xcharti=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* sgrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* sggray } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /n4*Fa 0 def} {/o* 1 def /l* 1 def /v* 1 def /n4*Fa n*n def} ifelse /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def c4*Fa m4*Fa y4*Fa n4*Fa sgcmykcolor } def } ifelse %END %xcharti=0 'zm60'COLM58LT.PS cmyn4* 20090201 } if %ColSpx=2 %************************************************************* ColSpx 3 eq {%ColSpx=3 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM559LT.PS cmyn5* 20090201 colorm 0 eq {%BEG colorm=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def }%END colorm=0 {%BEG colorm=1 /olvtrans 0 def %no change of olv* /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def } ifelse %END colorm=1 }%END %xcharti>=0 {%BEG %xcharti=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* sgrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* sggray } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /n4*Fa 0 def} {/o* 1 def /l* 1 def /v* 1 def /n4*Fa n*n def} ifelse /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def c4*Fa m4*Fa y4*Fa n4*Fa sgcmykcolor } def } ifelse %END %xcharti=0 'zm60'COLM559LT.PS cmyn5* 20090201 } if %ColSpx=3 } bind def %BEG Procedure proc_ColSep*ioG ColourSeparation for NP-file 20090201 %***************************************************************************** %END GK0X->JG00/10L/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20090201 /CFilenameS1g %START output of step S1g (http://130.149.60.445/~farbmetrik/JG00/Y10G00N) def %Link file name for data /CDateS1g (2009-12-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (JG00/Y10G00N) 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 1 def /pcountg 1 def /xchart1g 0 def /xchart2g 1 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 -12 0.0 0.0 0.0 0.0 %x for chartg=1 0.0 0.0 0.0 -25 0.0 0.0 0.0 0.0 %x for chartg=2 0.0 0.0 0.0 -12 0.0 0.0 0.0 0.0 %x for chartg=3 0.0 0.0 0.0 -20 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 -05 0.0 0.0 0.0 0.0 %y for chartg=1 0.0 0.0 0.0 -12 0.0 0.0 0.0 0.0 %y for chartg=2 0.0 0.0 0.0 -05 0.0 0.0 0.0 0.0 %y for chartg=3 0.0 0.0 0.0 -20 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.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /lanindg1 0 def /lanindg2 0 def /colormg1 0 def /colormg2 0 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 %1 1 1 {/scountg exch def %s=serie, e. g. 1,1,10 %1 1 1 {/pcountg exch def %p=page, e. g. 1,1,250 /xchart10 0 def /xchart20 0 def %pcountg pcount1g eq {/xchart10 0 def /xchart20 0 def} % {/xchart10 1 def /xchart20 1 def} ifelse %pcountg pcount2x eq {/xchart10 0 def /xchart20 0 def} if xchart10 1 xchart20 {/xchartg exch def %2 MM /Times-Roman FS %274 MM 82 MM moveto -90 rotate (/JG00/ ) 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 /GSX$ SX$ xcolorg xcolorg 16 idiv 16 mul sub get def /GSY$ SY$ xchartg xchartg 16 idiv 16 mul sub 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 %line 339 %!PS-Adobe-3.0 EPSF-3.0 JG000-1 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark01 where {pop} {userdict /pdfmark01 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JG00/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark01 [ /View [ /FitB ] /DOCVIEW pdfmark01 %END PDFDE011 % !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 /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] 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 /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%EndProlog gsave %LANINDL2 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 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave 4 /Times-ISOL1 FS 200 86 moveto ( JG000-1) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale 0 0 319 239 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBIG %Schrift Times-Bold-Italic-Gross 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 270 22 moveto (C*) show 15 175 moveto (L*) show 44 11 moveto (N) show 298 112 moveto (R) show 40 212 moveto (W) show 150 110 moveto (C*) show TBG ( = 25) show 170 220 moveto TBG (Buntheit) showde (chroma) showen TBIG ( C*) show 2 setlinewidth 0.0 0.0 0.0 0.0 setcmykcolor %Linien Weiss 260 15 moveto 305 15 lineto 295 10 lineto 305 15 lineto 295 20 lineto stroke 10 160 moveto 10 210 lineto 5 200 lineto 10 210 lineto 15 200 lineto stroke 0.0 0.0 0.0 0.0 setcmykcolor %Linien Weiss 80 20 moveto 280 120 lineto 80 220 lineto closepath stroke 065 005 30 30 0.0 0.0 0.0 1.0 colrecfi 265 105 30 30 0.0 1.0 1.0 0.0 colrecfi 065 205 30 30 0.0 0.0 0.0 0.0 colrecfi 130 15 sub 045 15 sub 30 30 0.0 1.00 1.00 0.75 colrecfi 130 15 sub 083 15 sub 30 30 0.0 0.81 0.81 0.57 colrecfi 130 15 sub 120 15 sub 30 30 0.0 0.62 0.62 0.38 colrecfi 130 15 sub 158 15 sub 30 30 0.0 0.44 0.44 0.19 colrecfi 130 15 sub 195 15 sub 30 30 0.0 0.25 0.25 0.00 colrecfi showpage grestore } for %output with langind end %%Trailer %%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 %line 349 %!PS-Adobe-3.0 EPSF-3.0 JG000-2 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark02 where {pop} {userdict /pdfmark02 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JG00/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark02 [ /View [ /FitB ] /DOCVIEW pdfmark02 %END PDFDE011 % !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 /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] 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 /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%EndProlog gsave %LANINDL2 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 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave 4 /Times-ISOL1 FS 200 86 moveto ( JG000-2) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale 0 0 319 239 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBIG %Schrift Times-Bold-Italic-Gross 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 270 22 moveto (C*) show 15 175 moveto (L*) show 44 11 moveto (N) show 298 112 moveto (R) show 40 212 moveto (W) show 108 085 moveto (L*) show TBG ( = 50) show 170 220 moveto TBG (Helligkeit) showde (lightness) showen TBIG ( L*) show 2 setlinewidth 0.0 0.0 0.0 0.0 setcmykcolor %Linien Weiss 260 15 moveto 305 15 lineto 295 10 lineto 305 15 lineto 295 20 lineto stroke 10 160 moveto 10 210 lineto 5 200 lineto 10 210 lineto 15 200 lineto stroke 0.0 0.0 0.0 0.0 setcmykcolor %Linien Weiss 80 20 moveto 280 120 lineto 80 220 lineto closepath stroke 065 005 30 30 0.0 0.0 0.0 1.0 colrecfi 265 105 30 30 0.0 1.0 1.0 0.0 colrecfi 065 205 30 30 0.0 0.0 0.0 0.0 colrecfi 080 15 sub 120 15 sub 30 30 0.0 0.00 0.00 0.500 colrecfi 080 15.5 sub 120 15.5 sub 31 31 0.0 0.00 0.00 0.000 colrecst 130 15 sub 120 15 sub 30 30 0.0 0.25 0.25 0.375 colrecfi 180 15 sub 120 15 sub 30 30 0.0 0.50 0.50 0.250 colrecfi 230 15 sub 120 15 sub 30 30 0.0 0.75 0.75 0.125 colrecfi 280 15 sub 120 15 sub 30 30 0.0 1.00 1.00 0.000 colrecfi showpage grestore } for %output with langind end %%Trailer %%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 %line 359 %!PS-Adobe-3.0 EPSF-3.0 JG000-3 %%BoundingBox: 70 85 226 206 %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: http://130.149.60.45/~farbmetrik/JG00/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark03 [ /View [ /FitB ] /DOCVIEW pdfmark03 %END PDFDE011 % !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 /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] 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 /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%EndProlog gsave %LANINDL2 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 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave 4 /Times-ISOL1 FS 200 86 moveto ( JG000-3) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale 0 0 319 239 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBIG %Schrift Times-Bold-Italic-Gross 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 270 22 moveto (C*) show 15 175 moveto (L*) show 44 11 moveto (N) show 298 112 moveto (R) show 40 212 moveto (W) show 85 98 moveto TBIG (N*) show TBG ( = 25) show 85 78 moveto TBIG (I*) show TBG ( = 75) show 170 220 moveto TBG (Schwarzheit) showde (blackness) showen TBIG ( N*) show 170 200 moveto TBG (Brillantheit) showde (Brilliantness) showen TBIG ( I*) show 2 setlinewidth 0.0 0.0 0.0 0.0 setcmykcolor %Linien Weiss 260 15 moveto 305 15 lineto 295 10 lineto 305 15 lineto 295 20 lineto stroke 10 160 moveto 10 210 lineto 5 200 lineto 10 210 lineto 15 200 lineto stroke 0.0 0.0 0.0 0.0 setcmykcolor %Linien Weiss 80 20 moveto 280 120 lineto 80 220 lineto closepath stroke %270 090 moveto -50 -25 rlineto stroke 270 90 moveto -20 -10 rlineto stroke 220 65 moveto 20 10 rlineto stroke 260 90 moveto 10 0 rlineto -7 -08 rlineto stroke 230 65 moveto -10 0 rlineto 7 08 rlineto stroke 275 85 moveto TBIG (I*) show 190 50 moveto TBIG (N*) show 065 005 30 30 0.0 0.0 0.0 1.0 colrecfi 265 105 30 30 0.0 1.0 1.0 0.0 colrecfi 065 205 30 30 0.0 0.0 0.0 0.0 colrecfi 080 15 sub 170 15 sub 30 30 0.0 0.00 0.00 0.25 colrecfi 118 15 sub 151 15 sub 30 30 0.0 0.25 0.25 0.25 colrecfi 155 15 sub 132 15 sub 30 30 0.0 0.50 0.50 0.25 colrecfi 193 15 sub 113 15 sub 30 30 0.0 0.75 0.75 0.25 colrecfi 230 15 sub 095 15 sub 30 30 0.0 1.00 1.00 0.25 colrecfi showpage grestore } for %output with langind end %%Trailer %%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 %line 369 %!PS-Adobe-3.0 EPSF-3.0 JG000-4 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark04 where {pop} {userdict /pdfmark04 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JG00/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark04 [ /View [ /FitB ] /DOCVIEW pdfmark04 %END PDFDE011 % !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 /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] 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 /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%EndProlog gsave %LANINDL2 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 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave 4 /Times-ISOL1 FS 200 86 moveto ( JG000-4) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale 0 0 319 239 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBIG %Schrift Times-Bold-Italic-Gross 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 270 22 moveto (C*) show 15 175 moveto (L*) show 44 11 moveto (N) show 298 112 moveto (R) show 40 212 moveto (W) show 81 149 moveto TBIG (W* ) show TBG ( = 25) show 85 129 moveto TBIG (D* ) show TBG ( = 75) show 166 220 moveto TBG (Wei\337heit) showde (whiteness) showen TBIG ( W*) show 170 200 moveto TBG (Farbtiefe) showde (deepness) showen TBIG ( D*) show 2 setlinewidth 0.0 0.0 0.0 0.0 setcmykcolor %Linien Weiss 260 15 moveto 305 15 lineto 295 10 lineto 305 15 lineto 295 20 lineto stroke 10 160 moveto 10 210 lineto 5 200 lineto 10 210 lineto 15 200 lineto stroke 0.0 0.0 0.0 0.0 setcmykcolor %Linien Weiss Dreieck 80 20 moveto 280 120 lineto 80 220 lineto closepath stroke %275 155 moveto -50 25 rlineto stroke 275 150 moveto -20 10 rlineto stroke 225 175 moveto 20 -10 rlineto stroke 265 150 moveto 10 0 rlineto -7 08 rlineto stroke 235 175 moveto -10 0 rlineto 7 -08 rlineto stroke 280 140 moveto TBIG (D*) show 195 175 moveto TBIG (W*) show 065 005 30 30 0.0 0.0 0.0 1.0 colrecfi 265 105 30 30 0.0 1.0 1.0 0.0 colrecfi 065 205 30 30 0.0 0.0 0.0 0.0 colrecfi 080 15 sub 070 15 sub 30 30 0.0 0.00 0.00 0.75 colrecfi 118 15 sub 089 15 sub 30 30 0.0 0.19 0.19 0.57 colrecfi 155 15 sub 108 15 sub 30 30 0.0 0.38 0.38 0.38 colrecfi 193 15 sub 127 15 sub 30 30 0.0 0.57 0.57 0.19 colrecfi 230 15 sub 145 15 sub 30 30 0.0 0.75 0.75 0.00 colrecfi showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %line 379 %!PS-Adobe-3.0 EPSF-3.0 JG000-5 %%BoundingBox: 70 85 226 206 %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: http://130.149.60.45/~farbmetrik/JG00/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark05 [ /View [ /FitB ] /DOCVIEW pdfmark05 %END PDFDE011 % !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 /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] 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 /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%EndProlog gsave %LANINDL2 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 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave 4 /Times-ISOL1 FS 200 86 moveto ( JG000-5) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale 0 0 319 239 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBIG %Schrift Times-Bold-Italic-Gross 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 15 190 moveto (L*) show %100 11 moveto (N) show 298 112 moveto (R) show 100 216 moveto (W) show 185 33 moveto TBIG (W*) show TBG ( = ) show TBIG (L*) show TBG (-) show 2 0 rmoveto TBIG (C*) show TBG (/) show 2 0 rmoveto (2) show 132 220 moveto TBIG(N*) show TBG 2 0 rmoveto (=) show 2 0 rmoveto (100) show 2 0 rmoveto TBG (-) show 2 0 rmoveto ([) show TBIG (L*) show TBG 1 0 rmoveto (+) show 2 0 rmoveto TBIG (C*) show TBG (/) show 2 0 rmoveto (2) show 2 0 rmoveto (]) show 110 135 moveto TBIG (N*) show TBG ( = 0) show 110 090 moveto TBIG (W*) show TBG ( = 0) show TBG 47 11 moveto (0) show 45 111 moveto (50) show 75 120 moveto 85 120 lineto stroke 28 216 moveto (100) show 160 025 moveto (50) show 120 02 moveto (Buntheit ) showde %08140-3 1 (chromaticness ) showen %18140-3 1 (chromaticness ) showes %28140-3 1 (chromaticness ) showfr %38140-3 1 (chromaticness ) showit %48140-3 1 (chromaticness ) showjp %58140-3 1 TBIG (C*) show TBG 05 160 moveto (Hellig\255) showde %08140-3 2 (light\255) showen %18140-3 2 (vista del) showes %28140-3 2 (light\255) showfr %38140-3 2 (light\255) showit %48140-3 2 (light\255) showjp %58140-3 2 05 140 moveto (keit) showde %08140-3 3 (ness) showen %18140-3 3 (brillo) showes %28140-3 3 (ness) showfr %38140-3 3 (ness) showit %48140-3 3 (ness) showjp %58140-3 3 210 55 moveto (Wei\337heit) showde %08140-3 4 (whiteness) showen %18140-3 4 (vista\255blanco) showes %28140-3 4 (whiteness) showfr %38140-3 4 (whiteness) showit %48140-3 4 (whiteness) showjp %58140-3 4 160 200 moveto (Schwarzheit) showde %08140-3 5 (blackness) showen %18140-3 5 (vista\255negro) showes %28140-3 5 (blackness) showfr %38140-3 5 (blackness) showit %48140-3 5 (blackness) showjp %58140-3 5 2 setlinewidth 0.0 0.0 0.0 0.0 setcmykcolor %Linien Weiss 80 20 moveto 280 20 lineto stroke 10 190 moveto 10 235 lineto 4 225 lineto 10 235 lineto 14 225 lineto stroke 180 25 moveto 180 15 lineto stroke 280 09 moveto 310 09 lineto 300 13 lineto 310 09 lineto 300 05 lineto stroke tfw %Linien Weiss 80 20 moveto 280 120 lineto 80 220 lineto closepath stroke 065 005 30 30 0.0 0.0 0.0 1.0 colrecfi 265 105 30 30 0.0 1.0 1.0 0.0 colrecfi 065 205 30 30 0.0 0.0 0.0 0.0 colrecfi 130 15 sub 045 15 sub 30 30 0.0 1.0 1.0 0.75 colrecfi 180 15 sub 070 15 sub 30 30 0.0 1.0 1.0 0.50 colrecfi 230 15 sub 095 15 sub 30 30 0.0 1.0 1.0 0.25 colrecfi 230 15 sub 145 15 sub 30 30 0.0 0.75 0.75 0.0 colrecfi 180 15 sub 170 15 sub 30 30 0.0 0.50 0.50 0.0 colrecfi 130 15 sub 195 15 sub 30 30 0.0 0.25 0.25 0.0 colrecfi showpage grestore } for %output with langind end %%Trailer %%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 %line 389 %!PS-Adobe-3.0 EPSF-3.0 JG000-6 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark06 where {pop} {userdict /pdfmark06 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JG00/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark06 [ /View [ /FitB ] /DOCVIEW pdfmark06 %END PDFDE011 % !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 /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] 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 /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%EndProlog gsave %LANINDL2 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 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave 4 /Times-ISOL1 FS 200 86 moveto ( JG000-6) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale 0 0 319 239 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBIG %Schrift Times-Bold-Italic-Gross 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 15 190 moveto (L*) show %100 11 moveto (N) show 298 112 moveto (R) show %100 216 moveto (W) show 155 33 moveto TBIG (D*) show TBG (=100-) show TBIG (L*) show TBG (+) show 2 0 rmoveto TBIG (C*) show TBG (/) show 2 0 rmoveto (2) show 170 200 moveto TBIG(I*) show TBG TBG ( = ) show TBIG (L*) show TBG ( + ) show TBIG (C*) show TBG (/) show 2 0 rmoveto (2) show 110 135 moveto TBIG (I*) show TBG ( = 100) show 110 090 moveto TBIG (D*) show TBG ( = 100) show TBG 47 11 moveto (0) show 45 111 moveto (50) show 75 120 moveto 85 120 lineto stroke 28 216 moveto (100) show % 160 025 moveto (50) show 120 02 moveto (Buntheit ) showde %08140-4 1 (chromaticness ) showen %18140-4 1 (chromaticness ) showes %28140-4 1 (chromaticness ) showfr %38140-4 1 (chromaticness ) showit %48140-4 1 (chromaticness ) showjp %58140-4 1 TBIG (C*) show TBG 05 160 moveto (Hellig\255) showde %08140-4 2 (light\255) showen %18140-4 2 (vista del) showes %28140-4 2 (light\255) showfr %38140-4 2 (light\255) showit %48140-4 2 (light\255) showjp %58140-4 2 05 140 moveto (keit) showde %08140-4 3 (ness) showen %18140-4 3 (brillo) showes %28140-4 3 (ness) showfr %38140-4 3 (ness) showit %48140-4 3 (ness) showjp %58140-4 3 210 55 moveto (Farbtiefe) showde %08140-4 4 (deepness) showen %18140-4 4 (vista\255blanco) showes %28140-4 4 (whiteness) showfr %38140-4 4 (whiteness) showit %48140-4 4 (whiteness) showjp %58140-4 4 170 220 moveto (Brillantheit) showde %08140-4 5 (brilliantness) showen %18140-4 5 (Brillo) showes %28140-4 5 (brilliantness) showfr %38140-4 5 (brilliantness) showit %48140-4 5 (brilliantness) showjp %58140-4 5 2 setlinewidth 0.0 0.0 0.0 0.0 setcmykcolor %Linien Weiss 80 20 moveto 280 20 lineto stroke 10 190 moveto 10 235 lineto 4 225 lineto 10 235 lineto 14 225 lineto stroke 180 25 moveto 180 15 lineto stroke 280 09 moveto 310 09 lineto 300 13 lineto 310 09 lineto 300 05 lineto stroke 0.0 0.0 0.0 0.0 setcmykcolor %Linien Weiss 80 20 moveto 280 120 lineto 80 220 lineto closepath stroke 065 005 30 30 0.0 0.0 0.0 1.0 colrecfi 265 105 30 30 0.0 1.0 1.0 0.0 colrecfi 065 205 30 30 0.0 0.0 0.0 0.0 colrecfi 130 15 sub 045 15 sub 30 30 0.0 1.0 1.0 0.75 colrecfi 180 15 sub 070 15 sub 30 30 0.0 1.0 1.0 0.50 colrecfi 230 15 sub 095 15 sub 30 30 0.0 1.0 1.0 0.25 colrecfi 230 15 sub 145 15 sub 30 30 0.0 0.75 0.75 0.0 colrecfi 180 15 sub 170 15 sub 30 30 0.0 0.50 0.50 0.0 colrecfi 130 15 sub 195 15 sub 30 30 0.0 0.25 0.25 0.0 colrecfi showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 020 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 JG000-7 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JG00/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 % !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 /str {8 string } 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 /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rlineto show 0 50 rlineto} bind def /eshow1 {TM 0 200 rlineto show 0 -200 rlineto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rlineto show 0 50 rlineto} bind def /eshow2 {TK 0 200 rlineto show 0 -200 rlineto} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 /Symbol FS outxshow} bind def /outSM {300 /Symbol FS outxshow} bind def /outSG {350 /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL2 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 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 205 86 moveto ( JG000-7) show % ( B8931_1, E8241-5, B4_54_1, N=4_54_1) show 72 90 translate 0.01 MM dup scale %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 30 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill 050 3725 moveto TBM tfw %B8730-01.eps (Unbunt\255 und ) showde %08241-5 1 (achromatic\255 and ) showen %18241-5 1 (Acrom\341tico\255 y ) showes %28241-5 1 (achromatic\255 and ) showfr %38241-5 1 (achromatic\255 and ) showit %48241-5 1 (achromatic\255 and ) showjp %58241-5 1 30 0 rmoveto (B) TBIM tzv outshowf %(J) TBIM tzy outshowf TBM tfw (\255Bunt\255Signale) showde %08241-5 2 (\255chromatic signals) showen %18241-5 2 (\255opuesto\255se\361al color) showes %28241-5 2 (\255chromatic signals) showfr %38241-5 2 (\255chromatic signals) showit %48241-5 2 (\255chromatic signals) showjp %58241-5 2 tfw 550 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke TBM /tx [(-6) (-5) (-4) (-3) (-2) (-1) ( 0) ( 1)] def /ty [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -250 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 35 setlinewidth tfn 000 1500 moveto 4000 0000 rlineto stroke tfw 50 setlinewidth 3600 -300 moveto (x) TBIM tfw show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (log) TBM tfw show 30 0 rmoveto TBIM (L) show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 0200 2850 moveto (Q) TBIM tfw show 30 0 rmoveto ([1,0c \050) TBM tfw show (x) TBIM tfw show 20 -50 rmoveto TBM (r) show 10 50 rmoveto (+x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (\051]) TBM tfw show 2400 3000 moveto (-2) TBM tfw show 30 0 rmoveto (Q) TBIM tfw show 30 0 rmoveto ([1,0c \050) TBM tfw show (x) TBIM tfw show 20 -50 rmoveto TBM (r) show 10 50 rmoveto (+x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (\051]) TBM tfw show %1850 200 moveto (L) TBIM tfw show %TBK 20 -80 rmoveto (b) show 50 80 rmoveto 2850 0600 moveto (x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto ( = -2; 0) TBM tfw show 2850 0200 moveto (L) TBIM tfw show TBK 20 -80 rmoveto (b) show 50 80 rmoveto (= 100 cd) TBM tfw show 20 0 rmoveto (/) TBM tfw show 10 0 rmoveto (m) TBM tfw show TBK 20 100 rmoveto (2) show 0 -100 rmoveto 4200 1500 moveto TBM tfw (Pro\255) showde %08241-5 3 (pro\255) showen %18241-5 3 (Pro\255) showes %28241-5 3 (pro\255) showfr %38241-5 3 (pro\255) showit %48241-5 3 (pro\255) showjp %58241-5 3 4200 1300 moveto TBM tfw (zesse) showde %08241-5 4 (cess) showen %18241-5 4 (ceso) showes %28241-5 4 (cess) showfr %38241-5 4 (cess) showit %48241-5 4 (cess) showjp %58241-5 4 4250 900 moveto (D) TBIM tfn show 4250 1900 moveto (D) TBIM tfn show (+I) TBIM tfw show 4250 2400 moveto (I) TBIM tfw show /cvishow {cvi 10 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 /DLL 9 array def /DLU 9 array def /DLL [0.0001 0.001 0.01 0.1 1.0 10. 100. 1000. 10000.] def /YFAK 4 array def /YFAK [ 1.0 1.8 3.2 5.6] def /DL 36 array def /DU 36 array def /XF 36 array def /R00KXU 36 array def /RLMKXU 36 array def /F0 36 array def %I-W /F1 36 array def %D-N /F2 36 array def %ID-NM /F3 36 array def %I-Y /F4 36 array def %D-y /F5 36 array def %ID-JW /F6 36 array def %I-B /F7 36 array def %D-b /F8 36 array def %ID-BW /IORX 2000 def /IORY 1500 def /MULX 500 def /MULY 500 def 50 setlinewidth tfn 0 1500 moveto 4000 0 rlineto stroke 0 1 8 {/k exch def %k=0,8 DLU k DLL k get put 0 1 3 {/j exch def %j=0,3 /i k 4 mul j add def DL i DLL k get YFAK j get mul put DU i DL i get put } for %j=0,3 } for %k=0,8 /W2 2. sqrt def /XP 0 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ -2.0 def} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 35 {/i exch def %i=0,35 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,35 /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %D j 1 eq {0 0 0 1 setcmykcolor [300 100] 0 setdash} if %D 0 3 32 {/i exch def %i=0,32 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F0 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F0 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F0 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,32 stroke } for %j=0,1 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 1 setcmykcolor [ ] 0 setdash} if %I j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 32 {/i exch def %i=0,32 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F1 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F1 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,32 stroke } for %j=0,1 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI j 1 eq {0 0 0 1 setcmykcolor [200 200] 0 setdash} if %DI 0 3 32 {/i exch def %i=0,32 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F2 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F2 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F2 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,32 stroke } for %j=0,1 /XP 2 def %B 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ -2.0 def} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 35 {/i exch def %i=0,35 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F3 i RLMKXU i get put} if j 1 eq {F4 i RLMKXU i get put} if j 1 eq {F5 i F3 i get F4 i get add put} if } for %i=0,35 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth 0 0 1 0 setcmykcolor IORX XFX1 MULX mul add -50 add IORY F0X1 MULY mul add moveto 100 0 rlineto stroke IORX XFX1 MULX mul add IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke 1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b 0 3 32 {/i exch def %i=0,32 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F3 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F3 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F3 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,32 stroke 1 1 0 0 setcmykcolor [ ] 0 setdash %I-B 0 3 32 {/i exch def %i=0,32 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,32 stroke 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B 0 3 32 {/i exch def %i=0,32 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F5 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F5 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F5 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,32 stroke } for %j=0,1 0 0 0 0 setcmykcolor [100 100] 0 setdash IORX XFX1 MULX mul add 0 moveto 0 2300 rlineto stroke [ ] 0 setdash 0 0 1 0 setcmykcolor IORX XFX1 MULX mul add 1900 sub 2550 moveto TBM (maximum luminance) showen (maximale Leuchtdichte\255) showde IORX XFX1 MULX mul add 1900 sub 2250 moveto TBM (discrimination) showen (Unterscheidung) showde 0 1 1 0 setcmykcolor 70 setlinewidth IORX XFX0 MULX mul add -150 add IORY moveto 300 0 rlineto stroke IORX XFX0 MULX mul add IORY -150 add moveto 0 300 rlineto stroke showpage grestore } for %output with langind end %%Trailer %%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 %line 409 %!PS-Adobe-3.0 EPSF-3.0 JG000-8 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark08 where {pop} {userdict /pdfmark08 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JG00/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark08 [ /View [ /FitB ] /DOCVIEW pdfmark08 %END PDFDE011 % !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 /str {8 string } 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 /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rlineto show 0 50 rlineto} bind def /eshow1 {TM 0 200 rlineto show 0 -200 rlineto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rlineto show 0 50 rlineto} bind def /eshow2 {TK 0 200 rlineto show 0 -200 rlineto} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 /Symbol FS outxshow} bind def /outSM {300 /Symbol FS outxshow} bind def /outSG {350 /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL2 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 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 205 86 moveto ( JG000-8) show % ( B8931_1, E8241-5, B4_54_1, N=4_54_1) show 72 90 translate 0.01 MM dup scale %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 30 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill 050 3725 moveto TBM tfw %B8730-01.eps (Unbunt\255 und ) showde %08241-5 1 (achromatic\255 and ) showen %18241-5 1 (Acrom\341tico\255 y ) showes %28241-5 1 (achromatic\255 and ) showfr %38241-5 1 (achromatic\255 and ) showit %48241-5 1 (achromatic\255 and ) showjp %58241-5 1 30 0 rmoveto (B) TBIM tzv outshowf %(J) TBIM tzy outshowf TBM tfw (\255Bunt\255Signale) showde %08241-5 2 (\255chromatic signals) showen %18241-5 2 (\255opuesto\255se\361al color) showes %28241-5 2 (\255chromatic signals) showfr %38241-5 2 (\255chromatic signals) showit %48241-5 2 (\255chromatic signals) showjp %58241-5 2 tfw 550 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke TBM /tx [(-6) (-5) (-4) (-3) (-2) (-1) ( 0) ( 1)] def /ty [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -250 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 35 setlinewidth tfn 000 1500 moveto 4000 0000 rlineto stroke tfw 50 setlinewidth 3600 -300 moveto (x) TBIM tfw show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (log) TBM tfw show 30 0 rmoveto TBIM (L) show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 0200 2850 moveto (Q) TBIM tfw show 30 0 rmoveto ([1,0c \050) TBM tfw show (x) TBIM tfw show 20 -50 rmoveto TBM (r) show 10 50 rmoveto (+x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (\051]) TBM tfw show 2400 3000 moveto (-2) TBM tfw show 30 0 rmoveto (Q) TBIM tfw show 30 0 rmoveto ([1,0c \050) TBM tfw show (x) TBIM tfw show 20 -50 rmoveto TBM (r) show 10 50 rmoveto (+x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (\051]) TBM tfw show %1850 200 moveto (L) TBIM tfw show %TBK 20 -80 rmoveto (b) show 50 80 rmoveto 2850 0600 moveto (x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto ( = -2; 0) TBM tfw show 2850 0200 moveto (L) TBIM tfw show TBK 20 -80 rmoveto (b) show 50 80 rmoveto (= 100 cd) TBM tfw show 20 0 rmoveto (/) TBM tfw show 10 0 rmoveto (m) TBM tfw show TBK 20 100 rmoveto (2) show 0 -100 rmoveto 4200 1500 moveto TBM tfw (Pro\255) showde %08241-5 3 (pro\255) showen %18241-5 3 (Pro\255) showes %28241-5 3 (pro\255) showfr %38241-5 3 (pro\255) showit %48241-5 3 (pro\255) showjp %58241-5 3 4200 1300 moveto TBM tfw (zesse) showde %08241-5 4 (cess) showen %18241-5 4 (ceso) showes %28241-5 4 (cess) showfr %38241-5 4 (cess) showit %48241-5 4 (cess) showjp %58241-5 4 4250 900 moveto (D) TBIM tfn show 4250 1900 moveto (D) TBIM tfn show (+I) TBIM tfw show 4250 2400 moveto (I) TBIM tfw show /cvishow {cvi 10 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 /DLL 9 array def /DLU 9 array def /DLL [0.0001 0.001 0.01 0.1 1.0 10. 100. 1000. 10000.] def /YFAK 4 array def /YFAK [ 1.0 1.8 3.2 5.6] def /DL 36 array def /DU 36 array def /XF 36 array def /R00KXU 36 array def /RLMKXU 36 array def /F0 36 array def %I-W /F1 36 array def %D-N /F2 36 array def %ID-NM /F3 36 array def %I-Y /F4 36 array def %D-y /F5 36 array def %ID-JW /F6 36 array def %I-B /F7 36 array def %D-b /F8 36 array def %ID-BW /IORX 2000 def /IORY 1500 def /MULX 500 def /MULY 500 def 50 setlinewidth tfn 0 1500 moveto 4000 0 rlineto stroke 0 1 8 {/k exch def %k=0,8 DLU k DLL k get put 0 1 3 {/j exch def %j=0,3 /i k 4 mul j add def DL i DLL k get YFAK j get mul put DU i DL i get put } for %j=0,3 } for %k=0,8 /W2 2. sqrt def /XP 0 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ -2.0 def} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 35 {/i exch def %i=0,35 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,35 /XFX0 1.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %D j 1 eq {0 0 0 1 setcmykcolor [300 100] 0 setdash} if %D 0 3 32 {/i exch def %i=0,32 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F0 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F0 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F0 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,32 stroke } for %j=0,1 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 1 setcmykcolor [ ] 0 setdash} if %I j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 32 {/i exch def %i=0,32 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F1 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F1 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,32 stroke } for %j=0,1 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI j 1 eq {0 0 0 1 setcmykcolor [200 200] 0 setdash} if %DI 0 3 32 {/i exch def %i=0,32 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F2 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F2 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F2 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,32 stroke } for %j=0,1 /XP 2 def %B 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ -2.0 def} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 35 {/i exch def %i=0,35 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F3 i RLMKXU i get put} if j 1 eq {F4 i RLMKXU i get put} if j 1 eq {F5 i F3 i get F4 i get add put} if } for %i=0,35 /XFX1 1.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth 1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b 0 3 32 {/i exch def %i=0,32 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F3 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F3 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F3 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,32 stroke 1 1 0 0 setcmykcolor [ ] 0 setdash %I-B 0 3 32 {/i exch def %i=0,32 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,32 stroke 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B 0 3 32 {/i exch def %i=0,32 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F5 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F5 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F5 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,32 stroke } for %j=0,1 0 0 0 0 setcmykcolor [100 100] 0 setdash IORX XFX1 MULX mul add 0 moveto 0 2300 rlineto stroke [ ] 0 setdash 0 0 1 0 setcmykcolor IORX XFX1 MULX mul add 2400 sub 2550 moveto TBM (maximum chromatic signal) showen (maximales Bunt\255 und) showde IORX XFX1 MULX mul add 2400 sub 2250 moveto TBM (and chroma signal) showen (Buntheitssignal) showde 0 1 1 0 setcmykcolor 70 setlinewidth IORX XFX0 MULX mul add -150 add IORY F1X1 MULY mul add moveto 300 0 rlineto stroke IORX XFX0 MULX mul add IORY F1X1 MULY mul add -150 add moveto 0 300 rlineto stroke IORX XFX0 MULX mul add -150 add IORY F2X1 MULY mul add moveto 300 0 rlineto stroke IORX XFX0 MULX mul add IORY F2X1 MULY mul add -150 add moveto 0 300 rlineto stroke showpage grestore } for %output with langind end %%Trailer %%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 %line 429 %!PS-Adobe-3.0 EPSF-3.0 JE001-1N %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark11 where {pop} {userdict /pdfmark11 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JG00/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark11 [ /View [ /FitB ] /DOCVIEW pdfmark11 %END PDFDE011 % !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 /str {8 string } bind def /TK {250 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {330 /Times-ISOL1 FS} bind def /SK {250 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {330 /Symbol FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {330 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {330 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {330 /TimesBI-ISOL1 FS} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rlineto show 0 50 rlineto} bind def /eshow1 {TM 0 200 rlineto show 0 -200 rlineto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rlineto show 0 50 rlineto} bind def /eshow2 {TK 0 200 rlineto show 0 -200 rlineto} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 /Symbol FS outxshow} bind def /outSM {300 /Symbol FS outxshow} bind def /outSG {350 /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL2 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 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 205 86 moveto ( JE001-1) show % ( XG321-5, B8931_1, E8241-5, B4_54_1, N=4_54_1) show 72 90 translate 0.01 MM dup scale 30 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill /FMC 1 def %M=chromatic moment (1), chroma (2) /FIS 1 def %I=spectral colours (1), S=surface colours (2) 050 3725 moveto TBM tfw (log ) show (B) TBIM tzv outshowf (R) TBIM tzo outshowf (G) TBIM tzl outshowf (J) TBIM tzy outshowf TBIM tfw FMC 1 eq {(\255I) show} {(\255(I+D))} ifelse TBM tfw (\255Signale f\374r) showde (\255signals for) showen FIS 1 eq {( Spektralfarben) showde ( spectral colours) showen} {( K\366rperfarben) showde ( surface colours) showen} ifelse tfw 550 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke FMC 1 eq {1000 0 moveto 2000 2000 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1) show} { 000 500 moveto 3000 1500 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1/2) show} ifelse TBM /tx [(-6) (-5) (-4) (-3) (-2) (-1) ( 0) ( 1)] def /ty [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2)] def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -250 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 35 setlinewidth tfn 000 2000 moveto 4000 0000 rlineto stroke tfw 50 setlinewidth 3600 -300 moveto (x) TBIM tfw show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (log) TBM tfw show 30 0 rmoveto TBIM (L) show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 1100 3000 moveto (-2) TBM tfw show 30 0 rmoveto (Q) TBIM tfw show 30 0 rmoveto ([1,0c \050) TBM tfw show (x) TBIM tfw show 20 -50 rmoveto TBM (r) show 10 50 rmoveto (+x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (\051]) TBM tfw show 2300 0600 moveto (-x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (=) show FIS 1 eq {tfv (2) show tfw (,) show tfo (1,50) show tfw (,) show tfl (1,0) show tfw (,) show tfy (0,50) show tfw (,) show tfw (0) show } {tfv (1) show tfw (,) show tfo (0,75) show tfw (,) show tfl (0,5) show tfw (,) show tfy (0,25) show tfw (,) show tfw (0) show } ifelse 2750 0200 moveto (L) TBIM tfw show TBK 20 -80 rmoveto (b) show 50 80 rmoveto (= 100 cd) TBM tfw show 20 0 rmoveto (/) TBM tfw show 10 0 rmoveto (m) TBM tfw show TBK 20 100 rmoveto (2) show 0 -100 rmoveto 3400 1400 moveto TBM tfw FMC 1 eq {(I) TBIM tfw show} {(D+I) TBIM tfw show} ifelse (\255Proze\337) showde %08241-5 3 ( process) showen %18241-5 3 (Pro\255) showes %28241-5 3 (pro\255) showfr %38241-5 3 (pro\255) showit %48241-5 3 (pro\255) showjp %58241-5 3 /cvishow {cvi 10 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 /DLL 11 array def /DLU 11 array def /DLL [0.0001 0.001 0.01 0.1 1.0 10. 100. 1000. 10000. 100000. 1000000.] def /YFAK 4 array def /YFAK [ 1.0 1.8 3.2 5.6] def /DL 40 array def /DU 40 array def /XF 40 array def /R00KXU 40 array def /RLMKXU 40 array def %Achromatic /F0 40 array def %I-W /F1 40 array def %D-N /F2 40 array def %ID-NM /F3 40 array def %I-B /F4 40 array def %D-b /F5 40 array def %ID-BW /F6 40 array def %I-B /F7 40 array def %D-b /F8 40 array def %ID-BW %Blue /FB0 40 array def %I-W /FB1 40 array def %D-N /FB2 40 array def %ID-NM /FB3 40 array def %I-B /FB4 40 array def %D-b /FB5 40 array def %ID-BW /FB6 40 array def %I-B /FB7 40 array def %D-b /FB8 40 array def %ID-BW %yellow /FY0 40 array def %I-W /FY1 40 array def %D-N /FY2 40 array def %ID-NM /FY3 40 array def %I-Y /FY4 40 array def %D-y /FY5 40 array def %ID-YW /FY6 40 array def %I-Y /FY7 40 array def %D-y /FY8 40 array def %ID-YW %Green /FG0 40 array def %I-W /FG1 40 array def %D-N /FG2 40 array def %ID-NM /FG3 40 array def %I-G /FG4 40 array def %D-g /FG5 40 array def %ID-GW /FG6 40 array def %I-G /FG7 40 array def %D-g /FG8 40 array def %ID-GW %red /FR0 40 array def %I-W /FR1 40 array def %D-N /FR2 40 array def %ID-NM /FR3 40 array def %I-R /FR4 40 array def %D-r /FR5 40 array def %ID-RW /FR6 40 array def %I-R /FR7 40 array def %D-r /FR8 40 array def %ID-RW /IORX 2000 def /IORY 2000 def /MULX 500 def /MULY 500 def 50 setlinewidth tfn 0 2000 moveto 4000 0 rlineto stroke 0 1 9 {/k exch def %k=0,9 DLU k DLL k get put 0 1 3 {/j exch def %j=0,3 /i k 4 mul j add def %i=0,39 DL i DLL k get YFAK j get mul put DU i DL i get put } for %j=0,3 } for %k=0,10 /W2 2. sqrt def /XP 0 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,38 /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %D %j 1 eq {0 0 0 1 setcmykcolor [300 100] 0 setdash} if %D %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY F0 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY F0 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY F0 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 21 3 27 {/i exch def %i=21,3,27 /y20 {IORY F1 i get XP sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def tfn i 21 eq i 27 eq or {0 y20 moveto 4000 0 rlineto stroke} if 4050 y20 50 sub moveto tfw FMC 1 eq {i 21 eq {( 4%) show} if i 24 eq {(20%) show} if i 27 eq {(90%) show} if} {i 27 eq {(90%, 20%, 4%) show} if} ifelse i 27 eq {150 y20 350 add moveto tfw (relative luminance) showen (relative Leuchtdichte) showde 150 y20 100 add moveto tfw (compared to white) showen (verglichen mit Wei\368) showde } if } for %i=21,3,27 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 1 setcmykcolor [ ] 0 setdash} if %I j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F1 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F1 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke } for %j=0,1 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get XP sub MULY mul add} bind def i 21 eq {tfn x20 y20 75 0 360 arc fill} if i 24 eq {tfw x20 y20 85 0 360 arc fill tfz x20 y20 65 0 360 arc fill} if i 27 eq {tfw x20 y20 75 0 360 arc fill} if } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI %j 1 eq {0 0 0 1 setcmykcolor [200 200] 0 setdash} if %DI %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY F2 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY F2 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY F2 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 0.50 FIS div def %Y 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FY3 i RLMKXU i get put} if j 1 eq {FY4 i RLMKXU i get put} if j 1 eq {FY5 i FY3 i get FY4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FY3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FY3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FY3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 0 0 1 0 setcmykcolor [ ] 0 setdash %I-Y 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FY4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FY4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FY4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 2 FIS idiv sub get MULX mul add} bind def /y20 {IORY FY4 i 2 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {0.0 0.0 1.0 0.5 setcmykcolor} if i 27 eq {0.0 0.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FY5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FY5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FY5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 1.0 FIS div def %G 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FG3 i RLMKXU i get put} if j 1 eq {FG4 i RLMKXU i get put} if j 1 eq {FG5 i FG3 i get FG4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FG3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FG3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FG3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 1 0 1 0 setcmykcolor [ ] 0 setdash %I-G 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FG4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FG4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FG4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 4 FIS idiv sub get MULX mul add} bind def /y20 {IORY FG4 i 4 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {1.0 0.0 1.0 0.5 setcmykcolor} if i 27 eq {1.0 0.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FG5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FG5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FG5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 1.5 FIS div def %R 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FR3 i RLMKXU i get put} if j 1 eq {FR4 i RLMKXU i get put} if j 1 eq {FR5 i FR3 i get FR4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FR3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FR3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FR3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 0 1 1 0 setcmykcolor [ ] 0 setdash %I-R 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FR4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FR4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FR4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 6 FIS idiv sub get MULX mul add} bind def /y20 {IORY FR4 i 6 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {0.0 1.0 1.0 0.5 setcmykcolor} if i 27 eq {0.0 1.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FR5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FR5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FR5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 2 FIS idiv def %B 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FB3 i RLMKXU i get put} if j 1 eq {FB4 i RLMKXU i get put} if j 1 eq {FB5 i FB3 i get FB4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FB3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FB3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FB3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 1 1 0 0 setcmykcolor [ ] 0 setdash %I-B 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FB4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FB4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FB4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 8 FIS idiv sub get MULX mul add} bind def /y20 {IORY FB4 i 8 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {1.0 1.0 0.0 0.5 setcmykcolor} if i 27 eq {1.0 1.0 0.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FB5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FB5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FB5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 showpage grestore } for %output with langind end %%Trailer %%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 %line 439 %!PS-Adobe-3.0 EPSF-3.0 JG001-2N %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark12 where {pop} {userdict /pdfmark12 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JG00/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark12 [ /View [ /FitB ] /DOCVIEW pdfmark12 %END PDFDE011 % !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 /str {8 string } bind def /TK {250 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {330 /Times-ISOL1 FS} bind def /SK {250 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {330 /Symbol FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {330 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {330 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {330 /TimesBI-ISOL1 FS} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rlineto show 0 50 rlineto} bind def /eshow1 {TM 0 200 rlineto show 0 -200 rlineto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rlineto show 0 50 rlineto} bind def /eshow2 {TK 0 200 rlineto show 0 -200 rlineto} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 /Symbol FS outxshow} bind def /outSM {300 /Symbol FS outxshow} bind def /outSG {350 /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL2 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 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 205 86 moveto ( JG001-2) show % ( XG321-5, B8931_1, E8241-5, B4_54_1, N=4_54_1) show 72 90 translate 0.01 MM dup scale 30 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill /FMC 1 def %M=chromatic moment (1), chroma (2) /FIS 2 def %I=Increment (1), S=Scaling (2) 050 3725 moveto TBM tfw (log ) show (B) TBIM tzv outshowf (R) TBIM tzo outshowf (G) TBIM tzl outshowf (J) TBIM tzy outshowf TBIM tfw FMC 1 eq {(\255I) show} {(\255(I+D))} ifelse TBM tfw (\255Signale f\374r) showde (\255signals for) showen FIS 1 eq {( Spektralfarben) showde ( spectral colours) showen} {( K\366rperfarben) showde ( surface colours) showen} ifelse tfw 550 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke FMC 1 eq {1000 0 moveto 2000 2000 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1) show} { 000 500 moveto 3000 1500 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1/2) show} ifelse TBM /tx [(-6) (-5) (-4) (-3) (-2) (-1) ( 0) ( 1)] def /ty [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2)] def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -250 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 35 setlinewidth tfn 000 2000 moveto 4000 0000 rlineto stroke tfw 50 setlinewidth 3600 -300 moveto (x) TBIM tfw show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (log) TBM tfw show 30 0 rmoveto TBIM (L) show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 1100 3000 moveto (-2) TBM tfw show 30 0 rmoveto (Q) TBIM tfw show 30 0 rmoveto ([1,0c \050) TBM tfw show (x) TBIM tfw show 20 -50 rmoveto TBM (r) show 10 50 rmoveto (+x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (\051]) TBM tfw show 2300 0600 moveto (-x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (=) show FIS 1 eq {tfv (2) show tfw (,) show tfo (1,50) show tfw (,) show tfl (1,0) show tfw (,) show tfy (0,50) show tfw (,) show tfw (0) show } {tfv (1) show tfw (,) show tfo (0,75) show tfw (,) show tfl (0,5) show tfw (,) show tfy (0,25) show tfw (,) show tfw (0) show } ifelse 2750 0200 moveto (L) TBIM tfw show TBK 20 -80 rmoveto (b) show 50 80 rmoveto (= 100 cd) TBM tfw show 20 0 rmoveto (/) TBM tfw show 10 0 rmoveto (m) TBM tfw show TBK 20 100 rmoveto (2) show 0 -100 rmoveto 3400 1400 moveto TBM tfw FMC 1 eq {(I) TBIM tfw show} {(D+I) TBIM tfw show} ifelse (\255Proze\337) showde %08241-5 3 ( process) showen %18241-5 3 (Pro\255) showes %28241-5 3 (pro\255) showfr %38241-5 3 (pro\255) showit %48241-5 3 (pro\255) showjp %58241-5 3 /cvishow {cvi 10 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 /DLL 11 array def /DLU 11 array def /DLL [0.0001 0.001 0.01 0.1 1.0 10. 100. 1000. 10000. 100000. 1000000.] def /YFAK 4 array def /YFAK [ 1.0 1.8 3.2 5.6] def /DL 40 array def /DU 40 array def /XF 40 array def /R00KXU 40 array def /RLMKXU 40 array def %Achromatic /F0 40 array def %I-W /F1 40 array def %D-N /F2 40 array def %ID-NM /F3 40 array def %I-B /F4 40 array def %D-b /F5 40 array def %ID-BW /F6 40 array def %I-B /F7 40 array def %D-b /F8 40 array def %ID-BW %Blue /FB0 40 array def %I-W /FB1 40 array def %D-N /FB2 40 array def %ID-NM /FB3 40 array def %I-B /FB4 40 array def %D-b /FB5 40 array def %ID-BW /FB6 40 array def %I-B /FB7 40 array def %D-b /FB8 40 array def %ID-BW %yellow /FY0 40 array def %I-W /FY1 40 array def %D-N /FY2 40 array def %ID-NM /FY3 40 array def %I-Y /FY4 40 array def %D-y /FY5 40 array def %ID-YW /FY6 40 array def %I-Y /FY7 40 array def %D-y /FY8 40 array def %ID-YW %Green /FG0 40 array def %I-W /FG1 40 array def %D-N /FG2 40 array def %ID-NM /FG3 40 array def %I-G /FG4 40 array def %D-g /FG5 40 array def %ID-GW /FG6 40 array def %I-G /FG7 40 array def %D-g /FG8 40 array def %ID-GW %red /FR0 40 array def %I-W /FR1 40 array def %D-N /FR2 40 array def %ID-NM /FR3 40 array def %I-R /FR4 40 array def %D-r /FR5 40 array def %ID-RW /FR6 40 array def %I-R /FR7 40 array def %D-r /FR8 40 array def %ID-RW /IORX 2000 def /IORY 2000 def /MULX 500 def /MULY 500 def 50 setlinewidth tfn 0 2000 moveto 4000 0 rlineto stroke 0 1 9 {/k exch def %k=0,9 DLU k DLL k get put 0 1 3 {/j exch def %j=0,3 /i k 4 mul j add def %i=0,39 DL i DLL k get YFAK j get mul put DU i DL i get put } for %j=0,3 } for %k=0,10 /W2 2. sqrt def /XP 0 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,38 /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %D %j 1 eq {0 0 0 1 setcmykcolor [300 100] 0 setdash} if %D %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY F0 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY F0 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY F0 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 21 3 27 {/i exch def %i=21,3,27 /y20 {IORY F1 i get XP sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def tfn i 21 eq i 27 eq or {0 y20 moveto 4000 0 rlineto stroke} if 4050 y20 50 sub moveto tfw FMC 1 eq {i 21 eq {( 4%) show} if i 24 eq {(20%) show} if i 27 eq {(90%) show} if} {i 27 eq {(90%, 20%, 4%) show} if} ifelse i 27 eq {150 y20 350 add moveto (relative luminance) showen (relative Leuchtdichte) showde 150 y20 100 add moveto tfw (compared to white) showen (verglichen mit Wei\368) showde } if } for %i=21,3,27 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 1 setcmykcolor [ ] 0 setdash} if %I j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F1 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F1 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke } for %j=0,1 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get XP sub MULY mul add} bind def i 21 eq {tfn x20 y20 75 0 360 arc fill} if i 24 eq {tfw x20 y20 85 0 360 arc fill tfz x20 y20 65 0 360 arc fill} if i 27 eq {tfw x20 y20 75 0 360 arc fill} if } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI %j 1 eq {0 0 0 1 setcmykcolor [200 200] 0 setdash} if %DI %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY F2 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY F2 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY F2 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 0.50 FIS div def %Y 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FY3 i RLMKXU i get put} if j 1 eq {FY4 i RLMKXU i get put} if j 1 eq {FY5 i FY3 i get FY4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FY3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FY3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FY3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 0 0 1 0 setcmykcolor [ ] 0 setdash %I-Y 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FY4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FY4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FY4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 2 FIS idiv sub get MULX mul add} bind def /y20 {IORY FY4 i 2 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {0.0 0.0 1.0 0.5 setcmykcolor} if i 27 eq {0.0 0.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FY5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FY5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FY5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 1.0 FIS div def %G 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FG3 i RLMKXU i get put} if j 1 eq {FG4 i RLMKXU i get put} if j 1 eq {FG5 i FG3 i get FG4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FG3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FG3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FG3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 1 0 1 0 setcmykcolor [ ] 0 setdash %I-G 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FG4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FG4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FG4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 4 FIS idiv sub get MULX mul add} bind def /y20 {IORY FG4 i 4 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {1.0 0.0 1.0 0.5 setcmykcolor} if i 27 eq {1.0 0.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FG5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FG5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FG5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 1.5 FIS div def %R 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FR3 i RLMKXU i get put} if j 1 eq {FR4 i RLMKXU i get put} if j 1 eq {FR5 i FR3 i get FR4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FR3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FR3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FR3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 0 1 1 0 setcmykcolor [ ] 0 setdash %I-R 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FR4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FR4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FR4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 6 FIS idiv sub get MULX mul add} bind def /y20 {IORY FR4 i 6 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {0.0 1.0 1.0 0.5 setcmykcolor} if i 27 eq {0.0 1.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FR5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FR5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FR5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 2 FIS idiv def %B 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FB3 i RLMKXU i get put} if j 1 eq {FB4 i RLMKXU i get put} if j 1 eq {FB5 i FB3 i get FB4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FB3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FB3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FB3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 1 1 0 0 setcmykcolor [ ] 0 setdash %I-B 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FB4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FB4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FB4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 8 FIS idiv sub get MULX mul add} bind def /y20 {IORY FB4 i 8 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {1.0 1.0 0.0 0.5 setcmykcolor} if i 27 eq {1.0 1.0 0.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FB5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FB5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FB5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %line 449 %!PS-Adobe-3.0 EPSF-3.0 JG001-3N %%BoundingBox: 70 85 226 206 %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: http://130.149.60.45/~farbmetrik/JG00/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark13 [ /View [ /FitB ] /DOCVIEW pdfmark13 %END PDFDE011 % !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 /str {8 string } bind def /TK {250 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {330 /Times-ISOL1 FS} bind def /SK {250 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {330 /Symbol FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {330 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {330 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {330 /TimesBI-ISOL1 FS} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rlineto show 0 50 rlineto} bind def /eshow1 {TM 0 200 rlineto show 0 -200 rlineto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rlineto show 0 50 rlineto} bind def /eshow2 {TK 0 200 rlineto show 0 -200 rlineto} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 /Symbol FS outxshow} bind def /outSM {300 /Symbol FS outxshow} bind def /outSG {350 /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL2 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 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 205 86 moveto ( JG001-3) show % ( XG321-5, B8931_1, E8241-5, B4_54_1, N=4_54_1) show 72 90 translate 0.01 MM dup scale 30 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill /FMC 2 def %M=chromatic moment (1), chroma (2) /FIS 1 def %I=spectral colours (1), S=surface colours (2) 050 3725 moveto TBM tfw (log ) show (B) TBIM tzv outshowf (R) TBIM tzo outshowf (G) TBIM tzl outshowf (J) TBIM tzy outshowf TBIM tfw (\255D+I) show TBM tfw (\255Signale f\374r) showde (\255signals for) showen FIS 1 eq {( Spektralfarben) showde ( spectral colours) showen} {( K\366rperfarben) showde ( surface colours) showen} ifelse tfw 550 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke FMC 1 eq {1000 0 moveto 2000 2000 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1) show} { 000 500 moveto 3000 1500 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1/2) show} ifelse TBM /tx [(-6) (-5) (-4) (-3) (-2) (-1) ( 0) ( 1)] def /ty [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2)] def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -250 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 35 setlinewidth tfn 000 2000 moveto 4000 0000 rlineto stroke tfw 50 setlinewidth 3600 -300 moveto (x) TBIM tfw show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (log) TBM tfw show 30 0 rmoveto TBIM (L) show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 1100 3000 moveto FMC 1 eq {(-2)} {(-)} ifelse TBM tfw show 30 0 rmoveto (Q) TBIM tfw show 30 0 rmoveto ([1,0c \050) TBM tfw show (x) TBIM tfw show 20 -50 rmoveto TBM (r) show 10 50 rmoveto (+x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (\051]) TBM tfw show 2300 0600 moveto (-x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (=) show FIS 1 eq {tfv (2) show tfw (,) show tfo (1,50) show tfw (,) show tfl (1,0) show tfw (,) show tfy (0,50) show tfw (,) show tfw (0) show } {tfv (1) show tfw (,) show tfo (0,75) show tfw (,) show tfl (0,5) show tfw (,) show tfy (0,25) show tfw (,) show tfw (0) show } ifelse 2750 0200 moveto (L) TBIM tfw show TBK 20 -80 rmoveto (b) show 50 80 rmoveto (= 100 cd) TBM tfw show 20 0 rmoveto (/) TBM tfw show 10 0 rmoveto (m) TBM tfw show TBK 20 100 rmoveto (2) show 0 -100 rmoveto 3400 1400 moveto TBM tfw FMC 1 eq {(I) TBIM tfw show} {(D+I) TBIM tfw show} ifelse (\255Proze\337) showde %08241-5 3 ( process) showen %18241-5 3 (Pro\255) showes %28241-5 3 (pro\255) showfr %38241-5 3 (pro\255) showit %48241-5 3 (pro\255) showjp %58241-5 3 /cvishow {cvi 10 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 /DLL 11 array def /DLU 11 array def /DLL [0.0001 0.001 0.01 0.1 1.0 10. 100. 1000. 10000. 100000. 1000000.] def /YFAK 4 array def /YFAK [ 1.0 1.8 3.2 5.6] def /DL 40 array def /DU 40 array def /XF 40 array def /R00KXU 40 array def /RLMKXU 40 array def %Achromatic /F0 40 array def %I-W /F1 40 array def %D-N /F2 40 array def %ID-NM /F3 40 array def %I-B /F4 40 array def %D-b /F5 40 array def %ID-BW /F6 40 array def %I-B /F7 40 array def %D-b /F8 40 array def %ID-BW %Blue /FB0 40 array def %I-W /FB1 40 array def %D-N /FB2 40 array def %ID-NM /FB3 40 array def %I-B /FB4 40 array def %D-b /FB5 40 array def %ID-BW /FB6 40 array def %I-B /FB7 40 array def %D-b /FB8 40 array def %ID-BW %yellow /FY0 40 array def %I-W /FY1 40 array def %D-N /FY2 40 array def %ID-NM /FY3 40 array def %I-Y /FY4 40 array def %D-y /FY5 40 array def %ID-YW /FY6 40 array def %I-Y /FY7 40 array def %D-y /FY8 40 array def %ID-YW %Green /FG0 40 array def %I-W /FG1 40 array def %D-N /FG2 40 array def %ID-NM /FG3 40 array def %I-G /FG4 40 array def %D-g /FG5 40 array def %ID-GW /FG6 40 array def %I-G /FG7 40 array def %D-g /FG8 40 array def %ID-GW %red /FR0 40 array def %I-W /FR1 40 array def %D-N /FR2 40 array def %ID-NM /FR3 40 array def %I-R /FR4 40 array def %D-r /FR5 40 array def %ID-RW /FR6 40 array def %I-R /FR7 40 array def %D-r /FR8 40 array def %ID-RW /IORX 2000 def /IORY 2000 def /MULX 500 def /MULY 500 def 50 setlinewidth tfn 0 2000 moveto 4000 0 rlineto stroke 0 1 9 {/k exch def %k=0,9 DLU k DLL k get put 0 1 3 {/j exch def %j=0,3 /i k 4 mul j add def %i=0,39 DL i DLL k get YFAK j get mul put DU i DL i get put } for %j=0,3 } for %k=0,10 /W2 2. sqrt def /XP 0 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,38 /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %D %j 1 eq {0 0 0 1 setcmykcolor [300 100] 0 setdash} if %D %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY F0 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY F0 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY F0 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 21 3 27 {/i exch def %i=21,3,27 /y20 {IORY F1 i get XP sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def tfn i 21 eq i 27 eq or {0 y20 moveto 4000 0 rlineto stroke} if 150 y20 100 add moveto tfw FMC 1 eq {i 21 eq {( 4%) show} if i 24 eq {(20%) show} if i 27 eq {(90%) show} if} {i 27 eq {(90%, 20%, 4%) show} if} ifelse i 27 eq {150 y20 400 add moveto tfw (grey reflection:) showen (Grau\255Reflexion:) showde} if } for %i=21,3,27 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 1 setcmykcolor [ ] 0 setdash} if %I j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F1 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F1 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke } for %j=0,1 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get XP sub MULY mul add} bind def i 21 eq {tfn x20 y20 75 0 360 arc fill} if i 24 eq {tfw x20 y20 85 0 360 arc fill tfz x20 y20 65 0 360 arc fill} if i 27 eq {tfw x20 y20 75 0 360 arc fill} if } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI %j 1 eq {0 0 0 1 setcmykcolor [200 200] 0 setdash} if %DI %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY F2 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY F2 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY F2 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 0.50 FIS div def %Y 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FY3 i RLMKXU i get put} if j 1 eq {FY4 i RLMKXU i get put} if j 1 eq {FY5 i FY3 i get FY4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FY3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FY3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FY3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 0 0 1 0 setcmykcolor [ ] 0 setdash %I-Y 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FY4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FY4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FY4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 2 FIS idiv sub get MULX mul add} bind def /y20 {IORY FY4 i 2 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {0.0 0.0 1.0 0.5 setcmykcolor} if i 27 eq {0.0 0.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FY5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FY5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FY5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 1.0 FIS div def %G 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FG3 i RLMKXU i get put} if j 1 eq {FG4 i RLMKXU i get put} if j 1 eq {FG5 i FG3 i get FG4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FG3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FG3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FG3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 1 0 1 0 setcmykcolor [ ] 0 setdash %I-G 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FG4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FG4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FG4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 4 FIS idiv sub get MULX mul add} bind def /y20 {IORY FG4 i 4 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {1.0 0.0 1.0 0.5 setcmykcolor} if i 27 eq {1.0 0.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FG5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FG5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FG5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 1.5 FIS div def %R 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FR3 i RLMKXU i get put} if j 1 eq {FR4 i RLMKXU i get put} if j 1 eq {FR5 i FR3 i get FR4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FR3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FR3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FR3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 0 1 1 0 setcmykcolor [ ] 0 setdash %I-R 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FR4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FR4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FR4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 6 FIS idiv sub get MULX mul add} bind def /y20 {IORY FR4 i 6 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {0.0 1.0 1.0 0.5 setcmykcolor} if i 27 eq {0.0 1.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FR5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FR5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FR5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 2 FIS idiv def %B 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FB3 i RLMKXU i get put} if j 1 eq {FB4 i RLMKXU i get put} if j 1 eq {FB5 i FB3 i get FB4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FB3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FB3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FB3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 1 1 0 0 setcmykcolor [ ] 0 setdash %I-B 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FB4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FB4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FB4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 8 FIS idiv sub get MULX mul add} bind def /y20 {IORY FB4 i 8 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {1.0 1.0 0.0 0.5 setcmykcolor} if i 27 eq {1.0 1.0 0.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FB5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FB5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FB5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 showpage grestore } for %output with langind end %%Trailer %%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 %line 459 %!PS-Adobe-3.0 EPSF-3.0 JG001-4N %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark14 where {pop} {userdict /pdfmark14 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JG00/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark14 [ /View [ /FitB ] /DOCVIEW pdfmark14 %END PDFDE011 % !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 /str {8 string } bind def /TK {250 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {330 /Times-ISOL1 FS} bind def /SK {250 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {330 /Symbol FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {330 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {330 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {330 /TimesBI-ISOL1 FS} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rlineto show 0 50 rlineto} bind def /eshow1 {TM 0 200 rlineto show 0 -200 rlineto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rlineto show 0 50 rlineto} bind def /eshow2 {TK 0 200 rlineto show 0 -200 rlineto} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 /Symbol FS outxshow} bind def /outSM {300 /Symbol FS outxshow} bind def /outSG {350 /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL2 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 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 205 86 moveto ( JG001-4) show % ( XG321-5, B8931_1, E8241-5, B4_54_1, N=4_54_1) show 72 90 translate 0.01 MM dup scale 30 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill /FMC 2 def %M=chromatic moment (1), chroma (2) /FIS 2 def %I=spectral colours (1), S=surface colours (2) 050 3725 moveto TBM tfw (log ) show (B) TBIM tzv outshowf (R) TBIM tzo outshowf (G) TBIM tzl outshowf (J) TBIM tzy outshowf TBIM tfw (\255D+I) show TBM tfw (\255Signale f\374r) showde (\255signals for) showen FIS 1 eq {( Spektralfarben) showde ( spectral colours) showen} {( K\366rperfarben) showde ( surface colours) showen} ifelse tfw 550 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke FMC 1 eq {1000 0 moveto 2000 2000 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1) show} { 000 500 moveto 3000 1500 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1/2) show} ifelse TBM /tx [(-6) (-5) (-4) (-3) (-2) (-1) ( 0) ( 1)] def /ty [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2)] def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -250 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 35 setlinewidth tfn 000 2000 moveto 4000 0000 rlineto stroke tfw 50 setlinewidth 3600 -300 moveto (x) TBIM tfw show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (log) TBM tfw show 30 0 rmoveto TBIM (L) show 0 -50 rmoveto TBM (r) show 10 50 rmoveto 1100 3000 moveto FMC 1 eq {(-2)} {(-)} ifelse TBM tfw show 30 0 rmoveto (Q) TBIM tfw show 30 0 rmoveto ([1,0c \050) TBM tfw show (x) TBIM tfw show 20 -50 rmoveto TBM (r) show 10 50 rmoveto (+x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (\051]) TBM tfw show 2300 0600 moveto (-x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (=) show FIS 1 eq {tfv (2) show tfw (,) show tfo (1,50) show tfw (,) show tfl (1,0) show tfw (,) show tfy (0,50) show tfw (,) show tfw (0) show } {tfv (1) show tfw (,) show tfo (0,75) show tfw (,) show tfl (0,5) show tfw (,) show tfy (0,25) show tfw (,) show tfw (0) show } ifelse 2750 0200 moveto (L) TBIM tfw show TBK 20 -80 rmoveto (b) show 50 80 rmoveto (= 100 cd) TBM tfw show 20 0 rmoveto (/) TBM tfw show 10 0 rmoveto (m) TBM tfw show TBK 20 100 rmoveto (2) show 0 -100 rmoveto 3400 1400 moveto TBM tfw FMC 1 eq {(I) TBIM tfw show} {(D+I) TBIM tfw show} ifelse (\255Proze\337) showde %08241-5 3 ( process) showen %18241-5 3 (Pro\255) showes %28241-5 3 (pro\255) showfr %38241-5 3 (pro\255) showit %48241-5 3 (pro\255) showjp %58241-5 3 /cvishow {cvi 10 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 /DLL 11 array def /DLU 11 array def /DLL [0.0001 0.001 0.01 0.1 1.0 10. 100. 1000. 10000. 100000. 1000000.] def /YFAK 4 array def /YFAK [ 1.0 1.8 3.2 5.6] def /DL 40 array def /DU 40 array def /XF 40 array def /R00KXU 40 array def /RLMKXU 40 array def %Achromatic /F0 40 array def %I-W /F1 40 array def %D-N /F2 40 array def %ID-NM /F3 40 array def %I-B /F4 40 array def %D-b /F5 40 array def %ID-BW /F6 40 array def %I-B /F7 40 array def %D-b /F8 40 array def %ID-BW %Blue /FB0 40 array def %I-W /FB1 40 array def %D-N /FB2 40 array def %ID-NM /FB3 40 array def %I-B /FB4 40 array def %D-b /FB5 40 array def %ID-BW /FB6 40 array def %I-B /FB7 40 array def %D-b /FB8 40 array def %ID-BW %yellow /FY0 40 array def %I-W /FY1 40 array def %D-N /FY2 40 array def %ID-NM /FY3 40 array def %I-Y /FY4 40 array def %D-y /FY5 40 array def %ID-YW /FY6 40 array def %I-Y /FY7 40 array def %D-y /FY8 40 array def %ID-YW %Green /FG0 40 array def %I-W /FG1 40 array def %D-N /FG2 40 array def %ID-NM /FG3 40 array def %I-G /FG4 40 array def %D-g /FG5 40 array def %ID-GW /FG6 40 array def %I-G /FG7 40 array def %D-g /FG8 40 array def %ID-GW %red /FR0 40 array def %I-W /FR1 40 array def %D-N /FR2 40 array def %ID-NM /FR3 40 array def %I-R /FR4 40 array def %D-r /FR5 40 array def %ID-RW /FR6 40 array def %I-R /FR7 40 array def %D-r /FR8 40 array def %ID-RW /IORX 2000 def /IORY 2000 def /MULX 500 def /MULY 500 def 50 setlinewidth tfn 0 2000 moveto 4000 0 rlineto stroke 0 1 9 {/k exch def %k=0,9 DLU k DLL k get put 0 1 3 {/j exch def %j=0,3 /i k 4 mul j add def %i=0,39 DL i DLL k get YFAK j get mul put DU i DL i get put } for %j=0,3 } for %k=0,10 /W2 2. sqrt def /XP 0 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,38 /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %D %j 1 eq {0 0 0 1 setcmykcolor [300 100] 0 setdash} if %D %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY F0 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY F0 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY F0 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 21 3 27 {/i exch def %i=21,3,27 /y20 {IORY F1 i get XP sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def tfn i 21 eq i 27 eq or {0 y20 moveto 4000 0 rlineto stroke} if 150 y20 100 add moveto tfw FMC 1 eq {i 21 eq {( 4%) show} if i 24 eq {(20%) show} if i 27 eq {(90%) show} if} {i 27 eq {(90%, 20%, 4%) show} if} ifelse i 27 eq {150 y20 400 add moveto tfw (grey reflection:) showen (Grau\255Reflexion:) showde} if } for %i=21,3,27 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 1 setcmykcolor [ ] 0 setdash} if %I j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY F1 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY F1 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke } for %j=0,1 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY F1 i get XP sub MULY mul add} bind def i 21 eq {tfn x20 y20 75 0 360 arc fill} if i 24 eq {tfw x20 y20 85 0 360 arc fill tfz x20 y20 65 0 360 arc fill} if i 27 eq {tfw x20 y20 75 0 360 arc fill} if } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI %j 1 eq {0 0 0 1 setcmykcolor [200 200] 0 setdash} if %DI %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY F2 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY F2 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY F2 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 0.50 FIS div def %Y 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FY3 i RLMKXU i get put} if j 1 eq {FY4 i RLMKXU i get put} if j 1 eq {FY5 i FY3 i get FY4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FY3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FY3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FY3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 0 0 1 0 setcmykcolor [ ] 0 setdash %I-Y 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FY4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FY4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FY4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 2 FIS idiv sub get MULX mul add} bind def /y20 {IORY FY4 i 2 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {0.0 0.0 1.0 0.5 setcmykcolor} if i 27 eq {0.0 0.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FY5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FY5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FY5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 1.0 FIS div def %G 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FG3 i RLMKXU i get put} if j 1 eq {FG4 i RLMKXU i get put} if j 1 eq {FG5 i FG3 i get FG4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FG3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FG3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FG3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 1 0 1 0 setcmykcolor [ ] 0 setdash %I-G 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FG4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FG4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FG4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 4 FIS idiv sub get MULX mul add} bind def /y20 {IORY FG4 i 4 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {1.0 0.0 1.0 0.5 setcmykcolor} if i 27 eq {1.0 0.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FG5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FG5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FG5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 1.5 FIS div def %R 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FR3 i RLMKXU i get put} if j 1 eq {FR4 i RLMKXU i get put} if j 1 eq {FR5 i FR3 i get FR4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FR3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FR3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FR3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 0 1 1 0 setcmykcolor [ ] 0 setdash %I-R 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FR4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FR4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FR4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 6 FIS idiv sub get MULX mul add} bind def /y20 {IORY FR4 i 6 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {0.0 1.0 1.0 0.5 setcmykcolor} if i 27 eq {0.0 1.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FR5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FR5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FR5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 2 FIS idiv def %B 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FB3 i RLMKXU i get put} if j 1 eq {FB4 i RLMKXU i get put} if j 1 eq {FB5 i FB3 i get FB4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FB3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FB3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FB3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 1 1 0 0 setcmykcolor [ ] 0 setdash %I-B 0 3 36 {/i exch def %i=0,3,36 /x20 {IORX XF i get MULX mul add} bind def /y20 {IORY FB4 i get MULY mul add} bind def /x21 {IORX XF i 1 add get MULX mul add} bind def /y21 {IORY FB4 i 1 add get MULY mul add} bind def /x22 {IORX XF i 2 add get MULX mul add} bind def /y22 {IORY FB4 i 2 add get MULY mul add} bind def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 {IORX XF i 8 FIS idiv sub get MULX mul add} bind def /y20 {IORY FB4 i 8 FIS idiv sub get MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {1.0 1.0 0.0 0.5 setcmykcolor} if i 27 eq {1.0 1.0 0.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FB5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FB5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FB5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %line 469 %!PS-Adobe-3.0 EPSF-3.0 JG001-5N %%BoundingBox: 70 85 226 206 %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: http://130.149.60.45/~farbmetrik/JG00/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark15 [ /View [ /FitB ] /DOCVIEW pdfmark15 %END PDFDE011 % !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 /str {8 string } bind def /TK {250 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {330 /Times-ISOL1 FS} bind def /SK {250 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {330 /Symbol FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {330 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {330 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {330 /TimesBI-ISOL1 FS} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rlineto show 0 50 rlineto} bind def /eshow1 {TM 0 200 rlineto show 0 -200 rlineto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rlineto show 0 50 rlineto} bind def /eshow2 {TK 0 200 rlineto show 0 -200 rlineto} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 /Symbol FS outxshow} bind def /outSM {300 /Symbol FS outxshow} bind def /outSG {350 /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL2 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 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 205 86 moveto ( JG001-5) show % ( XG321-5, B8931_1, E8241-5, B4_54_1, N=4_54_1) show 72 90 translate 0.01 MM dup scale 30 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill /FMC 1 def %M=chromatic moment (1), chroma (2) /FIS 1 def %I=spectral colours (1), S=surface colours (2) /XP1 {XP 1.0 mul} bind def /XP2 {XP 0.5 mul} bind def 010 3775 moveto TBM tfw (log ) show (B) TBIM tzv outshowf (R) TBIM tzo outshowf (G) TBIM tzl outshowf (J) TBIM tzy outshowf TBIM tfw (\255I) show TBM tfw (\255Signalebereich:) showde (\255signal range:) showen FIS 1 eq {( Spektralfarben) showde ( spectral colours) showen} {( K\366rperfarben) showde ( surface colours) showen} ifelse tfw 550 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke FMC 1 eq {1000 0 moveto 2000 2000 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1) show} { 000 500 moveto 3000 1500 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1/2) show} ifelse TBM /tx [(-6) (-5) (-4) (-3) (-2) (-1) ( 0) ( 1)] def /ty [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2)] def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -250 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 35 setlinewidth tfn 000 2000 moveto 4000 0000 rlineto stroke tfw 50 setlinewidth 3600 -275 moveto (x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (-log) TBM tfw show 30 0 rmoveto TBIM (p) show 1400 3100 moveto (-2) TBM tfw show 30 0 rmoveto (Q) TBIM tfw show 30 0 rmoveto ([1,0c \050) TBM tfw show (x) TBIM tfw show 20 -50 rmoveto TBM (r) show 10 50 rmoveto (+x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (\051]) TBM tfw show 2550 0600 moveto (-x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto TBIM tfw (=) show FIS 1 eq {tfv (2) show tfw (,) show tfo (1,5) show tfw (,) show tfl (1,0) show tfw (,) show tfy (0,5) show tfw (,) show tfw (0) show } {tfv (1) show tfw (,) show tfo (0,8) show tfw (,) show tfl (0,5) show tfw (,) show tfy (0,3) show tfw (,) show tfw (0) show } ifelse 2750 0200 moveto (L) TBIM tfw show TBK 20 -80 rmoveto (b) show 50 80 rmoveto (= 100 cd) TBM tfw show 20 0 rmoveto (/) TBM tfw show 10 0 rmoveto (m) TBM tfw show TBK 20 100 rmoveto (2) show 0 -100 rmoveto 3400 1400 moveto TBM tfw FMC 1 eq {(I) TBIM tfw show} {(D+I) TBIM tfw show} ifelse (\255Proze\337) showde %08241-5 3 ( process) showen %18241-5 3 (Pro\255) showes %28241-5 3 (pro\255) showfr %38241-5 3 (pro\255) showit %48241-5 3 (pro\255) showjp %58241-5 3 /cvishow {cvi 10 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 /DLL 11 array def /DLU 11 array def /DLL [0.0001 0.001 0.01 0.1 1.0 10. 100. 1000. 10000. 100000. 1000000.] def /YFAK 4 array def /YFAK [ 1.0 1.8 3.2 5.6] def /DL 40 array def /DU 40 array def /XF 40 array def /R00KXU 40 array def /RLMKXU 40 array def %Achromatic /F0 40 array def %I-W /F1 40 array def %D-N /F2 40 array def %ID-NM /F3 40 array def %I-B /F4 40 array def %D-b /F5 40 array def %ID-BW /F6 40 array def %I-B /F7 40 array def %D-b /F8 40 array def %ID-BW %Blue /FB0 40 array def %I-W /FB1 40 array def %D-N /FB2 40 array def %ID-NM /FB3 40 array def %I-B /FB4 40 array def %D-b /FB5 40 array def %ID-BW /FB6 40 array def %I-B /FB7 40 array def %D-b /FB8 40 array def %ID-BW %yellow /FY0 40 array def %I-W /FY1 40 array def %D-N /FY2 40 array def %ID-NM /FY3 40 array def %I-Y /FY4 40 array def %D-y /FY5 40 array def %ID-YW /FY6 40 array def %I-Y /FY7 40 array def %D-y /FY8 40 array def %ID-YW %Green /FG0 40 array def %I-W /FG1 40 array def %D-N /FG2 40 array def %ID-NM /FG3 40 array def %I-G /FG4 40 array def %D-g /FG5 40 array def %ID-GW /FG6 40 array def %I-G /FG7 40 array def %D-g /FG8 40 array def %ID-GW %red /FR0 40 array def %I-W /FR1 40 array def %D-N /FR2 40 array def %ID-NM /FR3 40 array def %I-R /FR4 40 array def %D-r /FR5 40 array def %ID-RW /FR6 40 array def %I-R /FR7 40 array def %D-r /FR8 40 array def %ID-RW /IORX 2000 def /IORY 2000 def /MULX 500 def /MULY 500 def 50 setlinewidth tfn 0 2000 moveto 4000 0 rlineto stroke 0 1 9 {/k exch def %k=0,9 DLU k DLL k get put 0 1 3 {/j exch def %j=0,3 /i k 4 mul j add def %i=0,39 DL i DLL k get YFAK j get mul put DU i DL i get put } for %j=0,3 } for %k=0,10 /W2 2. sqrt def /XP 0 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,38 /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %D %j 1 eq {0 0 0 1 setcmykcolor [300 100] 0 setdash} if %D %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY F0 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY F0 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY F0 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 21 3 27 {/i exch def %i=21,3,27 /y20 {IORY F1 i get XP sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def tfn i 21 eq i 27 eq or {0 y20 moveto 4000 0 rlineto stroke} if 150 y20 100 add moveto tfw FMC 1 eq {i 21 eq {( 4%) show} if i 24 eq {(20%) show} if i 27 eq {(90%) show} if} {i 27 eq {(90%, 20%, 4%) show} if} ifelse i 27 eq {150 y20 400 add moveto tfw (grey reflection:) showen (Grau\255Reflexion:) showde} if } for %i=21,3,27 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 1 setcmykcolor [ ] 0 setdash} if %I j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY F1 i get XP1 sub MULY mul add} bind def /y21 {IORY F1 i 1 add get XP1 sub MULY mul add} bind def /y22 {IORY F1 i 2 add get XP1 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke } for %j=0,1 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY F1 i get XP1 sub MULY mul add} bind def i 21 eq {tfn x20 y20 75 0 360 arc fill} if i 24 eq {tfw x20 y20 85 0 360 arc fill tfz x20 y20 65 0 360 arc fill} if i 27 eq {tfw x20 y20 75 0 360 arc fill} if } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI %j 1 eq {0 0 0 1 setcmykcolor [200 200] 0 setdash} if %DI %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY F2 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY F2 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY F2 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 0.50 FIS div def %Y 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FY3 i RLMKXU i get put} if j 1 eq {FY4 i RLMKXU i get put} if j 1 eq {FY5 i FY3 i get FY4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FY3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FY3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FY3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 0 0 1 0 setcmykcolor [ ] 0 setdash %I-Y 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY FY4 i get XP1 sub MULY mul add} bind def /y21 {IORY FY4 i 1 add get XP1 sub MULY mul add} bind def /y22 {IORY FY4 i 2 add get XP1 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY FY4 i 2 FIS idiv sub get XP1 sub MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {0.0 0.0 1.0 0.5 setcmykcolor} if i 27 eq {0.0 0.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FY5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FY5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FY5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 1.0 FIS div def %G 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FG3 i RLMKXU i get put} if j 1 eq {FG4 i RLMKXU i get put} if j 1 eq {FG5 i FG3 i get FG4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FG3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FG3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FG3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 1 0 1 0 setcmykcolor [ ] 0 setdash %I-G 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY FG4 i get XP1 sub MULY mul add} bind def /y21 {IORY FG4 i 1 add get XP1 sub MULY mul add} bind def /y22 {IORY FG4 i 2 add get XP1 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY FG4 i 4 FIS idiv sub get XP1 sub MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {1.0 0.0 1.0 0.5 setcmykcolor} if i 27 eq {1.0 0.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FG5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FG5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FG5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 1.5 FIS div def %R 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FR3 i RLMKXU i get put} if j 1 eq {FR4 i RLMKXU i get put} if j 1 eq {FR5 i FR3 i get FR4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FR3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FR3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FR3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 0 1 1 0 setcmykcolor [ ] 0 setdash %I-R 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY FR4 i get XP1 sub MULY mul add} bind def /y21 {IORY FR4 i 1 add get XP1 sub MULY mul add} bind def /y22 {IORY FR4 i 2 add get XP1 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY FR4 i 6 FIS idiv sub get XP1 sub MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {0.0 1.0 1.0 0.5 setcmykcolor} if i 27 eq {0.0 1.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FR5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FR5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FR5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 2 FIS idiv def %B 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FB3 i RLMKXU i get put} if j 1 eq {FB4 i RLMKXU i get put} if j 1 eq {FB5 i FB3 i get FB4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FB3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FB3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FB3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 1 1 0 0 setcmykcolor [ ] 0 setdash %I-B 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY FB4 i get XP1 sub MULY mul add} bind def /y21 {IORY FB4 i 1 add get XP1 sub MULY mul add} bind def /y22 {IORY FB4 i 2 add get XP1 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY FB4 i 8 FIS idiv sub get XP1 sub MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {1.0 1.0 0.0 0.5 setcmykcolor} if i 27 eq {1.0 1.0 0.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FB5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FB5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FB5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 showpage grestore } for %output with langind end %%Trailer %%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 %line 479 %!PS-Adobe-3.0 EPSF-3.0 JG001-6N %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark16 where {pop} {userdict /pdfmark16 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JG00/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark16 [ /View [ /FitB ] /DOCVIEW pdfmark16 %END PDFDE011 % !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 /str {8 string } bind def /TK {250 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {330 /Times-ISOL1 FS} bind def /SK {250 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {330 /Symbol FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {330 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {330 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {330 /TimesBI-ISOL1 FS} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rlineto show 0 50 rlineto} bind def /eshow1 {TM 0 200 rlineto show 0 -200 rlineto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rlineto show 0 50 rlineto} bind def /eshow2 {TK 0 200 rlineto show 0 -200 rlineto} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 /Symbol FS outxshow} bind def /outSM {300 /Symbol FS outxshow} bind def /outSG {350 /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL2 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 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 205 86 moveto ( JG001-6) show % ( XG321-5, B8931_1, E8241-5, B4_54_1, N=4_54_1) show 72 90 translate 0.01 MM dup scale 30 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill /FMC 1 def %M=chromatic moment (1), chroma (2) /FIS 2 def %I=spectral colours (1), S=surface colours (2) /XP1 {XP 1.0 mul} bind def /XP2 {XP 0.5 mul} bind def 010 3775 moveto TBM tfw (log ) show (B) TBIM tzv outshowf (R) TBIM tzo outshowf (G) TBIM tzl outshowf (J) TBIM tzy outshowf TBIM tfw (\255I) show TBM tfw (\255Signalbereich:) showde (\255signal range:) showen FIS 1 eq {( Spektralfarben) showde ( spectral colours) showen} {( K\366rperfarben) showde ( surface colours) showen} ifelse tfw 550 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke FMC 1 eq {1000 0 moveto 2000 2000 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1) show} { 000 500 moveto 3000 1500 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1/2) show} ifelse TBM /tx [(-6) (-5) (-4) (-3) (-2) (-1) ( 0) ( 1)] def /ty [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2)] def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -250 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 35 setlinewidth tfn 000 2000 moveto 4000 0000 rlineto stroke tfw 50 setlinewidth 3600 -275 moveto (x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (-log) TBM tfw show 30 0 rmoveto TBIM (p) show 1400 3100 moveto (-2) TBM tfw show 30 0 rmoveto (Q) TBIM tfw show 30 0 rmoveto ([1,0c \050) TBM tfw show (x) TBIM tfw show 20 -50 rmoveto TBM (r) show 10 50 rmoveto (+x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (\051]) TBM tfw show 2550 0600 moveto (-x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto TBIM tfw (=) show FIS 1 eq {tfv (2) show tfw (,) show tfo (1,5) show tfw (,) show tfl (1,0) show tfw (,) show tfy (0,5) show tfw (,) show tfw (0) show } {tfv (1) show tfw (,) show tfo (0,8) show tfw (,) show tfl (0,5) show tfw (,) show tfy (0,3) show tfw (,) show tfw (0) show } ifelse 2750 0200 moveto (L) TBIM tfw show TBK 20 -80 rmoveto (b) show 50 80 rmoveto (= 100 cd) TBM tfw show 20 0 rmoveto (/) TBM tfw show 10 0 rmoveto (m) TBM tfw show TBK 20 100 rmoveto (2) show 0 -100 rmoveto 3400 1400 moveto TBM tfw FMC 1 eq {(I) TBIM tfw show} {(D+I) TBIM tfw show} ifelse (\255Proze\337) showde %08241-5 3 ( process) showen %18241-5 3 (Pro\255) showes %28241-5 3 (pro\255) showfr %38241-5 3 (pro\255) showit %48241-5 3 (pro\255) showjp %58241-5 3 /cvishow {cvi 10 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 /DLL 11 array def /DLU 11 array def /DLL [0.0001 0.001 0.01 0.1 1.0 10. 100. 1000. 10000. 100000. 1000000.] def /YFAK 4 array def /YFAK [ 1.0 1.8 3.2 5.6] def /DL 40 array def /DU 40 array def /XF 40 array def /R00KXU 40 array def /RLMKXU 40 array def %Achromatic /F0 40 array def %I-W /F1 40 array def %D-N /F2 40 array def %ID-NM /F3 40 array def %I-B /F4 40 array def %D-b /F5 40 array def %ID-BW /F6 40 array def %I-B /F7 40 array def %D-b /F8 40 array def %ID-BW %Blue /FB0 40 array def %I-W /FB1 40 array def %D-N /FB2 40 array def %ID-NM /FB3 40 array def %I-B /FB4 40 array def %D-b /FB5 40 array def %ID-BW /FB6 40 array def %I-B /FB7 40 array def %D-b /FB8 40 array def %ID-BW %yellow /FY0 40 array def %I-W /FY1 40 array def %D-N /FY2 40 array def %ID-NM /FY3 40 array def %I-Y /FY4 40 array def %D-y /FY5 40 array def %ID-YW /FY6 40 array def %I-Y /FY7 40 array def %D-y /FY8 40 array def %ID-YW %Green /FG0 40 array def %I-W /FG1 40 array def %D-N /FG2 40 array def %ID-NM /FG3 40 array def %I-G /FG4 40 array def %D-g /FG5 40 array def %ID-GW /FG6 40 array def %I-G /FG7 40 array def %D-g /FG8 40 array def %ID-GW %red /FR0 40 array def %I-W /FR1 40 array def %D-N /FR2 40 array def %ID-NM /FR3 40 array def %I-R /FR4 40 array def %D-r /FR5 40 array def %ID-RW /FR6 40 array def %I-R /FR7 40 array def %D-r /FR8 40 array def %ID-RW /IORX 2000 def /IORY 2000 def /MULX 500 def /MULY 500 def 50 setlinewidth tfn 0 2000 moveto 4000 0 rlineto stroke 0 1 9 {/k exch def %k=0,9 DLU k DLL k get put 0 1 3 {/j exch def %j=0,3 /i k 4 mul j add def %i=0,39 DL i DLL k get YFAK j get mul put DU i DL i get put } for %j=0,3 } for %k=0,10 /W2 2. sqrt def /XP 0 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,38 /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %D %j 1 eq {0 0 0 1 setcmykcolor [300 100] 0 setdash} if %D %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY F0 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY F0 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY F0 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 21 3 27 {/i exch def %i=21,3,27 /y20 {IORY F1 i get XP sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def tfn i 21 eq i 27 eq or {0 y20 moveto 4000 0 rlineto stroke} if 150 y20 100 add moveto tfw FMC 1 eq {i 21 eq {( 4%) show} if i 24 eq {(20%) show} if i 27 eq {(90%) show} if} {i 27 eq {(90%, 20%, 4%) show} if} ifelse i 27 eq {150 y20 400 add moveto tfw (grey reflection:) showen (Grau\255Reflexion:) showde} if } for %i=21,3,27 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 1 setcmykcolor [ ] 0 setdash} if %I j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY F1 i get XP1 sub MULY mul add} bind def /y21 {IORY F1 i 1 add get XP1 sub MULY mul add} bind def /y22 {IORY F1 i 2 add get XP1 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke } for %j=0,1 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY F1 i get XP1 sub MULY mul add} bind def i 21 eq {tfn x20 y20 75 0 360 arc fill} if i 24 eq {tfw x20 y20 85 0 360 arc fill tfz x20 y20 65 0 360 arc fill} if i 27 eq {tfw x20 y20 75 0 360 arc fill} if } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI %j 1 eq {0 0 0 1 setcmykcolor [200 200] 0 setdash} if %DI %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY F2 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY F2 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY F2 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 0.50 FIS div def %Y 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FY3 i RLMKXU i get put} if j 1 eq {FY4 i RLMKXU i get put} if j 1 eq {FY5 i FY3 i get FY4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FY3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FY3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FY3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 0 0 1 0 setcmykcolor [ ] 0 setdash %I-Y 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY FY4 i get XP1 sub MULY mul add} bind def /y21 {IORY FY4 i 1 add get XP1 sub MULY mul add} bind def /y22 {IORY FY4 i 2 add get XP1 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY FY4 i 2 FIS idiv sub get XP1 sub MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {0.0 0.0 1.0 0.5 setcmykcolor} if i 27 eq {0.0 0.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FY5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FY5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FY5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 1.0 FIS div def %G 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FG3 i RLMKXU i get put} if j 1 eq {FG4 i RLMKXU i get put} if j 1 eq {FG5 i FG3 i get FG4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FG3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FG3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FG3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 1 0 1 0 setcmykcolor [ ] 0 setdash %I-G 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY FG4 i get XP1 sub MULY mul add} bind def /y21 {IORY FG4 i 1 add get XP1 sub MULY mul add} bind def /y22 {IORY FG4 i 2 add get XP1 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY FG4 i 4 FIS idiv sub get XP1 sub MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {1.0 0.0 1.0 0.5 setcmykcolor} if i 27 eq {1.0 0.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FG5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FG5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FG5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 1.5 FIS div def %R 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FR3 i RLMKXU i get put} if j 1 eq {FR4 i RLMKXU i get put} if j 1 eq {FR5 i FR3 i get FR4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FR3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FR3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FR3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 0 1 1 0 setcmykcolor [ ] 0 setdash %I-R 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY FR4 i get XP1 sub MULY mul add} bind def /y21 {IORY FR4 i 1 add get XP1 sub MULY mul add} bind def /y22 {IORY FR4 i 2 add get XP1 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY FR4 i 6 FIS idiv sub get XP1 sub MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {0.0 1.0 1.0 0.5 setcmykcolor} if i 27 eq {0.0 1.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FR5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FR5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FR5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 2 FIS idiv def %B 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FB3 i RLMKXU i get put} if j 1 eq {FB4 i RLMKXU i get put} if j 1 eq {FB5 i FB3 i get FB4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FB3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FB3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FB3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 1 1 0 0 setcmykcolor [ ] 0 setdash %I-B 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY FB4 i get XP1 sub MULY mul add} bind def /y21 {IORY FB4 i 1 add get XP1 sub MULY mul add} bind def /y22 {IORY FB4 i 2 add get XP1 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY FB4 i 8 FIS idiv sub get XP1 sub MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {1.0 1.0 0.0 0.5 setcmykcolor} if i 27 eq {1.0 1.0 0.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FB5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FB5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FB5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 showpage grestore } for %output with langind end %%Trailer %%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 %line 489 %!PS-Adobe-3.0 EPSF-3.0 JG001-7N %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark17 where {pop} {userdict /pdfmark17 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JG00/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark17 [ /View [ /FitB ] /DOCVIEW pdfmark17 %END PDFDE011 % !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 /str {8 string } bind def /TK {250 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {330 /Times-ISOL1 FS} bind def /SK {250 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {330 /Symbol FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {330 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {330 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {330 /TimesBI-ISOL1 FS} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rlineto show 0 50 rlineto} bind def /eshow1 {TM 0 200 rlineto show 0 -200 rlineto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rlineto show 0 50 rlineto} bind def /eshow2 {TK 0 200 rlineto show 0 -200 rlineto} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 /Symbol FS outxshow} bind def /outSM {300 /Symbol FS outxshow} bind def /outSG {350 /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL2 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 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 205 86 moveto ( JG001-7) show % ( XG321-5, B8931_1, E8241-5, B4_54_1, N=4_54_1) show 72 90 translate 0.01 MM dup scale 30 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill /FMC 2 def %M=chromatic moment (1), chroma (2) /FIS 1 def %I=spectral colours (1), S=surface colours (2) /XP1 {XP 1.0 mul} bind def /XP2 {XP 0.5 mul} bind def 010 3775 moveto TBM tfw (log ) show (B) TBIM tzv outshowf (R) TBIM tzo outshowf (G) TBIM tzl outshowf (J) TBIM tzy outshowf TBIM tfw (\255D+I) show TBM tfw (\255Signalbereich:) showde (\255signal range:) showen FIS 1 eq {( Spektralfarben) showde ( spectral colours) showen} {( K\366rperfarben) showde ( surface colours) showen} ifelse tfw 550 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke FMC 1 eq {1000 0 moveto 2000 2000 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1) show} { 000 500 moveto 3000 1500 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1/2) show} ifelse TBM /tx [(-6) (-5) (-4) (-3) (-2) (-1) ( 0) ( 1)] def /ty [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2)] def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -250 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 35 setlinewidth tfn 000 2000 moveto 4000 0000 rlineto stroke tfw 50 setlinewidth 3600 -275 moveto (x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (-log) TBM tfw show 30 0 rmoveto TBIM (p) show 1400 3100 moveto (-) TBM tfw show 30 0 rmoveto (Q) TBIM tfw show 30 0 rmoveto ([1,0c \050) TBM tfw show (x) TBIM tfw show 20 -50 rmoveto TBM (r) show 10 50 rmoveto (+x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (\051]) TBM tfw show 2550 0600 moveto (-x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto TBIM tfw (=) show FIS 1 eq {tfv (2) show tfw (,) show tfo (1,5) show tfw (,) show tfl (1,0) show tfw (,) show tfy (0,5) show tfw (,) show tfw (0) show } {tfv (1) show tfw (,) show tfo (0,8) show tfw (,) show tfl (0,5) show tfw (,) show tfy (0,3) show tfw (,) show tfw (0) show } ifelse 2750 0200 moveto (L) TBIM tfw show TBK 20 -80 rmoveto (b) show 50 80 rmoveto (= 100 cd) TBM tfw show 20 0 rmoveto (/) TBM tfw show 10 0 rmoveto (m) TBM tfw show TBK 20 100 rmoveto (2) show 0 -100 rmoveto 3400 1400 moveto TBM tfw FMC 1 eq {(I) TBIM tfw show} {(D+I) TBIM tfw show} ifelse (\255Proze\337) showde %08241-5 3 ( process) showen %18241-5 3 (Pro\255) showes %28241-5 3 (pro\255) showfr %38241-5 3 (pro\255) showit %48241-5 3 (pro\255) showjp %58241-5 3 /cvishow {cvi 10 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 /DLL 11 array def /DLU 11 array def /DLL [0.0001 0.001 0.01 0.1 1.0 10. 100. 1000. 10000. 100000. 1000000.] def /YFAK 4 array def /YFAK [ 1.0 1.8 3.2 5.6] def /DL 40 array def /DU 40 array def /XF 40 array def /R00KXU 40 array def /RLMKXU 40 array def %Achromatic /F0 40 array def %I-W /F1 40 array def %D-N /F2 40 array def %ID-NM /F3 40 array def %I-B /F4 40 array def %D-b /F5 40 array def %ID-BW /F6 40 array def %I-B /F7 40 array def %D-b /F8 40 array def %ID-BW %Blue /FB0 40 array def %I-W /FB1 40 array def %D-N /FB2 40 array def %ID-NM /FB3 40 array def %I-B /FB4 40 array def %D-b /FB5 40 array def %ID-BW /FB6 40 array def %I-B /FB7 40 array def %D-b /FB8 40 array def %ID-BW %yellow /FY0 40 array def %I-W /FY1 40 array def %D-N /FY2 40 array def %ID-NM /FY3 40 array def %I-Y /FY4 40 array def %D-y /FY5 40 array def %ID-YW /FY6 40 array def %I-Y /FY7 40 array def %D-y /FY8 40 array def %ID-YW %Green /FG0 40 array def %I-W /FG1 40 array def %D-N /FG2 40 array def %ID-NM /FG3 40 array def %I-G /FG4 40 array def %D-g /FG5 40 array def %ID-GW /FG6 40 array def %I-G /FG7 40 array def %D-g /FG8 40 array def %ID-GW %red /FR0 40 array def %I-W /FR1 40 array def %D-N /FR2 40 array def %ID-NM /FR3 40 array def %I-R /FR4 40 array def %D-r /FR5 40 array def %ID-RW /FR6 40 array def %I-R /FR7 40 array def %D-r /FR8 40 array def %ID-RW /IORX 2000 def /IORY 2000 def /MULX 500 def /MULY 500 def 50 setlinewidth tfn 0 2000 moveto 4000 0 rlineto stroke 0 1 9 {/k exch def %k=0,9 DLU k DLL k get put 0 1 3 {/j exch def %j=0,3 /i k 4 mul j add def %i=0,39 DL i DLL k get YFAK j get mul put DU i DL i get put } for %j=0,3 } for %k=0,10 /W2 2. sqrt def /XP 0 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,38 /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %D %j 1 eq {0 0 0 1 setcmykcolor [300 100] 0 setdash} if %D %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY F0 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY F0 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY F0 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 21 3 27 {/i exch def %i=21,3,27 /y20 {IORY F1 i get XP2 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def tfn i 21 eq i 27 eq or {0 y20 moveto 4000 0 rlineto stroke} if 150 y20 100 add moveto tfw FMC 1 eq {i 21 eq {( 4%) show} if i 24 eq {(20%) show} if i 27 eq {(90%) show} if} {i 27 eq {(90%, 20%, 4%) show} if} ifelse i 27 eq {150 y20 400 add moveto tfw (grey reflection:) showen (Grau\255Reflexion:) showde} if } for %i=21,3,27 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 1 setcmykcolor [ ] 0 setdash} if %I j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY F1 i get XP2 sub MULY mul add} bind def /y21 {IORY F1 i 1 add get XP2 sub MULY mul add} bind def /y22 {IORY F1 i 2 add get XP2 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke } for %j=0,1 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY F1 i get XP2 sub MULY mul add} bind def i 21 eq {tfn x20 y20 75 0 360 arc fill} if i 24 eq {tfw x20 y20 85 0 360 arc fill tfz x20 y20 65 0 360 arc fill} if i 27 eq {tfw x20 y20 75 0 360 arc fill} if } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI %j 1 eq {0 0 0 1 setcmykcolor [200 200] 0 setdash} if %DI %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY F2 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY F2 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY F2 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 0.50 FIS div def %Y 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FY3 i RLMKXU i get put} if j 1 eq {FY4 i RLMKXU i get put} if j 1 eq {FY5 i FY3 i get FY4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FY3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FY3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FY3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 0 0 1 0 setcmykcolor [ ] 0 setdash %I-Y 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY FY4 i get XP2 sub MULY mul add} bind def /y21 {IORY FY4 i 1 add get XP2 sub MULY mul add} bind def /y22 {IORY FY4 i 2 add get XP2 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY FY4 i 2 FIS idiv sub get XP2 sub MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {0.0 0.0 1.0 0.5 setcmykcolor} if i 27 eq {0.0 0.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FY5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FY5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FY5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 1.0 FIS div def %G 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FG3 i RLMKXU i get put} if j 1 eq {FG4 i RLMKXU i get put} if j 1 eq {FG5 i FG3 i get FG4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FG3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FG3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FG3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 1 0 1 0 setcmykcolor [ ] 0 setdash %I-G 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY FG4 i get XP2 sub MULY mul add} bind def /y21 {IORY FG4 i 1 add get XP2 sub MULY mul add} bind def /y22 {IORY FG4 i 2 add get XP2 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY FG4 i 4 FIS idiv sub get XP2 sub MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {1.0 0.0 1.0 0.5 setcmykcolor} if i 27 eq {1.0 0.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FG5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FG5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FG5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 1.5 FIS div def %R 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FR3 i RLMKXU i get put} if j 1 eq {FR4 i RLMKXU i get put} if j 1 eq {FR5 i FR3 i get FR4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FR3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FR3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FR3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 0 1 1 0 setcmykcolor [ ] 0 setdash %I-R 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY FR4 i get XP2 sub MULY mul add} bind def /y21 {IORY FR4 i 1 add get XP2 sub MULY mul add} bind def /y22 {IORY FR4 i 2 add get XP2 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY FR4 i 6 FIS idiv sub get XP2 sub MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {0.0 1.0 1.0 0.5 setcmykcolor} if i 27 eq {0.0 1.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FR5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FR5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FR5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 2 FIS idiv def %B 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FB3 i RLMKXU i get put} if j 1 eq {FB4 i RLMKXU i get put} if j 1 eq {FB5 i FB3 i get FB4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FB3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FB3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FB3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 1 1 0 0 setcmykcolor [ ] 0 setdash %I-B 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY FB4 i get XP2 sub MULY mul add} bind def /y21 {IORY FB4 i 1 add get XP2 sub MULY mul add} bind def /y22 {IORY FB4 i 2 add get XP2 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY FB4 i 8 FIS idiv sub get XP2 sub MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {1.0 1.0 0.0 0.5 setcmykcolor} if i 27 eq {1.0 1.0 0.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FB5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FB5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FB5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 showpage grestore } for %output with langind end %%Trailer %%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 %line 499 %!PS-Adobe-3.0 EPSF-3.0 JG001-8N %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark18 where {pop} {userdict /pdfmark18 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JG00/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark18 [ /View [ /FitB ] /DOCVIEW pdfmark18 %END PDFDE011 % !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 /str {8 string } bind def /TK {250 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {330 /Times-ISOL1 FS} bind def /SK {250 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {330 /Symbol FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {330 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {330 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {330 /TimesBI-ISOL1 FS} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rlineto show 0 50 rlineto} bind def /eshow1 {TM 0 200 rlineto show 0 -200 rlineto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rlineto show 0 50 rlineto} bind def /eshow2 {TK 0 200 rlineto show 0 -200 rlineto} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 /Symbol FS outxshow} bind def /outSM {300 /Symbol FS outxshow} bind def /outSG {350 /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL2 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 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 205 86 moveto ( JG001-8) show % ( XG321-5, B8931_1, E8241-5, B4_54_1, N=4_54_1) show 72 90 translate 0.01 MM dup scale 30 setlinewidth 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill /FMC 2 def %M=chromatic moment (1), chroma (2) /FIS 2 def %I=spectral colours (1), S=surface colours (2) /XP1 {XP 1.0 mul} bind def /XP2 {XP 0.5 mul} bind def 010 3775 moveto TBM tfw (log ) show (B) TBIM tzv outshowf (R) TBIM tzo outshowf (G) TBIM tzl outshowf (J) TBIM tzy outshowf TBIM tfw (\255D+I) show TBM tfw (\255Signalbereich:) showde (\255signal range:) showen FIS 1 eq {( Spektralfarben) showde ( spectral colours) showen} {( K\366rperfarben) showde ( surface colours) showen} ifelse tfw 550 400 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke FMC 1 eq {1000 0 moveto 2000 2000 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1) show} { 000 500 moveto 3000 1500 rlineto stroke 1000 600 moveto TBIM (m) show TBM (=1/2) show} ifelse TBM /tx [(-6) (-5) (-4) (-3) (-2) (-1) ( 0) ( 1)] def /ty [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2)] def %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -250 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 35 setlinewidth tfn 000 2000 moveto 4000 0000 rlineto stroke tfw 50 setlinewidth 3600 -275 moveto (x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (-log) TBM tfw show 30 0 rmoveto TBIM (p) show 1400 3100 moveto (-) TBM tfw show 30 0 rmoveto (Q) TBIM tfw show 30 0 rmoveto ([1,0c \050) TBM tfw show (x) TBIM tfw show 20 -50 rmoveto TBM (r) show 10 50 rmoveto (+x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto (\051]) TBM tfw show 2250 0600 moveto (-x) TBIM tfw show 20 -50 rmoveto TBM (p) show 10 50 rmoveto TBIM tfw (=) show FIS 1 eq {tfv (2) show tfw (,) show tfo (1,5) show tfw (,) show tfl (1,0) show tfw (,) show tfy (0,5) show tfw (,) show tfw (0) show } {tfv (1) show tfw (,) show tfo (0,75) show tfw (,) show tfl (0,5) show tfw (,) show tfy (0,25) show tfw (,) show tfw (0) show } ifelse 2750 0200 moveto (L) TBIM tfw show TBK 20 -80 rmoveto (b) show 50 80 rmoveto (= 100 cd) TBM tfw show 20 0 rmoveto (/) TBM tfw show 10 0 rmoveto (m) TBM tfw show TBK 20 100 rmoveto (2) show 0 -100 rmoveto 3400 1400 moveto TBM tfw FMC 1 eq {(I) TBIM tfw show} {(D+I) TBIM tfw show} ifelse (\255Proze\337) showde %08241-5 3 ( process) showen %18241-5 3 (Pro\255) showes %28241-5 3 (pro\255) showfr %38241-5 3 (pro\255) showit %48241-5 3 (pro\255) showjp %58241-5 3 /cvishow {cvi 10 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 /DLL 11 array def /DLU 11 array def /DLL [0.0001 0.001 0.01 0.1 1.0 10. 100. 1000. 10000. 100000. 1000000.] def /YFAK 4 array def /YFAK [ 1.0 1.8 3.2 5.6] def /DL 40 array def /DU 40 array def /XF 40 array def /R00KXU 40 array def /RLMKXU 40 array def %Achromatic /F0 40 array def %I-W /F1 40 array def %D-N /F2 40 array def %ID-NM /F3 40 array def %I-B /F4 40 array def %D-b /F5 40 array def %ID-BW /F6 40 array def %I-B /F7 40 array def %D-b /F8 40 array def %ID-BW %Blue /FB0 40 array def %I-W /FB1 40 array def %D-N /FB2 40 array def %ID-NM /FB3 40 array def %I-B /FB4 40 array def %D-b /FB5 40 array def %ID-BW /FB6 40 array def %I-B /FB7 40 array def %D-b /FB8 40 array def %ID-BW %yellow /FY0 40 array def %I-W /FY1 40 array def %D-N /FY2 40 array def %ID-NM /FY3 40 array def %I-Y /FY4 40 array def %D-y /FY5 40 array def %ID-YW /FY6 40 array def %I-Y /FY7 40 array def %D-y /FY8 40 array def %ID-YW %Green /FG0 40 array def %I-W /FG1 40 array def %D-N /FG2 40 array def %ID-NM /FG3 40 array def %I-G /FG4 40 array def %D-g /FG5 40 array def %ID-GW /FG6 40 array def %I-G /FG7 40 array def %D-g /FG8 40 array def %ID-GW %red /FR0 40 array def %I-W /FR1 40 array def %D-N /FR2 40 array def %ID-NM /FR3 40 array def %I-R /FR4 40 array def %D-r /FR5 40 array def %ID-RW /FR6 40 array def %I-R /FR7 40 array def %D-r /FR8 40 array def %ID-RW /IORX 2000 def /IORY 2000 def /MULX 500 def /MULY 500 def 50 setlinewidth tfn 0 2000 moveto 4000 0 rlineto stroke 0 1 9 {/k exch def %k=0,9 DLU k DLL k get put 0 1 3 {/j exch def %j=0,3 /i k 4 mul j add def %i=0,39 DL i DLL k get YFAK j get mul put DU i DL i get put } for %j=0,3 } for %k=0,10 /W2 2. sqrt def /XP 0 def 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {F0 i RLMKXU i get put} if j 1 eq {F1 i RLMKXU i get put} if j 1 eq {F2 i F0 i get F1 i get add put} if } for %i=0,38 /XFX0 0.0 def /F01X0 10 XFX0 XU sub XP add XC mul exp def /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def j 0 eq {/F0X0 RLMKXUX0 def} if j 1 eq {/F1X0 RLMKXUX0 def} if j 1 eq {/F2X0 F0X0 F1X0 add def} if } for %j=0,1 50 setlinewidth %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %D %j 1 eq {0 0 0 1 setcmykcolor [300 100] 0 setdash} if %D %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY F0 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY F0 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY F0 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 21 3 27 {/i exch def %i=21,3,27 /y20 {IORY F1 i get XP2 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def tfn i 21 eq i 27 eq or {0 y20 moveto 4000 0 rlineto stroke} if 150 y20 100 add moveto tfw FMC 1 eq {i 21 eq {( 4%) show} if i 24 eq {(20%) show} if i 27 eq {(90%) show} if} {i 27 eq {(90%, 20%, 4%) show} if} ifelse i 27 eq {150 y20 400 add moveto tfw (grey reflection:) showen (Grau\255Reflexion:) showde} if } for %i=21,3,27 0 1 1 {/j exch def %j=0,1 j 0 eq {0 0 0 1 setcmykcolor [ ] 0 setdash} if %I j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY F1 i get XP2 sub MULY mul add} bind def /y21 {IORY F1 i 1 add get XP2 sub MULY mul add} bind def /y22 {IORY F1 i 2 add get XP2 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke } for %j=0,1 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY F1 i get XP2 sub MULY mul add} bind def i 21 eq {tfn x20 y20 75 0 360 arc fill} if i 24 eq {tfw x20 y20 85 0 360 arc fill tfz x20 y20 65 0 360 arc fill} if i 27 eq {tfw x20 y20 75 0 360 arc fill} if } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI %j 1 eq {0 0 0 1 setcmykcolor [200 200] 0 setdash} if %DI %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY F2 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY F2 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY F2 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 0.50 FIS div def %Y 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FY3 i RLMKXU i get put} if j 1 eq {FY4 i RLMKXU i get put} if j 1 eq {FY5 i FY3 i get FY4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FY3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FY3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FY3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 0 0 1 0 setcmykcolor [ ] 0 setdash %I-Y 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY FY4 i get XP2 sub MULY mul add} bind def /y21 {IORY FY4 i 1 add get XP2 sub MULY mul add} bind def /y22 {IORY FY4 i 2 add get XP2 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY FY4 i 2 FIS idiv sub get XP2 sub MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {0.0 0.0 1.0 0.5 setcmykcolor} if i 27 eq {0.0 0.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FY5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FY5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FY5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 1.0 FIS div def %G 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FG3 i RLMKXU i get put} if j 1 eq {FG4 i RLMKXU i get put} if j 1 eq {FG5 i FG3 i get FG4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FG3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FG3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FG3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 1 0 1 0 setcmykcolor [ ] 0 setdash %I-G 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY FG4 i get XP2 sub MULY mul add} bind def /y21 {IORY FG4 i 1 add get XP2 sub MULY mul add} bind def /y22 {IORY FG4 i 2 add get XP2 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY FG4 i 4 FIS idiv sub get XP2 sub MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {1.0 0.0 1.0 0.5 setcmykcolor} if i 27 eq {1.0 0.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FG5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FG5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FG5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 1.5 FIS div def %R 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FR3 i RLMKXU i get put} if j 1 eq {FR4 i RLMKXU i get put} if j 1 eq {FR5 i FR3 i get FR4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FR3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FR3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FR3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 0 1 1 0 setcmykcolor [ ] 0 setdash %I-R 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY FR4 i get XP2 sub MULY mul add} bind def /y21 {IORY FR4 i 1 add get XP2 sub MULY mul add} bind def /y22 {IORY FR4 i 2 add get XP2 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY FR4 i 6 FIS idiv sub get XP2 sub MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {0.0 1.0 1.0 0.5 setcmykcolor} if i 27 eq {0.0 1.0 1.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FR5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FR5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FR5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 /XP 2 FIS idiv def %B 0 1 1 {/j exch def %j=0,1 j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ 1.0 def} if j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011 %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294 %e = 10**0.434294 = 2.71828182846 = e**1 /XC XK 10 ln div def 0 1 38 {/i exch def %i=0,38 XF i DL i get log put %F01= 10**[c(x-u+p)] /F01 10 XF i get XU sub XP add XC mul exp def %R00KXU=1+1/{1+W2*10**[c(x-u+p)]} R00KXU i 1. 1. W2 F01 mul add div 1. add put %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM} RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put j 0 eq {FB3 i RLMKXU i get put} if j 1 eq {FB4 i RLMKXU i get put} if j 1 eq {FB5 i FB3 i get FB4 i get add put} if } for %i=0,38 /XFX1 0.0 def /F01X1 10 XFX1 XU sub XP add XC mul exp def /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def j 0 eq {/F0X1 RLMKXUX1 def} if j 1 eq {/F1X1 RLMKXUX1 def} if j 1 eq {/F2X1 F0X1 F1X1 add def} if } for %j=0,1 50 setlinewidth %0 0 1 0 setcmykcolor %IORX XFX1 MULX mul add -50 add %IORY F0X1 MULY mul add moveto 100 0 rlineto stroke %IORX XFX1 MULX mul add %IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke %1 1 0 0.5 setcmykcolor [ ] 0 setdash %D-b %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FB3 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FB3 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FB3 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke 1 1 0 0 setcmykcolor [ ] 0 setdash %I-B 0 3 36 {/i exch def %i=0,3,36 /y20 {IORY FB4 i get XP2 sub MULY mul add} bind def /y21 {IORY FB4 i 1 add get XP2 sub MULY mul add} bind def /y22 {IORY FB4 i 2 add get XP2 sub MULY mul add} bind def /x20 IORX 2 XP sub MULX mul add def /x21 IORX 2 XP sub MULX mul add def /x22 IORX 2 XP sub MULX mul add def i 0 eq {newpath x20 y20 moveto} if x20 y20 x21 y21 x22 y22 curveto } for %i=0,3,36 stroke 21 3 27 {/i exch def %i=21,3,27 /x20 IORX 2 XP sub MULX mul add def /y20 {IORY FB4 i 8 FIS idiv sub get XP2 sub MULY mul add} bind def newpath x20 y20 moveto ( ) show i 21 eq {tfn} if i 24 eq {1.0 1.0 0.0 0.5 setcmykcolor} if i 27 eq {1.0 1.0 0.0 0.0 setcmykcolor} if x20 y20 75 0 360 arc fill } for %i=21,3,27 %0 1 1 {/j exch def %j=0,1 %j 0 eq {0 0 0 0 setcmykcolor [ ] 0 setdash} if %DI-W %j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B %0 3 36 {/i exch def %i=0,3,36 % /x20 {IORX XF i get MULX mul add} bind def % /y20 {IORY FB5 i get MULY mul add} bind def % /x21 {IORX XF i 1 add get MULX mul add} bind def % /y21 {IORY FB5 i 1 add get MULY mul add} bind def % /x22 {IORX XF i 2 add get MULX mul add} bind def % /y22 {IORY FB5 i 2 add get MULY mul add} bind def % i 0 eq {newpath x20 y20 moveto} if % x20 y20 x21 y21 x22 y22 curveto % } for %i=0,3,36 %stroke %} for %j=0,1 showpage grestore } for %output with langind end %%Trailer %%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 20100101 %%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 0 def /colorm2 0 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 /xchart xchartg def} {/xchart 0 def} ifelse /scountg where {pop /scount scountg def} {/scount 1 def} ifelse %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 {tzan j get dup dup 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tzan j get dup dup 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 {1 tzan j get 1 sub dup dup setrgbcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub dup dup setrgbcolor %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 {0 0 0 tzan j get setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 0 0 0 tzan j get setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {1 tzan j get sub setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub 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 12 /Times-ISOL1 FS 61 MM 09 MM moveto (Doppelkegel, Bunttonebenen, Physiologische Signale) showde (Double cone, hue planes and physiological signals) showen 12 /Times-ISOL1 FS 61 MM 13 MM moveto (TUB\255Pr\374fvorlage JG00; Farbtransfer und Workflow) showde (TUB\255test chart JG00; colour transfer and workflow) showen 12 /Times-ISOL1 FS 172 MM 13 MM moveto (input: ) showen (Eingabe: ) showde 12 /TimesI-ISOL1 FS (cmyn* setcmykcolor) show 12 /Times-ISOL1 FS 172 MM 9 MM moveto (output: ) showen (Ausgabe: ) showde LSC$ (N) eq {%LSC$=N 12 /Times-ISOL1 FS (no change compared to input) showen (keine Eingabe\344nderung) showde } if %LSC$=N %1 setgray %start white and unvisible LSC$ (S) eq { (Startup (S) data dependend) show } if LSC$ (F) eq { 12 /Times-Italic FS i*ptrsc 0 eq {(cmy0* / 000n* setcmykcolor) show} if i*ptrsc 1 eq {(olv* setrgbcolor) show} if 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/JG00/JG00L) 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 (JG00/JG00L) 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 (; Seite ) showde (; page ) showen xchart 1 add cvishow (/1) show 16 MM 185 MM moveto -90 rotate (Siehe Original/Kopie: ) showde (See original or copy: ) showen (http://web.me.com/klaus.richter/JG00/JG00L) 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: 20100101\255JG00/JG00L) showde (TUB registration: 20100101\255JG00/JG00L) 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 Messung von Drucker- oder Monitorsystemen) showde ( application for measurement of printer or monitor systems) showen ( application for measurement of printer or monitor systems) showes ( application for measurement of printer or monitor systems) showfr ( application for measurement of printer or monitor systems) showit ( application for measurement of printer or monitor systems) showjp ( application for measurement of printer or monitor systems) showm 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 %/xlu1 013 MM def /ylu1 010 MM def %/xro1 283 MM def /yro1 200 MM def %/xlo1 013 MM def /ylo1 200 MM def %/xru1 283 MM def /yru1 010 MM def %xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke %xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke %xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke %xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke %xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke %xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke %xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke %xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke %} 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