%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.445/~farbmetrik/JG51/JG51L00XX.PS 20100101 %%BoundingBox: 14 08 828 584 /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put } if [ /Title (PostScript pictures: www.ps.bam.de/JG51/JG51.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark %BEG GK0X->JG51/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->JG51/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20090201 %***************************************************************************** %BEG GK0X->JG51/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->JG51/10L/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20090201 /CFilenameS1g %START output of step S1g (http://130.149.60.445/~farbmetrik/JG51/Y10G00N) def %Link file name for data /CDateS1g (2009-12-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (JG51/Y10G00N) def %File name measured in step S1g %change scount2g from 2 to 10 for 10 series %change pcount2g from 8 to 240 for 240 pages of each series /scount1g 1 def /scount2g 1 def /scountg 1 def /pcount1g 1 def /pcount2g 1 def /pcountg 1 def /xchart1g 0 def /xchart2g 1 def /xchartg 0 def /BeginEPSF { % def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF { % def count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /A4quer {598 0 translate 90 rotate} def %0 %1 /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def /tzank [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def %picturetransfer from standard locations (8 pictures, 5 test charts) /xpic5458 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %x for chartg=0 0.0 0.0 0.0 -12 0.0 0.0 0.0 0.0 %x for chartg=1 0.0 0.0 0.0 -25 0.0 0.0 0.0 0.0 %x for chartg=2 0.0 0.0 0.0 -12 0.0 0.0 0.0 0.0 %x for chartg=3 0.0 0.0 0.0 -20 0.0 0.0 0.0 0.0] def %x for chartg=4 /ypic5458 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %y for chartg=0 0.0 0.0 0.0 -05 0.0 0.0 0.0 0.0 %y for chartg=1 0.0 0.0 0.0 -12 0.0 0.0 0.0 0.0 %y for chartg=2 0.0 0.0 0.0 -05 0.0 0.0 0.0 0.0 %y for chartg=3 0.0 0.0 0.0 -20 0.0 0.0 0.0 0.0] def %y for chartg=4 %BEG 61 lines comment or new PS operators possible %02 %03 %04 %05 %06 %07 %08 %09 %11 %END 38 lines comment or new PS operators possible %%EndProlog %%BeginPageSetup /#copies 1 def %A4quer 1.0 1.0 scale /pgsave save def %%EndPageSetup 0.0 MM 0.0 MM translate %Verschiebung nach oben und links fuer Belichter gsave /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(A.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /lanindg1 0 def /lanindg2 0 def /colormg1 0 def /colormg2 0 def /xcolorg1 0 def /xcolorg2 0 def /xchartg1 0 def /xchartg2 0 def /lanindg lanindg1 def %no loops /colormg colormg1 def /xcolorg xcolorg1 def /xchartg xchartg1 def /pcount2x pcount2g xchart2g sub 2 add def %1 1 1 {/scountg exch def %s=serie, e. g. 1,1,10 %1 1 1 {/pcountg exch def %p=page, e. g. 1,1,250 /xchart10 0 def /xchart20 0 def %pcountg pcount1g eq {/xchart10 0 def /xchart20 0 def} % {/xchart10 1 def /xchart20 1 def} ifelse %pcountg pcount2x eq {/xchart10 0 def /xchart20 0 def} if xchart10 1 xchart20 {/xchartg exch def %2 MM /Times-Roman FS %274 MM 82 MM moveto -90 rotate (/JG51/ ) 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 JG510-1N %%BoundingBox: 70 83 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/JG51/) /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 /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /SK {250 16.67 div 1 sub /Symbol FS} bind def /SM {300 16.67 div 1 sub /Symbol FS} bind def /SG {350 16.67 div 1 sub /Symbol FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END %{proz2} settransfer 5 /Times-ISOL1 FS % 72 85 moveto (Teil 1) showde (Part 1) showen 195 85 moveto (JG510-1) show % ( B8530_5, E8140-8, B2_23, N=2_23) show 72 90 translate /ausz 7 def 0.1667 MM dup scale 0 0 320 240 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBG %Schrift Times-Bold-Gross 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 110 006 moveto (Wellenl\344nge ) showde %08140-8 1 (wavelength ) showen %18140-8 1 (Ancho de banda ) showes %28140-8 1 (wavelength ) showfr %38140-8 1 (wavelength ) showit %48140-8 1 (wavelength ) showjp %58140-8 1 (l) outSG TBG 2 0 rmoveto (/nm) show 005 218 moveto TBIG (a) show -11 09 rmoveto (-) show 0 -09 rmoveto TBG (\050) show (l) outSG TBG (\051 ) show (relative ) showde %08140-8 2 (relative ) showen %18140-8 2 (Valor crom\341tico) showes %28140-8 2 (relative ) showfr %38140-8 2 (relative ) showit %48140-8 2 (relative ) showjp %58140-8 2 TBIG ( RG) show TBG () show (\255Buntwerte) showde %08140-8 3 (\255chromatic values) showen %18140-8 3 ( relativo) showes %28140-8 3 (\255chromatic values) showfr %38140-8 3 (\255chromatic values) showit %48140-8 3 (\255chromatic values) showjp %58140-8 3 052 198 moveto TBIM (lineare ) showde %08140-8 4 (linear ) showen %18140-8 4 (lineal ) showes %28140-8 4 (linear ) showfr %38140-8 4 (linear ) showit %48140-8 4 (linear ) showjp %58140-8 4 TBM (Spektrum\255Bewertung) showde %08140-8 5 (assessment of radiation) showen %18140-8 5 (espectro de radiaci\363n) showes %28140-8 5 (assessment of radiation) showfr %38140-8 5 (assessment of radiation) showit %48140-8 5 (assessment of radiation) showjp %58140-8 5 182 100 moveto TBIM (a) show -10 08 rmoveto (-) show 0 -10 rmoveto TBM (\050) show (l) outSG TBM (\051) show TBM ( = ) show TBIM (x) show -10 08 rmoveto (-) show 0 -08 rmoveto TBM (\050) show (l) outSG TBM (\051) show TBM ( - ) show TBIM (y) show -10 08 rmoveto (-) show 0 -08 rmoveto TBM (\050) show (l) outSG TBM (\051) show TBG /xd 4.0 def /xd2 8.0 def /ix0 35 def /iy0 45 def /tx [ (400) (500) (600) (700)] def /ty [(-6) (-4) (-2) ( 0) ( 2) ( 4) ] def 0 1 3 {/i exch def %x-Achsen-Beschriftung ix0 23 sub 5 i 20 mul add xd mul add iy0 21 sub moveto tx i get exec show } for 0 1 5 {/i exch def %y-Achsen-Beschriftung ix0 32 sub iy0 07 sub i 30 mul add moveto ty i get exec show } for ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi ix0 1 sub iy0 3 sub 2 153 fcolors 7 get exec colrecfi 0 30 150 {/iyd exch def ix0 4 sub iy0 1 sub iyd add 8 2 fcolors 07 get exec colrecfi } for %Schleife iyd 5 20 65 {/ixd exch def ix0 9 sub ixd xd mul add iy0 3 sub 2 8 fcolors 07 get exec colrecfi } for %Schleife ixd /yex [ %Reflexion CIE ix judd-wyszecki, 380-760nm, Tab 3.3, S.242 .001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .0147 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 ] def /yey [ %Reflexion CIE iy judd-wyszecki, 380-760nm, Tab 3.3, S.242 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .038 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .87 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 ] def /yez [ %Reflexion CIE iz judd-wyszecki, 380-760nm, Tab 3.3, S.242 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .0284 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 ] def /fsumx 0 def /fsumy 0 def /fsumz 0 def /xq 77 array def /yq 77 array def /zq 77 array def /xan 77 array def /yan 77 array def /zan 77 array def /yexp 77 array def /yeyp 77 array def /yezp 77 array def 0 1 76 {/i exch def %Summe fsumxyz fsumx yex i get exec add /fsumx exch def fsumy yey i get exec add /fsumy exch def fsumz yez i get exec add /fsumz exch def} for 0 1 76 {/i exch def %Normierung xyz xq i yex i get exec fsumy mul fsumx div put yq i yey i get exec fsumy mul fsumy div put zq i yez i get exec fsumy mul fsumz div put} for 0 1 76 {/i exch def %xyzan xq i get exec yq i get exec add zq i get exec add /sum exch def xan i xq i get exec sum div put yan i yq i get exec sum div put zan i zq i get exec sum div put} for /scolors %CMYN 49 Farbkreis-Reihenfolge; 48+1 Sonder-Farben [{0.75 1.00 0.00 0.0} {0.87 1.00 0.00 0.0} {1.00 1.00 0.00 0.0} {1.00 0.87 0.00 0.0} {1.00 0.75 0.00 0.0} {1.00 0.62 0.00 0.0} {1.00 0.50 0.00 0.0} {1.00 0.37 0.00 0.0} {1.00 0.25 0.00 0.0} {1.00 0.12 0.00 0.0} {1.00 0.00 0.00 0.0} {1.00 0.00 0.12 0.0} {1.00 0.00 0.25 0.0} {1.00 0.00 0.37 0.0} {1.00 0.00 0.50 0.0} {1.00 0.00 0.62 0.0} {1.00 0.00 0.75 0.0} {1.00 0.00 0.87 0.0} {1.00 0.00 1.00 0.0} {0.87 0.00 1.00 0.0} {0.75 0.00 1.00 0.0} {0.62 0.00 1.00 0.0} {0.50 0.00 1.00 0.0} {0.37 0.00 1.00 0.0} {0.25 0.00 1.00 0.0} {0.12 0.00 1.00 0.0} {0.00 0.00 1.00 0.0} {0.00 0.12 1.00 0.0} {0.00 0.25 1.00 0.0} {0.00 0.37 1.00 0.0} {0.00 0.50 1.00 0.0} {0.00 0.62 1.00 0.0} {0.00 0.75 1.00 0.0} {0.00 0.87 1.00 0.0} {0.00 1.00 1.00 0.0} {0.00 1.00 0.87 0.0} {0.00 1.00 0.75 0.0} {0.00 1.00 0.62 0.0} {0.00 1.00 0.50 0.0} {0.00 1.00 0.37 0.0} {0.00 1.00 0.25 0.0} {0.00 1.00 0.12 0.0} {0.00 1.00 0.00 0.0} {0.12 1.00 0.00 0.0} {0.25 1.00 0.00 0.0} {0.37 1.00 0.00 0.0} {0.50 1.00 0.00 0.0} {0.62 1.00 0.00 0.0} {0.00 0.00 0.00 1.0}] def /ifa %Verteilung 48 Farben auf 65 Wellenlaengen ohne Purpur [00 00 00 01 01 01 02 02 03 03 04 04 05 05 06 06 07 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 30 31 31 32 32 33 33 34 34 34 34 34 34 34 34 35 35 35 35 35 35 35 35 35] def ix0 040 add iy0 130 add moveto TBG (Rot ) popde %08140-8 6 (red ) popen %18140-8 6 (Rojo ) popes %28140-8 6 (red ) popfr %38140-8 6 (red ) popit %48140-8 6 (red ) popjp %58140-8 6 tzr outshowf ix0 200 add iy0 130 add moveto TBG (Rot ) popde %08140-8 7 (red ) popen %18140-8 7 (Rojo ) popes %28140-8 7 (red ) popfr %38140-8 7 (red ) popit %48140-8 7 (red ) popjp %58140-8 7 tzr outshowf ix0 140 add iy0 020 add moveto TBG (Gr\374n) popde %08140-8 8 (green) popen %18140-8 8 (Verde) popes %28140-8 8 (green) popfr %38140-8 8 (green) popit %48140-8 8 (green) popjp %58140-8 8 tzg outshowf 0 1 76 {/i exch def yexp i %(xan/yan-1)*yq xan i get exec yan i get exec div 1 sub yq i get exec mul put} for /iy0 iy0 90 add def 2 1 66 {/i exch def %ab 390nm bis 710nm, 65 Well. 2..66 %3=390, delta=1 /y11 yexp i get exec 100 mul def /y21 yexp i 1 add get exec 100 mul def /x10 ix0 i 2 sub xd mul add def %ab 390nm /k {ifa i 2 sub get exec} def %max 65 Farben 0..64 scolors k get exec setcmykcolor x10 iy0 moveto x10 xd add iy0 lineto x10 xd add iy0 y21 add ausz 7 ne { y21 0 lt {1 sub} if y21 0 eq {0 add} if y21 0 gt {1 add} if } if lineto x10 iy0 y11 add ausz 7 ne { y11 0 lt {1 sub} if y11 0 eq {0 add} if y11 0 gt {1 add} if } if lineto closepath fill } for %i-Schleife 0.0 0.0 0.0 0.0 setcmykcolor %W ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 349 %!PS-Adobe-3.0 EPSF-3.0 JG510-2 %%BoundingBox: 70 83 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/JG51/) /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 /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /SK {250 16.67 div 1 sub /Symbol FS} bind def /SM {300 16.67 div 1 sub /Symbol FS} bind def /SG {350 16.67 div 1 sub /Symbol FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END %{proz2} settransfer 5 /Times-ISOL1 FS % 72 85 moveto (Teil 1) showde (Part 1) showen 195 85 moveto (JG510-2) show % ( B8530_6, E8141-1, B2_24, N=2_24) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 7 def 0 0 320 240 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBG %Schrift Times-Bold-Gross 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 110 006 moveto (Wellenl\344nge ) showde %08141-1 1 (wavelength ) showen %18141-1 1 (Ancho de banda ) showes %28141-1 1 (wavelength ) showfr %38141-1 1 (wavelength ) showit %48141-1 1 (wavelength ) showjp %58141-1 1 (l) outSG TBG 2 0 rmoveto (/nm) show 005 218 moveto TBIG (b) show -12 13 rmoveto (-) show 0 -13 rmoveto TBG (\050) show (l) outSG TBG (\051 ) show (relative ) showde %08141-1 2 (relative ) showen %18141-1 2 (Valor crom\341tico) showes %28141-1 2 (relative ) showfr %38141-1 2 (relative ) showit %48141-1 2 (relative ) showjp %58141-1 2 TBIG ( JB) show TBG () show (\255Buntwerte) showde %08141-1 3 (\255chromatic values) showen %18141-1 3 ( relativo) showes %28141-1 3 (\255chromatic values) showfr %38141-1 3 (\255chromatic values) showit %48141-1 3 (\255chromatic values) showjp %58141-1 3 052 198 moveto TBIM (lineare ) showde %08141-1 4 (linear ) showen %18141-1 4 (lineal ) showes %28141-1 4 (linear ) showfr %38141-1 4 (linear ) showit %48141-1 4 (linear ) showjp %58141-1 4 TBM (Spektrum\255Bewertung) showde %08141-1 5 (assessment of radiation) showen %18141-1 5 (espectro de radiaci\363n) showes %28141-1 5 (assessment of radiation) showfr %38141-1 5 (assessment of radiation) showit %48141-1 5 (assessment of radiation) showjp %58141-1 5 TBG 130 100 moveto TBIM (b) show -10 10 rmoveto (-) show 0 -10 rmoveto TBM (\050) show (l) outSG TBM (\051) show TBM ( = 0,4 [ ) show TBIM (y) show -10 08 rmoveto (-) show 0 -08 rmoveto TBM (\050) show (l) outSG TBM (\051) show TBM ( - ) show TBIM (z) show -10 08 rmoveto (-) show 0 -08 rmoveto TBM (\050) show (l) outSG TBM (\051) show TBM ( ] ) show TBG /xd 4.0 def /xd2 8.0 def /ix0 35 def /iy0 45 def /tx [ (400) (500) (600) (700)] def /ty [(-6) (-4) (-2) ( 0) ( 2) ( 4) ] def 0 1 3 {/i exch def %x-Achsen-Beschriftung ix0 23 sub 5 i 20 mul add xd mul add iy0 21 sub moveto tx i get exec show } for 0 1 5 {/i exch def %y-Achsen-Beschriftung ix0 32 sub iy0 07 sub i 30 mul add moveto ty i get exec show } for ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi ix0 1 sub iy0 3 sub 2 153 fcolors 7 get exec colrecfi 0 30 150 {/iyd exch def ix0 4 sub iy0 1 sub iyd add 8 2 fcolors 07 get exec colrecfi } for %Schleife iyd 5 20 65 {/ixd exch def ix0 9 sub ixd xd mul add iy0 3 sub 2 8 fcolors 07 get exec colrecfi } for %Schleife ixd /yex [ %Reflexion CIE ix judd-wyszecki, 380-760nm, Tab 3.3, S.242 .001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .0147 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 ] def /yey [ %Reflexion CIE iy judd-wyszecki, 380-760nm, Tab 3.3, S.242 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .038 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .87 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 ] def /yez [ %Reflexion CIE iz judd-wyszecki, 380-760nm, Tab 3.3, S.242 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .0284 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 ] def /fsumx 0 def /fsumy 0 def /fsumz 0 def /xq 77 array def /yq 77 array def /zq 77 array def /xan 77 array def /yan 77 array def /zan 77 array def /yexp 77 array def /yeyp 77 array def /yezp 77 array def 0 1 76 {/i exch def %Summe fsumxyz fsumx yex i get exec add /fsumx exch def fsumy yey i get exec add /fsumy exch def fsumz yez i get exec add /fsumz exch def} for 0 1 76 {/i exch def %Normierung xyz xq i yex i get exec fsumy mul fsumx div put yq i yey i get exec fsumy mul fsumy div put zq i yez i get exec fsumy mul fsumz div put} for 0 1 76 {/i exch def %xyzan xq i get exec yq i get exec add zq i get exec add /sum exch def xan i xq i get exec sum div put yan i yq i get exec sum div put zan i zq i get exec sum div put} for /scolors %CMYN 49 Farbkreis-Reihenfolge; 48+1 Sonder-Farben [{0.75 1.00 0.00 0.0} {0.87 1.00 0.00 0.0} {1.00 1.00 0.00 0.0} {1.00 0.87 0.00 0.0} {1.00 0.75 0.00 0.0} {1.00 0.62 0.00 0.0} {1.00 0.50 0.00 0.0} {1.00 0.37 0.00 0.0} {1.00 0.25 0.00 0.0} {1.00 0.12 0.00 0.0} {1.00 0.00 0.00 0.0} {1.00 0.00 0.12 0.0} {1.00 0.00 0.25 0.0} {1.00 0.00 0.37 0.0} {1.00 0.00 0.50 0.0} {1.00 0.00 0.62 0.0} {1.00 0.00 0.75 0.0} {1.00 0.00 0.87 0.0} {1.00 0.00 1.00 0.0} {0.87 0.00 1.00 0.0} {0.75 0.00 1.00 0.0} {0.62 0.00 1.00 0.0} {0.50 0.00 1.00 0.0} {0.37 0.00 1.00 0.0} {0.25 0.00 1.00 0.0} {0.12 0.00 1.00 0.0} {0.00 0.00 1.00 0.0} {0.00 0.12 1.00 0.0} {0.00 0.25 1.00 0.0} {0.00 0.37 1.00 0.0} {0.00 0.50 1.00 0.0} {0.00 0.62 1.00 0.0} {0.00 0.75 1.00 0.0} {0.00 0.87 1.00 0.0} {0.00 1.00 1.00 0.0} {0.00 1.00 0.87 0.0} {0.00 1.00 0.75 0.0} {0.00 1.00 0.62 0.0} {0.00 1.00 0.50 0.0} {0.00 1.00 0.37 0.0} {0.00 1.00 0.25 0.0} {0.00 1.00 0.12 0.0} {0.00 1.00 0.00 0.0} {0.12 1.00 0.00 0.0} {0.25 1.00 0.00 0.0} {0.37 1.00 0.00 0.0} {0.50 1.00 0.00 0.0} {0.62 1.00 0.00 0.0} {0.00 0.00 0.00 1.0}] def /ifa %Verteilung 48 Farben auf 65 Wellenlaengen ohne Purpur [00 00 00 01 01 01 02 02 03 03 04 04 05 05 06 06 07 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 30 31 31 32 32 33 33 34 34 34 34 34 34 34 34 35 35 35 35 35 35 35 35 35] def ix0 075 add iy0 035 add moveto TBG (Blau) popde %08141-1 6 (blue) popen %18141-1 6 (Azul) popes %28141-1 6 (blue) popfr %38141-1 6 (blue) popit %48141-1 6 (blue) popjp %58141-1 6 tzb outshowf ix0 170 add iy0 120 add moveto TBG (Gelb) popde %08141-1 7 (yellow) popen %18141-1 7 (Amarillo) popes %28141-1 7 (yellow) popfr %38141-1 7 (yellow) popit %48141-1 7 (yellow) popjp %58141-1 7 tzy outshowf 0 1 76 {/i exch def yexp i %-0.4(xan/yan-1)*yq -0.4 zan i get exec yan i get exec div 1 sub yq i get exec mul mul put} for /iy0 iy0 90 add def 2 1 66 {/i exch def %ab 390nm bis 710nm, 65 Well. 2..66 %3=390, delta=1 /y11 yexp i get exec 100 mul def /y21 yexp i 1 add get exec 100 mul def /x10 ix0 i 2 sub xd mul add def %ab 390nm /k {ifa i 2 sub get exec} def %max 65 Farben 0..64 scolors k get exec setcmykcolor x10 iy0 moveto x10 xd add iy0 lineto x10 xd add iy0 y21 add ausz 7 ne { y21 0 lt {1 sub} if y21 0 eq {0 add} if y21 0 gt {1 add} if } if lineto x10 iy0 y11 add ausz 7 ne { y11 0 lt {1 sub} if y11 0 eq {0 add} if y11 0 gt {1 add} if } if lineto closepath fill } for %i-Schleife 0.0 0.0 0.0 0.0 setcmykcolor %W ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %line 359 %!PS-Adobe-3.0 EPSF-3.0 JG510-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/JG51/) /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 0 def /lanind2 0 def} ifelse /lanind lanind1 def 5 /Times-ISOL1 FS 195 85 moveto (JG510-3) 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 (Munsell V=2,5,8) show 2500 2900 moveto (C=4, 8, ...) 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 19 01 16 01 00 NE JA JA 02 ******************** % 19 01 01 F39E258.DAT ELEMENTARFARBEN für 8290/1 %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 2 5.0PB 600 400 translate 905 876 moveto 905 876 674 596 545 419 curveto stroke 1 setgray 905 876 40 0 360 arc fill 674 596 40 0 360 arc fill 0 setgray 905 876 40 0 360 arc stroke 674 596 40 0 360 arc stroke 545 419 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 8 5.0G 600 400 translate 1056 1538 moveto 1056 1538 791 1833 448 2143 curveto 110 2394 110 2394 110 2394 curveto stroke 1 setgray 1056 1538 40 0 360 arc fill 0 setgray 1056 1538 40 0 360 arc stroke 791 1833 40 0 360 arc fill 448 2143 40 0 360 arc fill 110 2394 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 12 5.0Y 600 400 translate 1817 1829 moveto 1817 1829 1817 1829 1817 1829 curveto stroke 1 setgray 0 setgray 1817 1829 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 16 5.0R 600 400 translate 1673 1212 moveto 1673 1212 2057 1120 2372 986 curveto stroke 1 setgray 1673 1212 40 0 360 arc fill 2057 1120 40 0 360 arc fill 0 setgray 1673 1212 40 0 360 arc stroke 2057 1120 40 0 360 arc stroke 2372 986 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 21 C 600 400 translate 1240 1264 moveto 1240 1264 1240 1264 1240 1264 curveto stroke 1 setgray 1240 1264 40 0 360 arc fill 0 setgray 1240 1264 40 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 2 5.0PB 600 400 translate 1064 1074 moveto 1064 1074 902 895 767 743 curveto 655 608 655 608 655 608 curveto stroke 1 setgray 1064 1074 40 0 360 arc fill 902 895 40 0 360 arc fill 767 743 40 0 360 arc fill 0 setgray 1064 1074 40 0 360 arc stroke 902 895 40 0 360 arc stroke 767 743 40 0 360 arc stroke 655 608 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 8 5.0G 600 400 translate 1136 1451 moveto 1136 1451 1004 1642 841 1831 curveto 678 1992 527 2128 381 2251 curveto 243 2359 243 2359 243 2359 curveto stroke 1 setgray 1136 1451 40 0 360 arc fill 1004 1642 40 0 360 arc fill 0 setgray 1136 1451 40 0 360 arc stroke 1004 1642 40 0 360 arc stroke 841 1831 40 0 360 arc fill 678 1992 40 0 360 arc fill 527 2128 40 0 360 arc fill 381 2251 40 0 360 arc fill 243 2359 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 12 5.0Y 600 400 translate 1570 1622 moveto 1570 1622 1831 1876 1972 2007 curveto stroke 1 setgray 1570 1622 40 0 360 arc fill 1831 1876 40 0 360 arc fill 0 setgray 1570 1622 40 0 360 arc stroke 1831 1876 40 0 360 arc stroke 1972 2007 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 16 5.0R 600 400 translate 1496 1288 moveto 1496 1288 1765 1296 2028 1277 curveto 2254 1240 2456 1188 2456 1188 curveto stroke 1 setgray 1496 1288 40 0 360 arc fill 1765 1296 40 0 360 arc fill 2028 1277 40 0 360 arc fill 0 setgray 1496 1288 40 0 360 arc stroke 1765 1296 40 0 360 arc stroke 2028 1277 40 0 360 arc stroke 2254 1240 40 0 360 arc fill 2456 1188 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 21 C 600 400 translate 1240 1264 moveto 1240 1264 1240 1264 1240 1264 curveto stroke 1 setgray 1240 1264 40 0 360 arc fill 0 setgray 1240 1264 40 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 2 5.0PB 600 400 translate 1119 1144 moveto 1119 1144 1119 1144 1119 1144 curveto stroke 1 setgray 1119 1144 40 0 360 arc fill 0 setgray 1119 1144 40 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 8 5.0G 600 400 translate 1169 1409 moveto 1169 1409 1089 1546 995 1676 curveto 896 1800 782 1922 782 1922 curveto stroke 1 setgray 1169 1409 40 0 360 arc fill 0 setgray 1169 1409 40 0 360 arc stroke 1089 1546 40 0 360 arc fill 995 1676 40 0 360 arc fill 896 1800 40 0 360 arc fill 782 1922 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 12 5.0Y 600 400 translate 1460 1530 moveto 1460 1530 1663 1751 1824 1915 curveto 1916 2004 1916 2004 1916 2004 curveto stroke 1 setgray 1460 1530 40 0 360 arc fill 1663 1751 40 0 360 arc fill 1824 1915 40 0 360 arc fill 0 setgray 1460 1530 40 0 360 arc stroke 1663 1751 40 0 360 arc stroke 1824 1915 40 0 360 arc stroke 1916 2004 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 16 5.0R 600 400 translate 1404 1289 moveto 1404 1289 1600 1305 1600 1305 curveto stroke 1 setgray 1404 1289 40 0 360 arc fill 0 setgray 1404 1289 40 0 360 arc stroke 1600 1305 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 21 C 600 400 translate 1240 1264 moveto 1240 1264 1240 1264 1240 1264 curveto stroke 1 setgray 1240 1264 40 0 360 arc fill 0 setgray 1240 1264 40 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 22 R 600 400 translate 2277 1244 moveto 2277 1244 2277 1244 2277 1244 curveto stroke 1 0 0 setrgbcolor 2277 1244 80 0 360 arc fill 0 setgray 2277 1244 80 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 23 Y 600 400 translate 1743 1874 moveto 1743 1874 1743 1874 1743 1874 curveto stroke 1 1 0 setrgbcolor 1743 1874 80 0 360 arc fill 0 setgray 1743 1874 80 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 24 G 600 400 translate 1015 1703 moveto 1015 1703 1015 1703 1015 1703 curveto stroke 0 1 0 setrgbcolor 1015 1703 80 0 360 arc fill 0 setgray 1015 1703 80 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 25 B 600 400 translate 620 640 moveto 620 640 620 640 620 640 curveto stroke 0 0 1 setrgbcolor 620 640 80 0 360 arc fill 0 setgray 620 640 80 0 360 arc stroke -600 -400 translate 600 400 translate 1250 1316 80 0 360 arc fill -600 -400 translate %ENDE: 1 0 setgray /xm 2000 def /ym 1200 def 250 /Times-ISOL1 FS xm 1100 add ym 200 add moveto (5R) show xm 450 add ym 850 add moveto (5Y) show xm 1000 sub ym 1500 add moveto (5G) show xm 1100 sub ym 000 sub moveto (5PB) show %xm ym moveto (x) show 1 0 0 setrgbcolor xm 400 add ym 560 add moveto (CIE) show (09) show xm 400 sub ym 1100 add moveto (CIE) show (10) show xm 1200 sub ym 700 add moveto (CIE) show (11) show xm 700 sub ym 400 sub moveto (CIE) show (12) show 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 JG510-3 from DKB200:[RR.POS]B8010-34.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/JG51/) /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 0 def /lanind2 0 def} ifelse /lanind lanind1 def 5 /Times-ISOL1 FS 195 85 moveto (JG510-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 dup 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 300 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 050 add 0 100 sub moveto (700) show 4224 050 add -1226 000 sub moveto (500c) show 4427 010 sub -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 19 01 16 01 00 NE JA JA 02 ******************** % 19 01 01 F39E258.DAT ELEMENTARFARBEN für 8290/1 %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 2 5.0PB 400 3200 translate 2952 -1521 moveto 2952 -1521 3042 -1854 3188 -2160 curveto stroke 1 setgray 2952 -1521 40 0 360 arc fill 3042 -1854 40 0 360 arc fill 0 setgray 2952 -1521 40 0 360 arc stroke 3042 -1854 40 0 360 arc stroke 3188 -2160 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 8 5.0G 400 3200 translate 2577 -1083 moveto 2577 -1083 2208 -1014 1733 -971 curveto 1048 -954 1048 -954 1048 -954 curveto stroke 1 setgray 2577 -1083 40 0 360 arc fill 0 setgray 2577 -1083 40 0 360 arc stroke 2208 -1014 40 0 360 arc fill 1733 -971 40 0 360 arc fill 1048 -954 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 12 5.0Y 400 3200 translate 2914 -645 moveto 2914 -645 2914 -645 2914 -645 curveto stroke 1 setgray 0 setgray 2914 -645 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 16 5.0R 400 3200 translate 3252 -1085 moveto 3252 -1085 3577 -1007 3914 -967 curveto stroke 1 setgray 3252 -1085 40 0 360 arc fill 3577 -1007 40 0 360 arc fill 0 setgray 3252 -1085 40 0 360 arc stroke 3577 -1007 40 0 360 arc stroke 3914 -967 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 21 C 400 3200 translate 2902 -1180 moveto 2902 -1180 2902 -1180 2902 -1180 curveto stroke 1 setgray 2902 -1180 40 0 360 arc fill 0 setgray 2902 -1180 40 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 2 5.0PB 400 3200 translate 2912 -1340 moveto 2912 -1340 2928 -1507 2952 -1670 curveto 2994 -1843 2994 -1843 2994 -1843 curveto stroke 1 setgray 2912 -1340 40 0 360 arc fill 2928 -1507 40 0 360 arc fill 2952 -1670 40 0 360 arc fill 0 setgray 2912 -1340 40 0 360 arc stroke 2928 -1507 40 0 360 arc stroke 2952 -1670 40 0 360 arc stroke 2994 -1843 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 8 5.0G 400 3200 translate 2692 -1106 moveto 2692 -1106 2479 -1046 2254 -1003 curveto 2039 -975 1834 -958 1616 -945 curveto 1370 -937 1370 -937 1370 -937 curveto stroke 1 setgray 2692 -1106 40 0 360 arc fill 2479 -1046 40 0 360 arc fill 0 setgray 2692 -1106 40 0 360 arc stroke 2479 -1046 40 0 360 arc stroke 2254 -1003 40 0 360 arc fill 2039 -975 40 0 360 arc fill 1834 -958 40 0 360 arc fill 1616 -945 40 0 360 arc fill 1370 -937 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 12 5.0Y 400 3200 translate 2889 -884 moveto 2889 -884 2897 -600 2904 -238 curveto stroke 1 setgray 2889 -884 40 0 360 arc fill 2897 -600 40 0 360 arc fill 0 setgray 2889 -884 40 0 360 arc stroke 2897 -600 40 0 360 arc stroke 2904 -238 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 16 5.0R 400 3200 translate 3070 -1095 moveto 3070 -1095 3238 -1002 3407 -911 curveto 3564 -827 3721 -746 3721 -746 curveto stroke 1 setgray 3070 -1095 40 0 360 arc fill 3238 -1002 40 0 360 arc fill 3407 -911 40 0 360 arc fill 0 setgray 3070 -1095 40 0 360 arc stroke 3238 -1002 40 0 360 arc stroke 3407 -911 40 0 360 arc stroke 3564 -827 40 0 360 arc fill 3721 -746 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 21 C 400 3200 translate 2902 -1180 moveto 2902 -1180 2902 -1180 2902 -1180 curveto stroke 1 setgray 2902 -1180 40 0 360 arc fill 0 setgray 2902 -1180 40 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 2 5.0PB 400 3200 translate 2899 -1283 moveto 2899 -1283 2899 -1283 2899 -1283 curveto stroke 1 setgray 2899 -1283 40 0 360 arc fill 0 setgray 2899 -1283 40 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 8 5.0G 400 3200 translate 2745 -1119 moveto 2745 -1119 2599 -1071 2455 -1033 curveto 2315 -1002 2164 -979 2164 -979 curveto stroke 1 setgray 2745 -1119 40 0 360 arc fill 0 setgray 2745 -1119 40 0 360 arc stroke 2599 -1071 40 0 360 arc fill 2455 -1033 40 0 360 arc fill 2315 -1002 40 0 360 arc fill 2164 -979 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 12 5.0Y 400 3200 translate 2875 -972 moveto 2875 -972 2871 -775 2874 -573 curveto 2877 -379 2877 -379 2877 -379 curveto stroke 1 setgray 2875 -972 40 0 360 arc fill 2871 -775 40 0 360 arc fill 2874 -573 40 0 360 arc fill 0 setgray 2875 -972 40 0 360 arc stroke 2871 -775 40 0 360 arc stroke 2874 -573 40 0 360 arc stroke 2877 -379 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 16 5.0R 400 3200 translate 3005 -1121 moveto 3005 -1121 3126 -1053 3126 -1053 curveto stroke 1 setgray 3005 -1121 40 0 360 arc fill 0 setgray 3005 -1121 40 0 360 arc stroke 3126 -1053 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 21 C 400 3200 translate 2902 -1180 moveto 2902 -1180 2902 -1180 2902 -1180 curveto stroke 1 setgray 2902 -1180 40 0 360 arc fill 0 setgray 2902 -1180 40 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 22 R 400 3200 translate 3573 -812 moveto 3573 -812 3573 -812 3573 -812 curveto stroke 1 0 0 setrgbcolor 3573 -812 80 0 360 arc fill 0 setgray 3573 -812 80 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 23 Y 400 3200 translate 2851 -657 moveto 2851 -657 2851 -657 2851 -657 curveto stroke 1 1 0 setrgbcolor 2851 -657 80 0 360 arc fill 0 setgray 2851 -657 80 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 24 G 400 3200 translate 2458 -1015 moveto 2458 -1015 2458 -1015 2458 -1015 curveto stroke 0 1 0 setrgbcolor 2458 -1015 80 0 360 arc fill 0 setgray 2458 -1015 80 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 25 B 400 3200 translate 2889 -1812 moveto 2889 -1812 2889 -1812 2889 -1812 curveto stroke 0 0 1 setrgbcolor 2889 -1812 80 0 360 arc fill 0 setgray 2889 -1812 80 0 360 arc stroke -400 -3200 translate 400 3200 translate 2872 -1148 80 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 (Munsell V=2,5,8) 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 0 setgray /xm 3200 def /ym 2000 def 250 /Times-ISOL1 FS xm 1000 add ym 300 add moveto (5R) show xm 150 add ym 700 add moveto (5Y) show xm 1000 sub ym 000 sub moveto (5G) show xm 400 add ym 900 sub moveto (5PB) show xm ym moveto (x) show 1 0 0 setrgbcolor xm 450 add ym 520 add moveto (CIE) show (09) show xm 700 sub ym 550 add moveto (CIE) show (10) show xm 700 sub ym 300 add moveto (CIE) show (11) show xm 600 sub ym 500 sub moveto (CIE) show (12) show 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 JG510-5 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/JG51/) /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 0 def /lanind2 0 def} ifelse /lanind lanind1 def 5 /Times-ISOL1 FS 195 85 moveto (JG510-5) 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_0) show 2500 2900 moveto (RJGB_0) 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 F39RGB0.DAT Elementarfbn (x,y,Y), Model 1.3.2010 f. D65 %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 1CR RGB 600 400 translate 2512 1480 moveto 2512 1480 lineto 1876 2080 lineto 1152 2760 lineto 732 2216 lineto 200 1516 lineto 516 420 lineto 612 92 lineto 2196 1248 lineto 2512 1480 lineto stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 2CR UNB 600 400 translate 1248 1316 moveto 1248 1316 lineto stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 3O RGB 600 400 translate 1248 1316 moveto 1248 1316 lineto 2512 1480 lineto stroke 1 0 0 setrgbcolor 2512 1480 50 0 360 arc fill 0 setgray 2512 1480 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 1248 1316 moveto 1248 1316 lineto 1876 2080 lineto stroke 1 1 0 setrgbcolor 1876 2080 50 0 360 arc fill 0 setgray 1876 2080 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 1248 1316 moveto 1248 1316 lineto 1152 2760 lineto stroke 0 1 0 setrgbcolor 1152 2760 50 0 360 arc fill 0 setgray 1152 2760 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 1248 1316 moveto 1248 1316 lineto 732 2216 lineto stroke 0 1 0 setrgbcolor 732 2216 50 0 360 arc fill 0 setgray 732 2216 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 1248 1316 moveto 1248 1316 lineto 200 1516 lineto stroke 0 1 1 setrgbcolor 200 1516 50 0 360 arc fill 0 setgray 200 1516 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 1248 1316 moveto 1248 1316 lineto 516 420 lineto stroke 0 0 1 setrgbcolor 516 420 50 0 360 arc fill 0 setgray 516 420 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 1248 1316 moveto 1248 1316 lineto 612 92 lineto stroke 1 0 1 setrgbcolor 612 92 50 0 360 arc fill 0 setgray 612 92 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 1248 1316 moveto 1248 1316 lineto 2196 1248 lineto stroke 1 0 0 setrgbcolor 2196 1248 50 0 360 arc fill 0 setgray 2196 1248 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 1248 1316 moveto 1248 1316 lineto 2512 1480 lineto stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 12 R 600 400 translate 2277 1244 moveto 2277 1244 lineto 2277 1244 lineto 2277 1244 lineto stroke 1 0 0 setrgbcolor 2277 1244 80 0 360 arc fill 0 setgray 2277 1244 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 1743 1874 moveto 1743 1874 lineto 1743 1874 lineto 1743 1874 lineto stroke 1 1 0 setrgbcolor 1743 1874 80 0 360 arc fill 0 setgray 1743 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 1015 1703 moveto 1015 1703 lineto 1015 1703 lineto 1015 1703 lineto stroke 0 1 0 setrgbcolor 1015 1703 80 0 360 arc fill 0 setgray 1015 1703 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 620 640 moveto 620 640 lineto 620 640 lineto 620 640 lineto stroke 0 0 1 setrgbcolor 620 640 80 0 360 arc fill 0 setgray 620 640 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 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 JG510-6 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/JG51/) /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 0 def /lanind2 0 def} ifelse /lanind lanind1 def 5 /Times-ISOL1 FS 195 85 moveto (JG510-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,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 F39RGB0.DAT Elementarfbn (x,y,Y), Model 1.3.2010 f. D65 %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 1CR RGB 400 3200 translate 3484 -196 moveto 3484 -196 lineto 2822 -308 lineto 2183 -354 lineto 2019 -871 lineto 1487 -1280 lineto 3128 -2165 lineto 5494 -3681 lineto 3526 -852 lineto 3484 -196 lineto stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 2CR UNB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 3O RGB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto 3484 -196 lineto stroke 1 0 0 setrgbcolor 3484 -196 50 0 360 arc fill 0 setgray 3484 -196 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 4Y RGB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto 2822 -308 lineto stroke 1 1 0 setrgbcolor 2822 -308 50 0 360 arc fill 0 setgray 2822 -308 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 5L RGB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto 2183 -354 lineto stroke 0 1 0 setrgbcolor 2183 -354 50 0 360 arc fill 0 setgray 2183 -354 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 6G RGB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto 2019 -871 lineto stroke 0 1 0 setrgbcolor 2019 -871 50 0 360 arc fill 0 setgray 2019 -871 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 7C RGB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto 1487 -1280 lineto stroke 0 1 1 setrgbcolor 1487 -1280 50 0 360 arc fill 0 setgray 1487 -1280 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 8V RGB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto 3128 -2165 lineto stroke 0 0 1 setrgbcolor 3128 -2165 50 0 360 arc fill 0 setgray 3128 -2165 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 9M RGB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto 5494 -3681 lineto stroke 1 0 1 setrgbcolor 5494 -3681 50 0 360 arc fill 0 setgray 5494 -3681 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 10R RGB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto 3526 -852 lineto stroke 1 0 0 setrgbcolor 3526 -852 50 0 360 arc fill 0 setgray 3526 -852 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 11O RGB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto 3484 -196 lineto stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 12 R 400 3200 translate 3573 -812 moveto 3573 -812 lineto 3573 -812 lineto 3573 -812 lineto stroke 1 0 0 setrgbcolor 3573 -812 80 0 360 arc fill 0 setgray 3573 -812 80 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 13 J 400 3200 translate 2851 -657 moveto 2851 -657 lineto 2851 -657 lineto 2851 -657 lineto stroke 1 1 0 setrgbcolor 2851 -657 80 0 360 arc fill 0 setgray 2851 -657 80 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 14 G 400 3200 translate 2458 -1015 moveto 2458 -1015 lineto 2458 -1015 lineto 2458 -1015 lineto stroke 0 1 0 setrgbcolor 2458 -1015 80 0 360 arc fill 0 setgray 2458 -1015 80 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 15 B 400 3200 translate 2889 -1812 moveto 2889 -1812 lineto 2889 -1812 lineto 2889 -1812 lineto stroke 0 0 1 setrgbcolor 2889 -1812 80 0 360 arc fill 0 setgray 2889 -1812 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_0) 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 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 JG510-7 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/JG51/) /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 0 def /lanind2 0 def} ifelse /lanind lanind1 def 5 /Times-ISOL1 FS 195 85 moveto (JG510-7) 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_1) show 2500 2900 moveto (RJGB_1) 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 F39RGB0.DAT Elementarfbn (x,y,Y), Model 1.3.2010 f. D65 %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 1CR RGB 600 400 translate 2512 1480 moveto 2512 1480 lineto 1876 2080 lineto 1152 2760 lineto 924 1932 lineto 740 1248 lineto 516 420 lineto 1284 824 lineto 2064 1244 lineto 2512 1480 lineto stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 2CR UNB 600 400 translate 1248 1316 moveto 1248 1316 lineto stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 3O RGB 600 400 translate 1248 1316 moveto 1248 1316 lineto 2512 1480 lineto stroke 1 0 0 setrgbcolor 2512 1480 50 0 360 arc fill 0 setgray 2512 1480 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 1248 1316 moveto 1248 1316 lineto 1876 2080 lineto stroke 1 1 0 setrgbcolor 1876 2080 50 0 360 arc fill 0 setgray 1876 2080 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 1248 1316 moveto 1248 1316 lineto 1152 2760 lineto stroke 0 1 0 setrgbcolor 1152 2760 50 0 360 arc fill 0 setgray 1152 2760 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 1248 1316 moveto 1248 1316 lineto 924 1932 lineto stroke 0 1 0 setrgbcolor 924 1932 50 0 360 arc fill 0 setgray 924 1932 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 1248 1316 moveto 1248 1316 lineto 740 1248 lineto stroke 0 1 1 setrgbcolor 740 1248 50 0 360 arc fill 0 setgray 740 1248 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 1248 1316 moveto 1248 1316 lineto 516 420 lineto stroke 0 0 1 setrgbcolor 516 420 50 0 360 arc fill 0 setgray 516 420 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 1248 1316 moveto 1248 1316 lineto 1284 824 lineto stroke 1 0 1 setrgbcolor 1284 824 50 0 360 arc fill 0 setgray 1284 824 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 1248 1316 moveto 1248 1316 lineto 2064 1244 lineto stroke 1 0 0 setrgbcolor 2064 1244 50 0 360 arc fill 0 setgray 2064 1244 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 1248 1316 moveto 1248 1316 lineto 2512 1480 lineto stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 12 R 600 400 translate 2277 1244 moveto 2277 1244 lineto 2277 1244 lineto 2277 1244 lineto stroke 1 0 0 setrgbcolor 2277 1244 80 0 360 arc fill 0 setgray 2277 1244 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 1743 1874 moveto 1743 1874 lineto 1743 1874 lineto 1743 1874 lineto stroke 1 1 0 setrgbcolor 1743 1874 80 0 360 arc fill 0 setgray 1743 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 1015 1703 moveto 1015 1703 lineto 1015 1703 lineto 1015 1703 lineto stroke 0 1 0 setrgbcolor 1015 1703 80 0 360 arc fill 0 setgray 1015 1703 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 620 640 moveto 620 640 lineto 620 640 lineto 620 640 lineto stroke 0 0 1 setrgbcolor 620 640 80 0 360 arc fill 0 setgray 620 640 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 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 JG510-8 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/JG51/) /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 0 def /lanind2 0 def} ifelse /lanind lanind1 def 5 /Times-ISOL1 FS 195 85 moveto (JG510-8) 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 F39RGB0.DAT Elementarfbn (x,y,Y), Model 1.3.2010 f. D65 %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 1CR RGB 400 3200 translate 3484 -196 moveto 3484 -196 lineto 2822 -308 lineto 2183 -354 lineto 2284 -937 lineto 2454 -1309 lineto 3128 -2165 lineto 3386 -1473 lineto 3458 -918 lineto 3484 -196 lineto stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 2CR UNB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 3O RGB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto 3484 -196 lineto stroke 1 0 0 setrgbcolor 3484 -196 50 0 360 arc fill 0 setgray 3484 -196 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 4Y RGB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto 2822 -308 lineto stroke 1 1 0 setrgbcolor 2822 -308 50 0 360 arc fill 0 setgray 2822 -308 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 5L RGB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto 2183 -354 lineto stroke 0 1 0 setrgbcolor 2183 -354 50 0 360 arc fill 0 setgray 2183 -354 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 6G RGB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto 2284 -937 lineto stroke 0 1 0 setrgbcolor 2284 -937 50 0 360 arc fill 0 setgray 2284 -937 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 7C RGB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto 2454 -1309 lineto stroke 0 1 1 setrgbcolor 2454 -1309 50 0 360 arc fill 0 setgray 2454 -1309 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 8V RGB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto 3128 -2165 lineto stroke 0 0 1 setrgbcolor 3128 -2165 50 0 360 arc fill 0 setgray 3128 -2165 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 9M RGB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto 3386 -1473 lineto stroke 1 0 1 setrgbcolor 3386 -1473 50 0 360 arc fill 0 setgray 3386 -1473 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 10R RGB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto 3457 -918 lineto stroke 1 0 0 setrgbcolor 3457 -918 50 0 360 arc fill 0 setgray 3457 -918 50 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 11O RGB 400 3200 translate 2870 -1149 moveto 2870 -1149 lineto 3484 -196 lineto stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 12 R 400 3200 translate 3573 -812 moveto 3573 -812 lineto 3573 -812 lineto 3573 -812 lineto stroke 1 0 0 setrgbcolor 3573 -812 80 0 360 arc fill 0 setgray 3573 -812 80 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 13 J 400 3200 translate 2851 -657 moveto 2851 -657 lineto 2851 -657 lineto 2851 -657 lineto stroke 1 1 0 setrgbcolor 2851 -657 80 0 360 arc fill 0 setgray 2851 -657 80 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 14 G 400 3200 translate 2458 -1015 moveto 2458 -1015 lineto 2458 -1015 lineto 2458 -1015 lineto stroke 0 1 0 setrgbcolor 2458 -1015 80 0 360 arc fill 0 setgray 2458 -1015 80 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 15 B 400 3200 translate 2889 -1812 moveto 2889 -1812 lineto 2889 -1812 lineto 2889 -1812 lineto stroke 0 0 1 setrgbcolor 2889 -1812 80 0 360 arc fill 0 setgray 2889 -1812 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_1) 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 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 JG511-1N %%BoundingBox: 70 83 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/JG51/) /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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TS {150 /Times-ISOL1 FS} bind def /TK {200 /Times-ISOL1 FS} bind def /TM {250 /Times-ISOL1 FS} bind def /TG {300 /Times-ISOL1 FS} bind def /TIS {150 /TimesI-ISOL1 FS} bind def /TIK {200 /TimesI-ISOL1 FS} bind def /TIM {250 /TimesI-ISOL1 FS} bind def /TIG {300 /TimesI-ISOL1 FS} bind def /TBS {150 /TimesB-ISOL1 FS} bind def /TBK {200 /TimesB-ISOL1 FS} bind def /TBM {250 /TimesB-ISOL1 FS} bind def /TBG {300 /TimesB-ISOL1 FS} bind def /TBIS {150 /TimesBI-ISOL1 FS} bind def /TBIK {200 /TimesBI-ISOL1 FS} bind def /TBIM {250 /TimesBI-ISOL1 FS} bind def /TBIG {300 /TimesBI-ISOL1 FS} bind def /SS {150 /Symbol FS} bind def /SK {200 /Symbol FS} bind def /SM {250 /Sysbol FS} bind def /SG {300 /Symbol FS} bind def %%EndProlog gsave /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse 5 /Times-ISOL1 FS 200 85 moveto (JG511-1) show 72 90 translate /yhoe 4000 def /xwide 5333 def 15 setlinewidth 0.01 MM dup scale 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoe rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoe rlineto xwide neg 0 rlineto closepath stroke 1 setgray %0050 3800 moveto %TBM (CIELAB ) showen (CIELAB\255) showde %TBIM (\050 a*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto %TBIM (, b*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto %TBM (\051) show %TBM ( chroma) showen (\255Buntheit) showde 0005 3800 moveto TBK (Colorimetric data) showen (Farbmetrische Daten) showde TBIK ( TCH*, RGB*) show TBS -30 -60 rmoveto (3) show 30 60 rmoveto TBIK (, NCu*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto TBK ( of device NRS18) showen ( des Ger\344tes NRS18) showde %050 850 moveto %1 setgray %TBK (example for) showen % (Beispiel f\374r) showde %050 600 moveto %TBK (colour notation:) showen % (Farbkennzeichnung:) showde %1 0 0 setrgbcolor %050 350 moveto %TBIK (ncu*) show TBK ( = 0,25 0,50 r25j) show %050 100 moveto %TBIK (rgb*) show TBS -30 -60 rmoveto (3) show 0 60 rmoveto %TBK ( = 0,75 0,25 0,25) show 1 setgray xwide 0.5 mul 50 sub yhoe 0.5 mul translate %20 setlinewidth %1000 0 moveto ( ) show %0 0 1000 0 360 arc stroke %newpath %0 0 moveto ( ) show %axis 40 setlinewidth 1 setgray 0 0 moveto 2300 0 rlineto stroke 0 0 moveto 0 1650 rlineto stroke /la 30 def /x0r 1000 la cos mul def /y0r 1000 la sin mul def /la 90 def /x0j 1000 la cos mul def /y0j 1000 la sin mul def /la 150 def /x0g 1000 la cos mul def /y0g 1000 la sin mul def /la 210 def /x0c 1000 la cos mul def /y0c 1000 la sin mul def /la 270 def /x0b 1000 la cos mul def /y0b 1000 la sin mul def /la 330 def /x0m 1000 la cos mul def /y0m 1000 la sin mul def %mixture j33gÐg00b 40 setlinewidth %20 setlinewidth %[60] 0 setdash 1 setgray x0r y0r moveto x0j y0j lineto x0g y0g lineto x0c y0c lineto x0b y0b lineto x0m y0m lineto x0r y0r lineto stroke [] 0 setdash 1 setgray 2300 100 sub -50 moveto 100 50 rlineto -100 50 rlineto closepath stroke 2400 000 moveto TBIM (a*) show %TBK -30 -60 rmoveto (r) show 0 60 rmoveto -50 1650 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath stroke -350 1500 moveto TBIM (b*) show %TBK -30 -60 rmoveto (r) show 0 60 rmoveto %elementary hue device 1 0 0.2 setrgbcolor %O=R 0 0 moveto x0r y0r lineto stroke x0r y0r moveto ( ) show x0r y0r 60 0 360 arc fill 1 setgray x0r 175 add y0r 300 add moveto TBIK (TCH*) show TBS -30 -50 rmoveto (R) show 0 50 rmoveto TBK ( = 57 77 30) show x0r 175 add y0r 050 add moveto TBIK (RGB*) show TBS -30 -50 rmoveto (3,R) show 0 50 rmoveto TBK ( = 77 0 0) show x0r 175 add y0r 200 sub moveto TBIK (NCu*) show TBS -10 -50 rmoveto (R) show 0 50 rmoveto TBK ( = 0 77 ) show 1 0 0.2 setrgbcolor (r00j) show 1 1 0 setrgbcolor %Y=J 0 0 moveto x0j y0j lineto stroke x0j y0j moveto ( ) show x0j y0j 60 0 360 arc fill 1 setgray x0j 100 add y0j 550 add moveto TBIK (TCH*) show TBS -30 -50 rmoveto (J) show 0 50 rmoveto TBK ( = 57 77 90) show x0j 100 add y0j 300 add moveto TBIK (RGB*) show TBS -30 -50 rmoveto (3,J) show 0 50 rmoveto TBK ( = 77 77 0) show x0j 100 add y0j 050 add moveto TBIK (NCu*) show TBS -10 -50 rmoveto (J) show 0 50 rmoveto TBK ( = 0 77 ) show 1 1 0 setrgbcolor (j00g) show 0 1 0.2 setrgbcolor %L=G 0 0 moveto x0g y0g lineto stroke x0g y0g moveto ( ) show x0g y0g 60 0 360 arc fill 1 setgray x0g 075 add 1800 sub y0g 300 add moveto TBIK (TCH*) show TBS -30 -50 rmoveto (G) show 0 50 rmoveto TBK ( = 57 77 150) show x0g 075 add 1800 sub y0g 050 add moveto TBIK (RGB*) show TBS -30 -50 rmoveto (3,G) show 0 50 rmoveto TBK ( = 0 77 0) show x0g 075 add 1800 sub y0g 200 sub moveto TBIK (NCu*) show TBS -10 -50 rmoveto (G) show 0 50 rmoveto TBK ( = 0 77 ) show 0 1 0.2 setrgbcolor (g00b) show 0 1 1 setrgbcolor %C 0 0 moveto x0c y0c lineto stroke x0c y0c moveto ( ) show x0c y0c 60 0 360 arc fill 1 setgray x0c 075 add 1800 sub y0c 050 add moveto TBIK (TCH*) show TBS -30 -50 rmoveto (C) show 0 50 rmoveto TBK ( = 57 77 210) show x0c 075 add 1800 sub y0c 200 sub moveto TBIK (RGB*) show TBS -30 -50 rmoveto (3,C) show 0 50 rmoveto TBK ( = 0 77 77) show x0c 075 add 1800 sub y0c 450 sub moveto TBIK (NCu*) show TBS -10 -50 rmoveto (C) show 0 50 rmoveto TBK ( = 0 77 ) show 0 1 1 setrgbcolor (g45b) show 0 0.2 1 setrgbcolor %B 0 0 moveto x0b y0b lineto stroke x0b y0b moveto ( ) show x0b y0b 60 0 360 arc fill 1 setgray x0b 000 add 700 sub y0b 200 sub moveto TBIK (TCH*) show TBS -30 -50 rmoveto (B) show 0 50 rmoveto TBK ( = 57 77 270) show x0b 000 add 700 sub y0b 450 sub moveto TBIK (RGB*) show TBS -30 -50 rmoveto (3,B) show 0 50 rmoveto TBK ( = 0 0 77) show x0b 000 add 700 sub y0b 700 sub moveto TBIK (NCu*) show TBS -10 -50 rmoveto (B) show 0 50 rmoveto TBK ( = 0 77 ) show 0 0.2 1 setrgbcolor (b00r) show 1 0 1 setrgbcolor %M 0 0 moveto x0m y0m lineto stroke x0m y0m moveto ( ) show x0m y0m 60 0 360 arc fill 1 setgray x0m 175 add y0m 050 add moveto TBIK (TCH*) show TBS -30 -50 rmoveto (M) show 0 50 rmoveto TBK ( = 57 77 330) show x0m 175 add y0m 200 sub moveto TBIK (RGB*) show TBS -30 -50 rmoveto (3,M) show 0 50 rmoveto TBK ( = 77 0 77) show x0m 175 add y0m 450 sub moveto TBIK (NCu*) show TBS -10 -50 rmoveto (M) show 0 50 rmoveto TBK ( = 0 77 ) show 1 0 1 setrgbcolor (b45r) show showpage grestore %%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 JG511-2N %%BoundingBox: 70 83 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/JG51/) /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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TS {150 /Times-ISOL1 FS} bind def /TK {200 /Times-ISOL1 FS} bind def /TM {250 /Times-ISOL1 FS} bind def /TG {300 /Times-ISOL1 FS} bind def /TIS {150 /TimesI-ISOL1 FS} bind def /TIK {200 /TimesI-ISOL1 FS} bind def /TIM {250 /TimesI-ISOL1 FS} bind def /TIG {300 /TimesI-ISOL1 FS} bind def /TBS {150 /TimesB-ISOL1 FS} bind def /TBK {200 /TimesB-ISOL1 FS} bind def /TBM {250 /TimesB-ISOL1 FS} bind def /TBG {300 /TimesB-ISOL1 FS} bind def /TBIS {150 /TimesBI-ISOL1 FS} bind def /TBIK {200 /TimesBI-ISOL1 FS} bind def /TBIM {250 /TimesBI-ISOL1 FS} bind def /TBIG {300 /TimesBI-ISOL1 FS} bind def /SS {150 /Symbol FS} bind def /SK {200 /Symbol FS} bind def /SM {250 /Sysbol FS} bind def /SG {300 /Symbol FS} bind def %%EndProlog gsave /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse 5 /Times-ISOL1 FS 200 85 moveto (JG511-2) show 72 90 translate /yhoe 4000 def /xwide 5333 def 15 setlinewidth 0.01 MM dup scale 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoe rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoe rlineto xwide neg 0 rlineto closepath stroke 1 setgray %0050 3800 moveto %TBM (CIELAB ) showen (CIELAB\255) showde %TBIM (\050 a*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto %TBIM (, b*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto %TBM (\051) show %TBM ( chroma) showen (\255Buntheit) showde 0020 3800 moveto TBK (Colorimetric data) showen (Farbmetrische Daten) showde TBIK ( tch*, rgb*) show TBS -30 -60 rmoveto (3) show 30 60 rmoveto TBIK (, ncu*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto TBK ( of device NRS18) showen ( des Ger\344tes NRS18) showde %050 850 moveto %1 setgray %TBK (example for) showen % (Beispiel f\374r) showde %050 600 moveto %TBK (colour notation:) showen % (Farbkennzeichnung:) showde %1 0 0 setrgbcolor %050 350 moveto %TBIK (ncu*) show TBK ( = 0,25 0,50 r25j) show %050 100 moveto %TBIK (rgb*) show TBS -30 -60 rmoveto (3) show 0 60 rmoveto %TBK ( = 0,75 0,25 0,25) show 1 setgray xwide 0.5 mul 50 sub yhoe 0.5 mul translate %20 setlinewidth %1000 0 moveto ( ) show %0 0 1000 0 360 arc stroke %newpath %0 0 moveto ( ) show %axis 40 setlinewidth 1 setgray 0 0 moveto 2300 0 rlineto stroke 0 0 moveto 0 1650 rlineto stroke /la 30 def /x0r 1000 la cos mul def /y0r 1000 la sin mul def /la 90 def /x0j 1000 la cos mul def /y0j 1000 la sin mul def /la 150 def /x0g 1000 la cos mul def /y0g 1000 la sin mul def /la 210 def /x0c 1000 la cos mul def /y0c 1000 la sin mul def /la 270 def /x0b 1000 la cos mul def /y0b 1000 la sin mul def /la 330 def /x0m 1000 la cos mul def /y0m 1000 la sin mul def %mixture j33gÐg00b 40 setlinewidth %20 setlinewidth %[60] 0 setdash 1 setgray %x0r y0r moveto x0j y0j lineto x0g y0g lineto %x0c y0c lineto x0b y0b lineto x0m y0m lineto x0r y0r lineto stroke %[] 0 setdash 0 0 moveto ( ) show 0 0 1000 0 360 arc stroke 1 setgray 2300 100 sub -50 moveto 100 50 rlineto -100 50 rlineto closepath stroke 2400 000 moveto TBIM (a*) show %TBK -30 -60 rmoveto (r) show 0 60 rmoveto -50 1650 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath stroke -350 1500 moveto TBIM (b*) show %TBK -30 -60 rmoveto (r) show 0 60 rmoveto %elementary hue device 1 0 0.2 setrgbcolor %O=R 0 0 moveto x0r y0r lineto stroke x0r y0r moveto ( ) show x0r y0r 60 0 360 arc fill 1 setgray x0r 175 add y0r 300 add moveto TBIK (tch*) show TBS -30 -50 rmoveto (R) show 0 50 rmoveto TBK ( = 0,5 1 0,08) show x0r 175 add y0r 050 add moveto TBIK (rgb*) show TBS -30 -50 rmoveto (3,R) show 0 50 rmoveto TBK ( = 1 0 0) show x0r 175 add y0r 200 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (R) show 0 50 rmoveto TBK ( = 0 1 ) show 1 0 0.2 setrgbcolor (r00j) show 1 1 0 setrgbcolor %Y=J 0 0 moveto x0j y0j lineto stroke x0j y0j moveto ( ) show x0j y0j 60 0 360 arc fill 1 setgray x0j 100 add y0j 550 add moveto TBIK (tch*) show TBS -30 -50 rmoveto (J) show 0 50 rmoveto TBK ( = 0,5 1 0,25) show x0j 100 add y0j 300 add moveto TBIK (rgb*) show TBS -30 -50 rmoveto (3,J) show 0 50 rmoveto TBK ( = 1 1 0) show x0j 100 add y0j 050 add moveto TBIK (ncu*) show TBS -30 -50 rmoveto (J) show 0 50 rmoveto TBK ( = 0 1 ) show 1 1 0 setrgbcolor (j00g) show 0 1 0.2 setrgbcolor %L=G 0 0 moveto x0g y0g lineto stroke x0g y0g moveto ( ) show x0g y0g 60 0 360 arc fill 1 setgray x0g 075 add 1800 sub y0g 300 add moveto TBIK (tch*) show TBS -30 -50 rmoveto (G) show 0 50 rmoveto TBK ( = 0,5 1 0,41) show x0g 075 add 1800 sub y0g 050 add moveto TBIK (rgb*) show TBS -30 -50 rmoveto (3,G) show 0 50 rmoveto TBK ( = 0 1 0) show x0g 075 add 1800 sub y0g 200 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (G) show 0 50 rmoveto TBK ( = 0 1 ) show 0 1 0.2 setrgbcolor (g00b) show 0 1 1 setrgbcolor %C 0 0 moveto x0c y0c lineto stroke x0c y0c moveto ( ) show x0c y0c 60 0 360 arc fill 1 setgray x0c 075 add 1800 sub y0c 050 add moveto TBIK (tch*) show TBS -30 -50 rmoveto (C) show 0 50 rmoveto TBK ( = 0,5 1 0,58) show x0c 075 add 1800 sub y0c 200 sub moveto TBIK (rgb*) show TBS -30 -50 rmoveto (3,C) show 0 50 rmoveto TBK ( = 0 1 1) show x0c 075 add 1800 sub y0c 450 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (C) show 0 50 rmoveto TBK ( = 0 1 ) show 0 1 1 setrgbcolor (g45b) show 0 0.2 1 setrgbcolor %B 0 0 moveto x0b y0b lineto stroke x0b y0b moveto ( ) show x0b y0b 60 0 360 arc fill 1 setgray x0b 000 add 700 sub y0b 220 sub moveto TBIK (tch*) show TBS -30 -50 rmoveto (B) show 0 50 rmoveto TBK ( = 0,5 1 0,75) show x0b 000 add 700 sub y0b 470 sub moveto TBIK (rgb*) show TBS -30 -50 rmoveto (3,B) show 0 50 rmoveto TBK ( = 0 0 1) show x0b 000 add 700 sub y0b 720 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (B) show 0 50 rmoveto TBK ( = 0 1 ) show 0 0.2 1 setrgbcolor (b00r) show 1 0 1 setrgbcolor %M 0 0 moveto x0m y0m lineto stroke x0m y0m moveto ( ) show x0m y0m 60 0 360 arc fill 1 setgray x0m 175 add y0m 050 add moveto TBIK (tch*) show TBS -30 -50 rmoveto (M) show 0 50 rmoveto TBK ( = 0,5 1 0,91) show x0m 175 add y0m 200 sub moveto TBIK (rgb*) show TBS -30 -50 rmoveto (3,M) show 0 50 rmoveto TBK ( = 1 0 1) show x0m 175 add y0m 450 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (M) show 0 50 rmoveto TBK ( = 0 1 ) show 1 0 1 setrgbcolor (b45r) show showpage grestore %%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 JG511-3N %%BoundingBox: 70 83 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/JG51/) /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 %%Creator: K. Richter, BAM und TU Berlin, 20060601 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach % !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 /TS {200 16.67 div /Times-ISOL1 FS} bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {280 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIS {200 16.67 div /TimesI-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {280 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBS {200 16.67 div /TimesB-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {280 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIS {200 16.67 div /TimesBI-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {280 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /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 %%EndProlog gsave %LANINDL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS %72 85 moveto (Teil 2) showde (Part 2) showen 195 85 moveto (JG511-3) show %5 /Times-ISOL1 FS %(elementary hue Red R: relation) showen %(Elemantarfarbe Rot R: Beziehung) showde %5 /TimesI-ISOL1 FS %( lab*rgb-lab*ncw) show 72 90 translate 0.1667 MM dup scale 0.5 0.5 0.5 setrgbcolor 0 0 319 239 rec fill 1 1 1 setrgbcolor %Schrift Weiss 02 222 moveto TBM (Maximalfarbe) showde (Maximum colour) showen TBM ( R) show TBM ( mit 0% N,W) showde ( with 0% N,W) showen TBM (; linear) showen (; lineare) showde 02 202 moveto TBM (relation) showen (Beziehung) showde TBIM ( lab*rgb*) show TK 0 -3 rmoveto (3) show 0 3 rmoveto TBIM ( - lab*nicwd*) show /xd 4.0 def /ix0 28 def /iy0 30 def /ya [150 150] def /yb [ 00 000] def /yc [ 00 000] def /scolors [ {0.0 0.0 0.0 0.0} {0.4 0.4 0.8 0.2} ] def 1 setlinewidth TBIK /j 0 def /ix1 ix0 15 add j 130 mul add def /ixd 15 def /ix2 ix1 ixd add def /iy1 iy0 def /iyd ya j get exec def /iy2 iy0 iyd add def ix1 iy1 ixd iyd fcolors 1 get exec setcmykcolor rec fill ix1 0 sub iy2 8 add moveto (r*) fcolors 1 get exec setcmykcolor show TS 0 -3 rmoveto (3) show 0 3 rmoveto TBIK /ix1 ix0 40 add j 130 mul add def /ix2 ix1 ixd add def /iy1 iy0 def /iyd yb j get exec def /iy2 iy0 iyd add def ix1 iy1 ixd iyd fcolors 3 get exec setcmykcolor rec fill ix1 0 sub iy2 8 add moveto (g*) fcolors 3 get exec setcmykcolor show TS 0 -3 rmoveto (3) show 0 3 rmoveto TBIK /ix1 ix0 65 add j 130 mul add def /ix2 ix1 ixd add def /iy1 iy0 def /iyd yc j get exec def /iy2 iy0 iyd add def ix1 iy1 ixd iyd fcolors 5 get exec setcmykcolor rec fill ix1 0 sub iy2 8 add moveto (b*) fcolors 5 get exec setcmykcolor show TS 0 -3 rmoveto (3) show 0 3 rmoveto TBIK ix1 50 sub iy0 22 sub moveto 0.0 0.0 0.0 0.0 setcmykcolor TBK 05 05 moveto %(Colour:) showen (Farbe:) showde TBIK ( ncu*) show TBK ( = 0,00 1,00 r00j; ) show TBIK ( rgb*) show TBS -2 -3 rmoveto (3) show 0 3 rmoveto TBK ( = 1,00 0,00 0,00 ) show fcolors 7 get exec setcmykcolor /x1 10 def ix2 x1 add iy0 moveto 0 150 rlineto stroke ix2 x1 add 2 sub iy0 8 add moveto 2 -8 rlineto 2 8 rlineto closepath fill ix2 x1 add 2 sub iy0 8 sub 150 add moveto 2 8 rlineto 2 -8 rlineto closepath fill TBIK /iya iy0 ya j get exec add def /iyb iy0 yb j get exec add def /iyc iy0 yc j get exec add def /itc iy0 yc j get exec add ya j get exec yc j get exec sub 2 idiv add def /itn iy0 ya j get exec add 150 ya j get exec sub 2 idiv add def /itw iy0 yc j get exec 2 idiv add def ix2 x1 add 2 sub iya 8 add moveto 2 -8 rlineto 2 8 rlineto closepath fill ix2 x1 add 2 sub iya 8 sub moveto 2 8 rlineto 2 -8 rlineto closepath fill ix2 x1 add 2 sub iyc 8 add moveto 2 -8 rlineto 2 8 rlineto closepath fill ix2 x1 add 2 sub iyc 8 sub moveto 2 8 rlineto 2 -8 rlineto closepath fill 125 165 moveto TBIK (n*) show TBK ( = 1 - ) show TBIK (i*) show TBK ( = 0,00 ) show 125 150 moveto TBK (blackness = 1 - brilliantness) showen (Schwarzheit = 1 -Brilliantheit) showde 125 125 moveto TBIK (c*) show TBK ( = 1 - ) show TBIK (n* - w*) show TBK ( = 1,00 ) show 125 110 moveto TBK (chromaticness =1-blackness) showen (Buntheit = 1 - Schwarzheit) showde 233 095 moveto TBK (- whiteness) showen (- Wei\337heit) showde 125 065 moveto TBIK (w*) show TBK ( = 1 - ) show TBIK (d*) show TBK ( = 0,00 ) show 125 050 moveto TBK (whiteness = 1 - deepness) showen (Wei\337heit = 1 - Farbtiefe) showde /ty [( 0,0) ( 0,2) ( 0,4) ( 0,6) ( 0,8) ( 1,0) ] def /ix0 30 def /iy0 30 def 2 setlinewidth TBK 0 1 5 {/i exch def %y-Achsen-Beschriftung ix0 30 sub iy0 07 sub i 30 mul add moveto ty i get exec show } for TBM ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec setcmykcolor rec fill ix0 1 sub iy0 3 sub 2 153 fcolors 7 get exec setcmykcolor rec fill ix0 3 sub iy0 1 sub 150 add 273 2 fcolors 7 get exec setcmykcolor rec fill 0 30 150 {/iyd exch def ix0 4 sub iy0 1 sub iyd add 8 2 fcolors 07 get exec setcmykcolor rec fill } for %Schleife iyd showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %line 459 %!PS-Adobe-3.0 EPSF-3.0 JG511-4N %%BoundingBox: 70 83 222 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/JG51/) /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 /TS {200 16.67 div /Times-ISOL1 FS} bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {280 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIS {200 16.67 div /TimesI-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {280 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBS {200 16.67 div /TimesB-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {280 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIS {200 16.67 div /TimesBI-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {280 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS %72 85 moveto (Teil 2) showde (Part 2) showen 195 85 moveto (JG511-4) show %5 /Times-ISOL1 FS %(elementary hue Red R: relation) showen %(Elemantarfarbe Rot R: Beziehung) showde %5 /TimesI-ISOL1 FS %( lab*rgb-lab*ncw) show 72 90 translate 0.1667 MM dup scale 0.5 0.5 0.5 setrgbcolor 0 0 moveto 319 0 rlineto 0 239 rlineto 319 neg 0 rlineto closepath fill 1.0 1.0 1.0 setrgbcolor 02 222 moveto TBM (Maximalfarbe R mit 0% N,W) showde (Maximum colour R with 0% N,W) showen TBM (; linear) showen (; lineare) showde 02 202 moveto TBM (relation) showen (Beziehung) showde TBIM ( lab*rgb*) show TK 0 -3 rmoveto (3) show 0 3 rmoveto TBIM ( - lab*ncutwe*) show 02 20 moveto TBIK ( tce*) show TBK ( = 0,50 1,00 0,00) show 02 05 moveto TBIK ( ncu*) show TBK ( = 0,00 1,00 r00j) show 150 20 moveto TBIK (t*) show TBK ( = 1-) show TBIK (n*) show TBK (-0,5) show TBIK (c*) show TBK ( = 0,50) show 150 05 moveto TBIK (rgb*) show TBS -2 -3 rmoveto (3) show 0 3 rmoveto TBK ( = 1,00 0,00 0,00 ) show 073 110 translate 0 0 moveto ( ) show newpath 2 setlinewidth 1 setgray 0 0 60 0 360 arc stroke newpath 0 0 moveto ( ) 4 setlinewidth 1 0 0 setrgbcolor 0 0 moveto 60 0 rlineto stroke 66 -5 moveto (R) show 1 1 0 setrgbcolor 15 -17 moveto TBIS (e*) show TBS (=0,00) show 15 10 moveto TBIS (u*) show TBS (=r00j) show TBK 1 1 0 setrgbcolor 0 0 moveto 0 60 rlineto stroke -5 68 moveto (J) show 0 1 0 setrgbcolor 0 0 moveto -60 0 rlineto stroke -73 -5 moveto (G) show 0 0 1 setrgbcolor 0 0 moveto 0 -60 rlineto stroke -5 -75 moveto (B) show 1 0 0 setrgbcolor %30 0 moveto ( ) show %30 0 06 0 360 arc fill 60 0 moveto ( ) show 60 0 06 0 360 arc fill -073 -110 translate 173 110 translate %mean triangle in y 2 setlinewidth 1 setgray 0 -60 moveto 0 120 rlineto 120 -60 rlineto closepath stroke -5 65 moveto (W) show -15 -62 moveto (N) show 127 -5 moveto (X) show 1 1 0 setrgbcolor 2 setlinewidth [3] 0 setdash %000 -30 moveto 90 15 lineto stroke %w*=0,25 %000 30 moveto 90 -15 lineto stroke %n*=0,25 %060 40 moveto 0 -80 rlineto stroke %c*=0,50 120 40 moveto 0 -80 rlineto stroke %c*=1,00 %090 40 moveto 0 -80 rlineto stroke %c*=0,75 000 00 moveto 120 0 rlineto stroke %t*=0,50 %000 15 moveto 090 0 rlineto stroke %t*=0,75 %037 -65 moveto TBIS (c*) show TBS ( = 0,50) show % 070 -50 moveto TBIS (c*) show TBS ( = 0,75) show 090 -50 moveto TBIS (c*) show TBS ( = 1,00) show %75 -35 moveto TBIS (n*) show TBS ( = 0,25) show %005 05 moveto TBIS (t*) show TBS ( = 0,50) show -25 06 moveto TBIS (t*) show TBS ( =) show -25 -07 moveto TBS (0,50) show %-25 21 moveto TBIS (t*) show TBS ( =) show %-25 06 moveto TBS (0,62) show % 015 -38 moveto TBIS 25 rotate (w*) show TBS (=0,25) show -25 rotate % 010 33 moveto TBIS -25 rotate (n*) show TBS (=0,25) show 25 rotate 015 -66 moveto TBIS 25 rotate (w*) show TBS (=0,00) show -25 rotate 010 61 moveto TBIS -25 rotate (n*) show TBS (=0,00) show 25 rotate [ ] 0 setdash 2 setlinewidth -10 45 moveto 0 30 rlineto -2 -4 rlineto 4 0 rlineto -2 4 rlineto stroke -25 55 moveto TBIK (t*) show 100 -60 moveto 30 0 rlineto -4 2 rlineto 0 -4 rlineto 4 2 rlineto stroke 110 -75 moveto TBIK (c*) show 1 0 0 setrgbcolor %060 0 moveto ( ) show %060 0 06 0 360 arc fill %090 15 moveto ( ) show %090 15 06 0 360 arc fill 120 0 moveto ( ) show 120 0 06 0 360 arc fill -173 -110 translate stroke showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %line 469 %!PS-Adobe-3.0 EPSF-3.0 JG511-5N %%BoundingBox: 70 83 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/JG51/) /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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TS {150 /Times-ISOL1 FS} bind def /TK {200 /Times-ISOL1 FS} bind def /TM {250 /Times-ISOL1 FS} bind def /TG {300 /Times-ISOL1 FS} bind def /TIS {150 /TimesI-ISOL1 FS} bind def /TIK {200 /TimesI-ISOL1 FS} bind def /TIM {250 /TimesI-ISOL1 FS} bind def /TIG {300 /TimesI-ISOL1 FS} bind def /TBS {150 /TimesB-ISOL1 FS} bind def /TBK {200 /TimesB-ISOL1 FS} bind def /TBM {250 /TimesB-ISOL1 FS} bind def /TBG {300 /TimesB-ISOL1 FS} bind def /TBIS {150 /TimesBI-ISOL1 FS} bind def /TBIK {200 /TimesBI-ISOL1 FS} bind def /TBIM {250 /TimesBI-ISOL1 FS} bind def /TBIG {300 /TimesBI-ISOL1 FS} bind def /SS {150 /Symbol FS} bind def /SK {200 /Symbol FS} bind def /SM {250 /Sysbol FS} bind def /SG {300 /Symbol FS} bind def %%EndProlog gsave /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse 5 /Times-ISOL1 FS 200 85 moveto (JG511-5) show 72 90 translate /yhoe 4000 def /xwide 5333 def 15 setlinewidth 0.01 MM dup scale 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoe rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoe rlineto xwide neg 0 rlineto closepath stroke 1 setgray %0050 3800 moveto %TBM (CIELAB ) showen (CIELAB\255) showde %TBIM (\050 a*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto %TBIM (, b*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto %TBM (\051) show %TBM ( chroma) showen (\255Buntheit) showde 0020 3800 moveto TBK (Colorimetric data) showen (Farbmetrische Daten) showde TBIK ( tch*, ) show SK (l) show TBIK (*) show TBS -30 -60 rmoveto (d) show 30 60 rmoveto TBIK (, ncu*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto TBK ( of device NRS18) showen ( des Ger\344tes NRS18) showde %050 850 moveto %1 setgray %TBK (example for) showen % (Beispiel f\374r) showde %050 600 moveto %TBK (colour notation:) showen % (Farbkennzeichnung:) showde %1 0 0 setrgbcolor %050 350 moveto %TBIK (ncu*) show TBK ( = 0,25 0,50 r25j) show %050 100 moveto %TBIK (rgb*) show TBS -30 -60 rmoveto (3) show 0 60 rmoveto %TBK ( = 0,75 0,25 0,25) show 1 setgray xwide 0.5 mul 50 add yhoe 0.5 mul translate %20 setlinewidth %1000 0 moveto ( ) show %0 0 1000 0 360 arc stroke %newpath %0 0 moveto ( ) show /la 30 def /x0r 1000 la cos mul def /y0r 1000 la sin mul def /la 90 def /x0j 1000 la cos mul def /y0j 1000 la sin mul def /la 112.5 def /x113 1000 la cos mul def /y113 1000 la sin mul def /la 135 def /x135 1000 la cos mul def /y135 1000 la sin mul def /la 157.5 def /x158 1000 la cos mul def /y158 1000 la sin mul def /la 150 def /x0g 1000 la cos mul def /y0g 1000 la sin mul def /la 210 def /x0c 1000 la cos mul def /y0c 1000 la sin mul def /la 225 def /x225 1000 la cos mul def /y225 1000 la sin mul def /la 270 def /x0b 1000 la cos mul def /y0b 1000 la sin mul def /la 315 def /x315 1000 la cos mul def /y315 1000 la sin mul def /la 330 def /x0m 1000 la cos mul def /y0m 1000 la sin mul def %mixture j33gÐg00b 40 setlinewidth %20 setlinewidth %[60] 0 setdash 1 setgray %x0r y0r moveto x0j y0j lineto x0g y0g lineto %x0c y0c lineto x0b y0b lineto x0m y0m lineto x0r y0r lineto stroke %[] 0 setdash 0 0 moveto ( ) show 0 0 1000 0 360 arc stroke 1 setgray %x-axis 40 setlinewidth 0 0 moveto 2200 0 rlineto stroke 2200 100 sub -50 moveto 100 50 rlineto -100 50 rlineto closepath stroke 2300 -50 moveto TBIM (a*) show %TBK -30 -60 rmoveto (r) show 0 60 rmoveto %y-axis 0 0 moveto 0 1650 rlineto stroke -50 1650 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath stroke -350 1500 moveto TBIM (b*) show %TBK -30 -60 rmoveto (r) show 0 60 rmoveto %elementary hue device 1 1 0 setrgbcolor %Y=J 0 0 moveto x0j y0j lineto stroke %x0j y0j moveto ( ) show x0j y0j 60 0 360 arc fill x0j 100 add y0j 300 add moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,J) show 0 50 rmoveto TBK ( = 575 nm) show 0.8 1 0.0 setrgbcolor %j17g 0 0 moveto x113 y113 lineto stroke x113 y113 moveto ( ) show x113 y113 60 0 360 arc fill 1 setgray x113 075 add 1900 sub y113 650 add moveto TBIK (tch*) show TBS -30 -50 rmoveto (j17g) show 0 50 rmoveto TBK ( = 0,5 1 0,32) show x113 075 add 1900 sub y113 400 add moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,j17g) show 0 50 rmoveto 0.8 1 0.0 setrgbcolor TBK ( = 563 nm) show 1 setgray x113 075 add 1900 sub y113 150 add moveto TBIK (ncu*) show TBS -30 -50 rmoveto (j17g) show 0 50 rmoveto TBK ( = 0 1 ) show 0.8 1 0.0 setrgbcolor (j17g) show 0.4 1 0.0 setrgbcolor %j33g 0 0 moveto x135 y135 lineto stroke x135 y135 moveto ( ) show x135 y135 60 0 360 arc fill 1 setgray x135 075 add 1900 sub y135 100 add moveto TBIK (tch*) show TBS -30 -50 rmoveto (j33g) show 0 50 rmoveto TBK ( = 0,5 1 0,38) show x135 075 add 1900 sub y135 150 sub moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,j33g) show 0 50 rmoveto 0.4 1 0.0 setrgbcolor TBK ( = 550 nm) show 1 setgray x135 075 add 1900 sub y135 400 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (j33g) show 0 50 rmoveto TBK ( = 0 1 ) show 0.4 1 0.0 setrgbcolor (j33g) show 0 1 0.5 setrgbcolor %j48g 0 0 moveto x158 y158 lineto stroke x158 y158 moveto ( ) show x158 y158 60 0 360 arc fill 1 setgray x158 075 add 1850 sub y158 350 sub moveto TBIK (tch*) show TBS -30 -50 rmoveto (j48g) show 0 50 rmoveto TBK ( = 0,5 1 0,45) show x158 075 add 1850 sub y158 600 sub moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,j48g) show 0 50 rmoveto 0 1 0.5 setrgbcolor TBK ( = 538 nm) show 1 setgray x158 075 add 1850 sub y158 850 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (G) show 0 50 rmoveto TBK ( = 0 1 ) show 0 1 0.5 setrgbcolor (j48g) show 0 0.2 1 setrgbcolor %B 0 0 moveto x0b y0b lineto stroke %x0b y0b moveto ( ) show x0b y0b 60 0 360 arc fill x0b 100 add 700 sub y0b 450 sub moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,B) show 0 50 rmoveto TBK ( = 475 nm) show 0.5 0 1 setrgbcolor %b27R 0 0 moveto x315 y315 lineto stroke x315 y315 moveto ( ) show x315 y315 60 0 360 arc fill 1 setgray x315 175 add y315 050 add moveto TBIK (tch*) show TBS -30 -50 rmoveto (b27r) show 0 50 rmoveto TBK ( = 0,5 1 0,87) show x315 175 add y315 200 sub moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,b27r) show 0 50 rmoveto 0.5 0 1 setrgbcolor TBK ( = 450 nm) show 1 setgray x315 175 add y315 450 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (b27r) show 0 50 rmoveto TBK ( = 0 1 ) show 0.5 0 1 setrgbcolor (b27r) show showpage grestore %%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 JG511-6N %%BoundingBox: 70 83 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/JG51/) /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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TS {150 /Times-ISOL1 FS} bind def /TK {200 /Times-ISOL1 FS} bind def /TM {250 /Times-ISOL1 FS} bind def /TG {300 /Times-ISOL1 FS} bind def /TIS {150 /TimesI-ISOL1 FS} bind def /TIK {200 /TimesI-ISOL1 FS} bind def /TIM {250 /TimesI-ISOL1 FS} bind def /TIG {300 /TimesI-ISOL1 FS} bind def /TBS {150 /TimesB-ISOL1 FS} bind def /TBK {200 /TimesB-ISOL1 FS} bind def /TBM {250 /TimesB-ISOL1 FS} bind def /TBG {300 /TimesB-ISOL1 FS} bind def /TBIS {150 /TimesBI-ISOL1 FS} bind def /TBIK {200 /TimesBI-ISOL1 FS} bind def /TBIM {250 /TimesBI-ISOL1 FS} bind def /TBIG {300 /TimesBI-ISOL1 FS} bind def /SS {150 /Symbol FS} bind def /SK {200 /Symbol FS} bind def /SM {250 /Sysbol FS} bind def /SG {300 /Symbol FS} bind def %%EndProlog gsave /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse 5 /Times-ISOL1 FS 200 85 moveto (JG511-6) show 72 90 translate /yhoe 4000 def /xwide 5333 def 15 setlinewidth 0.01 MM dup scale 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoe rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoe rlineto xwide neg 0 rlineto closepath stroke 1 setgray %0050 3800 moveto %TBM (CIELAB ) showen (CIELAB\255) showde %TBIM (\050 a*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto %TBIM (, b*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto %TBM (\051) show %TBM ( chroma) showen (\255Buntheit) showde 0020 3800 moveto TBK (Colorimetric data) showen (Farbmetrische Daten) showde TBIK ( tch*, ) show SK (l) show TBIK (*) show TBS -30 -60 rmoveto (d) show 30 60 rmoveto TBIK (, ncu*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto TBK ( of device NRS18) showen ( des Ger\344tes NRS18) showde %050 850 moveto %1 setgray %TBK (example for) showen % (Beispiel f\374r) showde %050 600 moveto %TBK (colour notation:) showen % (Farbkennzeichnung:) showde %1 0 0 setrgbcolor %050 350 moveto %TBIK (ncu*) show TBK ( = 0,25 0,50 r25j) show %050 100 moveto %TBIK (rgb*) show TBS -30 -60 rmoveto (3) show 0 60 rmoveto %TBK ( = 0,75 0,25 0,25) show 1 setgray xwide 0.5 mul 50 sub yhoe 0.5 mul translate /la 30 def /x0r 1000 la cos mul def /y0r 1000 la sin mul def /la 90 def /x0j 1000 la cos mul def /y0j 1000 la sin mul def /la 135 def /x135 1000 la cos mul def /y135 1000 la sin mul def /la 150 def /x0g 1000 la cos mul def /y0g 1000 la sin mul def /la 210 def /x0c 1000 la cos mul def /y0c 1000 la sin mul def /la 225 def /x225 1000 la cos mul def /y225 1000 la sin mul def /la 270 def /x0b 1000 la cos mul def /y0b 1000 la sin mul def /la 315 def /x315 1000 la cos mul def /y315 1000 la sin mul def /la 330 def /x0m 1000 la cos mul def /y0m 1000 la sin mul def %mixture j33gÐg00b 40 setlinewidth %20 setlinewidth %[60] 0 setdash 1 setgray %x0r y0r moveto x0j y0j lineto x0g y0g lineto %x0c y0c lineto x0b y0b lineto x0m y0m lineto x0r y0r lineto stroke %[] 0 setdash 0 0 moveto ( ) show 0 0 1000 0 360 arc stroke 1 setgray %x-axis 40 setlinewidth 0 0 moveto 2200 0 rlineto stroke 2200 100 sub -50 moveto 100 50 rlineto -100 50 rlineto closepath stroke 2300 -50 moveto TBIM (a*) show %TBK -30 -60 rmoveto (r) show 0 60 rmoveto %y-axis 0 0 moveto 0 1650 rlineto stroke -50 1650 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath stroke -350 1500 moveto TBIM (b*) show %TBK -30 -60 rmoveto (r) show 0 60 rmoveto %elementary hue device 1 1 0 setrgbcolor %Y=J 0 0 moveto x0j y0j lineto stroke %x0j y0j moveto ( ) show x0j y0j 60 0 360 arc fill x0j 100 add y0j 300 add moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,J) show 0 50 rmoveto TBK ( = 575 nm) show 0.8 1 0.0 setrgbcolor %J33G 0 0 moveto x135 y135 lineto stroke x135 y135 moveto ( ) show x135 y135 60 0 360 arc fill 1 setgray x135 075 add 1900 sub y135 300 add moveto TBIK (tch*) show TBS -30 -50 rmoveto (j33g) show 0 50 rmoveto TBK ( = 0,5 1 0,38) show x135 075 add 1900 sub y135 050 add moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,j33g) show 0 50 rmoveto 0.8 1 0.0 setrgbcolor TBK ( = 550 nm) show 1 setgray x135 075 add 1900 sub y135 200 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (j33g) show 0 50 rmoveto TBK ( = 0 1 ) show 0.8 1 0.0 setrgbcolor (j33g) show 0 1 0.5 setrgbcolor %G 0 0 moveto x225 y225 lineto stroke x225 y225 moveto ( ) show x225 y225 90 0 360 arc fill 1 setgray x225 075 add 1900 sub y225 050 add moveto TBIK (tch*) show TBS -30 -50 rmoveto (G) show 0 50 rmoveto TBK ( = 0,5 1 0,63) show x225 075 add 1900 sub y225 200 sub moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,G) show 0 50 rmoveto 0 1 0.5 setrgbcolor TBK ( = 500 nm) show 1 setgray x225 075 add 1900 sub y225 450 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (G) show 0 50 rmoveto TBK ( = 0 1 ) show 0 1 0.5 setrgbcolor (g00b) show 0 0.2 1 setrgbcolor %B 0 0 moveto x0b y0b lineto stroke %x0b y0b moveto ( ) show x0b y0b 60 0 360 arc fill x0b 100 add 700 sub y0b 450 sub moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,B) show 0 50 rmoveto TBK ( = 475 nm) show 0.5 0 1 setrgbcolor %b27R 0 0 moveto x315 y315 lineto stroke x315 y315 moveto ( ) show x315 y315 60 0 360 arc fill 1 setgray x315 175 add y315 050 add moveto TBIK (tch*) show TBS -30 -50 rmoveto (b27r) show 0 50 rmoveto TBK ( = 0,5 1 0,87) show x315 175 add y315 200 sub moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,b27r) show 0 50 rmoveto 0.5 0 1 setrgbcolor TBK ( = 450 nm) show 1 setgray x315 175 add y315 450 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (b27r) show 0 50 rmoveto TBK ( = 0 1 ) show 0.5 0 1 setrgbcolor (b27r) show showpage grestore %%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 JG511-7N %%BoundingBox: 70 83 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/JG51/) /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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TS {150 /Times-ISOL1 FS} bind def /TK {200 /Times-ISOL1 FS} bind def /TM {250 /Times-ISOL1 FS} bind def /TG {300 /Times-ISOL1 FS} bind def /TIS {150 /TimesI-ISOL1 FS} bind def /TIK {200 /TimesI-ISOL1 FS} bind def /TIM {250 /TimesI-ISOL1 FS} bind def /TIG {300 /TimesI-ISOL1 FS} bind def /TBS {150 /TimesB-ISOL1 FS} bind def /TBK {200 /TimesB-ISOL1 FS} bind def /TBM {250 /TimesB-ISOL1 FS} bind def /TBG {300 /TimesB-ISOL1 FS} bind def /TBIS {150 /TimesBI-ISOL1 FS} bind def /TBIK {200 /TimesBI-ISOL1 FS} bind def /TBIM {250 /TimesBI-ISOL1 FS} bind def /TBIG {300 /TimesBI-ISOL1 FS} bind def /SS {150 /Symbol FS} bind def /SK {200 /Symbol FS} bind def /SM {250 /Sysbol FS} bind def /SG {300 /Symbol FS} bind def %%EndProlog gsave /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse 5 /Times-ISOL1 FS 200 85 moveto (JG511-7) show 72 90 translate /yhoe 4000 def /xwide 5333 def 15 setlinewidth 0.01 MM dup scale 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoe rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoe rlineto xwide neg 0 rlineto closepath stroke 1 setgray %0050 3800 moveto %TBM (CIELAB ) showen (CIELAB\255) showde %TBIM (\050 a*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto %TBIM (, b*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto %TBM (\051) show %TBM ( chroma) showen (\255Buntheit) showde 0020 3800 moveto TBK (Colorimetric data) showen (Farbmetrische Daten) showde TBIK ( tch*, ) show SK (l) show TBIK (*) show TBS -30 -60 rmoveto (d) show 30 60 rmoveto TBIK (, ncu*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto TBK ( of device NRS18) showen ( des Ger\344tes NRS18) showde %050 850 moveto %1 setgray %TBK (example for) showen % (Beispiel f\374r) showde %050 600 moveto %TBK (colour notation:) showen % (Farbkennzeichnung:) showde %1 0 0 setrgbcolor %050 350 moveto %TBIK (ncu*) show TBK ( = 0,25 0,50 r25j) show %050 100 moveto %TBIK (rgb*) show TBS -30 -60 rmoveto (3) show 0 60 rmoveto %TBK ( = 0,75 0,25 0,25) show 1 setgray xwide 0.5 mul 50 add yhoe 0.5 mul 50 add translate /la 30 def /x0r 1000 la cos mul def /y0r 1000 la sin mul def /la 90 def /x0j 1000 la cos mul def /y0j 1000 la sin mul def /la 135 def /x135 1000 la cos mul def /y135 1000 la sin mul def /la 150 def /x0g 1000 la cos mul def /y0g 1000 la sin mul def /la 210 def /x0c 1000 la cos mul def /y0c 1000 la sin mul def /la 180 def /x180 1000 la cos mul def /y180 1000 la sin mul def /la 225 def /x225 1000 la cos mul def /y225 1000 la sin mul def /la 270 def /x0b 1000 la cos mul def /y0b 1000 la sin mul def /la 315 def /x315 1000 la cos mul def /y315 1000 la sin mul def /la 330 def /x0m 1000 la cos mul def /y0m 1000 la sin mul def %mixture j33gÐg00b 40 setlinewidth %20 setlinewidth %[60] 0 setdash 1 setgray %x0r y0r moveto x0j y0j lineto x0g y0g lineto %x0c y0c lineto x0b y0b lineto x0m y0m lineto x0r y0r lineto stroke %[] 0 setdash 0 0 moveto ( ) show 0 0 1000 0 360 arc stroke 1 setgray %x-axis 40 setlinewidth 0 0 moveto 2200 0 rlineto stroke 2200 100 sub -50 moveto 100 50 rlineto -100 50 rlineto closepath stroke 2300 -50 moveto TBIM (a*) show %TBK -30 -60 rmoveto (r) show 0 60 rmoveto %y-axis 0 0 moveto 0 1650 rlineto stroke -50 1650 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath stroke -350 1500 moveto TBIM (b*) show %TBK -30 -60 rmoveto (r) show 0 60 rmoveto %elementary hue device 1 1 0 setrgbcolor %Y=J 0 0 moveto x0j y0j lineto stroke %x0j y0j moveto ( ) show x0j y0j 60 0 360 arc fill x0j 100 add y0j 300 add moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,J) show 0 50 rmoveto 1 1 0 setrgbcolor TBK ( = 575 nm) show 1 setgray 0.8 1 0.0 setrgbcolor %J33G 0 0 moveto x135 y135 lineto stroke x135 y135 moveto ( ) show x135 y135 60 0 360 arc fill 1 setgray x135 075 add 1900 sub y135 350 add moveto TBIK (tch*) show TBS -30 -50 rmoveto (j33g) show 0 50 rmoveto TBK ( = 0,5 1 0,38) show x135 075 add 1900 sub y135 100 add moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,j33g) show 0 50 rmoveto 0.8 1 0.0 setrgbcolor TBK ( = 550 nm) show 1 setgray x135 075 add 1900 sub y135 150 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (j33g) show 0 50 rmoveto TBK ( = 0 1 ) show 0.8 1 0.0 setrgbcolor (j33g) show 0.5 1 0.0 setrgbcolor %J66G 0 0 moveto x180 y180 lineto stroke x180 y180 moveto ( ) show x180 y180 60 0 360 arc fill 1 setgray x180 075 add 1750 sub y180 200 add moveto TBIK (tch*) show TBS -30 -50 rmoveto (j66g) show 0 50 rmoveto TBK ( = 0,5 1 0,50) show x180 075 add 1750 sub y180 050 sub moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,j66g) show 0 50 rmoveto 0.5 1 0.0 setrgbcolor TBK ( = 525 nm) show 1 setgray x180 075 add 1750 sub y180 300 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (j66g) show 0 50 rmoveto TBK ( = 0 1 ) show 0.5 1 0.0 setrgbcolor (j66g) show 0 1 0.5 setrgbcolor %G 0 0 moveto x225 y225 lineto stroke x225 y225 moveto ( ) show x225 y225 90 0 360 arc fill 1 setgray x225 075 add 1900 sub y225 000 add moveto TBIK (tch*) show TBS -30 -50 rmoveto (G) show 0 50 rmoveto TBK ( = 0,5 1 0,63) show x225 075 add 1900 sub y225 250 sub moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,G) show 0 50 rmoveto 0 1 0.5 setrgbcolor TBK ( = 500 nm) show 1 setgray x225 075 add 1900 sub y225 500 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (G) show 0 50 rmoveto TBK ( = 0 1 ) show 0 1 0.5 setrgbcolor (g00b) show 0 0.2 1 setrgbcolor %B 0 0 moveto x0b y0b lineto stroke x0b y0b moveto ( ) show x0b y0b 90 0 360 arc fill 1 setgray x0b 100 add 700 sub y0b 250 sub moveto TBIK (tch*) show TBS -30 -50 rmoveto (B) show 0 50 rmoveto TBK ( = 0,5 1 0,75) show x0b 100 add 700 sub y0b 500 sub moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,B) show 0 50 rmoveto 0 0.2 1 setrgbcolor TBK ( = 475 nm) show 1 setgray x0b 100 add 700 sub y0b 750 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (B) show 0 50 rmoveto TBK ( = 0 1 ) show 0 0.2 1 setrgbcolor (b00r) show 0.5 0 1 setrgbcolor %b27R 0 0 moveto x315 y315 lineto stroke x315 y315 moveto ( ) show x315 y315 60 0 360 arc fill 1 setgray x315 250 add y315 150 add moveto TBIK (tch*) show TBS -30 -50 rmoveto (b27r) show 0 50 rmoveto TBK ( = 0,5 1 0,87) show x315 250 add y315 100 sub moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,b27r) show 0 50 rmoveto 0.5 0 1 setrgbcolor TBK ( = 450 nm) show 1 setgray x315 250 add y315 350 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (b27r) show 0 50 rmoveto TBK ( = 0 1 ) show 0.5 0 1 setrgbcolor (b27r) show showpage grestore %%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 JG511-8N %%BoundingBox: 70 83 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/JG51/) /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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TS {150 /Times-ISOL1 FS} bind def /TK {200 /Times-ISOL1 FS} bind def /TM {250 /Times-ISOL1 FS} bind def /TG {300 /Times-ISOL1 FS} bind def /TIS {150 /TimesI-ISOL1 FS} bind def /TIK {200 /TimesI-ISOL1 FS} bind def /TIM {250 /TimesI-ISOL1 FS} bind def /TIG {300 /TimesI-ISOL1 FS} bind def /TBS {150 /TimesB-ISOL1 FS} bind def /TBK {200 /TimesB-ISOL1 FS} bind def /TBM {250 /TimesB-ISOL1 FS} bind def /TBG {300 /TimesB-ISOL1 FS} bind def /TBIS {150 /TimesBI-ISOL1 FS} bind def /TBIK {200 /TimesBI-ISOL1 FS} bind def /TBIM {250 /TimesBI-ISOL1 FS} bind def /TBIG {300 /TimesBI-ISOL1 FS} bind def /SS {150 /Symbol FS} bind def /SK {200 /Symbol FS} bind def /SM {250 /Sysbol FS} bind def /SG {300 /Symbol FS} bind def %%EndProlog gsave /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse 5 /Times-ISOL1 FS 200 85 moveto (JG511-8) show 72 90 translate /yhoe 4000 def /xwide 5333 def 15 setlinewidth 0.01 MM dup scale 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoe rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoe rlineto xwide neg 0 rlineto closepath stroke 1 setgray %0050 3800 moveto %TBM (CIELAB ) showen (CIELAB\255) showde %TBIM (\050 a*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto %TBIM (, b*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto %TBM (\051) show %TBM ( chroma) showen (\255Buntheit) showde 0020 3800 moveto TBK (Colorimetric data) showen (Farbmetrische Daten) showde TBIK ( tch*, ) show SK (l) show TBIK (*) show TBS -30 -60 rmoveto (d) show 30 60 rmoveto (, ) show SK (l) show TBIK (*) show TBS -30 -60 rmoveto (c) show 30 60 rmoveto TBIK (, ncu*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto TBK ( of device NRS18) showen ( des Ger\344tes NRS18) showde %050 850 moveto %1 setgray %TBK (example for) showen % (Beispiel f\374r) showde %050 600 moveto %TBK (colour notation:) showen % (Farbkennzeichnung:) showde %1 0 0 setrgbcolor %050 350 moveto %TBIK (ncu*) show TBK ( = 0,25 0,50 r25j) show %050 100 moveto %TBIK (rgb*) show TBS -30 -60 rmoveto (3) show 0 60 rmoveto %TBK ( = 0,75 0,25 0,25) show 1 setgray xwide 0.5 mul 50 add yhoe 0.5 mul translate /la 00 def %c,j66g /x000 1000 la cos mul def /y000 1000 la sin mul def /la 30 def /x0r 1000 la cos mul def /y0r 1000 la sin mul def /la 45 def %M'=Gc /x045 1000 la cos mul def /y045 1000 la sin mul def /la 68 def %R=C'c /x068 1000 la cos mul def /y068 1000 la sin mul def /la 90 def %J=Bc /x0j 1000 la cos mul def /y0j 1000 la sin mul def /la 135 def /x135 1000 la cos mul def /y135 1000 la sin mul def /la 150 def /x0g 1000 la cos mul def /y0g 1000 la sin mul def /la 210 def /x0c 1000 la cos mul def /y0c 1000 la sin mul def /la 180 def /x180 1000 la cos mul def /y180 1000 la sin mul def /la 225 def /x225 1000 la cos mul def /y225 1000 la sin mul def /la 248 def %C'=Rc /x248 1000 la cos mul def /y248 1000 la sin mul def /la 270 def /x0b 1000 la cos mul def /y0b 1000 la sin mul def /la 315 def /x315 1000 la cos mul def /y315 1000 la sin mul def /la 330 def /x0m 1000 la cos mul def /y0m 1000 la sin mul def %mixture j33gÐg00b 40 setlinewidth %20 setlinewidth %[60] 0 setdash 1 setgray %x0r y0r moveto x0j y0j lineto x0g y0g lineto %x0c y0c lineto x0b y0b lineto x0m y0m lineto x0r y0r lineto stroke %[] 0 setdash 0 0 moveto ( ) show 0 0 1000 0 360 arc stroke 1 setgray %x-axis 40 setlinewidth 0 0 moveto 2200 0 rlineto stroke 2200 100 sub -50 moveto 100 50 rlineto -100 50 rlineto closepath stroke 2300 -50 moveto TBIM (a*) show %TBK -30 -60 rmoveto (r) show 0 60 rmoveto %y-axis 0 0 moveto 0 1650 rlineto stroke -50 1650 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath stroke -350 1500 moveto TBIM (b*) show %TBK -30 -60 rmoveto (r) show 0 60 rmoveto %elementary hue device 1 0 0 setrgbcolor %R 0 0 moveto x045 y045 lineto stroke x045 y045 moveto ( ) show x045 y045 90 0 360 arc fill %10 setlinewidth 0 setgray %x045 y045 moveto ( ) show newpath x045 y045 60 0 360 arc stroke 40 setlinewidth 1 setgray x045 100 add y045 150 add moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,R) show 0 50 rmoveto 1 0 0 setrgbcolor TBK ( = 600 nm) show 1 setgray 1 setgray x045 100 add y045 050 sub moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (c,R) show 0 50 rmoveto 0 1 0 setrgbcolor TBK ( = 500c nm) show 1 setgray 1 1 0 setrgbcolor %Y=J 0 0 moveto x0j y0j lineto stroke x0j y0j moveto ( ) show x0j y0j 90 0 360 arc fill 1 setgray x0j 100 add y0j 550 add moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,J) show 0 50 rmoveto 1 1 0 setrgbcolor TBK ( = 575 nm) show 1 setgray x0j 100 add y0j 350 add moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (c,J) show 0 50 rmoveto 0 0 1 setrgbcolor TBK ( = 475c nm) show 1 setgray 0.8 1 0.0 setrgbcolor %J33G 0 0 moveto x135 y135 lineto stroke x135 y135 moveto ( ) show x135 y135 60 0 360 arc fill 1 setgray x135 075 add 1900 sub y135 600 add moveto TBIK (tch*) show TBS -30 -50 rmoveto (j33g) show 0 50 rmoveto TBK ( = 0,5 1 0,38) show x135 075 add 1900 sub y135 350 add moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,j33g) show 0 50 rmoveto 0.8 1 0.0 setrgbcolor TBK ( = 550 nm) show 1 setgray x135 075 add 1900 sub y135 100 add moveto TBIK (ncu*) show TBS -30 -50 rmoveto (j33g) show 0 50 rmoveto TBK ( = 0 1 ) show 0.8 1 0.0 setrgbcolor (j33g) show 0.5 1 0.0 setrgbcolor %J66G 0 0 moveto x180 y180 lineto stroke x180 y180 moveto ( ) show x180 y180 60 0 360 arc fill 1 setgray x180 075 add 1750 sub y180 450 add moveto TBIK (tch*) show TBS -30 -50 rmoveto (j66g) show 0 50 rmoveto TBK ( = 0,5 1 0,50) show x180 075 add 1750 sub y180 200 add moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,j66g) show 0 50 rmoveto 0.5 1 0.0 setrgbcolor TBK ( = 525 nm) show 1 setgray x180 075 add 1750 sub y180 050 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (j66g) show 0 50 rmoveto TBK ( = 0 1 ) show 0.5 1 0.0 setrgbcolor (j66g) show 0 1 0.5 setrgbcolor %G 0 0 moveto x225 y225 lineto stroke x225 y225 moveto ( ) show x225 y225 90 0 360 arc fill 1 setgray x225 075 add 1900 sub y225 250 add moveto TBIK (tch*) show TBS -30 -50 rmoveto (G) show 0 50 rmoveto TBK ( = 0,5 1 0,63) show x225 075 add 1900 sub y225 000 sub moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,G) show 0 50 rmoveto 0 1 0.5 setrgbcolor TBK ( = 500 nm) show 1 setgray x225 075 add 1900 sub y225 250 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (G) show 0 50 rmoveto TBK ( = 0 1 ) show 0 1 0.5 setrgbcolor (g00b) show 0 0.2 1 setrgbcolor %B 0 0 moveto x0b y0b lineto stroke x0b y0b moveto ( ) show x0b y0b 90 0 360 arc fill 1 setgray x0b 100 add 300 sub y0b 250 sub moveto TBIK (tch*) show TBS -30 -50 rmoveto (B) show 0 50 rmoveto TBK ( = 0,5 1 0,75) show x0b 100 add 300 sub y0b 500 sub moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,B) show 0 50 rmoveto 0 0.2 1 setrgbcolor TBK ( = 475 nm) show 1 setgray x0b 100 add 300 sub y0b 750 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (B) show 0 50 rmoveto TBK ( = 0 1 ) show 0 0.2 1 setrgbcolor (b00r) show 0.5 0 1 setrgbcolor %b27R 0 0 moveto x315 y315 lineto stroke x315 y315 moveto ( ) show x315 y315 60 0 360 arc fill 1 setgray x315 242 add y315 250 add moveto TBIK (tch*) show TBS -30 -50 rmoveto (b27r) show 0 50 rmoveto TBK ( = 0,5 1 0,87) show x315 242 add y315 000 add moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,b27r) show 0 50 rmoveto 0.5 0 1 setrgbcolor TBK ( = 450 nm) show 1 setgray x315 242 add y315 250 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (b27r) show 0 50 rmoveto TBK ( = 0 1 ) show 0.5 0 1 setrgbcolor (b27r) show showpage grestore %%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 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /i*ptrsc where {pop %/i*ptrsc i*ptrsc def } {/i*ptrsc 0 def} ifelse gsave /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse /scountg where {pop /scount scountg def} {/scount 1 def} ifelse %xchart 0 eq {%beg if xchart=0 0 setgray 1.0 1.0 scale 0.0 MM 0.0 MM translate 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] def /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzccmy0* setcmykcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmcmy0* setcmykcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzycmy0* setcmykcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzocmy0* setcmykcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlcmy0* setcmykcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvcmy0* setcmykcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %j=16,20 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def 0 1 3 {/ij exch def %ij=0,3 ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor j 16 eq {tzan j get dup dup 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tzan j get dup dup 0 setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=0,2 i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub dup dup setrgbcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=1,3 i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5 [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=4,5 i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor j 16 eq {0 0 0 tzan j get setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 0 0 0 tzan j get setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {1 tzan j get sub setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub setgray ix0 iy0 s s rec fill } if %i*ptrsc=7 } for %ij=0,3 } for %j=16,20 0 setgray 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 0 setgray 12 /Times-ISOL1 FS 61 MM 09 MM moveto (Elementarfarben und Farbphysiologie) showde (Elementary colours and colour physiology) showen 12 /Times-ISOL1 FS 61 MM 13 MM moveto (TUB\255Pr\374fvorlage JG51; Farbmetrische und Farbsehdaten) showde (TUB\255test chart JG51; Colorimetric and colour vision data) showen 12 /Times-ISOL1 FS 172 MM 13 MM moveto (input: ) showen (Eingabe: ) showde 12 /TimesI-ISOL1 FS (rgb -> olv* 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/JG51/JG51L) 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 (JG51/JG51L) 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/JG51/JG51L) show (0) show LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde (Technical information: ) showen (http://www.ps.bam.de) show ( or ) showen ( oder ) showde (http://130.149.60.45/~farbmetrik) show 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20100101\255JG51/JG51L) showde (TUB registration: 20100101\255JG51/JG51L) 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