%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.445/~farbmetrik/JE59/JE59L00XX.PS 20100301 %%BoundingBox: 00 00 414 292 /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/JE59/JE59.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:2010030112000) /ModDate (D:2010030112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark %BEG GK0X->JE59/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->JE59/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20090201 %***************************************************************************** %BEG GK0X->JE59/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->JE59/10L/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20090201 /CFilenameS1g %START output of step S1g (http://130.149.60.445/~farbmetrik/JE59/Y10E00N) def %Link file name for data /CDateS1g (2010-01-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (JE59/Y10E00N) 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 0.5 0.5 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$ [(1.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$ [(1.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /lanindg1 1 def /lanindg2 1 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 (/JE59/ ) 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$ 0 get def /GEY$ EY$ 0 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 JE590-1 from DKB200:[RR.POS]B8010-14.EPS %%BoundingBox: 70 82 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/JE59/) /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:2010030112000) /ModDate (D:2010030112000) /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 %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 6 /Times-ISOL1 FS 72 84 moveto (JE590-1, ) show (Colours in ) showen (Farben in ) showde 6 /TimesI-ISOL1 FS ((x,y) ) show 6 /Times-ISOL1 FS (chromaticity diagram) showen (Farbtafel) showde 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 600 400 translate 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -100 -300 moveto (0,0) show 700 -300 moveto (0,2) show 1500 -300 moveto (0,4) show 2300 -300 moveto (0,6) show 3100 -300 moveto (0,8) show 3900 -300 moveto (1,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -450 -80 moveto (0,0) show -450 720 moveto (0,2) show -450 1520 moveto (0,4) show -450 2320 moveto (0,6) show -450 3120 moveto (0,8) show 350 /TimesI-ISOL1 FS -300 2800 moveto (y) show 350 /TimesI-ISOL1 FS 4200 150 moveto (x) show 300 /TimesI-ISOL1 FS 2600 150 moveto (CIE 1931) show 300 /TimesI-ISOL1 FS 2500 3200 moveto (OYLCVM_D50_W) show 2500 2900 moveto (RJGB_D50) show 2500 2600 moveto (o samples) show -600 -400 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 4000 BEO=02 xy-Farbtafel IXY0: 600 400 600 400 translate 693 19 moveto 693 19 692 19 690 19 curveto 688 19 685 20 681 23 curveto 675 27 667 34 657 43 curveto 644 55 626 70 603 90 curveto 575 118 542 159 496 231 curveto 438 347 365 530 274 802 curveto 181 1179 93 1650 32 2153 curveto 15 2619 55 3000 155 3248 curveto 297 3335 456 3304 618 3223 curveto 771 3126 918 3017 1063 2897 curveto 1206 2769 1349 2635 1492 2497 curveto 1634 2358 1776 2218 1915 2080 curveto 2049 1946 2179 1817 2300 1696 curveto 2411 1585 2508 1489 2592 1405 curveto 2663 1336 2720 1278 2765 1233 curveto 2802 1197 2831 1168 2856 1143 curveto 2876 1123 2892 1107 2903 1096 curveto 2913 1086 2919 1080 2924 1075 curveto 2927 1072 2930 1069 2933 1066 curveto 2936 1063 2937 1062 2938 1061 curveto 2938 1061 2939 1060 2744 971 curveto 2261 748 2040 643 1908 582 curveto 1819 541 1758 512 1708 490 curveto 1660 468 1612 445 1558 420 curveto 1495 391 1419 356 1320 309 curveto 1184 247 986 155 693 19 curveto stroke 1 setgray 693 19 30 0 360 arc fill % 400 681 23 30 0 360 arc fill % 425 626 70 30 0 360 arc fill % 450 438 347 30 0 360 arc fill % 475 32 2153 30 0 360 arc fill % 500 456 3304 30 0 360 arc fill % 525 1206 2769 30 0 360 arc fill % 550 1915 2080 30 0 360 arc fill % 575 2508 1489 30 0 360 arc fill % 600 2802 1197 30 0 360 arc fill % 625 2903 1096 30 0 360 arc fill % 650 2930 1069 30 0 360 arc fill % 675 2938 1061 30 0 360 arc fill % 700 2261 748 30 0 360 arc fill %500c 1708 490 30 0 360 arc fill %525c 1419 356 30 0 360 arc fill %550c 0 setgray 693 19 30 0 360 arc stroke % 400 681 23 30 0 360 arc stroke % 425 626 70 30 0 360 arc stroke % 450 438 347 30 0 360 arc stroke % 475 32 2153 30 0 360 arc stroke % 500 456 3304 30 0 360 arc stroke % 525 1206 2769 30 0 360 arc stroke % 550 1915 2080 30 0 360 arc stroke % 575 2508 1489 30 0 360 arc stroke % 600 2802 1197 30 0 360 arc stroke % 625 2903 1096 30 0 360 arc stroke % 650 2930 1069 30 0 360 arc stroke % 675 2938 1061 30 0 360 arc stroke % 700 2261 748 30 0 360 arc stroke %500c 1708 490 30 0 360 arc stroke %525c 1419 356 30 0 360 arc stroke %550c 1250 1316 30 0 360 arc fill %D65 0 setgray 250 /TimesI-ISOL1 FS 693 375 sub 19 250 sub moveto (400) show % 681 500 sub 23 100 sub moveto (425) show % 626 500 sub 70 100 sub moveto (450) show 438 400 sub 347 225 sub moveto (475) show 32 450 sub 2153 100 sub moveto (500) show 456 100 add 3304 000 add moveto (525) show 1206 100 add 2769 000 add moveto (550) show 1915 100 add 2080 000 add moveto (575) show 2508 100 add 1489 000 add moveto (600) show 2802 100 add 1197 100 add moveto (625) show % 2903 200 sub 1096 100 add moveto (650) show % 2930 200 sub 1069 100 add moveto (675) show 2938 100 add 1061 100 sub moveto (700) show 2261 100 add 748 200 sub moveto (500c) show 1708 100 add 490 200 sub moveto (525c) show 1419 000 add 356 250 sub moveto (550c) show 1250 100 add 1316 100 sub moveto %(D65 ) show -600 -400 translate %ENDE: 1 %1000 02 15 01 16 01 00 JA JA NE 01 ******************** % 15 CR F39RGB_D50_W_JK59.DAT Elementarfbn (x,y,Y), Model 1.3.2010 %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 1CR RGB 600 400 translate 2528 1468 moveto 2528 1468 lineto 1928 2032 lineto 1164 2752 lineto 968 2072 lineto 776 1412 lineto 500 472 lineto 1460 944 lineto 2188 1300 lineto 2528 1468 lineto stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 2CR UNB 600 400 translate 1382 1434 moveto 1382 1434 lineto stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 3O RGB 600 400 translate 1382 1434 moveto 1382 1434 lineto 2528 1468 lineto stroke 1 0 0 setrgbcolor 2528 1468 50 0 360 arc fill 0 setgray 2528 1468 50 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 4Y RGB 600 400 translate 1382 1434 moveto 1382 1434 lineto 1928 2032 lineto stroke 1 1 0 setrgbcolor 1928 2032 50 0 360 arc fill 0 setgray 1928 2032 50 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 5L RGB 600 400 translate 1382 1434 moveto 1382 1434 lineto 1164 2752 lineto stroke 0 1 0 setrgbcolor 1164 2752 50 0 360 arc fill 0 setgray 1164 2752 50 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 6G RGB 600 400 translate 1382 1434 moveto 1382 1434 lineto 968 2072 lineto stroke 0 1 0 setrgbcolor 968 2072 50 0 360 arc fill 0 setgray 968 2072 50 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 7C RGB 600 400 translate 1382 1434 moveto 1382 1434 lineto 776 1412 lineto stroke 0 1 1 setrgbcolor 776 1412 50 0 360 arc fill 0 setgray 776 1412 50 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 8V RGB 600 400 translate 1382 1434 moveto 1382 1434 lineto 500 472 lineto stroke 0 0 1 setrgbcolor 500 472 50 0 360 arc fill 0 setgray 500 472 50 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 9M RGB 600 400 translate 1382 1434 moveto 1382 1434 lineto 1460 944 lineto stroke 1 0 1 setrgbcolor 1460 944 50 0 360 arc fill 0 setgray 1460 944 50 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 10R RGB 600 400 translate 1382 1434 moveto 1382 1434 lineto 2188 1300 lineto stroke 1 0 0 setrgbcolor 2188 1300 50 0 360 arc fill 0 setgray 2188 1300 50 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 11O RGB 600 400 translate 1382 1434 moveto 1382 1434 lineto 2528 1468 lineto stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 12 R 600 400 translate 2392 1275 moveto 2392 1275 lineto 2392 1275 lineto 2392 1275 lineto stroke 1 0 0 setrgbcolor 2392 1275 80 0 360 arc fill 0 setgray 2392 1275 80 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 13 J 600 400 translate 1830 1874 moveto 1830 1874 lineto 1830 1874 lineto 1830 1874 lineto stroke 1 1 0 setrgbcolor 1830 1874 80 0 360 arc fill 0 setgray 1830 1874 80 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 14 G 600 400 translate 1103 1806 moveto 1103 1806 lineto 1103 1806 lineto 1103 1806 lineto stroke 0 1 0 setrgbcolor 1103 1806 80 0 360 arc fill 0 setgray 1103 1806 80 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 15 B 600 400 translate 648 730 moveto 648 730 lineto 648 730 lineto 648 730 lineto stroke 0 0 1 setrgbcolor 648 730 80 0 360 arc fill 0 setgray 648 730 80 0 360 arc stroke -600 -400 translate 600 400 translate 1250 1316 40 0 360 arc fill -600 -400 translate %ENDE: 1 grestore showpage %%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 JE590-2 from DKB200:[RR.POS]B8010-24.EPS %%BoundingBox: 70 82 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/JE59/) /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:2010030112000) /ModDate (D:2010030112000) /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 %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 6 /Times-ISOL1 FS 72 84 moveto (JE590-2, ) show (Colours in ) showen (Farben in ) showde 6 /TimesI-ISOL1 FS ((a,b) ) show 6 /Times-ISOL1 FS (chromaticity diagram) showen (Farbtafel) showde 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath clip 700 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3000 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -350 500 moveto (-0,8) show 550 500 moveto (0,0) show 1350 500 moveto (0,8) show 2150 500 moveto (1,6) show 2950 500 moveto (2,4) show 3750 500 moveto (3,2) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -650 -100 moveto ( 0,0) show -650 -900 moveto (-0,8) show -650 -1700 moveto (-1,6) show -650 -2500 moveto (-2,4) show 350 /TimesI-ISOL1 FS -675 -3050 moveto 20 0 (b) ashow 350 /Times-ISOL1 FS 20 0 (=-0,4) ashow 350 /TimesI-ISOL1 FS 20 0 (z/y) ashow 350 /TimesI-ISOL1 FS 3650 100 moveto 30 0 (a=x/y) ashow -700 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 1500 3200 translate 36136 -68535 moveto 36136 -68535 36234 -68875 35958 -68561 curveto 35610 -68128 33600 -64560 29424 -56936 curveto 24474 -47779 19507 -38551 15143 -30384 curveto 11681 -23927 8847 -18653 6639 -14534 curveto 4846 -11128 3397 -8271 2147 -5661 curveto 1261 -3701 688 -2339 342 -1455 curveto 153 -894 56 -546 15 -336 curveto 5 -208 18 -125 47 -73 curveto 89 -44 138 -28 191 -19 curveto 246 -13 304 -8 366 -5 curveto 435 -3 512 -2 597 -1 curveto 693 -1 800 0 920 0 curveto 1053 0 1198 0 1355 0 curveto 1520 0 1683 0 1844 0 curveto 1993 0 2126 0 2242 0 curveto 2340 0 2424 0 2497 0 curveto 2559 0 2610 0 2649 0 curveto 2680 0 2703 0 2718 0 curveto 2731 0 2741 0 2751 0 curveto 2760 0 2764 0 2767 0 curveto 2769 0 2770 0 2824 -116 curveto 3023 -529 3168 -817 3275 -1036 curveto 3357 -1209 3430 -1349 3482 -1469 curveto 3545 -1597 3622 -1746 3704 -1922 curveto 3817 -2156 3983 -2496 4262 -3058 curveto 4786 -4149 6341 -7346 35775 -67850 curveto stroke 1 setgray 36136 -68535 30 0 360 arc fill % 400 29424 -56936 30 0 360 arc fill % 425 8847 -18653 30 0 360 arc fill % 450 1261 -3701 30 0 360 arc fill % 475 15 -336 30 0 360 arc fill % 500 138 -28 30 0 360 arc fill % 525 435 -3 30 0 360 arc fill % 550 920 0 30 0 360 arc fill % 575 1683 0 30 0 360 arc fill % 600 2340 0 30 0 360 arc fill % 625 2649 0 30 0 360 arc fill % 650 2741 0 30 0 360 arc fill % 675 2769 0 30 0 360 arc fill % 700 3023 -529 30 0 360 arc fill %500c 3482 -1469 30 0 360 arc fill %525c 3983 -2496 30 0 360 arc fill %550c 0 setgray 36136 -68535 30 0 360 arc stroke % 400 29424 -56936 30 0 360 arc stroke % 425 8847 -18653 30 0 360 arc stroke % 450 1261 -3701 30 0 360 arc stroke % 475 15 -336 30 0 360 arc stroke % 500 138 -28 30 0 360 arc stroke % 525 435 -3 30 0 360 arc stroke % 550 920 0 30 0 360 arc stroke % 575 1683 0 30 0 360 arc stroke % 600 2340 0 30 0 360 arc stroke % 625 2649 0 30 0 360 arc stroke % 650 2741 0 30 0 360 arc stroke % 675 2769 0 30 0 360 arc stroke % 700 3023 -529 30 0 360 arc stroke %500c 3482 -1469 30 0 360 arc stroke %525c 3983 -2496 30 0 360 arc stroke %550c 950 -435 30 0 360 arc fill %D65 0 setgray 250 /TimesI-ISOL1 FS % 36136 500 sub -68535 100 sub moveto (400) show % 29424 500 sub -56936 100 sub moveto (425) show % 8847 500 sub -18653 100 sub moveto (450) show % 1261 500 sub -3701 100 sub moveto (475) show 15 500 sub -336 100 sub moveto (500) show % 138 200 sub -28 100 add moveto (525) show 435 200 sub -3 100 add moveto (550) show 920 200 sub 0 100 add moveto (575) show 1683 200 sub 0 100 add moveto (600) show 2340 200 sub 0 100 add moveto (625) show % 2649 200 sub 0 100 add moveto (650) show % 2741 200 sub 0 100 add moveto (675) show 2769 100 add 0 150 sub moveto (700) show 3023 100 add -529 100 sub moveto (500c) show % 3482 100 add -1469 200 add moveto (525c) show % 3983 100 add -2496 100 sub moveto (550c) show 950 100 add -435 100 sub moveto %(D65 ) show -1500 -3200 translate %ENDE: 2 %1000 02 15 01 16 01 00 JA JA NE 01 ******************** % 15 CR F39RGB_D50_W_JK59.DAT Elementarfbn (x,y,Y), Model 1.3.2010 %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 1CR RGB 1500 3200 translate 1722 -1 moveto 1722 -1 lineto 948 -7 lineto 422 -12 lineto 467 -185 lineto 549 -513 lineto 1059 -2566 lineto 1546 -676 lineto 1683 -157 lineto 1722 -1 lineto stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 2CR UNB 1500 3200 translate 964 -330 moveto 964 -330 lineto stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 3O RGB 1500 3200 translate 964 -330 moveto 964 -330 lineto 1722 -1 lineto stroke 1 0 0 setrgbcolor 1722 -1 50 0 360 arc fill 0 setgray 1722 -1 50 0 360 arc stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 4Y RGB 1500 3200 translate 964 -330 moveto 964 -330 lineto 948 -7 lineto stroke 1 1 0 setrgbcolor 948 -7 50 0 360 arc fill 0 setgray 948 -7 50 0 360 arc stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 5L RGB 1500 3200 translate 964 -330 moveto 964 -330 lineto 422 -12 lineto stroke 0 1 0 setrgbcolor 422 -12 50 0 360 arc fill 0 setgray 422 -12 50 0 360 arc stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 6G RGB 1500 3200 translate 964 -330 moveto 964 -330 lineto 467 -185 lineto stroke 0 1 0 setrgbcolor 467 -185 50 0 360 arc fill 0 setgray 467 -185 50 0 360 arc stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 7C RGB 1500 3200 translate 964 -330 moveto 964 -330 lineto 549 -513 lineto stroke 0 1 1 setrgbcolor 549 -513 50 0 360 arc fill 0 setgray 549 -513 50 0 360 arc stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 8V RGB 1500 3200 translate 964 -330 moveto 964 -330 lineto 1059 -2566 lineto stroke 0 0 1 setrgbcolor 1059 -2566 50 0 360 arc fill 0 setgray 1059 -2566 50 0 360 arc stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 9M RGB 1500 3200 translate 964 -330 moveto 964 -330 lineto 1546 -676 lineto stroke 1 0 1 setrgbcolor 1546 -676 50 0 360 arc fill 0 setgray 1546 -676 50 0 360 arc stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 10R RGB 1500 3200 translate 964 -330 moveto 964 -330 lineto 1683 -157 lineto stroke 1 0 0 setrgbcolor 1683 -157 50 0 360 arc fill 0 setgray 1683 -157 50 0 360 arc stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 11O RGB 1500 3200 translate 964 -330 moveto 964 -330 lineto 1722 -1 lineto stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 12 R 1500 3200 translate 1876 -104 moveto 1876 -104 lineto 1876 -104 lineto 1876 -104 lineto stroke 1 0 0 setrgbcolor 1876 -104 80 0 360 arc fill 0 setgray 1876 -104 80 0 360 arc stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 13 J 1500 3200 translate 976 -63 moveto 976 -63 lineto 976 -63 lineto 976 -63 lineto stroke 1 1 0 setrgbcolor 976 -63 80 0 360 arc fill 0 setgray 976 -63 80 0 360 arc stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 14 G 1500 3200 translate 611 -241 moveto 611 -241 lineto 611 -241 lineto 611 -241 lineto stroke 0 1 0 setrgbcolor 611 -241 80 0 360 arc fill 0 setgray 611 -241 80 0 360 arc stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 15 B 1500 3200 translate 888 -1436 moveto 888 -1436 lineto 888 -1436 lineto 888 -1436 lineto stroke 0 0 1 setrgbcolor 888 -1436 80 0 360 arc fill 0 setgray 888 -1436 80 0 360 arc stroke -1500 -3200 translate 1500 3200 translate 950 -435 40 0 360 arc fill -1500 -3200 translate %ENDE: 2 %END-35 %END-34 %Platz für Text 700 3200 translate 1 setgray 2733 -3100 moveto 1800 0 rlineto 0 1200 rlineto -1800 0 rlineto closepath fill 0 setgray 2733 -3100 moveto 1800 0 rlineto 0 1200 rlineto -1800 0 rlineto closepath stroke 250 /TimesI-ISOL1 FS 2800 -2150 moveto (OYLCVM_D50_W) show 250 /TimesI-ISOL1 FS 2800 -2400 moveto 20 0 (a=x/y) ashow 2800 -2700 moveto 20 0 (b) ashow 250 /Times-ISOL1 FS 20 0 (=-0,40) ashow 250 /TimesI-ISOL1 FS 20 0 (z/y) ashow 300 /TimesI-ISOL1 FS 2800 -3050 moveto (LAB 1977) show -700 -3200 translate %Platz ACHTUNG Kurvenüberschreibung grestore showpage %%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 JE590-3 from DKB200:[RR.POS]B8010-34.EPS %%BoundingBox: 70 82 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/JE59/) /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:2010030112000) /ModDate (D:2010030112000) /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 %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 6 /Times-ISOL1 FS 72 84 moveto (JE590-3, ) show (Colours in ) showen (Farben in ) showde 6 /TimesI-ISOL1 FS ((a',b') ) show 6 /Times-ISOL1 FS (colour diagram) showen (Farbarttafel) showde 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath clip 800 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -2100 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 400 350 moveto 0 100 rlineto stroke 1200 350 moveto 0 100 rlineto stroke 2000 350 moveto 0 100 rlineto stroke 2800 350 moveto 0 100 rlineto stroke 3600 350 moveto 0 100 rlineto stroke 100 500 moveto (0,06) show 900 500 moveto (0,12) show 1700 500 moveto (0,18) show 2500 500 moveto (0,24) show 3300 500 moveto (0,30) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke % -50 -2400 moveto 100 0 rlineto stroke % -50 -3200 moveto 100 0 rlineto stroke -775 -100 moveto ( 0,00) show -775 -900 moveto (-0,06) show -775 -1700 moveto (-0,12) show % -775 -2500 moveto (-0,18) show 350 /TimesI-ISOL1 FS -580 -1300 moveto (b') show 350 /TimesI-ISOL1 FS 4100 250 moveto (a') show -800 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 400 3200 translate 9657 -6202 moveto 9657 -6202 9666 -6212 9642 -6203 curveto 9610 -6190 9426 -6080 9018 -5830 curveto 8481 -5499 7863 -5120 7227 -4729 curveto 6628 -4367 6041 -4019 5490 -3698 curveto 4943 -3383 4391 -3065 3769 -2701 curveto 3156 -2344 2578 -2012 2043 -1717 curveto 1565 -1460 1123 -1239 723 -1054 curveto 527 -898 772 -759 1060 -634 curveto 1304 -535 1510 -464 1685 -408 curveto 1832 -356 1965 -309 2091 -267 curveto 2214 -230 2337 -200 2460 -176 curveto 2585 -157 2712 -145 2841 -139 curveto 2972 -138 3103 -133 3233 -126 curveto 3359 -126 3475 -120 3582 -113 curveto 3676 -98 3756 -91 3823 -88 curveto 3878 -75 3924 -64 3963 -57 curveto 3995 -54 4022 -46 4042 0 curveto 4057 0 4069 0 4077 0 curveto 4083 0 4088 0 4093 0 curveto 4097 0 4100 0 4101 0 curveto 4102 0 4103 0 4129 -740 curveto 4224 -1226 4290 -1417 4338 -1533 curveto 4374 -1614 4405 -1674 4427 -1723 curveto 4454 -1771 4486 -1825 4520 -1884 curveto 4565 -1958 4630 -2056 4736 -2200 curveto 4923 -2435 5407 -2946 9625 -6181 curveto stroke 1 setgray 9657 -6202 30 0 360 arc fill % 400 9018 -5830 30 0 360 arc fill % 425 6041 -4019 30 0 360 arc fill % 450 3156 -2344 30 0 360 arc fill % 475 723 -1054 30 0 360 arc fill % 500 1510 -464 30 0 360 arc fill % 525 2214 -230 30 0 360 arc fill % 550 2841 -139 30 0 360 arc fill % 575 3475 -120 30 0 360 arc fill % 600 3878 -75 30 0 360 arc fill % 625 4042 0 30 0 360 arc fill % 650 4088 0 30 0 360 arc fill % 675 4102 0 30 0 360 arc fill % 700 4224 -1226 30 0 360 arc fill %500c 4427 -1723 30 0 360 arc fill %525c 4630 -2056 30 0 360 arc fill %550c 0 setgray 9657 -6202 30 0 360 arc stroke % 400 9018 -5830 30 0 360 arc stroke % 425 6041 -4019 30 0 360 arc stroke % 450 3156 -2344 30 0 360 arc stroke % 475 723 -1054 30 0 360 arc stroke % 500 1510 -464 30 0 360 arc stroke % 525 2214 -230 30 0 360 arc stroke % 550 2841 -139 30 0 360 arc stroke % 575 3475 -120 30 0 360 arc stroke % 600 3878 -75 30 0 360 arc stroke % 625 4042 0 30 0 360 arc stroke % 650 4088 0 30 0 360 arc stroke % 675 4102 0 30 0 360 arc stroke % 700 4224 -1226 30 0 360 arc stroke %500c 4427 -1723 30 0 360 arc stroke %525c 4630 -2056 30 0 360 arc stroke %550c 2872 -1148 30 0 360 arc fill %D65 0 setgray 250 /TimesI-ISOL1 FS % 9657 500 sub -6202 100 sub moveto (400) show % 9018 500 sub -5830 100 sub moveto (425) show % 6041 500 sub -4019 100 sub moveto (450) show 3156 500 sub -2344 200 sub moveto (475) show 723 500 sub -1054 300 sub moveto (500) show 1510 200 sub -464 150 add moveto (525) show 2214 200 sub -230 100 add moveto (550) show 2841 200 sub -139 100 add moveto (575) show 3475 200 sub -120 100 add moveto (600) show % 3878 200 sub -75 100 add moveto (625) show % 4042 200 sub 0 100 add moveto (650) show % 4088 200 sub 0 100 add moveto (675) show 4102 100 add 0 100 sub moveto (700) show 4224 100 add -1226 000 sub moveto (500c) show 4427 100 add -1723 100 add moveto (525c) show % 4630 100 add -2056 100 sub moveto (550c) show 2872 100 add -1148 100 sub moveto %(D65 ) show -400 -3200 translate %ENDE: 3 %1000 02 15 01 16 01 00 JA JA NE 01 ******************** % 15 CR F39RGB_D50_W_JK59.DAT Elementarfbn (x,y,Y), Model 1.3.2010 %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 1CR RGB 400 3200 translate 3501 -155 moveto 3501 -155 lineto 2870 -301 lineto 2192 -349 lineto 2266 -864 lineto 2392 -1213 lineto 2977 -2075 lineto 3378 -1330 lineto 3474 -818 lineto 3501 -155 lineto stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 2CR UNB 400 3200 translate 2886 -1047 moveto 2886 -1047 lineto stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 3O RGB 400 3200 translate 2886 -1047 moveto 2886 -1047 lineto 3501 -155 lineto stroke 1 0 0 setrgbcolor 3501 -155 50 0 360 arc fill 0 setgray 3501 -155 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 4Y RGB 400 3200 translate 2886 -1047 moveto 2886 -1047 lineto 2870 -301 lineto stroke 1 1 0 setrgbcolor 2870 -301 50 0 360 arc fill 0 setgray 2870 -301 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 5L RGB 400 3200 translate 2886 -1047 moveto 2886 -1047 lineto 2192 -349 lineto stroke 0 1 0 setrgbcolor 2192 -349 50 0 360 arc fill 0 setgray 2192 -349 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 6G RGB 400 3200 translate 2886 -1047 moveto 2886 -1047 lineto 2266 -864 lineto stroke 0 1 0 setrgbcolor 2266 -864 50 0 360 arc fill 0 setgray 2266 -864 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 7C RGB 400 3200 translate 2886 -1047 moveto 2886 -1047 lineto 2392 -1213 lineto stroke 0 1 1 setrgbcolor 2392 -1213 50 0 360 arc fill 0 setgray 2392 -1213 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 8V RGB 400 3200 translate 2886 -1047 moveto 2886 -1047 lineto 2977 -2075 lineto stroke 0 0 1 setrgbcolor 2977 -2075 50 0 360 arc fill 0 setgray 2977 -2075 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 9M RGB 400 3200 translate 2886 -1047 moveto 2886 -1047 lineto 3378 -1330 lineto stroke 1 0 1 setrgbcolor 3378 -1330 50 0 360 arc fill 0 setgray 3378 -1330 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 10R RGB 400 3200 translate 2886 -1047 moveto 2886 -1047 lineto 3474 -818 lineto stroke 1 0 0 setrgbcolor 3474 -818 50 0 360 arc fill 0 setgray 3474 -818 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 11O RGB 400 3200 translate 2886 -1047 moveto 2886 -1047 lineto 3501 -155 lineto stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 12 R 400 3200 translate 3603 -713 moveto 3603 -713 lineto 3603 -713 lineto 3603 -713 lineto stroke 1 0 0 setrgbcolor 3603 -713 80 0 360 arc fill 0 setgray 3603 -713 80 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 13 J 400 3200 translate 2898 -603 moveto 2898 -603 lineto 2898 -603 lineto 2898 -603 lineto stroke 1 1 0 setrgbcolor 2898 -603 80 0 360 arc fill 0 setgray 2898 -603 80 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 14 G 400 3200 translate 2478 -943 moveto 2478 -943 lineto 2478 -943 lineto 2478 -943 lineto stroke 0 1 0 setrgbcolor 2478 -943 80 0 360 arc fill 0 setgray 2478 -943 80 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 15 B 400 3200 translate 2808 -1710 moveto 2808 -1710 lineto 2808 -1710 lineto 2808 -1710 lineto stroke 0 0 1 setrgbcolor 2808 -1710 80 0 360 arc fill 0 setgray 2808 -1710 80 0 360 arc stroke -400 -3200 translate 400 3200 translate 2872 -1148 40 0 360 arc fill -400 -3200 translate %ENDE: 3 %END-48 %END-47 %Platz für Text 800 3200 translate 1 setgray -700 -3100 moveto 2450 0 rlineto 0 1300 rlineto -2450 0 rlineto closepath fill 0 setgray -700 -3100 moveto 2450 0 rlineto 0 1300 rlineto -2450 0 rlineto closepath stroke 300 /TimesI-ISOL1 FS -650 -2050 moveto (OYLCVM_D50_W) show 250 /TimesI-ISOL1 FS -650 -2350 moveto 20 0 (a') ashow 250 /Times-ISOL1 FS 20 0 (=0,2191[) ashow 250 /TimesI-ISOL1 FS 20 0 (x/y) ashow 250 /Times-ISOL1 FS 20 0 (]) ashow 200 /Times-ISOL1 FS 0 120 rmoveto 20 0 (1/3) ashow 0 -120 rmoveto 250 /TimesI-ISOL1 FS -650 -2700 moveto 20 0 (b') ashow 250 /Times-ISOL1 FS 20 0 (=-0,08376[) ashow 250 /TimesI-ISOL1 FS 20 0 (z/y) ashow 250 /Times-ISOL1 FS 20 0 (]) ashow 200 /Times-ISOL1 FS 0 120 rmoveto 20 0 (1/3) ashow 0 -120 rmoveto 300 /TimesI-ISOL1 FS -650 -3050 moveto (CIELAB 1976) show -800 -3200 translate %Platz ACHTUNG Kurvenüberschreibung grestore showpage %%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 JE590-4 from DKB200:[RR.POS]B8010-44.EPS %%BoundingBox: 70 82 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/JE59/) /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:2010030112000) /ModDate (D:2010030112000) /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 %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 6 /Times-ISOL1 FS 72 84 moveto (JE590-4, ) show (Colours in ) showen (Farben in ) showde 6 /TimesI-ISOL1 FS ((a',b') ) show 6 /Times-ISOL1 FS (colour diagram) showen (Farbarttafel) showde 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath clip 800 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -2100 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 400 350 moveto 0 100 rlineto stroke 1200 350 moveto 0 100 rlineto stroke 2000 350 moveto 0 100 rlineto stroke 2800 350 moveto 0 100 rlineto stroke 3600 350 moveto 0 100 rlineto stroke 100 500 moveto (0,12) show 900 500 moveto (0,18) show 1700 500 moveto (0,24) show 2500 500 moveto (0,30) show 3300 500 moveto (0,36) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 400 moveto 100 0 rlineto stroke -50 -400 moveto 100 0 rlineto stroke -50 -1200 moveto 100 0 rlineto stroke % -50 -2000 moveto 100 0 rlineto stroke % -50 -2800 moveto 100 0 rlineto stroke -775 300 moveto ( 0,00) show -775 -500 moveto (-0,06) show -775 -1300 moveto (-0,12) show %-775 -2100 moveto (-0,18) show 350 /TimesI-ISOL1 FS -580 -1650 moveto (b') show 350 /TimesI-ISOL1 FS 4100 300 moveto (a') show -800 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA=13333 BEO=02 LABHNU 1977 IXY0: -400 3600 -400 3600 translate 11036 -6173 moveto 11036 -6173 11046 -6183 11018 -6173 curveto 10983 -6160 10773 -6051 10309 -5803 curveto 9699 -5474 8998 -5097 8276 -4708 curveto 7598 -4349 6937 -4004 6316 -3685 curveto 5704 -3373 5091 -3057 4409 -2698 curveto 3754 -2346 3163 -2020 2661 -1734 curveto 2281 -1488 2022 -1281 1888 -1114 curveto 1855 -980 1899 -870 1995 -783 curveto 2115 -724 2243 -689 2368 -666 curveto 2483 -648 2593 -636 2703 -627 curveto 2814 -622 2929 -618 3047 -616 curveto 3169 -614 3296 -614 3427 -613 curveto 3561 -613 3697 -613 3834 -613 curveto 3968 -613 4091 -612 4207 -612 curveto 4308 -612 4395 -612 4468 -612 curveto 4528 -611 4578 -611 4620 -611 curveto 4656 -611 4685 -611 4707 -611 curveto 4724 -611 4736 -611 4745 -611 curveto 4752 -611 4757 -611 4763 -611 curveto 4767 -611 4770 -611 4772 -611 curveto 4772 -611 4773 -611 4802 -856 curveto 4906 -1269 4979 -1447 5032 -1558 curveto 5072 -1635 5107 -1693 5131 -1739 curveto 5161 -1787 5196 -1838 5233 -1896 curveto 5284 -1968 5356 -2063 5474 -2204 curveto 5681 -2436 6223 -2940 11000 -6152 curveto stroke 1 setgray 11036 -6173 30 0 360 arc fill % 400 10309 -5803 30 0 360 arc fill % 425 6937 -4004 30 0 360 arc fill % 450 3754 -2346 30 0 360 arc fill % 475 1888 -1114 30 0 360 arc fill % 500 2243 -689 30 0 360 arc fill % 525 2814 -622 30 0 360 arc fill % 550 3427 -613 30 0 360 arc fill % 575 4091 -612 30 0 360 arc fill % 600 4528 -611 30 0 360 arc fill % 625 4707 -611 30 0 360 arc fill % 650 4757 -611 30 0 360 arc fill % 675 4772 -611 30 0 360 arc fill % 700 4906 -1269 30 0 360 arc fill %500c 5131 -1739 30 0 360 arc fill %525c 5356 -2063 30 0 360 arc fill %550c 0 setgray 11036 -6173 30 0 360 arc stroke % 400 10309 -5803 30 0 360 arc stroke % 425 6937 -4004 30 0 360 arc stroke % 450 3754 -2346 30 0 360 arc stroke % 475 1888 -1114 30 0 360 arc stroke % 500 2243 -689 30 0 360 arc stroke % 525 2814 -622 30 0 360 arc stroke % 550 3427 -613 30 0 360 arc stroke % 575 4091 -612 30 0 360 arc stroke % 600 4528 -611 30 0 360 arc stroke % 625 4707 -611 30 0 360 arc stroke % 650 4757 -611 30 0 360 arc stroke % 675 4772 -611 30 0 360 arc stroke % 700 4906 -1269 30 0 360 arc stroke %500c 5131 -1739 30 0 360 arc stroke %525c 5356 -2063 30 0 360 arc stroke %550c 3458 -1198 30 0 360 arc fill %D65 0 setgray 250 /TimesI-ISOL1 FS % 11036 500 sub -6173 100 sub moveto (400) show % 10309 500 sub -5803 100 sub moveto (425) show % 6937 500 sub -4004 100 sub moveto (450) show 3754 450 sub -2346 100 sub moveto (475) show 1888 450 sub -1114 100 sub moveto (500) show 2243 250 sub -689 100 add moveto (525) show 2814 200 sub -622 100 add moveto (550) show 3427 200 sub -613 100 add moveto (575) show 4091 200 sub -612 100 add moveto (600) show 4528 200 sub -611 100 add moveto (625) show % 4707 200 sub -611 100 add moveto (650) show % 4757 200 sub -611 100 add moveto (675) show 4772 100 add -611 000 sub moveto (700) show 4906 100 add -1269 100 sub moveto (500c) show 5131 050 add -1739 50 add moveto (525c) show % 5356 100 add -2063 100 sub moveto (550c) show 3458 100 add -1198 100 sub moveto %(D65 ) show 400 -3600 translate %ENDE: 4 %1000 02 15 01 16 01 00 JA JA NE 01 ******************** % 15 CR F39RGB_D50_W_JK59.DAT Elementarfbn (x,y,Y), Model 1.3.2010 %ANF FANxyal3: MULYA=13333 BEO=02 LABHNU 1977 IXY0: -400 3600 1CR RGB -400 3600 translate 4120 -614 moveto 4120 -614 lineto 3456 -634 lineto 2795 -646 lineto 2863 -952 lineto 2982 -1257 lineto 3567 -2082 lineto 3988 -1365 lineto 4091 -916 lineto 4120 -614 lineto stroke 400 -3600 translate %ANF FANxyal3: MULYA=13333 BEO=02 LABHNU 1977 IXY0: -400 3600 2CR UNB -400 3600 translate 3472 -1108 moveto 3472 -1108 lineto stroke 400 -3600 translate %ANF FANxyal3: MULYA=13333 BEO=02 LABHNU 1977 IXY0: -400 3600 3O RGB -400 3600 translate 3472 -1108 moveto 3472 -1108 lineto 4120 -614 lineto stroke 1 0 0 setrgbcolor 4120 -614 50 0 360 arc fill 0 setgray 4120 -614 50 0 360 arc stroke 400 -3600 translate %ANF FANxyal3: MULYA=13333 BEO=02 LABHNU 1977 IXY0: -400 3600 4Y RGB -400 3600 translate 3472 -1108 moveto 3472 -1108 lineto 3456 -634 lineto stroke 1 1 0 setrgbcolor 3456 -634 50 0 360 arc fill 0 setgray 3456 -634 50 0 360 arc stroke 400 -3600 translate %ANF FANxyal3: MULYA=13333 BEO=02 LABHNU 1977 IXY0: -400 3600 5L RGB -400 3600 translate 3472 -1108 moveto 3472 -1108 lineto 2795 -646 lineto stroke 0 1 0 setrgbcolor 2795 -646 50 0 360 arc fill 0 setgray 2795 -646 50 0 360 arc stroke 400 -3600 translate %ANF FANxyal3: MULYA=13333 BEO=02 LABHNU 1977 IXY0: -400 3600 6G RGB -400 3600 translate 3472 -1108 moveto 3472 -1108 lineto 2863 -952 lineto stroke 0 1 0 setrgbcolor 2863 -952 50 0 360 arc fill 0 setgray 2863 -952 50 0 360 arc stroke 400 -3600 translate %ANF FANxyal3: MULYA=13333 BEO=02 LABHNU 1977 IXY0: -400 3600 7C RGB -400 3600 translate 3472 -1108 moveto 3472 -1108 lineto 2982 -1257 lineto stroke 0 1 1 setrgbcolor 2982 -1257 50 0 360 arc fill 0 setgray 2982 -1257 50 0 360 arc stroke 400 -3600 translate %ANF FANxyal3: MULYA=13333 BEO=02 LABHNU 1977 IXY0: -400 3600 8V RGB -400 3600 translate 3472 -1108 moveto 3472 -1108 lineto 3567 -2082 lineto stroke 0 0 1 setrgbcolor 3567 -2082 50 0 360 arc fill 0 setgray 3567 -2082 50 0 360 arc stroke 400 -3600 translate %ANF FANxyal3: MULYA=13333 BEO=02 LABHNU 1977 IXY0: -400 3600 9M RGB -400 3600 translate 3472 -1108 moveto 3472 -1108 lineto 3988 -1365 lineto stroke 1 0 1 setrgbcolor 3988 -1365 50 0 360 arc fill 0 setgray 3988 -1365 50 0 360 arc stroke 400 -3600 translate %ANF FANxyal3: MULYA=13333 BEO=02 LABHNU 1977 IXY0: -400 3600 10R RGB -400 3600 translate 3472 -1108 moveto 3472 -1108 lineto 4091 -916 lineto stroke 1 0 0 setrgbcolor 4091 -916 50 0 360 arc fill 0 setgray 4091 -916 50 0 360 arc stroke 400 -3600 translate %ANF FANxyal3: MULYA=13333 BEO=02 LABHNU 1977 IXY0: -400 3600 11O RGB -400 3600 translate 3472 -1108 moveto 3472 -1108 lineto 4120 -614 lineto stroke 400 -3600 translate %ANF FANxyal3: MULYA=13333 BEO=02 LABHNU 1977 IXY0: -400 3600 12 R -400 3600 translate 4229 -836 moveto 4229 -836 lineto 4229 -836 lineto 4229 -836 lineto stroke 1 0 0 setrgbcolor 4229 -836 80 0 360 arc fill 0 setgray 4229 -836 80 0 360 arc stroke 400 -3600 translate %ANF FANxyal3: MULYA=13333 BEO=02 LABHNU 1977 IXY0: -400 3600 13 J -400 3600 translate 3485 -763 moveto 3485 -763 lineto 3485 -763 lineto 3485 -763 lineto stroke 1 1 0 setrgbcolor 3485 -763 80 0 360 arc fill 0 setgray 3485 -763 80 0 360 arc stroke 400 -3600 translate %ANF FANxyal3: MULYA=13333 BEO=02 LABHNU 1977 IXY0: -400 3600 14 G -400 3600 translate 3065 -1018 moveto 3065 -1018 lineto 3065 -1018 lineto 3065 -1018 lineto stroke 0 1 0 setrgbcolor 3065 -1018 80 0 360 arc fill 0 setgray 3065 -1018 80 0 360 arc stroke 400 -3600 translate %ANF FANxyal3: MULYA=13333 BEO=02 LABHNU 1977 IXY0: -400 3600 15 B -400 3600 translate 3393 -1727 moveto 3393 -1727 lineto 3393 -1727 lineto 3393 -1727 lineto stroke 0 0 1 setrgbcolor 3393 -1727 80 0 360 arc fill 0 setgray 3393 -1727 80 0 360 arc stroke 400 -3600 translate -400 3600 translate 3458 -1198 40 0 360 arc fill 400 -3600 translate %ENDE: 4 %END-48 %Platz für Text 800 3200 translate 1 setgray -700 -3100 moveto 2600 0 rlineto 0 1300 rlineto -2600 0 rlineto closepath fill 0 setgray -700 -3100 moveto 2600 0 rlineto 0 1300 rlineto -2600 0 rlineto closepath stroke 300 /TimesI-ISOL1 FS -650 -2050 moveto (OYLCVM_D50_W) show 250 /TimesI-ISOL1 FS -650 -2350 moveto 20 0 (a') ashow 250 /Times-ISOL1 FS 20 0 (=1/4[) ashow 250 /TimesI-ISOL1 FS 20 0 (x/y) ashow 250 /Times-ISOL1 FS 20 0 (+1/6]) ashow 200 /Times-ISOL1 FS 0 120 rmoveto 20 0 (1/3) ashow 0 -120 rmoveto 250 /TimesI-ISOL1 FS -650 -2700 moveto 20 0 (b') ashow 250 /Times-ISOL1 FS 20 0 (=-1/12[) ashow 250 /TimesI-ISOL1 FS 20 0 (z/y) ashow 250 /Times-ISOL1 FS 20 0 (+1/6]) ashow 200 /Times-ISOL1 FS 0 120 rmoveto 20 0 (1/3) ashow 0 -120 rmoveto 300 /TimesI-ISOL1 FS -650 -3050 moveto (LABHNU 1977) show -800 -3200 translate %Platz ACHTUNG Kurvenüberschreibung grestore showpage %%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 JE590-5 from DKB200:[RR.POS]B8010-54.EPS %%BoundingBox: 70 82 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/JE59/) /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:2010030112000) /ModDate (D:2010030112000) /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 %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 6 /Times-ISOL1 FS 72 84 moveto (JE590-5, ) show (Colours in ) showen (Farben in ) showde 6 /TimesI-ISOL1 FS ((a',b') ) show 6 /Times-ISOL1 FS (colour diagram) showen (Farbarttafel) showde 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath clip 800 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -2100 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 400 350 moveto 0 100 rlineto stroke 1200 350 moveto 0 100 rlineto stroke 2000 350 moveto 0 100 rlineto stroke 2800 350 moveto 0 100 rlineto stroke 3600 350 moveto 0 100 rlineto stroke 100 500 moveto (0,05) show 900 500 moveto (0,10) show 1700 500 moveto (0,15) show 2500 500 moveto (0,20) show 3300 500 moveto (0,25) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 400 moveto 100 0 rlineto stroke -50 -400 moveto 100 0 rlineto stroke -50 -1200 moveto 100 0 rlineto stroke % -50 -2000 moveto 100 0 rlineto stroke % -50 -2800 moveto 100 0 rlineto stroke -775 300 moveto ( 0,00) show -775 -500 moveto (-0,05) show -775 -1300 moveto (-0,10) show % -775 -2100 moveto (-0,15) show 350 /TimesI-ISOL1 FS -580 -1650 moveto (b') show 350 /TimesI-ISOL1 FS 4000 200 moveto (a') show -800 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA=16000 BEO=02 LABHNU2 1979 IXY0: 400 3600 400 3600 translate 39612 -7407 moveto 39612 -7407 39716 -7420 39422 -7408 curveto 39050 -7393 36906 -7261 32452 -6964 curveto 27172 -6569 21874 -6116 17219 -5650 curveto 13526 -5219 10503 -4804 8148 -4422 curveto 6236 -4048 4691 -3669 3357 -3237 curveto 2412 -2815 1800 -2424 1431 -2081 curveto 1230 -1785 1127 -1537 1082 -1337 curveto 1072 -1177 1086 -1044 1117 -939 curveto 1161 -869 1214 -827 1271 -799 curveto 1329 -778 1391 -763 1458 -753 curveto 1531 -746 1612 -742 1703 -739 curveto 1806 -737 1920 -736 2048 -736 curveto 2190 -736 2345 -736 2512 -735 curveto 2688 -735 2862 -735 3034 -735 curveto 3192 -734 3335 -734 3458 -734 curveto 3563 -734 3652 -734 3730 -733 curveto 3796 -733 3851 -733 3892 -733 curveto 3925 -733 3950 -733 3966 -733 curveto 3980 -733 3990 -733 4001 -733 curveto 4010 -733 4015 -733 4018 -733 curveto 4020 -733 4022 -733 4079 -1028 curveto 4291 -1523 4445 -1736 4560 -1869 curveto 4648 -1962 4726 -2031 4781 -2087 curveto 4849 -2144 4930 -2206 5018 -2275 curveto 5138 -2361 5315 -2476 5613 -2645 curveto 6172 -2923 7830 -3528 39226 -7383 curveto stroke 1 setgray 39612 -7407 30 0 360 arc fill % 400 32452 -6964 30 0 360 arc fill % 425 10503 -4804 30 0 360 arc fill % 450 2412 -2815 30 0 360 arc fill % 475 1082 -1337 30 0 360 arc fill % 500 1214 -827 30 0 360 arc fill % 525 1531 -746 30 0 360 arc fill % 550 2048 -736 30 0 360 arc fill % 575 2862 -735 30 0 360 arc fill % 600 3563 -734 30 0 360 arc fill % 625 3892 -733 30 0 360 arc fill % 650 3990 -733 30 0 360 arc fill % 675 4020 -733 30 0 360 arc fill % 700 4291 -1523 30 0 360 arc fill %500c 4781 -2087 30 0 360 arc fill %525c 5315 -2476 30 0 360 arc fill %550c 0 setgray 39612 -7407 30 0 360 arc stroke % 400 32452 -6964 30 0 360 arc stroke % 425 10503 -4804 30 0 360 arc stroke % 450 2412 -2815 30 0 360 arc stroke % 475 1082 -1337 30 0 360 arc stroke % 500 1214 -827 30 0 360 arc stroke % 525 1531 -746 30 0 360 arc stroke % 550 2048 -736 30 0 360 arc stroke % 575 2862 -735 30 0 360 arc stroke % 600 3563 -734 30 0 360 arc stroke % 625 3892 -733 30 0 360 arc stroke % 650 3990 -733 30 0 360 arc stroke % 675 4020 -733 30 0 360 arc stroke % 700 4291 -1523 30 0 360 arc stroke %500c 4781 -2087 30 0 360 arc stroke %525c 5315 -2476 30 0 360 arc stroke %550c 2080 -1438 30 0 360 arc fill %D65 0 setgray 250 /TimesI-ISOL1 FS % 39612 500 sub -7407 100 sub moveto (400) show % 32452 500 sub -6964 100 sub moveto (425) show % 10503 500 sub -4804 100 sub moveto (450) show 2412 450 sub -2815 100 sub moveto (475) show 1082 450 sub -1337 50 sub moveto (500) show 1214 300 sub -827 100 add moveto (525) show 1531 200 sub -746 100 add moveto (550) show 2048 200 sub -736 100 add moveto (575) show 2862 200 sub -735 100 add moveto (600) show 3563 200 sub -734 100 add moveto (625) show % 3892 200 sub -733 100 add moveto (650) show % 3990 200 sub -733 100 add moveto (675) show 4020 100 add -733 000 sub moveto (700) show 4291 100 add -1523 50 sub moveto (500c) show 4781 100 add -2087 100 sub moveto (525c) show % 5315 100 add -2476 100 sub moveto (550c) show % 2080 100 add -1438 100 sub moveto %(D65 ) show -400 -3600 translate %ENDE: 5 %1000 02 15 01 16 01 00 JA JA NE 01 ******************** % 15 CR F39RGB_D50_W_JK59.DAT Elementarfbn (x,y,Y), Model 1.3.2010 %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 1CR RGB 400 3600 translate 2903 -737 moveto 2903 -737 lineto 2078 -761 lineto 1517 -776 lineto 1564 -1143 lineto 1652 -1509 lineto 2196 -2498 lineto 2716 -1638 lineto 2861 -1099 lineto 2903 -737 lineto stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 2CR UNB 400 3600 translate 2095 -1329 moveto 2095 -1329 lineto stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 3O RGB 400 3600 translate 2095 -1329 moveto 2095 -1329 lineto 2903 -737 lineto stroke 1 0 0 setrgbcolor 2903 -737 50 0 360 arc fill 0 setgray 2903 -737 50 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 4Y RGB 400 3600 translate 2095 -1329 moveto 2095 -1329 lineto 2078 -761 lineto stroke 1 1 0 setrgbcolor 2078 -761 50 0 360 arc fill 0 setgray 2078 -761 50 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 5L RGB 400 3600 translate 2095 -1329 moveto 2095 -1329 lineto 1517 -776 lineto stroke 0 1 0 setrgbcolor 1517 -776 50 0 360 arc fill 0 setgray 1517 -776 50 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 6G RGB 400 3600 translate 2095 -1329 moveto 2095 -1329 lineto 1564 -1143 lineto stroke 0 1 0 setrgbcolor 1564 -1143 50 0 360 arc fill 0 setgray 1564 -1143 50 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 7C RGB 400 3600 translate 2095 -1329 moveto 2095 -1329 lineto 1652 -1509 lineto stroke 0 1 1 setrgbcolor 1652 -1509 50 0 360 arc fill 0 setgray 1652 -1509 50 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 8V RGB 400 3600 translate 2095 -1329 moveto 2095 -1329 lineto 2196 -2498 lineto stroke 0 0 1 setrgbcolor 2196 -2498 50 0 360 arc fill 0 setgray 2196 -2498 50 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 9M RGB 400 3600 translate 2095 -1329 moveto 2095 -1329 lineto 2716 -1638 lineto stroke 1 0 1 setrgbcolor 2716 -1638 50 0 360 arc fill 0 setgray 2716 -1638 50 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 10R RGB 400 3600 translate 2095 -1329 moveto 2095 -1329 lineto 2861 -1099 lineto stroke 1 0 0 setrgbcolor 2861 -1099 50 0 360 arc fill 0 setgray 2861 -1099 50 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 11O RGB 400 3600 translate 2095 -1329 moveto 2095 -1329 lineto 2903 -737 lineto stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 12 R 400 3600 translate 3068 -1004 moveto 3068 -1004 lineto 3068 -1004 lineto 3068 -1004 lineto stroke 1 0 0 setrgbcolor 3068 -1004 80 0 360 arc fill 0 setgray 3068 -1004 80 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 13 J 400 3600 translate 2108 -916 moveto 2108 -916 lineto 2108 -916 lineto 2108 -916 lineto stroke 1 1 0 setrgbcolor 2108 -916 80 0 360 arc fill 0 setgray 2108 -916 80 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 14 G 400 3600 translate 1718 -1222 moveto 1718 -1222 lineto 1718 -1222 lineto 1718 -1222 lineto stroke 0 1 0 setrgbcolor 1718 -1222 80 0 360 arc fill 0 setgray 1718 -1222 80 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 15 B 400 3600 translate 2014 -2072 moveto 2014 -2072 lineto 2014 -2072 lineto 2014 -2072 lineto stroke 0 0 1 setrgbcolor 2014 -2072 80 0 360 arc fill 0 setgray 2014 -2072 80 0 360 arc stroke -400 -3600 translate 400 3600 translate 2080 -1438 40 0 360 arc fill -400 -3600 translate %ENDE: 5 %END-48 %END-47 %END-46 %END-45 %Platz für Text 800 3200 translate 1 setgray -700 -3100 moveto 2600 0 rlineto 0 1300 rlineto -2600 0 rlineto closepath fill 0 setgray -700 -3100 moveto 2600 0 rlineto 0 1300 rlineto -2600 0 rlineto closepath stroke 300 /TimesI-ISOL1 FS -650 -2050 moveto (OYLCVM_D50_W) show 250 /TimesI-ISOL1 FS -650 -2350 moveto 20 0 (a') ashow 250 /Times-ISOL1 FS 20 0 (=1/15[) ashow 250 /TimesI-ISOL1 FS 20 0 (x/y) ashow 250 /Times-ISOL1 FS 20 0 (+1]) ashow 250 /TimesI-ISOL1 FS -650 -2700 moveto 20 0 (b') ashow 250 /Times-ISOL1 FS 20 0 (=-1/12[) ashow 250 /TimesI-ISOL1 FS 20 0 (z/y) ashow 250 /Times-ISOL1 FS 20 0 (+1/6]) ashow 200 /Times-ISOL1 FS 0 120 rmoveto 20 0 (1/3) ashow 0 -120 rmoveto 300 /TimesI-ISOL1 FS -650 -3050 moveto (LABHNU1 1979) show -800 -3200 translate %Platz ACHTUNG Kurvenüberschreibung grestore showpage %%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 JE590-6 from DKB200:[RR.POS]B8010-64.EPS %%BoundingBox: 70 82 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/JE59/) /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:2010030112000) /ModDate (D:2010030112000) /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 %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 6 /Times-ISOL1 FS 72 84 moveto (JE590-6, ) show (Colours in ) showen (Farben in ) showde 6 /TimesI-ISOL1 FS ((a',b') ) show 6 /Times-ISOL1 FS (colour diagram) showen (Farbarttafel) showde 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath clip 800 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -2100 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 400 350 moveto 0 100 rlineto stroke 1200 350 moveto 0 100 rlineto stroke 2000 350 moveto 0 100 rlineto stroke 2800 350 moveto 0 100 rlineto stroke 3600 350 moveto 0 100 rlineto stroke 100 500 moveto (0,05) show 900 500 moveto (0,10) show 1700 500 moveto (0,15) show 2500 500 moveto (0,20) show 3300 500 moveto (0,25) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 400 moveto 100 0 rlineto stroke -50 -400 moveto 100 0 rlineto stroke -50 -1200 moveto 100 0 rlineto stroke % -50 -2000 moveto 100 0 rlineto stroke % -50 -2800 moveto 100 0 rlineto stroke -775 300 moveto ( 0,00) show -775 -500 moveto (-0,05) show -775 -1300 moveto (-0,10) show % -775 -2100 moveto (-0,15) show 350 /TimesI-ISOL1 FS -580 -1650 moveto (b') show 350 /TimesI-ISOL1 FS 4000 200 moveto (a') show -800 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA=16000 BEO=02 LABHNU2 1979 IXY0: 400 3600 400 3600 translate 19550 -7407 moveto 19550 -7407 19585 -7420 19487 -7408 curveto 19362 -7393 18633 -7261 17071 -6964 curveto 15121 -6569 13029 -6116 11040 -5650 curveto 9325 -5219 7794 -4804 6488 -4422 curveto 5322 -4048 4276 -3669 3258 -3237 curveto 2427 -2815 1803 -2424 1368 -2081 curveto 1100 -1785 949 -1537 880 -1337 curveto 864 -1177 885 -1044 934 -939 curveto 1000 -869 1076 -827 1157 -799 curveto 1236 -778 1317 -763 1401 -753 curveto 1492 -746 1589 -742 1694 -739 curveto 1809 -737 1933 -736 2066 -736 curveto 2210 -736 2362 -736 2521 -735 curveto 2682 -735 2837 -735 2987 -735 curveto 3121 -734 3239 -734 3340 -734 curveto 3425 -734 3495 -734 3557 -733 curveto 3609 -733 3651 -733 3683 -733 curveto 3708 -733 3727 -733 3740 -733 curveto 3750 -733 3759 -733 3767 -733 curveto 3774 -733 3778 -733 3780 -733 curveto 3781 -733 3782 -733 3826 -1028 curveto 3985 -1523 4099 -1736 4182 -1869 curveto 4246 -1962 4301 -2031 4341 -2087 curveto 4389 -2144 4446 -2206 4508 -2275 curveto 4591 -2361 4713 -2476 4914 -2645 curveto 5280 -2923 6302 -3528 19421 -7383 curveto stroke 1 setgray 19550 -7407 30 0 360 arc fill % 400 17071 -6964 30 0 360 arc fill % 425 7794 -4804 30 0 360 arc fill % 450 2427 -2815 30 0 360 arc fill % 475 880 -1337 30 0 360 arc fill % 500 1076 -827 30 0 360 arc fill % 525 1492 -746 30 0 360 arc fill % 550 2066 -736 30 0 360 arc fill % 575 2837 -735 30 0 360 arc fill % 600 3425 -734 30 0 360 arc fill % 625 3683 -733 30 0 360 arc fill % 650 3759 -733 30 0 360 arc fill % 675 3781 -733 30 0 360 arc fill % 700 3985 -1523 30 0 360 arc fill %500c 4341 -2087 30 0 360 arc fill %525c 4713 -2476 30 0 360 arc fill %550c 0 setgray 19550 -7407 30 0 360 arc stroke % 400 17071 -6964 30 0 360 arc stroke % 425 7794 -4804 30 0 360 arc stroke % 450 2427 -2815 30 0 360 arc stroke % 475 880 -1337 30 0 360 arc stroke % 500 1076 -827 30 0 360 arc stroke % 525 1492 -746 30 0 360 arc stroke % 550 2066 -736 30 0 360 arc stroke % 575 2837 -735 30 0 360 arc stroke % 600 3425 -734 30 0 360 arc stroke % 625 3683 -733 30 0 360 arc stroke % 650 3759 -733 30 0 360 arc stroke % 675 3781 -733 30 0 360 arc stroke % 700 3985 -1523 30 0 360 arc stroke %500c 4341 -2087 30 0 360 arc stroke %525c 4713 -2476 30 0 360 arc stroke %550c 2099 -1438 30 0 360 arc fill %D65 0 setgray 250 /TimesI-ISOL1 FS % 19550 500 sub -7407 100 sub moveto (400) show % 17071 500 sub -6964 100 sub moveto (425) show % 7794 500 sub -4804 100 sub moveto (450) show 2427 450 sub -2815 400 sub moveto (475) show 880 400 sub -1337 50 sub moveto (500) show 1076 200 sub -827 100 add moveto (525) show 1492 200 sub -746 100 add moveto (550) show 2066 200 sub -736 100 add moveto (575) show 2837 200 sub -735 100 add moveto (600) show 3425 200 sub -734 100 add moveto (625) show % 3683 200 sub -733 100 add moveto (650) show % 3759 200 sub -733 100 add moveto (675) show 3781 100 add -733 000 sub moveto (700) show 3985 100 add -1523 100 sub moveto (500c) show 4341 50 add -2087 60 sub moveto (525c) show % 4713 100 add -2476 100 sub moveto (550c) show 2099 100 add -1438 100 sub moveto %(D65 ) show -400 -3600 translate %ENDE: 6 %1000 02 15 01 16 01 00 JA JA NE 01 ******************** % 15 CR F39RGB_D50_W_JK59.DAT Elementarfbn (x,y,Y), Model 1.3.2010 %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 1CR RGB 400 3600 translate 2873 -737 moveto 2873 -737 lineto 2098 -761 lineto 1475 -776 lineto 1532 -1143 lineto 1636 -1509 lineto 2217 -2498 lineto 2707 -1638 lineto 2837 -1099 lineto 2873 -737 lineto stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 2CR UNB 400 3600 translate 2115 -1329 moveto 2115 -1329 lineto stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 3O RGB 400 3600 translate 2115 -1329 moveto 2115 -1329 lineto 2873 -737 lineto stroke 1 0 0 setrgbcolor 2873 -737 50 0 360 arc fill 0 setgray 2873 -737 50 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 4Y RGB 400 3600 translate 2115 -1329 moveto 2115 -1329 lineto 2098 -761 lineto stroke 1 1 0 setrgbcolor 2098 -761 50 0 360 arc fill 0 setgray 2098 -761 50 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 5L RGB 400 3600 translate 2115 -1329 moveto 2115 -1329 lineto 1475 -776 lineto stroke 0 1 0 setrgbcolor 1475 -776 50 0 360 arc fill 0 setgray 1475 -776 50 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 6G RGB 400 3600 translate 2115 -1329 moveto 2115 -1329 lineto 1532 -1143 lineto stroke 0 1 0 setrgbcolor 1532 -1143 50 0 360 arc fill 0 setgray 1532 -1143 50 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 7C RGB 400 3600 translate 2115 -1329 moveto 2115 -1329 lineto 1636 -1509 lineto stroke 0 1 1 setrgbcolor 1636 -1509 50 0 360 arc fill 0 setgray 1636 -1509 50 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 8V RGB 400 3600 translate 2115 -1329 moveto 2115 -1329 lineto 2217 -2498 lineto stroke 0 0 1 setrgbcolor 2217 -2498 50 0 360 arc fill 0 setgray 2217 -2498 50 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 9M RGB 400 3600 translate 2115 -1329 moveto 2115 -1329 lineto 2707 -1638 lineto stroke 1 0 1 setrgbcolor 2707 -1638 50 0 360 arc fill 0 setgray 2707 -1638 50 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 10R RGB 400 3600 translate 2115 -1329 moveto 2115 -1329 lineto 2837 -1099 lineto stroke 1 0 0 setrgbcolor 2837 -1099 50 0 360 arc fill 0 setgray 2837 -1099 50 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 11O RGB 400 3600 translate 2115 -1329 moveto 2115 -1329 lineto 2873 -737 lineto stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 12 R 400 3600 translate 3016 -1004 moveto 3016 -1004 lineto 3016 -1004 lineto 3016 -1004 lineto stroke 1 0 0 setrgbcolor 3016 -1004 80 0 360 arc fill 0 setgray 3016 -1004 80 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 13 J 400 3600 translate 2128 -916 moveto 2128 -916 lineto 2128 -916 lineto 2128 -916 lineto stroke 1 1 0 setrgbcolor 2128 -916 80 0 360 arc fill 0 setgray 2128 -916 80 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 14 G 400 3600 translate 1711 -1222 moveto 1711 -1222 lineto 1711 -1222 lineto 1711 -1222 lineto stroke 0 1 0 setrgbcolor 1711 -1222 80 0 360 arc fill 0 setgray 1711 -1222 80 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 15 B 400 3600 translate 2031 -2072 moveto 2031 -2072 lineto 2031 -2072 lineto 2031 -2072 lineto stroke 0 0 1 setrgbcolor 2031 -2072 80 0 360 arc fill 0 setgray 2031 -2072 80 0 360 arc stroke -400 -3600 translate 400 3600 translate 2099 -1438 40 0 360 arc fill -400 -3600 translate %ENDE: 6 %END-48 %Platz für Text 800 3200 translate 1 setgray -700 -3100 moveto 2600 0 rlineto 0 1300 rlineto -2600 0 rlineto closepath fill 0 setgray -700 -3100 moveto 2600 0 rlineto 0 1300 rlineto -2600 0 rlineto closepath stroke 300 /TimesI-ISOL1 FS -650 -2050 moveto (OYLCVM_D50_W) show 250 /TimesI-ISOL1 FS -650 -2350 moveto 20 0 (a') ashow 250 /Times-ISOL1 FS 20 0 (=1/9[) ashow 250 /TimesI-ISOL1 FS 20 0 (x/y) ashow 250 /Times-ISOL1 FS 20 0 (+1/3]) ashow 200 /Times-ISOL1 FS 0 120 rmoveto 20 0 (2/3) ashow 0 -120 rmoveto 250 /TimesI-ISOL1 FS -650 -2700 moveto 20 0 (b') ashow 250 /Times-ISOL1 FS 20 0 (=-1/12[) ashow 250 /TimesI-ISOL1 FS 20 0 (z/y) ashow 250 /Times-ISOL1 FS 20 0 (+1/6]) ashow 200 /Times-ISOL1 FS 0 120 rmoveto 20 0 (1/3) ashow 0 -120 rmoveto 300 /TimesI-ISOL1 FS -650 -3050 moveto (LABHNU2 1979) show -800 -3200 translate %Platz ACHTUNG Kurvenüberschreibung grestore showpage %%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 JE590-7 from DKB200:[RR.POS]B8010-14.EPS %%BoundingBox: 70 82 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/JE59/) /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:2010030112000) /ModDate (D:2010030112000) /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 %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 6 /Times-ISOL1 FS 72 84 moveto (JE590-7, ) show (Colours in ) showen (Farben in ) showde 6 /TimesI-ISOL1 FS ((a"s,b"s) ) show 6 /Times-ISOL1 FS (colour diagram) showen (Farbarttafel) showde 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath clip 700 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3500 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -250 500 moveto (0,0) show 550 500 moveto (0,6) show 1350 500 moveto (1,2) show 2150 500 moveto (1,8) show 2950 500 moveto (2,4) show 3750 500 moveto (3,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -650 -100 moveto ( 0,0) show -650 -900 moveto (-0,6) show -650 -1700 moveto (-1,2) show -650 -2500 moveto (-1,8) show 350 /TimesI-ISOL1 FS -550 -2900 moveto (b") show 300 /Times-ISOL1 FS -120 -125 rmoveto (s) show 120 125 rmoveto 350 /TimesI-ISOL1 FS 4050 200 moveto (a") show 300 /Times-ISOL1 FS -120 -125 rmoveto (s) show 120 125 rmoveto 250 /TimesI-ISOL1 FS 100 -2450 moveto (Basis (a,b):) show 100 -2750 moveto 20 0 (a=x/y) ashow 100 -3050 moveto 20 0 (b) ashow 250 /Times-ISOL1 FS 20 0 (=-0,40) ashow 250 /TimesI-ISOL1 FS 20 0 (z/y) ashow 300 /TimesI-ISOL1 FS 2800 -1200 moveto (OYLCVM_D50_W) show 2700 -500 moveto (LABJNDS 1985) show -700 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 700 3200 translate 3789 -3170 moveto 3789 -3170 3789 -3170 3788 -3170 curveto 3787 -3170 3779 -3166 3757 -3155 curveto 3724 -3138 3673 -3113 3603 -3079 curveto 3514 -3037 3394 -2982 3239 -2915 curveto 3028 -2826 2734 -2704 2265 -2508 curveto 1626 -2234 957 -1880 645 -1481 curveto 507 -1078 443 -720 417 -455 curveto 411 -308 419 -223 437 -171 curveto 464 -144 496 -130 533 -121 curveto 573 -115 616 -111 664 -108 curveto 721 -107 787 -105 867 -105 curveto 963 -104 1081 -104 1227 -104 curveto 1397 -104 1561 -104 1716 -104 curveto 1858 -104 1981 -104 2090 -104 curveto 2180 -104 2254 -104 2313 -104 curveto 2360 -103 2397 -103 2429 -103 curveto 2455 -103 2476 -103 2491 -103 curveto 2503 -103 2512 -103 2517 -103 curveto 2522 -103 2526 -103 2530 -103 curveto 2533 -103 2535 -103 2536 -103 curveto 2536 -103 2537 -103 2556 -214 curveto 2623 -700 2668 -1007 2700 -1196 curveto 2723 -1324 2742 -1416 2756 -1488 curveto 2772 -1560 2791 -1636 2811 -1717 curveto 2837 -1813 2873 -1933 2929 -2093 curveto 3019 -2313 3211 -2648 3788 -3169 curveto stroke 1 setgray 3789 -3170 30 0 360 arc fill % 400 3757 -3155 30 0 360 arc fill % 425 3394 -2982 30 0 360 arc fill % 450 1626 -2234 30 0 360 arc fill % 475 417 -455 30 0 360 arc fill % 500 496 -130 30 0 360 arc fill % 525 721 -107 30 0 360 arc fill % 550 1227 -104 30 0 360 arc fill % 575 1981 -104 30 0 360 arc fill % 600 2360 -103 30 0 360 arc fill % 625 2491 -103 30 0 360 arc fill % 650 2526 -103 30 0 360 arc fill % 675 2536 -103 30 0 360 arc fill % 700 2623 -700 30 0 360 arc fill %500c 2756 -1488 30 0 360 arc fill %525c 2873 -1933 30 0 360 arc fill %550c 0 setgray 3789 -3170 30 0 360 arc stroke % 400 3757 -3155 30 0 360 arc stroke % 425 3394 -2982 30 0 360 arc stroke % 450 1626 -2234 30 0 360 arc stroke % 475 417 -455 30 0 360 arc stroke % 500 496 -130 30 0 360 arc stroke % 525 721 -107 30 0 360 arc stroke % 550 1227 -104 30 0 360 arc stroke % 575 1981 -104 30 0 360 arc stroke % 600 2360 -103 30 0 360 arc stroke % 625 2491 -103 30 0 360 arc stroke % 650 2526 -103 30 0 360 arc stroke % 675 2536 -103 30 0 360 arc stroke % 700 2623 -700 30 0 360 arc stroke %500c 2756 -1488 30 0 360 arc stroke %525c 2873 -1933 30 0 360 arc stroke %550c 1266 -580 30 0 360 arc fill %D65 0 setgray 250 /TimesI-ISOL1 FS 3789 000 sub -3170 100 add moveto (400) show % 3757 500 sub -3155 100 sub moveto (425) show 3394 600 sub -2982 100 sub moveto (450) show 1626 250 sub -2234 300 sub moveto (475) show 417 400 sub -455 100 sub moveto (500) show 496 400 sub -130 50 add moveto (525) show 721 200 sub -107 100 add moveto (550) show 1227 200 sub -104 100 add moveto (575) show 1981 200 sub -104 100 add moveto (600) show % 2360 200 sub -103 100 add moveto (625) show % 2491 200 sub -103 100 add moveto (650) show % 2526 200 sub -103 100 add moveto (675) show 2536 100 add -103 000 sub moveto (700) show 2623 100 add -700 100 sub moveto (500c) show 2756 100 add -1488 100 sub moveto (525c) show 2873 100 add -1933 100 sub moveto (550c) show 1266 100 add -580 100 sub moveto %(D65 ) show -700 -3200 translate %ENDE: 7 %1000 02 15 01 16 01 00 JA JA NE 01 ******************** % 15 CR F39RGB_D50_W_JK59.DAT Elementarfbn (x,y,Y), Model 1.3.2010 %ANF FANxyal3: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 1CR RGB 700 3200 translate 2009 -104 moveto 2009 -104 lineto 1264 -110 lineto 710 -114 lineto 748 -284 lineto 821 -680 lineto 1404 -1955 lineto 1879 -867 lineto 1981 -255 lineto 2009 -104 lineto stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 2CR UNB 700 3200 translate 1285 -447 moveto 1285 -447 lineto stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 3O RGB 700 3200 translate 1285 -447 moveto 1285 -447 lineto 2009 -104 lineto stroke 1 0 0 setrgbcolor 2009 -104 50 0 360 arc fill 0 setgray 2009 -104 50 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 4Y RGB 700 3200 translate 1285 -447 moveto 1285 -447 lineto 1264 -110 lineto stroke 1 1 0 setrgbcolor 1264 -110 50 0 360 arc fill 0 setgray 1264 -110 50 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 5L RGB 700 3200 translate 1285 -447 moveto 1285 -447 lineto 710 -114 lineto stroke 0 1 0 setrgbcolor 710 -114 50 0 360 arc fill 0 setgray 710 -114 50 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 6G RGB 700 3200 translate 1285 -447 moveto 1285 -447 lineto 748 -284 lineto stroke 0 1 0 setrgbcolor 748 -284 50 0 360 arc fill 0 setgray 748 -284 50 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 7C RGB 700 3200 translate 1285 -447 moveto 1285 -447 lineto 821 -680 lineto stroke 0 1 1 setrgbcolor 821 -680 50 0 360 arc fill 0 setgray 821 -680 50 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 8V RGB 700 3200 translate 1285 -447 moveto 1285 -447 lineto 1404 -1955 lineto stroke 0 0 1 setrgbcolor 1404 -1955 50 0 360 arc fill 0 setgray 1404 -1955 50 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 9M RGB 700 3200 translate 1285 -447 moveto 1285 -447 lineto 1879 -867 lineto stroke 1 0 1 setrgbcolor 1879 -867 50 0 360 arc fill 0 setgray 1879 -867 50 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 10R RGB 700 3200 translate 1285 -447 moveto 1285 -447 lineto 1981 -255 lineto stroke 1 0 0 setrgbcolor 1981 -255 50 0 360 arc fill 0 setgray 1981 -255 50 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 11O RGB 700 3200 translate 1285 -447 moveto 1285 -447 lineto 2009 -104 lineto stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 12 R 700 3200 translate 2110 -201 moveto 2110 -201 lineto 2110 -201 lineto 2110 -201 lineto stroke 1 0 0 setrgbcolor 2110 -201 80 0 360 arc fill 0 setgray 2110 -201 80 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 13 J 700 3200 translate 1301 -162 moveto 1301 -162 lineto 1301 -162 lineto 1301 -162 lineto stroke 1 1 0 setrgbcolor 1301 -162 80 0 360 arc fill 0 setgray 1301 -162 80 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 14 G 700 3200 translate 880 -344 moveto 880 -344 lineto 880 -344 lineto 880 -344 lineto stroke 0 1 0 setrgbcolor 880 -344 80 0 360 arc fill 0 setgray 880 -344 80 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0: 700 3200 15 B 700 3200 translate 1186 -1469 moveto 1186 -1469 lineto 1186 -1469 lineto 1186 -1469 lineto stroke 0 0 1 setrgbcolor 1186 -1469 80 0 360 arc fill 0 setgray 1186 -1469 80 0 360 arc stroke -700 -3200 translate 700 3200 translate 1266 -580 40 0 360 arc fill -700 -3200 translate %ENDE: 7 grestore showpage %%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 JE590-8 from DKB200:[RR.POS]B8010-84.EPS %%BoundingBox: 70 82 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/JE59/) /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:2010030112000) /ModDate (D:2010030112000) /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 %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 6 /Times-ISOL1 FS 72 84 moveto (JE590-8, ) show (Colours in ) showen (Farben in ) showde 6 /TimesI-ISOL1 FS ((a"r,b"r) ) show 6 /Times-ISOL1 FS (colour diagram) showen (Farbarttafel) showde 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath clip 700 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3500 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -250 500 moveto (0,0) show 550 500 moveto (0,6) show 1350 500 moveto (1,2) show 2150 500 moveto (1,8) show 2950 500 moveto (2,4) show 3750 500 moveto (3,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -650 -100 moveto ( 0,0) show -650 -900 moveto (-0,6) show -650 -1700 moveto (-1,2) show -650 -2500 moveto (-1,8) show 350 /TimesI-ISOL1 FS -450 -2900 moveto (b") show 300 /Times-ISOL1 FS -120 -125 rmoveto (r) show 120 125 rmoveto 350 /TimesI-ISOL1 FS 4100 200 moveto (a") show 300 /Times-ISOL1 FS -120 -125 rmoveto (r) show 120 125 rmoveto 250 /TimesI-ISOL1 FS 100 -2450 moveto (Basis (a,b):) show 100 -2750 moveto 20 0 (a=x/y) ashow 100 -3050 moveto 20 0 (b) ashow 250 /Times-ISOL1 FS 20 0 (=-0,40) ashow 250 /TimesI-ISOL1 FS 20 0 (z/y) ashow 300 /TimesI-ISOL1 FS 2675 -2250 moveto (OYLCVM_D50_W) show 2675 -2600 moveto (LABJNDR 1985) show -700 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 1333 BEO=02 ar"br" LABJND 1985 IXY0: 700 3200 700 3200 translate 2459 -2888 moveto 2459 -2888 2457 -2890 2454 -2891 curveto 2450 -2892 2443 -2892 2429 -2888 curveto 2410 -2881 2381 -2869 2343 -2852 curveto 2295 -2831 2230 -2802 2148 -2765 curveto 2043 -2711 1906 -2626 1700 -2473 curveto 1424 -2229 1088 -1874 758 -1433 curveto 539 -999 445 -682 418 -491 curveto 419 -376 433 -303 457 -255 curveto 487 -226 522 -207 561 -193 curveto 601 -181 646 -170 696 -159 curveto 753 -149 820 -139 899 -128 curveto 993 -118 1104 -109 1234 -104 curveto 1378 -106 1531 -117 1683 -133 curveto 1826 -153 1951 -173 2063 -193 curveto 2155 -209 2230 -224 2291 -235 curveto 2339 -244 2377 -252 2410 -258 curveto 2436 -264 2457 -268 2473 -271 curveto 2485 -273 2494 -275 2500 -276 curveto 2505 -277 2509 -278 2513 -279 curveto 2516 -279 2518 -280 2519 -280 curveto 2519 -280 2520 -280 2547 -362 curveto 2623 -642 2657 -820 2675 -944 curveto 2684 -1036 2691 -1105 2692 -1162 curveto 2695 -1220 2698 -1282 2698 -1353 curveto 2697 -1439 2693 -1550 2685 -1704 curveto 2660 -1929 2602 -2292 2459 -2888 curveto stroke 1 setgray 2459 -2888 30 0 360 arc fill % 400 2429 -2888 30 0 360 arc fill % 425 2230 -2802 30 0 360 arc fill % 450 1424 -2229 30 0 360 arc fill % 475 418 -491 30 0 360 arc fill % 500 522 -207 30 0 360 arc fill % 525 753 -149 30 0 360 arc fill % 550 1234 -104 30 0 360 arc fill % 575 1951 -173 30 0 360 arc fill % 600 2339 -244 30 0 360 arc fill % 625 2473 -271 30 0 360 arc fill % 650 2509 -278 30 0 360 arc fill % 675 2519 -280 30 0 360 arc fill % 700 2623 -642 30 0 360 arc fill %500c 2692 -1162 30 0 360 arc fill %525c 2693 -1550 30 0 360 arc fill %550c 0 setgray 2459 -2888 30 0 360 arc stroke % 400 2429 -2888 30 0 360 arc stroke % 425 2230 -2802 30 0 360 arc stroke % 450 1424 -2229 30 0 360 arc stroke % 475 418 -491 30 0 360 arc stroke % 500 522 -207 30 0 360 arc stroke % 525 753 -149 30 0 360 arc stroke % 550 1234 -104 30 0 360 arc stroke % 575 1951 -173 30 0 360 arc stroke % 600 2339 -244 30 0 360 arc stroke % 625 2473 -271 30 0 360 arc stroke % 650 2509 -278 30 0 360 arc stroke % 675 2519 -280 30 0 360 arc stroke % 700 2623 -642 30 0 360 arc stroke %500c 2692 -1162 30 0 360 arc stroke %525c 2693 -1550 30 0 360 arc stroke %550c 1266 -580 30 0 360 arc fill %D65 0 setgray 250 /TimesI-ISOL1 FS 2459 100 add -2888 50 sub moveto (400) show % 2429 500 sub -2888 100 sub moveto (425) show 2230 450 sub -2802 200 sub moveto (450) show 1424 150 sub -2229 400 sub moveto (475) show 418 425 sub -491 100 sub moveto (500) show 522 400 sub -207 50 add moveto (525) show 753 200 sub -149 100 add moveto (550) show 1234 200 sub -104 100 add moveto (575) show 1951 200 sub -173 100 add moveto (600) show 2339 200 sub -244 100 add moveto (625) show % 2473 200 sub -271 100 add moveto (650) show % 2509 200 sub -278 100 add moveto (675) show 2519 100 add -280 000 sub moveto (700) show 2623 100 add -642 100 sub moveto (500c) show 2692 100 add -1162 100 sub moveto (525c) show 2693 100 add -1550 100 sub moveto (550c) show 1266 100 add -580 100 sub moveto %(D65 ) show -700 -3200 translate %ENDE: 8 %1000 02 15 01 16 01 00 JA JA NE 01 ******************** % 15 CR F39RGB_D50_W_JK59.DAT Elementarfbn (x,y,Y), Model 1.3.2010 %ANF FANxyal3: MULYA= 1333 BEO=02 ar"br" LABJND 1985 IXY0: 700 3200 1CR RGB 700 3200 translate 1979 -179 moveto 1979 -179 lineto 1265 -110 lineto 741 -158 lineto 760 -318 lineto 823 -666 lineto 1337 -1954 lineto 1868 -823 lineto 1968 -314 lineto 1979 -179 lineto stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 ar"br" LABJND 1985 IXY0: 700 3200 2CR UNB 700 3200 translate 1284 -447 moveto 1284 -447 lineto stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 ar"br" LABJND 1985 IXY0: 700 3200 3O RGB 700 3200 translate 1284 -447 moveto 1284 -447 lineto 1979 -179 lineto stroke 1 0 0 setrgbcolor 1979 -179 50 0 360 arc fill 0 setgray 1979 -179 50 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 ar"br" LABJND 1985 IXY0: 700 3200 4Y RGB 700 3200 translate 1284 -447 moveto 1284 -447 lineto 1265 -110 lineto stroke 1 1 0 setrgbcolor 1265 -110 50 0 360 arc fill 0 setgray 1265 -110 50 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 ar"br" LABJND 1985 IXY0: 700 3200 5L RGB 700 3200 translate 1284 -447 moveto 1284 -447 lineto 741 -158 lineto stroke 0 1 0 setrgbcolor 741 -158 50 0 360 arc fill 0 setgray 741 -158 50 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 ar"br" LABJND 1985 IXY0: 700 3200 6G RGB 700 3200 translate 1284 -447 moveto 1284 -447 lineto 760 -318 lineto stroke 0 1 0 setrgbcolor 760 -318 50 0 360 arc fill 0 setgray 760 -318 50 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 ar"br" LABJND 1985 IXY0: 700 3200 7C RGB 700 3200 translate 1284 -447 moveto 1284 -447 lineto 823 -666 lineto stroke 0 1 1 setrgbcolor 823 -666 50 0 360 arc fill 0 setgray 823 -666 50 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 ar"br" LABJND 1985 IXY0: 700 3200 8V RGB 700 3200 translate 1284 -447 moveto 1284 -447 lineto 1337 -1954 lineto stroke 0 0 1 setrgbcolor 1337 -1954 50 0 360 arc fill 0 setgray 1337 -1954 50 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 ar"br" LABJND 1985 IXY0: 700 3200 9M RGB 700 3200 translate 1284 -447 moveto 1284 -447 lineto 1868 -823 lineto stroke 1 0 1 setrgbcolor 1868 -823 50 0 360 arc fill 0 setgray 1868 -823 50 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 ar"br" LABJND 1985 IXY0: 700 3200 10R RGB 700 3200 translate 1284 -447 moveto 1284 -447 lineto 1968 -314 lineto stroke 1 0 0 setrgbcolor 1968 -314 50 0 360 arc fill 0 setgray 1968 -314 50 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 ar"br" LABJND 1985 IXY0: 700 3200 11O RGB 700 3200 translate 1284 -447 moveto 1284 -447 lineto 1979 -179 lineto stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 ar"br" LABJND 1985 IXY0: 700 3200 12 R 700 3200 translate 2094 -284 moveto 2094 -284 lineto 2094 -284 lineto 2094 -284 lineto stroke 1 0 0 setrgbcolor 2094 -284 80 0 360 arc fill 0 setgray 2094 -284 80 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 ar"br" LABJND 1985 IXY0: 700 3200 13 J 700 3200 translate 1296 -162 moveto 1296 -162 lineto 1296 -162 lineto 1296 -162 lineto stroke 1 1 0 setrgbcolor 1296 -162 80 0 360 arc fill 0 setgray 1296 -162 80 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 ar"br" LABJND 1985 IXY0: 700 3200 14 G 700 3200 translate 888 -364 moveto 888 -364 lineto 888 -364 lineto 888 -364 lineto stroke 0 1 0 setrgbcolor 888 -364 80 0 360 arc fill 0 setgray 888 -364 80 0 360 arc stroke -700 -3200 translate %ANF FANxyal3: MULYA= 1333 BEO=02 ar"br" LABJND 1985 IXY0: 700 3200 15 B 700 3200 translate 1211 -1469 moveto 1211 -1469 lineto 1211 -1469 lineto 1211 -1469 lineto stroke 0 0 1 setrgbcolor 1211 -1469 80 0 360 arc fill 0 setgray 1211 -1469 80 0 360 arc stroke -700 -3200 translate 700 3200 translate 1266 -580 40 0 360 arc fill -700 -3200 translate %ENDE: 8 grestore showpage %%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 JE591-1 from DKB200:[RR.POS]B8011-14.EPS %%BoundingBox: 70 82 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/JE59/) /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:2010030112000) /ModDate (D:2010030112000) /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 %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 6 /Times-ISOL1 FS 72 84 moveto (JE591-1, ) show (Colours in ) showen (Farben in ) showde 6 /TimesI-ISOL1 FS ((x,-z) ) show 6 /Times-ISOL1 FS (chromaticity diagram) showen (Farbtafel) showde 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 800 3600 translate 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 -3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -150 100 moveto (0,0) show 650 100 moveto (0,2) show 1450 100 moveto (0,4) show 2250 100 moveto (0,6) show 3050 100 moveto (0,8) show 3850 100 moveto (1,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -650 -80 moveto ( 0,0) show -650 -720 moveto (-0,2) show -650 -1520 moveto (-0,4) show -650 -2320 moveto (-0,6) show -650 -3120 moveto (-0,8) show 350 /TimesI-ISOL1 FS -700 -400 moveto (-z) show 350 /TimesI-ISOL1 FS 4000 -250 moveto (x) show 300 /TimesI-ISOL1 FS 2000 -2750 moveto (CIE 1931) show 2000 -3050 moveto ((x,-z) chromaticity) show 2000 -3350 moveto (diagram) show 300 /TimesI-ISOL1 FS 2500 -1500 moveto (OYLCVM_D50_W) show 2500 -1800 moveto (RJGB_D50) show 2500 -2100 moveto (o samples) show -800 -3600 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 4000 BEO=02 xz-Farbtafel IXY0: 800 3600 800 3600 translate 693 -3287 moveto 693 -3287 692 -3288 690 -3290 curveto 688 -3292 685 -3293 681 -3295 curveto 675 -3296 667 -3298 657 -3298 curveto 644 -3300 626 -3302 603 -3305 curveto 575 -3305 542 -3298 496 -3272 curveto 438 -3214 365 -3104 274 -2922 curveto 181 -2638 93 -2255 32 -1813 curveto 15 -1365 55 -943 155 -596 curveto 297 -367 456 -238 618 -157 curveto 771 -101 918 -64 1063 -39 curveto 1206 -24 1349 -15 1492 -9 curveto 1634 -6 1776 -4 1915 -4 curveto 2049 -3 2179 -3 2300 -2 curveto 2411 -2 2508 -1 2592 -1 curveto 2663 0 2720 0 2765 0 curveto 2802 0 2831 0 2856 0 curveto 2876 0 2892 0 2903 0 curveto 2913 0 2919 0 2924 0 curveto 2927 0 2930 0 2933 0 curveto 2936 0 2937 0 2938 0 curveto 2938 0 2939 0 2744 -283 curveto 2261 -990 2040 -1315 1908 -1509 curveto 1819 -1638 1758 -1728 1708 -1801 curveto 1660 -1870 1612 -1942 1558 -2021 curveto 1495 -2112 1419 -2224 1320 -2369 curveto 1184 -2567 986 -2857 693 -3287 curveto stroke 1 setgray 693 -3287 30 0 360 arc fill % 400 681 -3295 30 0 360 arc fill % 425 626 -3302 30 0 360 arc fill % 450 438 -3214 30 0 360 arc fill % 475 32 -1813 30 0 360 arc fill % 500 456 -238 30 0 360 arc fill % 525 1206 -24 30 0 360 arc fill % 550 1915 -4 30 0 360 arc fill % 575 2508 -1 30 0 360 arc fill % 600 2802 0 30 0 360 arc fill % 625 2903 0 30 0 360 arc fill % 650 2930 0 30 0 360 arc fill % 675 2938 0 30 0 360 arc fill % 700 2261 -990 30 0 360 arc fill %500c 1708 -1801 30 0 360 arc fill %525c 1419 -2224 30 0 360 arc fill %550c 0 setgray 693 -3287 30 0 360 arc stroke % 400 681 -3295 30 0 360 arc stroke % 425 626 -3302 30 0 360 arc stroke % 450 438 -3214 30 0 360 arc stroke % 475 32 -1813 30 0 360 arc stroke % 500 456 -238 30 0 360 arc stroke % 525 1206 -24 30 0 360 arc stroke % 550 1915 -4 30 0 360 arc stroke % 575 2508 -1 30 0 360 arc stroke % 600 2802 0 30 0 360 arc stroke % 625 2903 0 30 0 360 arc stroke % 650 2930 0 30 0 360 arc stroke % 675 2938 0 30 0 360 arc stroke % 700 2261 -990 30 0 360 arc stroke %500c 1708 -1801 30 0 360 arc stroke %525c 1419 -2224 30 0 360 arc stroke %550c 1250 -1433 30 0 360 arc fill %D65 0 setgray 250 /TimesI-ISOL1 FS 693 50 add -3287 100 sub moveto (400) show % 681 500 sub -3295 100 sub moveto (425) show % 626 500 sub -3302 100 sub moveto (450) show 438 450 sub -3214 150 sub moveto (475) show 32 500 sub -1813 100 sub moveto (500) show 456 100 sub -238 300 sub moveto (525) show 1206 200 sub -24 250 sub moveto (550) show 1915 200 sub -4 250 sub moveto (575) show 2508 200 sub -1 250 sub moveto (600) show % 2802 200 sub 0 100 add moveto (625) show % 2903 200 sub 0 100 add moveto (650) show % 2930 200 sub 0 100 add moveto (675) show 2938 50 sub 0 300 sub moveto (700) show 2261 100 add -990 100 sub moveto (500c) show 1708 100 add -1801 100 sub moveto (525c) show 1419 100 add -2224 100 sub moveto (550c) show 1250 100 add -1433 100 sub moveto %(D65 ) show -800 -3600 translate %ENDE: 9 %1000 02 15 01 16 01 00 JA JA NE 01 ******************** % 15 CR F39RGB_D50_W_JK59.DAT Elementarfbn (x,y,Y), Model 1.3.2010 %ANF FANXYAL3: MULYA= 4000 BEO=02 xz-Farbtafel IXY0: 800 3600 1CR RGB 800 3600 translate 2528 -3 moveto 2528 -3 lineto 1928 -39 lineto 1164 -83 lineto 968 -960 lineto 776 -1812 lineto 500 -3028 lineto 1460 -1596 lineto 2188 -512 lineto 2528 -3 lineto stroke -800 -3600 translate %ANF FANXYAL3: MULYA= 4000 BEO=02 xz-Farbtafel IXY0: 800 3600 2CR UNB 800 3600 translate 1382 -1183 moveto 1382 -1183 lineto stroke -800 -3600 translate %ANF FANXYAL3: MULYA= 4000 BEO=02 xz-Farbtafel IXY0: 800 3600 3O RGB 800 3600 translate 1382 -1183 moveto 1382 -1183 lineto 2528 -3 lineto stroke 1 0 0 setrgbcolor 2528 -3 50 0 360 arc fill 0 setgray 2528 -3 50 0 360 arc stroke -800 -3600 translate %ANF FANXYAL3: MULYA= 4000 BEO=02 xz-Farbtafel IXY0: 800 3600 4Y RGB 800 3600 translate 1382 -1183 moveto 1382 -1183 lineto 1928 -39 lineto stroke 1 1 0 setrgbcolor 1928 -39 50 0 360 arc fill 0 setgray 1928 -39 50 0 360 arc stroke -800 -3600 translate %ANF FANXYAL3: MULYA= 4000 BEO=02 xz-Farbtafel IXY0: 800 3600 5L RGB 800 3600 translate 1382 -1183 moveto 1382 -1183 lineto 1164 -83 lineto stroke 0 1 0 setrgbcolor 1164 -83 50 0 360 arc fill 0 setgray 1164 -83 50 0 360 arc stroke -800 -3600 translate %ANF FANXYAL3: MULYA= 4000 BEO=02 xz-Farbtafel IXY0: 800 3600 6G RGB 800 3600 translate 1382 -1183 moveto 1382 -1183 lineto 968 -960 lineto stroke 0 1 0 setrgbcolor 968 -960 50 0 360 arc fill 0 setgray 968 -960 50 0 360 arc stroke -800 -3600 translate %ANF FANXYAL3: MULYA= 4000 BEO=02 xz-Farbtafel IXY0: 800 3600 7C RGB 800 3600 translate 1382 -1183 moveto 1382 -1183 lineto 776 -1812 lineto stroke 0 1 1 setrgbcolor 776 -1812 50 0 360 arc fill 0 setgray 776 -1812 50 0 360 arc stroke -800 -3600 translate %ANF FANXYAL3: MULYA= 4000 BEO=02 xz-Farbtafel IXY0: 800 3600 8V RGB 800 3600 translate 1382 -1183 moveto 1382 -1183 lineto 500 -3028 lineto stroke 0 0 1 setrgbcolor 500 -3028 50 0 360 arc fill 0 setgray 500 -3028 50 0 360 arc stroke -800 -3600 translate %ANF FANXYAL3: MULYA= 4000 BEO=02 xz-Farbtafel IXY0: 800 3600 9M RGB 800 3600 translate 1382 -1183 moveto 1382 -1183 lineto 1460 -1596 lineto stroke 1 0 1 setrgbcolor 1460 -1596 50 0 360 arc fill 0 setgray 1460 -1596 50 0 360 arc stroke -800 -3600 translate %ANF FANXYAL3: MULYA= 4000 BEO=02 xz-Farbtafel IXY0: 800 3600 10R RGB 800 3600 translate 1382 -1183 moveto 1382 -1183 lineto 2188 -512 lineto stroke 1 0 0 setrgbcolor 2188 -512 50 0 360 arc fill 0 setgray 2188 -512 50 0 360 arc stroke -800 -3600 translate %ANF FANXYAL3: MULYA= 4000 BEO=02 xz-Farbtafel IXY0: 800 3600 11O RGB 800 3600 translate 1382 -1183 moveto 1382 -1183 lineto 2528 -3 lineto stroke -800 -3600 translate %ANF FANXYAL3: MULYA= 4000 BEO=02 xz-Farbtafel IXY0: 800 3600 12 R 800 3600 translate 2392 -331 moveto 2392 -331 lineto 2392 -331 lineto 2392 -331 lineto stroke 1 0 0 setrgbcolor 2392 -331 80 0 360 arc fill 0 setgray 2392 -331 80 0 360 arc stroke -800 -3600 translate %ANF FANXYAL3: MULYA= 4000 BEO=02 xz-Farbtafel IXY0: 800 3600 13 J 800 3600 translate 1830 -295 moveto 1830 -295 lineto 1830 -295 lineto 1830 -295 lineto stroke 1 1 0 setrgbcolor 1830 -295 80 0 360 arc fill 0 setgray 1830 -295 80 0 360 arc stroke -800 -3600 translate %ANF FANXYAL3: MULYA= 4000 BEO=02 xz-Farbtafel IXY0: 800 3600 14 G 800 3600 translate 1103 -1090 moveto 1103 -1090 lineto 1103 -1090 lineto 1103 -1090 lineto stroke 0 1 0 setrgbcolor 1103 -1090 80 0 360 arc fill 0 setgray 1103 -1090 80 0 360 arc stroke -800 -3600 translate %ANF FANXYAL3: MULYA= 4000 BEO=02 xz-Farbtafel IXY0: 800 3600 15 B 800 3600 translate 648 -2621 moveto 648 -2621 lineto 648 -2621 lineto 648 -2621 lineto stroke 0 0 1 setrgbcolor 648 -2621 80 0 360 arc fill 0 setgray 648 -2621 80 0 360 arc stroke -800 -3600 translate 800 3600 translate 1250 -1433 40 0 360 arc fill -800 -3600 translate %ENDE: 9 grestore showpage %%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 JE591-2 from DKB200:[RR.POS]B8011-24.EPS %%BoundingBox: 70 82 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/JE59/) /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:2010030112000) /ModDate (D:2010030112000) /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 %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 6 /Times-ISOL1 FS 72 84 moveto (JE591-2, ) show (Colours in ) showen (Farben in ) showde 6 /TimesI-ISOL1 FS ((u',v') ) show 6 /Times-ISOL1 FS (chromaticity diagram) showen (Farbtafel) showde 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 600 400 translate 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -100 -300 moveto (0,0) show 700 -300 moveto (0,2) show 1500 -300 moveto (0,4) show 2300 -300 moveto (0,6) show 3100 -300 moveto (0,8) show 3900 -300 moveto (1,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -450 -80 moveto (0,0) show -450 720 moveto (0,2) show -450 1520 moveto (0,4) show -450 2270 moveto (0,6) show -450 3120 moveto (0,8) show 350 /TimesI-ISOL1 FS -450 1900 moveto (v') show 350 /TimesI-ISOL1 FS 4200 50 moveto (u') show 250 /TimesI-ISOL1 FS 2300 3300 moveto 20 0 (u') ashow 250 /Times-ISOL1 FS 20 0 (=4) ashow 250 /TimesI-ISOL1 FS 20 0 (x) ashow 250 /Times-ISOL1 FS 20 0 (/[-2) ashow 250 /TimesI-ISOL1 FS 20 0 (x) ashow 250 /Times-ISOL1 FS 20 0 (+12) ashow 250 /TimesI-ISOL1 FS 20 0 (y) ashow 250 /Times-ISOL1 FS 20 0 (+3]) ashow 250 /TimesI-ISOL1 FS 2300 3000 moveto 20 0 (v') ashow 250 /Times-ISOL1 FS 20 0 (=9) ashow 250 /TimesI-ISOL1 FS 20 0 (y) ashow 250 /Times-ISOL1 FS 20 0 (/[-2) ashow 250 /TimesI-ISOL1 FS 20 0 (x) ashow 250 /Times-ISOL1 FS 20 0 (+12) ashow 250 /TimesI-ISOL1 FS 20 0 (y) ashow 250 /Times-ISOL1 FS 20 0 (+3]) ashow 300 /TimesI-ISOL1 FS 2000 150 moveto (CIELUV 1976) show 300 /TimesI-ISOL1 FS 2000 500 moveto (OYLCVM_D50_W) show -600 -400 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 5000 BEO=02 CIELUV 1976 IXY0: 600 400 600 400 translate 1278 79 moveto 1278 79 1276 79 1272 79 curveto 1268 80 1261 84 1248 95 curveto 1230 113 1205 139 1173 174 curveto 1133 218 1080 274 1016 344 curveto 938 435 844 559 720 754 curveto 573 1022 414 1354 260 1713 curveto 140 2058 59 2349 17 2565 curveto 7 2715 23 2819 61 2884 curveto 115 2918 179 2930 250 2933 curveto 321 2932 396 2928 476 2920 curveto 563 2910 659 2897 765 2882 curveto 883 2865 1012 2846 1155 2825 curveto 1311 2802 1479 2777 1657 2750 curveto 1840 2723 2017 2696 2189 2670 curveto 2345 2647 2483 2627 2600 2609 curveto 2699 2594 2782 2582 2854 2571 curveto 2915 2562 2964 2555 3002 2549 curveto 3031 2545 3053 2541 3068 2539 curveto 3080 2537 3090 2536 3099 2535 curveto 3108 2533 3112 2533 3115 2532 curveto 3117 2532 3118 2532 3020 2406 curveto 2749 2045 2607 1851 2515 1727 curveto 2448 1640 2403 1576 2360 1525 curveto 2323 1474 2284 1418 2236 1358 curveto 2181 1286 2112 1193 2020 1066 curveto 1880 883 1659 588 1278 80 curveto stroke 1 setgray 1278 79 30 0 360 arc fill % 400 1248 95 30 0 360 arc fill % 425 1080 274 30 0 360 arc fill % 450 573 1022 30 0 360 arc fill % 475 17 2565 30 0 360 arc fill % 500 179 2930 30 0 360 arc fill % 525 563 2910 30 0 360 arc fill % 550 1155 2825 30 0 360 arc fill % 575 2017 2696 30 0 360 arc fill % 600 2699 2594 30 0 360 arc fill % 625 3002 2549 30 0 360 arc fill % 650 3090 2536 30 0 360 arc fill % 675 3117 2532 30 0 360 arc fill % 700 2749 2045 30 0 360 arc fill %500c 2360 1525 30 0 360 arc fill %525c 2112 1193 30 0 360 arc fill %550c 0 setgray 1278 79 30 0 360 arc stroke % 400 1248 95 30 0 360 arc stroke % 425 1080 274 30 0 360 arc stroke % 450 573 1022 30 0 360 arc stroke % 475 17 2565 30 0 360 arc stroke % 500 179 2930 30 0 360 arc stroke % 525 563 2910 30 0 360 arc stroke % 550 1155 2825 30 0 360 arc stroke % 575 2017 2696 30 0 360 arc stroke % 600 2699 2594 30 0 360 arc stroke % 625 3002 2549 30 0 360 arc stroke % 650 3090 2536 30 0 360 arc stroke % 675 3117 2532 30 0 360 arc stroke % 700 2749 2045 30 0 360 arc stroke %500c 2360 1525 30 0 360 arc stroke %525c 2112 1193 30 0 360 arc stroke %550c 989 2341 30 0 360 arc fill %D65 0 setgray 250 /TimesI-ISOL1 FS 1278 125 add 79 25 add moveto (400) show % 1248 500 sub 95 100 sub moveto (425) show 1080 400 sub 274 200 sub moveto (450) show 573 475 sub 1022 250 sub moveto (475) show 17 450 sub 2565 000 sub moveto (500) show 179 100 sub 2930 100 add moveto (525) show 563 050 sub 2910 100 add moveto (550) show 1155 200 sub 2825 100 add moveto (575) show 2017 200 sub 2696 75 add moveto (600) show 2699 200 sub 2594 75 add moveto (625) show % 3002 200 sub 2549 100 add moveto (650) show % 3090 200 sub 2536 100 add moveto (675) show 3117 50 add 2532 000 sub moveto (700) show 2749 100 add 2045 100 sub moveto (500c) show 2360 100 add 1525 100 sub moveto (525c) show 2112 100 add 1193 100 sub moveto (550c) show 989 100 add 2341 100 sub moveto %(D65 ) show -600 -400 translate %ENDE:10 %1000 02 15 01 16 01 00 JA JA NE 01 ******************** % 15 CR F39RGB_D50_W_JK59.DAT Elementarfbn (x,y,Y), Model 1.3.2010 %ANF FANxyal3: MULYA= 5000 BEO=02 CIELUV 1976 IXY0: 600 400 1CR RGB 600 400 translate 2058 2689 moveto 2058 2689 lineto 1185 2811 lineto 545 2900 lineto 554 2669 lineto 566 2319 lineto 600 1274 lineto 1430 2081 lineto 1884 2518 lineto 2058 2689 lineto stroke -600 -400 translate %ANF FANxyal3: MULYA= 5000 BEO=02 CIELUV 1976 IXY0: 600 400 2CR UNB 600 400 translate 1045 2440 moveto 1045 2440 lineto stroke -600 -400 translate %ANF FANxyal3: MULYA= 5000 BEO=02 CIELUV 1976 IXY0: 600 400 3O RGB 600 400 translate 1045 2440 moveto 1045 2440 lineto 2058 2689 lineto stroke 1 0 0 setrgbcolor 2058 2689 50 0 360 arc fill 0 setgray 2058 2689 50 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 5000 BEO=02 CIELUV 1976 IXY0: 600 400 4Y RGB 600 400 translate 1045 2440 moveto 1045 2440 lineto 1185 2811 lineto stroke 1 1 0 setrgbcolor 1185 2811 50 0 360 arc fill 0 setgray 1185 2811 50 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 5000 BEO=02 CIELUV 1976 IXY0: 600 400 5L RGB 600 400 translate 1045 2440 moveto 1045 2440 lineto 545 2900 lineto stroke 0 1 0 setrgbcolor 545 2900 50 0 360 arc fill 0 setgray 545 2900 50 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 5000 BEO=02 CIELUV 1976 IXY0: 600 400 6G RGB 600 400 translate 1045 2440 moveto 1045 2440 lineto 554 2669 lineto stroke 0 1 0 setrgbcolor 554 2669 50 0 360 arc fill 0 setgray 554 2669 50 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 5000 BEO=02 CIELUV 1976 IXY0: 600 400 7C RGB 600 400 translate 1045 2440 moveto 1045 2440 lineto 566 2319 lineto stroke 0 1 1 setrgbcolor 566 2319 50 0 360 arc fill 0 setgray 566 2319 50 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 5000 BEO=02 CIELUV 1976 IXY0: 600 400 8V RGB 600 400 translate 1045 2440 moveto 1045 2440 lineto 600 1274 lineto stroke 0 0 1 setrgbcolor 600 1274 50 0 360 arc fill 0 setgray 600 1274 50 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 5000 BEO=02 CIELUV 1976 IXY0: 600 400 9M RGB 600 400 translate 1045 2440 moveto 1045 2440 lineto 1430 2081 lineto stroke 1 0 1 setrgbcolor 1430 2081 50 0 360 arc fill 0 setgray 1430 2081 50 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 5000 BEO=02 CIELUV 1976 IXY0: 600 400 10R RGB 600 400 translate 1045 2440 moveto 1045 2440 lineto 1884 2518 lineto stroke 1 0 0 setrgbcolor 1884 2518 50 0 360 arc fill 0 setgray 1884 2518 50 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 5000 BEO=02 CIELUV 1976 IXY0: 600 400 11O RGB 600 400 translate 1045 2440 moveto 1045 2440 lineto 2058 2689 lineto stroke -600 -400 translate %ANF FANxyal3: MULYA= 5000 BEO=02 CIELUV 1976 IXY0: 600 400 12 R 600 400 translate 2125 2548 moveto 2125 2548 lineto 2125 2548 lineto 2125 2548 lineto stroke 1 0 0 setrgbcolor 2125 2548 80 0 360 arc fill 0 setgray 2125 2548 80 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 5000 BEO=02 CIELUV 1976 IXY0: 600 400 13 J 600 400 translate 1187 2735 moveto 1187 2735 lineto 1187 2735 lineto 1187 2735 lineto stroke 1 1 0 setrgbcolor 1187 2735 80 0 360 arc fill 0 setgray 1187 2735 80 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 5000 BEO=02 CIELUV 1976 IXY0: 600 400 14 G 600 400 translate 701 2582 moveto 701 2582 lineto 701 2582 lineto 701 2582 lineto stroke 0 1 0 setrgbcolor 701 2582 80 0 360 arc fill 0 setgray 701 2582 80 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 5000 BEO=02 CIELUV 1976 IXY0: 600 400 15 B 600 400 translate 666 1687 moveto 666 1687 lineto 666 1687 lineto 666 1687 lineto stroke 0 0 1 setrgbcolor 666 1687 80 0 360 arc fill 0 setgray 666 1687 80 0 360 arc stroke -600 -400 translate 600 400 translate 989 2341 40 0 360 arc fill -600 -400 translate %ENDE:10 grestore showpage %%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 JE591-3 from DKB200:[RR.POS]B8011-34.EPS %%BoundingBox: 70 82 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/JE59/) /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:2010030112000) /ModDate (D:2010030112000) /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 %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 6 /Times-ISOL1 FS 72 84 moveto (JE591-3, ) show (Colours in ) showen (Farben in ) showde 6 /TimesI-ISOL1 FS ((a,b) ) show 6 /Times-ISOL1 FS (chromaticity diagram) showen (Farbtafel) showde 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath clip 700 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3000 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -350 500 moveto (-0,8) show 550 500 moveto (0,0) show 1350 500 moveto (0,8) show 2150 500 moveto (1,6) show 2950 500 moveto (2,4) show 3750 500 moveto (3,2) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -650 -100 moveto ( 0,0) show -650 -900 moveto (-0,8) show -650 -1700 moveto (-1,6) show -650 -2500 moveto (-2,4) show 350 /TimesI-ISOL1 FS -650 -3050 moveto 30 0 (b) ashow 350 /Times-ISOL1 FS 30 0 (=-0,25) ashow 350 /TimesI-ISOL1 FS 50 0 (z/y) ashow 350 /TimesI-ISOL1 FS 3650 100 moveto 30 0 (a=x/y) ashow -700 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 1000 BEO=02 (a=x/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 36136 -42834 moveto 36136 -42834 36234 -43046 35958 -42851 curveto 35610 -42580 33600 -40350 29424 -35585 curveto 24474 -29862 19507 -24094 15143 -18990 curveto 11681 -14954 8847 -11658 6639 -9083 curveto 4846 -6955 3397 -5169 2147 -3538 curveto 1261 -2313 688 -1462 342 -909 curveto 153 -559 56 -341 15 -210 curveto 5 -130 18 -78 47 -45 curveto 89 -27 138 -18 191 -12 curveto 246 -8 304 -5 366 -3 curveto 435 -2 512 -1 597 0 curveto 693 0 800 0 920 0 curveto 1053 0 1198 0 1355 0 curveto 1520 0 1683 0 1844 0 curveto 1993 0 2126 0 2242 0 curveto 2340 0 2424 0 2497 0 curveto 2559 0 2610 0 2649 0 curveto 2680 0 2703 0 2718 0 curveto 2731 0 2741 0 2751 0 curveto 2760 0 2764 0 2767 0 curveto 2769 0 2770 0 2824 -73 curveto 3023 -330 3168 -510 3275 -647 curveto 3357 -755 3430 -843 3482 -918 curveto 3545 -998 3622 -1091 3704 -1201 curveto 3817 -1347 3983 -1560 4262 -1911 curveto 4786 -2593 6341 -4591 35775 -42406 curveto stroke 1 setgray 36136 -42834 30 0 360 arc fill % 400 29424 -35585 30 0 360 arc fill % 425 8847 -11658 30 0 360 arc fill % 450 1261 -2313 30 0 360 arc fill % 475 15 -210 30 0 360 arc fill % 500 138 -18 30 0 360 arc fill % 525 435 -2 30 0 360 arc fill % 550 920 0 30 0 360 arc fill % 575 1683 0 30 0 360 arc fill % 600 2340 0 30 0 360 arc fill % 625 2649 0 30 0 360 arc fill % 650 2741 0 30 0 360 arc fill % 675 2769 0 30 0 360 arc fill % 700 3023 -330 30 0 360 arc fill %500c 3482 -918 30 0 360 arc fill %525c 3983 -1560 30 0 360 arc fill %550c 0 setgray 36136 -42834 30 0 360 arc stroke % 400 29424 -35585 30 0 360 arc stroke % 425 8847 -11658 30 0 360 arc stroke % 450 1261 -2313 30 0 360 arc stroke % 475 15 -210 30 0 360 arc stroke % 500 138 -18 30 0 360 arc stroke % 525 435 -2 30 0 360 arc stroke % 550 920 0 30 0 360 arc stroke % 575 1683 0 30 0 360 arc stroke % 600 2340 0 30 0 360 arc stroke % 625 2649 0 30 0 360 arc stroke % 650 2741 0 30 0 360 arc stroke % 675 2769 0 30 0 360 arc stroke % 700 3023 -330 30 0 360 arc stroke %500c 3482 -918 30 0 360 arc stroke %525c 3983 -1560 30 0 360 arc stroke %550c 950 -272 30 0 360 arc fill %D65 0 setgray 250 /TimesI-ISOL1 FS % 36136 500 sub -42834 100 sub moveto (400) show % 29424 500 sub -35585 100 sub moveto (425) show % 8847 500 sub -11658 100 sub moveto (450) show 1261 500 sub -2313 100 sub moveto (475) show 15 500 sub -210 100 sub moveto (500) show 138 200 sub -18 100 add moveto (525) show % 435 200 sub -2 100 add moveto (550) show 920 200 sub 0 100 add moveto (575) show 1683 200 sub 0 100 add moveto (600) show 2340 200 sub 0 100 add moveto (625) show % 2649 200 sub 0 100 add moveto (650) show % 2741 200 sub 0 100 add moveto (675) show % 2769 100 add 0 100 sub moveto (700) show 3023 50 add -330 000 sub moveto (500c) show 3482 450 sub -918 200 sub moveto (525c) show % 3983 100 add -1560 100 sub moveto (550c) show 950 100 add -272 100 sub moveto %(D65 ) show -1500 -3200 translate %ENDE:11 %1000 02 15 01 16 01 00 JA JA NE 01 ******************** % 15 CR F39RGB_D50_W_JK59.DAT Elementarfbn (x,y,Y), Model 1.3.2010 %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 1722 0 moveto 1722 0 lineto 948 -4 lineto 422 -7 lineto 467 -115 lineto 549 -320 lineto 1059 -1603 lineto 1546 -422 lineto 1683 -98 lineto 1722 0 lineto stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 964 -206 moveto 964 -206 lineto stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 964 -206 moveto 964 -206 lineto 1722 0 lineto stroke 1 0 0 setrgbcolor 1722 0 50 0 360 arc fill 0 setgray 1722 0 50 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 964 -206 moveto 964 -206 lineto 948 -4 lineto stroke 1 1 0 setrgbcolor 948 -4 50 0 360 arc fill 0 setgray 948 -4 50 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 964 -206 moveto 964 -206 lineto 422 -7 lineto stroke 0 1 0 setrgbcolor 422 -7 50 0 360 arc fill 0 setgray 422 -7 50 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 964 -206 moveto 964 -206 lineto 467 -115 lineto stroke 0 1 0 setrgbcolor 467 -115 50 0 360 arc fill 0 setgray 467 -115 50 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 964 -206 moveto 964 -206 lineto 549 -320 lineto stroke 0 1 1 setrgbcolor 549 -320 50 0 360 arc fill 0 setgray 549 -320 50 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 964 -206 moveto 964 -206 lineto 1059 -1603 lineto stroke 0 0 1 setrgbcolor 1059 -1603 50 0 360 arc fill 0 setgray 1059 -1603 50 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 964 -206 moveto 964 -206 lineto 1546 -422 lineto stroke 1 0 1 setrgbcolor 1546 -422 50 0 360 arc fill 0 setgray 1546 -422 50 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 964 -206 moveto 964 -206 lineto 1683 -98 lineto stroke 1 0 0 setrgbcolor 1683 -98 50 0 360 arc fill 0 setgray 1683 -98 50 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 964 -206 moveto 964 -206 lineto 1722 0 lineto stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 1876 -65 moveto 1876 -65 lineto 1876 -65 lineto 1876 -65 lineto stroke 1 0 0 setrgbcolor 1876 -65 80 0 360 arc fill 0 setgray 1876 -65 80 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 976 -39 moveto 976 -39 lineto 976 -39 lineto 976 -39 lineto stroke 1 1 0 setrgbcolor 976 -39 80 0 360 arc fill 0 setgray 976 -39 80 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 611 -150 moveto 611 -150 lineto 611 -150 lineto 611 -150 lineto stroke 0 1 0 setrgbcolor 611 -150 80 0 360 arc fill 0 setgray 611 -150 80 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 888 -897 moveto 888 -897 lineto 888 -897 lineto 888 -897 lineto stroke 0 0 1 setrgbcolor 888 -897 80 0 360 arc fill 0 setgray 888 -897 80 0 360 arc stroke -1500 -3200 translate 1500 3200 translate 950 -272 40 0 360 arc fill -1500 -3200 translate %ENDE:11 %END-35 %END-34 %END-33 %Platz für Text 700 3200 translate 1 setgray 2733 -3100 moveto 1800 0 rlineto 0 1200 rlineto -1800 0 rlineto closepath fill 0 setgray 2733 -3100 moveto 1800 0 rlineto 0 1200 rlineto -1800 0 rlineto closepath stroke 250 /TimesI-ISOL1 FS 2800 -2150 moveto (OYLCVM_D50_W) show 250 /TimesI-ISOL1 FS 2800 -2400 moveto 20 0 (a=x/y) ashow 2800 -2700 moveto 20 0 (b) ashow 250 /Times-ISOL1 FS 20 0 (=-0,25) ashow 250 /TimesI-ISOL1 FS 20 0 (z/y) ashow 300 /TimesI-ISOL1 FS 2800 -3050 moveto (LAB 1987) show -700 -3200 translate %Platz ACHTUNG Kurvenüberschreibung grestore showpage %%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 JE591-4 from DKB200:[RR.POS]B8011-44.EPS %%BoundingBox: 70 82 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/JE59/) /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:2010030112000) /ModDate (D:2010030112000) /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 %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 6 /Times-ISOL1 FS 72 84 moveto (JE591-4, ) show (Colours in ) showen (Farben in ) showde 6 /TimesI-ISOL1 FS ((a,b) ) show 6 /Times-ISOL1 FS (chromaticity diagram) showen (Farbtafel) showde 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath clip 700 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3500 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -350 500 moveto (-1,6) show 450 500 moveto (-0,8) show 1350 500 moveto (0,0) show 2150 500 moveto (0,8) show 2950 500 moveto (1,6) show 3750 500 moveto (2,4) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -650 -100 moveto ( 0,0) show -650 -900 moveto (-0,8) show -650 -1700 moveto (-1,6) show -650 -2500 moveto (-2,4) show 350 /TimesI-ISOL1 FS -450 -3050 moveto (b) show 350 /TimesI-ISOL1 FS 4300 250 moveto (a) show % Text auf Weiß am Ende -700 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate -346 -42834 moveto -346 -42834 -414 -43046 -504 -42851 curveto -602 -42580 -700 -40350 -809 -35585 curveto -887 -29862 -947 -24094 -974 -18990 curveto -1006 -14954 -1036 -11658 -1056 -9083 curveto -1044 -6955 -990 -5169 -879 -3538 curveto -753 -2313 -630 -1462 -529 -909 curveto -439 -559 -367 -341 -309 -210 curveto -261 -130 -214 -78 -167 -45 curveto -120 -27 -73 -18 -25 -12 curveto 22 -8 72 -5 125 -3 curveto 182 -2 246 -1 317 0 curveto 396 0 485 0 583 0 curveto 693 0 813 0 943 0 curveto 1079 0 1213 0 1346 0 curveto 1469 0 1579 0 1674 0 curveto 1756 0 1824 0 1885 0 curveto 1936 0 1978 0 2010 0 curveto 2036 0 2055 0 2067 0 curveto 2078 0 2086 0 2094 0 curveto 2102 0 2106 0 2108 0 curveto 2109 0 2110 0 2103 -73 curveto 2087 -330 2081 -510 2074 -647 curveto 2066 -755 2065 -843 2055 -918 curveto 2051 -998 2049 -1091 2040 -1201 curveto 2030 -1347 2019 -1560 2003 -1911 curveto 1958 -2593 1842 -4591 -344 -42406 curveto stroke 1 setgray -346 -42834 30 0 360 arc fill % 400 -809 -35585 30 0 360 arc fill % 425 -1036 -11658 30 0 360 arc fill % 450 -753 -2313 30 0 360 arc fill % 475 -309 -210 30 0 360 arc fill % 500 -73 -18 30 0 360 arc fill % 525 182 -2 30 0 360 arc fill % 550 583 0 30 0 360 arc fill % 575 1213 0 30 0 360 arc fill % 600 1756 0 30 0 360 arc fill % 625 2010 0 30 0 360 arc fill % 650 2086 0 30 0 360 arc fill % 675 2109 0 30 0 360 arc fill % 700 2087 -330 30 0 360 arc fill %500c 2055 -918 30 0 360 arc fill %525c 2019 -1560 30 0 360 arc fill %550c 0 setgray -346 -42834 30 0 360 arc stroke % 400 -809 -35585 30 0 360 arc stroke % 425 -1036 -11658 30 0 360 arc stroke % 450 -753 -2313 30 0 360 arc stroke % 475 -309 -210 30 0 360 arc stroke % 500 -73 -18 30 0 360 arc stroke % 525 182 -2 30 0 360 arc stroke % 550 583 0 30 0 360 arc stroke % 575 1213 0 30 0 360 arc stroke % 600 1756 0 30 0 360 arc stroke % 625 2010 0 30 0 360 arc stroke % 650 2086 0 30 0 360 arc stroke % 675 2109 0 30 0 360 arc stroke % 700 2087 -330 30 0 360 arc stroke %500c 2055 -918 30 0 360 arc stroke %525c 2019 -1560 30 0 360 arc stroke %550c 418 -272 30 0 360 arc fill %D65 0 setgray 250 /TimesI-ISOL1 FS -346 500 sub -42834 100 sub moveto (400) show -809 500 sub -35585 100 sub moveto (425) show -1036 500 sub -11658 100 sub moveto (450) show -753 500 sub -2313 100 sub moveto (475) show -309 500 sub -210 100 sub moveto (500) show -73 200 sub -18 100 add moveto (525) show % 182 200 sub -2 100 add moveto (550) show 583 200 sub 0 100 add moveto (575) show 1213 200 sub 0 100 add moveto (600) show 1756 200 sub 0 100 add moveto (625) show % 2010 200 sub 0 100 add moveto (650) show % 2086 200 sub 0 100 add moveto (675) show 2109 100 add 0 100 sub moveto (700) show 2087 100 add -330 100 sub moveto (500c) show 2055 100 add -918 100 sub moveto (525c) show 2019 100 add -1560 100 sub moveto (550c) show 418 100 add -272 100 sub moveto %(D65 ) show -2300 -3200 translate %ENDE:12 %1000 02 15 01 16 01 00 JA JA NE 01 ******************** % 15 CR F39RGB_D50_W_JK59.DAT Elementarfbn (x,y,Y), Model 1.3.2010 %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 1245 0 moveto 1245 0 lineto 604 -4 lineto 168 -7 lineto 129 -115 lineto 53 -320 lineto -423 -1603 lineto 805 -422 lineto 1144 -98 lineto 1245 0 lineto stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 476 -206 moveto 476 -206 lineto stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 476 -206 moveto 476 -206 lineto 1245 0 lineto stroke 1 0 0 setrgbcolor 1245 0 50 0 360 arc fill 0 setgray 1245 0 50 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 476 -206 moveto 476 -206 lineto 604 -4 lineto stroke 1 1 0 setrgbcolor 604 -4 50 0 360 arc fill 0 setgray 604 -4 50 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 476 -206 moveto 476 -206 lineto 168 -7 lineto stroke 0 1 0 setrgbcolor 168 -7 50 0 360 arc fill 0 setgray 168 -7 50 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 476 -206 moveto 476 -206 lineto 129 -115 lineto stroke 0 1 0 setrgbcolor 129 -115 50 0 360 arc fill 0 setgray 129 -115 50 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 476 -206 moveto 476 -206 lineto 53 -320 lineto stroke 0 1 1 setrgbcolor 53 -320 50 0 360 arc fill 0 setgray 53 -320 50 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 476 -206 moveto 476 -206 lineto -423 -1603 lineto stroke 0 0 1 setrgbcolor -423 -1603 50 0 360 arc fill 0 setgray -423 -1603 50 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 476 -206 moveto 476 -206 lineto 805 -422 lineto stroke 1 0 1 setrgbcolor 805 -422 50 0 360 arc fill 0 setgray 805 -422 50 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 476 -206 moveto 476 -206 lineto 1144 -98 lineto stroke 1 0 0 setrgbcolor 1144 -98 50 0 360 arc fill 0 setgray 1144 -98 50 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 476 -206 moveto 476 -206 lineto 1245 0 lineto stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 1327 -65 moveto 1327 -65 lineto 1327 -65 lineto 1327 -65 lineto stroke 1 0 0 setrgbcolor 1327 -65 80 0 360 arc fill 0 setgray 1327 -65 80 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 603 -39 moveto 603 -39 lineto 603 -39 lineto 603 -39 lineto stroke 1 1 0 setrgbcolor 603 -39 80 0 360 arc fill 0 setgray 603 -39 80 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 223 -150 moveto 223 -150 lineto 223 -150 lineto 223 -150 lineto stroke 0 1 0 setrgbcolor 223 -150 80 0 360 arc fill 0 setgray 223 -150 80 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate -70 -897 moveto -70 -897 lineto -70 -897 lineto -70 -897 lineto stroke 0 0 1 setrgbcolor -70 -897 80 0 360 arc fill 0 setgray -70 -897 80 0 360 arc stroke -2300 -3200 translate 2300 3200 translate 418 -272 40 0 360 arc fill -2300 -3200 translate %ENDE:12 %END-48 %END-47 %END-46 %END-45 %END-44 %END-43 %END-42 %END-41 %Platz für Text 700 3200 translate 1 setgray 2733 -3100 moveto 1800 0 rlineto 0 1200 rlineto -1800 0 rlineto closepath fill 0 setgray 2733 -3100 moveto 1800 0 rlineto 0 1200 rlineto -1800 0 rlineto closepath stroke 250 /TimesI-ISOL1 FS 2800 -2400 moveto 20 0 (a) ashow 250 /Times-ISOL1 FS 20 0 (=[) ashow 250 /TimesI-ISOL1 FS 20 0 (x) ashow 250 /Times-ISOL1 FS 20 0 (-0,175]/) ashow 250 /TimesI-ISOL1 FS 20 0 (y) ashow 250 /TimesI-ISOL1 FS 2800 -2700 moveto 20 0 (b) ashow 250 /Times-ISOL1 FS 20 0 (=-0,25) ashow 250 /TimesI-ISOL1 FS 20 0 (z/y) ashow 250 /TimesI-ISOL1 FS 2800 -2150 moveto (OYLCVM_D50_W) show 2800 -3050 moveto (LAB 1987) show -700 -3200 translate %Platz ACHTUNG Kurvenüberschreibung grestore showpage %%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 JE591-5 from DKB200:[RR.POS]B8011-54.EPS %%BoundingBox: 70 82 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/JE59/) /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:2010030112000) /ModDate (D:2010030112000) /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 %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 6 /Times-ISOL1 FS 72 84 moveto (JE591-5, ) show (Colours in ) showen (Farben in ) showde 6 /TimesI-ISOL1 FS ((a,b) ) show 6 /Times-ISOL1 FS (chromaticity diagram) showen (Farbtafel) showde 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath clip 700 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3500 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -350 500 moveto (-0,8) show 550 500 moveto (0,0) show 1350 500 moveto (0,8) show 2150 500 moveto (1,6) show 2950 500 moveto (2,4) show 3750 500 moveto (3,2) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -650 -100 moveto ( 0,0) show -650 -900 moveto (-0,8) show -650 -1700 moveto (-1,6) show -650 -2500 moveto (-2,4) show 350 /TimesI-ISOL1 FS -450 -3050 moveto (b) show 350 /TimesI-ISOL1 FS 4300 250 moveto (a) show -700 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y+0.175z/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 29637 -42834 moveto 29637 -42834 29718 -43046 29490 -42851 curveto 29203 -42580 27545 -40350 24100 -35585 curveto 20016 -29862 15918 -24094 12318 -18990 curveto 9461 -14954 7124 -11658 5302 -9083 curveto 3823 -6955 2628 -5169 1596 -3538 curveto 866 -2313 392 -1462 107 -909 curveto -48 -559 -128 -341 -162 -210 curveto -170 -130 -159 -78 -135 -45 curveto -101 -27 -61 -18 -16 -12 curveto 28 -8 76 -5 127 -3 curveto 184 -2 247 -1 317 0 curveto 396 0 485 0 584 0 curveto 693 0 814 0 943 0 curveto 1079 0 1213 0 1346 0 curveto 1469 0 1579 0 1675 0 curveto 1756 0 1824 0 1885 0 curveto 1936 0 1978 0 2010 0 curveto 2036 0 2055 0 2067 0 curveto 2078 0 2086 0 2094 0 curveto 2102 0 2106 0 2108 0 curveto 2109 0 2110 0 2155 -73 curveto 2319 -330 2438 -510 2527 -647 curveto 2595 -755 2655 -843 2698 -918 curveto 2750 -998 2813 -1091 2881 -1201 curveto 2974 -1347 3111 -1560 3341 -1911 curveto 3773 -2593 5056 -4591 29339 -42406 curveto stroke 1 setgray 29637 -42834 30 0 360 arc fill % 400 24100 -35585 30 0 360 arc fill % 425 7124 -11658 30 0 360 arc fill % 450 866 -2313 30 0 360 arc fill % 475 -162 -210 30 0 360 arc fill % 500 -61 -18 30 0 360 arc fill % 525 184 -2 30 0 360 arc fill % 550 584 0 30 0 360 arc fill % 575 1213 0 30 0 360 arc fill % 600 1756 0 30 0 360 arc fill % 625 2010 0 30 0 360 arc fill % 650 2086 0 30 0 360 arc fill % 675 2109 0 30 0 360 arc fill % 700 2319 -330 30 0 360 arc fill %500c 2698 -918 30 0 360 arc fill %525c 3111 -1560 30 0 360 arc fill %550c 0 setgray 29637 -42834 30 0 360 arc stroke % 400 24100 -35585 30 0 360 arc stroke % 425 7124 -11658 30 0 360 arc stroke % 450 866 -2313 30 0 360 arc stroke % 475 -162 -210 30 0 360 arc stroke % 500 -61 -18 30 0 360 arc stroke % 525 184 -2 30 0 360 arc stroke % 550 584 0 30 0 360 arc stroke % 575 1213 0 30 0 360 arc stroke % 600 1756 0 30 0 360 arc stroke % 625 2010 0 30 0 360 arc stroke % 650 2086 0 30 0 360 arc stroke % 675 2109 0 30 0 360 arc stroke % 700 2319 -330 30 0 360 arc stroke %500c 2698 -918 30 0 360 arc stroke %525c 3111 -1560 30 0 360 arc stroke %550c 609 -272 30 0 360 arc fill %D65 0 setgray 250 /TimesI-ISOL1 FS 29637 500 sub -42834 100 sub moveto (400) show 24100 500 sub -35585 100 sub moveto (425) show 7124 500 sub -11658 100 sub moveto (450) show % 866 500 sub -2313 100 sub moveto (475) show -162 500 sub -210 100 sub moveto (500) show -61 200 sub -18 100 add moveto (525) show % 184 200 sub -2 100 add moveto (550) show 584 200 sub 0 100 add moveto (575) show 1213 200 sub 0 100 add moveto (600) show 1756 200 sub 0 100 add moveto (625) show % 2010 200 sub 0 100 add moveto (650) show % 2086 200 sub 0 100 add moveto (675) show 2109 100 add 0 100 sub moveto (700) show 2319 100 add -330 100 sub moveto (500c) show 2698 100 add -918 100 sub moveto (525c) show 3111 100 add -1560 100 sub moveto (550c) show 609 100 add -272 100 sub moveto %(D65 ) show -1500 -3200 translate %ENDE:13 %1000 02 15 01 16 01 00 JA JA NE 01 ******************** % 15 CR F39RGB_D50_W_JK59.DAT Elementarfbn (x,y,Y), Model 1.3.2010 %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y+0.175z/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 1245 0 moveto 1245 0 lineto 607 -4 lineto 173 -7 lineto 210 -115 lineto 278 -320 lineto 698 -1603 lineto 1100 -422 lineto 1213 -98 lineto 1245 0 lineto stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y+0.175z/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 620 -206 moveto 620 -206 lineto stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y+0.175z/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 620 -206 moveto 620 -206 lineto 1245 0 lineto stroke 1 0 0 setrgbcolor 1245 0 50 0 360 arc fill 0 setgray 1245 0 50 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y+0.175z/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 620 -206 moveto 620 -206 lineto 607 -4 lineto stroke 1 1 0 setrgbcolor 607 -4 50 0 360 arc fill 0 setgray 607 -4 50 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y+0.175z/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 620 -206 moveto 620 -206 lineto 173 -7 lineto stroke 0 1 0 setrgbcolor 173 -7 50 0 360 arc fill 0 setgray 173 -7 50 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y+0.175z/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 620 -206 moveto 620 -206 lineto 210 -115 lineto stroke 0 1 0 setrgbcolor 210 -115 50 0 360 arc fill 0 setgray 210 -115 50 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y+0.175z/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 620 -206 moveto 620 -206 lineto 278 -320 lineto stroke 0 1 1 setrgbcolor 278 -320 50 0 360 arc fill 0 setgray 278 -320 50 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y+0.175z/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 620 -206 moveto 620 -206 lineto 698 -1603 lineto stroke 0 0 1 setrgbcolor 698 -1603 50 0 360 arc fill 0 setgray 698 -1603 50 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y+0.175z/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 620 -206 moveto 620 -206 lineto 1100 -422 lineto stroke 1 0 1 setrgbcolor 1100 -422 50 0 360 arc fill 0 setgray 1100 -422 50 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y+0.175z/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 620 -206 moveto 620 -206 lineto 1213 -98 lineto stroke 1 0 0 setrgbcolor 1213 -98 50 0 360 arc fill 0 setgray 1213 -98 50 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y+0.175z/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 620 -206 moveto 620 -206 lineto 1245 0 lineto stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y+0.175z/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 1373 -65 moveto 1373 -65 lineto 1373 -65 lineto 1373 -65 lineto stroke 1 0 0 setrgbcolor 1373 -65 80 0 360 arc fill 0 setgray 1373 -65 80 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y+0.175z/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 630 -39 moveto 630 -39 lineto 630 -39 lineto 630 -39 lineto stroke 1 1 0 setrgbcolor 630 -39 80 0 360 arc fill 0 setgray 630 -39 80 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y+0.175z/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 329 -150 moveto 329 -150 lineto 329 -150 lineto 329 -150 lineto stroke 0 1 0 setrgbcolor 329 -150 80 0 360 arc fill 0 setgray 329 -150 80 0 360 arc stroke -1500 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=x/y-0.175/y+0.175z/y,b=-0.25z/y) IXY0: 1500 3200 1500 3200 translate 557 -897 moveto 557 -897 lineto 557 -897 lineto 557 -897 lineto stroke 0 0 1 setrgbcolor 557 -897 80 0 360 arc fill 0 setgray 557 -897 80 0 360 arc stroke -1500 -3200 translate 1500 3200 translate 609 -272 40 0 360 arc fill -1500 -3200 translate %ENDE:13 %END-48 %Platz für Text 700 3200 translate 1 setgray 1533 -3100 moveto 3000 0 rlineto 0 1200 rlineto -3000 0 rlineto closepath fill 0 setgray 1533 -3100 moveto 3000 0 rlineto 0 1200 rlineto -3000 0 rlineto closepath stroke 300 /TimesI-ISOL1 FS 1600 -2150 moveto (OYLCVM_D50_W) show 250 /TimesI-ISOL1 FS 1600 -2400 moveto 20 0 (a) ashow 250 /Times-ISOL1 FS 20 0 (=[) ashow 250 /TimesI-ISOL1 FS 20 0 (x) ashow 250 /Times-ISOL1 FS 20 0 (-0,175]/) ashow 250 /TimesI-ISOL1 FS 20 0 (y) ashow 250 /Times-ISOL1 FS 20 0 (+0,175) ashow 250 /TimesI-ISOL1 FS 20 0 (z/y) ashow 250 /TimesI-ISOL1 FS 1600 -2700 moveto 20 0 (b) ashow 250 /Times-ISOL1 FS 20 0 (=-0,25) ashow 250 /TimesI-ISOL1 FS 20 0 (z/y) ashow 300 /TimesI-ISOL1 FS 1600 -3050 moveto (LAB 1987) show -700 -3200 translate %Platz ACHTUNG Kurvenüberschreibung grestore showpage %%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 JE591-6 from DKB200:[RR.POS]B8011-64.EPS %%BoundingBox: 70 82 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/JE59/) /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:2010030112000) /ModDate (D:2010030112000) /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 %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 6 /Times-ISOL1 FS 72 84 moveto (JE591-6, ) show (Colours in ) showen (Farben in ) showde 6 /TimesI-ISOL1 FS ((a,b) ) show 6 /Times-ISOL1 FS (chromaticity diagram) showen (Farbtafel) showde 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath clip 700 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3500 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -350 500 moveto (-1,6) show 450 500 moveto (-0,8) show 1350 500 moveto (0,0) show 2150 500 moveto (0,8) show 2950 500 moveto (1,6) show 3750 500 moveto (2,4) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -650 -100 moveto ( 0,0) show -650 -900 moveto (-0,8) show -650 -1700 moveto (-1,6) show -650 -2500 moveto (-2,4) show 350 /TimesI-ISOL1 FS -450 -3050 moveto (b) show 350 /TimesI-ISOL1 FS 4300 250 moveto (a) show -700 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 1000 BEO=02 (a=0.825x/y-0.175z/y,b=-0.25z/y) IXY0: 2300 3200XZ= 2300 3200 translate -171 -42834 moveto -171 -42834 -239 -43046 -329 -42851 curveto -427 -42580 -525 -40350 -634 -35585 curveto -712 -29862 -772 -24094 -799 -18990 curveto -831 -14954 -861 -11658 -881 -9083 curveto -869 -6955 -815 -5169 -704 -3538 curveto -578 -2313 -455 -1462 -354 -909 curveto -264 -559 -192 -341 -134 -210 curveto -86 -130 -39 -78 7 -45 curveto 54 -27 101 -18 149 -12 curveto 197 -8 247 -5 300 -3 curveto 357 -2 421 -1 492 0 curveto 571 0 660 0 758 0 curveto 868 0 988 0 1118 0 curveto 1254 0 1388 0 1521 0 curveto 1644 0 1754 0 1849 0 curveto 1931 0 1999 0 2060 0 curveto 2111 0 2153 0 2185 0 curveto 2211 0 2230 0 2242 0 curveto 2253 0 2261 0 2269 0 curveto 2277 0 2281 0 2283 0 curveto 2284 0 2285 0 2278 -73 curveto 2262 -330 2256 -510 2249 -647 curveto 2241 -755 2240 -843 2230 -918 curveto 2226 -998 2224 -1091 2215 -1201 curveto 2205 -1347 2194 -1560 2178 -1911 curveto 2133 -2593 2017 -4591 -169 -42406 curveto stroke 1 setgray -171 -42834 30 0 360 arc fill % 400 -634 -35585 30 0 360 arc fill % 425 -861 -11658 30 0 360 arc fill % 450 -578 -2313 30 0 360 arc fill % 475 -134 -210 30 0 360 arc fill % 500 101 -18 30 0 360 arc fill % 525 357 -2 30 0 360 arc fill % 550 758 0 30 0 360 arc fill % 575 1388 0 30 0 360 arc fill % 600 1931 0 30 0 360 arc fill % 625 2185 0 30 0 360 arc fill % 650 2261 0 30 0 360 arc fill % 675 2284 0 30 0 360 arc fill % 700 2262 -330 30 0 360 arc fill %500c 2230 -918 30 0 360 arc fill %525c 2194 -1560 30 0 360 arc fill %550c 0 setgray -171 -42834 30 0 360 arc stroke % 400 -634 -35585 30 0 360 arc stroke % 425 -861 -11658 30 0 360 arc stroke % 450 -578 -2313 30 0 360 arc stroke % 475 -134 -210 30 0 360 arc stroke % 500 101 -18 30 0 360 arc stroke % 525 357 -2 30 0 360 arc stroke % 550 758 0 30 0 360 arc stroke % 575 1388 0 30 0 360 arc stroke % 600 1931 0 30 0 360 arc stroke % 625 2185 0 30 0 360 arc stroke % 650 2261 0 30 0 360 arc stroke % 675 2284 0 30 0 360 arc stroke % 700 2262 -330 30 0 360 arc stroke %500c 2230 -918 30 0 360 arc stroke %525c 2194 -1560 30 0 360 arc stroke %550c 593 -272 30 0 360 arc fill %D65 0 setgray 250 /TimesI-ISOL1 FS -171 500 sub -42834 100 sub moveto (400) show -634 500 sub -35585 100 sub moveto (425) show -861 500 sub -11658 100 sub moveto (450) show -578 500 sub -2313 100 sub moveto (475) show -134 500 sub -210 100 sub moveto (500) show 101 200 sub -18 100 add moveto (525) show % 357 200 sub -2 100 add moveto (550) show 758 200 sub 0 100 add moveto (575) show 1388 200 sub 0 100 add moveto (600) show 1931 200 sub 0 100 add moveto (625) show % 2185 200 sub 0 100 add moveto (650) show % 2261 200 sub 0 100 add moveto (675) show 2284 100 add 0 100 sub moveto (700) show 2262 100 add -330 100 sub moveto (500c) show 2230 100 add -918 100 sub moveto (525c) show 2194 100 add -1560 100 sub moveto (550c) show 593 100 add -272 100 sub moveto %(D65 ) show -2300 -3200 translate %ENDE:14 %1000 02 15 01 16 01 00 JA JA NE 01 ******************** % 15 CR F39RGB_D50_W_JK59.DAT Elementarfbn (x,y,Y), Model 1.3.2010 %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=0.825x/y-0.175z/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 1420 0 moveto 1420 0 lineto 779 -4 lineto 343 -7 lineto 304 -115 lineto 228 -320 lineto -248 -1603 lineto 980 -422 lineto 1319 -98 lineto 1420 0 lineto stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=0.825x/y-0.175z/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 651 -206 moveto 651 -206 lineto stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=0.825x/y-0.175z/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 651 -206 moveto 651 -206 lineto 1420 0 lineto stroke 1 0 0 setrgbcolor 1420 0 50 0 360 arc fill 0 setgray 1420 0 50 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=0.825x/y-0.175z/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 651 -206 moveto 651 -206 lineto 779 -4 lineto stroke 1 1 0 setrgbcolor 779 -4 50 0 360 arc fill 0 setgray 779 -4 50 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=0.825x/y-0.175z/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 651 -206 moveto 651 -206 lineto 343 -7 lineto stroke 0 1 0 setrgbcolor 343 -7 50 0 360 arc fill 0 setgray 343 -7 50 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=0.825x/y-0.175z/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 651 -206 moveto 651 -206 lineto 304 -115 lineto stroke 0 1 0 setrgbcolor 304 -115 50 0 360 arc fill 0 setgray 304 -115 50 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=0.825x/y-0.175z/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 651 -206 moveto 651 -206 lineto 228 -320 lineto stroke 0 1 1 setrgbcolor 228 -320 50 0 360 arc fill 0 setgray 228 -320 50 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=0.825x/y-0.175z/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 651 -206 moveto 651 -206 lineto -248 -1603 lineto stroke 0 0 1 setrgbcolor -248 -1603 50 0 360 arc fill 0 setgray -248 -1603 50 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=0.825x/y-0.175z/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 651 -206 moveto 651 -206 lineto 980 -422 lineto stroke 1 0 1 setrgbcolor 980 -422 50 0 360 arc fill 0 setgray 980 -422 50 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=0.825x/y-0.175z/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 651 -206 moveto 651 -206 lineto 1319 -98 lineto stroke 1 0 0 setrgbcolor 1319 -98 50 0 360 arc fill 0 setgray 1319 -98 50 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=0.825x/y-0.175z/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 651 -206 moveto 651 -206 lineto 1420 0 lineto stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=0.825x/y-0.175z/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 1502 -65 moveto 1502 -65 lineto 1502 -65 lineto 1502 -65 lineto stroke 1 0 0 setrgbcolor 1502 -65 80 0 360 arc fill 0 setgray 1502 -65 80 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=0.825x/y-0.175z/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 778 -39 moveto 778 -39 lineto 778 -39 lineto 778 -39 lineto stroke 1 1 0 setrgbcolor 778 -39 80 0 360 arc fill 0 setgray 778 -39 80 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=0.825x/y-0.175z/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 398 -150 moveto 398 -150 lineto 398 -150 lineto 398 -150 lineto stroke 0 1 0 setrgbcolor 398 -150 80 0 360 arc fill 0 setgray 398 -150 80 0 360 arc stroke -2300 -3200 translate %ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 (a=0.825x/y-0.175z/y,b=-0.25z/y) IXY0: 2300 3200 2300 3200 translate 104 -897 moveto 104 -897 lineto 104 -897 lineto 104 -897 lineto stroke 0 0 1 setrgbcolor 104 -897 80 0 360 arc fill 0 setgray 104 -897 80 0 360 arc stroke -2300 -3200 translate 2300 3200 translate 593 -272 40 0 360 arc fill -2300 -3200 translate %ENDE:14 %END-48 %END-47 %Platz für Text 700 3200 translate 1 setgray 1933 -3100 moveto 2600 0 rlineto 0 1200 rlineto -2600 0 rlineto closepath fill 0 setgray 1933 -3100 moveto 2600 0 rlineto 0 1200 rlineto -2600 0 rlineto closepath stroke 300 /TimesI-ISOL1 FS 2000 -2150 moveto (OYLCVM_D50_W) show 250 /TimesI-ISOL1 FS 2000 -2400 moveto 20 0 (a) ashow 250 /Times-ISOL1 FS 20 0 (=0,825) ashow 250 /TimesI-ISOL1 FS 20 0 (x/y) ashow 250 /Times-ISOL1 FS 20 0 (-0,175) ashow 250 /TimesI-ISOL1 FS 20 0 (z/y) ashow 250 /Times-ISOL1 FS 20 0 ( ) ashow 250 /TimesI-ISOL1 FS 2000 -2700 moveto 20 0 (b) ashow 250 /Times-ISOL1 FS 20 0 (=-0,25) ashow 250 /TimesI-ISOL1 FS 20 0 (z/y) ashow 300 /TimesI-ISOL1 FS 2000 -3050 moveto (LAB 1987) show -700 -3200 translate %Platz ACHTUNG Kurvenüberschreibung grestore showpage %%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 JE591-7 from DKB200:[RR.POS]B8011-74.EPS %%BoundingBox: 70 82 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/JE59/) /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:2010030112000) /ModDate (D:2010030112000) /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 %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 6 /Times-ISOL1 FS 72 84 moveto (JE591-7, ) show (Colours in ) showen (Farben in ) showde 6 /TimesI-ISOL1 FS ((a"s,b"s) ) show 6 /Times-ISOL1 FS (colour diagram) showen (Farbtafel) showde 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath clip 700 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3500 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -350 500 moveto (-1,2) show 450 500 moveto (-0,6) show 1350 500 moveto (0,0) show 2150 500 moveto (0,6) show 2950 500 moveto (1,2) show 3750 500 moveto (1,8) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -650 -100 moveto ( 0,0) show -650 -900 moveto (-0,6) show -650 -1700 moveto (-1,2) show -650 -2500 moveto (-1,8) show 350 /TimesI-ISOL1 FS -550 -2900 moveto (b") show 300 /Times-ISOL1 FS -120 -125 rmoveto (s) show 120 125 rmoveto 350 /TimesI-ISOL1 FS 4050 200 moveto (a") show 300 /Times-ISOL1 FS -120 -125 rmoveto (s) show 120 125 rmoveto 250 /TimesI-ISOL1 FS 100 -700 moveto (Basis (a,b):) show 250 /Times-ISOL1 FS 100 -1050 moveto ([) show 250 /TimesI-ISOL1 FS (x) show 250 /Times-ISOL1 FS (-0,175]/) show 250 /TimesI-ISOL1 FS (y) show 250 /Times-ISOL1 FS 100 -1400 moveto (-0,25) show 250 /TimesI-ISOL1 FS (z/y) show 300 /TimesI-ISOL1 FS 2600 -2700 moveto (OYLCVM_D50_W) show 2600 -3050 moveto (LABJNDS 1987) show -700 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1987 IXY0: 2300 3200 2300 3200 translate -179 -2909 moveto -179 -2909 -225 -2909 -284 -2909 curveto -343 -2908 -398 -2902 -456 -2886 curveto -495 -2860 -524 -2822 -536 -2771 curveto -551 -2709 -565 -2630 -573 -2535 curveto -568 -2414 -543 -2255 -491 -2016 curveto -426 -1709 -359 -1357 -299 -1007 curveto -242 -697 -194 -452 -153 -283 curveto -118 -186 -83 -127 -46 -91 curveto -8 -72 31 -62 73 -56 curveto 117 -51 164 -48 217 -47 curveto 276 -45 346 -44 429 -44 curveto 528 -44 643 -44 761 -43 curveto 880 -43 997 -43 1111 -43 curveto 1219 -43 1316 -43 1402 -43 curveto 1476 -43 1537 -43 1586 -43 curveto 1626 -43 1658 -43 1685 -43 curveto 1708 -43 1726 -43 1739 -43 curveto 1750 -43 1757 -43 1762 -43 curveto 1766 -43 1770 -43 1773 -43 curveto 1776 -43 1777 -43 1778 -43 curveto 1779 -43 1779 -43 1777 -121 curveto 1770 -438 1768 -647 1765 -784 curveto 1762 -881 1761 -954 1757 -1013 curveto 1756 -1073 1755 -1137 1751 -1208 curveto 1747 -1295 1743 -1407 1736 -1563 curveto 1717 -1795 1666 -2185 -178 -2908 curveto stroke 1 setgray -179 -2909 30 0 360 arc fill % 400 -456 -2886 30 0 360 arc fill % 425 -565 -2630 30 0 360 arc fill % 450 -426 -1709 30 0 360 arc fill % 475 -153 -283 30 0 360 arc fill % 500 31 -62 30 0 360 arc fill % 525 276 -45 30 0 360 arc fill % 550 761 -43 30 0 360 arc fill % 575 1316 -43 30 0 360 arc fill % 600 1626 -43 30 0 360 arc fill % 625 1739 -43 30 0 360 arc fill % 650 1770 -43 30 0 360 arc fill % 675 1779 -43 30 0 360 arc fill % 700 1770 -438 30 0 360 arc fill %500c 1757 -1013 30 0 360 arc fill %525c 1743 -1407 30 0 360 arc fill %550c 0 setgray -179 -2909 30 0 360 arc stroke % 400 -456 -2886 30 0 360 arc stroke % 425 -565 -2630 30 0 360 arc stroke % 450 -426 -1709 30 0 360 arc stroke % 475 -153 -283 30 0 360 arc stroke % 500 31 -62 30 0 360 arc stroke % 525 276 -45 30 0 360 arc stroke % 550 761 -43 30 0 360 arc stroke % 575 1316 -43 30 0 360 arc stroke % 600 1626 -43 30 0 360 arc stroke % 625 1739 -43 30 0 360 arc stroke % 650 1770 -43 30 0 360 arc stroke % 675 1779 -43 30 0 360 arc stroke % 700 1770 -438 30 0 360 arc stroke %500c 1757 -1013 30 0 360 arc stroke %525c 1743 -1407 30 0 360 arc stroke %550c 557 -362 30 0 360 arc fill %D65 0 setgray 250 /TimesI-ISOL1 FS -179 100 add -2909 200 sub moveto (400) show -456 500 sub -2886 100 sub moveto (425) show -565 500 sub -2630 100 sub moveto (450) show -426 500 sub -1709 100 sub moveto (475) show -153 500 sub -283 100 sub moveto (500) show 31 200 sub -62 100 add moveto (525) show % 276 200 sub -45 100 add moveto (550) show 761 200 sub -43 100 add moveto (575) show 1316 200 sub -43 100 add moveto (600) show % 1626 200 sub -43 100 add moveto (625) show % 1739 200 sub -43 100 add moveto (650) show % 1770 200 sub -43 100 add moveto (675) show 1779 100 add -43 100 sub moveto (700) show 1770 100 add -438 100 sub moveto (500c) show 1757 100 add -1013 100 sub moveto (525c) show 1743 100 add -1407 100 sub moveto (550c) show 557 100 add -362 100 sub moveto %(D65 ) show -2300 -3200 translate %ENDE:15 %1000 02 15 01 16 01 00 JA JA NE 01 ******************** % 15 CR F39RGB_D50_W_JK59.DAT Elementarfbn (x,y,Y), Model 1.3.2010 %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1987 IXY0: 2300 3200 1CR RGB 2300 3200 translate 1337 -44 moveto 1337 -44 lineto 784 -48 lineto 261 -51 lineto 221 -169 lineto 146 -426 lineto -232 -1428 lineto 989 -549 lineto 1267 -149 lineto 1337 -44 lineto stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1987 IXY0: 2300 3200 2CR UNB 2300 3200 translate 632 -277 moveto 632 -277 lineto stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1987 IXY0: 2300 3200 3O RGB 2300 3200 translate 632 -277 moveto 632 -277 lineto 1337 -44 lineto stroke 1 0 0 setrgbcolor 1337 -44 50 0 360 arc fill 0 setgray 1337 -44 50 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1987 IXY0: 2300 3200 4Y RGB 2300 3200 translate 632 -277 moveto 632 -277 lineto 784 -48 lineto stroke 1 1 0 setrgbcolor 784 -48 50 0 360 arc fill 0 setgray 784 -48 50 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1987 IXY0: 2300 3200 5L RGB 2300 3200 translate 632 -277 moveto 632 -277 lineto 261 -51 lineto stroke 0 1 0 setrgbcolor 261 -51 50 0 360 arc fill 0 setgray 261 -51 50 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1987 IXY0: 2300 3200 6G RGB 2300 3200 translate 632 -277 moveto 632 -277 lineto 221 -169 lineto stroke 0 1 0 setrgbcolor 221 -169 50 0 360 arc fill 0 setgray 221 -169 50 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1987 IXY0: 2300 3200 7C RGB 2300 3200 translate 632 -277 moveto 632 -277 lineto 146 -426 lineto stroke 0 1 1 setrgbcolor 146 -426 50 0 360 arc fill 0 setgray 146 -426 50 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1987 IXY0: 2300 3200 8V RGB 2300 3200 translate 632 -277 moveto 632 -277 lineto -232 -1428 lineto stroke 0 0 1 setrgbcolor -232 -1428 50 0 360 arc fill 0 setgray -232 -1428 50 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1987 IXY0: 2300 3200 9M RGB 2300 3200 translate 632 -277 moveto 632 -277 lineto 989 -549 lineto stroke 1 0 1 setrgbcolor 989 -549 50 0 360 arc fill 0 setgray 989 -549 50 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1987 IXY0: 2300 3200 10R RGB 2300 3200 translate 632 -277 moveto 632 -277 lineto 1267 -149 lineto stroke 1 0 0 setrgbcolor 1267 -149 50 0 360 arc fill 0 setgray 1267 -149 50 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1987 IXY0: 2300 3200 11O RGB 2300 3200 translate 632 -277 moveto 632 -277 lineto 1337 -44 lineto stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1987 IXY0: 2300 3200 12 R 2300 3200 translate 1390 -112 moveto 1390 -112 lineto 1390 -112 lineto 1390 -112 lineto stroke 1 0 0 setrgbcolor 1390 -112 80 0 360 arc fill 0 setgray 1390 -112 80 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1987 IXY0: 2300 3200 13 J 2300 3200 translate 783 -84 moveto 783 -84 lineto 783 -84 lineto 783 -84 lineto stroke 1 1 0 setrgbcolor 783 -84 80 0 360 arc fill 0 setgray 783 -84 80 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1987 IXY0: 2300 3200 14 G 2300 3200 translate 321 -210 moveto 321 -210 lineto 321 -210 lineto 321 -210 lineto stroke 0 1 0 setrgbcolor 321 -210 80 0 360 arc fill 0 setgray 321 -210 80 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1987 IXY0: 2300 3200 15 B 2300 3200 translate 33 -998 moveto 33 -998 lineto 33 -998 lineto 33 -998 lineto stroke 0 0 1 setrgbcolor 33 -998 80 0 360 arc fill 0 setgray 33 -998 80 0 360 arc stroke -2300 -3200 translate 2300 3200 translate 557 -362 40 0 360 arc fill -2300 -3200 translate %ENDE:15 grestore showpage %%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 JE591-8 from DKB200:[RR.POS]B8011-84.EPS %%BoundingBox: 70 82 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/JE59/) /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:2010030112000) /ModDate (D:2010030112000) /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 %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 6 /Times-ISOL1 FS 72 84 moveto (JE591-8, ) show (Colours in ) showen (Farben in ) showde 6 /TimesI-ISOL1 FS ((a"r,b"r) ) show 6 /Times-ISOL1 FS (colour diagram) showen (Farbarttafel) showde 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath clip 700 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3500 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -350 500 moveto (-1,2) show 450 500 moveto (-0,6) show 1350 500 moveto (0,0) show 2150 500 moveto (0,6) show 2950 500 moveto (1,2) show 3750 500 moveto (1,8) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -650 -100 moveto ( 0,0) show -650 -900 moveto (-0,6) show -650 -1700 moveto (-1,2) show -650 -2500 moveto (-1,8) show 350 /TimesI-ISOL1 FS -450 -2900 moveto (b") show 300 /Times-ISOL1 FS -120 -125 rmoveto (r) show 120 125 rmoveto 350 /TimesI-ISOL1 FS 4100 200 moveto (a") show 300 /Times-ISOL1 FS -120 -125 rmoveto (r) show 120 125 rmoveto 250 /TimesI-ISOL1 FS 100 -2300 moveto (Basis (a,b):) show 250 /Times-ISOL1 FS 100 -2650 moveto ([) show 250 /TimesI-ISOL1 FS (x) show 250 /Times-ISOL1 FS (-0,175]/) show 250 /TimesI-ISOL1 FS (y) show 250 /Times-ISOL1 FS 100 -3000 moveto (-0,25) show 250 /TimesI-ISOL1 FS (z/y) show 300 /TimesI-ISOL1 FS 2600 -2700 moveto (OYLCVM_D50_W) show 2600 -3050 moveto (LABJNDR 1987) show -700 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 1333 BEO=02 ar"br" LABJND 1987 IXY0: 2300 3200 2300 3200 translate 512 -2908 moveto 512 -2908 508 -2909 502 -2908 curveto 496 -2907 487 -2901 470 -2884 curveto 447 -2857 417 -2818 379 -2765 curveto 331 -2699 270 -2615 198 -2511 curveto 116 -2378 28 -2202 -69 -1941 curveto -159 -1612 -222 -1247 -246 -903 curveto -229 -626 -193 -429 -153 -302 curveto -114 -222 -76 -169 -36 -133 curveto 3 -111 44 -97 87 -87 curveto 131 -78 179 -70 231 -64 curveto 291 -57 360 -51 439 -47 curveto 531 -44 635 -45 748 -50 curveto 865 -59 982 -70 1097 -83 curveto 1206 -95 1304 -107 1391 -118 curveto 1465 -127 1527 -135 1577 -142 curveto 1617 -147 1650 -151 1677 -155 curveto 1700 -158 1718 -160 1732 -162 curveto 1742 -163 1750 -164 1755 -165 curveto 1759 -165 1763 -166 1766 -166 curveto 1769 -167 1770 -167 1771 -167 curveto 1772 -167 1772 -167 1773 -219 curveto 1770 -405 1762 -535 1751 -633 curveto 1739 -709 1730 -769 1718 -820 curveto 1707 -874 1694 -933 1675 -1003 curveto 1649 -1091 1610 -1209 1545 -1384 curveto 1415 -1656 1137 -2121 511 -2907 curveto stroke 1 setgray 512 -2908 30 0 360 arc fill % 400 470 -2884 30 0 360 arc fill % 425 270 -2615 30 0 360 arc fill % 450 -159 -1612 30 0 360 arc fill % 475 -153 -302 30 0 360 arc fill % 500 44 -97 30 0 360 arc fill % 525 291 -57 30 0 360 arc fill % 550 748 -50 30 0 360 arc fill % 575 1304 -107 30 0 360 arc fill % 600 1617 -147 30 0 360 arc fill % 625 1732 -162 30 0 360 arc fill % 650 1763 -166 30 0 360 arc fill % 675 1772 -167 30 0 360 arc fill % 700 1770 -405 30 0 360 arc fill %500c 1718 -820 30 0 360 arc fill %525c 1610 -1209 30 0 360 arc fill %550c 0 setgray 512 -2908 30 0 360 arc stroke % 400 470 -2884 30 0 360 arc stroke % 425 270 -2615 30 0 360 arc stroke % 450 -159 -1612 30 0 360 arc stroke % 475 -153 -302 30 0 360 arc stroke % 500 44 -97 30 0 360 arc stroke % 525 291 -57 30 0 360 arc stroke % 550 748 -50 30 0 360 arc stroke % 575 1304 -107 30 0 360 arc stroke % 600 1617 -147 30 0 360 arc stroke % 625 1732 -162 30 0 360 arc stroke % 650 1763 -166 30 0 360 arc stroke % 675 1772 -167 30 0 360 arc stroke % 700 1770 -405 30 0 360 arc stroke %500c 1718 -820 30 0 360 arc stroke %525c 1610 -1209 30 0 360 arc stroke %550c 557 -362 30 0 360 arc fill %D65 0 setgray 250 /TimesI-ISOL1 FS 512 500 sub -2908 100 sub moveto (400) show % 470 500 sub -2884 100 sub moveto (425) show 270 500 sub -2615 100 sub moveto (450) show -159 500 sub -1612 100 sub moveto (475) show -153 500 sub -302 100 sub moveto (500) show 44 200 sub -97 100 add moveto (525) show % 291 200 sub -57 100 add moveto (550) show 748 200 sub -50 100 add moveto (575) show 1304 200 sub -107 100 add moveto (600) show % 1617 200 sub -147 100 add moveto (625) show % 1732 200 sub -162 100 add moveto (650) show % 1763 200 sub -166 100 add moveto (675) show 1772 100 add -167 100 sub moveto (700) show 1770 100 add -405 100 sub moveto (500c) show 1718 100 add -820 100 sub moveto (525c) show 1610 100 add -1209 100 sub moveto (550c) show 557 100 add -362 100 sub moveto %(D65 ) show -2300 -3200 translate %ENDE:16 %1000 02 15 01 16 01 00 JA JA NE 01 ******************** % 15 CR F39RGB_D50_W_JK59.DAT Elementarfbn (x,y,Y), Model 1.3.2010 %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 ar"br" LABJND 1987 IXY0: 2300 3200 1CR RGB 2300 3200 translate 1325 -110 moveto 1325 -110 lineto 770 -56 lineto 276 -64 lineto 226 -183 lineto 147 -417 lineto -70 -1355 lineto 984 -528 lineto 1262 -194 lineto 1325 -110 lineto stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 ar"br" LABJND 1987 IXY0: 2300 3200 2CR UNB 2300 3200 translate 631 -278 moveto 631 -278 lineto stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 ar"br" LABJND 1987 IXY0: 2300 3200 3O RGB 2300 3200 translate 631 -278 moveto 631 -278 lineto 1325 -110 lineto stroke 1 0 0 setrgbcolor 1325 -110 50 0 360 arc fill 0 setgray 1325 -110 50 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 ar"br" LABJND 1987 IXY0: 2300 3200 4Y RGB 2300 3200 translate 631 -278 moveto 631 -278 lineto 770 -56 lineto stroke 1 1 0 setrgbcolor 770 -56 50 0 360 arc fill 0 setgray 770 -56 50 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 ar"br" LABJND 1987 IXY0: 2300 3200 5L RGB 2300 3200 translate 631 -278 moveto 631 -278 lineto 276 -64 lineto stroke 0 1 0 setrgbcolor 276 -64 50 0 360 arc fill 0 setgray 276 -64 50 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 ar"br" LABJND 1987 IXY0: 2300 3200 6G RGB 2300 3200 translate 631 -278 moveto 631 -278 lineto 226 -183 lineto stroke 0 1 0 setrgbcolor 226 -183 50 0 360 arc fill 0 setgray 226 -183 50 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 ar"br" LABJND 1987 IXY0: 2300 3200 7C RGB 2300 3200 translate 631 -278 moveto 631 -278 lineto 147 -417 lineto stroke 0 1 1 setrgbcolor 147 -417 50 0 360 arc fill 0 setgray 147 -417 50 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 ar"br" LABJND 1987 IXY0: 2300 3200 8V RGB 2300 3200 translate 631 -278 moveto 631 -278 lineto -70 -1355 lineto stroke 0 0 1 setrgbcolor -70 -1355 50 0 360 arc fill 0 setgray -70 -1355 50 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 ar"br" LABJND 1987 IXY0: 2300 3200 9M RGB 2300 3200 translate 631 -278 moveto 631 -278 lineto 984 -528 lineto stroke 1 0 1 setrgbcolor 984 -528 50 0 360 arc fill 0 setgray 984 -528 50 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 ar"br" LABJND 1987 IXY0: 2300 3200 10R RGB 2300 3200 translate 631 -278 moveto 631 -278 lineto 1262 -194 lineto stroke 1 0 0 setrgbcolor 1262 -194 50 0 360 arc fill 0 setgray 1262 -194 50 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 ar"br" LABJND 1987 IXY0: 2300 3200 11O RGB 2300 3200 translate 631 -278 moveto 631 -278 lineto 1325 -110 lineto stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 ar"br" LABJND 1987 IXY0: 2300 3200 12 R 2300 3200 translate 1384 -174 moveto 1384 -174 lineto 1384 -174 lineto 1384 -174 lineto stroke 1 0 0 setrgbcolor 1384 -174 80 0 360 arc fill 0 setgray 1384 -174 80 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 ar"br" LABJND 1987 IXY0: 2300 3200 13 J 2300 3200 translate 772 -92 moveto 772 -92 lineto 772 -92 lineto 772 -92 lineto stroke 1 1 0 setrgbcolor 772 -92 80 0 360 arc fill 0 setgray 772 -92 80 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 ar"br" LABJND 1987 IXY0: 2300 3200 14 G 2300 3200 translate 324 -217 moveto 324 -217 lineto 324 -217 lineto 324 -217 lineto stroke 0 1 0 setrgbcolor 324 -217 80 0 360 arc fill 0 setgray 324 -217 80 0 360 arc stroke -2300 -3200 translate %ANF FANxyal3ME.FOR: MULYA= 1333 BEO=02 ar"br" LABJND 1987 IXY0: 2300 3200 15 B 2300 3200 translate 91 -959 moveto 91 -959 lineto 91 -959 lineto 91 -959 lineto stroke 0 0 1 setrgbcolor 91 -959 80 0 360 arc fill 0 setgray 91 -959 80 0 360 arc stroke -2300 -3200 translate 2300 3200 translate 557 -362 40 0 360 arc fill -2300 -3200 translate %ENDE:16 grestore showpage %%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 DG02 20070101 %%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 1 def /lanind2 1 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 13 MM moveto (TUB\255Pr\374fvorlage Nr. JE59; Farb\255 und Farbarttafeln) showde (TUB\255test chart no. JE59; Colour and chromaticity diagrams) showen 12 /Times-ISOL1 FS 61 MM 09 MM moveto (Breitband\255Optimal\255 und CIE\255Farben f\374r CIE Lichtart D50) showde (Broad band optimal and CIE colours for CIE illuminant D50) showen 12 /Times-ISOL1 FS 172 MM 13 MM moveto (input: ) showen (Eingabe: ) showde 12 /TimesI-ISOL1 FS (rgb setrgbcolor) 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/JE59/JE59L) 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 (JE59/JE59L) 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/JE59/JE59L) 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: 20100301\255JE59/JE59L) showde (TUB registration: 20100301\255JE59/JE59L) 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