%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.445/~farbmetrik/JE44/JE44L00XX.PS 20100101 %%BoundingBox: 00 00 414 292 /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put } if [ /Title (PostScript pictures: www.ps.bam.de/JE44/JE44.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->JE44/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->JE44/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20090201 %***************************************************************************** %BEG GK0X->JE44/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->JE44/10L/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20090201 /CFilenameS1g %START output of step S1g (http://130.149.60.445/~farbmetrik/JE44/Y10E00N) def %Link file name for data /CDateS1g (2010-01-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (JE44/Y10E00N) def %File name measured in step S1g %change scount2g from 2 to 10 for 10 series %change pcount2g from 8 to 240 for 240 pages of each series /scount1g 1 def /scount2g 1 def /scountg 1 def /pcount1g 1 def /pcount2g 1 def /pcountg 1 def /xchart1g 0 def /xchart2g 1 def /xchartg 0 def /BeginEPSF { % def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF { % def count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /A4quer {598 0 translate 90 rotate} def %0 %1 /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def /tzank [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def %picturetransfer from standard locations (8 pictures, 5 test charts) /xpic5458 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %x for chartg=0 0.0 0.0 0.0 -12 0.0 0.0 0.0 0.0 %x for chartg=1 0.0 0.0 0.0 -25 0.0 0.0 0.0 0.0 %x for chartg=2 0.0 0.0 0.0 -12 0.0 0.0 0.0 0.0 %x for chartg=3 0.0 0.0 0.0 -20 0.0 0.0 0.0 0.0] def %x for chartg=4 /ypic5458 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %y for chartg=0 0.0 0.0 0.0 -05 0.0 0.0 0.0 0.0 %y for chartg=1 0.0 0.0 0.0 -12 0.0 0.0 0.0 0.0 %y for chartg=2 0.0 0.0 0.0 -05 0.0 0.0 0.0 0.0 %y for chartg=3 0.0 0.0 0.0 -20 0.0 0.0 0.0 0.0] def %y for chartg=4 %BEG 61 lines comment or new PS operators possible %02 %03 %04 %05 %06 %07 %08 %09 %11 %END 38 lines comment or new PS operators possible %%EndProlog %%BeginPageSetup /#copies 1 def %A4quer 0.5 0.5 scale /pgsave save def %%EndPageSetup 0.0 MM 0.0 MM translate %Verschiebung nach oben und links fuer Belichter gsave /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(1.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(1.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /lanindg1 1 def /lanindg2 1 def /colormg1 0 def /colormg2 0 def /xcolorg1 0 def /xcolorg2 0 def /xchartg1 0 def /xchartg2 0 def /lanindg lanindg1 def %no loops /colormg colormg1 def /xcolorg xcolorg1 def /xchartg xchartg1 def /pcount2x pcount2g xchart2g sub 2 add def %1 1 1 {/scountg exch def %s=serie, e. g. 1,1,10 %1 1 1 {/pcountg exch def %p=page, e. g. 1,1,250 /xchart10 0 def /xchart20 0 def %pcountg pcount1g eq {/xchart10 0 def /xchart20 0 def} % {/xchart10 1 def /xchart20 1 def} ifelse %%pcountg pcount2x eq {/xchart10 0 def /xchart20 0 def} if xchart10 1 xchart20 {/xchartg exch def %2 MM /Times-Roman FS %274 MM 82 MM moveto -90 rotate (/JE44/ ) 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 JE440-1N %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark01 where {pop} {userdict /pdfmark01 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JE44/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark01 [ /View [ /FitB ] /DOCVIEW pdfmark01 %END PDFDE011 %! AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-I exch definefont pop /FF {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 4 /Times-I FF 200 86 moveto (JE440-1) show %(Colours in ) showen %(Farben in ) showde %6 /Times-Italic FF %((x,y) ) show %6 /Times-I FF %(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-I FF 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 /Times-Italic FF -300 2800 moveto (y) show 350 /Times-Italic FF 4200 150 moveto (x) show 300 /Times-Italic FF 2600 150 moveto (CIE 1931) show 300 /Times-Italic FF 2500 3200 moveto (Munsell V=5) show 2500 2900 moveto (C=4, 8, ...) show 2500 2600 moveto (o samples) showen 2500 2600 moveto (o Muster) showde -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 /Times-Italic FF 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 10 01 16 01 00 NE JA NE 01 ******************** % 10 01 01 F39M5C2.DAT Chroma 4,8,12,..,24 für B8230/1-xn.eps 30.3.93 %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 1G0= 4 600 400 translate 1128 1063 moveto 1128 1063 1095 1066 1064 1074 curveto 1040 1088 1018 1102 1004 1123 curveto 997 1151 996 1181 1004 1216 curveto 1020 1260 1036 1298 1063 1347 curveto 1084 1382 1110 1418 1136 1451 curveto 1177 1494 1244 1552 1309 1597 curveto 1392 1638 1448 1657 1504 1663 curveto 1540 1648 1570 1622 1587 1581 curveto 1598 1536 1596 1485 1587 1445 curveto 1570 1397 1551 1359 1522 1317 curveto 1496 1288 1464 1259 1437 1236 curveto 1406 1209 1368 1181 1319 1147 curveto 1279 1122 1240 1100 1194 1079 curveto 1159 1066 1128 1063 1128 1063 curveto stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 2G0= 8 600 400 translate 1028 884 moveto 1028 884 966 881 902 895 curveto 862 911 826 937 802 966 curveto 783 1007 778 1074 788 1144 curveto 812 1232 840 1312 882 1414 curveto 918 1492 958 1566 1004 1642 curveto 1084 1752 1232 1903 1364 1990 curveto 1526 2037 1635 2027 1722 1986 curveto 1780 1940 1831 1876 1874 1809 curveto 1908 1735 1928 1656 1932 1584 curveto 1918 1503 1885 1430 1825 1354 curveto 1765 1296 1700 1240 1642 1192 curveto 1572 1140 1499 1091 1396 1028 curveto 1312 985 1234 950 1154 918 curveto 1091 896 1028 884 1028 884 curveto stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 3G0= 12 600 400 translate 953 742 moveto 953 742 862 732 767 743 curveto 717 757 666 785 633 816 curveto 602 868 584 962 594 1064 curveto 614 1190 645 1312 694 1467 curveto 740 1596 785 1708 841 1831 curveto 954 2028 1176 2300 1380 2379 curveto 1604 2320 1733 2240 1836 2156 curveto 1906 2083 1972 2007 2032 1924 curveto 2084 1840 2134 1751 2168 1656 curveto 2192 1563 2192 1464 2112 1355 curveto 2028 1277 1928 1200 1831 1136 curveto 1721 1070 1608 1009 1454 930 curveto 1334 874 1228 832 1122 790 curveto 1043 765 953 742 953 742 curveto stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 4G0= 16 600 400 translate 2373 1595 moveto 2373 1595 2414 1462 2360 1332 curveto 2254 1240 2120 1152 1994 1078 curveto 1846 1002 1704 932 1505 843 curveto 1352 780 1224 732 1097 687 curveto 1006 657 889 622 778 604 curveto 655 608 598 623 530 652 curveto 492 684 452 745 436 866 curveto 443 995 466 1152 497 1304 curveto 539 1500 587 1676 628 1824 curveto 678 1992 802 2303 1080 2680 curveto stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 5G0= 20 600 400 translate 361 1292 moveto 361 1292 402 1525 448 1744 curveto 484 1926 527 2128 631 2556 curveto stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 6G0= 20 600 400 translate 2555 1286 moveto 2555 1286 2456 1188 2313 1087 curveto 2158 1014 1966 932 1793 860 curveto 1549 763 1368 694 1216 642 curveto 1077 599 975 567 848 531 curveto 717 495 717 495 717 495 curveto stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 7G0= 24 600 400 translate 295 1540 moveto 295 1540 324 1796 351 2015 curveto 381 2251 475 2767 475 2767 curveto stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 8G0= 24 600 400 translate 1873 791 moveto 1873 791 1586 695 1380 622 curveto 1212 569 1060 521 948 489 curveto stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 9G0= 28 600 400 translate 228 1836 moveto 228 1836 234 2089 243 2359 curveto 317 2954 317 2954 317 2954 curveto stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 10G0= 28 600 400 translate 1391 555 moveto 1391 555 1207 501 1047 454 curveto stroke -600 -400 translate 600 400 translate 1250 1316 40 0 360 arc fill -600 -400 translate %ENDE: 1 %1000 02 21 01 16 01 00 NE JA JA 02 ******************** % 21 01 01 F39M5T2.DAT Ton=2,4,.. jede 2.Ton; für B8230/1 mit TDELC=2 %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 110.0PB 600 400 translate 1128 1063 moveto 1128 1063 1028 884 953 742 curveto 889 622 848 531 848 531 curveto stroke 1 setgray 1128 1063 40 0 360 arc fill 1028 884 40 0 360 arc fill 0 setgray 1128 1063 40 0 360 arc stroke 1028 884 40 0 360 arc stroke 953 742 40 0 360 arc fill 889 622 40 0 360 arc fill 848 531 40 0 360 arc fill -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 3 10.0B 600 400 translate 1018 1102 moveto 1018 1102 826 937 666 785 curveto 530 652 530 652 530 652 curveto stroke 1 setgray 1018 1102 40 0 360 arc fill 826 937 40 0 360 arc fill 0 setgray 1018 1102 40 0 360 arc stroke 826 937 40 0 360 arc stroke 666 785 40 0 360 arc fill 530 652 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 4 5.0B 600 400 translate 997 1151 moveto 997 1151 783 1007 602 868 curveto 452 745 452 745 452 745 curveto stroke 1 setgray 997 1151 40 0 360 arc fill 783 1007 40 0 360 arc fill 0 setgray 997 1151 40 0 360 arc stroke 783 1007 40 0 360 arc stroke 602 868 40 0 360 arc fill 452 745 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 510.0BG 600 400 translate 1004 1216 moveto 1004 1216 788 1144 594 1064 curveto 443 995 443 995 443 995 curveto stroke 1 setgray 1004 1216 40 0 360 arc fill 788 1144 40 0 360 arc fill 0 setgray 1004 1216 40 0 360 arc stroke 788 1144 40 0 360 arc stroke 594 1064 40 0 360 arc fill 443 995 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 6 5.0BG 600 400 translate 1036 1298 moveto 1036 1298 840 1312 645 1312 curveto 497 1304 361 1292 361 1292 curveto stroke 1 setgray 1036 1298 40 0 360 arc fill 840 1312 40 0 360 arc fill 0 setgray 1036 1298 40 0 360 arc stroke 840 1312 40 0 360 arc stroke 645 1312 40 0 360 arc fill 497 1304 40 0 360 arc fill 361 1292 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 7 10.0G 600 400 translate 1084 1382 moveto 1084 1382 918 1492 740 1596 curveto 587 1676 448 1744 324 1796 curveto 228 1836 228 1836 228 1836 curveto stroke 1 setgray 1084 1382 40 0 360 arc fill 918 1492 40 0 360 arc fill 0 setgray 1084 1382 40 0 360 arc stroke 918 1492 40 0 360 arc stroke 740 1596 40 0 360 arc fill 587 1676 40 0 360 arc fill 448 1744 40 0 360 arc fill 324 1796 40 0 360 arc fill 228 1836 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 910.0GY 600 400 translate 1244 1552 moveto 1244 1552 1232 1903 1176 2300 curveto 1080 2680 1080 2680 1080 2680 curveto stroke 1 setgray 1244 1552 40 0 360 arc fill 1232 1903 40 0 360 arc fill 1176 2300 40 0 360 arc fill 0 setgray 1244 1552 40 0 360 arc stroke 1232 1903 40 0 360 arc stroke 1176 2300 40 0 360 arc stroke 1080 2680 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 10 5.0GY 600 400 translate 1392 1638 moveto 1392 1638 1526 2037 1604 2320 curveto stroke 1 setgray 1392 1638 40 0 360 arc fill 1526 2037 40 0 360 arc fill 0 setgray 1392 1638 40 0 360 arc stroke 1526 2037 40 0 360 arc stroke 1604 2320 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 11 10.0Y 600 400 translate 1504 1663 moveto 1504 1663 1722 1986 1836 2156 curveto stroke 1 setgray 1504 1663 40 0 360 arc fill 1722 1986 40 0 360 arc fill 0 setgray 1504 1663 40 0 360 arc stroke 1722 1986 40 0 360 arc stroke 1836 2156 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 1310.0YR 600 400 translate 1598 1536 moveto 1598 1536 1908 1735 2084 1840 curveto stroke 1 setgray 1598 1536 40 0 360 arc fill 1908 1735 40 0 360 arc fill 0 setgray 1598 1536 40 0 360 arc stroke 1908 1735 40 0 360 arc stroke 2084 1840 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 14 5.0YR 600 400 translate 1587 1445 moveto 1587 1445 1932 1584 2168 1656 curveto stroke 1 setgray 1587 1445 40 0 360 arc fill 1932 1584 40 0 360 arc fill 2168 1656 40 0 360 arc fill 0 setgray 1587 1445 40 0 360 arc stroke 1932 1584 40 0 360 arc stroke 2168 1656 40 0 360 arc stroke -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 15 10.0R 600 400 translate 1551 1359 moveto 1551 1359 1885 1430 2192 1464 curveto 2414 1462 2414 1462 2414 1462 curveto stroke 1 setgray 1551 1359 40 0 360 arc fill 1885 1430 40 0 360 arc fill 2192 1464 40 0 360 arc fill 2414 1462 40 0 360 arc fill 0 setgray 1551 1359 40 0 360 arc stroke 1885 1430 40 0 360 arc stroke 2192 1464 40 0 360 arc stroke 2414 1462 40 0 360 arc stroke -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 1710.0RP 600 400 translate 1437 1236 moveto 1437 1236 1642 1192 1831 1136 curveto 1994 1078 2158 1014 2158 1014 curveto stroke 1 setgray 1437 1236 40 0 360 arc fill 1642 1192 40 0 360 arc fill 1831 1136 40 0 360 arc fill 0 setgray 1437 1236 40 0 360 arc stroke 1642 1192 40 0 360 arc stroke 1831 1136 40 0 360 arc stroke 1994 1078 40 0 360 arc fill 2158 1014 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 18 5.0RP 600 400 translate 1368 1181 moveto 1368 1181 1499 1091 1608 1009 curveto 1704 932 1793 860 1873 791 curveto stroke 1 setgray 1368 1181 40 0 360 arc fill 1499 1091 40 0 360 arc fill 1608 1009 40 0 360 arc fill 0 setgray 1368 1181 40 0 360 arc stroke 1499 1091 40 0 360 arc stroke 1608 1009 40 0 360 arc stroke 1704 932 40 0 360 arc fill 1793 860 40 0 360 arc fill 1873 791 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 19 10.0P 600 400 translate 1279 1122 moveto 1279 1122 1312 985 1334 874 curveto 1352 780 1368 694 1380 622 curveto 1391 555 1391 555 1391 555 curveto stroke 1 setgray 1279 1122 40 0 360 arc fill 1312 985 40 0 360 arc fill 1334 874 40 0 360 arc fill 0 setgray 1279 1122 40 0 360 arc stroke 1312 985 40 0 360 arc stroke 1334 874 40 0 360 arc stroke 1352 780 40 0 360 arc fill 1368 694 40 0 360 arc fill 1380 622 40 0 360 arc fill 1391 555 40 0 360 arc fill -600 -400 translate %ANF FANxyal3: MULYA= 4000 BEO=02 xy-Norm-Farbtafel IXY0: 600 400 20 5.0P 600 400 translate 1194 1079 moveto 1194 1079 1154 918 1122 790 curveto 1097 687 1077 599 1060 521 curveto 1047 454 1047 454 1047 454 curveto stroke 1 setgray 1194 1079 40 0 360 arc fill 1154 918 40 0 360 arc fill 0 setgray 1194 1079 40 0 360 arc stroke 1154 918 40 0 360 arc stroke 1122 790 40 0 360 arc fill 1097 687 40 0 360 arc fill 1077 599 40 0 360 arc fill 1060 521 40 0 360 arc fill 1047 454 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 600 400 translate 1250 1316 40 0 360 arc fill -600 -400 translate %ENDE: 1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 349 %!PS-Adobe-3.0 EPSF-3.0 JE440-2N %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark02 where {pop} {userdict /pdfmark02 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JE44/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark02 [ /View [ /FitB ] /DOCVIEW pdfmark02 %END PDFDE011 %! AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-I exch definefont pop /FF {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 4 /Times-I FF 200 86 moveto (JE440-2) show %(Colours in ) showen %(Farben in ) showde %6 /Times-Italic FF %((a,b) ) show %6 /Times-I FF %(chromaticity diagram) showen %(Farbtafel) showde 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath clip 700 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -3000 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-I FF 0 350 moveto 0 100 rlineto stroke 800 350 moveto 0 100 rlineto stroke 1600 350 moveto 0 100 rlineto stroke 2400 350 moveto 0 100 rlineto stroke 3200 350 moveto 0 100 rlineto stroke 4000 350 moveto 0 100 rlineto stroke -350 500 moveto (-0,8) show 550 500 moveto (0,0) show 1350 500 moveto (0,8) show 2150 500 moveto (1,6) show 2950 500 moveto (2,4) show 3750 500 moveto (3,2) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 -800 moveto 100 0 rlineto stroke -50 -1600 moveto 100 0 rlineto stroke -50 -2400 moveto 100 0 rlineto stroke -50 -3200 moveto 100 0 rlineto stroke -650 -100 moveto ( 0,0) show -650 -900 moveto (-0,8) show -650 -1700 moveto (-1,6) show -650 -2500 moveto (-2,4) show 350 /Times-Italic FF -675 -3050 moveto 20 0 (b) ashow 350 /Times-I FF 20 0 (=-0,4) ashow 350 /Times-Italic FF 20 0 (z/y) ashow 350 /Times-Italic FF 3650 100 moveto 30 0 (a=x/y) ashow -700 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 1500 3200 translate 36136 -68535 moveto 36136 -68535 36234 -68875 35958 -68561 curveto 35610 -68128 33600 -64560 29424 -56936 curveto 24474 -47779 19507 -38551 15143 -30384 curveto 11681 -23927 8847 -18653 6639 -14534 curveto 4846 -11128 3397 -8271 2147 -5661 curveto 1261 -3701 688 -2339 342 -1455 curveto 153 -894 56 -546 15 -336 curveto 5 -208 18 -125 47 -73 curveto 89 -44 138 -28 191 -19 curveto 246 -13 304 -8 366 -5 curveto 435 -3 512 -2 597 -1 curveto 693 -1 800 0 920 0 curveto 1053 0 1198 0 1355 0 curveto 1520 0 1683 0 1844 0 curveto 1993 0 2126 0 2242 0 curveto 2340 0 2424 0 2497 0 curveto 2559 0 2610 0 2649 0 curveto 2680 0 2703 0 2718 0 curveto 2731 0 2741 0 2751 0 curveto 2760 0 2764 0 2767 0 curveto 2769 0 2770 0 2824 -116 curveto 3023 -529 3168 -817 3275 -1036 curveto 3357 -1209 3430 -1349 3482 -1469 curveto 3545 -1597 3622 -1746 3704 -1922 curveto 3817 -2156 3983 -2496 4262 -3058 curveto 4786 -4149 6341 -7346 35775 -67850 curveto stroke 1 setgray 36136 -68535 30 0 360 arc fill % 400 29424 -56936 30 0 360 arc fill % 425 8847 -18653 30 0 360 arc fill % 450 1261 -3701 30 0 360 arc fill % 475 15 -336 30 0 360 arc fill % 500 138 -28 30 0 360 arc fill % 525 435 -3 30 0 360 arc fill % 550 920 0 30 0 360 arc fill % 575 1683 0 30 0 360 arc fill % 600 2340 0 30 0 360 arc fill % 625 2649 0 30 0 360 arc fill % 650 2741 0 30 0 360 arc fill % 675 2769 0 30 0 360 arc fill % 700 3023 -529 30 0 360 arc fill %500c 3482 -1469 30 0 360 arc fill %525c 3983 -2496 30 0 360 arc fill %550c 0 setgray 36136 -68535 30 0 360 arc stroke % 400 29424 -56936 30 0 360 arc stroke % 425 8847 -18653 30 0 360 arc stroke % 450 1261 -3701 30 0 360 arc stroke % 475 15 -336 30 0 360 arc stroke % 500 138 -28 30 0 360 arc stroke % 525 435 -3 30 0 360 arc stroke % 550 920 0 30 0 360 arc stroke % 575 1683 0 30 0 360 arc stroke % 600 2340 0 30 0 360 arc stroke % 625 2649 0 30 0 360 arc stroke % 650 2741 0 30 0 360 arc stroke % 675 2769 0 30 0 360 arc stroke % 700 3023 -529 30 0 360 arc stroke %500c 3482 -1469 30 0 360 arc stroke %525c 3983 -2496 30 0 360 arc stroke %550c 950 -435 30 0 360 arc fill %D65 0 setgray 250 /Times-Italic FF % 36136 500 sub -68535 100 sub moveto (400) show % 29424 500 sub -56936 100 sub moveto (425) show % 8847 500 sub -18653 100 sub moveto (450) show % 1261 500 sub -3701 100 sub moveto (475) show 15 500 sub -336 100 sub moveto (500) show % 138 200 sub -28 100 add moveto (525) show 435 200 sub -3 100 add moveto (550) show 920 200 sub 0 100 add moveto (575) show 1683 200 sub 0 100 add moveto (600) show 2340 200 sub 0 100 add moveto (625) show % 2649 200 sub 0 100 add moveto (650) show % 2741 200 sub 0 100 add moveto (675) show 2769 100 add 0 150 sub moveto (700) show 3023 100 add -529 100 sub moveto (500c) show % 3482 100 add -1469 200 add moveto (525c) show % 3983 100 add -2496 100 sub moveto (550c) show 950 100 add -435 100 sub moveto %(D65 ) show -1500 -3200 translate %ENDE: 2 %1000 02 10 01 16 01 00 NE JA NE 01 ******************** % 10 01 01 F39M5C2.DAT Chroma 4,8,12,..,24 für B8230/1-xn.eps 30.3.93 %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 1G0= 4 1500 3200 translate 1060 -679 moveto 1060 -679 1027 -689 990 -692 curveto 955 -688 923 -681 894 -666 curveto 865 -643 843 -616 826 -585 curveto 809 -546 798 -513 789 -471 curveto 784 -443 782 -415 783 -389 curveto 787 -355 801 -310 819 -273 curveto 849 -236 874 -215 904 -200 curveto 934 -197 967 -198 1003 -210 curveto 1040 -225 1074 -247 1097 -267 curveto 1123 -295 1141 -320 1155 -352 curveto 1161 -377 1162 -405 1163 -429 curveto 1162 -457 1158 -490 1149 -534 curveto 1139 -569 1127 -603 1106 -639 curveto 1086 -665 1060 -679 1060 -679 curveto stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 2G0= 8 1500 3200 translate 1163 -943 moveto 1163 -943 1096 -976 1007 -983 curveto 946 -977 881 -953 830 -922 curveto 777 -877 724 -798 688 -723 curveto 658 -634 640 -563 623 -481 curveto 615 -426 611 -377 611 -329 curveto 618 -265 647 -181 685 -129 curveto 749 -85 806 -66 867 -58 curveto 917 -57 975 -62 1035 -69 curveto 1099 -82 1163 -100 1219 -122 curveto 1275 -154 1318 -191 1347 -242 curveto 1362 -289 1371 -341 1377 -391 curveto 1378 -451 1373 -516 1357 -613 curveto 1331 -690 1299 -764 1256 -839 curveto 1217 -898 1163 -943 1163 -943 curveto stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 3G0= 12 1500 3200 translate 1283 -1240 moveto 1283 -1240 1178 -1314 1032 -1339 curveto 946 -1333 848 -1297 775 -1248 curveto 692 -1164 607 -1019 557 -879 curveto 516 -737 492 -622 473 -501 curveto 463 -416 459 -352 459 -289 curveto 470 -200 511 -91 579 -40 curveto 691 -12 773 -4 851 -1 curveto 915 -1 982 -3 1056 -8 curveto 1132 -16 1218 -26 1309 -42 curveto 1402 -62 1497 -93 1557 -157 curveto 1587 -217 1605 -290 1611 -363 curveto 1608 -451 1594 -547 1563 -695 curveto 1524 -819 1476 -932 1419 -1055 curveto 1363 -1145 1283 -1240 1283 -1240 curveto stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 4G0= 16 1500 3200 translate 1487 -7 moveto 1487 -7 1650 -33 1771 -92 curveto 1817 -162 1840 -252 1850 -344 curveto 1842 -459 1827 -584 1785 -783 curveto 1733 -956 1672 -1116 1597 -1289 curveto 1529 -1421 1430 -1600 1287 -1732 curveto 1076 -1799 958 -1782 812 -1725 curveto 718 -1650 607 -1504 503 -1245 curveto 445 -1029 405 -826 381 -674 curveto 359 -522 350 -414 344 -339 curveto 340 -266 348 -155 403 -35 curveto stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 5G0= 20 1500 3200 translate 279 -726 moveto 279 -726 263 -543 256 -414 curveto 251 -329 247 -252 247 -126 curveto stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 6G0= 20 1500 3200 translate 1986 -49 moveto 1986 -49 2068 -119 2127 -220 curveto 2128 -326 2109 -472 2085 -626 curveto 2028 -883 1972 -1116 1894 -1333 curveto 1797 -1549 1718 -1731 1595 -1971 curveto 1447 -2249 1447 -2249 1447 -2249 curveto stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 7G0= 24 1500 3200 translate 191 -562 moveto 191 -562 180 -418 174 -324 curveto 169 -242 171 -109 171 -109 curveto stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 8G0= 24 1500 3200 translate 2367 -675 moveto 2367 -675 2281 -988 2218 -1284 curveto 2129 -1559 2033 -1853 1939 -2094 curveto stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 9G0= 28 1500 3200 translate 124 -421 moveto 124 -421 111 -320 103 -236 curveto 107 -98 107 -98 107 -98 curveto stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 10G0= 28 1500 3200 translate 2505 -1479 moveto 2505 -1479 2408 -1828 2306 -2201 curveto stroke -1500 -3200 translate 1500 3200 translate 950 -435 40 0 360 arc fill -1500 -3200 translate %ENDE: 2 %1000 02 21 01 16 01 00 NE JA JA 02 ******************** % 21 01 01 F39M5T2.DAT Ton=2,4,.. jede 2.Ton; für B8230/1 mit TDELC=2 %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 110.0PB 1500 3200 translate 1060 -679 moveto 1060 -679 1163 -943 1283 -1240 curveto 1430 -1600 1595 -1971 1595 -1971 curveto stroke 1 setgray 1060 -679 40 0 360 arc fill 1163 -943 40 0 360 arc fill 0 setgray 1060 -679 40 0 360 arc stroke 1163 -943 40 0 360 arc stroke 1283 -1240 40 0 360 arc fill 1430 -1600 40 0 360 arc fill 1595 -1971 40 0 360 arc fill -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 2 5.0PB 1500 3200 translate 990 -692 moveto 990 -692 1007 -983 1032 -1339 curveto 1076 -1799 1076 -1799 1076 -1799 curveto stroke 1 setgray 990 -692 40 0 360 arc fill 1007 -983 40 0 360 arc fill 1032 -1339 40 0 360 arc fill 0 setgray 990 -692 40 0 360 arc stroke 1007 -983 40 0 360 arc stroke 1032 -1339 40 0 360 arc stroke 1076 -1799 40 0 360 arc fill -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 3 10.0B 1500 3200 translate 923 -681 moveto 923 -681 881 -953 848 -1297 curveto 812 -1725 812 -1725 812 -1725 curveto stroke 1 setgray 923 -681 40 0 360 arc fill 881 -953 40 0 360 arc fill 0 setgray 923 -681 40 0 360 arc stroke 881 -953 40 0 360 arc stroke 848 -1297 40 0 360 arc fill 812 -1725 40 0 360 arc fill -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 4 5.0B 1500 3200 translate 865 -643 moveto 865 -643 777 -877 692 -1164 curveto 607 -1504 607 -1504 607 -1504 curveto stroke 1 setgray 865 -643 40 0 360 arc fill 777 -877 40 0 360 arc fill 0 setgray 865 -643 40 0 360 arc stroke 777 -877 40 0 360 arc stroke 692 -1164 40 0 360 arc fill 607 -1504 40 0 360 arc fill -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 510.0BG 1500 3200 translate 826 -585 moveto 826 -585 688 -723 557 -879 curveto 445 -1029 445 -1029 445 -1029 curveto stroke 1 setgray 826 -585 40 0 360 arc fill 688 -723 40 0 360 arc fill 0 setgray 826 -585 40 0 360 arc stroke 688 -723 40 0 360 arc stroke 557 -879 40 0 360 arc fill 445 -1029 40 0 360 arc fill -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 6 5.0BG 1500 3200 translate 798 -513 moveto 798 -513 640 -563 492 -622 curveto 381 -674 279 -726 279 -726 curveto stroke 1 setgray 798 -513 40 0 360 arc fill 640 -563 40 0 360 arc fill 0 setgray 798 -513 40 0 360 arc stroke 640 -563 40 0 360 arc stroke 492 -622 40 0 360 arc fill 381 -674 40 0 360 arc fill 279 -726 40 0 360 arc fill -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 7 10.0G 1500 3200 translate 784 -443 moveto 784 -443 615 -426 463 -416 curveto 350 -414 256 -414 180 -418 curveto 124 -421 124 -421 124 -421 curveto stroke 1 setgray 784 -443 40 0 360 arc fill 615 -426 40 0 360 arc fill 0 setgray 784 -443 40 0 360 arc stroke 615 -426 40 0 360 arc stroke 463 -416 40 0 360 arc fill 350 -414 40 0 360 arc fill 256 -414 40 0 360 arc fill 180 -418 40 0 360 arc fill 124 -421 40 0 360 arc fill -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 8 5.0G 1500 3200 translate 783 -389 moveto 783 -389 611 -329 459 -289 curveto 340 -266 247 -252 169 -242 curveto 103 -236 103 -236 103 -236 curveto stroke 1 setgray 783 -389 40 0 360 arc fill 611 -329 40 0 360 arc fill 0 setgray 783 -389 40 0 360 arc stroke 611 -329 40 0 360 arc stroke 459 -289 40 0 360 arc fill 340 -266 40 0 360 arc fill 247 -252 40 0 360 arc fill 169 -242 40 0 360 arc fill 103 -236 40 0 360 arc fill -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 910.0GY 1500 3200 translate 801 -310 moveto 801 -310 647 -181 511 -91 curveto 403 -35 403 -35 403 -35 curveto stroke 1 setgray 801 -310 40 0 360 arc fill 647 -181 40 0 360 arc fill 511 -91 40 0 360 arc fill 0 setgray 801 -310 40 0 360 arc stroke 647 -181 40 0 360 arc stroke 511 -91 40 0 360 arc stroke 403 -35 40 0 360 arc fill -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 10 5.0GY 1500 3200 translate 849 -236 moveto 849 -236 749 -85 691 -12 curveto stroke 1 setgray 849 -236 40 0 360 arc fill 749 -85 40 0 360 arc fill 0 setgray 849 -236 40 0 360 arc stroke 749 -85 40 0 360 arc stroke 691 -12 40 0 360 arc fill -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 11 10.0Y 1500 3200 translate 904 -200 moveto 904 -200 867 -58 851 -1 curveto stroke 1 setgray 904 -200 40 0 360 arc fill 867 -58 40 0 360 arc fill 0 setgray 904 -200 40 0 360 arc stroke 867 -58 40 0 360 arc stroke 851 -1 40 0 360 arc fill -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 12 5.0Y 1500 3200 translate 967 -198 moveto 967 -198 975 -62 982 -3 curveto stroke 1 setgray 967 -198 40 0 360 arc fill 975 -62 40 0 360 arc fill 0 setgray 967 -198 40 0 360 arc stroke 975 -62 40 0 360 arc stroke 982 -3 40 0 360 arc fill -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 1310.0YR 1500 3200 translate 1040 -225 moveto 1040 -225 1099 -82 1132 -16 curveto stroke 1 setgray 1040 -225 40 0 360 arc fill 1099 -82 40 0 360 arc fill 0 setgray 1040 -225 40 0 360 arc stroke 1099 -82 40 0 360 arc stroke 1132 -16 40 0 360 arc fill -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 14 5.0YR 1500 3200 translate 1097 -267 moveto 1097 -267 1219 -122 1309 -42 curveto stroke 1 setgray 1097 -267 40 0 360 arc fill 1219 -122 40 0 360 arc fill 1309 -42 40 0 360 arc fill 0 setgray 1097 -267 40 0 360 arc stroke 1219 -122 40 0 360 arc stroke 1309 -42 40 0 360 arc stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 15 10.0R 1500 3200 translate 1141 -320 moveto 1141 -320 1318 -191 1497 -93 curveto 1650 -33 1650 -33 1650 -33 curveto stroke 1 setgray 1141 -320 40 0 360 arc fill 1318 -191 40 0 360 arc fill 1497 -93 40 0 360 arc fill 1650 -33 40 0 360 arc fill 0 setgray 1141 -320 40 0 360 arc stroke 1318 -191 40 0 360 arc stroke 1497 -93 40 0 360 arc stroke 1650 -33 40 0 360 arc stroke -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 16 5.0R 1500 3200 translate 1161 -377 moveto 1161 -377 1362 -289 1587 -217 curveto 1817 -162 2068 -119 2068 -119 curveto stroke 1 setgray 1161 -377 40 0 360 arc fill 1362 -289 40 0 360 arc fill 1587 -217 40 0 360 arc fill 0 setgray 1161 -377 40 0 360 arc stroke 1362 -289 40 0 360 arc stroke 1587 -217 40 0 360 arc stroke 1817 -162 40 0 360 arc fill 2068 -119 40 0 360 arc fill -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 1710.0RP 1500 3200 translate 1163 -429 moveto 1163 -429 1377 -391 1611 -363 curveto 1850 -344 2128 -326 2128 -326 curveto stroke 1 setgray 1163 -429 40 0 360 arc fill 1377 -391 40 0 360 arc fill 1611 -363 40 0 360 arc fill 0 setgray 1163 -429 40 0 360 arc stroke 1377 -391 40 0 360 arc stroke 1611 -363 40 0 360 arc stroke 1850 -344 40 0 360 arc fill 2128 -326 40 0 360 arc fill -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 18 5.0RP 1500 3200 translate 1158 -490 moveto 1158 -490 1373 -516 1594 -547 curveto 1827 -584 2085 -626 2367 -675 curveto stroke 1 setgray 1158 -490 40 0 360 arc fill 1373 -516 40 0 360 arc fill 1594 -547 40 0 360 arc fill 0 setgray 1158 -490 40 0 360 arc stroke 1373 -516 40 0 360 arc stroke 1594 -547 40 0 360 arc stroke 1827 -584 40 0 360 arc fill 2085 -626 40 0 360 arc fill 2367 -675 40 0 360 arc fill -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 19 10.0P 1500 3200 translate 1139 -569 moveto 1139 -569 1331 -690 1524 -819 curveto 1733 -956 1972 -1116 2218 -1284 curveto 2505 -1479 2505 -1479 2505 -1479 curveto stroke 1 setgray 1139 -569 40 0 360 arc fill 1331 -690 40 0 360 arc fill 1524 -819 40 0 360 arc fill 0 setgray 1139 -569 40 0 360 arc stroke 1331 -690 40 0 360 arc stroke 1524 -819 40 0 360 arc stroke 1733 -956 40 0 360 arc fill 1972 -1116 40 0 360 arc fill 2218 -1284 40 0 360 arc fill 2505 -1479 40 0 360 arc fill -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 20 5.0P 1500 3200 translate 1106 -639 moveto 1106 -639 1256 -839 1419 -1055 curveto 1597 -1289 1797 -1549 2033 -1853 curveto 2306 -2201 2306 -2201 2306 -2201 curveto stroke 1 setgray 1106 -639 40 0 360 arc fill 1256 -839 40 0 360 arc fill 0 setgray 1106 -639 40 0 360 arc stroke 1256 -839 40 0 360 arc stroke 1419 -1055 40 0 360 arc fill 1597 -1289 40 0 360 arc fill 1797 -1549 40 0 360 arc fill 2033 -1853 40 0 360 arc fill 2306 -2201 40 0 360 arc fill -1500 -3200 translate %ANF FANxyal3: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 21 C 1500 3200 translate 980 -472 moveto 980 -472 980 -472 980 -472 curveto stroke 1 setgray 980 -472 40 0 360 arc fill 0 setgray 980 -472 40 0 360 arc stroke -1500 -3200 translate 1500 3200 translate 950 -435 40 0 360 arc fill -1500 -3200 translate %ENDE: 2 %END-35 %END-34 %Platz für Text 700 3200 translate 1 setgray 2733 -3100 moveto 1800 0 rlineto 0 1200 rlineto -1800 0 rlineto closepath fill 0 setgray 2733 -3100 moveto 1800 0 rlineto 0 1200 rlineto -1800 0 rlineto closepath stroke 300 /Times-Italic FF 2800 -2150 moveto (Munsell V=5) show 250 /Times-Italic FF 2800 -2400 moveto 20 0 (a=x/y) ashow 2800 -2700 moveto 20 0 (b) ashow 250 /Times-I FF 20 0 (=-0,40) ashow 250 /Times-Italic FF 20 0 (z/y) ashow 300 /Times-Italic FF 2800 -3050 moveto (LAB 1977) show -700 -3200 translate %Platz ACHTUNG Kurvenüberschreibung grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %line 359 %!PS-Adobe-3.0 EPSF-3.0 JE440-3N %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark03 where {pop} {userdict /pdfmark03 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JE44/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark03 [ /View [ /FitB ] /DOCVIEW pdfmark03 %END PDFDE011 %! AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-I exch definefont pop /FF {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 4 /Times-I FF 200 86 moveto (JE440-3) show %(Colours in ) showen %(Farben in ) showde %6 /Times-Italic FF %((a',b') ) show %6 /Times-I FF %(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-I FF 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 /Times-Italic FF -580 -1300 moveto (b') show 350 /Times-Italic FF 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 /Times-Italic FF % 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 10 01 16 01 00 NE JA NE 01 ******************** % 10 01 01 F39M5C2.DAT Chroma 4,8,12,..,24 für B8230/1-xn.eps 30.3.93 %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 1G0= 4 400 3200 translate 2979 -1332 moveto 2979 -1332 2947 -1338 2912 -1340 curveto 2877 -1338 2845 -1333 2814 -1324 curveto 2784 -1308 2760 -1290 2741 -1267 curveto 2722 -1238 2709 -1213 2699 -1179 curveto 2694 -1156 2692 -1130 2692 -1106 curveto 2698 -1073 2713 -1025 2733 -983 curveto 2767 -937 2793 -909 2825 -886 curveto 2855 -882 2889 -884 2924 -901 curveto 2960 -922 2992 -951 3013 -976 curveto 3036 -1009 3053 -1037 3065 -1070 curveto 3070 -1095 3071 -1121 3072 -1143 curveto 3071 -1168 3067 -1195 3060 -1229 curveto 3051 -1256 3040 -1280 3021 -1305 curveto 3003 -1323 2979 -1332 2979 -1332 curveto stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 2G0= 8 400 3200 translate 3072 -1486 moveto 3072 -1486 3012 -1503 2928 -1507 curveto 2868 -1504 2801 -1491 2745 -1475 curveto 2685 -1450 2623 -1406 2579 -1360 curveto 2541 -1302 2517 -1251 2495 -1188 curveto 2485 -1140 2479 -1094 2479 -1046 curveto 2489 -974 2526 -858 2576 -766 curveto 2653 -668 2719 -614 2785 -588 curveto 2838 -585 2897 -600 2955 -624 curveto 3015 -659 3072 -704 3121 -752 curveto 3168 -812 3203 -873 3226 -944 curveto 3238 -1002 3245 -1059 3250 -1108 curveto 3251 -1162 3247 -1216 3234 -1287 curveto 3213 -1339 3188 -1385 3152 -1429 curveto 3119 -1462 3072 -1486 3072 -1486 curveto stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 3G0= 12 400 3200 translate 3174 -1628 moveto 3174 -1628 3085 -1660 2952 -1670 curveto 2868 -1668 2765 -1653 2684 -1632 curveto 2585 -1594 2473 -1525 2404 -1452 curveto 2343 -1369 2306 -1294 2276 -1204 curveto 2261 -1131 2254 -1070 2254 -1003 curveto 2271 -887 2335 -681 2436 -520 curveto 2583 -355 2681 -252 2768 -172 curveto 2836 -188 2904 -238 2974 -313 curveto 3045 -385 3120 -450 3195 -527 curveto 3269 -600 3342 -688 3386 -817 curveto 3407 -911 3420 -1003 3425 -1081 curveto 3422 -1163 3412 -1240 3390 -1342 curveto 3362 -1418 3326 -1480 3282 -1543 curveto 3239 -1585 3174 -1628 3174 -1628 curveto stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 4G0= 16 400 3200 translate 3334 -300 moveto 3334 -300 3452 -488 3534 -684 curveto 3564 -827 3579 -958 3586 -1062 curveto 3581 -1169 3571 -1267 3543 -1397 curveto 3509 -1493 3467 -1572 3414 -1649 curveto 3366 -1704 3291 -1772 3177 -1820 curveto 2994 -1843 2880 -1837 2725 -1818 curveto 2616 -1791 2474 -1736 2323 -1630 curveto 2230 -1530 2161 -1422 2118 -1329 curveto 2077 -1221 2059 -1129 2047 -1057 curveto 2039 -975 2055 -814 2158 -499 curveto stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 5G0= 20 400 3200 translate 1910 -1362 moveto 1910 -1362 1872 -1236 1857 -1130 curveto 1844 -1047 1834 -958 1832 -761 curveto stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 6G0= 20 400 3200 translate 3672 -555 moveto 3672 -555 3721 -746 3757 -915 curveto 3757 -1043 3746 -1180 3732 -1296 curveto 3698 -1454 3663 -1572 3614 -1668 curveto 3551 -1753 3498 -1820 3413 -1900 curveto 3304 -1985 3304 -1985 3304 -1985 curveto stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 7G0= 24 400 3200 translate 1684 -1250 moveto 1684 -1250 1651 -1133 1631 -1041 curveto 1616 -945 1623 -725 1623 -725 curveto stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 8G0= 24 400 3200 translate 3893 -1329 moveto 3893 -1329 3845 -1510 3810 -1647 curveto 3758 -1757 3701 -1862 3643 -1939 curveto stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 9G0= 28 400 3200 translate 1459 -1136 moveto 1459 -1136 1408 -1037 1370 -937 curveto 1389 -700 1389 -700 1389 -700 curveto stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 10G0= 28 400 3200 translate 3967 -1727 moveto 3967 -1727 3915 -1853 3859 -1971 curveto stroke -400 -3200 translate 400 3200 translate 2872 -1148 40 0 360 arc fill -400 -3200 translate %ENDE: 3 %1000 02 21 01 16 01 00 NE JA JA 02 ******************** % 21 01 01 F39M5T2.DAT Ton=2,4,.. jede 2.Ton; für B8230/1 mit TDELC=2 %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 110.0PB 400 3200 translate 2979 -1332 moveto 2979 -1332 3072 -1486 3174 -1628 curveto 3291 -1772 3413 -1900 3413 -1900 curveto stroke 1 setgray 2979 -1332 40 0 360 arc fill 3072 -1486 40 0 360 arc fill 0 setgray 2979 -1332 40 0 360 arc stroke 3072 -1486 40 0 360 arc stroke 3174 -1628 40 0 360 arc fill 3291 -1772 40 0 360 arc fill 3413 -1900 40 0 360 arc fill -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 3 10.0B 400 3200 translate 2845 -1333 moveto 2845 -1333 2801 -1491 2765 -1653 curveto 2725 -1818 2725 -1818 2725 -1818 curveto stroke 1 setgray 2845 -1333 40 0 360 arc fill 2801 -1491 40 0 360 arc fill 0 setgray 2845 -1333 40 0 360 arc stroke 2801 -1491 40 0 360 arc stroke 2765 -1653 40 0 360 arc fill 2725 -1818 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 4 5.0B 400 3200 translate 2784 -1308 moveto 2784 -1308 2685 -1450 2585 -1594 curveto 2474 -1736 2474 -1736 2474 -1736 curveto stroke 1 setgray 2784 -1308 40 0 360 arc fill 2685 -1450 40 0 360 arc fill 0 setgray 2784 -1308 40 0 360 arc stroke 2685 -1450 40 0 360 arc stroke 2585 -1594 40 0 360 arc fill 2474 -1736 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 510.0BG 400 3200 translate 2741 -1267 moveto 2741 -1267 2579 -1360 2404 -1452 curveto 2230 -1530 2230 -1530 2230 -1530 curveto stroke 1 setgray 2741 -1267 40 0 360 arc fill 2579 -1360 40 0 360 arc fill 0 setgray 2741 -1267 40 0 360 arc stroke 2579 -1360 40 0 360 arc stroke 2404 -1452 40 0 360 arc fill 2230 -1530 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 6 5.0BG 400 3200 translate 2709 -1213 moveto 2709 -1213 2517 -1251 2306 -1294 curveto 2118 -1329 1910 -1362 1910 -1362 curveto stroke 1 setgray 2709 -1213 40 0 360 arc fill 2517 -1251 40 0 360 arc fill 0 setgray 2709 -1213 40 0 360 arc stroke 2517 -1251 40 0 360 arc stroke 2306 -1294 40 0 360 arc fill 2118 -1329 40 0 360 arc fill 1910 -1362 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 7 10.0G 400 3200 translate 2694 -1156 moveto 2694 -1156 2485 -1140 2261 -1131 curveto 2059 -1129 1857 -1130 1651 -1133 curveto 1459 -1136 1459 -1136 1459 -1136 curveto stroke 1 setgray 2694 -1156 40 0 360 arc fill 2485 -1140 40 0 360 arc fill 0 setgray 2694 -1156 40 0 360 arc stroke 2485 -1140 40 0 360 arc stroke 2261 -1131 40 0 360 arc fill 2059 -1129 40 0 360 arc fill 1857 -1130 40 0 360 arc fill 1651 -1133 40 0 360 arc fill 1459 -1136 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 910.0GY 400 3200 translate 2713 -1025 moveto 2713 -1025 2526 -858 2335 -681 curveto 2158 -499 2158 -499 2158 -499 curveto stroke 1 setgray 2713 -1025 40 0 360 arc fill 2526 -858 40 0 360 arc fill 2335 -681 40 0 360 arc fill 0 setgray 2713 -1025 40 0 360 arc stroke 2526 -858 40 0 360 arc stroke 2335 -681 40 0 360 arc stroke 2158 -499 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 10 5.0GY 400 3200 translate 2767 -937 moveto 2767 -937 2653 -668 2583 -355 curveto stroke 1 setgray 2767 -937 40 0 360 arc fill 2653 -668 40 0 360 arc fill 0 setgray 2767 -937 40 0 360 arc stroke 2653 -668 40 0 360 arc stroke 2583 -355 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 11 10.0Y 400 3200 translate 2825 -886 moveto 2825 -886 2785 -588 2768 -172 curveto stroke 1 setgray 2825 -886 40 0 360 arc fill 2785 -588 40 0 360 arc fill 0 setgray 2825 -886 40 0 360 arc stroke 2785 -588 40 0 360 arc stroke 2768 -172 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 1310.0YR 400 3200 translate 2960 -922 moveto 2960 -922 3015 -659 3045 -385 curveto stroke 1 setgray 2960 -922 40 0 360 arc fill 3015 -659 40 0 360 arc fill 0 setgray 2960 -922 40 0 360 arc stroke 3015 -659 40 0 360 arc stroke 3045 -385 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 14 5.0YR 400 3200 translate 3013 -976 moveto 3013 -976 3121 -752 3195 -527 curveto stroke 1 setgray 3013 -976 40 0 360 arc fill 3121 -752 40 0 360 arc fill 3195 -527 40 0 360 arc fill 0 setgray 3013 -976 40 0 360 arc stroke 3121 -752 40 0 360 arc stroke 3195 -527 40 0 360 arc stroke -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 15 10.0R 400 3200 translate 3053 -1037 moveto 3053 -1037 3203 -873 3342 -688 curveto 3452 -488 3452 -488 3452 -488 curveto stroke 1 setgray 3053 -1037 40 0 360 arc fill 3203 -873 40 0 360 arc fill 3342 -688 40 0 360 arc fill 3452 -488 40 0 360 arc fill 0 setgray 3053 -1037 40 0 360 arc stroke 3203 -873 40 0 360 arc stroke 3342 -688 40 0 360 arc stroke 3452 -488 40 0 360 arc stroke -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 1710.0RP 400 3200 translate 3072 -1143 moveto 3072 -1143 3250 -1108 3425 -1081 curveto 3586 -1062 3757 -1043 3757 -1043 curveto stroke 1 setgray 3072 -1143 40 0 360 arc fill 3250 -1108 40 0 360 arc fill 3425 -1081 40 0 360 arc fill 0 setgray 3072 -1143 40 0 360 arc stroke 3250 -1108 40 0 360 arc stroke 3425 -1081 40 0 360 arc stroke 3586 -1062 40 0 360 arc fill 3757 -1043 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 18 5.0RP 400 3200 translate 3067 -1195 moveto 3067 -1195 3247 -1216 3412 -1240 curveto 3571 -1267 3732 -1296 3893 -1329 curveto stroke 1 setgray 3067 -1195 40 0 360 arc fill 3247 -1216 40 0 360 arc fill 3412 -1240 40 0 360 arc fill 0 setgray 3067 -1195 40 0 360 arc stroke 3247 -1216 40 0 360 arc stroke 3412 -1240 40 0 360 arc stroke 3571 -1267 40 0 360 arc fill 3732 -1296 40 0 360 arc fill 3893 -1329 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 19 10.0P 400 3200 translate 3051 -1256 moveto 3051 -1256 3213 -1339 3362 -1418 curveto 3509 -1493 3663 -1572 3810 -1647 curveto 3967 -1727 3967 -1727 3967 -1727 curveto stroke 1 setgray 3051 -1256 40 0 360 arc fill 3213 -1339 40 0 360 arc fill 3362 -1418 40 0 360 arc fill 0 setgray 3051 -1256 40 0 360 arc stroke 3213 -1339 40 0 360 arc stroke 3362 -1418 40 0 360 arc stroke 3509 -1493 40 0 360 arc fill 3663 -1572 40 0 360 arc fill 3810 -1647 40 0 360 arc fill 3967 -1727 40 0 360 arc fill -400 -3200 translate %ANF FANxyal3: MULYA=13333 BEO=02 CIELAB 1976 IXY0: 400 3200 20 5.0P 400 3200 translate 3021 -1305 moveto 3021 -1305 3152 -1429 3282 -1543 curveto 3414 -1649 3551 -1753 3701 -1862 curveto 3859 -1971 3859 -1971 3859 -1971 curveto stroke 1 setgray 3021 -1305 40 0 360 arc fill 3152 -1429 40 0 360 arc fill 0 setgray 3021 -1305 40 0 360 arc stroke 3152 -1429 40 0 360 arc stroke 3282 -1543 40 0 360 arc fill 3414 -1649 40 0 360 arc fill 3551 -1753 40 0 360 arc fill 3701 -1862 40 0 360 arc fill 3859 -1971 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 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 /Times-Italic FF -650 -2050 moveto (Munsell V=5) show 250 /Times-Italic FF -650 -2350 moveto 20 0 (a') ashow 250 /Times-I FF 20 0 (=0,2191[) ashow 250 /Times-Italic FF 20 0 (x/y) ashow 250 /Times-I FF 20 0 (]) ashow 200 /Times-I FF 0 120 rmoveto 20 0 (1/3) ashow 0 -120 rmoveto 250 /Times-Italic FF -650 -2700 moveto 20 0 (b') ashow 250 /Times-I FF 20 0 (=-0,08376[) ashow 250 /Times-Italic FF 20 0 (z/y) ashow 250 /Times-I FF 20 0 (]) ashow 200 /Times-I FF 0 120 rmoveto 20 0 (1/3) ashow 0 -120 rmoveto 300 /Times-Italic FF -650 -3050 moveto (CIELAB 1976) show -800 -3200 translate %Platz ACHTUNG Kurvenüberschreibung grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %line 369 %!PS-Adobe-3.0 EPSF-3.0 JE440-4N %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark04 where {pop} {userdict /pdfmark04 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JE44/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark04 [ /View [ /FitB ] /DOCVIEW pdfmark04 %END PDFDE011 %! AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-I exch definefont pop /FF {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} 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 4 /Times-I FF 200 86 moveto (JE440-4) show %(Colours in ) showen %(Farben in ) showde %6 /Times-Italic FF %((a',b') ) show %6 /Times-I FF %(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-I FF 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 /Times-Italic FF -580 -1300 moveto (b') show 350 /Times-Italic FF 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 /Times-Italic FF % 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 /Times-Italic FF -650 -2050 moveto (Munsell V=2,5,8) show 250 /Times-Italic FF -650 -2350 moveto 20 0 (a') ashow 250 /Times-I FF 20 0 (=0,2191[) ashow 250 /Times-Italic FF 20 0 (x/y) ashow 250 /Times-I FF 20 0 (]) ashow 200 /Times-I FF 0 120 rmoveto 20 0 (1/3) ashow 0 -120 rmoveto 250 /Times-Italic FF -650 -2700 moveto 20 0 (b') ashow 250 /Times-I FF 20 0 (=-0,08376[) ashow 250 /Times-Italic FF 20 0 (z/y) ashow 250 /Times-I FF 20 0 (]) ashow 200 /Times-I FF 0 120 rmoveto 20 0 (1/3) ashow 0 -120 rmoveto 300 /Times-Italic FF -650 -3050 moveto (CIELAB 1976) show -800 -3200 translate %Platz ACHTUNG Kurvenüberschreibung 0 setgray /xm 3200 def /ym 2000 def 250 /Times-I FF 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 JE440-5, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE440-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%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 JE440-6, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE440-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%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 JE440-7 %%BoundingBox: 70 83 445 330 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JE44/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 % 113mm = 113*72/25.4 = 320; 320+72 = 392 % 60mm = 60*72/25.4 = 176; 170+90+8 = 268 % !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 %%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 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 6 /Times-ISOL1 FS 410 84 moveto ( JE440-7 ) show %(relation of nonlinear colour data: CIELAB - LAB*La'b') showen %(Zusammenhang von nichtlinearen Farbdaten: CIELAB - LAB*La'b') showde 72 90 translate /yhoe 8750 def 0.0095 MM dup scale 15 setlinewidth 0.0 0.0 0.0 0.0 setcmykcolor 0 0 moveto 13700 0 rlineto 0 yhoe rlineto -13700 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto 13700 0 rlineto 0 yhoe rlineto -13700 0 rlineto closepath stroke 0 yhoe 440 sub moveto 13700 0 rlineto stroke 0 yhoe 440 sub 550 1.5 mul sub moveto 13700 0 rlineto stroke 0 yhoe 440 sub 550 3.5 mul sub moveto 13700 0 rlineto stroke 0 yhoe 440 sub 550 9.2 mul sub moveto 13700 0 rlineto stroke 2500 yhoe 440 sub moveto 0 yhoe 440 sub neg rlineto stroke 10800 yhoe 440 sub moveto 0 yhoe 440 sub neg rlineto stroke /tedef {/anz exch def /ydt exch def /y0t exch def /x0t exch def} bind def /ns {350 /Times-ISOL1 FS show} bind def /ks {350 /TimesI-ISOL1 FS show} bind def /bs {350 /TimesB-ISOL1 FS show} bind def /js {350 /TimesBI-ISOL1 FS show} bind def /ss {350 /Symbol FS show} bind def /is {250 /Times-ISOL1 FS 0 -90 rlineto show 0 90 rlineto} bind def /es {250 /Times-ISOL1 FS 0 200 rlineto show 0 -200 rlineto} bind def /TEn {350 /Times-ISOL1 FS tedef} bind def /TEk {350 /TimesI-ISOL1 FS tedef} bind def /TEb {350 /TimesB-ISOL1 FS tedef} bind def /TEj {350 /TimesBI-ISOL1 FS tedef} bind def /TEs {350 /Symbol FS tedef} bind def %20% kleiner /ns2 {280 /Times-ISOL1 FS show} bind def /ks2 {280 /TimesI-ISOL1 FS show} bind def /bs2 {280 /TimesB-ISOL1 FS show} bind def /js2 {280 /TimesBI-ISOL1 FS show} bind def /is2 {200 /Times-ISOL1 FS 10 -40 rlineto show -10 40 rlineto} bind def /iks2 {200 /TimesI-ISOL1 FS 10 -40 rlineto show -10 40 rlineto} bind def /es2 {250 /Times-ISOL1 FS 0 160 rlineto show 0 -160 rlineto} bind def /TEn2 {280 /Times-ISOL1 FS tedef} bind def /TEk2 {280 /TimesI-ISOL1 FS tedef} bind def /TEb2 {280 /TimesB-ISOL1 FS tedef} bind def /TEj2 {280 /TimesBI-ISOL1 FS tedef} bind def /TEs2 {280 /Symbol FS tedef} bind def /TEA {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto show} for} bind def /yd -550 def %y-Zeilenabstand %Spalten /S1 150 def /S2 300 def /S3 2750 def /S4 11000 def /yz 500 def /yu0 1200 def /yu1 {yu0 -100 add yz 3.7 mul add} bind def /yu2 {yu1 000 add yz 0.0 mul add} bind def /yu3 {yu2 200 add yz 5.9 mul add} bind def /yu4 {yu3 100 add yz 1.8 mul add} bind def /yu5 {yu4 000 add yz 1.8 mul add} bind def /yu6 {yu5 000 add yz 0.8 mul add} bind def %Titeltext S1 yu6 moveto (H\366here Farbmetrik \050Farbdaten: ) popde %08620-7 1 (nichtlineare Beziehung zu CIE 1931\051) popde %08620-7 11 (Higher colormetric \050color data: ) popen %18620-7 1 (nonlinear relation to CIE 1931 data\051) popen %18620-7 11 (Vista del color ) popes %28620-7 1 ((Coordenadas cubicas)) popes %28620-7 11 (percieved color terms ) popfr %38620-7 1 ((colorness: cube root coordinates)) popfr %38620-7 11 (percieved color terms ) popit %48620-7 1 ((colorness: cube root coordinates)) popit %48620-7 11 ((colorness: cube root coordinates)) popjp %58620-7 11 exch bs bs S1 yu5 yd 1 TEb (nichtlineare) popde %08620-7 2 (non linear ) popen %18620-7 2 (vista del ) popes %28620-7 2 (percieved ) popfr %38620-7 2 (percieved ) popit %48620-7 2 (percieved ) popjp %58620-7 2 TEA S1 yu5 400 sub moveto (Farbgr\366\337en) popde %08620-7 3 (color terms) popen %18620-7 3 (color) popes %28620-7 3 (color terms) popfr %38620-7 3 (color terms) popit %48620-7 3 (color terms) popjp %58620-7 3 bs S3 yu5 yd 1 TEb (Name und Zusammenhang mit) popde %08620-7 4 (name and relationship with) popen %18620-7 4 (Nombre y contexto) popes %28620-7 4 (name and relationship with) popfr %38620-7 4 (name and relationship with) popit %48620-7 4 (name and relationship with) popjp %58620-7 4 TEA S3 yu5 400 sub moveto (Normfarbwerten und \255anteilen) popde %08620-7 5 (tristimulues or chromaticity values) popen %18620-7 5 (con CIE standard cromaticos) popes %28620-7 5 (standard chromaticity values) popfr %38620-7 5 (standard chromaticity values) popit %48620-7 5 (standard chromaticity values) popjp %58620-7 5 bs S4 yu5 yd 1 TEb (Bemerkungen) popde %08620-7 6 (notes) popen %18620-7 6 (Notas:) popes %28620-7 6 (notes:) popfr %38620-7 6 (notes:) popit %48620-7 6 (notes:) popjp %58620-7 6 TEA S4 yu4 yd 1 TEk (CIELAB 1976) popde (CIELAB 1976) popen (CIELAB 1976) popes (CIELAB 1976) popfr (CIELAB 1976) popit (CIELAB 1976) popjp TEA S4 yu3 yd 5 TEk () (CIELAB 1976) (n=D65 \050Umfeld\051) (CIELAB 1976) ( ) 5 popxde () (CIELAB 1976) (n=D65 \050backgr.\051) (CIELAB 1976) ( ) 5 popxen (Definicion) (sistema opuesto) (de color) 3 popxes %28620-719 (definition) (opponent) ( color system) 3 popxfr %38620-719 (definition) (opponent) ( color system) 3 popxit %48620-719 (definition) (opponent) ( color system) 3 popxjp %58620-719 TEA S1 yu4 yd 1 TEb (Helligkeit) popde %08620-7 7 (lightness) popen %18620-7 7 (Vista luz) popes %28620-7 7 (lightness) popfr %38620-7 7 (lightness) popit %48620-7 7 (lightness) popjp %58620-7 7 TEA S3 yu4 moveto (L*) ks ( = 116 \050 ) ns (Y) ks ( / 100 \051 ) ns (1/3) es ( - 16) ns ( ) show (\050Y) ks ( > 0,8\051) ns S3 yu4 yd add moveto (N\344herung: ) showde (Approximation: ) showen S3 2300 add yu4 yd add moveto (L*) ks ( = 100 \050 ) ns (Y) ks ( / 100 \051 ) ns (1/2,4) es S1 yu3 yd 1 TEb (Buntheit) popde %08620-7 9 (chroma) popen %18620-7 9 (vista cromatica ) popes %28620-7 9 (chromaticness ) popfr %38620-7 9 (chromaticness ) popit %48620-7 9 (chromaticness ) popjp %58620-7 9 TEA S3 yu3 yd 1 TEk (nichtlineare Transformation der Buntwerte A und B) popde %08620-710 (non linear transform of chromatic values A and B) popen %18620-710 (Para diagrama no lineal de vista cromatica (a*, b*)) popes %28620-710 (for linear chromatic value diagram (AT, B)) popfr %38620-710 (for linear chromatic value diagram (AT, B)) popit %48620-710 (for linear chromatic value diagram (AT, B)) popjp %58620-710 TEA S2 yu3 yd 7 TEn () (Rot-Gr\374n) () (Gelb-Blau) () (radial) () 7 popxde %08620-712 () (red-green) () (yellow-blue) () (radial) () 7 popxen %18620-712 () (Rojo-Verde) () (Amarillo-Azul) () (radial) () 7 popxes %28620-712 () (red-green) () (yellow-blue) () (radial) () 7 popxfr %38620-712 () (red-green) () (yellow-blue) () (radial) () 7 popxit %48620-712 () (red-green) () (yellow-blue) () (radial) () 7 popxjp %58620-712 TEA S3 yu3 yd 1 mul add moveto (a*) ks ( = 500 [ \050 ) ns (X / X) ks (n) is (\051) ns (1/3) es ( - \050 ) ns (Y / Y) ks (n) is (\051) ns (1/3) es ( ]) ns S3 yu3 yd 2 mul add moveto ( )ns ( = 500 \050) ns ( a' - a') ks -100 0 rmoveto (n) is ( \051 ) ns (Y) ks (1/3) es S3 yu3 yd 3 mul add moveto (b*) ks ( = 200 [ \050 ) ns (Y / Y) ks (n) is (\051) ns (1/3) es ( - \050 ) ns (Z / Z) ks (n) is (\051) ns (1/3) es ( ]) ns S3 yu3 yd 4 mul add moveto ( )ns ( = 500 \050) ns ( b' - b') ks -100 0 rmoveto (n) is ( \051 ) ns (Y) ks (1/3) es S3 yu3 yd 5 mul add moveto (C*) ks (ab) is ( = [ ) ns (a*) ks (2) es ( + ) ns (b*) ks (2) es ( ] ) ns (1/2) es S1 yu1 yd 1 TEb (Farbart ) popde %08620-717 (chromaticity ) popen %18620-717 (chromatico ) popes %28620-717 (chromaticity ) popfr %38620-717 (chromaticity ) popit %48620-717 (chromaticity ) popjp %58620-717 TEA S3 yu1 yd 1 TEk (nichtlineare Transformation von Farbarten a=x/y; b=z/y) popde %08620-718 (nonlinear transform of chromaticities a=x/y and b=z/y) popen %18620-718 (para color nonlineal-tablero (a', b')) popes %28620-718 (for nonlinear chromaticity diagram (a', b')) popfr %38620-718 (for nonlinear chromaticity diagram (a', b')) popit %48620-718 (for nonlinear chromaticity diagram (a', b')) popjp %58620-718 TEA S4 yu1 yd 3 TEk (vergleiche mit log) (Zapfens\344ttigung) () 3 popxde %08620-719 (compare to log) (cone excitation) () 3 popxen (Definicion) (sistema opuesto) (de color) 3 popxes %28620-719 (definition) (opponent) ( color system) 3 popxfr %38620-719 (definition) (opponent) ( color system) 3 popxit %48620-719 (definition) (opponent) ( color system) 3 popxjp %58620-719 TEA /tfo {1 0 0 setrgbcolor} def /tfl {0 1 0 setrgbcolor} def /tfv {0 0 1 setrgbcolor} def /tfn {0 setgray} def /tfw {1 setgray} def 350 /TimesBI-ISOL1 FS S4 yu1 yd 2 mul add moveto tfw (= ) show tfn (log[) show tfo (P) show tfn ( / \050) show tfo (P) show tfn (+) show tfl (D) show tfn (\051]) show S4 yu1 yd 3 mul add moveto tfn (= ) show tfn (log[) show tfo (L) show tfn ( / \050) show tfo (L) show tfn (+) show tfl (M) show tfn (\051]) show S4 yu1 yd 4 mul add moveto tfw (= ) show tfn (log[) show tfv (T) show tfn ( / \050) show tfo (P) show tfn (+) show tfl (D) show tfn (\051]) show S4 yu1 yd 5 mul add moveto tfn (= ) show tfn (log[) show tfv (S) show tfn ( / \050) show tfo (L) show tfn (+) show tfl (M) show tfn (\051]) show S2 yu1 yd 6 TEn () (Rot-Gr\374n) ( ) (Gelb-Blau) ( ) (radial) 6 popxde %08620-720 () (red-green) ( ) (yellow-blue) ( ) (radial) 6 popxen %18620-720 () (Rojo-Verde) (Amarillo-Azul) (radial) 4 popxes %28620-720 () (red-green) (yellow-blue) (radial) 4 popxfr %38620-720 () (red-green) (yellow-blue) (radial) 4 popxit %48620-720 () (red-green) (yellow-blue) (radial) 4 popxjp %58620-720 TEA S3 yu1 yd 1 mul add moveto (a') ks ( = \050 1 / ) ns (X) ks (n) is ( \051) ns (1/3) es ( \050 ) ns (x / y) ks ( \051) ns (1/3) es S3 yu1 yd 2 mul add moveto ( ) ks ( = 0,2191 \050 ) ns (x / y) ks ( \051) ns (1/3) es ( f\374r ) popde %08620-721 ( for ) popen %18620-721 ( para ) popes %28620-721 ( for ) popfr %38620-721 ( for ) popit %48620-721 ( for ) popjp %58620-721 ns (D65) ks S3 yu1 yd 3 mul add moveto (b') ks ( = - 0,4 \050 1 / ) ns (Z) ks (n) is ( \051) ns (1/3) es ( \050 ) ns (z / y) ks ( \051) ns (1/3) es S3 yu1 yd 4 mul add moveto ( ) ks ( = - 0,08376 \050 ) ns (z / y) ks ( \051) ns (1/3) es ( f\374r ) popde %08620-722 ( for ) popen %18620-722 ( para ) popes %28620-722 ( for ) popfr %38620-722 ( for ) popit %48620-722 ( for ) popjp %58620-722 ns (D65) ks S3 yu1 yd 5 mul add moveto (c') ks (ab) is ( = [ \050 ) ns (a' - a') ks -100 0 rmoveto (n) is ( \051) ns (2) es ( + \050 ) ns (b' - b') ks -100 0 rmoveto (n) is ( \051) ns (2) es ( ]) ns (1/2) es showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %line 409 %!PS-Adobe-3.0 EPSF-3.0 JE440-8, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE440-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%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 JE441-1N %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark11 where {pop} {userdict /pdfmark11 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JE44/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark11 [ /View [ /FitB ] /DOCVIEW pdfmark11 %END PDFDE011 %! AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-I exch definefont pop /FF {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /lanind 0 def /lantex [(G) (E)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 4 /Times-I FF 200 86 moveto (JE441-1) show %(Colours in ) showen %(Farben in ) showde %6 /Times-Italic FF %((a',b') ) show %6 /Times-I FF %(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-I FF 400 350 moveto 0 100 rlineto stroke 1200 350 moveto 0 100 rlineto stroke 2000 350 moveto 0 100 rlineto stroke 2800 350 moveto 0 100 rlineto stroke 3600 350 moveto 0 100 rlineto stroke 100 500 moveto (0,05) show 900 500 moveto (0,10) show 1700 500 moveto (0,15) show 2500 500 moveto (0,20) show 3300 500 moveto (0,25) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 400 moveto 100 0 rlineto stroke -50 -400 moveto 100 0 rlineto stroke -50 -1200 moveto 100 0 rlineto stroke % -50 -2000 moveto 100 0 rlineto stroke % -50 -2800 moveto 100 0 rlineto stroke -775 300 moveto ( 0,00) show -775 -500 moveto (-0,05) show -775 -1300 moveto (-0,10) show % -775 -2100 moveto (-0,15) show 350 /Times-Italic FF -580 -1650 moveto (b') show 350 /Times-Italic FF 4000 200 moveto (a') show -800 -3200 translate %1000 02 01 16 01 .00 .0020 ******************** %ANF PROZSPEP3.FOR: MULYA=16000 BEO=02 LABHNU2 1979 IXY0: 400 3600 400 3600 translate 39612 -7407 moveto 39612 -7407 39716 -7420 39422 -7408 curveto 39050 -7393 36906 -7261 32452 -6964 curveto 27172 -6569 21874 -6116 17219 -5650 curveto 13526 -5219 10503 -4804 8148 -4422 curveto 6236 -4048 4691 -3669 3357 -3237 curveto 2412 -2815 1800 -2424 1431 -2081 curveto 1230 -1785 1127 -1537 1082 -1337 curveto 1072 -1177 1086 -1044 1117 -939 curveto 1161 -869 1214 -827 1271 -799 curveto 1329 -778 1391 -763 1458 -753 curveto 1531 -746 1612 -742 1703 -739 curveto 1806 -737 1920 -736 2048 -736 curveto 2190 -736 2345 -736 2512 -735 curveto 2688 -735 2862 -735 3034 -735 curveto 3192 -734 3335 -734 3458 -734 curveto 3563 -734 3652 -734 3730 -733 curveto 3796 -733 3851 -733 3892 -733 curveto 3925 -733 3950 -733 3966 -733 curveto 3980 -733 3990 -733 4001 -733 curveto 4010 -733 4015 -733 4018 -733 curveto 4020 -733 4022 -733 4079 -1028 curveto 4291 -1523 4445 -1736 4560 -1869 curveto 4648 -1962 4726 -2031 4781 -2087 curveto 4849 -2144 4930 -2206 5018 -2275 curveto 5138 -2361 5315 -2476 5613 -2645 curveto 6172 -2923 7830 -3528 39226 -7383 curveto stroke 1 setgray 39612 -7407 30 0 360 arc fill % 400 32452 -6964 30 0 360 arc fill % 425 10503 -4804 30 0 360 arc fill % 450 2412 -2815 30 0 360 arc fill % 475 1082 -1337 30 0 360 arc fill % 500 1214 -827 30 0 360 arc fill % 525 1531 -746 30 0 360 arc fill % 550 2048 -736 30 0 360 arc fill % 575 2862 -735 30 0 360 arc fill % 600 3563 -734 30 0 360 arc fill % 625 3892 -733 30 0 360 arc fill % 650 3990 -733 30 0 360 arc fill % 675 4020 -733 30 0 360 arc fill % 700 4291 -1523 30 0 360 arc fill %500c 4781 -2087 30 0 360 arc fill %525c 5315 -2476 30 0 360 arc fill %550c 0 setgray 39612 -7407 30 0 360 arc stroke % 400 32452 -6964 30 0 360 arc stroke % 425 10503 -4804 30 0 360 arc stroke % 450 2412 -2815 30 0 360 arc stroke % 475 1082 -1337 30 0 360 arc stroke % 500 1214 -827 30 0 360 arc stroke % 525 1531 -746 30 0 360 arc stroke % 550 2048 -736 30 0 360 arc stroke % 575 2862 -735 30 0 360 arc stroke % 600 3563 -734 30 0 360 arc stroke % 625 3892 -733 30 0 360 arc stroke % 650 3990 -733 30 0 360 arc stroke % 675 4020 -733 30 0 360 arc stroke % 700 4291 -1523 30 0 360 arc stroke %500c 4781 -2087 30 0 360 arc stroke %525c 5315 -2476 30 0 360 arc stroke %550c 2080 -1438 30 0 360 arc fill %D65 0 setgray 250 /Times-Italic FF % 39612 500 sub -7407 100 sub moveto (400) show % 32452 500 sub -6964 100 sub moveto (425) show % 10503 500 sub -4804 100 sub moveto (450) show 2412 450 sub -2815 100 sub moveto (475) show 1082 450 sub -1337 50 sub moveto (500) show 1214 300 sub -827 100 add moveto (525) show 1531 200 sub -746 100 add moveto (550) show 2048 200 sub -736 100 add moveto (575) show 2862 200 sub -735 100 add moveto (600) show 3563 200 sub -734 100 add moveto (625) show % 3892 200 sub -733 100 add moveto (650) show % 3990 200 sub -733 100 add moveto (675) show 4020 100 add -733 000 sub moveto (700) show 4291 100 add -1523 50 sub moveto (500c) show 4781 100 add -2087 100 sub moveto (525c) show % 5315 100 add -2476 100 sub moveto (550c) show % 2080 100 add -1438 100 sub moveto %(D65 ) show -400 -3600 translate %ENDE: 5 %1000 02 10 01 16 01 00 NE JA NE 01 ******************** % 10 01 01 F39M5C2.DAT Chroma 4,8,12,..,24 für B8230/1-xn.eps 30.3.93 %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 1G0= 4 400 3600 translate 2198 -1641 moveto 2198 -1641 2162 -1648 2123 -1650 curveto 2086 -1647 2052 -1642 2020 -1631 curveto 1990 -1614 1966 -1593 1948 -1569 curveto 1930 -1536 1918 -1508 1908 -1472 curveto 1903 -1446 1901 -1418 1901 -1392 curveto 1907 -1357 1921 -1306 1941 -1263 curveto 1973 -1215 1998 -1187 2031 -1164 curveto 2063 -1160 2098 -1163 2137 -1179 curveto 2176 -1200 2212 -1229 2237 -1255 curveto 2264 -1289 2284 -1318 2299 -1353 curveto 2305 -1380 2306 -1409 2307 -1432 curveto 2306 -1459 2301 -1489 2292 -1527 curveto 2281 -1556 2269 -1583 2246 -1611 curveto 2225 -1630 2198 -1641 2198 -1641 curveto stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 2G0= 8 400 3600 translate 2307 -1815 moveto 2307 -1815 2236 -1835 2140 -1839 curveto 2076 -1835 2007 -1821 1952 -1803 curveto 1895 -1774 1839 -1724 1801 -1672 curveto 1769 -1607 1749 -1551 1731 -1481 curveto 1723 -1429 1719 -1380 1718 -1328 curveto 1726 -1253 1757 -1137 1798 -1051 curveto 1865 -966 1927 -924 1991 -905 curveto 2045 -903 2107 -913 2171 -931 curveto 2239 -959 2308 -996 2367 -1038 curveto 2427 -1093 2472 -1152 2503 -1223 curveto 2519 -1283 2529 -1342 2536 -1394 curveto 2537 -1453 2531 -1511 2515 -1591 curveto 2486 -1649 2453 -1701 2406 -1751 curveto 2365 -1788 2307 -1815 2307 -1815 curveto stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 3G0= 12 400 3600 translate 2436 -1978 moveto 2436 -1978 2323 -2015 2167 -2027 curveto 2076 -2024 1971 -2006 1894 -1982 curveto 1805 -1939 1714 -1860 1661 -1776 curveto 1617 -1682 1591 -1598 1571 -1498 curveto 1561 -1419 1557 -1354 1556 -1283 curveto 1568 -1165 1611 -977 1685 -859 curveto 1804 -778 1891 -750 1975 -739 curveto 2043 -740 2114 -747 2193 -764 curveto 2275 -789 2366 -819 2463 -864 curveto 2562 -914 2664 -983 2728 -1098 curveto 2760 -1189 2779 -1283 2785 -1365 curveto 2782 -1453 2767 -1538 2734 -1652 curveto 2693 -1737 2641 -1809 2580 -1880 curveto 2520 -1929 2436 -1978 2436 -1978 curveto stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 4G0= 16 400 3600 translate 2653 -761 moveto 2653 -761 2827 -840 2956 -980 curveto 3005 -1107 3029 -1237 3040 -1345 curveto 3031 -1460 3016 -1568 2970 -1714 curveto 2915 -1823 2850 -1914 2770 -2002 curveto 2698 -2065 2592 -2145 2439 -2200 curveto 2215 -2227 2089 -2221 1933 -2198 curveto 1833 -2166 1714 -2103 1603 -1981 curveto 1541 -1865 1498 -1742 1473 -1637 curveto 1450 -1517 1440 -1417 1434 -1339 curveto 1429 -1255 1438 -1095 1496 -846 curveto stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 5G0= 20 400 3600 translate 1365 -1674 moveto 1365 -1674 1347 -1534 1340 -1418 curveto 1335 -1329 1330 -1236 1330 -1046 curveto stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 6G0= 20 400 3600 translate 3185 -882 moveto 3185 -882 3272 -1033 3335 -1193 curveto 3337 -1325 3316 -1473 3291 -1601 curveto 3230 -1779 3170 -1913 3087 -2024 curveto 2983 -2123 2899 -2200 2768 -2294 curveto 2611 -2394 2611 -2394 2611 -2394 curveto stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 7G0= 24 400 3600 translate 1271 -1550 moveto 1271 -1550 1259 -1421 1252 -1323 curveto 1247 -1224 1249 -1014 1249 -1014 curveto stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 8G0= 24 400 3600 translate 3592 -1638 moveto 3592 -1638 3500 -1842 3433 -2000 curveto 3337 -2127 3235 -2249 3135 -2339 curveto stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 9G0= 28 400 3600 translate 1199 -1424 moveto 1199 -1424 1186 -1319 1176 -1216 curveto 1181 -993 1181 -993 1181 -993 curveto stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 10G0= 28 400 3600 translate 3739 -2092 moveto 3739 -2092 3635 -2239 3527 -2377 curveto stroke -400 -3600 translate 400 3600 translate 2080 -1438 40 0 360 arc fill -400 -3600 translate %ENDE: 5 %1000 02 21 01 16 01 00 NE JA JA 02 ******************** % 21 01 01 F39M5T2.DAT Ton=2,4,.. jede 2.Ton; für B8230/1 mit TDELC=2 %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 110.0PB 400 3600 translate 2198 -1641 moveto 2198 -1641 2307 -1815 2436 -1978 curveto 2592 -2145 2768 -2294 2768 -2294 curveto stroke 1 setgray 2198 -1641 40 0 360 arc fill 2307 -1815 40 0 360 arc fill 0 setgray 2198 -1641 40 0 360 arc stroke 2307 -1815 40 0 360 arc stroke 2436 -1978 40 0 360 arc fill 2592 -2145 40 0 360 arc fill 2768 -2294 40 0 360 arc fill -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 2 5.0PB 400 3600 translate 2123 -1650 moveto 2123 -1650 2140 -1839 2167 -2027 curveto 2215 -2227 2215 -2227 2215 -2227 curveto stroke 1 setgray 2123 -1650 40 0 360 arc fill 2140 -1839 40 0 360 arc fill 2167 -2027 40 0 360 arc fill 0 setgray 2123 -1650 40 0 360 arc stroke 2140 -1839 40 0 360 arc stroke 2167 -2027 40 0 360 arc stroke 2215 -2227 40 0 360 arc fill -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 3 10.0B 400 3600 translate 2052 -1642 moveto 2052 -1642 2007 -1821 1971 -2006 curveto 1933 -2198 1933 -2198 1933 -2198 curveto stroke 1 setgray 2052 -1642 40 0 360 arc fill 2007 -1821 40 0 360 arc fill 0 setgray 2052 -1642 40 0 360 arc stroke 2007 -1821 40 0 360 arc stroke 1971 -2006 40 0 360 arc fill 1933 -2198 40 0 360 arc fill -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 4 5.0B 400 3600 translate 1990 -1614 moveto 1990 -1614 1895 -1774 1805 -1939 curveto 1714 -2103 1714 -2103 1714 -2103 curveto stroke 1 setgray 1990 -1614 40 0 360 arc fill 1895 -1774 40 0 360 arc fill 0 setgray 1990 -1614 40 0 360 arc stroke 1895 -1774 40 0 360 arc stroke 1805 -1939 40 0 360 arc fill 1714 -2103 40 0 360 arc fill -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 510.0BG 400 3600 translate 1948 -1569 moveto 1948 -1569 1801 -1672 1661 -1776 curveto 1541 -1865 1541 -1865 1541 -1865 curveto stroke 1 setgray 1948 -1569 40 0 360 arc fill 1801 -1672 40 0 360 arc fill 0 setgray 1948 -1569 40 0 360 arc stroke 1801 -1672 40 0 360 arc stroke 1661 -1776 40 0 360 arc fill 1541 -1865 40 0 360 arc fill -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 6 5.0BG 400 3600 translate 1918 -1508 moveto 1918 -1508 1749 -1551 1591 -1598 curveto 1473 -1637 1365 -1674 1365 -1674 curveto stroke 1 setgray 1918 -1508 40 0 360 arc fill 1749 -1551 40 0 360 arc fill 0 setgray 1918 -1508 40 0 360 arc stroke 1749 -1551 40 0 360 arc stroke 1591 -1598 40 0 360 arc fill 1473 -1637 40 0 360 arc fill 1365 -1674 40 0 360 arc fill -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 7 10.0G 400 3600 translate 1903 -1446 moveto 1903 -1446 1723 -1429 1561 -1419 curveto 1440 -1417 1340 -1418 1259 -1421 curveto 1199 -1424 1199 -1424 1199 -1424 curveto stroke 1 setgray 1903 -1446 40 0 360 arc fill 1723 -1429 40 0 360 arc fill 0 setgray 1903 -1446 40 0 360 arc stroke 1723 -1429 40 0 360 arc stroke 1561 -1419 40 0 360 arc fill 1440 -1417 40 0 360 arc fill 1340 -1418 40 0 360 arc fill 1259 -1421 40 0 360 arc fill 1199 -1424 40 0 360 arc fill -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 8 5.0G 400 3600 translate 1901 -1392 moveto 1901 -1392 1718 -1328 1556 -1283 curveto 1429 -1255 1330 -1236 1247 -1224 curveto 1176 -1216 1176 -1216 1176 -1216 curveto stroke 1 setgray 1901 -1392 40 0 360 arc fill 1718 -1328 40 0 360 arc fill 0 setgray 1901 -1392 40 0 360 arc stroke 1718 -1328 40 0 360 arc stroke 1556 -1283 40 0 360 arc fill 1429 -1255 40 0 360 arc fill 1330 -1236 40 0 360 arc fill 1247 -1224 40 0 360 arc fill 1176 -1216 40 0 360 arc fill -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 910.0GY 400 3600 translate 1921 -1306 moveto 1921 -1306 1757 -1137 1611 -977 curveto 1496 -846 1496 -846 1496 -846 curveto stroke 1 setgray 1921 -1306 40 0 360 arc fill 1757 -1137 40 0 360 arc fill 1611 -977 40 0 360 arc fill 0 setgray 1921 -1306 40 0 360 arc stroke 1757 -1137 40 0 360 arc stroke 1611 -977 40 0 360 arc stroke 1496 -846 40 0 360 arc fill -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 10 5.0GY 400 3600 translate 1973 -1215 moveto 1973 -1215 1865 -966 1804 -778 curveto stroke 1 setgray 1973 -1215 40 0 360 arc fill 1865 -966 40 0 360 arc fill 0 setgray 1973 -1215 40 0 360 arc stroke 1865 -966 40 0 360 arc stroke 1804 -778 40 0 360 arc fill -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 11 10.0Y 400 3600 translate 2031 -1164 moveto 2031 -1164 1991 -905 1975 -739 curveto stroke 1 setgray 2031 -1164 40 0 360 arc fill 1991 -905 40 0 360 arc fill 0 setgray 2031 -1164 40 0 360 arc stroke 1991 -905 40 0 360 arc stroke 1975 -739 40 0 360 arc fill -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 12 5.0Y 400 3600 translate 2098 -1163 moveto 2098 -1163 2107 -913 2114 -747 curveto stroke 1 setgray 2098 -1163 40 0 360 arc fill 2107 -913 40 0 360 arc fill 0 setgray 2098 -1163 40 0 360 arc stroke 2107 -913 40 0 360 arc stroke 2114 -747 40 0 360 arc fill -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 1310.0YR 400 3600 translate 2176 -1200 moveto 2176 -1200 2239 -959 2275 -789 curveto stroke 1 setgray 2176 -1200 40 0 360 arc fill 2239 -959 40 0 360 arc fill 0 setgray 2176 -1200 40 0 360 arc stroke 2239 -959 40 0 360 arc stroke 2275 -789 40 0 360 arc fill -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 14 5.0YR 400 3600 translate 2237 -1255 moveto 2237 -1255 2367 -1038 2463 -864 curveto stroke 1 setgray 2237 -1255 40 0 360 arc fill 2367 -1038 40 0 360 arc fill 2463 -864 40 0 360 arc fill 0 setgray 2237 -1255 40 0 360 arc stroke 2367 -1038 40 0 360 arc stroke 2463 -864 40 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 15 10.0R 400 3600 translate 2284 -1318 moveto 2284 -1318 2472 -1152 2664 -983 curveto 2827 -840 2827 -840 2827 -840 curveto stroke 1 setgray 2284 -1318 40 0 360 arc fill 2472 -1152 40 0 360 arc fill 2664 -983 40 0 360 arc fill 2827 -840 40 0 360 arc fill 0 setgray 2284 -1318 40 0 360 arc stroke 2472 -1152 40 0 360 arc stroke 2664 -983 40 0 360 arc stroke 2827 -840 40 0 360 arc stroke -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 16 5.0R 400 3600 translate 2305 -1380 moveto 2305 -1380 2519 -1283 2760 -1189 curveto 3005 -1107 3272 -1033 3272 -1033 curveto stroke 1 setgray 2305 -1380 40 0 360 arc fill 2519 -1283 40 0 360 arc fill 2760 -1189 40 0 360 arc fill 0 setgray 2305 -1380 40 0 360 arc stroke 2519 -1283 40 0 360 arc stroke 2760 -1189 40 0 360 arc stroke 3005 -1107 40 0 360 arc fill 3272 -1033 40 0 360 arc fill -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 1710.0RP 400 3600 translate 2307 -1432 moveto 2307 -1432 2536 -1394 2785 -1365 curveto 3040 -1345 3337 -1325 3337 -1325 curveto stroke 1 setgray 2307 -1432 40 0 360 arc fill 2536 -1394 40 0 360 arc fill 2785 -1365 40 0 360 arc fill 0 setgray 2307 -1432 40 0 360 arc stroke 2536 -1394 40 0 360 arc stroke 2785 -1365 40 0 360 arc stroke 3040 -1345 40 0 360 arc fill 3337 -1325 40 0 360 arc fill -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 18 5.0RP 400 3600 translate 2301 -1489 moveto 2301 -1489 2531 -1511 2767 -1538 curveto 3016 -1568 3291 -1601 3592 -1638 curveto stroke 1 setgray 2301 -1489 40 0 360 arc fill 2531 -1511 40 0 360 arc fill 2767 -1538 40 0 360 arc fill 0 setgray 2301 -1489 40 0 360 arc stroke 2531 -1511 40 0 360 arc stroke 2767 -1538 40 0 360 arc stroke 3016 -1568 40 0 360 arc fill 3291 -1601 40 0 360 arc fill 3592 -1638 40 0 360 arc fill -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 19 10.0P 400 3600 translate 2281 -1556 moveto 2281 -1556 2486 -1649 2693 -1737 curveto 2915 -1823 3170 -1913 3433 -2000 curveto 3739 -2092 3739 -2092 3739 -2092 curveto stroke 1 setgray 2281 -1556 40 0 360 arc fill 2486 -1649 40 0 360 arc fill 2693 -1737 40 0 360 arc fill 0 setgray 2281 -1556 40 0 360 arc stroke 2486 -1649 40 0 360 arc stroke 2693 -1737 40 0 360 arc stroke 2915 -1823 40 0 360 arc fill 3170 -1913 40 0 360 arc fill 3433 -2000 40 0 360 arc fill 3739 -2092 40 0 360 arc fill -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 20 5.0P 400 3600 translate 2246 -1611 moveto 2246 -1611 2406 -1751 2580 -1880 curveto 2770 -2002 2983 -2123 3235 -2249 curveto 3527 -2377 3527 -2377 3527 -2377 curveto stroke 1 setgray 2246 -1611 40 0 360 arc fill 2406 -1751 40 0 360 arc fill 0 setgray 2246 -1611 40 0 360 arc stroke 2406 -1751 40 0 360 arc stroke 2580 -1880 40 0 360 arc fill 2770 -2002 40 0 360 arc fill 2983 -2123 40 0 360 arc fill 3235 -2249 40 0 360 arc fill 3527 -2377 40 0 360 arc fill -400 -3600 translate %ANF FANxyal3: MULYA=16000 BEO=02 LABHNU2 19IMAX+3 IXY0: 400 3600 21 C 400 3600 translate 2112 -1473 moveto 2112 -1473 2112 -1473 2112 -1473 curveto stroke 1 setgray 2112 -1473 40 0 360 arc fill 0 setgray 2112 -1473 40 0 360 arc stroke -400 -3600 translate 400 3600 translate 2080 -1438 40 0 360 arc fill -400 -3600 translate %ENDE: 5 %END-48 %END-47 %END-46 %END-45 %Platz für Text 800 3200 translate 1 setgray -700 -3100 moveto 2600 0 rlineto 0 1300 rlineto -2600 0 rlineto closepath fill 0 setgray -700 -3100 moveto 2600 0 rlineto 0 1300 rlineto -2600 0 rlineto closepath stroke 300 /Times-Italic FF -650 -2050 moveto (Munsell V=5) show 250 /Times-Italic FF -650 -2350 moveto 20 0 (a') ashow 250 /Times-I FF 20 0 (=1/15[) ashow 250 /Times-Italic FF 20 0 (x/y) ashow 250 /Times-I FF 20 0 (+1]) ashow 250 /Times-Italic FF -650 -2700 moveto 20 0 (b') ashow 250 /Times-I FF 20 0 (=-1/12[) ashow 250 /Times-Italic FF 20 0 (z/y) ashow 250 /Times-I FF 20 0 (+1/6]) ashow 200 /Times-I FF 0 120 rmoveto 20 0 (1/3) ashow 0 -120 rmoveto 300 /Times-Italic FF -650 -3050 moveto (LABHNU1 1979) show -800 -3200 translate %Platz ACHTUNG Kurvenüberschreibung grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %line 439 %!PS-Adobe-3.0 EPSF-3.0 JE441-2N %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark12 where {pop} {userdict /pdfmark12 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/JE44/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark12 [ /View [ /FitB ] /DOCVIEW pdfmark12 %END PDFDE011 % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%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 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 200 86 moveto (JE441-2) show % ( B8220_5, E8271-1, B4_14_4, N=4_14_4) show 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 1.0 setgray 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath clip 800 3200 translate 0 400 moveto 4000 0 rlineto stroke 0 400 moveto 0 -2100 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 300 /Times-ISOL1 FS 400 350 moveto 0 100 rlineto stroke 1200 350 moveto 0 100 rlineto stroke 2000 350 moveto 0 100 rlineto stroke 2800 350 moveto 0 100 rlineto stroke 3600 350 moveto 0 100 rlineto stroke 100 500 moveto (0,05) show 900 500 moveto (0,10) show 1700 500 moveto (0,15) show 2500 500 moveto (0,20) show 3300 500 moveto (0,25) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 400 moveto 100 0 rlineto stroke -50 -400 moveto 100 0 rlineto stroke -50 -1200 moveto 100 0 rlineto stroke % -50 -2000 moveto 100 0 rlineto stroke % -50 -2800 moveto 100 0 rlineto stroke -775 300 moveto ( 0,00) show -775 -500 moveto (-0,05) show -775 -1250 moveto (-0,10) show % -775 -2100 moveto (-0,15) show /nshow {350 /Times-ISOL1 FS show} bind def /kshow {350 /TimesI-ISOL1 FS show} bind def /ishow {280 /Times-ISOL1 FS -25 -125 rmoveto show 25 125 rmoveto} bind def /jshow {280 /Times-ISOL1 FS -125 -125 rmoveto show 25 125 rmoveto} bind def /nshow2 {300 /Times-ISOL1 FS show} bind def /kshow2 {300 /TimesI-ISOL1 FS show} bind def /ishow2 {250 /Times-ISOL1 FS -20 -100 rmoveto show -20 100 rmoveto} bind def /jshow2 {250 /Times-ISOL1 FS -120 -100 rmoveto show -20 100 rmoveto} bind def /nshow3 {250 /Times-ISOL1 FS 20 0 3 -1 roll ashow} bind def /kshow3 {250 /TimesI-ISOL1 FS 20 0 3 -1 roll ashow} bind def /ishow3 {200 /Times-ISOL1 FS -15 -80 rmoveto 20 0 3 -1 roll ashow 15 80 rmoveto} bind def /jshow3 {200 /Times-ISOL1 FS -115 -80 rmoveto 20 0 3 -1 roll ashow 15 80 rmoveto} bind def /eshow3 {200 /Times-ISOL1 FS 0 120 rmoveto 20 0 3 -1 roll ashow 0 -120 rmoveto} bind def -730 -1600 moveto (b') kshow (10) jshow 4000 200 moveto (a') kshow (10) jshow -800 -3200 translate %1000 10 **************************************** %ANF PROZSPEP.FOR: MULYA=16000 BEO=10 LABHNU2 1979 IXY0: 400 3600 400 3600 translate % 11238 -4674 moveto % 11238 -4674 11333 -4702 11389 -4729 curveto % 11438 -4763 11264 -4764 10637 -4694 curveto % 9745 -4572 8759 -4419 7659 -4226 curveto % 6588 -4015 5486 -3762 4508 -3497 curveto 5486 -3762 moveto 5486 -3762 5486 -3762 4508 -3497 curveto 3581 -3196 2840 -2905 2193 -2584 curveto 1708 -2257 1405 -1967 1213 -1702 curveto 1117 -1488 1080 -1302 1075 -1149 curveto 1097 -1033 1132 -940 1177 -879 curveto 1231 -835 1290 -803 1354 -781 curveto 1417 -765 1484 -754 1557 -745 curveto 1636 -739 1724 -735 1820 -733 curveto 1928 -733 2047 -733 2175 -733 curveto 2311 -733 2454 -733 2601 -733 curveto 2746 -733 2887 -733 3022 -733 curveto 3148 -733 3262 -733 3361 -733 curveto 3438 -733 3502 -733 3567 -733 curveto 3627 -733 3681 -733 3726 -733 curveto 3750 -733 3766 -733 3780 -733 curveto 3792 -733 3800 -733 3807 -733 curveto 3809 -733 3811 -733 3813 -733 curveto 3821 -733 3813 -733 4065 -1559 curveto 4165 -1728 4230 -1829 4293 -1907 curveto 4333 -1963 4382 -2016 4435 -2072 curveto 4492 -2132 4566 -2199 4650 -2278 curveto 4769 -2382 4972 -2532 5346 -2774 curveto % 6292 -3249 14105 -5208 11258 -4677 curveto stroke 1 setgray % 11238 -4674 30 0 360 arc fill % 400 % 10637 -4694 30 0 360 arc fill % 425 5486 -3762 30 0 360 arc fill % 450 1708 -2257 30 0 360 arc fill % 475 1075 -1149 30 0 360 arc fill % 500 1290 -803 30 0 360 arc fill % 525 1636 -739 30 0 360 arc fill % 550 2175 -733 30 0 360 arc fill % 575 2887 -733 30 0 360 arc fill % 600 3438 -733 30 0 360 arc fill % 625 3726 -733 30 0 360 arc fill % 650 3800 -733 30 0 360 arc fill % 675 3821 -733 30 0 360 arc fill % 700 4165 -1728 30 0 360 arc fill %500c 4435 -2072 30 0 360 arc fill %525c % 4972 -2532 30 0 360 arc fill %550c 0 setgray % 11238 -4674 30 0 360 arc stroke % 400 % 10637 -4694 30 0 360 arc stroke % 425 5486 -3762 30 0 360 arc stroke % 450 1708 -2257 30 0 360 arc stroke % 475 1075 -1149 30 0 360 arc stroke % 500 1290 -803 30 0 360 arc stroke % 525 1636 -739 30 0 360 arc stroke % 550 2175 -733 30 0 360 arc stroke % 575 2887 -733 30 0 360 arc stroke % 600 3438 -733 30 0 360 arc stroke % 625 3726 -733 30 0 360 arc stroke % 650 3800 -733 30 0 360 arc stroke % 675 3821 -733 30 0 360 arc stroke % 700 4165 -1728 30 0 360 arc stroke %500c 4435 -2072 30 0 360 arc stroke %525c % 4972 -2532 30 0 360 arc stroke %550c 2077 -1432 30 0 360 arc fill %D65 0 setgray 250 /TimesI-ISOL1 FS % 11238 600 sub -4674 100 sub moveto (400) show % 10637 600 sub -4694 100 sub moveto (425) show % 5486 600 sub -3762 100 sub moveto (450) show % 1708 50 sub -2257 150 add moveto (475) show 1075 450 sub -1149 100 sub moveto (500) show 1290 300 sub -803 100 add moveto (525) show 1636 200 sub -739 100 add moveto (550) show 2175 200 sub -733 100 add moveto (575) show 2887 200 sub -733 100 add moveto (600) show 3438 200 sub -733 100 add moveto (625) show % 3726 200 sub -733 100 add moveto (650) show % 3800 200 sub -733 100 add moveto (675) show 3821 100 add -733 moveto (700) show 4165 50 add -1728 50 add moveto (500c) show 4435 20 sub -2072 100 add moveto (525c) show % 4972 100 add -2532 100 sub moveto (550c) show % 2077 100 add -1432 100 sub moveto (D65 ) show -400 -3600 translate %ENDE: 5 %1000 10 16 01 16 01 00 JA JA JA 01 ******************** % 16 F39O0.DAT (0 fŸr L=0) 20.4.93 %ANF FANXYAL: MULYA=16000 BEO=10 LABHNU2 19IMAX+3 IXY0: 400 3600 1OSA78 400 3600 translate 2182 -1779 moveto 2182 -1779 2074 -1786 2074 -1786 curveto stroke 1 setgray 2182 -1779 40 0 360 arc fill 2074 -1786 40 0 360 arc fill 0 setgray 2182 -1779 40 0 360 arc stroke 2074 -1786 40 0 360 arc stroke -400 -3600 translate %ANF FANXYAL: MULYA=16000 BEO=10 LABHNU2 19IMAX+3 IXY0: 400 3600 2OSA78 400 3600 translate 2245 -1654 moveto 2245 -1654 2134 -1661 2026 -1668 curveto 1921 -1674 1921 -1674 1921 -1674 curveto stroke 1 setgray 2245 -1654 40 0 360 arc fill 2134 -1661 40 0 360 arc fill 2026 -1668 40 0 360 arc fill 1921 -1674 40 0 360 arc fill 0 setgray 2245 -1654 40 0 360 arc stroke 2134 -1661 40 0 360 arc stroke 2026 -1668 40 0 360 arc stroke 1921 -1674 40 0 360 arc stroke -400 -3600 translate %ANF FANXYAL: MULYA=16000 BEO=10 LABHNU2 19IMAX+3 IXY0: 400 3600 3OSA78 400 3600 translate 2327 -1530 moveto 2327 -1530 2212 -1538 2100 -1546 curveto 1991 -1552 1885 -1558 1885 -1558 curveto stroke 1 setgray 2327 -1530 40 0 360 arc fill 2212 -1538 40 0 360 arc fill 2100 -1546 40 0 360 arc fill 1991 -1552 40 0 360 arc fill 1885 -1558 40 0 360 arc fill 0 setgray 2327 -1530 40 0 360 arc stroke 2212 -1538 40 0 360 arc stroke 2100 -1546 40 0 360 arc stroke 1991 -1552 40 0 360 arc stroke 1885 -1558 40 0 360 arc stroke -400 -3600 translate %ANF FANXYAL: MULYA=16000 BEO=10 LABHNU2 19IMAX+3 IXY0: 400 3600 4OSA78 400 3600 translate 2548 -1393 moveto 2548 -1393 2425 -1405 2306 -1416 curveto 2190 -1424 2077 -1432 1969 -1438 curveto 1861 -1443 1757 -1447 1757 -1447 curveto stroke 1 setgray 2548 -1393 40 0 360 arc fill 2425 -1405 40 0 360 arc fill 2306 -1416 40 0 360 arc fill 2190 -1424 40 0 360 arc fill 2077 -1432 40 0 360 arc fill 1969 -1438 40 0 360 arc fill 1861 -1443 40 0 360 arc fill 1757 -1447 40 0 360 arc fill 0 setgray 2548 -1393 40 0 360 arc stroke 2425 -1405 40 0 360 arc stroke 2306 -1416 40 0 360 arc stroke 2190 -1424 40 0 360 arc stroke 2077 -1432 40 0 360 arc stroke 1969 -1438 40 0 360 arc stroke 1861 -1443 40 0 360 arc stroke 1757 -1447 40 0 360 arc stroke -400 -3600 translate %ANF FANXYAL: MULYA=16000 BEO=10 LABHNU2 19IMAX+3 IXY0: 400 3600 5OSA78 400 3600 translate 2542 -1277 moveto 2542 -1277 2417 -1290 2295 -1301 curveto 2178 -1311 2065 -1319 1955 -1325 curveto 1847 -1329 1741 -1333 1741 -1333 curveto stroke 1 setgray 2542 -1277 40 0 360 arc fill 2417 -1290 40 0 360 arc fill 2295 -1301 40 0 360 arc fill 2178 -1311 40 0 360 arc fill 2065 -1319 40 0 360 arc fill 1955 -1325 40 0 360 arc fill 1847 -1329 40 0 360 arc fill 1741 -1333 40 0 360 arc fill 0 setgray 2542 -1277 40 0 360 arc stroke 2417 -1290 40 0 360 arc stroke 2295 -1301 40 0 360 arc stroke 2178 -1311 40 0 360 arc stroke 2065 -1319 40 0 360 arc stroke 1955 -1325 40 0 360 arc stroke 1847 -1329 40 0 360 arc stroke 1741 -1333 40 0 360 arc stroke -400 -3600 translate %ANF FANXYAL: MULYA=16000 BEO=10 LABHNU2 19IMAX+3 IXY0: 400 3600 6OSA78 400 3600 translate 2547 -1158 moveto 2547 -1158 2418 -1173 2295 -1186 curveto 2176 -1196 2062 -1204 1951 -1211 curveto 1842 -1215 1734 -1216 1734 -1216 curveto stroke 1 setgray 2547 -1158 40 0 360 arc fill 2418 -1173 40 0 360 arc fill 2295 -1186 40 0 360 arc fill 2176 -1196 40 0 360 arc fill 2062 -1204 40 0 360 arc fill 1951 -1211 40 0 360 arc fill 1842 -1215 40 0 360 arc fill 1734 -1216 40 0 360 arc fill 0 setgray 2547 -1158 40 0 360 arc stroke 2418 -1173 40 0 360 arc stroke 2295 -1186 40 0 360 arc stroke 2176 -1196 40 0 360 arc stroke 2062 -1204 40 0 360 arc stroke 1951 -1211 40 0 360 arc stroke 1842 -1215 40 0 360 arc stroke 1734 -1216 40 0 360 arc stroke -400 -3600 translate %ANF FANXYAL: MULYA=16000 BEO=10 LABHNU2 19IMAX+3 IXY0: 400 3600 7OSA78 400 3600 translate 2562 -1035 moveto 2562 -1035 2430 -1052 2303 -1066 curveto 2182 -1078 2066 -1087 1954 -1093 curveto 1844 -1096 1844 -1096 1844 -1096 curveto stroke 1 setgray 2562 -1035 40 0 360 arc fill 2430 -1052 40 0 360 arc fill 2303 -1066 40 0 360 arc fill 2182 -1078 40 0 360 arc fill 2066 -1087 40 0 360 arc fill 1954 -1093 40 0 360 arc fill 1844 -1096 40 0 360 arc fill 0 setgray 2562 -1035 40 0 360 arc stroke 2430 -1052 40 0 360 arc stroke 2303 -1066 40 0 360 arc stroke 2182 -1078 40 0 360 arc stroke 2066 -1087 40 0 360 arc stroke 1954 -1093 40 0 360 arc stroke 1844 -1096 40 0 360 arc stroke -400 -3600 translate %ANF FANXYAL: MULYA=16000 BEO=10 LABHNU2 19IMAX+3 IXY0: 400 3600 8OSA78 400 3600 translate 2589 -906 moveto 2589 -906 2451 -924 2320 -940 curveto 2196 -953 2078 -963 1964 -969 curveto 1852 -971 1852 -971 1852 -971 curveto stroke 1 setgray 2589 -906 40 0 360 arc fill 2451 -924 40 0 360 arc fill 2320 -940 40 0 360 arc fill 2196 -953 40 0 360 arc fill 2078 -963 40 0 360 arc fill 1964 -969 40 0 360 arc fill 1852 -971 40 0 360 arc fill 0 setgray 2589 -906 40 0 360 arc stroke 2451 -924 40 0 360 arc stroke 2320 -940 40 0 360 arc stroke 2196 -953 40 0 360 arc stroke 2078 -963 40 0 360 arc stroke 1964 -969 40 0 360 arc stroke 1852 -971 40 0 360 arc stroke -400 -3600 translate %ANF FANXYAL: MULYA=16000 BEO=10 LABHNU2 19IMAX+3 IXY0: 400 3600 9OSA78 400 3600 translate 2548 -1393 moveto 2548 -1393 2542 -1277 2547 -1158 curveto 2562 -1035 2589 -906 2589 -906 curveto stroke 1 setgray 2548 -1393 40 0 360 arc fill 2542 -1277 40 0 360 arc fill 2547 -1158 40 0 360 arc fill 2562 -1035 40 0 360 arc fill 2589 -906 40 0 360 arc fill 0 setgray 2548 -1393 40 0 360 arc stroke 2542 -1277 40 0 360 arc stroke 2547 -1158 40 0 360 arc stroke 2562 -1035 40 0 360 arc stroke 2589 -906 40 0 360 arc stroke -400 -3600 translate %ANF FANXYAL: MULYA=16000 BEO=10 LABHNU2 19IMAX+3 IXY0: 400 3600 10OSA78 400 3600 translate 2425 -1405 moveto 2425 -1405 2417 -1290 2418 -1173 curveto 2430 -1052 2451 -924 2451 -924 curveto stroke 1 setgray 2425 -1405 40 0 360 arc fill 2417 -1290 40 0 360 arc fill 2418 -1173 40 0 360 arc fill 2430 -1052 40 0 360 arc fill 2451 -924 40 0 360 arc fill 0 setgray 2425 -1405 40 0 360 arc stroke 2417 -1290 40 0 360 arc stroke 2418 -1173 40 0 360 arc stroke 2430 -1052 40 0 360 arc stroke 2451 -924 40 0 360 arc stroke -400 -3600 translate %ANF FANXYAL: MULYA=16000 BEO=10 LABHNU2 19IMAX+3 IXY0: 400 3600 11OSA78 400 3600 translate 2327 -1530 moveto 2327 -1530 2306 -1416 2295 -1301 curveto 2295 -1186 2303 -1066 2320 -940 curveto stroke 1 setgray 2327 -1530 40 0 360 arc fill 2306 -1416 40 0 360 arc fill 2295 -1301 40 0 360 arc fill 2295 -1186 40 0 360 arc fill 2303 -1066 40 0 360 arc fill 2320 -940 40 0 360 arc fill 0 setgray 2327 -1530 40 0 360 arc stroke 2306 -1416 40 0 360 arc stroke 2295 -1301 40 0 360 arc stroke 2295 -1186 40 0 360 arc stroke 2303 -1066 40 0 360 arc stroke 2320 -940 40 0 360 arc stroke -400 -3600 translate %ANF FANXYAL: MULYA=16000 BEO=10 LABHNU2 19IMAX+3 IXY0: 400 3600 12OSA78 400 3600 translate 2245 -1654 moveto 2245 -1654 2212 -1538 2190 -1424 curveto 2178 -1311 2176 -1196 2182 -1078 curveto 2196 -953 2196 -953 2196 -953 curveto stroke 1 setgray 2245 -1654 40 0 360 arc fill 2212 -1538 40 0 360 arc fill 2190 -1424 40 0 360 arc fill 2178 -1311 40 0 360 arc fill 2176 -1196 40 0 360 arc fill 2182 -1078 40 0 360 arc fill 2196 -953 40 0 360 arc fill 0 setgray 2245 -1654 40 0 360 arc stroke 2212 -1538 40 0 360 arc stroke 2190 -1424 40 0 360 arc stroke 2178 -1311 40 0 360 arc stroke 2176 -1196 40 0 360 arc stroke 2182 -1078 40 0 360 arc stroke 2196 -953 40 0 360 arc stroke -400 -3600 translate %ANF FANXYAL: MULYA=16000 BEO=10 LABHNU2 19IMAX+3 IXY0: 400 3600 13OSA78 400 3600 translate 2182 -1779 moveto 2182 -1779 2134 -1661 2100 -1546 curveto 2077 -1432 2065 -1319 2062 -1204 curveto 2066 -1087 2078 -963 2078 -963 curveto stroke 1 setgray 2182 -1779 40 0 360 arc fill 2134 -1661 40 0 360 arc fill 2100 -1546 40 0 360 arc fill 2077 -1432 40 0 360 arc fill 2065 -1319 40 0 360 arc fill 2062 -1204 40 0 360 arc fill 2066 -1087 40 0 360 arc fill 2078 -963 40 0 360 arc fill 0 setgray 2182 -1779 40 0 360 arc stroke 2134 -1661 40 0 360 arc stroke 2100 -1546 40 0 360 arc stroke 2077 -1432 40 0 360 arc stroke 2065 -1319 40 0 360 arc stroke 2062 -1204 40 0 360 arc stroke 2066 -1087 40 0 360 arc stroke 2078 -963 40 0 360 arc stroke -400 -3600 translate %ANF FANXYAL: MULYA=16000 BEO=10 LABHNU2 19IMAX+3 IXY0: 400 3600 14OSA78 400 3600 translate 2074 -1786 moveto 2074 -1786 2026 -1668 1991 -1552 curveto 1969 -1438 1955 -1325 1951 -1211 curveto 1954 -1093 1964 -969 1964 -969 curveto stroke 1 setgray 2074 -1786 40 0 360 arc fill 2026 -1668 40 0 360 arc fill 1991 -1552 40 0 360 arc fill 1969 -1438 40 0 360 arc fill 1955 -1325 40 0 360 arc fill 1951 -1211 40 0 360 arc fill 1954 -1093 40 0 360 arc fill 1964 -969 40 0 360 arc fill 0 setgray 2074 -1786 40 0 360 arc stroke 2026 -1668 40 0 360 arc stroke 1991 -1552 40 0 360 arc stroke 1969 -1438 40 0 360 arc stroke 1955 -1325 40 0 360 arc stroke 1951 -1211 40 0 360 arc stroke 1954 -1093 40 0 360 arc stroke 1964 -969 40 0 360 arc stroke -400 -3600 translate %ANF FANXYAL: MULYA=16000 BEO=10 LABHNU2 19IMAX+3 IXY0: 400 3600 15OSA78 400 3600 translate 1921 -1674 moveto 1921 -1674 1885 -1558 1861 -1443 curveto 1847 -1329 1842 -1215 1844 -1096 curveto 1852 -971 1852 -971 1852 -971 curveto stroke 1 setgray 1921 -1674 40 0 360 arc fill 1885 -1558 40 0 360 arc fill 1861 -1443 40 0 360 arc fill 1847 -1329 40 0 360 arc fill 1842 -1215 40 0 360 arc fill 1844 -1096 40 0 360 arc fill 1852 -971 40 0 360 arc fill 0 setgray 1921 -1674 40 0 360 arc stroke 1885 -1558 40 0 360 arc stroke 1861 -1443 40 0 360 arc stroke 1847 -1329 40 0 360 arc stroke 1842 -1215 40 0 360 arc stroke 1844 -1096 40 0 360 arc stroke 1852 -971 40 0 360 arc stroke -400 -3600 translate %ANF FANXYAL: MULYA=16000 BEO=10 LABHNU2 19IMAX+3 IXY0: 400 3600 16OSA78 400 3600 translate 1757 -1447 moveto 1757 -1447 1741 -1333 1734 -1216 curveto stroke 1 setgray 1757 -1447 40 0 360 arc fill 1741 -1333 40 0 360 arc fill 1734 -1216 40 0 360 arc fill 0 setgray 1757 -1447 40 0 360 arc stroke 1741 -1333 40 0 360 arc stroke 1734 -1216 40 0 360 arc stroke -400 -3600 translate 400 3600 translate 2077 -1432 40 0 360 arc fill -400 -3600 translate %ENDE: 5 %END-68 %END-67 %END-66 %END-65 %END-64 %END-63 %END-62 %Platz fŸr Text 800 3200 translate 1 setgray -700 -3100 moveto 3525 0 rlineto 0 1300 rlineto -3525 0 rlineto closepath fill 0 setgray -700 -3100 moveto 3525 0 rlineto 0 1300 rlineto -3525 0 rlineto closepath stroke -650 -2050 moveto (OSA ) nshow2 (L*) kshow2 ( = 0) nshow2 -650 -2350 moveto (a') kshow3 (10) jshow3 (=[) nshow3 (x) kshow3 (10) ishow3 (/) nshow3 (y) kshow3 (10) ishow3 ( + 1 ]) nshow3 ( /) nshow3 250 /Times-ISOL1 FS (15) show -650 -2700 moveto (b') kshow3 (10) jshow3 (=-[) nshow3 (z) kshow3 (10) ishow3 (/) nshow3 (y) kshow3 (10) ishow3 ( + 1/6 ]) nshow3 (1/3) eshow3 ( /) nshow3 250 /Times-ISOL1 FS (12) show -650 -3050 moveto (LABHNU1 1979) nshow2 -800 -3200 translate %Platz ACHTUNG KurvenŸberschreibung showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %line 449 %!PS-Adobe-3.0 EPSF-3.0 JE441-3, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE441-3,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%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 JE441-4, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE441-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%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 JE441-5, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE441-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%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 JE441-6, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE441-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%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 JE441-7 %%BoundingBox: 70 84 380 330 %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/JE44/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark17 [ /View [ /FitB ] /DOCVIEW pdfmark17 %END PDFDE011 % 113mm = 113*72/25.4 = 320; 320+72 = 392 % 60mm = 60*72/25.4 = 176; 170+90+8 = 268 % !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 %%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 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 340 85 moveto ( JE441-7 ) show %(relation of linear colour data: CIEXYZ - XYZ*YAB) showen %(Zusammenhang von linearen Farbdaten: CIEXYZ - XYZ*YAB) showde 72 90 translate /yhoe 8750 def 0.0095 MM dup scale %d2:[rr.b4f]bausz8y.eps 15 setlinewidth 0.0 0.0 0.0 0.0 setcmykcolor 0 0 moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto closepath stroke 0 yhoe 500 sub moveto 11200 0 rlineto stroke /tedef {/anz exch def /ydt exch def /y0t exch def /x0t exch def} bind def /ns {350 /Times-ISOL1 FS show} bind def /ks {350 /TimesI-ISOL1 FS show} bind def /bs {350 /TimesB-ISOL1 FS show} bind def /js {350 /TimesBI-ISOL1 FS show} bind def /ss {350 /Symbol FS show} bind def /is {250 /Times-ISOL1 FS 0 -90 rlineto show 0 90 rlineto} bind def /es {250 /Times-ISOL1 FS 0 200 rlineto show 0 -200 rlineto} bind def /TEn {350 /Times-ISOL1 FS tedef} bind def /TEk {350 /TimesI-ISOL1 FS tedef} bind def /TEb {350 /TimesB-ISOL1 FS tedef} bind def /TEj {350 /TimesBI-ISOL1 FS tedef} bind def /TEs {350 /Symbol FS tedef} bind def %20% kleiner /ns2 {280 /Times-ISOL1 FS show} bind def /ks2 {280 /TimesI-ISOL1 FS show} bind def /bs2 {280 /TimesB-ISOL1 FS show} bind def /js2 {280 /TimesBI-ISOL1 FS show} bind def /is2 {200 /Times-ISOL1 FS 10 -40 rlineto show -10 40 rlineto} bind def /iks2 {200 /TimesI-ISOL1 FS 10 -40 rlineto show -10 40 rlineto} bind def /es2 {250 /Times-ISOL1 FS 0 160 rlineto show 0 -160 rlineto} bind def /TEn2 {280 /Times-ISOL1 FS tedef} bind def /TEk2 {280 /TimesI-ISOL1 FS tedef} bind def /TEb2 {280 /TimesB-ISOL1 FS tedef} bind def /TEj2 {280 /TimesBI-ISOL1 FS tedef} bind def /TEs2 {280 /Symbol FS tedef} bind def /TEA {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto show} for} bind def /yd -550 def %y-Zeilenabstand %Spalten /S1 150 def /S2 300 def /S3 2750 def /S4 8500 def /yz 550 def /yu0 0 def /yu1 {yu0 -100 add yz 4 mul add} bind def /yu2 {yu1 000 add yz 0 mul add} bind def /yu3 {yu2 100 add yz 6.3 mul add} bind def /yu4 {yu3 100 add yz 1.7 mul add} bind def /yu5 {yu4 000 add yz 2 mul add} bind def /yu6 {yu5 100 add yz 1 mul add} bind def %Titeltext S1 yu6 moveto (Farbvalenzmetrik ) popde %08611-7 1 ((Farbdaten: lineare Beziehung zu Daten CIE 1931)) popde %08611-7 11 (color valence metric ) popen %18611-7 1 ((color data: linear relation to CIE 1931 data)) popen %18611-7 11 (Valor del color ) popes %28611-7 1 ((Coordenadas lineales )) popes %28611-7 11 (color valence metrics terms ) popfr %38611-7 1 ((color values: linear coordinates)) popfr %38611-7 11 (color valence metrics terms ) popit %48611-7 1 ((color values: linear coordinates)) popit %48611-7 11 (color valence metrics terms ) popjp %58611-7 1 ((color values: linear coordinates)) popjp %58611-7 11 exch bs bs S1 yu5 yd 1 TEb (lineare) popde %08620-7 2 (linear ) popen %18620-7 2 (vista del ) popes %28620-7 2 (percieved ) popfr %38620-7 2 (percieved ) popit %48620-7 2 (percieved ) popjp %58620-7 2 TEA S1 yu5 400 sub moveto (Farbgr\366\337en) popde %08620-7 3 (color terms) popen %18620-7 3 (color) popes %28620-7 3 (color terms) popfr %38620-7 3 (color terms) popit %48620-7 3 (color terms) popjp %58620-7 3 bs S3 yu5 yd 1 TEb (Bezeichnung und Zusammenhang) popde %08620-7 4 (name and relationship to CIE) popen %18620-7 4 (Nombre y contexto) popes %28620-7 4 (name and relationship with) popfr %38620-7 4 (name and relationship with) popit %48620-7 4 (name and relationship with) popjp %58620-7 4 TEA S3 yu5 400 sub moveto (mit Normfarbwerten / \255anteilen) popde %08620-7 5 (tristimulues or chromaticity values) popen %18620-7 5 (con CIE standard cromaticos) popes %28620-7 5 (standard chromaticity values) popfr %38620-7 5 (standard chromaticity values) popit %48620-7 5 (standard chromaticity values) popjp %58620-7 5 bs S4 yu5 yd 1 TEb (Bemerkungen:) popde %08611-7 6 (notes:) popen %18611-7 6 (Notas:) popes %28611-7 6 (notes:) popfr %38611-7 6 (notes:) popit %48611-7 6 (notes:) popjp %58611-7 6 TEA S4 yu3 yd 2 TEk () (n=D65 \050Umfeld\051) 2 popxde () (n=D65 \050backgr.\051) 2 popxen () (n=D65 \050backgr.\051) 2 popxes () (n=D65 \050backgr.\051) 2 popxfr () (n=D65 \050backgr.\051) 2 popxit () (n=D65 \050backgr.\051) 2 popxjp TEA S1 yu4 yd 1 TEb (Hellbezugswert) popde %08611-7 7 (luminous value) popen %18611-7 7 (val. acromaticos) popes %28611-7 7 (luminous value) popfr %38611-7 7 (luminous value) popit %48611-7 7 (luminous value) popjp %58611-7 7 TEA S3 yu4 moveto (Y) ks ( = ) ns (y) ks ( \050 ) ns (X + Y + Z) ks ( \051) ns S1 yu3 yd 1 TEb (Buntwert) popde %08611-7 9 (chromatic value ) popen %18611-7 9 (val. cromaticos ) popes %28611-7 9 (chromatic value ) popfr %38611-7 9 (chromatic value ) popit %48611-7 9 (chromatic value ) popjp %58611-7 9 TEA S3 yu3 yd 1 TEk ( f\374r lineares Buntwertdiagramm (A, B)) popde %08611-710 ( for linear chromatic value diagram (A, B)) popen %18611-710 ( para el diagrama lineal (A, B)) popes %28611-710 ( for linear chromatic value diagram (A, B)) popfr %38611-710 ( for linear chromatic value diagram (A, B)) popit %48611-710 ( for linear chromatic value diagram (A, B)) popjp %58611-710 TEA S2 yu3 yd 7 TEn () (Rot-Gr\374n) () (Gelb-Blau) () (radial) () 7 popxde %08611-712 () (red-green) () (yellow-blue) () (radial) () 7 popxen %18611-712 () (Rojo-Verde) () (Amarillo-Azul) () (radial) () 7 popxes %28611-712 () (red-green) () (yellow-blue) () (radial) () 7 popxfr %38611-712 () (red-green) () (yellow-blue) () (radial) () 7 popxit %48611-712 () (red-green) () (yellow-blue) () (radial) () 7 popxjp %58611-712 TEA S3 yu3 yd 1 mul add moveto (A) ks ( = [ ) ns (X / Y) ks ( - ) ns (X) ks (n) is ( / Y) ks (n) is ( ] ) ns (Y) ks ( = [ ) ns (a) ks ( - ) ns (a) ks (n) is ( ] ) ns (Y) ks S3 yu3 yd 2 mul add moveto ( = [ ) ns (x / y) ks ( - ) ns (x) ks (n) is ( / y) ks (n) is ( ] ) ns (Y) ks S3 yu3 yd 3 mul add moveto (B) ks ( = - 0,4 [ ) ns (Z / Y) ks (-) ns (Z) ks (n) is ( / Y) ks (n) is ( ] ) ns (Y) ks ( = [ ) ns (b) ks ( - ) ns (b) ks (n) is ( ] ) ns (Y) ks S3 yu3 yd 4 mul add moveto ( = - 0,4 [ ) ns (z / y) ks ( - ) ns (z) ks (n) is ( / y) ks (n) is ( ] ) ns (Y) ks S3 yu3 yd 5 mul add moveto (C) ks (ab) is ( = [ ) ns (A) ks (2) es ( + ) ns (B) ks (2) es ( ] ) ns (1/2) es S1 yu1 yd 1 TEb (Farbartwert) popde %08611-717 (chromaticity) popen %18611-717 (Valor tipo color ) popes %28611-717 (chromaticity value ) popfr %38611-717 (chromaticity value ) popit %48611-717 (chromaticity value ) popjp %58611-717 TEA S3 yu1 yd 1 TEk (f\374r lineare Farbtafel (a, b)) popde %08611-718 (for (linear) chromaticity diagram (a, b)) popen %18611-718 ( para color lineal-tablero (a, b)) popes %28611-718 ( for linear chromaticity diagram (a, b)) popfr %38611-718 ( for linear chromaticity diagram (a, b)) popit %48611-718 ( for linear chromaticity diagram (a, b)) popjp %58611-718 TEA S4 yu1 yd 2 TEk (vergleiche lineare) (Zapfens\344ttigung) 2 popxde (compare to linear) (cone excitation) 2 popxen (Definicion) (sistema opuesto) (de color) 3 popxes %28620-719 (definition) (opponent) ( color system) 3 popxfr %38620-719 (definition) (opponent) ( color system) 3 popxit %48620-719 (definition) (opponent) ( color system) 3 popxjp %58620-719 TEA /tfo {1 0 0 setrgbcolor} def /tfl {0 1 0 setrgbcolor} def /tfv {0 0 1 setrgbcolor} def /tfn {0 setgray} def 350 /TimesBI-ISOL1 FS S4 yu1 yd 2 mul add moveto tfo (P) show tfn (/\050) show tfo (P) show tfn (+) show tfl (D) show tfn (\051) show tfn (=) show tfo (L) show tfn (/\050) show tfo (L) show tfn (+) show tfl (M) show tfn (\051) show S4 yu1 yd 3 mul add moveto tfv (T) show tfn (/\050) show tfo (P) show tfn (+) show tfl (D) show tfn (\051) show tfn (=) show tfv (S) show tfn (/\050) show tfo (L) show tfn (+) show tfl (M) show tfn (\051) show S2 yu1 yd 4 TEn () (Rot-Gr\374n) (Gelb-Blau) (radial) 4 popxde %08611-720 () (red-green) (yellow-blue) (radial) 4 popxen %18611-720 () (Rojo-Verde) (Amarillo-Azul) (radial) 4 popxes %28611-720 () (red-green) (yellow-blue) (radial) 4 popxfr %38611-720 () (red-green) (yellow-blue) (radial) 4 popxit %48611-720 () (red-green) (yellow-blue) (radial) 4 popxjp %58611-720 TEA S3 yu1 yd 1 mul add moveto (a) ks ( = ) ns (X / Y) ks ( = ) ns (x / y ) ks S3 yu1 yd 2 mul add moveto (b) ks ( = - 0,4 [) ns (Z / Y) ks ( ]) ns ( = - 0,4 [) ns (z / y) ks ( ]) ns S3 yu1 yd 3 mul add moveto (c) ks (ab) is ( = [ \050 ) ns (a - a) ks (n) is ( \051) ns (2) es ( + \050 ) ns (b - b) ks (n) is ( \051) ns (2) es ( ]) ns (1/2) es showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 28 %line 499 %!PS-Adobe-3.0 EPSF-3.0 JE441-8, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (JE441-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20070101 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /i*ptrsc where {pop %/i*ptrsc i*ptrsc def } {/i*ptrsc 0 def} ifelse gsave /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse /scountg where {pop /scount scountg def} {/scount 1 def} ifelse %xchart 0 eq {%beg if xchart=0 0 setgray 1.0 1.0 scale 0.0 MM 0.0 MM translate 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] def /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzccmy0* setcmykcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmcmy0* setcmykcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzycmy0* setcmykcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzocmy0* setcmykcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlcmy0* setcmykcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvcmy0* setcmykcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %j=16,20 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def 0 1 3 {/ij exch def %ij=0,3 ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor j 16 eq {tzan j get dup dup 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tzan j get dup dup 0 setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=0,2 i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub dup dup setrgbcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=1,3 i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5 [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=4,5 i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor j 16 eq {0 0 0 tzan j get setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 0 0 0 tzan j get setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {1 tzan j get sub setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub setgray ix0 iy0 s s rec fill } if %i*ptrsc=7 } for %ij=0,3 } for %j=16,20 0 setgray 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 0 setgray 12 /Times-ISOL1 FS 61 MM 13 MM moveto (TUB\255Pr\374fvorlage Nr. JE44; Farb\255 und Farbarttafeln) showde (TUB\255test chart no. JE44; Colour and chromaticity diagrams) showen 12 /Times-ISOL1 FS 61 MM 09 MM moveto (Munsell\255/OSA\255/CIE\255Farben, Farbmetrische Gleichungen) showde (Munsell/OSA/CIE colours; colorimetric equations) showen 12 /Times-ISOL1 FS 172 MM 13 MM moveto (input: ) showen (Eingabe: ) showde 12 /TimesI-ISOL1 FS (rgb setrgbcolor) show 12 /Times-ISOL1 FS 172 MM 9 MM moveto (output: ) showen (Ausgabe: ) showde LSC$ (N) eq {%LSC$=N 12 /Times-ISOL1 FS (no change compared to input) showen (keine Eingabe\344nderung) showde } if %LSC$=N %1 setgray %start white and unvisible LSC$ (S) eq { (Startup (S) data dependend) show } if LSC$ (F) eq { 12 /Times-Italic FS i*ptrsc 0 eq {(cmy0* / 000n* setcmykcolor) show} if i*ptrsc 1 eq {(olv* setrgbcolor) show} if i*ptrsc 2 eq {(cmy0* / nnn0* setcmykcolor) show} if i*ptrsc 3 eq {(olv* / www* setrgbcolor) show} if i*ptrsc 4 eq {(lab* setcolor) show} if i*ptrsc 5 eq {(LAB* setcolor) show} if i*ptrsc 6 eq {(000n* setcmykcolor) show} if i*ptrsc 7 eq {(w* setgray) show} if } if %0 setgray %end white and unvisible 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (http://130.149.60.45/~farbmetrik/JE44/JE44L) 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 (JE44/JE44L) 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/JE44/JE44L) 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\255JE44/JE44L) showde (TUB registration: 20100101\255JE44/JE44L) 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