%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/BGA2/BGA2L00XX.PS 20220301 %%BoundingBox: 07 04 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: http://farbe.li.tu-berlin.de/BGA2/BGA2.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022030112000) /ModDate (D:2022030112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark %Y10G00NA.PS6 %line 20****************************************************** %BEG BGA2/OUTLIN10.PS Emty 20120301 %END BGA2/OUTLIN10.PS Emty 20120301 %BEG BGA2/OUTLIN1X.PS 20110801 %EMPTY %END BGA2/OUTLIN1X.PS 20110801 %BEG BGA2/OUTLIN1Y2.PS Emty 20101101 %END BGA2/OUTLIN1Y2.PS Emty 20101101 /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 % End for EPS file 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 /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 %%EndProlog %*********************************************************** %%BeginPageSetup /#copies 1 def %A4querF 0.5 0.5 scale /pgsave save def %%EndPageSetup /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 %******************************************************************* /lanind1f 00 def /lanind2f 00 def /laninddf 01 def /lanindmf 01 def /colorm1f 00 def /colorm2f 00 def /colormdf 01 def /colormmf 01 def /deintp1f 00 def /deintp2f 00 def /deintpdf 01 def /deintpmf 01 def /xcolor1f 00 def /xcolor2f 00 def /xcolordf 01 def /xcolormf 01 def %2/10degree /xchart1f 00 def /xchart2f 00 def /xchartdf 01 def /xchartmf 01 def /xchart3f 01 def /xchart4f 00 def /xchart5f 00 def /pchart1f 00 def /pchart2f 00 def /pchartdf 01 def /pchartmf 01 def %=3:sRGB,Lr /colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /colsepmf 01 def /pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def /pmetammf 01 def %/lanindf lanind1f def % /lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def %/colormf colorm1f def % /colormf colorm1f def %colorm1f colormdf colorm2f {/colormf exch def %/deintpf deintp1f def % /deintpf deintp1f def %deintp1f deintpdf deintp2f {/deintpf exch def %/xcolorf xcolor1f def % /xcolorf xcolor1f def %xcolor1f xcolordf xcolor2f {/xcolorf exch def %/xchartf xchart1f def % xchart1f xchartdf xchart2f {/xchartf exch def %/pchartf pchart1f def % /pchartf pchart1f def %/pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def %/colsepf colsep1f def % /colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def /lanind lanindf def /colorm colormf def /deintp deintpf def /xcolor xcolorf def /xchart xchartf def /xchartm xchart2f xchart1f sub 1 add def /xchart3 xchart3f def /xchart4 xchart4f def /pchart pchartf def /colsep colsepf def %/pmetamf pmetam1f def % /pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def /pmetam pmetamf def %************************************************************* %/setgray {sfgray} bind def %/setrgbcolor {sfrgbcolor} bind def %/setcmykcolor {sfcmykcolor} bind def %72 90 translate %0.01 MM dup scale %0 0 moveto 24600 0 rlineto 0 17220 rlineto % -24600 0 rlineto closepath stroke %000 -240 moveto %240 /Times-ISOL1 FS %lanindf cvishow (-) show %colormf cvishow %deintpf cvishow %xcolorf cvishow %xchartf cvishow %pchartf cvishow %colsepf cvishow (-F) show pmetamf cvishow %grestore gsave /GSS$ SS$ lanind get def /GSC$ SC$ colorm get def /GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def /GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def /GEX$ EX$ 0 get def /GEY$ EY$ 0 get def %01 %02 %03 %04 %05 %06 %07 %08 %09 %10 /12RN {12 /Times-Roman FS} bind def /10RN {10 /Times-Roman FS} bind def /12RI {12 /Times-Italic FS} bind def /10RI {10 /Times-Italic FS} bind def /12RB {12 /Times-Bold FS} bind def /10RB {10 /Times-Bold FS} bind def /12RBI {12 /Times-BoldItalic FS} bind def /10RBI {10 /Times-BoldItalic FS} bind def /12TN {12 /Times-ISOL1 FS} bind def /10TN {10 /Times-ISOL1 FS} bind def /12TI {12 /TimesI-ISOL1 FS} bind def /10TI {10 /TimesI-ISOL1 FS} bind def /12TB {12 /TimesB-ISOL1 FS} bind def /10TB {10 /TimesB-ISOL1 FS} bind def /12TBI {12 /TimesBI-ISOL1 FS} bind def /10TBI {10 /TimesBI-ISOL1 FS} bind 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 /SHSl 2 def /SHAl 2 def BeginEPSF 28 SHSl sub 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 BGA20-1N %%BoundingBox: 70 85 228 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: farbe.li.tu-berlin.de/BGA2/BGA2.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022030112000) /ModDate (D:2022030112000) /DOCINFO pdfmark01 [ /View [ /Fit ] /DOCVIEW pdfmark01 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } 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 /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def %********************************************************* %*********************************************************** /proz_chromaticity_lines {%BEG proz_chromaticity_lines /DOW 82 array def /DOWZ 17 array def /F02Z 51 array def /F10Z 51 array def %TRISTIMULUS VALUES FOR PURPLE COLORS from 'dmyy'KRPROG.FOR %FOR 02- AND 10-DEGREE-OBSERVER, ILLUMINANT E 0 1 79 {/i exch def %i=0,79 = 380_775 DOW i 380 i 5 mul add put } for %i=0,79 /DOWZ %17 data [700 -495 -500 -505 -510 -515 -520 -525 -530 -535 -540 -545 -550 -555 -560 -565 400] def /F02Z %3x17 data 700 ... 400 [.01136 .01141 .01158 .01169 .01176 .01182 .01187 .01191 .01195 .01199 .01204 .01210 .01219 .01232 .01254 .01300 .01431 .00410 .00404 .00383 .00369 .00359 .00352 .00346 .00342 .00337 .00331 .00325 .00317 .00306 .00289 .00262 .00205 .00040 .00000 .00118 .00507 .00754 .00930 .01064 .01167 .01256 .01346 .01445 .01562 .01709 .01910 .02210 .02718 .03765 .06785] def /F10Z %3x17 data 700 ... 400 [.00958 .01015 .01037 .01053 .01065 .01075 .01085 .01096 .01108 .01122 .01139 .01163 .01201 .01268 .01416 .02078 .01911 .00372 .00361 .00357 .00355 .00352 .00351 .00349 .00347 .00345 .00342 .00339 .00335 .00328 .00316 .00289 .00170 .00200 .00000 .00517 .00718 .00858 .00972 .01063 .01150 .01245 .01354 .01478 .01635 .01856 .02194 .02795 .04136 .10106 .08601] def %*************************************************** /FXYZ 240 array def /XSi 82 array def /YSi 82 array def /ZSi 82 array def /XANSi 82 array def /YANSi 82 array def /ZANSi 82 array def /AANSi 82 array def %actual data for plot, purple colours /BANSi 82 array def 0 1 239 {/i exch def %i=0,239 FXYZ i xcolorl 0 eq {F2 i get put} {F10 i get put} ifelse } for %i=0,239 /YKSUM 0 def %For CIE Illuminant E 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM FXYZ 80 i add get add def } for %i=0,1,79 0 1 79 {/i exch def %i=0,1,79 XSi i FXYZ 00 i add get YKSUM div 100 mul put YSi i FXYZ 80 i add get YKSUM div 100 mul put ZSi i FXYZ 160 i add get YKSUM div 100 mul put /SUM XSi i get YSi i get add ZSi i get add 0.0001 add def XANSi i XSi i get SUM div put YANSi i YSi i get SUM div put ZANSi i ZSi i get SUM div put AANSi i XANSi i get put BANSi i YANSi i get put } for %i=0,1,79 /XZi 17 array def /YZi 17 array def /ZZi 17 array def /XANZi 17 array def /YANZi 17 array def /ZANZi 17 array def /AANZi 17 array def %actual data for plot, purple colours /BANZi 17 array def 0 1 16 {/i exch def %i=0,16 %for illuminant E: S(lamdda=100) XZi i xcolorl 0 eq {F02Z} {F10Z} ifelse 00 i add get YKSUM div 100 mul put YZi i xcolorl 0 eq {F02Z} {F10Z} ifelse 17 i add get YKSUM div 100 mul put ZZi i xcolorl 0 eq {F02Z} {F10Z} ifelse 34 i add get YKSUM div 100 mul put /SUM XZi i get YZi i get add ZZi i get add 0.0001 add def XANZi i XZi i get SUM div put YANZi i YZi i get SUM div put ZANZi i ZZi i get SUM div put AANZi i XANZi i get put BANZi i YANZi i get put } for %i=0,16 /xtrans8 600 def /ytrans8 400 def xtrans8 ytrans8 translate %for scala and graphic 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 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 TIS 4200 150 moveto (x) show xcolorl 1 eq {TL 0 -40 rmoveto (10) show 0 40 rmoveto TIS} if -300 2800 moveto (y) show xcolorl 1 eq {TL 0 -40 rmoveto (10) show 0 40 rmoveto TIS} if TBIS 2600 150 moveto xcolorl 0 eq {(CIE 1931) show} if xcolorl 1 eq {(CIE 1964) show} if newpath /fakt 4000 def %old %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 5 1 60 {/i exch def %i=5,60 AANSi i get fakt mul BANSi i get fakt mul i 05 eq {moveto} if i 06 ge i 59 le and {lineto} if i 60 eq {lineto closepath stroke} if } for %i=5,60 /xytshift 320 array def %min 4x65 /xytshift [ 0 000 000 (380) %0 0 000 000 (385) %1 0 000 000 (390) %2 0 000 000 (395) %3 1 -170 -170 (400) %4 0 000 000 (405) %5 0 000 000 (410) %6 0 000 000 (415) %7 0 000 000 (420) %8 0 000 000 (425) %9 0 000 000 (430) %10 0 000 000 (435) %11 0 000 000 (440) %12 0 000 000 (445) %13 1 -300 -050 (450) %14 S 0 000 000 (455) %15 0 000 000 (460) %16 1 -300 -030 (465) %17 0 000 000 ( ) %18 1 -300 -030 (475) %19 1 -300 -030 (480) %20 1 -300 -030 (485) %21 1 -330 -050 (490) %22 1 -270 000 (495) %23 M=S 1 -300 -050 (500) %24 1 -300 -050 (505) %25 1 -330 -050 (510) %26 L=S 1 -300 050 (515) %27 1 -100 070 (520) %28 1 100 000 (525) %29 1 000 000 ( ) %30 1 050 000 (535) %31 1 000 000 ( ) %32 M 1 000 000 ( ) %33 1 050 030 (550) %34 1 000 000 ( ) %35 1 050 030 (560) %36 1 000 000 ( ) %37 1 050 030 (570) %38 L 1 000 000 ( ) %39 1 050 030 (580) %40 1 050 050 ( ) %41 1 050 030 (590) %42 1 050 050 ( ) %43 1 050 030 (600) %44 0 000 000 ( ) %45 1 050 070 (610) %46 0 000 000 ( ) %47 1 050 050 (620) %48 0 000 000 ( ) %49 0 000 000 (630) %50 0 000 000 ( ) %51 1 050 030 (640) %52 0 000 000 (645) %53 0 000 000 (650) %54 0 000 000 (655) %55 0 000 000 (660) %56 0 000 000 (665) %57 0 000 000 (670) %58 0 000 000 (675) %59 0 000 000 (680) %60 0 000 000 (685) %61 0 000 000 (690) %62 0 000 000 (695) %63 1 100 -50 (700) %64 ] def 0 1 64 {/i exch def %i=5,1,60 /i40 i 4 mul def xytshift i40 get 1 eq {%xytshift=1 0 0 0 0 setcmykcolor AANSi i get fakt mul BANSi i get fakt mul 30 0 360 arc fill %400,425,...,700 0 0 0 1 setcmykcolor AANSi i get fakt mul BANSi i get fakt mul 30 0 360 arc stroke %400,425,...,700 } if %xytshift=1 } for %i=5,1,60 TBIL 0 1 59 {/i exch def %i=0,65 /i40 i 4 mul def /i41 i40 1 add def /i42 i40 2 add def /i43 i40 3 add def xytshift i40 get 1 eq {%xytshift=1 AANSi i get fakt mul xytshift i41 get add BANSi i get fakt mul xytshift i42 get add moveto xytshift i43 get show } if %xytshift=1 } for %i=0,65 newpath /xytshiftZ 320 array def %min 4x65 /xytshiftZ [ 1 100 -50 (700) %0 see normal 1 050 -100 (495c,E) %1 1 050 -100 (500c,E) %2 0 050 -100 (505c,E) %3 0 100 -60 (510c,E) %4 0 050 -100 (515c,E) %5 0 050 -100 (520c,E) %6 1 050 -100 (525c,E) %7 0 050 -100 (530c,E) %8 0 050 -100 (535c,E) %9 0 050 -100 (540c,E) %10 0 050 -100 (545c,E) %11 1 050 -100 (550c,E) %12 0 050 -100 (555c,E) %13 0 050 -100 (560c,E) %14 S 0 050 -100 (565c,E) %15 0 -100 -150 (400) %16 see normal ] def 0 1 16 {/i exch def %i=5,5,60 /i40 i 4 mul def xytshiftZ i40 get 1 eq {%xytshiftZ=1 0 0 0 0 setcmykcolor AANZi i get fakt mul BANZi i get fakt mul 30 0 360 arc fill %400,405,...,700 0 0 0 1 setcmykcolor AANZi i get fakt mul BANZi i get fakt mul 30 0 360 arc stroke %400,405,...,700 } if %xytshiftZ=1 } for %i=0,1,16 TBIL 0 1 16 {/i exch def %i=0,16 /i40 i 4 mul def /i41 i40 1 add def /i42 i40 2 add def /i43 i40 3 add def xytshiftZ i40 get 1 eq {%xytshiftZ=1 AANZi i get fakt mul xytshiftZ i41 get add BANZi i get fakt mul xytshiftZ i42 get add moveto xytshiftZ i43 get show } if %xytshiftZ=1 } for %i=0,16 newpath xtrans8 neg ytrans8 neg translate %for scala and grafic } bind def %END proz_chromaticity_lines %***************************************************************** %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def} if %always independent of intended output gsave %LANINDL2 END /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /TELi 8 array def /xchart8 1 def %0:Pxx, 1:Dxx xchart8 0 eq {%xchart8=0 Pxx /TELi [(P60) (P55) (P50) (P45) (P40) (P35) (P30) (P25)] def %7 illumin. } if %xchart8=0 xchart8 1 eq {%xchart8=1 Dxx /TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %7 illumin. } if %xchart8=1 /SD65 82 array def %380 bis 775 mit deltalambda=05 /SD50 82 array def %380 bis 775 mit deltalambda=05 /SP40 82 array def %380 bis 775 mit deltalambda=05 /SA00 82 array def %380 bis 775 mit deltalambda=05 /SE00 82 array def %380 bis 775 mit deltalambda=05 /SC00 82 array def %380 bis 775 mit deltalambda=05 /SP00 82 array def %380 bis 775 mit deltalambda=05 /SQ00 82 array def %380 bis 775 mit deltalambda=05 /SDAK 82 array def %380 bis 775 mit deltalambda=05 /RA 82 array def %380 bis 770 nm /F2 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm /F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm /F10 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm %C %C LITERATURQUELLEN LICHTARTEN %C SA,SC,SD65, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.1, SEITE 81 %C SD55,SD75, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.4, SEITE 85 %C LINEAR INTERPOLIERT VON 5 ZU 5NM %C SG,SP,SXE, DIN 5033, BLATT 7 ,SEITE 8-9 %C AUSGABE 1966 /SD65 %80 data 5 nm [50.0 52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 46.4 56.6 66.8 65.1] def /SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS [24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6 102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used /SA00 %80 data 5 nm CIE 15.3 Seite 30; aus JE540-1N.PS [9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59 232.12 234.59 237.01 239.37 0.0] def %0.0 not used % AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92 %C PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI- %C LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA %C BEI GEGEBENER TEMPERATUR T %C VERWENDETE VARIABLE %C T TEMPERATUR %C C2 PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) %C LAMDA(I) WELLENLAENGE %C S(I) STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS %C %C LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION, %C CA. 1969, SEITE 21 UND TABELLE 1.1.1 %C %SDP4 82 array def %380 bis 775 mit deltalambda=05 % DO 50 I=1,54 % 50 S(I)=100. % 1*(560./FLOAT(LAMDA(I)))**5 % 2*(EXP(C2/(560.*10.**(-7)*T))-1.) % 3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.) %new CIE 15.3:2004, Eq. (3.1) page 2 %S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560 )} - 1] % /[exp{(c2*10**7)/(TNC*lambda)} - 1] % exp = e {...} = 2.71 {...} %/TNC 2848 def %NLA /EE 2.718281 def %e=mac pocket calculator /C2 1.4350000 10 7 exp mul def /lamd 82 array def xchart8 1 eq {%xchart8=1 Dxx /TNC 4000 def %******************************************** 0 1 79 {%i=0,79 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNC 560 mul div def /E5 C2 TNC lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def SP40 i E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,79 } if %xchart8=1 Dxx %****************************************** xchart8 0 eq {%xchart8=0 Pxx %defined only for xchart8=0 Pxx /TNCj 8 array def /TNCj [6000 5500 5000 4500 4000 3500 3000 2500] def /SP60 82 array def %380 bis 775 mit deltalambda=05 /SP55 82 array def %380 bis 775 mit deltalambda=05 /SP50 82 array def %380 bis 775 mit deltalambda=05 /SP45 82 array def %380 bis 775 mit deltalambda=05 /SP40 82 array def %380 bis 775 mit deltalambda=05 /SP35 82 array def %380 bis 775 mit deltalambda=05 /SP30 82 array def %380 bis 775 mit deltalambda=05 /SP25 82 array def %380 bis 775 mit deltalambda=05 0 1 7 {/j exch def %j=0,7 0 1 79 {%i=0,79 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNCj j get 560 mul div def /E5 C2 TNCj j get lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def j 0 eq {SP60 i} if j 1 eq {SP55 i} if j 2 eq {SP50 i} if j 3 eq {SP45 i} if j 4 eq {SP40 i} if j 5 eq {SP35 i} if j 6 eq {SP30 i} if j 7 eq {SP25 i} if E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,79 } for %j=0,7 } if %xchart8=0 %************************************************* /SE00 %80 data 5 nm [100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used /SC00 %80 data 5 nm [ 33.00 39.92 47.40 55.17 63.30 71.81 80.60 89.53 98.10 105.80 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09 123.90 122.92 120.70 116.90 112.10 106.98 102.30 98.81 96.90 96.78 98.00 99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15 97.80 95.43 93.20 91.22 89.70 88.83 88.40 88.19 88.10 88.06 88.00 87.86 87.80 87.99 88.20 88.20 87.90 87.22 86.30 85.30 84.00 82.21 80.20 78.24 76.30 74.36 72.40 70.40 68.30 66.30 64.40 62.80 61.50 60.20 59.20 58.50 58.10 58.00 58.20 58.50 ] def %0.0 not used 0 1 79 {/i exch def %i=0,79 /lamda 380 i 5 mul add def SP00 i SE00 i get lamda 560 div mul put SQ00 i SE00 i get 1120 lamda sub 560 div mul put } for %i=0,79 %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 %3x80 data [.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def /F10 %3x80 data [.00016 .0006624 .002362 .007242 .01911 .0434 .08474 .1406 .2045 .2647 .3147 .3577 .3837 .3867 .3707 .343 .3023 .2541 .1956 .1323 .08051 .04107 .01617 .005132 .003816 .01544 .03746 .07136 .1177 .173 .2365 .3042 .3768 .4516 .5298 .6161 .7052 .7938 .8787 .9512 1.0142 1.0743 1.1185 1.1343 1.124 1.0891 1.0305 .9507 .8563 .7549 .6475 .5351 .4316 .3437 .2683 .2043 .1526 .1122 .08126 .05793 .04085 .02862 .019941 .01384 .0100 .006605 .004552 .003145 .002175 .001506 .001045 .0007274 .0005083 .0003564 .000251 .0001777 .0001264 .00009015 .00006453 .00004634 .00001736 .00007156 .0002534 .0007685 .002004 .004509 .008756 .01446 .02139 .0295 .03868 .0496 .06208 .0747 .08946 .1063 .1282 .1528 .1852 .2199 .2536 .2977 .3391 .3954 .4608 .5314 .6067 .6857 .7618 .8233 .8752 .9238 .962 .9822 .9918 .9991 .9973 .9824 .9555 .9152 .8689 .8256 .7774 .7203 .6583 .5939 .528 .4618 .3981 .3395 .2835 .2282 .1798 .1402 .1076 .08119 .06028 .0441 .0318 .0226 .0159 .01113 .007749 .0053751 .0037177 .002565 .001768 .001222 .0008462 .0005864 .0004074 .000284 .0001987 .0001395 .00009843 .00006982 .00004974 .00003554 .00002549 .00001834 .0007048 .002928 .01048 .03234 .08601 .1971 .3894 .6568 .9725 1.2825 1.5535 1.7985 1.9673 2.0273 1.9948 1.9007 1.7454 1.5549 1.3176 1.0302 .7721 .5701 .4152 .3024 .2185 .1592 .112 .08225 .06071 .04305 .03045 .02058 .01368 .007918 .003988 .001091 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %30 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %40 0.0 0.0 0.0 0.0 %44 ] def %calculation of transformation data /FARBE 30 array def /FARBE [(R) (m) ( 561_770) %00 (Y) (m) ( 520_770) %01 (G) (m) ( 475_573) %02 (C) (m) ( 380_561) %03 (B) (m) ( 380_520) %04 (M) (m) ( 573_475) %05 (G) (o) ( 520_570) %06 (M) (o) ( 570_520) %07 (W) (0) ( 380_770) %08 (N) (0) ( 380_770) %09 ] def /xshift 10 array def %max 6 device + 4 elementary /yshift 10 array def /colori 10 array def /RX0 720 array def %9x80 /RX0 [ %(%Rm 00 560_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0036 0036 0036 0036 0036 0036 0468 0900 0900 0900 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %(%Ym 01 520_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0036 0036 0036 0036 0036 0036 0036 0036 0468 0900 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %(%Gm 02 475_575) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0036 0036 0036 0036 0036 0036 0036 0036 0036 0468 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0900 0900 0900 0900 0900 0900 0900 0900 0900 0468 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %(%Cm 03 380_560) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0900 0900 0900 0900 0900 0900 0468 0036 0036 0036 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %(%Bm 04 380_520) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0900 0900 0900 0900 0900 0900 0900 0900 0468 0036 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %(%Mm 05 575_475) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0900 0900 0900 0900 0900 0900 0900 0900 0900 0468 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0036 0036 0036 0036 0036 0036 0036 0036 0036 0468 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %(%Go 06 520_570) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0036 0036 0036 0036 0036 0036 0036 0036 0468 0900 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0900 0900 0900 0900 0900 0900 0900 0900 0468 0036 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %(%Mo 07 570_520) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0900 0900 0900 0900 0900 0900 0900 0900 0468 0036 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0036 0036 0036 0036 0036 0036 0036 0036 0468 0900 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %(%W0(r=0,900) 08 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %(%N0(r=0,036) 09 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 ] def /xcol10_BS {TBL 0 -50 rmoveto (10) show 0 50 rmoveto TBS} bind def /xcol10KBS {TBL 0 -50 rmoveto (,10) show 0 50 rmoveto TBS} bind def /xcolorl xcolor def 0 1 0 {/xcolorl exch def %xcolorl=0,0 xcolorl 1 eq {0 1 239 {/i exch def %i=0,239 F2 i F10 i get put } for %i=0,239 } if /YKSUM 0 def %For CIE Illuminant E 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM F2 80 i add get add def } for %i=0,1,79 /F2N 240 array def 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add F2 00 i add get YKSUM div 100 mul put F2N 80 i add F2 80 i add get YKSUM div 100 mul put F2N 160 i add F2 160 i add get YKSUM div 100 mul put } for %i=0,1,79 /FXN 82 array def %FXN 0 = F2N imax /FYN 82 array def /FZN 82 array def %defines FXN, FYN, FZN 0 to 79 0 1 79 {/i exch def %i=0,79 FXN i F2N 000 i add get put FYN i F2N 080 i add get put FZN i F2N 160 i add get put } for %i=0,79 %special wavelength range with complementary colours for E? /FXD 63 array def /FYD 63 array def /FZD 63 array def /DOW 63 array def 00 1 60 {/i exch def %i=0,60 %range 400..700nm FXD i FXN 005 i add get put FYD i FYN 005 i add get put FZD i FZN 005 i add get put DOW i 400 i 5 mul add put %range 400 to 700 } for %i=0,60 %for interpolation FXD 61 FXD 60 get put FYD 61 FYD 60 get put FZD 61 FZD 60 get put FXD 62 FXD 60 get put FYD 62 FYD 60 get put FZD 62 FZD 60 get put /FAD 63 array def /FBD 63 array def /FCD 63 array def 20 setlinewidth /xdel 1005 def /ydel 395 def /x0 050 def /x1 -150 def /Xi 82 array def %80 spectral colours 380 to 775nm /Yi 82 array def /Zi 82 array def /XANi 82 array def /YANi 82 array def /ZANi 82 array def /AANi 82 array def %actual data for plot, spectral colours /BANi 82 array def /FXNZ 17 array def /FYNZ 17 array def /FZNZ 17 array def /XZi 17 array def /YZi 17 array def /ZZi 17 array def /XANZi 17 array def /YANZi 17 array def /ZANZi 17 array def /AANZi 17 array def %actual data for plot, purple colours /BANZi 17 array def /XRj 10 array def %10 spectral or max 10 device colours /YRj 10 array def /ZRj 10 array def /XANRj 10 array def /YANRj 10 array def /ZANRj 10 array def /XSj 10 array def %10 spectral or max 10 device atagonistic colours /YSj 10 array def /ZSj 10 array def /XANSj 10 array def /YANSj 10 array def /ZANSj 10 array def /XCj 10 array def %10 spectral from continuous colours /YCj 10 array def /ZCj 10 array def /XANCj 10 array def /YANCj 10 array def /ZANCj 10 array def /XAj 10 array def %10 spectral from continuous colours /YAj 10 array def /ZAj 10 array def /XANAj 10 array def /YANAj 10 array def /ZANAj 10 array def /RAk 82 array def 0 1 0 {/xchart4 exch def %xchart4=0,7 /xchartl xchart def 4 1 4 {/xchartl exch def %xchartl=0,7 %/K 0 def %for normalization 1 /K 1 def %for normalization 0,900 gsave 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolorl cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow 4 /Times-ISOL1 FS 72 86 moveto (BGA20-1N) show 72 90 translate 0.010 MM dup scale 25 setlinewidth 0 0 0 0 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath fill 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath clip 0 0 0 1 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath stroke %calculation of XW,YW,ZW for 8 illuminants Dxx or Pxx 0 1 79 {/i exch def %i=0,79 SDAK i xchart8 0 eq {%xchart8=0 Pxx xchartl 0 eq {SP60 i get put} if xchartl 1 eq {SP55 i get put} if xchartl 2 eq {SP50 i get put} if xchartl 3 eq {SP45 i get put} if xchartl 4 eq {SP40 i get put} if xchartl 5 eq {SP35 i get put} if xchartl 6 eq {SP30 i get put} if xchartl 7 eq {SP25 i get put} if }%xchart8=0 Pxx {%xchart8=1 Dxx xchartl 0 eq {SD65 i get put} if xchartl 1 eq {SD50 i get put} if xchartl 2 eq {SP40 i get put} if xchartl 3 eq {SA00 i get put} if xchartl 4 eq {SE00 i get put} if xchartl 5 eq {SC00 i get put} if xchartl 6 eq {SP00 i get put} if xchartl 7 eq {SQ00 i get put} if } ifelse %xchart8=1 Dxx } for %i=0,79 /YKSUM 0 def 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM SDAK i get F2 80 i add get mul add def } for %i=0,1,79 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add SDAK i get F2 00 i add get mul YKSUM div 100 mul put F2N 80 i add SDAK i get F2 80 i add get mul YKSUM div 100 mul put F2N 160 i add SDAK i get F2 160 i add get mul YKSUM div 100 mul put } for %i=0,1,79 %XW,YW,ZW for white /XW 0 def /YW 0 def /ZW 0 def 0 1 079 {/i exch def %i=0,79 /XW XW F2N 00 i add get add def /YW YW F2N 80 i add get add def /ZW ZW F2N 160 i add get add def } for %i=0,79 /SUMW XW YW add ZW add def %for D65, D50, P40, A00, E00 /XANW XW SUMW div def /YANW YW SUMW div def /ZANW ZW SUMW div def /AANW XW YW 0.0001 add div def /BANW ZW YW 0.0001 add div 0.4 mul neg def %************************************************ %XYZRj for 10 reflections 0 1 09 {/j exch def %j=0,9 %10 Reflections /jx j 80 mul def 0 1 79 {/i exch def %i=0,79 RAk i RX0 jx i add get 1000 div put } for %i=0,79 /XR 0 def /YR 0 def /ZR 0 def 0 1 079 {/i exch def %i=0,79 /XR XR F2N 00 i add get RAk i get mul add def /YR YR F2N 80 i add get RAk i get mul add def /ZR ZR F2N 160 i add get RAk i get mul add def } for %i=0,79 XRj j XR put YRj j YR put ZRj j ZR put /SUMR XR YR add ZR add def XANRj j XR SUMR 0.0001 add div put YANRj j YR SUMR 0.0001 add div put ZANRj j ZR SUMR 0.0001 add div put } for %j=0,9 %******************************************* 0 1 62 {/i exch def %i=0,62 FAD i FXD i get put FBD i FYD i get put FCD i FZD i get put } for %i=0,62 %************************************************* %XW,YW,ZW and XK,YK,ZK for white /XW 0 def /YW 0 def /ZW 0 def 0 1 079 {/i exch def %i=0,79 /XW XW F2N 00 i add get add def /YW YW F2N 80 i add get add def /ZW ZW F2N 160 i add get add def } for %i=0,79 K 0 eq {%K=0 /XK XW def /YK YW def /ZK ZW def }%K=0 {%K=1 /XK XW 0.9000 mul def /YK YW 0.9000 mul def /ZK ZW 0.9000 mul def } ifelse %K=1 /SUMK XK YK add ZK add def %for D65, D50, P40, A00, E00 /XANK XK SUMK div def /YANK YK SUMK div def /ZANK ZK SUMK div def proz_chromaticity_lines %************************************************* % 0 1 2 3 4 5 6 7 % (P60)(P55)(P50)(P45)(P40)(P35)(P30)(P25) %or (D65)(D50)(P40)(A00)(E00)(C00)(P00)(Q00) /fakt 4000 def 600 400 translate %for scala and graphic %XANW fakt mul YANW fakt mul 90 0 360 arc stroke newpath XANW fakt mul 400 sub YANW fakt mul 150 sub moveto TBL TELi xchartl get show newpath /AnY400 AANSi 4 get fakt mul def /BnY400 BANSi 4 get fakt mul def /AnY700 AANSi 64 get fakt mul def /BnY700 BANSi 64 get fakt mul def /AnYW XANW fakt mul def /BnYW YANW fakt mul def AnY400 BnY400 moveto AnYW BnYW lineto stroke AnY700 BnY700 moveto AnYW BnYW lineto stroke newpath %400 /AnY1 AnY400 def /BnY1 BnY400 def /AnYW XANW fakt mul def /BnYW YANW fakt mul def /mABY BnYW BnY1 sub AnYW AnY1 sub 0.0001 add div def /bABY BnYW AnYW mABY mul sub def %x+y+z=1, z=0 %x+y=1 %AnY1/fakt + BnY1/fakt =1 %ANY1+BnY1=fakt or xS+yS=fakt or xS=fakt-yS %yS=m*xS+b %yS=m*(fakt-yS)+b %yS+m*yS=m*fakt+b %yS=(m*fakt+b)/(1+m) /BnYx1 bABY mABY fakt mul add 1 mABY add 0.0001 add div def /AnYx1 fakt BnYx1 sub def %******************************************** %700 /AnY2 AnY700 def /BnY2 BnY700 def /AnYW XANW fakt mul def /BnYW YANW fakt mul def /mABY BnYW BnY2 sub AnYW AnY2 sub 0.0001 add div def /bABY BnYW AnYW mABY mul sub def /AnYx2 0 def /BnYx2 bABY def 1 0 0 setrgbcolor [100] 0 setdash AnY1 BnY1 moveto AnYx1 BnYx1 lineto stroke AnY2 BnY2 moveto AnYx2 BnYx2 lineto stroke 0 1 0 setrgbcolor xchartl 4 eq {%xchart4=4 %E00 0 1 2 {/j exch def %j=0,3 j 0 eq {/i1 24 def /i2 02 def} if j 1 eq {/i1 29 def /i2 07 def} if j 2 eq {/i1 34 def /i2 12 def} if j 3 eq {/i1 29 def /i2 5 def} if /AnYj1 AANSi i1 get fakt mul def /BnYj1 BANSi i1 get fakt mul def /AnYj2 AANZi i2 get fakt mul def /BnYj2 BANZi i2 get fakt mul def AnYj1 BnYj1 moveto AnYj2 BnYj2 lineto stroke } for %j=0,3 } if %xchart4=4 %E00 0 setgray [ ] 0 setdash newpath XANW fakt mul YANW fakt mul 90 0 360 arc stroke -600 -400 translate %for scala and grafic %************************************************************** showpage grestore } for %xchartl=0,7 } for %xchart4=0,0 } for %xcolorl=0,0 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add 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 BGA20-2N %%BoundingBox: 70 85 228 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: farbe.li.tu-berlin.de/BGA2/BGA2.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022030112000) /ModDate (D:2022030112000) /DOCINFO pdfmark02 [ /View [ /Fit ] /DOCVIEW pdfmark02 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } 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 /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def %********************************************************* %*********************************************************** /proz_chromaticity_lines {%BEG proz_chromaticity_lines /DOW 82 array def /DOWZ 17 array def /F02Z 51 array def /F10Z 51 array def %TRISTIMULUS VALUES FOR PURPLE COLORS from 'dmyy'KRPROG.FOR %FOR 02- AND 10-DEGREE-OBSERVER, ILLUMINANT E 0 1 79 {/i exch def %i=0,79 = 380_775 DOW i 380 i 5 mul add put } for %i=0,79 /DOWZ %17 data [700 -495 -500 -505 -510 -515 -520 -525 -530 -535 -540 -545 -550 -555 -560 -565 400] def /F02Z %3x17 data 700 ... 400 [.01136 .01141 .01158 .01169 .01176 .01182 .01187 .01191 .01195 .01199 .01204 .01210 .01219 .01232 .01254 .01300 .01431 .00410 .00404 .00383 .00369 .00359 .00352 .00346 .00342 .00337 .00331 .00325 .00317 .00306 .00289 .00262 .00205 .00040 .00000 .00118 .00507 .00754 .00930 .01064 .01167 .01256 .01346 .01445 .01562 .01709 .01910 .02210 .02718 .03765 .06785] def /F10Z %3x17 data 700 ... 400 [.00958 .01015 .01037 .01053 .01065 .01075 .01085 .01096 .01108 .01122 .01139 .01163 .01201 .01268 .01416 .02078 .01911 .00372 .00361 .00357 .00355 .00352 .00351 .00349 .00347 .00345 .00342 .00339 .00335 .00328 .00316 .00289 .00170 .00200 .00000 .00517 .00718 .00858 .00972 .01063 .01150 .01245 .01354 .01478 .01635 .01856 .02194 .02795 .04136 .10106 .08601] def %*************************************************** /FXYZ 240 array def /XSi 82 array def /YSi 82 array def /ZSi 82 array def /XANSi 82 array def /YANSi 82 array def /ZANSi 82 array def /AANSi 82 array def %actual data for plot, purple colours /BANSi 82 array def 0 1 239 {/i exch def %i=0,239 FXYZ i xcolorl 0 eq {F2 i get put} {F10 i get put} ifelse } for %i=0,239 /YKSUM 0 def %For CIE Illuminant E 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM FXYZ 80 i add get add def } for %i=0,1,79 0 1 79 {/i exch def %i=0,1,79 XSi i FXYZ 00 i add get YKSUM div 100 mul put YSi i FXYZ 80 i add get YKSUM div 100 mul put ZSi i FXYZ 160 i add get YKSUM div 100 mul put /SUM XSi i get YSi i get add ZSi i get add 0.0001 add def XANSi i XSi i get SUM div put YANSi i YSi i get SUM div put ZANSi i ZSi i get SUM div put AANSi i XANSi i get put BANSi i YANSi i get put } for %i=0,1,79 /XZi 17 array def /YZi 17 array def /ZZi 17 array def /XANZi 17 array def /YANZi 17 array def /ZANZi 17 array def /AANZi 17 array def %actual data for plot, purple colours /BANZi 17 array def 0 1 16 {/i exch def %i=0,16 %for illuminant E: S(lamdda=100) XZi i xcolorl 0 eq {F02Z} {F10Z} ifelse 00 i add get YKSUM div 100 mul put YZi i xcolorl 0 eq {F02Z} {F10Z} ifelse 17 i add get YKSUM div 100 mul put ZZi i xcolorl 0 eq {F02Z} {F10Z} ifelse 34 i add get YKSUM div 100 mul put /SUM XZi i get YZi i get add ZZi i get add 0.0001 add def XANZi i XZi i get SUM div put YANZi i YZi i get SUM div put ZANZi i ZZi i get SUM div put AANZi i XANZi i get put BANZi i YANZi i get put } for %i=0,16 /xtrans8 600 def /ytrans8 400 def xtrans8 ytrans8 translate %for scala and graphic 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 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 TIS 4200 150 moveto (x) show xcolorl 1 eq {TL 0 -40 rmoveto (10) show 0 40 rmoveto TIS} if -300 2800 moveto (y) show xcolorl 1 eq {TL 0 -40 rmoveto (10) show 0 40 rmoveto TIS} if TBIS 2600 150 moveto xcolorl 0 eq {(CIE 1931) show} if xcolorl 1 eq {(CIE 1964) show} if newpath /fakt 4000 def %old %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 5 1 60 {/i exch def %i=5,60 AANSi i get fakt mul BANSi i get fakt mul i 05 eq {moveto} if i 06 ge i 59 le and {lineto} if i 60 eq {lineto closepath stroke} if } for %i=5,60 /xytshift 320 array def %min 4x65 /xytshift [ 0 000 000 (380) %0 0 000 000 (385) %1 0 000 000 (390) %2 0 000 000 (395) %3 1 -170 -170 (400) %4 0 000 000 (405) %5 0 000 000 (410) %6 0 000 000 (415) %7 0 000 000 (420) %8 0 000 000 (425) %9 0 000 000 (430) %10 0 000 000 (435) %11 0 000 000 (440) %12 0 000 000 (445) %13 1 -300 -050 (450) %14 S 0 000 000 (455) %15 0 000 000 (460) %16 1 -300 -030 (465) %17 0 000 000 ( ) %18 1 -300 -030 (475) %19 1 -300 -030 (480) %20 1 -300 -030 (485) %21 1 -330 -050 (490) %22 1 -270 000 (495) %23 M=S 1 -300 -050 (500) %24 1 -300 -050 (505) %25 1 -330 -050 (510) %26 L=S 1 -300 050 (515) %27 1 -100 070 (520) %28 1 100 000 (525) %29 1 000 000 ( ) %30 1 050 000 (535) %31 1 000 000 ( ) %32 M 1 000 000 ( ) %33 1 050 030 (550) %34 1 000 000 ( ) %35 1 050 030 (560) %36 1 000 000 ( ) %37 1 050 030 (570) %38 L 1 000 000 ( ) %39 1 050 030 (580) %40 1 050 050 ( ) %41 1 050 030 (590) %42 1 050 050 ( ) %43 1 050 030 (600) %44 0 000 000 ( ) %45 1 050 070 (610) %46 0 000 000 ( ) %47 1 050 050 (620) %48 0 000 000 ( ) %49 0 000 000 (630) %50 0 000 000 ( ) %51 1 050 030 (640) %52 0 000 000 (645) %53 0 000 000 (650) %54 0 000 000 (655) %55 0 000 000 (660) %56 0 000 000 (665) %57 0 000 000 (670) %58 0 000 000 (675) %59 0 000 000 (680) %60 0 000 000 (685) %61 0 000 000 (690) %62 0 000 000 (695) %63 1 100 -50 (700) %64 ] def 0 1 64 {/i exch def %i=5,1,60 /i40 i 4 mul def xytshift i40 get 1 eq {%xytshift=1 0 0 0 0 setcmykcolor AANSi i get fakt mul BANSi i get fakt mul 30 0 360 arc fill %400,425,...,700 0 0 0 1 setcmykcolor AANSi i get fakt mul BANSi i get fakt mul 30 0 360 arc stroke %400,425,...,700 } if %xytshift=1 } for %i=5,1,60 TBIL 0 1 59 {/i exch def %i=0,65 /i40 i 4 mul def /i41 i40 1 add def /i42 i40 2 add def /i43 i40 3 add def xytshift i40 get 1 eq {%xytshift=1 AANSi i get fakt mul xytshift i41 get add BANSi i get fakt mul xytshift i42 get add moveto xytshift i43 get show } if %xytshift=1 } for %i=0,65 newpath /xytshiftZ 320 array def %min 4x65 /xytshiftZ [ 1 100 -50 (700) %0 see normal 1 050 -100 (495c,E) %1 1 050 -100 (500c,E) %2 0 050 -100 (505c,E) %3 0 100 -60 (510c,E) %4 0 050 -100 (515c,E) %5 0 050 -100 (520c,E) %6 1 050 -100 (525c,E) %7 0 050 -100 (530c,E) %8 0 050 -100 (535c,E) %9 0 050 -100 (540c,E) %10 0 050 -100 (545c,E) %11 1 050 -100 (550c,E) %12 0 050 -100 (555c,E) %13 0 050 -100 (560c,E) %14 S 0 050 -100 (565c,E) %15 0 -100 -150 (400) %16 see normal ] def 0 1 16 {/i exch def %i=5,5,60 /i40 i 4 mul def xytshiftZ i40 get 1 eq {%xytshiftZ=1 0 0 0 0 setcmykcolor AANZi i get fakt mul BANZi i get fakt mul 30 0 360 arc fill %400,405,...,700 0 0 0 1 setcmykcolor AANZi i get fakt mul BANZi i get fakt mul 30 0 360 arc stroke %400,405,...,700 } if %xytshiftZ=1 } for %i=0,1,16 TBIL 0 1 16 {/i exch def %i=0,16 /i40 i 4 mul def /i41 i40 1 add def /i42 i40 2 add def /i43 i40 3 add def xytshiftZ i40 get 1 eq {%xytshiftZ=1 AANZi i get fakt mul xytshiftZ i41 get add BANZi i get fakt mul xytshiftZ i42 get add moveto xytshiftZ i43 get show } if %xytshiftZ=1 } for %i=0,16 newpath xtrans8 neg ytrans8 neg translate %for scala and grafic } bind def %END proz_chromaticity_lines %***************************************************************** %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def} if %always independent of intended output gsave %LANINDL2 END /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /TELi 8 array def /xchart8 1 def %0:Pxx, 1:Dxx xchart8 0 eq {%xchart8=0 Pxx /TELi [(P60) (P55) (P50) (P45) (P40) (P35) (P30) (P25)] def %7 illumin. } if %xchart8=0 xchart8 1 eq {%xchart8=1 Dxx /TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %7 illumin. } if %xchart8=1 /SD65 82 array def %380 bis 775 mit deltalambda=05 /SD50 82 array def %380 bis 775 mit deltalambda=05 /SP40 82 array def %380 bis 775 mit deltalambda=05 /SA00 82 array def %380 bis 775 mit deltalambda=05 /SE00 82 array def %380 bis 775 mit deltalambda=05 /SC00 82 array def %380 bis 775 mit deltalambda=05 /SP00 82 array def %380 bis 775 mit deltalambda=05 /SQ00 82 array def %380 bis 775 mit deltalambda=05 /SDAK 82 array def %380 bis 775 mit deltalambda=05 /RA 82 array def %380 bis 770 nm /F2 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm /F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm /F10 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm %C %C LITERATURQUELLEN LICHTARTEN %C SA,SC,SD65, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.1, SEITE 81 %C SD55,SD75, CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 1.1.4, SEITE 85 %C LINEAR INTERPOLIERT VON 5 ZU 5NM %C SG,SP,SXE, DIN 5033, BLATT 7 ,SEITE 8-9 %C AUSGABE 1966 /SD65 %80 data 5 nm [50.0 52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 46.4 56.6 66.8 65.1] def /SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS [24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6 102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used /SA00 %80 data 5 nm CIE 15.3 Seite 30; aus JE540-1N.PS [9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59 232.12 234.59 237.01 239.37 0.0] def %0.0 not used % AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92 %C PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI- %C LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA %C BEI GEGEBENER TEMPERATUR T %C VERWENDETE VARIABLE %C T TEMPERATUR %C C2 PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) %C LAMDA(I) WELLENLAENGE %C S(I) STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS %C %C LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION, %C CA. 1969, SEITE 21 UND TABELLE 1.1.1 %C %SDP4 82 array def %380 bis 775 mit deltalambda=05 % DO 50 I=1,54 % 50 S(I)=100. % 1*(560./FLOAT(LAMDA(I)))**5 % 2*(EXP(C2/(560.*10.**(-7)*T))-1.) % 3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.) %new CIE 15.3:2004, Eq. (3.1) page 2 %S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560 )} - 1] % /[exp{(c2*10**7)/(TNC*lambda)} - 1] % exp = e {...} = 2.71 {...} %/TNC 2848 def %NLA /EE 2.718281 def %e=mac pocket calculator /C2 1.4350000 10 7 exp mul def /lamd 82 array def xchart8 1 eq {%xchart8=1 Dxx /TNC 4000 def %******************************************** 0 1 79 {%i=0,79 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNC 560 mul div def /E5 C2 TNC lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def SP40 i E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,79 } if %xchart8=1 Dxx %****************************************** xchart8 0 eq {%xchart8=0 Pxx %defined only for xchart8=0 Pxx /TNCj 8 array def /TNCj [6000 5500 5000 4500 4000 3500 3000 2500] def /SP60 82 array def %380 bis 775 mit deltalambda=05 /SP55 82 array def %380 bis 775 mit deltalambda=05 /SP50 82 array def %380 bis 775 mit deltalambda=05 /SP45 82 array def %380 bis 775 mit deltalambda=05 /SP40 82 array def %380 bis 775 mit deltalambda=05 /SP35 82 array def %380 bis 775 mit deltalambda=05 /SP30 82 array def %380 bis 775 mit deltalambda=05 /SP25 82 array def %380 bis 775 mit deltalambda=05 0 1 7 {/j exch def %j=0,7 0 1 79 {%i=0,79 /i exch def /lambda 380 i 5 mul add def lamd i lambda put /E1 560 lambda div 5 exp def /E4 C2 TNCj j get 560 mul div def /E5 C2 TNCj j get lambda mul div def /E6 EE E4 exp def /E7 EE E5 exp def j 0 eq {SP60 i} if j 1 eq {SP55 i} if j 2 eq {SP50 i} if j 3 eq {SP45 i} if j 4 eq {SP40 i} if j 5 eq {SP35 i} if j 6 eq {SP30 i} if j 7 eq {SP25 i} if E1 100 mul E6 1 sub E7 1 sub div mul put } for %i=0,79 } for %j=0,7 } if %xchart8=0 %************************************************* /SE00 %80 data 5 nm [100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used /SC00 %80 data 5 nm [ 33.00 39.92 47.40 55.17 63.30 71.81 80.60 89.53 98.10 105.80 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09 123.90 122.92 120.70 116.90 112.10 106.98 102.30 98.81 96.90 96.78 98.00 99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15 97.80 95.43 93.20 91.22 89.70 88.83 88.40 88.19 88.10 88.06 88.00 87.86 87.80 87.99 88.20 88.20 87.90 87.22 86.30 85.30 84.00 82.21 80.20 78.24 76.30 74.36 72.40 70.40 68.30 66.30 64.40 62.80 61.50 60.20 59.20 58.50 58.10 58.00 58.20 58.50 ] def %0.0 not used 0 1 79 {/i exch def %i=0,79 /lamda 380 i 5 mul add def SP00 i SE00 i get lamda 560 div mul put SQ00 i SE00 i get 1120 lamda sub 560 div mul put } for %i=0,79 %C LITERATURQUELLEN SPEKTRALWERTE %C F2 CIE-DOKUMENT NR.15 FARBMESSUNG, 1971 %C TABELLE 2.1, SEITE 93-102 /F2 %3x80 data [.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 .004109 .002899 .002049 .001440 .0009999 .0006901 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 .01192 .00821 .005723 .004102 .002929 .002091 .001484 .001047 .00074 .00052 .0003611 .0002492 .0001719 .00012 .0000848 .00006 .0000424 .00003 .0000212 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 %26 ] def /F10 %3x80 data [.00016 .0006624 .002362 .007242 .01911 .0434 .08474 .1406 .2045 .2647 .3147 .3577 .3837 .3867 .3707 .343 .3023 .2541 .1956 .1323 .08051 .04107 .01617 .005132 .003816 .01544 .03746 .07136 .1177 .173 .2365 .3042 .3768 .4516 .5298 .6161 .7052 .7938 .8787 .9512 1.0142 1.0743 1.1185 1.1343 1.124 1.0891 1.0305 .9507 .8563 .7549 .6475 .5351 .4316 .3437 .2683 .2043 .1526 .1122 .08126 .05793 .04085 .02862 .019941 .01384 .0100 .006605 .004552 .003145 .002175 .001506 .001045 .0007274 .0005083 .0003564 .000251 .0001777 .0001264 .00009015 .00006453 .00004634 .00001736 .00007156 .0002534 .0007685 .002004 .004509 .008756 .01446 .02139 .0295 .03868 .0496 .06208 .0747 .08946 .1063 .1282 .1528 .1852 .2199 .2536 .2977 .3391 .3954 .4608 .5314 .6067 .6857 .7618 .8233 .8752 .9238 .962 .9822 .9918 .9991 .9973 .9824 .9555 .9152 .8689 .8256 .7774 .7203 .6583 .5939 .528 .4618 .3981 .3395 .2835 .2282 .1798 .1402 .1076 .08119 .06028 .0441 .0318 .0226 .0159 .01113 .007749 .0053751 .0037177 .002565 .001768 .001222 .0008462 .0005864 .0004074 .000284 .0001987 .0001395 .00009843 .00006982 .00004974 .00003554 .00002549 .00001834 .0007048 .002928 .01048 .03234 .08601 .1971 .3894 .6568 .9725 1.2825 1.5535 1.7985 1.9673 2.0273 1.9948 1.9007 1.7454 1.5549 1.3176 1.0302 .7721 .5701 .4152 .3024 .2185 .1592 .112 .08225 .06071 .04305 .03045 .02058 .01368 .007918 .003988 .001091 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %30 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %40 0.0 0.0 0.0 0.0 %44 ] def %calculation of transformation data /FARBE 30 array def /FARBE [(R) (m) ( 561_770) %00 (Y) (m) ( 520_770) %01 (G) (m) ( 475_573) %02 (C) (m) ( 380_561) %03 (B) (m) ( 380_520) %04 (M) (m) ( 573_475) %05 (G) (o) ( 520_570) %06 (M) (o) ( 570_520) %07 (W) (0) ( 380_770) %08 (N) (0) ( 380_770) %09 ] def /xshift 10 array def %max 6 device + 4 elementary /yshift 10 array def /colori 10 array def /RX0 720 array def %9x80 /RX0 [ %(%Rm 00 560_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0036 0036 0036 0036 0036 0036 0468 0900 0900 0900 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %(%Ym 01 520_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0036 0036 0036 0036 0036 0036 0036 0036 0468 0900 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %(%Gm 02 475_575) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0036 0036 0036 0036 0036 0036 0036 0036 0036 0468 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0900 0900 0900 0900 0900 0900 0900 0900 0900 0468 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %(%Cm 03 380_560) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0900 0900 0900 0900 0900 0900 0468 0036 0036 0036 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %(%Bm 04 380_520) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0900 0900 0900 0900 0900 0900 0900 0900 0468 0036 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %(%Mm 05 575_475) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0900 0900 0900 0900 0900 0900 0900 0900 0900 0468 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0036 0036 0036 0036 0036 0036 0036 0036 0036 0468 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %(%Go 06 520_570) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0036 0036 0036 0036 0036 0036 0036 0036 0468 0900 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0900 0900 0900 0900 0900 0900 0900 0900 0468 0036 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %(%Mo 07 570_520) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0900 0900 0900 0900 0900 0900 0900 0900 0468 0036 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0036 0036 0036 0036 0036 0036 0036 0036 0468 0900 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %(%W0(r=0,900) 08 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0900 0900 0900 0900 0900 0900 0900 0900 0900 0900 %(%N0(r=0,036) 09 380_770) %380 %385 %390 %395 %400 %405 %410 %415 %420 %425 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %430 %435 %440 %445 %450 %455 %460 %465 %470 %475 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %480 %485 %490 %495 %500 %505 %510 %515 %520 %525 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %530 %535 %540 %545 %550 %555 %560 %565 %570 %575 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %580 %585 %590 %595 %600 %605 %610 %615 %620 %625 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %630 %635 %640 %645 %650 %655 %660 %665 %670 %675 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %680 %685 %690 %695 %700 %705 %710 %715 %720 %725 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 %730 %735 %740 %745 %750 %755 %760 %765 %770 %775 0036 0036 0036 0036 0036 0036 0036 0036 0036 0036 ] def /xcol10_BS {TBL 0 -50 rmoveto (10) show 0 50 rmoveto TBS} bind def /xcol10KBS {TBL 0 -50 rmoveto (,10) show 0 50 rmoveto TBS} bind def /xcolorl xcolor def 0 1 0 {/xcolorl exch def %xcolorl=0,0 xcolorl 1 eq {0 1 239 {/i exch def %i=0,239 F2 i F10 i get put } for %i=0,239 } if /YKSUM 0 def %For CIE Illuminant E 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM F2 80 i add get add def } for %i=0,1,79 /F2N 240 array def 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add F2 00 i add get YKSUM div 100 mul put F2N 80 i add F2 80 i add get YKSUM div 100 mul put F2N 160 i add F2 160 i add get YKSUM div 100 mul put } for %i=0,1,79 /FXN 82 array def %FXN 0 = F2N imax /FYN 82 array def /FZN 82 array def %defines FXN, FYN, FZN 0 to 79 0 1 79 {/i exch def %i=0,79 FXN i F2N 000 i add get put FYN i F2N 080 i add get put FZN i F2N 160 i add get put } for %i=0,79 %special wavelength range with complementary colours for E? /FXD 63 array def /FYD 63 array def /FZD 63 array def /DOW 63 array def 00 1 60 {/i exch def %i=0,60 %range 400..700nm FXD i FXN 005 i add get put FYD i FYN 005 i add get put FZD i FZN 005 i add get put DOW i 400 i 5 mul add put %range 400 to 700 } for %i=0,60 %for interpolation FXD 61 FXD 60 get put FYD 61 FYD 60 get put FZD 61 FZD 60 get put FXD 62 FXD 60 get put FYD 62 FYD 60 get put FZD 62 FZD 60 get put /FAD 63 array def /FBD 63 array def /FCD 63 array def 20 setlinewidth /xdel 1005 def /ydel 395 def /x0 050 def /x1 -150 def /Xi 82 array def %80 spectral colours 380 to 775nm /Yi 82 array def /Zi 82 array def /XANi 82 array def /YANi 82 array def /ZANi 82 array def /AANi 82 array def %actual data for plot, spectral colours /BANi 82 array def /FXNZ 17 array def /FYNZ 17 array def /FZNZ 17 array def /XZi 17 array def /YZi 17 array def /ZZi 17 array def /XANZi 17 array def /YANZi 17 array def /ZANZi 17 array def /AANZi 17 array def %actual data for plot, purple colours /BANZi 17 array def /XRj 10 array def %10 spectral or max 10 device colours /YRj 10 array def /ZRj 10 array def /XANRj 10 array def /YANRj 10 array def /ZANRj 10 array def /XSj 10 array def %10 spectral or max 10 device atagonistic colours /YSj 10 array def /ZSj 10 array def /XANSj 10 array def /YANSj 10 array def /ZANSj 10 array def /XCj 10 array def %10 spectral from continuous colours /YCj 10 array def /ZCj 10 array def /XANCj 10 array def /YANCj 10 array def /ZANCj 10 array def /XAj 10 array def %10 spectral from continuous colours /YAj 10 array def /ZAj 10 array def /XANAj 10 array def /YANAj 10 array def /ZANAj 10 array def /RAk 82 array def 0 1 0 {/xchart4 exch def %xchart4=0,7 /xchartl xchart def 0 1 0 {/xchartl exch def %xchartl=0,7 %/K 0 def %for normalization 1 /K 1 def %for normalization 0,900 gsave 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolorl cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow 4 /Times-ISOL1 FS 72 86 moveto (BGA20-2N) show 72 90 translate 0.010 MM dup scale 25 setlinewidth 0 0 0 0 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath fill 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath clip 0 0 0 1 setcmyk_olvcolor 0 0 moveto 5400 0 rlineto 0 4000 rlineto 5400 neg 0 rlineto closepath stroke %calculation of XW,YW,ZW for 8 illuminants Dxx or Pxx 0 1 79 {/i exch def %i=0,79 SDAK i xchart8 0 eq {%xchart8=0 Pxx xchartl 0 eq {SP60 i get put} if xchartl 1 eq {SP55 i get put} if xchartl 2 eq {SP50 i get put} if xchartl 3 eq {SP45 i get put} if xchartl 4 eq {SP40 i get put} if xchartl 5 eq {SP35 i get put} if xchartl 6 eq {SP30 i get put} if xchartl 7 eq {SP25 i get put} if }%xchart8=0 Pxx {%xchart8=1 Dxx xchartl 0 eq {SD65 i get put} if xchartl 1 eq {SD50 i get put} if xchartl 2 eq {SP40 i get put} if xchartl 3 eq {SA00 i get put} if xchartl 4 eq {SE00 i get put} if xchartl 5 eq {SC00 i get put} if xchartl 6 eq {SP00 i get put} if xchartl 7 eq {SQ00 i get put} if } ifelse %xchart8=1 Dxx } for %i=0,79 /YKSUM 0 def 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM SDAK i get F2 80 i add get mul add def } for %i=0,1,79 0 1 79 {/i exch def %i=0,1,79 F2N 00 i add SDAK i get F2 00 i add get mul YKSUM div 100 mul put F2N 80 i add SDAK i get F2 80 i add get mul YKSUM div 100 mul put F2N 160 i add SDAK i get F2 160 i add get mul YKSUM div 100 mul put } for %i=0,1,79 %XW,YW,ZW for white /XW 0 def /YW 0 def /ZW 0 def 0 1 079 {/i exch def %i=0,79 /XW XW F2N 00 i add get add def /YW YW F2N 80 i add get add def /ZW ZW F2N 160 i add get add def } for %i=0,79 /SUMW XW YW add ZW add def %for D65, D50, P40, A00, E00 /XANW XW SUMW div def /YANW YW SUMW div def /ZANW ZW SUMW div def /AANW XW YW 0.0001 add div def /BANW ZW YW 0.0001 add div 0.4 mul neg def %************************************************ %XYZRj for 10 reflections 0 1 09 {/j exch def %j=0,9 %10 Reflections /jx j 80 mul def 0 1 79 {/i exch def %i=0,79 RAk i RX0 jx i add get 1000 div put } for %i=0,79 /XR 0 def /YR 0 def /ZR 0 def 0 1 079 {/i exch def %i=0,79 /XR XR F2N 00 i add get RAk i get mul add def /YR YR F2N 80 i add get RAk i get mul add def /ZR ZR F2N 160 i add get RAk i get mul add def } for %i=0,79 XRj j XR put YRj j YR put ZRj j ZR put /SUMR XR YR add ZR add def XANRj j XR SUMR 0.0001 add div put YANRj j YR SUMR 0.0001 add div put ZANRj j ZR SUMR 0.0001 add div put } for %j=0,9 %******************************************* 0 1 62 {/i exch def %i=0,62 FAD i FXD i get put FBD i FYD i get put FCD i FZD i get put } for %i=0,62 %************************************************* %XW,YW,ZW and XK,YK,ZK for white /XW 0 def /YW 0 def /ZW 0 def 0 1 079 {/i exch def %i=0,79 /XW XW F2N 00 i add get add def /YW YW F2N 80 i add get add def /ZW ZW F2N 160 i add get add def } for %i=0,79 K 0 eq {%K=0 /XK XW def /YK YW def /ZK ZW def }%K=0 {%K=1 /XK XW 0.9000 mul def /YK YW 0.9000 mul def /ZK ZW 0.9000 mul def } ifelse %K=1 /SUMK XK YK add ZK add def %for D65, D50, P40, A00, E00 /XANK XK SUMK div def /YANK YK SUMK div def /ZANK ZK SUMK div def proz_chromaticity_lines %************************************************* % 0 1 2 3 4 5 6 7 % (P60)(P55)(P50)(P45)(P40)(P35)(P30)(P25) %or (D65)(D50)(P40)(A00)(E00)(C00)(P00)(Q00) /fakt 4000 def 600 400 translate %for scala and graphic %XANW fakt mul YANW fakt mul 90 0 360 arc stroke newpath XANW fakt mul 400 sub YANW fakt mul 150 sub moveto TBL TELi xchartl get show newpath /AnY400 AANSi 4 get fakt mul def /BnY400 BANSi 4 get fakt mul def /AnY700 AANSi 64 get fakt mul def /BnY700 BANSi 64 get fakt mul def /AnYW XANW fakt mul def /BnYW YANW fakt mul def AnY400 BnY400 moveto AnYW BnYW lineto stroke AnY700 BnY700 moveto AnYW BnYW lineto stroke newpath %400 /AnY1 AnY400 def /BnY1 BnY400 def /AnYW XANW fakt mul def /BnYW YANW fakt mul def /mABY BnYW BnY1 sub AnYW AnY1 sub 0.0001 add div def /bABY BnYW AnYW mABY mul sub def %x+y+z=1, z=0 %x+y=1 %AnY1/fakt + BnY1/fakt =1 %ANY1+BnY1=fakt or xS+yS=fakt or xS=fakt-yS %yS=m*xS+b %yS=m*(fakt-yS)+b %yS+m*yS=m*fakt+b %yS=(m*fakt+b)/(1+m) /BnYx1 bABY mABY fakt mul add 1 mABY add 0.0001 add div def /AnYx1 fakt BnYx1 sub def %******************************************** %700 /AnY2 AnY700 def /BnY2 BnY700 def /AnYW XANW fakt mul def /BnYW YANW fakt mul def /mABY BnYW BnY2 sub AnYW AnY2 sub 0.0001 add div def /bABY BnYW AnYW mABY mul sub def /AnYx2 0 def /BnYx2 bABY def 1 0 0 setrgbcolor [100] 0 setdash AnY1 BnY1 moveto AnYx1 BnYx1 lineto stroke AnY2 BnY2 moveto AnYx2 BnYx2 lineto stroke 0 1 0 setrgbcolor xchartl 4 eq {%xchart4=4 %E00 0 1 2 {/j exch def %j=0,3 j 0 eq {/i1 24 def /i2 02 def} if j 1 eq {/i1 29 def /i2 07 def} if j 2 eq {/i1 34 def /i2 12 def} if j 3 eq {/i1 29 def /i2 5 def} if /AnYj1 AANSi i1 get fakt mul def /BnYj1 BANSi i1 get fakt mul def /AnYj2 AANZi i2 get fakt mul def /BnYj2 BANZi i2 get fakt mul def AnYj1 BnYj1 moveto AnYj2 BnYj2 lineto stroke } for %j=0,3 } if %xchart4=4 %E00 0 setgray [ ] 0 setdash newpath XANW fakt mul YANW fakt mul 90 0 360 arc stroke -600 -400 translate %for scala and grafic %************************************************************** showpage grestore } for %xchartl=0,7 } for %xchart4=0,0 } for %xcolorl=0,0 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 SHSl sub 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 BGA20-3N %%BoundingBox: 70 85 226 206 /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://farbe.li.tu-berlin.de/BGA2/BGA2.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022030112000) /ModDate (D:2022030112000) /DOCINFO pdfmark03 [ /View [ /Fit ] /DOCVIEW pdfmark03 /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 % End for EPS file 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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /RG {350 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RIG {350 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIL {160 /Times-Italic 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 %rygcbm*d 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 /tzrolv* {1.0 0.0 0.2} bind def %Elementary colours /tzyolv* {1.0 0.9 0.0} bind def %rygb*e /tzgolv* {0.0 1.0 0.2} bind def /tzbolv* {0.2 0.0 1.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 /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /proz_dcolor {%proz_dcolor /xdd 250 def tzoolv* setrgbcolor xmd 000 0 mul add ymd 100 0 360 arc fill tzyolv* setrgbcolor xmd xdd 1 mul add ymd 100 0 360 arc fill tzlolv* setrgbcolor xmd xdd 2 mul add ymd 100 0 360 arc fill tzcolv* setrgbcolor xmd xdd 3 mul add ymd 100 0 360 arc fill tzvolv* setrgbcolor xmd xdd 4 mul add ymd 100 0 360 arc fill tzmolv* setrgbcolor xmd xdd 5 mul add ymd 100 0 360 arc fill newpath } bind def %proz_dcolor /proz_ecolor {%proz_ecolor /xdd 250 def tzrolv* setrgbcolor xme 000 0 mul add yme 100 0 360 arc fill 0 setgray xme 000 0 mul add yme 100 0 360 arc stroke tzyolv* setrgbcolor xme xdd 1 mul add yme 100 0 360 arc fill 0 setgray xme xdd 1 mul add yme 100 0 360 arc stroke tzgolv* setrgbcolor xme xdd 2 mul add yme 100 0 360 arc fill 0 setgray xme xdd 2 mul add yme 100 0 360 arc stroke tzbolv* setrgbcolor xme xdd 3 mul add yme 100 0 360 arc fill 0 setgray xme xdd 3 mul add yme 100 0 360 arc stroke newpath } bind def %proz_ecolor %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % gsave %LANINDL2 END 0 setgray 4 /Times-Roman FS 72 86 moveto ( BGA20-3N) show /LAB*a [%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 gsave 72 90 translate 0.01 MM dup scale /DEintp 0 def /xcharts 10 def 20 setlinewidth 0.5 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath fill 0.0 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath stroke /x00t 1800 def /x01t 3250 def TBK 0050 3800 moveto (Six device colours in 1 elementary hue system) showen (6 Ger\344tefarben in 1 Elementarbuntton\255System) showde newpath 0 setgray /xmd x00t def /ymd 3500 100 add def 0050 3500 moveto TIK (RYGCBM) show TS 0 -50 rmoveto (ds) show newpath proz_dcolor newpath 0 setgray /xme x00t def /yme 3200 100 add def 0050 3200 moveto TIK (RYGB) show TS 0 -50 rmoveto (es) show newpath proz_ecolor 0 setgray x01t 3500 moveto TK (triangle system:) showen (Dreiecks\255System:) showde x01t 3200 moveto TK (surface colours) showen (K\366rperfarben) showde TBIK ( rgb*) show TK TS -150 -100 rmoveto (s) show 150 100 rmoveto TK 2300 0350 moveto TIL (more coordinates and relations:) showen (mehr Koordinaten und Beziehungen:) showde 2300 0100 moveto TIL 0 1 1 setrgbcolor (http://farbe.li.tu-berlin.de/A/33872E.html) showen (http://farbe.li.tu-berlin.de/A/33872.html) showde 0 setgray TIM 1800 1300 translate 0 -1000 moveto 0 2500 rlineto stroke /rx 774 def %standard hexagon gamut /fakt 1.5 def /iangle 10 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0.0 setgray /a0 0 def /b0 rx 1.5 mul def /c0 rx 1.5 mul neg def /faktr 0.6 def /fakt0 1.4 def 100 1500 moveto (t*) show %************************************BEGs /iangle 170 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 30 60 210 {/iangle exch def %iangle=30,60,210 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [50 50] 0 setdash iangle 030 eq {c d moveto} if c d lineto iangle 210 eq {stroke} if } for %iangle=30,60,210 /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 1 eq {%inr=1 inr 0 ge inr 1 eq or {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul b0x c0 sub fakt0 mul rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill 0 0 0 setrgbcolor [ ] 0 setdash %[50 50] 0 setdash a0x b0x 100 0 360 arc stroke } if %inr=1 } for %inr=0,2 210 60 390 {/iangle exch def %iangle=210,60,390 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [ ] 0 setdash %[50 50] 0 setdash iangle 210 eq {c d moveto} if c d lineto iangle 390 eq {stroke} if } for %iangle=210,60,390 30 60 330 {/iangle exch def %iangle=30,60,330 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash a0 b0 moveto c d lineto stroke iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash a0 c0 moveto c d lineto stroke iangle 030 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if iangle 090 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if iangle 150 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if iangle 210 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if iangle 270 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if iangle 330 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if r*x g*x b*x setrgbcolor c d 100 0 360 arc fill } for %iangle=30,60,330 %************************************ENDs 1 1 1 setrgbcolor %W a0 b0 100 0 360 arc fill 0 0 0 setrgbcolor %N a0 b0 100 0 360 arc stroke 0 0 0 setrgbcolor %N a0 c0 100 0 360 arc fill %plot line of actual hue 50 setlinewidth xcharts 0 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if xcharts 1 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if xcharts 2 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if xcharts 3 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if xcharts 4 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if xcharts 5 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if xcharts 5 le {%xcharts<=5 r*x g*x b*x setrgbcolor 0 0 moveto /A*Ma LAB*a xcharts 3 mul 1 add get def /B*Ma LAB*a xcharts 3 mul 2 add get def A*Ma 10 mul B*Ma 10 mul lineto stroke } if %xcharts<=5 %****************************************BEGs /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 0 eq inr 2 eq or {%inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul inr 2 eq {1.1 mul} if b0x c0 sub fakt0 mul inr 2 eq {1.1 mul} if rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill } if %inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor inr 0 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 300 add moveto (r*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if inr 1 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 200 add moveto (g*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if inr 2 eq {a0 a0x a0 sub fakt0 mul add 550 sub c0 b0x c0 sub fakt0 mul add 400 add moveto (b*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if 0 0 0 setrgbcolor newpath [ ] 0 setdash a0x b0x 100 0 360 arc stroke newpath } for %inr=0,2 %****************************************ENDs -1200 -1300 translate grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add 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 BGA20-4N %%BoundingBox: 70 85 226 206 /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://farbe.li.tu-berlin.de/BGA2/BGA2.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2020110112000) /ModDate (D:2020110112000) /DOCINFO pdfmark04 [ /View [ /Fit ] /DOCVIEW pdfmark04 /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 % End for EPS file 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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol 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 %rygcbm*d 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 /tzrolv* {1.0 0.0 0.2} bind def %Elementary colours /tzyolv* {1.0 0.9 0.0} bind def %rygb*e /tzgolv* {0.0 1.0 0.2} bind def /tzbolv* {0.2 0.0 1.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 /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /proz_dcolor {%proz_dcolor /xdd 250 def tzoolv* setrgbcolor xmd 000 0 mul add ymd 100 0 360 arc fill tzyolv* setrgbcolor xmd xdd 1 mul add ymd 100 0 360 arc fill tzlolv* setrgbcolor xmd xdd 2 mul add ymd 100 0 360 arc fill tzcolv* setrgbcolor xmd xdd 3 mul add ymd 100 0 360 arc fill tzvolv* setrgbcolor xmd xdd 4 mul add ymd 100 0 360 arc fill tzmolv* setrgbcolor xmd xdd 5 mul add ymd 100 0 360 arc fill newpath } bind def %proz_dcolor /proz_ecolor {%proz_ecolor /xdd 250 def tzrolv* setrgbcolor xme 000 0 mul add yme 100 0 360 arc fill 0 setgray xme 000 0 mul add yme 100 0 360 arc stroke tzyolv* setrgbcolor xme xdd 1 mul add yme 100 0 360 arc fill 0 setgray xme xdd 1 mul add yme 100 0 360 arc stroke tzgolv* setrgbcolor xme xdd 2 mul add yme 100 0 360 arc fill 0 setgray xme xdd 2 mul add yme 100 0 360 arc stroke tzbolv* setrgbcolor xme xdd 3 mul add yme 100 0 360 arc fill 0 setgray xme xdd 3 mul add yme 100 0 360 arc stroke newpath } bind def %proz_ecolor %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % gsave %LANINDL2 END 0 setgray 4 /Times-Roman FS 72 86 moveto ( BGA20-4N) show /LAB*a [%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 gsave 72 90 translate 0.01 MM dup scale /DEintp 0 def /xcharts 10 def 20 setlinewidth 0.5 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath fill 0.0 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath stroke /x00t 1800 def /x01t 3250 def TBK 0050 3800 moveto (Six device colours in 2 elementary hue systems) showen (6 Ger\344tefarben in 2 Elementarbuntton\255Systemen) showde TBK newpath 0 setgray /xmd x00t def /ymd 3500 100 add def 0050 3500 moveto TIK (RYGCBM) show TS 0 -50 rmoveto (ds,do) show newpath proz_dcolor newpath 0 setgray /xme x00t def /yme 3200 100 add def 0050 3200 moveto TIK (RYGB) show TS 0 -50 rmoveto (es,eo) show newpath proz_ecolor x01t 3500 moveto TK (triangle systems:) showen (Dreiecks\255Systeme:) showde x01t 3200 moveto TK (surface colours) showen (K\366rperfarben) showde TBIK ( rgb*) show TK TS -150 -100 rmoveto (s) show 150 100 rmoveto TK x01t 2900 moveto TK (optimal colours) showen (Optimalfarben) showde TBIK ( rgb*) show TK TS -150 -100 rmoveto (o) show 150 100 rmoveto TK TIM 2300 1300 translate 0 -1000 moveto 0 2500 rlineto stroke /rx 774 def %standard hexagon gamut /fakt 1.5 def /iangle 10 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0.0 setgray /a0 0 def /b0 rx 1.5 mul def /c0 rx 1.5 mul neg def /faktr 0.6 def /fakt0 1.5 def 100 1500 moveto (t*) show %************************************BEGs /iangle 170 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 30 60 210 {/iangle exch def %iangle=30,60,210 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [50 50] 0 setdash iangle 030 eq {c d moveto} if c d lineto iangle 210 eq {stroke} if } for %iangle=30,60,210 /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 1 eq {%inr=1 %inr 0 ge inr 1 eq or {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul b0x c0 sub fakt0 mul rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill 0 0 0 setrgbcolor [ ] 0 setdash a0x b0x 100 0 360 arc stroke } if %inr=1 } for %inr=0,2 210 60 390 {/iangle exch def %iangle=210,60,390 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray %[ ] 0 setdash [50 50] 0 setdash iangle 210 eq {c d moveto} if c d lineto iangle 390 eq {stroke} if } for %iangle=210,60,390 30 60 330 {/iangle exch def %iangle=30,60,330 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray %iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash a0 b0 moveto c d lineto stroke %iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash a0 c0 moveto c d lineto stroke iangle 030 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if iangle 090 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if iangle 150 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if iangle 210 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if iangle 270 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if iangle 330 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if r*x g*x b*x setrgbcolor c d 100 0 360 arc fill } for %iangle=30,60,330 %************************************ENDs %************************************BEGo /rxo rx 1.35 mul def /iangle 170 def /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 30 60 210 {/iangle exch def %iangle=30,60,210 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [50 50] 0 setdash iangle 030 eq {c d moveto} if c d lineto iangle 210 eq {stroke} if } for %iangle=30,60,210 /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rxo iangle1 cos mul def /b1 rxo iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rxo iangle2 cos mul def /b2 rxo iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 1 eq {%inr=1 inr 0 ge inr 1 eq or {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash %NEW inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul b0x c0 sub fakt0 mul rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill 0 0 0 setrgbcolor [ ] 0 setdash a0x b0x 100 0 360 arc stroke } if %inr=1 } for %inr=0,2 210 60 390 {/iangle exch def %iangle=210,60,390 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [ ] 0 setdash %[50 50] 0 setdash iangle 210 eq {c d moveto} if c d lineto iangle 390 eq {stroke} if } for %iangle=210,60,390 30 60 330 {/iangle exch def %iangle=30,60,330 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash a0 b0 moveto c d lineto stroke iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse %[50 50] 0 setdash a0 c0 moveto c d lineto stroke iangle 030 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if iangle 090 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if iangle 150 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if iangle 210 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if iangle 270 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if iangle 330 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if r*x g*x b*x setrgbcolor c d 100 0 360 arc fill } for %iangle=30,60,330 %************************************ENDo 1 1 1 setrgbcolor %W a0 b0 100 0 360 arc fill 0 0 0 setrgbcolor %N a0 b0 100 0 360 arc stroke 0 0 0 setrgbcolor %N a0 c0 100 0 360 arc fill %plot line of actual hue 50 setlinewidth xcharts 0 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if xcharts 1 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if xcharts 2 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if xcharts 3 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if xcharts 4 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if xcharts 5 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if xcharts 5 le {%xcharts<=5 r*x g*x b*x setrgbcolor 0 0 moveto /A*Ma LAB*a xcharts 3 mul 1 add get def /B*Ma LAB*a xcharts 3 mul 2 add get def A*Ma 10 mul B*Ma 10 mul lineto stroke } if %xcharts<=5 %************************************BEGs /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 0 eq inr 2 eq or {%inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul inr 2 eq {1.1 mul} if b0x c0 sub fakt0 mul inr 2 eq {1.1 mul} if rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill } if %inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor inr 0 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 300 add moveto (r*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if inr 1 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 200 add moveto (g*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if inr 2 eq {a0 a0x a0 sub fakt0 mul add 550 sub c0 b0x c0 sub fakt0 mul add 400 add moveto (b*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if 0 0 0 setrgbcolor newpath [ ] 0 setdash a0x b0x 100 0 360 arc stroke newpath } for %inr=0,2 %************************************ENDs %****************************************BEGo /rxo rx 1.35 mul def /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rxo iangle1 cos mul def /b1 rxo iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rxo iangle2 cos mul def /b2 rxo iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 0 eq inr 2 eq or {%inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul inr 2 eq {1.1 mul} if b0x c0 sub fakt0 mul inr 2 eq {1.1 mul} if rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill } if %inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor inr 0 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 100 add moveto (r*) show TK -150 -100 rmoveto (o) show 150 100 rmoveto TIM } if inr 1 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 100 add moveto (g*) show TK -150 -100 rmoveto (o) show 150 100 rmoveto TIM } if inr 2 eq {a0 a0x a0 sub fakt0 mul add 300 sub c0 b0x c0 sub fakt0 mul add 250 add moveto (b*) show TK -150 -100 rmoveto (o) show 150 100 rmoveto TIM } if 0 0 0 setrgbcolor newpath [ ] 0 setdash a0x b0x 100 0 360 arc stroke newpath } for %inr=0,2 %***************************************************ENDo 1 1 1 setrgbcolor %W a0 b0 100 0 360 arc fill 0 0 0 setrgbcolor %N a0 b0 100 0 360 arc stroke 0 0 0 setrgbcolor %N a0 c0 100 0 360 arc fill -1200 -1300 translate grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 SHSl sub 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 BGA20-5N %%BoundingBox: 70 85 226 206 /pdfmark05 where {pop} {userdict /pdfmark05 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: http://farbe.li.tu-berlin.de/BGA2/BGA2.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022030112000) /ModDate (D:2022030112000) /DOCINFO pdfmark05 [ /View [ /Fit ] /DOCVIEW pdfmark05 /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 % End for EPS file 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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol 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 %rygcbm*d 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 /tzrolv* {1.0 0.0 0.2} bind def %Elementary colours /tzyolv* {1.0 0.9 0.0} bind def %rygb*e /tzgolv* {0.0 1.0 0.2} bind def /tzbolv* {0.2 0.0 1.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 /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /proz_dcolor {%proz_dcolor /xdd 250 def tzoolv* setrgbcolor xmd 000 0 mul add ymd 100 0 360 arc fill tzyolv* setrgbcolor xmd xdd 1 mul add ymd 100 0 360 arc fill tzlolv* setrgbcolor xmd xdd 2 mul add ymd 100 0 360 arc fill tzcolv* setrgbcolor xmd xdd 3 mul add ymd 100 0 360 arc fill tzvolv* setrgbcolor xmd xdd 4 mul add ymd 100 0 360 arc fill tzmolv* setrgbcolor xmd xdd 5 mul add ymd 100 0 360 arc fill newpath } bind def %proz_dcolor /proz_ecolor {%proz_ecolor /xdd 250 def tzrolv* setrgbcolor xme 000 0 mul add yme 100 0 360 arc fill 0 setgray xme 000 0 mul add yme 100 0 360 arc stroke tzyolv* setrgbcolor xme xdd 1 mul add yme 100 0 360 arc fill 0 setgray xme xdd 1 mul add yme 100 0 360 arc stroke tzgolv* setrgbcolor xme xdd 2 mul add yme 100 0 360 arc fill 0 setgray xme xdd 2 mul add yme 100 0 360 arc stroke tzbolv* setrgbcolor xme xdd 3 mul add yme 100 0 360 arc fill 0 setgray xme xdd 3 mul add yme 100 0 360 arc stroke newpath } bind def %proz_ecolor %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % gsave %LANINDL2 END 0 setgray 4 /Times-Roman FS 72 86 moveto ( BGA21-6N) show /LAB*a [%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 gsave 72 90 translate 0.01 MM dup scale /DEintp 0 def /xcharts 10 def 20 setlinewidth 0.5 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath fill 0.0 setgray 0 0 moveto 5300 0 rlineto 0 4000 rlineto -5300 0 rlineto closepath stroke /x00t 1800 def /x01t 3250 def TBK 050 3800 moveto (Six device colours in 3 elementary hue systems) showen (6 Ger\344tefarben in 3 Elementarbuntton\255Systemen) showde newpath 0 setgray /xmd x00t def /ymd 3500 100 add def 0050 3500 moveto TIK (RYGCBM) show TS 0 -50 rmoveto (ds,do,da) show newpath proz_dcolor newpath 0 setgray /xme x00t def /yme 3200 100 add def 0050 3200 moveto TIK (RYGB) show TS 0 -50 rmoveto (es,eo,ea) show newpath proz_ecolor /x01t 3250 def x01t 3500 moveto TK (triangle systems:) showen (Dreiecks\255Systeme:) showde x01t 3200 moveto TK (surface colours) showen (K\366rperfarben) showde TBIK ( rgb*) show TK TS -150 -100 rmoveto (s) show 150 100 rmoveto TK x01t 2900 moveto TK (optimal colours) showen (Optimalfarben) showde TBIK ( rgb*) show TK TS -150 -100 rmoveto (o) show 150 100 rmoveto TK x01t 2600 moveto TIK (Arens) showen TK ( colours) showen TIK (Arens) showde TK (\255Farben) showde TBIK ( rgb*) show TK TS -150 -100 rmoveto (a) show 150 100 rmoveto TK TIM 2300 1300 translate 0 -1000 moveto 0 2500 rlineto stroke /rx 774 def %standard hexagon gamut /fakt 1.5 def /iangle 10 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0.0 setgray /a0 0 def /b0 rx 1.5 mul def /c0 rx 1.5 mul neg def /faktr 0.6 def /fakt0 1.5 def 100 1500 moveto (t*) show %************************************BEGs /iangle 170 def /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 30 60 210 {/iangle exch def %iangle=30,60,210 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [50 50] 0 setdash iangle 030 eq {c d moveto} if c d lineto iangle 210 eq {stroke} if } for %iangle=30,60,210 /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 1 eq {%inr=1 %inr 0 ge inr 1 eq or {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul b0x c0 sub fakt0 mul rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill 0 0 0 setrgbcolor [ ] 0 setdash a0x b0x 100 0 360 arc stroke } if %inr=1 } for %inr=0,2 210 60 390 {/iangle exch def %iangle=210,60,390 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray %[ ] 0 setdash [50 50] 0 setdash iangle 210 eq {c d moveto} if c d lineto iangle 390 eq {stroke} if } for %iangle=210,60,390 30 60 330 {/iangle exch def %iangle=30,60,330 /a rx iangle cos mul def /b rx iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray %iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash a0 b0 moveto c d lineto stroke %iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash a0 c0 moveto c d lineto stroke iangle 030 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if iangle 090 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if iangle 150 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if iangle 210 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if iangle 270 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if iangle 330 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if r*x g*x b*x setrgbcolor c d 100 0 360 arc fill } for %iangle=30,60,330 %************************************ENDs %************************************BEGo /rxo rx 1.35 mul def /iangle 170 def /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 30 60 210 {/iangle exch def %iangle=30,60,210 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [50 50] 0 setdash iangle 030 eq {c d moveto} if c d lineto iangle 210 eq {stroke} if } for %iangle=30,60,210 /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rxo iangle1 cos mul def /b1 rxo iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rxo iangle2 cos mul def /b2 rxo iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 1 eq {%inr=1 %inr 0 ge inr 1 eq or {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash %NEW inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul b0x c0 sub fakt0 mul rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill 0 0 0 setrgbcolor [ ] 0 setdash a0x b0x 100 0 360 arc stroke } if %inr=1 } for %inr=0,2 210 60 390 {/iangle exch def %iangle=210,60,390 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray %[ ] 0 setdash [50 50] 0 setdash iangle 210 eq {c d moveto} if c d lineto iangle 390 eq {stroke} if } for %iangle=210,60,390 30 60 330 {/iangle exch def %iangle=30,60,330 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray %iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash a0 b0 moveto c d lineto stroke %iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash a0 c0 moveto c d lineto stroke iangle 030 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if iangle 090 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if iangle 150 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if iangle 210 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if iangle 270 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if iangle 330 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if r*x g*x b*x setrgbcolor c d 100 0 360 arc fill } for %iangle=30,60,330 %************************************ENDo %************************************BEGA /rxo rx 1.70 mul def /iangle 170 def /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 30 60 210 {/iangle exch def %iangle=30,60,210 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [50 50] 0 setdash iangle 030 eq {c d moveto} if c d lineto iangle 210 eq {stroke} if } for %iangle=30,60,210 /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rxo iangle1 cos mul def /b1 rxo iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rxo iangle2 cos mul def /b2 rxo iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 1 eq {%inr=1 %inr 0 ge inr 1 eq or {[50 50] 0 setdash} {[ ] 0 setdash} ifelse [50 50] 0 setdash %NEW inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul b0x c0 sub fakt0 mul rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill 0 0 0 setrgbcolor [ ] 0 setdash a0x b0x 100 0 360 arc stroke } if %inr=1 } for %inr=0,2 210 60 390 {/iangle exch def %iangle=210,60,390 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray [ ] 0 setdash iangle 210 eq {c d moveto} if c d lineto iangle 390 eq {stroke} if } for %iangle=210,60,390 30 60 330 {/iangle exch def %iangle=30,60,330 /a rxo iangle cos mul def /b rxo iangle sin mul def /c a b 0.5 mul add def /d b 0.5 mul def 0 setgray iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse a0 b0 moveto c d lineto stroke iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse a0 c0 moveto c d lineto stroke iangle 030 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if iangle 090 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if iangle 150 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if iangle 210 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if iangle 270 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if iangle 330 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if r*x g*x b*x setrgbcolor c d 100 0 360 arc fill } for %iangle=30,60,330 %************************************ENDA 1 1 1 setrgbcolor %W a0 b0 100 0 360 arc fill 0 0 0 setrgbcolor %N a0 b0 100 0 360 arc stroke 0 0 0 setrgbcolor %N a0 c0 100 0 360 arc fill %plot line of actual hue 50 setlinewidth xcharts 0 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if xcharts 1 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if xcharts 2 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if xcharts 3 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if xcharts 4 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if xcharts 5 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if xcharts 5 le {%xcharts<=5 r*x g*x b*x setrgbcolor 0 0 moveto /A*Ma LAB*a xcharts 3 mul 1 add get def /B*Ma LAB*a xcharts 3 mul 2 add get def A*Ma 10 mul B*Ma 10 mul lineto stroke } if %xcharts<=5 %************************************BEGs /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rx iangle1 cos mul def /b1 rx iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rx iangle2 cos mul def /b2 rx iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 0 eq inr 2 eq or {%inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul inr 2 eq {1.1 mul} if b0x c0 sub fakt0 mul inr 2 eq {1.1 mul} if rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill } if %inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor inr 0 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 300 add moveto (r*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if inr 1 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 200 add moveto (g*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if inr 2 eq {a0 a0x a0 sub fakt0 mul add 550 sub c0 b0x c0 sub fakt0 mul add 400 add moveto (b*) show TK -150 -100 rmoveto (s) show 150 100 rmoveto TIM } if 0 0 0 setrgbcolor newpath [ ] 0 setdash a0x b0x 100 0 360 arc stroke newpath } for %inr=0,2 %************************************ENDs %****************************************BEGo /rxo rx 1.35 mul def /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rxo iangle1 cos mul def /b1 rxo iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rxo iangle2 cos mul def /b2 rxo iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 0 eq inr 2 eq or {%inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul inr 2 eq {1.1 mul} if b0x c0 sub fakt0 mul inr 2 eq {1.1 mul} if rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill } if %inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor inr 0 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 100 add moveto (r*) show TK -150 -100 rmoveto (o) show 150 100 rmoveto TIM } if inr 1 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 100 add moveto (g*) show TK -150 -100 rmoveto (o) show 150 100 rmoveto TIM } if inr 2 eq {a0 a0x a0 sub fakt0 mul add 300 sub c0 b0x c0 sub fakt0 mul add 250 add moveto (b*) show TK -150 -100 rmoveto (o) show 150 100 rmoveto TIM } if 0 0 0 setrgbcolor newpath [ ] 0 setdash a0x b0x 100 0 360 arc stroke newpath } for %inr=0,2 %***************************************************ENDo %****************************************BEGA /rxo rx 1.7 mul def /antx [0.75 0.20 0.50] def 20 setlinewidth 0 1 2 {/inr exch def /ant antx inr get def inr 0 eq {/iangle1 330 def /iangle2 030 def} if inr 1 eq {/iangle1 150 def /iangle2 210 def} if inr 2 eq {/iangle1 210 def /iangle2 270 def} if /a1 rxo iangle1 cos mul def /b1 rxo iangle1 sin mul def /a0x1 a1 b1 0.5 mul add def /b0x1 b1 0.5 mul def /a2 rxo iangle2 cos mul def /b2 rxo iangle2 sin mul def /a0x2 a2 b2 0.5 mul add def /b0x2 b2 0.5 mul def /ant /a0x a0x1 a0x2 a0x1 sub ant mul add def /b0x b0x1 b0x2 b0x1 sub ant mul add def inr 0 eq inr 2 eq or {%inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor %0 0 moveto a0x b0x lineto stroke a0 c0 moveto a0x a0 sub fakt0 mul inr 2 eq {1.1 mul} if b0x c0 sub fakt0 mul inr 2 eq {1.1 mul} if rlineto stroke newpath a0x b0x moveto a0x b0x 100 0 360 arc fill } if %inr=0,2 inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B r*x g*x b*x setrgbcolor inr 0 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 100 add moveto (r*) show TK -150 -100 rmoveto (a) show 150 100 rmoveto TIM } if inr 1 eq {a0 a0x a0 sub fakt0 mul add 100 sub c0 b0x c0 sub fakt0 mul add 100 add moveto (g*) show TK -150 -100 rmoveto (a) show 150 100 rmoveto TIM } if inr 2 eq {a0 a0x a0 sub fakt0 mul add 300 sub c0 b0x c0 sub fakt0 mul add 250 add moveto (b*) show TK -150 -100 rmoveto (a) show 150 100 rmoveto TIM } if 0 0 0 setrgbcolor newpath [ ] 0 setdash a0x b0x 100 0 360 arc stroke newpath } for %inr=0,2 %***************************************************ENDA /iangle 30 def %Optimal colours /rxo rx 1.35 mul def /a rxo iangle cos mul def /b rxo iangle sin mul def /co a b 0.5 mul add def /do b 0.5 mul def 50 setlinewidth 1 0 0 setrgbcolor a0 c0 moveto %N a0 co add 0.55 mul c0 do add 0.5 mul lineto co do lineto %R co a0 add 0.6 mul do b0 add 0.5 mul lineto a0 b0 lineto stroke %W 1 1 1 setrgbcolor %W a0 b0 100 0 360 arc fill 0 0 0 setrgbcolor %N a0 b0 100 0 360 arc stroke 0 0 0 setrgbcolor %N a0 c0 100 0 360 arc fill -1200 -1300 translate grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add 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 BGA20-6N %%BoundingBox: 70 85 226 206 /pdfmark06 where {pop} {userdict /pdfmark06 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: http://farbe.li.tu-berlin.de/BGA2/BGA2.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022030112000) /ModDate (D:2022030112000) /DOCINFO pdfmark06 [ /View [ /Fit ] /DOCVIEW pdfmark06 /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 % End for EPS file 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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol 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 /tzrcmy0* {0.0 1.0 0.5 0.0} bind def %Reproduction colours /tzjcmy0* {0.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzgcmy0* {1.0 0.0 0.5 0.0} bind def /tzbcmy0* {1.0 0.5 0.0 0.0} 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 /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % gsave %LANINDL2 END 4 /Times-Roman FS 72 86 moveto ( BGA20-6N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth 0.5 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill 0.0 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath stroke TBK 0.0 0.0 0.0 0.0 setcmykcolor %W 0040 3800 moveto (sechs Ger\344te\255) showde (six device) showen 0040 3570 moveto (farben) showde (colours) showen 0040 3330 moveto TBIK (RYGCBM) show -10 -50 rmoveto (d) show 0 50 rmoveto 3800 3800 moveto TBK (do=) show (device) showen (Ger\344te\255) showde 3800 3570 moveto (Optimalfarben) showde (optimal colours) showen newpath 3800 0330 moveto TBK (ds=) show (device) showen (Ger\344te\255) showde 3800 0100 moveto (K\366rperfarben) showde (surface colours) showen newpath 0040 0330 moveto TBK (da=) show (device) showen (Ger\344te\255) showde 0040 0100 moveto TBIK (Arens) show TBK (\255Farben) showde ( colours) showen newpath /xtr 2700 def /ytr 2000 def /ira 1750 def xtr ytr translate 0 1 2 {/j exch def %j=0,2 0 setgray /irad ira 550 j mul sub def j 1 ge {[100] 0 setdash} if 0 0 irad 0 360 arc stroke } for %j=0,2 [] 0 setdash newpath /ixm 0 def /iym 0 def /irax ira 30 cos mul def /iray ira 30 sin mul def 30 setlinewidth tzrcmy0* setcmykcolor ixm iym moveto irax iray rlineto stroke %R %40 setlinewidth %tzncmy0* setcmykcolor %ixm iym moveto 0 ira rlineto stroke %J 30 setlinewidth tzjcmy0* setcmykcolor ixm iym moveto 0 ira rlineto stroke %J /irax ira 150 cos mul def /iray ira 150 sin mul def 30 setlinewidth tzgcmy0* setcmykcolor ixm iym moveto irax iray rlineto stroke %G /irax ira 210 cos mul def /iray ira 210 sin mul def 30 setlinewidth tzccmy0* setcmykcolor ixm iym moveto irax iray rlineto stroke %C 30 setlinewidth tzbcmy0* setcmykcolor ixm iym moveto 0 ira neg rlineto stroke %B /irax ira 330 cos mul def /iray ira 330 sin mul def 30 setlinewidth tzmcmy0* setcmykcolor ixm iym moveto irax iray rlineto stroke %M newpath /ix1 0240 def /iy1 0240 def /ix2 0480 def /iy2 0480 def /ir0 0220 def /ixrs 0060 def %shift R /ixys 0060 def %shift Y /ixgs 0040 def %shift G /ixbs 0060 def %shift B %************************************************ %special smaler text size /TBIM1 {270 /TimesBI-ISOL1 FS} bind def %instead 280 /TBK1 {210 /TimesB-ISOL1 FS} bind def %instead 240 0 1 2 {/j exch def /irad ira 550 j mul sub def /irax irad 30 cos mul def /iray irad 30 sin mul def tzrcmy0* setcmykcolor irax iray ir0 0 360 arc fill newpath tzccmy0* setcmykcolor irax 250 sub ixrs add iray 080 sub moveto TBIM (R) show TBK1 -20 -30 rmoveto j 0 eq {(da)} if j 1 eq {(do)} if j 2 eq {(ds)} if show 0 30 rmoveto newpath /irax irad 90 cos mul def /iray irad 90 sin mul def tzycmy0* setcmykcolor irax iray ir0 0 360 arc fill newpath tzbcmy0* setcmykcolor irax 250 sub ixys add iray 080 sub moveto TBIM (Y) show TBK1 -20 -30 rmoveto j 0 eq {(da)} if j 1 eq {(do)} if j 2 eq {(ds)} if show 0 30 rmoveto newpath /irax irad 150 cos mul def /iray irad 150 sin mul def tzgcmy0* setcmykcolor irax iray ir0 0 360 arc fill newpath tzmcmy0* setcmykcolor irax 250 sub ixgs add iray 080 sub moveto TBIM (G) show TBK1 -20 -30 rmoveto j 0 eq {(da)} if j 1 eq {(do)} if j 2 eq {(ds)} if show 0 30 rmoveto newpath /irax irad 210 cos mul def /iray irad 210 sin mul def tzccmy0* setcmykcolor irax iray ir0 0 360 arc fill newpath tzrcmy0* setcmykcolor irax 240 sub ixgs add iray 080 sub moveto TBIM (C) show TBK1 -20 -30 rmoveto j 0 eq {(da)} if j 1 eq {(do)} if j 2 eq {(ds)} if show 0 30 rmoveto newpath /irax irad 270 cos mul def /iray irad 270 sin mul def tzbcmy0* setcmykcolor irax iray ir0 0 360 arc fill newpath tzycmy0* setcmykcolor irax 250 sub ixbs add iray 080 sub moveto TBIM (B) show TBK1 -10 -30 rmoveto j 0 eq {(da)} if j 1 eq {(do)} if j 2 eq {(ds)} if show 0 30 rmoveto newpath /irax irad 330 cos mul def /iray irad 330 sin mul def tzmcmy0* setcmykcolor irax iray ir0 0 360 arc fill newpath tzgcmy0* setcmykcolor irax 250 sub ixgs add iray 080 sub moveto TBIM1 (M) show TBK1 -40 -30 rmoveto j 0 eq {(da)} if j 1 eq {(do)} if j 2 eq {(ds)} if show 0 30 rmoveto newpath } for %j=0,2 xtr neg ytr neg translate showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 SHSl sub MM 20 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 BGA20-7N.EPS, compare ISO 9241-306:2018 A(E/F/G)09 %%BoundingBox: 70 85 238 206 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/BGA2/BGA2.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022030112000) /ModDate (D:2022030112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %END PDFDE011 %BEG BGA2 EARLY BINDING IMAGE FILE (G) 1MR-0000F 200301 %BEG 1MR-0000F.TXT, 1MR & relative gamma change 200301 /gammaFi 15 array def /gammaFi %rel. gamma according to ISO 9241-306:2018 [0.475 0.550 0.625 0.700 0.775 0.849 0.924 1.000 1.081 1.176 1.290 1.428 1.600 1.818 2.105] def /1MR-0000F {%BEG procedure 1MR-0000F /FF_LM_setgrayF0 {setgray} bind def /FF_LM_setrgbcolorF0 {setrgbcolor} bind def /FF_LM_setcmykcolorF0 {setcmykcolor} bind def /FF_LM_transferF0 {settransfer} bind def /FF_LM_colortransferF0 {setcolortransfer} bind def /FF_LM_xchartg_gammaF {gammaFi xchart get exp} def /FF_LM_setrgbcolorF {%BEG FF_LM_setrgbcolorF /FF_LM_b0L exch def /FF_LM_g0L exch def /FF_LM_r0L exch def FF_LM_r0L 0 le {/FF_LM_r0L 0.0001 def} if FF_LM_g0L 0 le {/FF_LM_g0L 0.0001 def} if FF_LM_b0L 0 le {/FF_LM_b0L 0.0001 def} if /FF_LM_r1F FF_LM_r0L FF_LM_xchartg_gammaF def /FF_LM_g1F FF_LM_g0L FF_LM_xchartg_gammaF def /FF_LM_b1F FF_LM_b0L FF_LM_xchartg_gammaF def FF_LM_r1F FF_LM_g1F FF_LM_b1F FF_LM_setrgbcolorF0} def %END FF_LM_setrgbcolorF /setgray {%BEG procedure setgrayF dup dup FF_LM_setrgbcolorF %STOPs } def %END procedure setgrayF %part2 /setcmykcolor {%BEG procedure setcmykcolorF /FF_LM_k exch def /FF_LM_y exch def /FF_LM_m exch def /FF_LM_c exch def FF_LM_k 0 eq {1 FF_LM_c sub 1 FF_LM_m sub 1 FF_LM_y sub FF_LM_setrgbcolorF} {1 FF_LM_k sub dup dup FF_LM_setrgbcolorF} ifelse %STOPc } def %END procedure setcmykcolorF /setrgbcolor {%BEG procedure setrgbcolorF /FF_LM_b exch def /FF_LM_g exch def /FF_LM_r exch def FF_LM_r FF_LM_g FF_LM_b FF_LM_setrgbcolorF %STOPr } def %BEG procedure setrgbcolorF /FF_LM_transferF {%BEG FF_LM_transferF {FF_LM_xchartg_gammaF} FF_LM_transferF0} def %END FF_LM_transferF /settransfer {FF_LM_transferF} def /FF_LM_colortransferF {%BEG FF_LM_colortransferF {FF_LM_xchartg_gammaF} {FF_LM_xchartg_gammaF} {FF_LM_xchartg_gammaF} FF_LM_colortransferF0} def %END FF_LM_colortransferF /setcolortransfer {FF_LM_colortransferF} def } def %END procedure 1MR-0000F /iproc1MR 1 def %/1MR-0000G where {pop 1MR-0000G}{1MR-0000F} ifelse iproc1MR 1 eq {1MR-0000F} if %1MR-0000G %END 1MR-0000F.TXT, 1MR & relative gamma change 200301 %END BGA2 EARLY BINDING IMAGE FILE (G) 1MR-0000F 200301 %****************************************************************** /xchart1f 07 def /xchart2f 07 def /xchartdf 01 def /xchartmf 08 def /xchartf xchart1f def %****************************************************************** /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /A4querL {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /tgv {0 0 1 setrgbcolor} def %***************************************************************************** %ANFA /tzNW [0.000 0.067 0.132 0.200 0.267 0.333 0.400 0.467 0.533 0.600 0.667 0.733 0.800 0.867 0.933 1.000 0.000 0.250 0.500 0.750 1.000] def /tzWN [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 /tzZW [0.500 0.533 0.567 0.600 0.633 0.667 0.700 0.733 0.767 0.800 0.833 0.867 0.900 0.933 0.967 1.000 0.500 0.625 0.750 0.875 1.000] def /tzWZ [1.000 0.967 0.933 0.900 0.867 0.833 0.800 0.767 0.733 0.700 0.667 0.633 0.600 0.567 0.533 0.500 1.000 0.875 0.750 0.625 0.500] def /tzNZ [0.000 0.033 0.067 0.100 0.133 0.167 0.200 0.233 0.267 0.300 0.333 0.367 0.400 0.433 0.467 0.500 0.000 0.125 0.250 0.375 0.500] def /tzZN [0.500 0.467 0.433 0.400 0.367 0.333 0.300 0.267 0.233 0.200 0.167 0.133 0.100 0.067 0.033 0.000 0.500 0.375 0.250 0.125 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 /tzaccmyw0l 64 array def /tzamcmyw0l 64 array def /tzaycmyw0l 64 array def /tzancmyw0l 64 array def /tzbocmyw0l 64 array def /tzblcmyw0l 64 array def /tzbvcmyw0l 64 array def /tzbncmyw0l 64 array def /tzaccmyw0l [ %Ccmyw0l01.dat 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 ] def /tzamcmyw0l [ %Mcmyw0l01.dat 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 ] def /tzaycmyw0l [ %Ycmyw0l01.dat 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 ] def /tzancmyw0l [ %Ncmyw0l01.dat 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 ] def /tzbocmyw0l [ %Ocmyw0l01.dat 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 ] def /tzblcmyw0l [ %Lcmyw0l01.dat 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 ] def /tzbvcmyw0l [ %Vcmyw0l01.dat 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 ] def /tzbncmyw0l [ %CMYcmyw0l01.dat 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 ] def /colrecfiw* %x y width heigth w* { 1.0 exp setgray rec fill} bind def /colrecstw* %x y width heigth w* { 1.0 exp setgray rec stroke} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tfnw* {tznw* setgray} def /tfww* {tzww* setgray} def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /cvishow {0.5 add cvi dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow0 {10 mul 0.5 add cvi 0.1 mul 6 string cvs show} def /cvsshow1 {10 mul 0.5 add cvi 0.1 mul dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow2 {100 mul 0.5 add cvi 0.01 mul dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 6 string cvs show} def /cvsshow3 {1000 mul 0.5 add cvi 0.001 mul 6 string cvs show} def /cvsshow1g {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2g {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3g {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %END CM_S0LCMYS.DAT Linearization Method (LM) LOCAL (L) cmyolvnw*S DATA 20010401 %*********************************************************************************** %*********************************************************************************** /proc_rosetten {%BEG procedure rosetten %requires 0<=iout<=1 %requires deintp=0,1 /tfzw* {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add 1 exch sub 1.0 exp setgray} bind def 15 setlinewidth tfnw* 0 0 moveto 6000 0 rlineto 0 4000 rlineto -6000 0 rlineto closepath fill 0 0 moveto 12000 0 rlineto 0 8400 rlineto -12000 0 rlineto closepath stroke tfnw* RK 100 -230 moveto (BGA20-3, ) show (Bild ) showde (picture ) showen (fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 3 ge {(A1) show}{(C1) show} ifelse (W) show TxS show TS 0 -20 rmoveto Txx show 0 20 rmoveto TK (: ) show TK (Element A: Radialgitter ) showde (Element A: radial gratings ) showen (Elemento A: rejillas radial ) showes (\311l\351ment A: \351toile de Siemens ) showfr (Elemento A: reticoli radiali ) showit (Element A: Radielt gitter ) showjp RIK (N-W, W-N, N-Z) show TK ( und ) showde (, and ) showen ( y ) showes ( et ) showfr ( i ) showit ( og ) showjp RIK (W-Z) show TK (; ) show TIK (PS) show RK (-) showde (Operator:) showde ( operator:) showen ( operator:) showes TK ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK ( rgb/cmy0/w/000n) show TK %/ausz 7 def /half 0 def %Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 15 setlinewidth %neuer Rastermittelpunkt und Nullpunkt 3000 2100 translate %Zeichnen der Rosette C, Radius 1,8 cm, Zentralgrau tfzw* newpath 0 0 0500 0 360 arc closepath stroke newpath 0 0 1000 0 360 arc closepath stroke newpath 0 0 1500 0 360 arc closepath stroke 0 10 350 {newpath 0 0 moveto 0 0 1800 4 -1 roll dup 5 add arc closepath fill} for tfww* 25 setlinewidth newpath 0 0 0300 0 360 arc closepath stroke -3000 -2100 translate tfww* 1300 0100 moveto TBK (Radialgitter (Siemenssterne)) showde RBK (radial gratings (Siemens-stars)) showen (rejillas radial (Siemens estrellas)) showes TBK (\311toile de Siemens) showfr (reticoli radiali (Siemens stelle)) showit RBK (radielt gitter (Siemens-stjerner)) showjp RBIK ( N-Z) show TBK TBM 3000 550 add 2100 moveto (10) show 3000 1050 add 2100 moveto (20) show 3000 1550 add 2100 moveto (30) show 0000 4400 translate /tfzw* {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add 1 exch sub 1.0 exp setgray} bind def tfnw* 0 0 moveto 6000 0 rlineto 0 4000 rlineto -6000 0 rlineto closepath fill 0 0 moveto 6000 0 rlineto 0 4000 rlineto -6000 0 rlineto closepath stroke %neuer Rastermittelpunkt und Nullpunkt 3000 2100 translate %Zeichnen der Rosette C, Radius 1,8 cm, Zentralgrau tfww* newpath 0 0 0500 0 360 arc closepath stroke newpath 0 0 1000 0 360 arc closepath stroke newpath 0 0 1500 0 360 arc closepath stroke 0 10 350 {newpath 0 0 moveto 0 0 1800 4 -1 roll dup 5 add arc closepath fill} for tfnw* 25 setlinewidth newpath 0 0 0300 0 360 arc closepath stroke -3000 -2100 translate tfww* 1300 0100 moveto TBK (Radialgitter (Siemenssterne)) showde RBK (radial gratings (Siemens-stars)) showen (rejillas radial (Siemens estrellas)) showes TBK (\311toile de Siemens) showfr (reticoli radiali (Siemens stelle)) showit RBK (radielt gitter (Siemens-stjerner)) showjp RBIK ( N-W) show TBK TBM tfzw* 3000 550 add 2100 moveto (10) show 3000 1050 add 2100 moveto (20) show 3000 1550 add 2100 moveto (30) show -0000 -4400 translate 6000 4400 translate /tfzw* {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add 1 exch sub 1.0 exp setgray} bind def %neuer Rastermittelpunkt und Nullpunkt 3000 2100 translate %Zeichnen der Rosette C, Radius 1,8 cm, Zentralgrau tfnw* newpath 0 0 0500 0 360 arc closepath stroke newpath 0 0 1000 0 360 arc closepath stroke newpath 0 0 1500 0 360 arc closepath stroke 0 10 350 {newpath 0 0 moveto 0 0 1800 4 -1 roll dup 5 add arc closepath fill} for tfww* 25 setlinewidth newpath 0 0 0300 0 360 arc closepath stroke -3000 -2100 translate tfnw* 1300 0100 moveto TBK (Radialgitter (Siemenssterne)) showde RBK (radial gratings (Siemens-stars)) showen (rejillas radial (Siemens estrellas)) showes TBK (\311toile de Siemens) showfr (reticoli radiali (Siemens stelle)) showit RBK (radielt gitter (Siemens-stjerner)) showjp RBIK ( W-N) show TBK TBM tfzw* 3000 550 add 2100 moveto (10) show 3000 1050 add 2100 moveto (20) show 3000 1550 add 2100 moveto (30) show -6000 -4400 translate 6000 0000 translate /tfzw* {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add 1 exch sub 1.0 exp setgray} bind def %tfww* %0 0 moveto 6000 0 rlineto 0 4000 rlineto % -6000 0 rlineto closepath fill %neuer Rastermittelpunkt und Nullpunkt 3000 2100 translate %Zeichnen der Rosette C, Radius 1,8 cm, Zentralgrau tfzw* newpath 0 0 0500 0 360 arc closepath stroke newpath 0 0 1000 0 360 arc closepath stroke newpath 0 0 1500 0 360 arc closepath stroke 0 10 350 {newpath 0 0 moveto 0 0 1800 4 -1 roll dup 5 add arc closepath fill} for tfnw* 25 setlinewidth newpath 0 0 0300 0 360 arc closepath stroke -3000 -2100 translate tfnw* 1300 0100 moveto TBK (Radialgitter (Siemenssterne)) showde RBK (radial gratings (Siemens-stars)) showen (rejillas radial (Siemens estrellas)) showes TBK (\311toile de Siemens) showfr (reticoli radiali (Siemens stelle)) showit RBK (radielt gitter (Siemens-stjerner)) showjp RBIK ( W-Z) show TBK TBM 3000 550 add 2100 moveto (10) show 3000 1050 add 2100 moveto (20) show 3000 1550 add 2100 moveto (30) show -6000 -0000 translate } def %END proc_rosetten %********************************************************** /proc_05step {%BEG proc_05step %requires 0<=iout<=1 %requires deintp=0,1 /tfzw* {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add 1 exch sub 1.0 exp setgray} bind def 15 setlinewidth tfzw* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath fill tfnw* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath stroke /cvishow {cvi 6 string cvs show} def /cvsshow0 {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1 {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2 {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3 {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def tfnw* RK 100 -230 moveto (BGA20-5, ) show (Bild ) showde (picture ) showen (fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 3 ge {(A2) show}{(C2) show} ifelse (W) show TxS show TS 0 -20 rmoveto Txx show 0 20 rmoveto TK (: ) show TK (Element B: 5 visuell gleichabst\344ndige ) showde (Element B: 5 visual equidistant ) showen (Elemento B: 5 equidistante ) showes (\311l\351ment B: 5 paliers de gris ) showfr (Elemento B: 5 equidistante ) showit (Element B: 5 visuelle ekvidistante ) showjp TIK (L*) show RK (-) showde TK (Graustufen) showde RK (-) showen TK (grey steps) showen TK ( pasos de gris) showes ( \350quidistante) showfr ( grigio passi) showit RK (-) showjp TK (gr\345trinn) showjp TIK ( + N0 + W1) show TK (; ) show TIK (PS) show RK (-) showde (Operator:) showde ( operator:) showen ( operator:) showes TK ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK ( rgb/cmy0/w/000n) show 15 setlinewidth /L*Nl 18.01 def %standard lightness black /L*Wl 95.41 def %standard lightness white /L*ND where {pop /L*Nl L*ND def} if /L*WD where {pop /L*Wl L*WD def} if /L*Dl L*Wl L*Nl sub def %range between white and black %%%%%%%%%%% oberer Schriftzug %%%%%%%%%%%%%%%% tfww* 80 3650 moveto TBIG (L*/Y) show -50 -50 rmoveto TBK colorm 0 eq { TK (Eingabe) showde %0BGA2X-Y 0100# (input) showen %1BGA2X-Y 0100# (entrada) showes %2BGA2X-Y 0100# (entr\351e) showfr %3BGA2X-Y 0100# (immettere) showit %4BGA2X-Y 0100# (input) showjp %5BGA2X-Y 0100# } if colorm 0 ne { TK (intended) showen (vorgesehen) showde (pretenden) showes (destin\351) showfr (destinati) showit (intendert) showjp } if 100 3200 moveto TBIK ((absolut)) showde ((absolute)) showen ((absoluta)) showes ((absolu)) showfr ((absoluta)) showit ((absolutt)) showjp 100 1200 moveto TBIG (w*=l*) show -150 -100 rmoveto TBIK (CIELAB, r) show 100 800 moveto TBIK ((relativ)) showde ((relative)) showen ((relativa)) showes ((relative)) showfr ((relativo)) showit ((relativ)) showjp 900 450 moveto TBIG (w*) show -150 -50 rmoveto TBK (Eingabe) showde %0BGA2X-Y 0500# (input) showen %1BGA2X-Y 0500# (entrada) showes %2BGA2X-Y 0500# (entr\351e) showfr %3BGA2X-Y 0500# (immettere) showit %4BGA2X-Y 0500# (input) showjp %5BGA2X-Y 0500# 2200 600 translate %untere Reihe um +200, +200 verschoben bei dx=1000 von 1400 tfnw* /ntu [(0,000) (0,067) (0,133) (0,200) (0,267) (0,333) (0,400) (0,467) (0,533) (0,600) (0,667) (0,733) (0,800) (0,867) (0,933) (1,000) (0,000) (0,250) (0,500) (0,750) (1,000)] def /nts [ 0.000 0.067 0.133 0.200 0.267 0.333 0.400 0.467 0.533 0.600 0.667 0.733 0.800 0.867 0.933 1.000 0.000 0.250 0.500 0.750 1.000 ] def /nto [18.01 23.17 28.33 33.49 38.65 43.81 48.97 54.13 59.29 64.45 69.61 74.77 79.93 85.09 90.25 95.41 18.01 37.36 56.71 76.06 95.41] def /nty [ 2.52 3.85 5.58 7.77 10.46 13.71 17.57 22.10 27.34 33.36 40.20 47.91 56.56 66.18 76.84 88.59 2.52 9.73 24.63 49.98 88.59] def /n* [(F) (E) (D) (C) (B) (A) (9) (8) (7) (6) (5) (4) (3) (2) (1) (0) (F) (B) (7) (3) (0)] def /cvs1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs} def /cvs3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs} def /ntu2 21 array def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /MTLoutaS0 21 array def /MTLoutaS1 21 array def /MTLoutaS2 21 array def /MTLoutaS0g where {pop 0 1 20 {/i exch def MTLoutaS0 i MTLoutaS0g i get put} for} {/MTLoutaS0 [18.0 23.2 28.3 33.5 38.6 43.8 49.0 54.1 59.3 64.4 69.6 74.8 79.9 85.1 90.2 95.4 18.0 37.3 56.7 76.0 95.4] def } ifelse /MTLoutaS1g where {pop 16 1 20 {/i exch def i 16 eq {MTLoutaS1 i MTLoutaS1g 0 get put} if i 17 eq {MTLoutaS1 i MTLoutaS1g 3 get 0.25 mul MTLoutaS1g 4 get 0.75 mul add put} if i 18 eq {MTLoutaS1 i MTLoutaS1g 7 get 0.50 mul MTLoutaS1g 8 get 0.50 mul add put} if i 19 eq {MTLoutaS1 i MTLoutaS1g 11 get 0.75 mul MTLoutaS1g 12 get 0.25 mul add put} if i 20 eq {MTLoutaS1 i MTLoutaS1g 15 get put} if } for} {16 1 20 {/i exch def MTLoutaS1 i MTLoutaS0 i get put} for } ifelse /MTLoutaS2g where {pop 16 1 20 {/i exch def i 16 eq {MTLoutaS2 i MTLoutaS2g 0 get put} if i 17 eq {MTLoutaS2 i MTLoutaS2g 3 get 0.25 mul MTLoutaS2g 4 get 0.75 mul add put} if i 18 eq {MTLoutaS2 i MTLoutaS2g 7 get 0.50 mul MTLoutaS2g 8 get 0.50 mul add put} if i 19 eq {MTLoutaS2 i MTLoutaS2g 11 get 0.75 mul MTLoutaS2g 12 get 0.25 mul add put} if i 20 eq {MTLoutaS2 i MTLoutaS2g 15 get put} if } for} {16 1 20 {/i exch def MTLoutaS2 i MTLoutaS1 i get put} for } ifelse 16 1 20 {/i exch def %i=16,20 colorm 0 eq {nto i i 16 sub 4 div MTLoutaS0 20 get MTLoutaS0 16 get sub mul MTLoutaS0 16 get add put /Y* {MTLoutaS0 i get 16 add 116 div} bind def } {nto i i 16 sub 4 div MTLoutaS1 20 get MTLoutaS1 16 get sub mul MTLoutaS1 16 get add put /Y* {MTLoutaS1 i get 16 add 116 div} bind def } ifelse nty i Y* DecodeXYZ* 100.00 mul put } for %i=0,15 16 1 20 {/i exch def %i=16,20 ntu2 i MTLoutaS2 i get MTLoutaS2 16 get sub MTLoutaS2 20 get MTLoutaS2 16 get sub div put } for %i=16,20 TBM tfww* /iy0 0 def 0 1 06 {/j exch def /ix0 j 1400 mul def ix0 100 add iy0 250 sub moveto j 4 le {ntu 16 j add get show ix0 100 add iy0 500 sub moveto } if 5 j eq {-150 0 rmoveto TBIM (N) show 0 -50 rmoveto TBIK (0) show 50 50 rmoveto TBIM ((min.)) show 100 0 rmoveto } if 6 j eq {-150 0 rmoveto TBIM (W) show 0 -50 rmoveto TBIK (1) show 50 50 rmoveto TBIM ((max.)) show 100 0 rmoveto } if } for %j TBM tfww* /iy0 3050 def 0 1 06 {/j exch def /ix0 100 j 1400 mul add def ix0 200 sub iy0 moveto j 4 le {nto 16 j add get cvsshow1x (/) show xcolor 0 eq {nty 16 j add get cvsshow1x} {colorm 0 ne {MTLoutaS2 16 j add get cvsshow1x} {nty 16 j add get cvsshow1x} ifelse } ifelse } if 5 j eq {-150 0 rmoveto TBIM (N) show 0 -50 rmoveto TBIK (0) show 50 50 rmoveto TBIM ((min.)) show 100 0 rmoveto} if 6 j eq {-150 0 rmoveto TBIM (W) show 0 -50 rmoveto TBIK (1) show 50 50 rmoveto TBIM ((max.)) show 100 0 rmoveto} if } for %j TBG tfnw* /iy0 0 def /s 1000 def 0 1 06 {/j exch def /ix0 j 1400 mul def ix0 iy0 s s 1 j eq {tzancmyw0l 03 48 add get 0.2500 mul tzancmyw0l 04 48 add get 0.7500 mul add} if 2 j eq {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add} if 3 j eq {tzancmyw0l 11 48 add get 0.7500 mul tzancmyw0l 12 48 add get 0.2500 mul add} if 0 j eq 5 j eq or {tzancmyw0l 0 48 add get} if 4 j eq 6 j eq or {tzancmyw0l 15 48 add get} if 1 exch sub colrecfiw* j 2 eq { %white arround mean grey ix0 iy0 s s 1.0 colrecstw*} if } for %j /s 1400 def /iy0 1500 def 0 1 06 {/j exch def /ix0 j 1400 mul 200 sub def ix0 iy0 s s 1 j eq {tzancmyw0l 03 48 add get 0.2500 mul tzancmyw0l 04 48 add get 0.7500 mul add} if 2 j eq {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add} if 3 j eq {tzancmyw0l 11 48 add get 0.7500 mul tzancmyw0l 12 48 add get 0.2500 mul add} if 0 j eq 5 j eq or {tzancmyw0l 0 48 add get} if 4 j eq 6 j eq or {tzancmyw0l 15 48 add get} if 1 exch sub colrecfiw* } for %j /s 0700 def /iy0 1850 def 0 1 06 {/j exch def /ix0 j 1400 mul 200 sub 350 add def ix0 iy0 s s 1 j eq {tzancmyw0l 03 48 add get 0.2500 mul tzancmyw0l 04 48 add get 0.7500 mul add} if 2 j eq {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add} if 3 j eq {tzancmyw0l 11 48 add get 0.7500 mul tzancmyw0l 12 48 add get 0.2500 mul add} if 0 j eq 5 j eq or {tzancmyw0l 0 48 add get} if 4 j eq 6 j eq or {tzancmyw0l 15 48 add get} if dup dup 0 % 0 0 0 0 setcmykcolor rec fill } for %j -2200 -600 translate } def %END proc_05step %********************************************************** /proc_16step {%BEG proc_16step %requires 0<=iout<=1 %requires deintp=0,1 /tfzw* {tzancmyw0l 07 48 add get 0.5000 mul tzancmyw0l 08 48 add get 0.5000 mul add 1 exch sub 1.0 exp setgray} bind def 15 setlinewidth tfzw* 0 0 moveto 24800 0 rlineto 0 4000 rlineto -24800 0 rlineto closepath fill tfnw* 0 0 moveto 24800 0 rlineto 0 4000 rlineto -24800 0 rlineto closepath stroke /cvishow {cvi 6 string cvs show} def /cvsshow0 {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1 {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2 {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3 {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def tfnw* RK 100 -230 moveto (BGA20-7, ) show (Bild ) showde (picture ) showen (fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 3 ge {(A3) show}{(C3) show} ifelse (W) show TxS show TS 0 -20 rmoveto Txx show 0 20 rmoveto TK (: ) show TK (Element C: 16 visuell gleichabst\344ndige ) showde (Element C: 16 visual equidistant ) showen (Elemento C: 16 equidistante ) showes (\311l\351ment C: 16 paliers de gris ) showfr (Elemento C: 16 equidistante ) showit (Element C: 16 visuelle ekvidistante ) showjp TIK (L*) show RK (-) showde (Graustufen) showde (-) showen (grey steps) showen ( pasos de gris) showes TK ( \350quidistante) showfr ( grigio passi) showit (-) showjp (gr\345trinn) showjp TK (; ) show TIK (PS) show RK (-) showde TK (Operator:) showde ( operator:) showen ( operator:) showes TK ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK ( rgb/cmy0/w/000n) show TK /cvs0 {cvi 7 string cvs} def 15 setlinewidth /L*Nl 18.01 def %standard lightness black /L*Wl 95.41 def %standard lightness white /L*ND where {pop /L*Nl L*ND def} if /L*WD where {pop /L*Wl L*WD def} if /L*Dl L*Wl L*Nl sub def %range between white and black %%%%%%%%%%% oberer Schriftzug %%%%%%%%%%%%%%%% tfww* 100 3650 moveto TBIG (L*/Y) show -50 -50 rmoveto TBK colorm 0 eq { TK (Eingabe) showde %0BGA2X-Y 0100# (input) showen %1BGA2X-Y 0100# (entrada) showes %2BGA2X-Y 0100# (entr\351e) showfr %3BGA2X-Y 0100# (immettere) showit %4BGA2X-Y 0100# (input) showjp %5BGA2X-Y 0100# 50 50 rmoveto} if colorm 0 ne { TK (intended) showen (vorgesehen) showde (pretenden) showes (destin\351) showfr (destinati) showit (intendert) showjp 50 50 rmoveto} if 100 3200 moveto TBIK ((absolut)) showde ((absolute)) showen ((absoluta)) showes ((absolu)) showfr ((absoluta)) showit ((absolutt)) showjp 100 1950 moveto TBK (Nr. und) showde (No. and) showen (NO y) showes (No et) showfr (N. e) showit (Nr. og) showjp 100 1650 moveto RBK (Hex-Code) showde (Hex code) showen TBK (c\363digo Hex) showes (code Hex) showfr (codige Hex) showit RBK (Hex-code) showjp 100 1200 moveto TBIG (w*=l*) show -150 -100 rmoveto TBIK (CIELAB, r) show 100 800 moveto TBIK ((relativ)) showde ((relative)) showen ((relativa)) showes ((relative)) showfr ((relativo)) showit ((relativ)) showjp 900 450 moveto TBIG (w*) show -150 -50 rmoveto TBK (Eingabe) showde %0BGA2X-Y 0500# (input) showen %1BGA2X-Y 0500# (entrada) showes %2BGA2X-Y 0500# RBK (entr\351e) showfr %3BGA2X-Y 0500# (immettere) showit %4BGA2X-Y 0500# (input) showjp %5BGA2X-Y 0500# 2200 600 translate %untere Reihe um +200, +200 verschoben bei dx=1000 von 1400 tfnw* /ntu [(0,000) (0,067) (0,133) (0,200) (0,267) (0,333) (0,400) (0,467) (0,533) (0,600) (0,667) (0,733) (0,800) (0,867) (0,933) (1,000) (0,000) (0,250) (0,500) (0,750) (1,000)] def /nts [ 0.000 0.067 0.133 0.200 0.267 0.333 0.400 0.467 0.533 0.600 0.667 0.733 0.800 0.867 0.933 1.000 0.000 0.250 0.500 0.750 1.000 ] def /nto [18.01 23.17 28.33 33.49 38.65 43.81 48.97 54.13 59.29 64.45 69.61 74.77 79.93 85.09 90.25 95.41 18.01 37.36 56.71 76.06 95.41] def /nty [ 2.52 3.85 5.58 7.77 10.46 13.71 17.57 22.10 27.34 33.36 40.20 47.91 56.56 66.18 76.84 88.59 2.52 9.73 24.63 49.98 88.59] def /n* [(00;F) (01;E) (02;D) (03;C) (04;B) (05;A) (06;9) (07;8) (08;7) (09;6) (10;5) (11;4) (12;3) (13;2) (14;1) (15;0) (00;F) (01;B) (02;7) (03;3) (04;0)] def /cvs1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs} def /cvs3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs} def /ntu2 16 array def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /MTLoutaS0 16 array def /MTLoutaS1 16 array def /MTLoutaS2 16 array def /MTLoutaS0g where {pop 0 1 15 {/i exch def MTLoutaS0 i MTLoutaS0g i get put} for} {/MTLoutaS0 [18.0 23.2 28.3 33.5 38.6 43.8 49.0 54.1 59.3 64.4 69.6 74.8 79.9 85.1 90.2 95.4] def } ifelse /MTLoutaS1g where {pop 0 1 15 {/i exch def MTLoutaS1 i MTLoutaS1g i get put} for} {0 1 15 {/i exch def MTLoutaS1 i MTLoutaS0 i get put} for } ifelse /MTLoutaS2g where {pop 0 1 15 {/i exch def MTLoutaS2 i MTLoutaS2g i get put} for} {0 1 15 {/i exch def MTLoutaS2 i MTLoutaS1 i get put} for } ifelse 0 1 15 {/i exch def %i=0,15 colorm 0 eq {nto i i 0 sub 15 div MTLoutaS0 15 get MTLoutaS0 0 get sub mul MTLoutaS0 0 get add put /Y* {nto i get 16 add 116 div} bind def } {nto i i 0 sub 15 div MTLoutaS1 15 get MTLoutaS1 0 get sub mul MTLoutaS1 0 get add put /Y* {nto i get 16 add 116 div} bind def } ifelse nty i Y* DecodeXYZ* 100.00 mul put } for %i=0,15 0 1 15 {/i exch def %i=0,15 ntu2 i MTLoutaS2 i get MTLoutaS2 0 get sub MTLoutaS2 15 get MTLoutaS2 0 get sub div put } for %i=0,15 TBM tfww* /iy0 0 def 0 1 15 {/j exch def /ix0 j 1400 mul def ix0 100 add iy0 250 sub moveto ntu j get show colorm 0 ne xcolor 1 eq and {ix0 100 add iy0 500 sub moveto ntu2 j get cvs3 show } if } for %j /iy0 3050 def 0 1 15 {/j exch def /ix0 300 j 1400 mul add def ix0 400 sub iy0 moveto nto j get cvsshow1x (/) show xcolor 0 eq {nty j get cvsshow1x} {colorm 0 ne {MTLoutaS2 j get cvsshow1x} {nty j get cvsshow1x} ifelse } ifelse } for %j TBG tfnw* /iy0 0 def 0 1 15 {/j exch def /ix0 400 j 1400 mul add def ix0 300 sub iy0 1150 add moveto n* j get show } for %j /s 1000 def 0 1 15 {/j exch def /ix0 j 1400 mul def ix0 iy0 s s tzancmyw0l j 48 add get 1 exch sub colrecfiw* j 7 eq j 8 eq or { %white arround mean grey ix0 iy0 s s 1.0 colrecstw*} if } for %j /s 1400 def /iy0 1500 def 0 1 15 {/j exch def /ix0 j 1400 mul 200 sub def ix0 iy0 s s tzancmyw0l j 48 add get 1 exch sub colrecfiw* } for %j /s 0700 def /iy0 1850 def 0 1 15 {/j exch def /ix0 j 1400 mul 200 sub 350 add def ix0 iy0 s s tzancmyw0l j 48 add get dup dup 0 % 0 0 0 0 setcmykcolor rec fill } for %j -2200 -600 translate } def %END proc_16step %********************************************************** /proc_Landolt { %BEG proc_Landolt %requires 0<=iout<=1 %requires deintp=0,1 15 setlinewidth tfww* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath fill tfnw* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath stroke tfnw* RK 100 -230 moveto (BGA21-1, ) show (Bild ) showde (picture ) showen (fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 3 ge {(A4) show}{(C4) show} ifelse (W) show TxS show TS 0 -20 rmoveto Txx show 0 20 rmoveto TK (: ) show TK (Element D: Landoltringe ) showde RK (Element D: Landolt-rings ) showen (Elemento D: anillos de Landolt ) showes TK (\311l\351ment D: anneaux de Landolt ) showfr (Elemento D: anelli di Landolt ) showit (Element D: Landoltringer ) showjp RIK (W-N) show TK (; ) show TIK (PS) show RK (-) showde (Operator:) showde ( operator:) showen ( operator:) showes TK ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK ( rgb/cmy0/w/000n) show 200 3500 moveto TBIK (Umfeldstufe) showde (background step) showen (paso fondo) showes (\351chelonnement du) showfr (lo sfondo passo) showit RBIK (omfelt-trinn) showjp 200 3200 moveto RBIK (Hex-Code) showde (Hex code) showen TBIK (C\363digo Hexadecimal) showes (font code hex) showfr (codice esadecimale) showit RBIK (Hex-code) showjp 4100 50 moveto TBK (Landoltringe ) showde RBK (Landolt-rings ) showen (anillos de Landolt ) showes (anneaux de Landolt ) showfr (anelli di Landolt ) showit (Landoltringer ) showjp RBIK (W-N) show 8200 3500 moveto TBIK (Ringstufe) showde (ring step) showen (paso del anillo) showes (\351chelonnement) showfr (anello passo) showit RBIK (ring-trinn) showjp 8200 3200 moveto RBIK (Hex-Code) showde (Hex code) showen TBIK (C\363digo Hexadecimal) showes (font code hex) showfr (codice esadecimale) showit RBIK (Hex-code) showjp 8900 50 moveto RBIK (Code: Umfeld - Ring) showde (code: background - ring) showen TBIK (c\363digo: ) showes RBIK (fondo - paso del anillo) showes TBIK (\311l\351ment: fond - anneaux) showfr (codice: sfondo passo - anello) showit (kode: omfelt - ring) showjp TBM /nll [(F) (8) (2) (E) (7) (0)] def 0 1 5 {/j exch def /iy0 500 j 600 mul add def 2150 iy0 moveto nll j get show } for %j /nr [(D) (6) (0) (F) (8) (1)] def 0 1 5 {/j exch def /iy0 500 j 600 mul add def 7800 iy0 moveto nr j get show } for %j /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def RBM 0 1 5 {/j exch def /iy0 500 j 600 mul add def 10050 iy0 moveto nc j get show } for %j TBM /ar 80 def ar setlinewidth /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /nl [0 7 13 1 8 15] def %+2, -1 0 1 07 {/j exch def /ix0 2700 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /ixd 600 def ix0 iy0 ixd ixd tzancmyw0l i1 48 add get 1 exch sub colrecfiw* l 2 le {/i1 nl l get 2 add def} {/i1 nl l get 1 sub def} ifelse tzancmyw0l i1 48 add get 1 exch sub 1.0 exp setgray ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def tzancmyw0l i1 48 add get 1 exch sub 1.0 exp setgray ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def tzancmyw0l i1 48 add get 1 exch sub 1.0 exp setgray ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j } def %END proc_Landolt %********************************************************** /proc_Line45 { %BEG proc_Line45 %requires 0<=iout<=1 %requires deintp=0,1 15 setlinewidth tfww* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath fill tfnw* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath stroke tfnw* RK 100 -230 moveto (BGA21-3, ) show (Bild ) showde (picture ) showen (fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 3 ge {(A5) show}{(C5) show} ifelse (W) show TxS show TS 0 -20 rmoveto Txx show 0 20 rmoveto TK (: ) show TK (Element E: Linienraster unter) showde (Element E: Line raster under) showen (Elemento E: Trama linea menores de) showes (\311l\351ment E: trame lin\351aire \340) showfr (Elemento E: Linea raster a) showit (Element E: Linjeraster med) showjp ( 45) show TK 0 60 rmoveto (o) show 0 -60 rmoveto TK ( \050oder) showde ( \050or) showen ( \050o) showes ( \050ou) showfr ( \050o) showit ( \050eller) showjp ( 135) show TK 0 60 rmoveto (o) show 0 -60 rmoveto TK (\051) showde (\051) showen ( grados\051) showes (\051) showfr ( gradi\051) showit (\051) showjp TK (; ) show TIK (PS) show RK (-) showde TK (Operator:) showde RK (-) showen (operator:) showen ( operator:) showes TK ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK ( rgb/cmy0/w/000n) show TK % 0,01 * (72/25,4) = 0,02834 Zoll = 0,01 MM % 72 / 3600 = 2 / 100 Zoll = 0,02 Zoll = 0,00705555 mm %/FAKT {0.01 72 mul 25.4 div 72 3600 div div} def %(0,01 * 72 / 25.4)/(72/3600) = (0.01/25.4)/(1/3600) = (0.01*3600)/25.4 % = 36/25.4 = 1.4173228 /FAKT {36 25.4 div mul} def /FAKC {36 25.4 div} def %72 3600 div FAKT dup scale %Belichtereinheit = 25.4 mm / 3600 = 0,0070555555 mm %PostScript-Einheit =(72/3600) = 2 / 100 = 0.02 %bisherige Einheit 0.01 * 72 / 25.4 = 0,0283464 = 3/100 Zoll %bisherige Einheit 0.01 / 25.4 = 0,0003937 %MM -> DPI = 0,0283464 / 0.07055 = (25.4/3600) / (72/25.4) = 2 / 100 = 0,02 /TEKx {200 /Times-ISOL1 FS} bind def %/ausz 8 def /half 0 def %Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 15 setlinewidth %kleinste Linienbreite 4300 100 moveto TBK (Rasterweite in ) showde (line raster diameter in ) showen (de di\341metro r\341ster in ) showes (largeur de trame in ) showfr (diametro linea raster in ) showit (rasterbredde i ) showjp TBIK (lpi) show /ntl [( 15) ( 30) ( 60) (120)] def /ntp [(\050+1\051) (\050+2\051) (\050+4\051) (\050+8\051)] def /ntr [( 30) ( 60) (120) (240)] def /ntu [(15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27) (28) (29) (30)] def /nto [(120) (128) (136) (144) (152) (160) (168) (176) (184) (192) (200) (208) (216) (224) (232) (240)] def TBM tfnw* 0 1 4 {/l exch def /iy0 850 l 600 mul add def 500 iy0 moveto 10800 0 rlineto closepath stroke } for %l 0 3 3 {/l exch def /iy0 l 600 mul def 0 1 15 {/j exch def /ix0 1150 j 600 mul add def l 0 eq {ix0 150 add iy0 450 add moveto ntu j get show} if l 3 eq {ix0 050 add iy0 1600 add moveto nto j get show} if l 0 eq {ix0 iy0 400 add moveto 0 3300 rlineto closepath stroke} if l 0 eq j 15 eq and {ix0 600 add iy0 400 add FAKT moveto 0 3300 rlineto closepath stroke} if } for %j } for %l tfnw* 0 1 03 {/l exch def /iy0 850 l 600 mul add def TBK 600 iy0 100 add moveto ntp l get show TBM 500 iy0 350 add moveto ntl l get show 10900 iy0 150 add moveto ntr l get show tfnw* %Achtung N-Raster /ixd 600 def 0 1 15 {/j exch def /ix0 1150 j 600 mul add def TEKx l 0 eq {/ixjF0 3600 30 j 1 mul add div def /kmax 8 def /x ix0 def %BEG special 45 degree /y iy0 def /width ixd def /height ixd def gsave newpath x y moveto width 0 rlineto 0 height rlineto width neg 0 rlineto closepath clip newpath %END special 45 degree kmax neg 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k 2 sub mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto ixd dup rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 } for %k grestore %special 45 degree } if l 1 eq {/ixjF0 3600 60 j 2 mul add div def /kmax 16 def /x ix0 def %BEG special 45 degree /y iy0 def /width ixd def /height ixd def gsave newpath x y moveto width 0 rlineto 0 height rlineto width neg 0 rlineto closepath clip newpath %END special 45 degree kmax neg 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto ixd dup rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 FAKT } for %k grestore %special 45 degree } if l 2 eq {/ixjF0 3600 120 j 4 mul add div def /kmax 32 def /x ix0 def %BEG special 45 degree /y iy0 def /width ixd def /height ixd def gsave newpath x y moveto width 0 rlineto 0 height rlineto width neg 0 rlineto closepath clip newpath %END special 45 degree kmax neg 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto ixd dup rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 FAKT } for %k grestore %special 45 degree } if l 3 eq {/ixjF0 3600 240 j 8 mul add div def /kmax 64 def /x ix0 def %BEG special 45 degree /y iy0 def /width ixd def /height ixd def gsave newpath x y moveto width 0 rlineto 0 height rlineto width neg 0 rlineto closepath clip newpath %END special 45 degree kmax neg 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto ixd dup rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 FAKT } for %k grestore %special 45 degree } if } for %j tfnw* } for %l } def %END proc_Line45 %********************************************************** /proc_Line90 { %BEG proc_Line90 %requires 0<=iout<=1 %requires deintp=0,1 15 setlinewidth tfww* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath fill tfnw* 0 0 moveto 12000 0 rlineto 0 4000 rlineto -12000 0 rlineto closepath stroke tfnw* RK 100 -230 moveto (BGA21-5, ) show (Bild ) showde (picture ) showen (fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp iout 3 ge {(A6) show}{(C6) show} ifelse (W) show TxS show TS 0 -20 rmoveto Txx show 0 20 rmoveto TK (: ) show TK (Element F: Linienraster unter) showde (Element F: Line raster under) showen (Elemento F: Trama linea menores de) showes (\311l\351ment F: trame lin\351aire \340) showfr (Elemento F: Linea raster a) showit (Element F: Linjeraster med) showjp ( 90) show TK 0 60 rmoveto (o) show 0 -60 rmoveto TK ( \050oder) showde ( \050or) showen ( \050o) showes ( \050ou) showfr ( \050o) showit ( \050eller) showjp ( 0) show TK 0 60 rmoveto (o) show 0 -60 rmoveto TK (\051) showde (\051) showen ( grados\051) showes (\051) showfr ( gradi\051) showit (\051) showjp TK (; ) show TIK (PS) show RK (-) showde TK (Operator:) showde RK (-) showen TK (operator:) showen TK ( operator:) showes ( op\351rateur :) showfr ( operator:) showit ( operator:) showjp TIK ( rgb/cmy0/w/000n) show TK % 0,01 * (72/25,4) = 0,02834 Zoll = 0,01 MM % 72 / 3600 = 2 / 100 Zoll = 0,02 Zoll = 0,00705555 mm %/FAKT {0.01 72 mul 25.4 div 72 3600 div div} def %(0,01 * 72 / 25.4)/(72/3600) = (0.01/25.4)/(1/3600) = (0.01*3600)/25.4 % = 36/25.4 = 1.4173228 /FAKT {36 25.4 div mul} def /FAKC {36 25.4 div} def %72 3600 div FAKT dup scale %Belichtereinheit = 25.4 mm / 3600 = 0,0070555555 mm %PostScript-Einheit =(72/3600) = 2 / 100 = 0.02 %bisherige Einheit 0.01 * 72 / 25.4 = 0,0283464 = 3/100 Zoll %bisherige Einheit 0.01 / 25.4 = 0,0003937 %MM -> DPI = 0,0283464 / 0.07055 = (25.4/3600) / (72/25.4) = 2 / 100 = 0,02 /TEKx {200 /Times-ISOL1 FS} bind def %/ausz 8 def /half 0 def %Halbt %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 15 setlinewidth %kleinste Linienbreite 4300 100 moveto TBK (Rasterweite in ) showde (line raster diameter in ) showen (de di\341metro r\341ster in ) showes (largeur de trame in ) showfr (diametro linea raster in ) showit (rasterbredde i ) showjp TBIK (lpi) show /ntl [( 15) ( 30) ( 60) (120)] def /ntp [(\050+1\051) (\050+2\051) (\050+4\051) (\050+8\051)] def /ntr [( 30) ( 60) (120) (240)] def /ntu [(15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27) (28) (29) (30)] def /nto [(120) (128) (136) (144) (152) (160) (168) (176) (184) (192) (200) (208) (216) (224) (232) (240)] def TBM tfnw* 0 1 4 {/l exch def /iy0 850 l 600 mul add def 500 iy0 moveto 10800 0 rlineto closepath stroke } for %l 0 3 3 {/l exch def /iy0 l 600 mul def 0 1 15 {/j exch def /ix0 1150 j 600 mul add def l 0 eq {ix0 150 add iy0 450 add moveto ntu j get show} if l 3 eq {ix0 050 add iy0 1600 add moveto nto j get show} if l 0 eq {ix0 iy0 400 add moveto 0 3300 rlineto closepath stroke} if l 0 eq j 15 eq and {ix0 600 add iy0 400 add FAKT moveto 0 3300 rlineto closepath stroke} if } for %j } for %l tfnw* 0 1 03 {/l exch def /iy0 850 l 600 mul add def TBK 600 iy0 100 add moveto ntp l get show TBM 500 iy0 350 add moveto ntl l get show 10900 iy0 150 add moveto ntr l get show /ixd 600 def 0 1 15 {/j exch def /ix0 1150 j 600 mul add def TEKx l 0 eq {/ixjF0 3600 30 j 1 mul add div def /kmax 8 def 0 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto 000 ixd rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 } for %k } if l 1 eq {/ixjF0 3600 60 j 2 mul add div def /kmax 16 def 0 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto 000 ixd rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 FAKT } for %k } if l 2 eq {/ixjF0 3600 120 j 4 mul add div def /kmax 32 def 0 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto 000 ixd rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 FAKT } for %k } if l 3 eq {/ixjF0 3600 240 j 8 mul add div def /kmax 64 def 0 2 kmax {/k exch def /ixjF ixjF0 def /ixjFk ixjF k mul def /ixjFk1 ixjFk ixjF add def ixjFk 600 lt { ix0 ixjFk add iy0 moveto ixjF 000 rlineto 000 ixd rlineto ixjF neg 000 rlineto closepath fill } if %ixjFk < 600 FAKT } for %k } if } for %j tfnw* } for %l } def %END proc_Line90 %********************************************************** /trn {0.0 0.0 0.0} def %Reproduktionsfarben NZW /trz {0.5 0.5 0.5} def /trw {1.0 1.0 1.0} def /tgn {trn setrgbcolor} def /tgz {trz setrgbcolor} def /tgw {trw setrgbcolor} def %********************************************************** /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /rem %x0, y0 width heigth {/heigth exch def /width exch def /y0 exch def /x0 exch def x0 width 0.5 mul add y0 heigth 0.5 mul add moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /cviht {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse 1000 mul cvi 0.001 mul 7 string cvs show} def /A4quer {598 0 tl 90 rotate} def %******************************************************************* %%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 /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {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 /showea {1 lanind le {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanind1 0 def /lanind2 0 def /lanindd 01 def /lanindm 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /colormm 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xcolorm 01 def /xchart1 07 def /xchart2 07 def /xchartd 01 def /xchartm 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /pchartm 03 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def /xchart3 00 def %free /xchart4 00 def %test charts ISO/IEC 3, 2, 4; CIE R8-09 G, O, H /xchart5 00 def %free /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def /lanindm lanindmf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def /colormm colormmf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def /deintpm deintpmf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def /xcolorm xcolormf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchartmf def} if /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def /pchartm pchartmf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def /colsepm colsepmf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def /pmetamm pmetammf def} if /xchart3f where {pop /xchart3 xchart3f def} if /xchart4f where {pop /xchart4 xchart4f def} if /xchart5f where {pop /xchart5 xchart5f def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /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 %A4querL /colorml colorm def %0 1 1 {/colorml exch def %colorml=0,1 /xcolorl xcolor def %0 1 3 {/xcolorl exch def %xcolorl=0,3 /xchartl xchart def %0 1 7 {/xchartl exch def %xchartl=0,7 /pchartl pchart def %0 1 2 {/pchartl exch def %pchartl=0,2 colorm 0 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if colorm 0 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if colorm 1 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if colorm 1 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if %xchart 0 eq {/Txx (-) def /Fxx (-) def} if gsave xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 1 eq {/tfnx* {0 setgray} def /tfwx* {1 setgray} def /colrecfix* {setgray rec fill} bind def /colrecstx* {setgray rec stroke} bind def } if xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def /tfwx* {1 1 1 setrgbcolor} def /colrecfix* {setrgbcolor rec fill} bind def /colrecstx* {setrgbcolor rec stroke} bind def } if %pchartl 0 eq {%pchartl=0; 'AL0X'Y10-7N_AL09_JSO_1P1S.EPS; test chart N %font0309.ps*********************************************** /CW {100 /Courier-ISOL1 FS} bind def /CV {150 /Courier-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBW {100 /CourierB-ISOL1 FS} bind def /CBV {150 /CourierB-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /RW {100 /Times-Roman FS} bind def /RV {150 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {250 /Times-Roman FS} bind def /RM {300 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIW {100 /Times-Italic FS} bind def /RIV {150 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {250 /Times-Italic FS} bind def /RIM {300 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBW {100 /Times-Bold FS} bind def /RBV {150 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {250 /Times-Bold FS} bind def /RBM {300 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIW {100 /Times-BoldItalic FS} bind def /RBIV {150 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {250 /Times-BoldItalic FS} bind def /RBIM {300 /Times-BoldItalic FS} bind def /RBIG {350 /Times-BoldItalic FS} bind def /TW {100 /Times-ISOL1 FS} bind def /TV {150 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIW {100 /TimesI-ISOL1 FS} bind def /TIV {150 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-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 /TBW {100 /TimesB-ISOL1 FS} bind def /TBV {150 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {295 /TimesB-ISOL1 FS} bind def /TBIW {100 /TimesBI-ISOL1 FS} bind def /TBIV {150 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-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 /SW {100 /Symbol FS} bind def /SV {150 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /ishowRV {RW -00 -30 rmoveto show 00 30 rmoveto RV} def /jshowRV {RBW -00 -30 rmoveto show 00 30 rmoveto RBV} def /ishowTV {TW -00 -30 rmoveto show 00 30 rmoveto TV} def /jshowTV {TBW -00 -30 rmoveto show 00 30 rmoveto TBV} def /ishowRS {RV -00 -40 rmoveto show 00 40 rmoveto RS} def /jshowRS {RBV -00 -40 rmoveto show 00 40 rmoveto RBS} def /ishowTS {TV -00 -40 rmoveto show 00 40 rmoveto TS} def /jshowTS {TBV -00 -40 rmoveto show 00 40 rmoveto TBS} def /ishowRK {RS -00 -50 rmoveto show 00 50 rmoveto RK} def /jshowRK {RBS -00 -50 rmoveto show 00 50 rmoveto RBK} def /ishowTK {TS -00 -50 rmoveto show 00 50 rmoveto TK} def /jshowTK {TBS -00 -50 rmoveto show 00 50 rmoveto TBK} def /ishowRM {RK -00 -60 rmoveto show 00 60 rmoveto RM} def /jshowRM {RBK -00 -60 rmoveto show 00 60 rmoveto RBM} def /ishowTM {TK -00 -60 rmoveto show 00 60 rmoveto TM} def /jshowTM {TBK -00 -60 rmoveto show 00 60 rmoveto TBM} def /ishowRG {RM -00 -70 rmoveto show 00 70 rmoveto RG} def /jshowRG {RBM -00 -70 rmoveto show 00 70 rmoveto RBG} def /ishowTG {TM -00 -70 rmoveto show 00 70 rmoveto TG} def /jshowTG {TBM -00 -70 rmoveto show 00 70 rmoveto TBG} def %font0309.ps*********************************************** %*********************************************************************************** /vheigh 3.4 def /vheigk 3.0 def /TINN {vheigh /Times-ISOL1 FS} bind def /TINI {vheigh /TimesI-ISOL1 FS} bind def /RINN {vheigh /Times-Roman FS} bind def /TINK {vheigk /Times-ISOL1 FS} bind def 72 86.9 moveto /xchart16 1 def %1..16 RINN (BGA20-7N.EPS) show %xchart16 8 le {(BGA20-1N) show xchart16 cvishow} % {/xchartX xchart16 8 sub def % (BGA21-) show xchart16 cvishow} ifelse %TINN %(N, ) show (File: ) showen (Datei: ) showde RINN tgv (http://farbe.li.tu-berlin.de/BGA2/BGA20-1N.PS) show %(http://farbe.li.tu-berlin.de/AGB6/AGB60-1N.EPS) showde (, ) show 0 setgray TINN iproc1MR 0 eq {%iproc1MR=0 (No 1MR, ) showen (No 1MR, ) showde} {%iproc1MR=1 (1MR, ) show } ifelse %iproc1MR=0,1 /ioutg 1 def ioutg 1 eq {%ioutg=1 TINN (Gamma ) showde (gamma ) showen TINI (g) show 0 -1 rmoveto TINK (P) show 0 1 rmoveto TINN (=) show gammaFi xchart get cvsshow3g (, ) show TINI (C) show /xchartP xchart 1 add def 0 -1 rmoveto TINK (YP) show xchartP cvishow 0 1 rmoveto xchartP 8 ge {%xchartP>=8 TINN (=) show TINI (C) show 0 -1 rmoveto TINK (YN) show 8 xchartP 8 sub sub cvishow 0 1 rmoveto } if %xchartP>=8 %RINN %( BGA20-1N) show } if %ioutg=1 72 90 translate %68 90 translate 0.00229 MM dup scale %00237 0 setgray 15 setlinewidth /iout 3 def /INW 0 def %X %********************************************************** 1 1 1 setrgbcolor 0 0 moveto 25200 0 rlineto 0 17500 rlineto %picture larger -25200 0 rlineto closepath fill 0 0 0 setrgbcolor 0 0 moveto 25200 0 rlineto 0 17500 rlineto %picture larger -25200 0 rlineto closepath stroke %no. 0 1 2 3 4 5 6 7 framef image /xtr [ 0200 13000 200 13000 200 13000 200 13000 -2400 200] def /ytr [13400 13400 9050 9050 4700 4700 0350 0350 -2000 8750] def %gsave %Names: %proc_rosetten: position 2 for CMY and OLV %proc_05step: position 4 for CMY and OLV %proc_16step: position 6 for CMY and OLV %proc_Landolt: position 1 for CMY and OLV %proc_Line45: position 3 for CMY and OLV %proc_Line90: position 5 for CMY and OLV %********************************************************** xtr 2 get ytr 2 get translate %/iout 3 def proc_rosetten xtr 2 get neg ytr 2 get neg translate %********************************************************** xtr 4 get ytr 4 get translate %/iout 0 def proc_05step xtr 4 get neg ytr 4 get neg translate %********************************************************** xtr 6 get ytr 6 get translate %/iout 0 def proc_16step xtr 6 get neg ytr 6 get neg translate %********************************************************** xtr 1 get ytr 1 get translate %/iout 0 def proc_Landolt xtr 1 get neg ytr 1 get neg translate %********************************************************** xtr 3 get ytr 3 get translate %/iout 0 def proc_Line45 xtr 3 get neg ytr 3 get neg translate %********************************************************** xtr 5 get ytr 5 get translate %/iout 0 def proc_Line90 xtr 5 get neg ytr 5 get neg translate %********************************************************** %} if %pchartl=0; 'AL0X'Y10-7N_AL09_JSO_1P1S.EPS test chart N %} for %xchartl=0,7 %} for %xcolorl=0,3 %} for %colorml=0,1 grestore %ENDNR1.PS 70 85 translate 1 0 0 setrgbcolor 1 setlinewidth [] 0 setdash 0.5 dup moveto 167 0 rlineto 0 119 rlineto -167 0 rlineto closepath stroke 0 setgray showpage %%EOF %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add 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 BGA20-8N.EPS, compare ISO 9241-306:2018 A(E/F/G)49 %%BoundingBox: 70 85 238 206 %START PDFDE011.EPS /pdfmark08 where {pop} {userdict /pdfmark08 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/BGA2/BGA2.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022030112000) /ModDate (D:2022030112000) /DOCINFO pdfmark08 [ /View [ /Fit ] /DOCVIEW pdfmark08 %END PDFDE011 %BEG BGA2 EARLY BINDING IMAGE FILE (G) 1MR-0000F 200301 %BEG 1MR-0000F.TXT, 1MR & relative gamma change 200301 /gammaFi 15 array def /gammaFi %rel. gamma according to ISO 9241-306:2018 [0.475 0.550 0.625 0.700 0.775 0.849 0.924 1.000 1.081 1.176 1.290 1.428 1.600 1.818 2.105] def /1MR-0000F {%BEG procedure 1MR-0000F /FF_LM_setgrayF0 {setgray} bind def /FF_LM_setrgbcolorF0 {setrgbcolor} bind def /FF_LM_setcmykcolorF0 {setcmykcolor} bind def /FF_LM_transferF0 {settransfer} bind def /FF_LM_colortransferF0 {setcolortransfer} bind def /FF_LM_xchartg_gammaF {gammaFi xchart get exp} def /FF_LM_setrgbcolorF {%BEG FF_LM_setrgbcolorF /FF_LM_b0L exch def /FF_LM_g0L exch def /FF_LM_r0L exch def FF_LM_r0L 0 le {/FF_LM_r0L 0.0001 def} if FF_LM_g0L 0 le {/FF_LM_g0L 0.0001 def} if FF_LM_b0L 0 le {/FF_LM_b0L 0.0001 def} if /FF_LM_r1F FF_LM_r0L FF_LM_xchartg_gammaF def /FF_LM_g1F FF_LM_g0L FF_LM_xchartg_gammaF def /FF_LM_b1F FF_LM_b0L FF_LM_xchartg_gammaF def FF_LM_r1F FF_LM_g1F FF_LM_b1F FF_LM_setrgbcolorF0} def %END FF_LM_setrgbcolorF /setgray {%BEG procedure setgrayF dup dup FF_LM_setrgbcolorF %STOPs } def %END procedure setgrayF %part2 /setcmykcolor {%BEG procedure setcmykcolorF /FF_LM_k exch def /FF_LM_y exch def /FF_LM_m exch def /FF_LM_c exch def FF_LM_k 0 eq {1 FF_LM_c sub 1 FF_LM_m sub 1 FF_LM_y sub FF_LM_setrgbcolorF} {1 FF_LM_k sub dup dup FF_LM_setrgbcolorF} ifelse %STOPc } def %END procedure setcmykcolorF /setrgbcolor {%BEG procedure setrgbcolorF /FF_LM_b exch def /FF_LM_g exch def /FF_LM_r exch def FF_LM_r FF_LM_g FF_LM_b FF_LM_setrgbcolorF %STOPr } def %BEG procedure setrgbcolorF /FF_LM_transferF {%BEG FF_LM_transferF {FF_LM_xchartg_gammaF} FF_LM_transferF0} def %END FF_LM_transferF /settransfer {FF_LM_transferF} def /FF_LM_colortransferF {%BEG FF_LM_colortransferF {FF_LM_xchartg_gammaF} {FF_LM_xchartg_gammaF} {FF_LM_xchartg_gammaF} FF_LM_colortransferF0} def %END FF_LM_colortransferF /setcolortransfer {FF_LM_colortransferF} def } def %END procedure 1MR-0000F /iproc1MR 1 def %/1MR-0000G where {pop 1MR-0000G}{1MR-0000F} ifelse iproc1MR 1 eq {1MR-0000F} if %1MR-0000G %END 1MR-0000F.TXT, 1MR & relative gamma change 200301 %END BGA2 EARLY BINDING IMAGE FILE (G) 1MR-0000F 200301 %****************************************************************** /xchart1f 07 def /xchart2f 07 def /xchartdf 01 def /xchartmf 08 def /xchartf xchart1f def %****************************************************************** /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /A4querL {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /tgv {0 0 1 setrgbcolor} def %********************************************************** /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /rem %x0, y0 width heigth {/heigth exch def /width exch def /y0 exch def /x0 exch def x0 width 0.5 mul add y0 heigth 0.5 mul add moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /cviht {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse 1000 mul cvi 0.001 mul 7 string cvs show} def %/cvishow {cvi 6 string cvs show} def %/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def %/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def %/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def /cvsshow1g {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2g {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3g {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %******************************************************************* %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {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 /showea {1 lanind le {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /nr1 27 array def /tx1 52 array def /nr1 [(01) (02) (03) (04) (05) (06) (07) (08) (09) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27)] def /tx1 [(A) (B) (C) (D) (E) (F) (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V) (W) (X) (Y) (Z) (a) (b) (c) (d) (e) (f) (g) (h) (i) (j) (k) (l) (m) (n) (o) (p) (q) (r) (s) (t) (u) (v) (w) (x) (y) (z)] def /lanind1 0 def /lanind2 0 def /lanindd 01 def /lanindm 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /colormm 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xcolorm 01 def /xchart1 07 def /xchart2 07 def /xchartd 01 def /xchartm 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /pchartm 03 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def /xchart3 00 def %free /xchart4 00 def %test charts ISO/IEC 3, 2, 4; CIE R8-09 G, O, H /xchart5 00 def %free /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def /lanindm lanindmf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def /colormm colormmf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def /deintpm deintpmf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def /xcolorm xcolormf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchartmf def} if /xchart3f where {pop /xchart3 xchart3f def} if /xchart4f where {pop /xchart4 xchart4f def} if /xchart5f where {pop /xchart5 xchart5f def} if /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def /pchartm pchartmf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def /colsepm colsepmf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def /pmetamm pmetamf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /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 %A4querL /xcharx 0 def %fix page 1 of test chart /colorml colorm def %0 1 1 {/colorml exch def %colorml=0,1 /xcolorl xcolor def %0 1 3 {/xcolorl exch def %xcolorl=0,3 /xchartl xchart def %0 1 7 {/xchartl exch def %xchartl=0,7 /pchartl pchart def %0 1 2 {/pchartl exch def %pchartl=0,2 colorml 0 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if colorml 0 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if colorml 1 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if colorml 1 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if %xchart 0 eq {/Txx (-) def /Fxx (-) def} if gsave %pchartl 0 eq {%pchartl=0 Y10-7N_AL49_JSO_1P1S.EPS /TS {200 /Times-ISOL1 FS} bind def /yout 0 def yout 1 eq {%yout=1 7 /Times-ISOL1 FS 700 83 moveto lanind cvishow 7 /Times-Roman FS (-) show 7 /Times-ISOL1 FS colorm cvishow deintp cvishow xcolor cvishow xcharx cvishow pchartl cvishow colsep cvishow 7 /Times-Roman FS (-L) show 7 /Times-ISOL1 FS pmetam cvishow ( ) show colsep 0 eq {(cmyn6) show} if colsep 1 eq {(cmy0) show} if colsep 2 eq {(cmyn4) show} if colsep 3 eq {(cmyn5) show} if colsep 4 eq {(rgb) show} if colorm 1 eq {(*) show} if } if %yout=1 %*********************************************************************************** /vheigh 3.4 def /vheigk 3.0 def /TINN {vheigh /Times-ISOL1 FS} bind def /TINI {vheigh /TimesI-ISOL1 FS} bind def /RINN {vheigh /Times-Roman FS} bind def /TINK {vheigk /Times-ISOL1 FS} bind def 72 86.9 moveto /xchart16 1 def %1..16 RINN (BGA20-8N) show %xchart16 8 le {(BGA20-) show xchart16 cvishow} % {/xchartX xchart16 8 sub def % (BGA21-) show xchart16 cvishow} ifelse %TINN %(N, ) show (File: ) showen (Datei: ) showde RINN tgv (http://farbe.li.tu-berlin.de/BGA2/BGA20-1N.PS) show %(http://farbe.li.tu-berlin.de/AGZ3/AGZ30-1N.PS) showde (, ) show 0 setgray TINN iproc1MR 0 eq {%iproc1MR=0 (No 1MR, ) showen (No 1MR, ) showde} {%iproc1MR=1 (1MR, ) show } ifelse %iproc1MR=0,1 /ioutg 1 def ioutg 1 eq {%ioutg=1 TINN (Gamma ) showde (gamma ) showen TINI (g) show 0 -1 rmoveto TINK (P) show 0 1 rmoveto TINN (=) show gammaFi xchart get cvsshow3g (, ) show TINI (C) show /xchartP xchart 1 add def 0 -1 rmoveto TINK (YP) show xchartP cvishow 0 1 rmoveto xchartP 8 ge {%xchartP>=8 TINN (=) show TINI (C) show 0 -1 rmoveto TINK (YN) show 8 xchartP 8 sub sub cvishow 0 1 rmoveto } if %xchartP>=8 %RINN %( BGA20-1N) show } if %ioutg=1 72 90 translate 0.00237 MM dup scale pmetam 0 eq {%pmetam=0 40 setlinewidth /ymax1 16900 def 0.5 setgray 0 0 moveto 24600 0 rlineto 0 ymax1 rlineto -24600 0 rlineto closepath fill 0 setgray 0 0 moveto 24600 0 rlineto 0 ymax1 rlineto -24600 0 rlineto closepath stroke } if %pmetam=0 /fakt 1 def /iyt 32 fakt mul def %text size /iyd 35 fakt mul def %line difference xcharx 1 le {%xcharx<=1 } if %xcharx<=1 /xs 900 3 div 2 mul def /ys xs def /d2 xs 2 div def /d8 xs 8 div def /xmin 650 3 div 2.2 mul def /ymax 15800 def %xcharx 0 eq {/xd 800 3 div 2 mul def /yd 800 3 div 2 mul def} % {/xd 900 3 div 2 mul def /yd 900 3 div 2 mul def} ifelse /xd 900 3 div 2 mul def /yd 900 3 div 2 mul def /xsd xs xd sub 0.5 mul def /ysd xs xd sub 0.5 mul def /xd2 xd 0.50 mul def /xd4 xd 0.25 mul def 20 setlinewidth 500 3 div 2 mul /Times-ISOL1 FS 1 setgray 1 1 27 {/i exch def %i=1,27 /x xs 0.15 mul def /y 27.6 ys mul ys i mul sub def x y moveto nr1 i 1 sub get show } for %i=1,27 1 1 40 {/i exch def %i=1,36 /x xs i mul 000 add def /y 27.5 ys mul def x y moveto tx1 i 1 sub get show } for %i=1,36 %( # ) show 0 setgray /RGB*R0 1080 array def /RGB*G0 1080 array def /RGB*B0 1080 array def /rgbcmyk 10000 array def %8640=8*1080: n rgb, cmyk /n00 -1 def TS /IMODE 0 def %input rgb for output LAB* %row no.1 and 2: 9xrgb /imax 08 def /jmax 08 def /kmax 08 def /TKK2 {200 3 div 2 mul /Times-ISOL1 FS} bind def TKK2 0 1 kmax {/k exch def %beg k=0,08 /k0 k 3 idiv def /k1 k k0 3 mul sub def /xadd k1 xs 9 mul mul def /yadd k0 xs 9 mul mul def 0 1 jmax {/j exch def %beg j=0,jmax 0 1 imax {/i exch def %beg i=0,imax /n1079 i j 9 mul add k 81 mul add def /xa xmin j xs mul add xadd add xsd add def /ya ymax i ys mul sub yadd sub ysd add def /r k kmax div def /g j jmax div def /b i imax div def RGB*R0 n1079 r put RGB*G0 n1079 g put RGB*B0 n1079 b put xcharx 0 eq {%xcharx=0 r g b setrgbcolor xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } if %xcharx=0 xcharx 1 eq {%xcharx=1 r g b setrgbcolor xa ya xd dup rec fill } if %xcharx=1 } for %end i=0,jmax } for %end j=0,jmax } for %end k=0,kmax %3x rgbcmy /id 1 8 div def /rijn 81 array def %for intermediate storage /gijn 81 array def /bijn 81 array def /lmax 2 def /n1079 728 def 0 1 lmax {/l exch def %beg k=0,kmax /xadd 3 xs 9 mul mul def /yadd l ys 9 mul mul def %for intermediate storage of l=0,lmax 0 1 01 {/jchart exch def %jchart=0,1 /xcharxj l jchart 3 mul add def 0 1 08 {/j exch def %j=0,7 /im 8 j sub def jchart 1 im {/i exch def %i=0,8 /ia 1 id j mul sub def /argb ia def /brgb ia i id mul sub def xcharxj 0 eq {/r argb def /g brgb def /b brgb def} if xcharxj 1 eq {/r argb def /g argb def /b brgb def} if xcharxj 2 eq {/r brgb def /g argb def /b brgb def} if xcharxj 3 eq {/r brgb def /g argb def /b argb def} if xcharxj 4 eq {/r brgb def /g brgb def /b argb def} if xcharxj 5 eq {/r argb def /g brgb def /b argb def} if jchart 0 eq {/in i j add def /jn j def} {/in j def /jn i j add def} ifelse rijn in 9 mul jn add r put gijn in 9 mul jn add g put bijn in 9 mul jn add b put } for %i=0,7 } for %j=0,8 } for %jchart=0,1 %for output of l=0,lmax 0 1 08 {/j exch def %j=0,8 0 1 08 {/i exch def %i=0,8 /n1079 n1079 1 add def /r rijn i j 9 mul add get def /g gijn i j 9 mul add get def /b bijn i j 9 mul add get def /xa xmin xs j mul add xadd add xsd add def /ya ymax xs i mul sub yadd sub ysd add def xcharx 0 eq {%xcharx=0 r g b setrgbcolor xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } if %xcharx=0 xcharx 1 eq {%xcharx=1 r g b setrgbcolor xa ya xd dup rec fill } if %xcharx=1 } for %i=0,7 } for %j=0,8 } for %end l=0,lmax %6wrgbcmy /n1079 971 def /lmax 03 def %4 rows with geys /kmax 1 def %9 or 16 steps 0 1 kmax {/k exch def % k 0 eq {/jmax 08 def} {/jmax 15 def} ifelse 0 1 lmax {/l exch def %beg l=0,lmax /xadd 36 l add xs mul def /yadd k 9 xs mul mul def /j1 l 36 add def /j1$ tx1 j1 get def 0 1 jmax {/j exch def %j=0,08 /n1079 n1079 1 add def /i1 j k 9 mul add 1 add def %9 steps, 16 steps /argb j jmax div def /xa xmin xadd add xsd add def /ya ymax xs j mul sub yadd sub ysd add def /r argb def /g argb def /b argb def xcharx 0 eq {%xcharx=0 l 0 eq {0 0 0 1 r sub setcmykcolor} if l 1 eq {r setgray} if l 2 eq {1 r sub 1 g sub 1 b sub 0 setcmykcolor} if l 3 eq {r g b setrgbcolor} if xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } if %xcharx=0 xcharx 1 eq {%xcharx=1 r g b setrgbcolor xa ya xd dup rec fill } if %xcharx=1 } for %j=0,jmax } for %l=0,lmax } for %k=0,kmax %basic colours 1072 - 1080 /basrgb 24 array def /basrgb [0 0 0 1 1 1 1 0 0 0 1 1 1 1 0 0 0 1 0 1 0 1 0 1 ] def /n1079 1071 def 0 1 07 {/i exch def %i=0,7 /n1079 n1079 1 add def /i3 i 3 mul def /xadd 36 xs mul def /yadd 25 xs mul def i 0 eq {/l 0 def /j 0 def /j1$ (k) def /i1 26 def} if i 1 eq {/l 0 def /j 1 def /j1$ (k) def /i1 27 def} if i 2 eq {/l 1 def /j 0 def /j1$ (l) def /i1 26 def} if i 3 eq {/l 1 def /j 1 def /j1$ (l) def /i1 27 def} if i 4 eq {/l 2 def /j 0 def /j1$ (m) def /i1 26 def} if i 5 eq {/l 2 def /j 1 def /j1$ (m) def /i1 27 def} if i 6 eq {/l 3 def /j 0 def /j1$ (n) def /i1 26 def} if i 7 eq {/l 3 def /j 1 def /j1$ (n) def /i1 27 def} if /xa xmin xs l mul add xadd add xsd add def /ya ymax xs j mul sub yadd sub ysd add def /r basrgb i3 get def /g basrgb i3 1 add get def /b basrgb i3 2 add get def xcharx 0 eq {%xcharx=0 r g b setrgbcolor xa ya xd dup rec fill 1 r sub 1 g sub 1 b sub 0 setcmykcolor xa xd4 add ya xd4 add xd2 dup rec fill } if %xcharx=0 xcharx 1 eq {%xcharx=1 r g b setrgbcolor xa ya xd dup rec fill } if %xcharx=1 } for %i=0,7 %*************************************************************************** %} for %pmetam=0,1 %} if %pchartl=0 Y10-7N_AL49_JSO_1P1S.EPS %} for %xchartl=0,7 %} for %xcolorl=0,3 %} for %colorml=0,1 grestore %ENDNR1.PS 70 85 translate 1 0 0 setrgbcolor 1 setlinewidth [] 0 setdash 0.5 dup moveto 167 0 rlineto 0 119 rlineto -167 0 rlineto closepath stroke 0 setgray showpage %%EOF %%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 /SHSr 2 MM def /SHAr 2 MM def BeginEPSF 161 MM 06 MM sub SHSr sub 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 BGA21-1N.EPS %%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://farbe.li.tu-berlin.de/BGA2/BGA2.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022030112000) /ModDate (D:20220301112000) /DOCINFO pdfmark11 [ /View [ /FitB ] /DOCVIEW pdfmark11 %END PDFDE011 % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %Umrechnung Inch -> mm /A4quer {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def %font0309.ps*********************************************** %special TK 250->220 /CW {100 /Courier-ISOL1 FS} bind def /CV {150 /Courier-ISOL1 FS} bind def /CS {180 /Courier-ISOL1 FS} bind def /CK {220 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBW {100 /CourierB-ISOL1 FS} bind def /CBV {150 /CourierB-ISOL1 FS} bind def /CBS {180 /CourierB-ISOL1 FS} bind def /CBK {220 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /RW {100 /Times-Roman FS} bind def /RV {150 /Times-Roman FS} bind def /RS {180 /Times-Roman FS} bind def /RK {220 /Times-Roman FS} bind def /RM {300 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIW {100 /Times-Italic FS} bind def /RIV {150 /Times-Italic FS} bind def /RIS {180 /Times-Italic FS} bind def /RIK {220 /Times-Italic FS} bind def /RIM {300 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBW {100 /Times-Bold FS} bind def /RBV {150 /Times-Bold FS} bind def /RBS {180 /Times-Bold FS} bind def /RBK {220 /Times-Bold FS} bind def /RBM {300 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIW {100 /Times-BoldItalic FS} bind def /RBIV {150 /Times-BoldItalic FS} bind def /RBIS {180 /Times-BoldItalic FS} bind def /RBIK {220 /Times-BoldItalic FS} bind def /RBIM {300 /Times-BoldItalic FS} bind def /RBIG {350 /Times-BoldItalic FS} bind def /TW {100 /Times-ISOL1 FS} bind def /TV {150 /Times-ISOL1 FS} bind def /TS {180 /Times-ISOL1 FS} bind def /TK {220 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIW {100 /TimesI-ISOL1 FS} bind def /TIV {150 /TimesI-ISOL1 FS} bind def /TIS {180 /TimesI-ISOL1 FS} bind def /TIK {220 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBW {100 /TimesB-ISOL1 FS} bind def /TBV {150 /TimesB-ISOL1 FS} bind def /TBS {180 /TimesB-ISOL1 FS} bind def /TBK {220 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIW {100 /TimesBI-ISOL1 FS} bind def /TBIV {150 /TimesBI-ISOL1 FS} bind def /TBIS {180 /TimesBI-ISOL1 FS} bind def /TBIK {220 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /SW {100 /Symbol FS} bind def /SV {150 /Symbol FS} bind def /SS {180 /Symbol FS} bind def /SK {220 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /ishowRV {RW -00 -30 rmoveto show 00 30 rmoveto RV} def /jshowRV {RBW -00 -30 rmoveto show 00 30 rmoveto RBV} def /ishowTV {TW -00 -30 rmoveto show 00 30 rmoveto TV} def /jshowTV {TBW -00 -30 rmoveto show 00 30 rmoveto TBV} def /ishowRS {RV -00 -40 rmoveto show 00 40 rmoveto RS} def /jshowRS {RBV -00 -40 rmoveto show 00 40 rmoveto RBS} def /ishowTS {TV -00 -40 rmoveto show 00 40 rmoveto TS} def /jshowTS {TBV -00 -40 rmoveto show 00 40 rmoveto TBS} def /ishowRK {RS -00 -50 rmoveto show 00 50 rmoveto RK} def /jshowRK {RBS -00 -50 rmoveto show 00 50 rmoveto RBK} def /ishowTK {TS -00 -50 rmoveto show 00 50 rmoveto TK} def /jshowTK {TBS -00 -50 rmoveto show 00 50 rmoveto TBK} def /ishowRM {RK -00 -60 rmoveto show 00 60 rmoveto RM} def /jshowRM {RBK -00 -60 rmoveto show 00 60 rmoveto RBM} def /ishowTM {TK -00 -60 rmoveto show 00 60 rmoveto TM} def /jshowTM {TBK -00 -60 rmoveto show 00 60 rmoveto TBM} def /ishowRG {RM -00 -70 rmoveto show 00 70 rmoveto RG} def /jshowRG {RBM -00 -70 rmoveto show 00 70 rmoveto RBG} def /ishowTG {TM -00 -70 rmoveto show 00 70 rmoveto TG} def /jshowTG {TBM -00 -70 rmoveto show 00 70 rmoveto TBG} def %special /enshowTK {TS -00 80 rmoveto show 00 -80 rmoveto TK} def /ebshowTK {TBS -00 80 rmoveto show 00 -80 rmoveto TBK} def /enshowTM {TK -00 90 rmoveto show 00 -90 rmoveto TM} def /ebshowTM {TBK -00 90 rmoveto show 00 -90 rmoveto TBM} def %font0309.ps*********************************************** /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 /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* 1.0 exp 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 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /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 %************************************************************************* %%EndProlog gsave %LANINDL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {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 /showea {1 lanind le {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 3 def /xcolor2 3 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def /xchartd xchartgd def} {/xchart1 0 def /xchart2 0 def /xchartd 1 def} ifelse /pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def /pchartd pchartgd def} {/pchart1 1 def /pchart2 1 def /pchartd 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def} if /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /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 /pchart pchart1 def %pchart1 1 pchart2 {/pchart 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 /cvishow {cvi 6 string cvs show} def gsave 4 /Times-ISOL1 FS 72 86 moveto (BGA21-1N) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /xwidth 5400 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke /KMind_dd0 {-50 -50 rmoveto TS (dd0) show 0 50 rmoveto TK} def /KMind_dd1 {-50 -50 rmoveto TS (dd1) show 0 50 rmoveto TK} def /KMind_dd2 {-50 -50 rmoveto TS (dd2) show 0 50 rmoveto TK} def /KMind_dd3 {-50 -50 rmoveto TS (dd3) show 0 50 rmoveto TK} def /KMind_de0 {-50 -50 rmoveto TS (de0) show 0 50 rmoveto TK} def /KMind_de1 {-50 -50 rmoveto TS (de1) show 0 50 rmoveto TK} def /KMind_de2 {-50 -50 rmoveto TS (de2) show 0 50 rmoveto TK} def /KMind_de3 {-50 -50 rmoveto TS (de3) show 0 50 rmoveto TK} def /KMind_YP1 {-50 -50 rmoveto TS (YP1) show 0 50 rmoveto TK} def /KMind_YP5 {-50 -50 rmoveto TS (YP5) show 0 50 rmoveto TK} def /KMind_YP8 {-50 -50 rmoveto TS (YP8) show 0 50 rmoveto TK} def /K0ind_dd0 {0 -50 rmoveto TS (dd0) show 0 50 rmoveto TK} def /K0ind_dd1 {0 -50 rmoveto TS (dd1) show 0 50 rmoveto TK} def /K0ind_dd2 {0 -50 rmoveto TS (dd2) show 0 50 rmoveto TK} def /K0ind_dd3 {0 -50 rmoveto TS (dd3) show 0 50 rmoveto TK} def /K0ind_de0 {0 -50 rmoveto TS (de0) show 0 50 rmoveto TK} def /K0ind_de1 {0 -50 rmoveto TS (de1) show 0 50 rmoveto TK} def /K0ind_de2 {0 -50 rmoveto TS (de2) show 0 50 rmoveto TK} def /K0ind_de3 {0 -50 rmoveto TS (de3) show 0 50 rmoveto TK} def /K0ind_YP1 {-50 -50 rmoveto TS (YP1) show 0 50 rmoveto TK} def /K0ind_YP5 {-50 -50 rmoveto TS (YP5) show 0 50 rmoveto TK} def /K0ind_YP8 {-50 -50 rmoveto TS (YP8) show 0 50 rmoveto TK} def /SMind_dd0 {-50 -50 rmoveto TV (dd0) show 0 50 rmoveto TS} def /SMind_dd1 {-50 -50 rmoveto TV (dd1) show 0 50 rmoveto TS} def /SMind_dd2 {-50 -50 rmoveto TV (dd2) show 0 50 rmoveto TS} def /SMind_dd3 {-50 -50 rmoveto TV (dd3) show 0 50 rmoveto TS} def /SMind_de0 {-50 -50 rmoveto TV (de0) show 0 50 rmoveto TS} def /SMind_de1 {-50 -50 rmoveto TV (de1) show 0 50 rmoveto TS} def /SMind_de2 {-50 -50 rmoveto TV (de2) show 0 50 rmoveto TS} def /SMind_de3 {-50 -50 rmoveto TV (de3) show 0 50 rmoveto TS} def /SMind_YP1 {-50 -50 rmoveto TV (YP1) show 0 50 rmoveto TS} def /SMind_YP5 {-50 -50 rmoveto TV (YP5) show 0 50 rmoveto TS} def /SMind_YP8 {-50 -50 rmoveto TV (YP8) show 0 50 rmoveto TS} def /S0ind_dd0 {0 -50 rmoveto TV (dd0) show 0 50 rmoveto TS} def /S0ind_dd1 {0 -50 rmoveto TV (dd1) show 0 50 rmoveto TS} def /S0ind_dd2 {0 -50 rmoveto TV (dd2) show 0 50 rmoveto TS} def /S0ind_dd3 {0 -50 rmoveto TV (dd3) show 0 50 rmoveto TS} def /S0ind_de0 {0 -50 rmoveto TV (de0) show 0 50 rmoveto TS} def /S0ind_de1 {0 -50 rmoveto TV (de1) show 0 50 rmoveto TS} def /S0ind_de2 {0 -50 rmoveto TV (de2) show 0 50 rmoveto TS} def /S0ind_de3 {0 -50 rmoveto TV (de3) show 0 50 rmoveto TS} def /S0ind_YP1 {0 -50 rmoveto TV (YP1) show 0 50 rmoveto TS} def /S0ind_YP5 {0 -50 rmoveto TV (YP5) show 0 50 rmoveto TS} def /S0ind_YP8 {0 -50 rmoveto TV (YP8) show 0 50 rmoveto TS} def %************************************************************************************************ /iyt 300 def %text size /iyd 350 def %line difference /ix00 40 def %text 1 /iy00 3450 def %text 2 ix00 iy00 350 add moveto TBK (Farbmanagement) showde (Colour Management) showea ( nach ) showde ( based on ) showea (ISO 9241\255306:2018) show %(1\051) ebshowTM TK ix00 iy00 300 sub moveto TIK (rgb) show 0 -50 rmoveto TS (d) show 20 50 rmoveto TK (=729 colour) showea (=729 Farb\255) showde ix00 iy00 250 sub 300 sub moveto (device data to) showea (Ger\344tedaten nach) showde ix00 iy00 500 sub 300 sub moveto (device) showea (Ger\344te\255) showde ix00 iy00 750 sub 300 sub moveto (hue data) showea (Buntton\255) showde ix00 iy00 1000 sub 300 sub moveto (daten) showde ix00 3700 add iy00 moveto TIK (rgb') show -50 -50 rmoveto TS (ddi) show 20 50 rmoveto TK (=visual) showea (= visuelle) showde ix00 3700 add iy00 250 sub moveto (equally spaced) showea (gleich gestufte) showde ix00 3700 add iy00 500 sub moveto (device output) showea (Ger\344teausgabe) showde ix00 4000 add iy00 700 sub moveto TS ((i=1,2,3)) show TK %ix00 3800 add iy00 0950 sub moveto %(all 3 displays:) showea %ix00 3800 add iy00 1200 sub moveto %(device output) showea %ix00 3800 add iy00 1450 sub moveto %(contrast range) showea %ix00 3800 add iy00 1700 sub moveto %(ISO C) showea %(ISO\255C) showde %0 -50 rmoveto TS (YP5) show 0 50 rmoveto TK %ix00 3800 add iy00 1950 sub moveto %(2,5) show SK (\243) show TIK (Y) show SK (\243) show TK (90) show %*************************************************************** %mean circle /xm xwidth 0.5 mul def /ym ywidth 400 sub 0.5 mul def /xr1 0470 def %radius 1 /xr2 1100 def %radius 2 /xr3 1600 def %radius 3 /ym1 ym 100 sub def /xm1 xm 000 sub def %/xm1 xm 500 sub def xm1 2500 sub ym1 1750 add moveto (ISO C) showea (ISO\255C) showde 0 -50 rmoveto TS (YP5) show 0 50 rmoveto TK (: 2,5) show SK (\243) show TIK (Y) show SK (\243) show TK (90) show xm1 2650 sub ym1 1600 sub moveto (ISO C) showea (ISO\255C) showde 0 -50 rmoveto TS (YP8) show 0 50 rmoveto TK (: 0,3) show SK (\243) show TIK (Y) show SK (\243) show TK (90) show xm1 2650 sub ym1 1350 sub moveto 0 0.7 0 setrgbcolor (measure:) showea (Messung:) showde 0 setgray xm1 0780 add ym1 1600 sub moveto (ISO C) showea (ISO\255C) showde 0 -50 rmoveto TS (YP1) show 0 50 rmoveto TK (: 40) show SK (\243) show TIK (Y) show SK (\243) show TK (90) show /xi 7 array def /yi 7 array def /xrec 450 def /yrec 400 def /xrec2 xrec 2 mul def /yrec2 yrec 2 mul def 0 1 2 {/i exch def %i=0,2 /angle 30 neg i 120 mul add def xi i xm1 xr3 angle cos mul add put yi i ym1 xr3 angle sin mul add put } for %i=0,2 /xti 3 array def /yti 3 array def TK 0 1 2 {/i exch def %i=0,2 /angle 30 neg i 120 mul add def xti i xm1 xm1 xi i get sub 0.5 mul sub put yti i ym1 ym1 yi i get sub 0.5 mul sub put 1 0 0 setrgbcolor xm1 ym1 moveto xi i get yi i get lineto stroke 1 setgray xti i get yti i get 200 0 360 arc fill 0 setgray xti i get yti i get 200 0 360 arc stroke xti i get 170 sub yti i get 50 sub moveto i 0 eq {(dd) show 0 -50 rmoveto TS (3) show 0 50 rmoveto TK} if i 1 eq {(dd) show 0 -50 rmoveto TS (1) show 0 50 rmoveto TK} if i 2 eq {(dd) show 0 -50 rmoveto TS (2) show 0 50 rmoveto TK} if i 0 eq {/xt3 xm1 0100 sub def /yt3 ym1 0900 sub def xt3 yt3 moveto TK ([) show TIK (rgb) show 0 -50 rmoveto TS (d) show 0 50 rmoveto TK (]) show 0 100 rmoveto TS (g) show 0 -70 rmoveto (P3) show 0 -30 rmoveto TK -800 -250 rmoveto (->) show TIK (rgb') show KMind_dd3 } if i 1 eq {/xt1 xm1 0350 add def /yt1 ym1 700 add def xt1 yt1 moveto TK ([) show TIK (rgb) show 0 -50 rmoveto TS (d) show 0 50 rmoveto TK (]) show 0 100 rmoveto TS (g) show 0 -70 rmoveto (P1) show 0 -30 rmoveto TK -800 -250 rmoveto (->) show TIK (rgb') show KMind_dd1 } if i 2 eq {/xt2 xm1 1520 sub def /yt2 ym1 200 add def xt2 yt2 moveto ([) show TIK (rgb) show 0 -50 rmoveto TS (d) show 0 50 rmoveto TK (]) show 0 100 rmoveto TS (g) show 0 -70 rmoveto (P2) show 0 -30 rmoveto TK -800 -250 rmoveto (->) show TIK (rgb') show KMind_dd2 } if newpath } for %i=0,2 /xtn xm1 1650 add def /ytn ym1 800 add def xtn ytn moveto TK (g) show TS 0 -70 rmoveto (P1) show 0 70 rmoveto TK (=0,775) show 0 0.7 0 setrgbcolor xtn ytn 250 sub moveto TK (g) show TS 0 -70 rmoveto (P2) show 0 70 rmoveto TK (=1,000) show 0 setgray xtn ytn 500 sub moveto TK (g) show TS 0 -70 rmoveto (P3) show 0 70 rmoveto TK (=0,475) show newpath 1 setgray xm1 ym1 xr1 0 360 arc fill 0 setgray newpath newpath xm1 ym1 xr3 0 360 arc stroke newpath newpath xm1 ym1 xr1 0 360 arc stroke newpath xm1 450 sub ym1 150 add moveto ( ISO) showea ( ISO\255) showde xm1 450 sub ym1 100 sub moveto ( colours) showea ( Farben) showde 1 0 0 setrgbcolor xm1 450 sub ym1 350 sub moveto ( AE49) showea ( AG49) showde 0 setgray 0 1 2 {/i exch def %i=0,2 1 setgray xi i get xrec sub yi i get yrec sub moveto xrec2 0 rlineto 0 yrec2 rlineto xrec2 neg 0 rlineto closepath fill 0 setgray i 2 eq {0 0.7 0 setrgbcolor} if xi i get xrec sub yi i get yrec sub moveto xrec2 0 rlineto 0 yrec2 rlineto xrec2 neg 0 rlineto closepath stroke 0 setgray TK xi i get xrec sub 250 add yi i get yrec add 250 sub moveto (RGB) show xi i get xrec sub 030 add yi i get yrec add 450 sub moveto i 0 eq {(display) showea (Display) showde} if i 1 eq {(display) showea (Display) showde} if i 2 eq {(display) showea (Display) showde} if i 0 eq {SMind_dd3} if i 1 eq {SMind_dd1} if i 2 eq {SMind_dd2} if 1 0 0 setrgbcolor xi i get xrec sub 030 add yi i get yrec add 700 sub moveto i 0 eq {(D65, C) show S0ind_YP1} if i 1 eq {(D65, C) show S0ind_YP5} if i 2 eq {(D65, C) show S0ind_YP8} if 0 setgray } for %i=0,2 %****************************************************************************** showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 06 MM sub SHAr add 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 BGA21-2N.EPS %%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://farbe.li.tu-berlin.de/BGA2/BGA2.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022030112000) /ModDate (D:20220301112000) /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 %Umrechnung Inch -> mm /A4quer {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def %font0309.ps*********************************************** %special TK 250->220 /CW {100 /Courier-ISOL1 FS} bind def /CV {150 /Courier-ISOL1 FS} bind def /CS {180 /Courier-ISOL1 FS} bind def /CK {220 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBW {100 /CourierB-ISOL1 FS} bind def /CBV {150 /CourierB-ISOL1 FS} bind def /CBS {180 /CourierB-ISOL1 FS} bind def /CBK {220 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /RW {100 /Times-Roman FS} bind def /RV {150 /Times-Roman FS} bind def /RS {180 /Times-Roman FS} bind def /RK {220 /Times-Roman FS} bind def /RM {300 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIW {100 /Times-Italic FS} bind def /RIV {150 /Times-Italic FS} bind def /RIS {180 /Times-Italic FS} bind def /RIK {220 /Times-Italic FS} bind def /RIM {300 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBW {100 /Times-Bold FS} bind def /RBV {150 /Times-Bold FS} bind def /RBS {180 /Times-Bold FS} bind def /RBK {220 /Times-Bold FS} bind def /RBM {300 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIW {100 /Times-BoldItalic FS} bind def /RBIV {150 /Times-BoldItalic FS} bind def /RBIS {180 /Times-BoldItalic FS} bind def /RBIK {220 /Times-BoldItalic FS} bind def /RBIM {300 /Times-BoldItalic FS} bind def /RBIG {350 /Times-BoldItalic FS} bind def /TW {100 /Times-ISOL1 FS} bind def /TV {150 /Times-ISOL1 FS} bind def /TS {180 /Times-ISOL1 FS} bind def /TK {220 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIW {100 /TimesI-ISOL1 FS} bind def /TIV {150 /TimesI-ISOL1 FS} bind def /TIS {180 /TimesI-ISOL1 FS} bind def /TIK {220 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBW {100 /TimesB-ISOL1 FS} bind def /TBV {150 /TimesB-ISOL1 FS} bind def /TBS {180 /TimesB-ISOL1 FS} bind def /TBK {220 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIW {100 /TimesBI-ISOL1 FS} bind def /TBIV {150 /TimesBI-ISOL1 FS} bind def /TBIS {180 /TimesBI-ISOL1 FS} bind def /TBIK {220 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /SW {100 /Symbol FS} bind def /SV {150 /Symbol FS} bind def /SS {180 /Symbol FS} bind def /SK {220 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /ishowRV {RW -00 -30 rmoveto show 00 30 rmoveto RV} def /jshowRV {RBW -00 -30 rmoveto show 00 30 rmoveto RBV} def /ishowTV {TW -00 -30 rmoveto show 00 30 rmoveto TV} def /jshowTV {TBW -00 -30 rmoveto show 00 30 rmoveto TBV} def /ishowRS {RV -00 -40 rmoveto show 00 40 rmoveto RS} def /jshowRS {RBV -00 -40 rmoveto show 00 40 rmoveto RBS} def /ishowTS {TV -00 -40 rmoveto show 00 40 rmoveto TS} def /jshowTS {TBV -00 -40 rmoveto show 00 40 rmoveto TBS} def /ishowRK {RS -00 -50 rmoveto show 00 50 rmoveto RK} def /jshowRK {RBS -00 -50 rmoveto show 00 50 rmoveto RBK} def /ishowTK {TS -00 -50 rmoveto show 00 50 rmoveto TK} def /jshowTK {TBS -00 -50 rmoveto show 00 50 rmoveto TBK} def /ishowRM {RK -00 -60 rmoveto show 00 60 rmoveto RM} def /jshowRM {RBK -00 -60 rmoveto show 00 60 rmoveto RBM} def /ishowTM {TK -00 -60 rmoveto show 00 60 rmoveto TM} def /jshowTM {TBK -00 -60 rmoveto show 00 60 rmoveto TBM} def /ishowRG {RM -00 -70 rmoveto show 00 70 rmoveto RG} def /jshowRG {RBM -00 -70 rmoveto show 00 70 rmoveto RBG} def /ishowTG {TM -00 -70 rmoveto show 00 70 rmoveto TG} def /jshowTG {TBM -00 -70 rmoveto show 00 70 rmoveto TBG} def %special /enshowTK {TS -00 80 rmoveto show 00 -80 rmoveto TK} def /ebshowTK {TBS -00 80 rmoveto show 00 -80 rmoveto TBK} def /enshowTM {TK -00 90 rmoveto show 00 -90 rmoveto TM} def /ebshowTM {TBK -00 90 rmoveto show 00 -90 rmoveto TBM} def %font0309.ps*********************************************** /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 /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* 1.0 exp 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 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /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 %************************************************************************* %%EndProlog gsave %LANINDL2.EPS START 20000505 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {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 /showea {1 lanind le {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 3 def /xcolor2 3 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def /xchartd xchartgd def} {/xchart1 0 def /xchart2 0 def /xchartd 1 def} ifelse /pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def /pchartd pchartgd def} {/pchart1 1 def /pchart2 1 def /pchartd 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def} if /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /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 /pchart pchart1 def %pchart1 1 pchart2 {/pchart 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 /cvishow {cvi 6 string cvs show} def gsave 4 /Times-ISOL1 FS 72 86 moveto (BGA21-2N) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /xwidth 5400 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke /KMind_dd0 {-50 -50 rmoveto TS (dd0) show 0 50 rmoveto TK} def /KMind_dd1 {-50 -50 rmoveto TS (dd1) show 0 50 rmoveto TK} def /KMind_dd2 {-50 -50 rmoveto TS (dd2) show 0 50 rmoveto TK} def /KMind_dd3 {-50 -50 rmoveto TS (dd3) show 0 50 rmoveto TK} def /KMind_de0 {-50 -50 rmoveto TS (de0) show 0 50 rmoveto TK} def /KMind_de1 {-50 -50 rmoveto TS (de1) show 0 50 rmoveto TK} def /KMind_de2 {-50 -50 rmoveto TS (de2) show 0 50 rmoveto TK} def /KMind_de3 {-50 -50 rmoveto TS (de3) show 0 50 rmoveto TK} def /KMind_YP1 {-50 -50 rmoveto TS (YP1) show 0 50 rmoveto TK} def /KMind_YP5 {-50 -50 rmoveto TS (YP5) show 0 50 rmoveto TK} def /KMind_YP8 {-50 -50 rmoveto TS (YP8) show 0 50 rmoveto TK} def /K0ind_dd0 {0 -50 rmoveto TS (dd0) show 0 50 rmoveto TK} def /K0ind_dd1 {0 -50 rmoveto TS (dd1) show 0 50 rmoveto TK} def /K0ind_dd2 {0 -50 rmoveto TS (dd2) show 0 50 rmoveto TK} def /K0ind_dd3 {0 -50 rmoveto TS (dd3) show 0 50 rmoveto TK} def /K0ind_de0 {0 -50 rmoveto TS (de0) show 0 50 rmoveto TK} def /K0ind_de1 {0 -50 rmoveto TS (de1) show 0 50 rmoveto TK} def /K0ind_de2 {0 -50 rmoveto TS (de2) show 0 50 rmoveto TK} def /K0ind_de3 {0 -50 rmoveto TS (de3) show 0 50 rmoveto TK} def /K0ind_YP1 {-50 -50 rmoveto TS (YP1) show 0 50 rmoveto TK} def /K0ind_YP5 {-50 -50 rmoveto TS (YP5) show 0 50 rmoveto TK} def /K0ind_YP8 {-50 -50 rmoveto TS (YP8) show 0 50 rmoveto TK} def /SMind_dd0 {-50 -50 rmoveto TV (dd0) show 0 50 rmoveto TS} def /SMind_dd1 {-50 -50 rmoveto TV (dd1) show 0 50 rmoveto TS} def /SMind_dd2 {-50 -50 rmoveto TV (dd2) show 0 50 rmoveto TS} def /SMind_dd3 {-50 -50 rmoveto TV (dd3) show 0 50 rmoveto TS} def /SMind_de0 {-50 -50 rmoveto TV (de0) show 0 50 rmoveto TS} def /SMind_de1 {-50 -50 rmoveto TV (de1) show 0 50 rmoveto TS} def /SMind_de2 {-50 -50 rmoveto TV (de2) show 0 50 rmoveto TS} def /SMind_de3 {-50 -50 rmoveto TV (de3) show 0 50 rmoveto TS} def /SMind_YP1 {-50 -50 rmoveto TV (YP1) show 0 50 rmoveto TS} def /SMind_YP5 {-50 -50 rmoveto TV (YP5) show 0 50 rmoveto TS} def /SMind_YP8 {-50 -50 rmoveto TV (YP8) show 0 50 rmoveto TS} def /S0ind_dd0 {0 -50 rmoveto TV (dd0) show 0 50 rmoveto TS} def /S0ind_dd1 {0 -50 rmoveto TV (dd1) show 0 50 rmoveto TS} def /S0ind_dd2 {0 -50 rmoveto TV (dd2) show 0 50 rmoveto TS} def /S0ind_dd3 {0 -50 rmoveto TV (dd3) show 0 50 rmoveto TS} def /S0ind_de0 {0 -50 rmoveto TV (de0) show 0 50 rmoveto TS} def /S0ind_de1 {0 -50 rmoveto TV (de1) show 0 50 rmoveto TS} def /S0ind_de2 {0 -50 rmoveto TV (de2) show 0 50 rmoveto TS} def /S0ind_de3 {0 -50 rmoveto TV (de3) show 0 50 rmoveto TS} def /S0ind_YP1 {0 -50 rmoveto TV (YP1) show 0 50 rmoveto TS} def /S0ind_YP5 {0 -50 rmoveto TV (YP5) show 0 50 rmoveto TS} def /S0ind_YP8 {0 -50 rmoveto TV (YP8) show 0 50 rmoveto TS} def %************************************************************************************************ /iyt 300 def %text size /iyd 350 def %line difference /ix00 40 def %text 1 /iy00 3450 def %text 2 ix00 iy00 350 add moveto TBK (Farbmanagement) showde (Colour Management) showea ( nach ) showde ( based on ) showea (ISO 9241\255306:2018) show TK ix00 iy00 450 sub moveto TIK (rgb) show 0 -50 rmoveto TS (d) show 20 50 rmoveto TK (=729 colour) showea (=729 Farb\255) showde ix00 iy00 250 sub 450 sub moveto (device data to) showea (Ger\344tedaten nach) showde ix00 iy00 500 sub 450 sub moveto (device) showea (Ger\344te\255) showde ix00 iy00 750 sub 450 sub moveto (hue data) showea (Buntton\255) showde ix00 iy00 1000 sub 450 sub moveto (daten) showde ix00 3700 add iy00 moveto TIK (rgb') show -50 -50 rmoveto TS (ddi) show 20 50 rmoveto TK (=visual) showea (= visuelle) showde ix00 3700 add iy00 250 sub moveto (equally spaced) showea (gleich gestufte) showde ix00 3700 add iy00 500 sub moveto (device output) showea (Ger\344teausgabe) showde ix00 4000 add iy00 700 sub moveto TS ((i=1,2,3)) show TK %ix00 3800 add iy00 0950 sub moveto %(all 3 displays:) showea %ix00 3800 add iy00 1200 sub moveto %(device output) showea %ix00 3800 add iy00 1450 sub moveto %(contrast range) showea %ix00 3800 add iy00 1700 sub moveto %(ISO C) showea %(ISO\255C) showde %0 -50 rmoveto TS (YP5) show 0 50 rmoveto TK %ix00 3800 add iy00 1950 sub moveto %(2,5) show SK (\243) show TIK (Y) show SK (\243) show TK (90) show %*************************************************************** %mean circle /xm xwidth 0.5 mul def /ym ywidth 400 sub 0.5 mul def /xr1 0470 def %radius 1 /xr2 1100 def %radius 2 /xr3 1600 def %radius 3 /ym1 ym 100 sub def /xm1 xm 000 sub def %/xm1 xm 500 sub def xm1 2500 sub ym1 1750 add moveto (ISO C) showea (ISO\255C) showde 0 -50 rmoveto TS (YP5) show 0 50 rmoveto TK (: 2,5) show SK (\243) show TIK (Y) show SK (\243) show TK (90) show xm1 1500 sub ym1 1520 add moveto 0 0.7 0 setrgbcolor (measure:) showea (Messung:) showde 0 setgray xm1 2650 sub ym1 1600 sub moveto (ISO C) showea (ISO\255C) showde 0 -50 rmoveto TS (YP8) show 0 50 rmoveto TK (: 0,3) show SK (\243) show TIK (Y) show SK (\243) show TK (90) show xm1 0780 add ym1 1600 sub moveto (ISO C) showea (ISO\255C) showde 0 -50 rmoveto TS (YP1) show 0 50 rmoveto TK (: 40) show SK (\243) show TIK (Y) show SK (\243) show TK (90) show /xi 7 array def /yi 7 array def /xrec 450 def /yrec 400 def /xrec2 xrec 2 mul def /yrec2 yrec 2 mul def 0 1 2 {/i exch def %i=0,2 /angle 30 neg i 120 mul add def xi i xm1 xr3 angle cos mul add put yi i ym1 xr3 angle sin mul add put } for %i=0,2 /xti 3 array def /yti 3 array def TK 0 1 2 {/i exch def %i=0,2 /angle 30 neg i 120 mul add def xti i xm1 xm1 xi i get sub 0.5 mul sub put yti i ym1 ym1 yi i get sub 0.5 mul sub put 1 0 0 setrgbcolor xm1 ym1 moveto xi i get yi i get lineto stroke 1 setgray xti i get yti i get 200 0 360 arc fill 0 setgray xti i get yti i get 200 0 360 arc stroke xti i get 170 sub yti i get 50 sub moveto i 0 eq {(dd) show 0 -50 rmoveto TS (3) show 0 50 rmoveto TK} if i 1 eq {(dd) show 0 -50 rmoveto TS (1) show 0 50 rmoveto TK} if i 2 eq {(dd) show 0 -50 rmoveto TS (2) show 0 50 rmoveto TK} if i 0 eq {/xt3 xm1 0100 sub def /yt3 ym1 0900 sub def xt3 yt3 moveto TK ([) show TIK (rgb) show 0 -50 rmoveto TS (d) show 0 50 rmoveto TK (]) show 0 100 rmoveto TS (g) show 0 -70 rmoveto (P3) show 0 -30 rmoveto TK -800 -250 rmoveto (->) show TIK (rgb') show KMind_dd3 } if i 1 eq {/xt1 xm1 0350 add def /yt1 ym1 700 add def xt1 yt1 moveto TK ([) show TIK (rgb) show 0 -50 rmoveto TS (d) show 0 50 rmoveto TK (]) show 0 100 rmoveto TS (g) show 0 -70 rmoveto (P1) show 0 -30 rmoveto TK -800 -250 rmoveto (->) show TIK (rgb') show KMind_dd1 } if i 2 eq {/xt2 xm1 1520 sub def /yt2 ym1 200 add def xt2 yt2 moveto ([) show TIK (rgb) show 0 -50 rmoveto TS (d) show 0 50 rmoveto TK (]) show 0 100 rmoveto TS (g) show 0 -70 rmoveto (P2) show 0 -30 rmoveto TK -800 -250 rmoveto (->) show TIK (rgb') show KMind_dd2 } if newpath } for %i=0,2 /xtn xm1 1650 add def /ytn ym1 800 add def 0 0.7 0 setrgbcolor xtn ytn moveto TK (g) show TS 0 -70 rmoveto (P1) show 0 70 rmoveto TK (=0,775) show 0 setgray xtn ytn 250 sub moveto TK (g) show TS 0 -70 rmoveto (P2) show 0 70 rmoveto TK (=1,000) show 0 setgray xtn ytn 500 sub moveto TK (g) show TS 0 -70 rmoveto (P3) show 0 70 rmoveto TK (=0,475) show newpath 1 setgray xm1 ym1 xr1 0 360 arc fill 0 setgray newpath newpath xm1 ym1 xr3 0 360 arc stroke newpath newpath xm1 ym1 xr1 0 360 arc stroke newpath xm1 450 sub ym1 150 add moveto ( ISO) showea ( ISO\255) showde xm1 450 sub ym1 100 sub moveto ( colours) showea ( Farben) showde 1 0 0 setrgbcolor xm1 450 sub ym1 350 sub moveto ( AE49) showea ( AG49) showde 0 setgray 0 1 2 {/i exch def %i=0,2 1 setgray xi i get xrec sub yi i get yrec sub moveto xrec2 0 rlineto 0 yrec2 rlineto xrec2 neg 0 rlineto closepath fill 0 setgray i 1 eq {0 0.7 0 setrgbcolor} if xi i get xrec sub yi i get yrec sub moveto xrec2 0 rlineto 0 yrec2 rlineto xrec2 neg 0 rlineto closepath stroke 0 setgray TK xi i get xrec sub 250 add yi i get yrec add 250 sub moveto (RGB) show xi i get xrec sub 030 add yi i get yrec add 450 sub moveto i 0 eq {(display) showea (Display) showde} if i 1 eq {(display) showea (Display) showde} if i 2 eq {(display) showea (Display) showde} if i 0 eq {SMind_dd3} if i 1 eq {SMind_dd1} if i 2 eq {SMind_dd2} if 1 0 0 setrgbcolor xi i get xrec sub 030 add yi i get yrec add 700 sub moveto i 0 eq {(D65, C) show S0ind_YP1} if i 1 eq {(D65, C) show S0ind_YP5} if i 2 eq {(D65, C) show S0ind_YP8} if 0 setgray } for %i=0,2 %****************************************************************************** showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 06 MM sub SHSr sub 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 BGA21-3N %%BoundingBox: 70 85 243 206 %START PDFDE011.EPS /pdfmark13 where {pop} {userdict /pdfmark13 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/BGA2/BGA2.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022030112000) /ModDate (D:2022030112000) /DOCINFO pdfmark13 [ /View [ /Fit ] /DOCVIEW pdfmark13 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } 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 /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 /TX {120 /Times-ISOL1 FS} bind def /TV {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIX {120 /TimesI-ISOL1 FS} bind def /TIV {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-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 /TBX {120 /TimesB-ISOL1 FS} bind def /TBV {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-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 /TBIX {120 /TimesBI-ISOL1 FS} bind def /TBIV {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-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 /XD65 95.05 def /YD65 100.00 def /ZD65 108.90 def /xanD65 XD65 XD65 YD65 add ZD65 add div def /yanD65 YD65 XD65 YD65 add ZD65 add div def %******************************************************* %created for 10 colours of hue circle and different lightness /LCh*12 60 array def /XYZ*12 60 array def /LCh*12n 60 array def /XYZ*12n 60 array def %************************************************************** %created for 45 colours of equal chroma and different lightness /rgb*45 500 array def %5x45, NOT 3x45 /LCh*45 500 array def %5x45 /XYZ*45 500 array def %5x45 /rgb*45n 500 array def %5x45, NOT 3x45 /XYZ*45n 500 array def %5x45 /XYZ*45na 500 array def /LCh*45n 500 array def %5x45 /LCh*45na 500 array def %5x45 %************************************************************ %definition of A for xchartl=0 to 5 /XYZ*5A 5 array def /LCh*5A 5 array def /XYZ*5N 5 array def /LCh*5N 5 array def /XYZ*5W 5 array def /LCh*5W 5 array def /XYZ*5An 5 array def /LCh*5An 5 array def /XYZ*5Nn 5 array def /LCh*5Nn 5 array def /XYZ*5Wn 5 array def /LCh*5Wn 5 array def /rgb*3A 3 array def /tex*3A 3 array def /rgb*3N 3 array def /tex*3N 3 array def /rgb*3W 3 array def /tex*3W 3 array def /LCh*5Na 5 array def %a=actual /LCh*5Wa 5 array def /LCh*5Aa 5 array def %******************************************************************* /proz_XYZ_LCh* {%BEG proz_XYZ_LCh* %input XYZaref, output LChab*ref, same name in any case %output LabC*h (xchart8=0) or LABC*h (xchart8=1) /XQ Xaref XD65 div def /YQ Yaref YD65 div def /ZQ Zaref ZD65 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def xchart8 0 eq {%xchart8=0 LabCh*-CIELAB /a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def } if %xchart8=0 LabCh*-CIELAB xchart8 1 eq {%xchart8=1 LabCh*=LABCh* /a*ref XQ YQ sub 250 mul def /b*ref YQ ZQ sub 100 mul def } if %xchart8=1 LabCh*=LABCh* /C*ref a*ref dup mul b*ref dup mul add sqrt def /h*ref b*ref a*ref 0.00001 add atan def C*ref 0.05 le {/h*ref 0 def} if } bind def %END proz_XYZ_LCh* %******************************************************************* /proz_LCh*_XYZ {%BEG proz_LCh*_XYZ %input LCh*ref of LabC*h (xchart8=0) or L*ABCh (xchart8=1) %output XYZref, xyanref xchart8 0 eq {%xchart8=0 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /X* {L*ref 16 add 116 div a*ref 500 div add} bind def /Y* {L*ref 16 add 116 div} bind def /Z* {L*ref 16 add 116 div b*ref 200 div sub} bind def /Xref X* DecodeXYZ* XD65 mul def /Yref Y* DecodeXYZ* YD65 mul def /Zref Z* DecodeXYZ* ZD65 mul def } if %xchart8=0 xchart8 1 eq {%xchart8=1 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /Y* {L*ref 16 add 116 div} bind def /Yref Y* DecodeXYZ* YD65 mul def /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /Xref a*ref 250 div XD65 mul Yref XD65 mul YD65 div add def /Zref Yref ZD65 mul YD65 div b*ref 100 div ZD65 mul sub def } if %xchart8=1 Xref 0.01 lt {/Xref 0.01 def} if Yref 0.01 lt {/Yref 0.01 def} if Zref 0.01 lt {/Zref 0.01 def} if /SUM Xref Yref add Zref add 0.0001 add def /xanref Xref SUM div def /yanref Yref SUM div def } bind def %END proz_LCh*_XYZ %************************************************************************* /proz_XYZnw_D65_xchart7_definition {%BEG proz_XYZnw_D65_xchart7_definition % achromatic colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def /YrN 2.52 def /Xnref YrN XLN001 mul def /Ynref YrN def /Znref YrN ZLN001 mul def /Xtref XYZnref_ISO9241-306 xchart7 3 mul 0 add get def /Ytref XYZnref_ISO9241-306 xchart7 3 mul 1 add get def /Ztref XYZnref_ISO9241-306 xchart7 3 mul 2 add get def /YNil Ytref def /YNil001 YNil 100 div def YNil001 6 29 div 3 exp ge {/FYYn YNil001 0.3333 exp def} {/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse /L*Nil 116 FYYn mul 16 sub def } bind def %END proz_XYZnw_D65_xchart7_definition %************************************************************** /proz_XYZ*12_XYZ*12n {%BEG proz_XYZ*12_XYZ*12n %for 10 colours %input XYZ*12, rgb*10 %output LCh*12n, rgb*10n %only for xchart5=1 and for 10 colours in 7 hue planes and achromatic %change XYZ*12 to XYZ*12n by display reflection according to xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*12n i100 XYZ*12 i100 get Xnor sub Xfac1 mul Xnor add put XYZ*12n i101 XYZ*12 i101 get Ynor sub Yfac1 mul Ynor add put XYZ*12n i102 XYZ*12 i102 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*12n i100 XYZ*12 i100 get Xfac2 mul Xtref add put XYZ*12n i101 XYZ*12 i101 get Yfac2 mul Ytref add put XYZ*12n i102 XYZ*12 i102 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*12_XYZ*12n %**************************************************************** /proz_XYZ*45_XYZ*45n {%BEG proz_XYZ*45_XYZ*45n %for 45 colours %input XYZ*45, rgb*45 %output XYZ*45n, rgb*45n %only for xchart5=1 and for 45 colours in hue plane %change XYZ*45 to XYZ*45n by display reflection according t0 xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*45n i450 XYZ*45 i450 get Xnor sub Xfac1 mul Xnor add put XYZ*45n i451 XYZ*45 i451 get Ynor sub Yfac1 mul Ynor add put XYZ*45n i452 XYZ*45 i452 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*45n i450 XYZ*45 i450 get Xfac2 mul Xtref add put XYZ*45n i451 XYZ*45 i451 get Yfac2 mul Ytref add put XYZ*45n i452 XYZ*45 i452 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*45_XYZ*45n %*********************************************************** %*********************************************************** /proz_sRGB_rgb*36X_definitions {%BEG proz_sRGB_rgb*36X_definitions /XYZ*WCGa_d_0000_0886 36 array def %d, Yw=88,6, Yn=2,50 /XYZ*WCGa_d_0000_0886 [056.43 023.27 000.00 %0 Rd %ANH9_Y10-7N,201003, fehl? Zmin=2.72 069.24 083.34 002.48 %1 Yd 012.81 060.07 002.48 %2 Gd 027.77 066.32 096.48 %3 Cd 014.96 005.25 094.00 %4 Bd 071.39 028.52 094.00 %5 Md 056.43 023.27 000.00 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*sRGB_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*sRGB_d_0000_0886 [036.54 018.84 001.71 %0 Rd %ANH9_Y10-3N,201012 076.99 092.78 013.85 %1 Yd 035.76 071.52 011.91 %2 Gd 053.81 078.74 106.98 %3 Cd 018.05 007.22 095.06 %4 Bd 059.28 028.48 096.99 %5 Md 036.54 018.84 001.71 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*Ostw_d_0000_1000 36 array def %m, Yw=100,00, Yn=0,00 /XYZ*Ostw_d_0000_1000 [062.40 041.75 000.76 %0 Rm 561_405 589 %ANI6_Y10-7N,201012 076.68 082.00 001.27 %1 Ym 520_520c 569 023.83 065.32 015.00 %2 Gm 475_473 528c 032.63 058.24 108.12 %3 Cm 405_561 483 018.36 017.99 107.61 %4 Bm 519c-519 471 071.20 034.67 093.88 %5 Mm 573_475 528c 062.40 041.75 000.76 %6 Rm 561_405 589 %for hue circle 000.01 000.01 000.01 %7 N0 095.05 100.00 108.90 %8 W0 000.01 000.01 000.01 %9 N1 107.29 112.88 122.24 %10 W1 19.31 20.31 22.00 %11 Z1 ] def /XYZ*Offs_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*Offs_d_0000_0886 [029.01 016.24 004.26 %0 Rd %ANJ7_Y11-1N,201012 063.74 072.69 008.27 %1 Yd 008.53 020.05 009.58 %2 Gd 018.74 026.27 069.02 %3 Cd 006.22 004.51 022.65 %4 Bd 032.46 016.95 023.04 %5 Md 029.01 016.24 004.26 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /rgb*36X 36 array def /rgb*36X [1 0 0 %0 1 1 0 %1 0 1 0 %2 0 1 1 %3 0 0 1 %4 1 0 1 %5 1 0 0 %6 0.00 0.00 0.00 %7 N0 1.00 1.00 1.00 %8 W0 0.00 0.00 0.00 %9 N1 1.13 1.13 1.13 %10 W1 0.18 0.18 0.18 %11 Z1 ] def /tex*36X 36 array def /tex*36X [(Rot) (red) (R) %0 (Gelb) (yellow) (Y) %1 (Gr\374n) (green) (G) %2 (Cyan) (cyan) (C) %3 (Blau) (blue) (B) %4 (Magenta) (magenta) (M) %5 (Rot) (red) (R) %6 (Schwarz) (black) (N) %7 (Wei\337) (white) (W) %8 (Schwarz) (black) (N1) %9 (Wei\337) (white) (W1) %10 (Grau) (grey) (Z1) %11 ] def /XYZnref_ISO9241-306 24 array def /XYZnref_ISO9241-306 [ %XYZnref wit contrast step according to ISO 9241-306:2018 00.01 00.01 00.01 %0 0288:1 00.60 00.63 00.69 %1 0144:1 01.20 01.26 01.37 %2 0072:1 02.40 02.52 02.74 %3 0036:1 %standard 04.79 05.04 05.49 %4 0018:1 08.58 10.08 10.98 %5 0009:1 19.16 20.16 21.95 %6 04,5:1 38.32 40.32 43.90 %7 2,25:1 ] def /Ynref_ISO9241-306 8 array def 0 1 7 {/i exch def %i=0,7 /i31 i 3 mul 1 add def Ynref_ISO9241-306 i XYZnref_ISO9241-306 i31 get put } for %i=0,7 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 sISO 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def xchart4 0 eq {%xchart4=0 XYZ*12 i50 XYZ*sRGB_d_0000_0886 i30 get put XYZ*12 i51 XYZ*sRGB_d_0000_0886 i31 get put XYZ*12 i52 XYZ*sRGB_d_0000_0886 i32 get put } if %xchart4=0 xchart4 1 eq {%xchart4=1 XYZ*12 i50 XYZ*WCGa_d_0000_0886 i30 get put XYZ*12 i51 XYZ*WCGa_d_0000_0886 i31 get put XYZ*12 i52 XYZ*WCGa_d_0000_0886 i32 get put } if %xchart4=1 xchart4 2 eq {%xchart4=2 XYZ*12 i50 XYZ*Offs_d_0000_0886 i30 get put XYZ*12 i51 XYZ*Offs_d_0000_0886 i31 get put XYZ*12 i52 XYZ*Offs_d_0000_0886 i32 get put } if %xchart4=2 xchart4 3 eq {%xchart4=3 XYZ*12 i50 XYZ*Ostw_d_0000_1000 i30 get 0.8860 mul put XYZ*12 i51 XYZ*Ostw_d_0000_1000 i31 get 0.8860 mul put XYZ*12 i52 XYZ*Ostw_d_0000_1000 i32 get 0.8860 mul put } if %xchart4=3 /SUM XYZ*12 i50 get XYZ*12 i51 get add XYZ*12 i52 get add def XYZ*12 i53 XYZ*12 i50 get SUM div put XYZ*12 i54 XYZ*12 i51 get SUM div put %will be replaced, if xchart5=1 XYZ*12n i50 XYZ*12 i50 get put XYZ*12n i51 XYZ*12 i51 get put XYZ*12n i52 XYZ*12 i52 get put XYZ*12n i53 XYZ*12 i53 get put XYZ*12n i54 XYZ*12 i54 get put } for %i=0,11 } bind def %END proz_sRGB_rgb*36X_definitions %*************************************************************** /proz_out_text_ANW_definition {%BEG proz_out_text_ANW_definition %loop for maximal 5 colours +N +W 0 1 2 {/j exch def %j=0,2 %three components /i3j xchartl 3 mul j add def rgb*3A j rgb*36X i3j get put tex*3A j tex*36X i3j get put } for %j=0,2 0 1 4 {/j exch def %j=0,4 %three components /i5j xchartl 5 mul j add def XYZ*5A j XYZ*12 i5j get put LCh*5A j LCh*12 i5j get put XYZ*5An j XYZ*12n i5j get put LCh*5An j LCh*12n i5j get put } for %j=0,4 0 1 2 {/i exch def %i=0,2 rgb*3N i rgb*36X i 21 add get put %8x3 tex*3N i tex*36X i 21 add get put rgb*3W i rgb*36X i 24 add get put %9x3 tex*3W i tex*36X i 24 add get put } for %i=0,2 0 1 4 {/i exch def %i=0,4 XYZ*5N i XYZ*12 i 35 add get put %8x5 LCh*5N i LCh*12 i 35 add get put XYZ*5W i XYZ*12 i 40 add get put %9x5 LCh*5W i LCh*12 i 40 add get put XYZ*5Nn i XYZ*12n i 35 add get put %8x5 LCh*5Nn i LCh*12n i 35 add get put XYZ*5Wn i XYZ*12n i 40 add get put %9x5 LCh*5Wn i LCh*12n i 40 add get put } for %i=0,4 /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def /L*Xdn LCh*5An 0 get def /C*Xdn LCh*5An 1 get def /L*Ndn LCh*5Nn 0 get def /L*Wdn LCh*5Wn 0 get def /xfact 2000 100 div def /yfact 2000 100 div def %Titeltext /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xpN xp def /ypN yp 2000 sub def /xpW xp def /ypW yp def /xpX xp 2000 add def /ypX yp 1000 sub def /xNd xp def %Nd /yNd ypN L*Nd yfact mul add def %Nd /xWd xp def %Wd /yWd ypN L*Wd yfact mul add def %Wd /xRd xp C*Xd xfact mul add def %Xd /yRd ypN L*Xd yfact mul add def /tex_LC*hab {xchart8 0 eq {(LC*hab) show} {(L*ChAB) show} ifelse } bind def /tex_LabC*h {xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse } bind def /indd {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /inddk {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /inde {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /indek {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /indab {0 -50 rmoveto xchart8 0 eq {(ab)} {(AB)} ifelse show 0 50 rmoveto} bind def /indabk {0 -50 rmoveto xchart8 0 eq {(ab,)} {(AB,)} ifelse show 0 50 rmoveto} bind def /indabd {0 -50 rmoveto xchart8 0 eq {(ab,d)} {(AB,d)} ifelse show 0 50 rmoveto} bind def /indabe {0 -50 rmoveto xchart8 0 eq {(ab,e)} {(AB,e)} ifelse show 0 50 rmoveto} bind def /indabN {0 -50 rmoveto xchart8 0 eq {(ab,N)} {(AB,N)} ifelse show 0 50 rmoveto} bind def /indabW {0 -50 rmoveto xchart8 0 eq {(ab,W)} {(AB,W)} ifelse show 0 50 rmoveto} bind def } bind def %END proz_out_text_ANW_definition %************************************************************** /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBV -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBV -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TV -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TV -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow1g {/nxx exch def %example nxx=99.1/99.0 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2g {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3g {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /xchartl 0 def %0 for xchart6=0 or 1; 0 to 5 for 6 hue planes /xchart3 0 def %0: LCH, %1: ICE/ice /xchart4 0 def %0: sRGB, 1: WCGa, 3: Offs, 4:Ostw /xchart5 1 def %0: YN=0, 1: YN=0,0 ..2,5 ..40,3 /xchart6 1 def %0: Y10-1N, %1 Y10-2N, %2: Y10-3N to 8N /xchart7 3 def %0 to 7: 8 contrast steps no. 1 to 8 according to ISO 9241-406 /xchart8 0 def %0: LabC*h, 1: L*ABCh /xchart9 0 def %0 for Normalizaton; 0: Y=88,6, 1: Y=18,0 4 /Times-ISOL1 FS 72 86 moveto (BGA21-3N) show 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 1 setgray /xwide 6000 def /ywide 4000 def 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath stroke %produces XYZ*12 and XYZ*12n proz_sRGB_rgb*36X_definitions %uses XYZ*12 proz_XYZnw_D65_xchart7_definition 0 1 11 {/i exch def %i=0,09 /i100 i 5 mul def /i101 i100 1 add def /i102 i100 2 add def /i103 i100 3 add def /i104 i100 4 add def /Xaref XYZ*12 i100 get def /Yaref XYZ*12 i101 get def /Zaref XYZ*12 i102 get def % in any case defined proz_XYZ_LCh* LCh*12 i100 L*ref put LCh*12 i101 C*ref put LCh*12 i102 h*ref put LCh*12 i103 a*ref put LCh*12 i104 b*ref put LCh*12n i100 L*ref put %may be replaced LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put xchart5 1 eq {%BEG xchart5=1 %XYZaref see above %input XYZ*12 %output XYZ*12n, LCh*12n proz_XYZ*12_XYZ*12n %calculates intermediate XYZ*12n /Xaref XYZ*12n i100 get def /Yaref XYZ*12n i101 get def /Zaref XYZ*12n i102 get def %input XYZaref, output LChab*ref proz_XYZ_LCh* LCh*12n i100 L*ref put LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put } if %xchart5=1 } for %i=0,11 %produces for hue circle and achromatic colours %XYZ*(ANW)_(ANW)n, LCh*(ANW)_(ANW)n with 5 components %rgb*(ANW)_(ANW)n, tex*(ANW)_(ANW)n with 3 components proz_out_text_ANW_definition /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Spalten /S1 100 def /S2 1500 def /S3 2300 def /S4 5900 def /S5 7700 def /S6 8500 def /yz 400 def /yu5 7600 def /yu4 7100 def /yu3 5800 def /yu2 5800 def /yu1 5800 def %******************************************************** xchart6 0 eq {%xchart6=0 table /xdXYZ 470 def /xdLab 570 def 50 3750 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) show TBS (, and ) showen ( und ) showde TBIS tex_LabC*h TBV indab TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen} {%xchart8=1 ( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen} ifelse 0 3650 moveto 6000 0 rlineto stroke 50 3400 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 TIS (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show} {(=18.) show} ifelse } if %xchart5=1 /xt1 0000 def /yt1 0000 def xt1 yt1 translate /y01 3250 def /y02 2850 def /S10 020 def %colour /S20 0400 def %rgb /S30 0900 def %XYZ /S40 3300 def %LCh*ab 0 y01 moveto 6000 0 rlineto stroke 0 y02 100 sub moveto 6000 0 rlineto stroke 0 750 moveto 6000 0 rlineto stroke S20 50 sub y01 moveto S20 50 sub 0 lineto stroke S30 50 sub y01 moveto S30 50 sub 0 lineto stroke S40 50 sub y01 moveto S40 50 sub 0 lineto stroke TBV S30 y02 200 add moveto (CIEXYZ) show (\255Daten) showde ( data) showen S40 y02 200 add moveto TBIV xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse TBX indab TBV (\255Daten) showde ( data) showen S20 y02 moveto TBIV (rgb*) show /tex_XYZxy [(X) (Y) (Z) (x) (y)] def 0 1 4 {/k exch def %k=0,4 TBIV S30 k xdXYZ mul add y02 moveto tex_XYZxy k get show TBX S30 k xdXYZ mul add 080 add y02 moveto 0 -50 rmoveto (d) show 0 50 rmoveto } for %k=0,4 xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 120 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV S40 k xdLab mul add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 2500 def /y0d 235 def 0 1 10 {/j exch def %j=0,9 colours without red twice /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /ydd 0 def i 8 gt {/ydd 0.2 y0d mul def} if S10 y03 j y0d mul sub ydd sub moveto tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub ydd sub moveto TBV i 8 le {%i<=7 rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow} {rgb*36X i30 get cvsshow2g} ifelse /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def 0 1 4 {/k exch def %k=0,4 TV S30 k xdXYZ mul add y03 j y0d mul sub ydd sub moveto k 0 eq {XYZ*12n i50 get cvsshow2g} if k 1 eq {XYZ*12n i51 get cvsshow2g} if k 2 eq {XYZ*12n i52 get cvsshow2g} if k 3 eq {XYZ*12n i53 get cvsshow3g} if k 4 eq {XYZ*12n i54 get cvsshow3g} if } for %k=0,4 0 1 4 {/k exch def %k=0,4 k 3 le {TV}{TBV} ifelse S40 k xdLab mul add y03 j y0d mul sub ydd sub moveto k 0 eq {LCh*12n i50 get cvsshow2g} if k 1 eq {LCh*12n i53 get cvsshow2g} if k 2 eq {LCh*12n i54 get cvsshow2g} if k 3 eq {LCh*12n i51 get cvsshow2g} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,10 xt1 neg yt1 neg translate } if %xchart6=0 table %********************************************************* xchart6 1 eq {%xchart6=1 hue circle /xdLab 300 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 2000 4 div def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def /rgb*30Y 84 def %7x12 /rgb*30Y [1.00 0.00 0.00 %0 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 %1 Y 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 0.00 %2 G 0.00 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 %3 C 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 %4 B 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 1.00 %5 M 1.00 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 %6 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 ] def 50 3800 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) showde (, XYZxy) showen TBS (, and ) showen ( und ) showde TBIS xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse TBV 0 -40 rmoveto xchart8 0 eq {(ab)} {(AB)} ifelse show 0 40 rmoveto TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen} {%xchart8=1 ( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen} ifelse 0 3700 moveto 6000 0 rlineto stroke 50 3500 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show}{(=18.) show} ifelse } if %xchart5=1 /y01 3350 def /y02 3050 def /S10 020 def %colour /S20 0270 def %rgb /S40 0650 def %LCh*ab xchart8 0 eq {/S50 2600 def} {/S50 2150 def} ifelse %[X] TBV S40 y02 250 add moveto TBIV xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse TBX indab TBV (\255Daten) showde ( data) showen S20 y02 moveto TBIV (rgb*) show TBX -50 -50 rmoveto (d) show 50 50 rmoveto xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 100 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -50 def} if S40 k xdLab mul add xdLabk add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add xdLabk add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 2800 def /y0d 200 def 0 1 7 {/j exch def %j=0,8 9 colours /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def S10 y03 j y0d mul sub moveto TBV tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub moveto TBV rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow 0 1 4 {/k exch def %k=0,4 /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -50 def} if k 4 lt {TV}{TBV} ifelse S40 k xdLab mul add xdLabk add y03 j y0d mul sub moveto k 0 eq {LCh*12n i50 get cvishow} if k 1 eq {LCh*12n i53 get dup -100 le {-50 0 rmoveto} if cvishow} if k 2 eq {LCh*12n i54 get dup -100 le {-50 0 rmoveto} if cvishow} if k 3 eq {LCh*12n i51 get cvishow} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,7 S10 y03 10.1 y0d mul sub moveto TBIV xchart8 0 eq {(a*) show} {(A) show} ifelse TBV xchart8 0 eq {( = 500 [\050) show} {( = 250 [) show} ifelse TBIV (X) show TBV ( / ) show TBIV (X) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( ]) show S50 y03 10.1 y0d mul sub moveto TBV xchart8 0 eq {([1a]) show} {([1b]) show} ifelse S10 y03 11.2 y0d mul sub moveto TBIV xchart8 0 eq {(b*) show} {(B) show} ifelse TBV xchart8 0 eq {( = 200 [\050) show} {( = 100 [) show} ifelse TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Z) show TBV ( / ) show TBIV (Z) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( ]) show S50 y03 11.2 y0d mul sub moveto TBV xchart8 0 eq {([2a]) show} {([2b]) show} ifelse S10 y03 12.4 y0d mul sub moveto TBIV (C) show TBIV xchart8 0 eq {(*) show} if TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} {0 -40 rmoveto (AB) show 0 40 rmoveto} ifelse TBV ( = [ ) show TBIV xchart8 0 eq {(a*) show} {(A) show} ifelse TBX 0 100 rmoveto (2) show 0 -100 rmoveto TBV ( + ) show TBIV xchart8 0 eq {(b*) show} {(B) show} ifelse TBX 0 100 rmoveto (2) show 0 -100 rmoveto TBV ( ] ) show TBX 0 100 rmoveto (0,5) show 0 -100 rmoveto S50 y03 12.2 y0d mul sub moveto TBV xchart8 0 eq {([3a]) show} {([3b]) show} ifelse S10 y03 13.4 y0d mul sub moveto TBIV (h) show TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} {0 -40 rmoveto (AB) show 0 40 rmoveto} ifelse TBV ( = atan [ ) show TBIV xchart8 0 eq {(b*) show} {(B) show} ifelse TBV ( / ) show TBIV xchart8 0 eq {(a*) show} {(A) show} ifelse TBV ( ]) show S50 y03 13.2 y0d mul sub moveto TBV xchart8 0 eq {([4a]) show} {([4b]) show} ifelse /xt2 2150 def /yt2 -2370 def xt2 yt2 translate 0 setgray xp 1450 sub yp 0750 add moveto /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def xchart8 0 eq {/xfact1 12 def /yfact1 12 def } { % /xfact1 12 mul 2.5 mul def % /yfact1 12 mul 2.5 mul def /xfact1 12 def /yfact1 12 def } ifelse /xp0 xp 0400 add def /yp0 yp 1000 sub def /xpN xp0 1000 sub def /ypN yp0 1000 sub def xp0 1900 sub yp0 0 sub moveto 3600 0 rlineto %horizontal axis & arrow -100 40 rlineto 100 -40 rlineto -100 -40 rlineto stroke xp0 0000 add yp0 1400 sub moveto 0 3100 rlineto %vertical axis & arrow -40 -100 rlineto 40 100 rlineto 40 -100 rlineto stroke xp0 1800 sub yp0 70 sub moveto 0 140 rlineto stroke %marks, horizontal axis xp0 1200 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 add yp0 70 sub moveto 0 140 rlineto stroke xp0 1200 add yp0 70 sub moveto 0 140 rlineto stroke xchart8 0 eq {%xchart8=0 /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } { % /scal_x [(-60) ( -40) ( -20) ( 20) ( 40)] def % /scal_y [( 40) (20) (-20) (-40) ] def /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } ifelse %xchart8=0 TV xp0 2000 sub yp0 220 sub moveto scal_x 0 get show %numbers, horizontal scale xp0 1400 sub yp0 220 sub moveto scal_x 1 get show xp0 0750 sub yp0 220 sub moveto scal_x 2 get show xp0 0400 add yp0 220 sub moveto scal_x 3 get show xp0 1000 add yp0 220 sub moveto scal_x 4 get show xp0 70 sub yp0 1200 add moveto 140 0 rlineto stroke %marks, vertical axis xp0 70 sub yp0 0600 add moveto 140 0 rlineto stroke xp0 70 sub yp0 0600 sub moveto 140 0 rlineto stroke xp0 70 sub yp0 1200 sub moveto 140 0 rlineto stroke xp0 100 add yp0 1150 add moveto scal_y 0 get show %numbers, vertical axis xp0 100 add yp0 0550 add moveto scal_y 1 get show xp0 100 add yp0 0650 sub moveto scal_y 2 get show xp0 100 add yp0 1250 sub moveto scal_y 3 get show TBIK xp0 0080 add yp0 1550 add moveto xchart8 0 eq {(b*) show} {(B) show} ifelse xp0 1550 add yp0 0120 add moveto xchart8 0 eq {(a*) show} {(A) show} ifelse 0.5 setgray xchart5 1 eq {%old hexagon 15 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def xi yi 0040 0 360 arc fill } for %i=0,6 } if %old hexagon 1 setgray 30 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 5 {/i exch def %i=0,5 1 1 3 {/k exch def %k=1,3 0 setgray /i34 i 12 mul k 3 mul add def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi0 xp0 LCh*12n i53 get xfact1 mul add def /yi0 yp0 LCh*12n i54 get yfact1 mul add def /xi1 xp0 LCh*12n i53 5 add get xfact1 mul add def /yi1 yp0 LCh*12n i54 5 add get yfact1 mul add def /xiM xi0 xi1 xi0 sub k 0.25 mul mul add def /yiM yi0 yi1 yi0 sub k 0.25 mul mul add def /r rgb*30Y i34 3 add get def /g rgb*30Y i34 4 add get def /b rgb*30Y i34 5 add get def r g b setrgbcolor xiM yiM 0050 0 360 arc fill } for %k=1,3 } for %i=0,5 newpath /xshift 6 array def /yshift 6 array def % R Y G C B M /xshift [-300 -100 -050 -100 -300 -030] def /yshift [-200 -300 200 -300 -200 -300] def 0 1 5 {/i exch def %i=0,5 0 setgray /i3 i 3 mul def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def xi yi 0100 0 360 arc fill /r rgb*36X i3 0 add get def /g rgb*36X i3 1 add get def /b rgb*36X i3 2 add get def r g b setrgbcolor xi yi 0050 0 360 arc fill newpath 0 setgray xi xshift i get add yi yshift i get add moveto tex*36X i 3 mul 2 add get show newpath } for %i=0,5 20 setlinewidth xt2 neg yt2 neg translate } if %xchart6=1 hue circle %******************************************************* showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 06 MM sub SHAr add 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 BGA21-4N %%BoundingBox: 70 85 243 206 %START PDFDE011.EPS /pdfmark14 where {pop} {userdict /pdfmark14 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/BGA2/BGA2.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022030112000) /ModDate (D:2022030112000) /DOCINFO pdfmark14 [ /View [ /Fit ] /DOCVIEW pdfmark14 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } 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 /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 /TX {120 /Times-ISOL1 FS} bind def /TV {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIX {120 /TimesI-ISOL1 FS} bind def /TIV {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-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 /TBX {120 /TimesB-ISOL1 FS} bind def /TBV {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-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 /TBIX {120 /TimesBI-ISOL1 FS} bind def /TBIV {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-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 /XD65 95.05 def /YD65 100.00 def /ZD65 108.90 def /xanD65 XD65 XD65 YD65 add ZD65 add div def /yanD65 YD65 XD65 YD65 add ZD65 add div def %******************************************************* %created for 10 colours of hue circle and different lightness /LCh*12 60 array def /XYZ*12 60 array def /LCh*12n 60 array def /XYZ*12n 60 array def %************************************************************** %created for 45 colours of equal chroma and different lightness /rgb*45 500 array def %5x45, NOT 3x45 /LCh*45 500 array def %5x45 /XYZ*45 500 array def %5x45 /rgb*45n 500 array def %5x45, NOT 3x45 /XYZ*45n 500 array def %5x45 /XYZ*45na 500 array def /LCh*45n 500 array def %5x45 /LCh*45na 500 array def %5x45 %************************************************************ %definition of A for xchartl=0 to 5 /XYZ*5A 5 array def /LCh*5A 5 array def /XYZ*5N 5 array def /LCh*5N 5 array def /XYZ*5W 5 array def /LCh*5W 5 array def /XYZ*5An 5 array def /LCh*5An 5 array def /XYZ*5Nn 5 array def /LCh*5Nn 5 array def /XYZ*5Wn 5 array def /LCh*5Wn 5 array def /rgb*3A 3 array def /tex*3A 3 array def /rgb*3N 3 array def /tex*3N 3 array def /rgb*3W 3 array def /tex*3W 3 array def /LCh*5Na 5 array def %a=actual /LCh*5Wa 5 array def /LCh*5Aa 5 array def %******************************************************************* /proz_XYZ_LCh* {%BEG proz_XYZ_LCh* %input XYZaref, output LChab*ref, same name in any case %output LabC*h (xchart8=0) or LABC*h (xchart8=1) /XQ Xaref XD65 div def /YQ Yaref YD65 div def /ZQ Zaref ZD65 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def xchart8 0 eq {%xchart8=0 LabCh*-CIELAB /a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def } if %xchart8=0 LabCh*-CIELAB xchart8 1 eq {%xchart8=1 LabCh*=LABCh* /a*ref XQ YQ sub 250 mul def /b*ref YQ ZQ sub 100 mul def } if %xchart8=1 LabCh*=LABCh* /C*ref a*ref dup mul b*ref dup mul add sqrt def /h*ref b*ref a*ref 0.00001 add atan def C*ref 0.05 le {/h*ref 0 def} if } bind def %END proz_XYZ_LCh* %******************************************************************* /proz_LCh*_XYZ {%BEG proz_LCh*_XYZ %input LCh*ref of LabC*h (xchart8=0) or L*ABCh (xchart8=1) %output XYZref, xyanref xchart8 0 eq {%xchart8=0 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /X* {L*ref 16 add 116 div a*ref 500 div add} bind def /Y* {L*ref 16 add 116 div} bind def /Z* {L*ref 16 add 116 div b*ref 200 div sub} bind def /Xref X* DecodeXYZ* XD65 mul def /Yref Y* DecodeXYZ* YD65 mul def /Zref Z* DecodeXYZ* ZD65 mul def } if %xchart8=0 xchart8 1 eq {%xchart8=1 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /Y* {L*ref 16 add 116 div} bind def /Yref Y* DecodeXYZ* YD65 mul def /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /Xref a*ref 250 div XD65 mul Yref XD65 mul YD65 div add def /Zref Yref ZD65 mul YD65 div b*ref 100 div ZD65 mul sub def } if %xchart8=1 Xref 0.01 lt {/Xref 0.01 def} if Yref 0.01 lt {/Yref 0.01 def} if Zref 0.01 lt {/Zref 0.01 def} if /SUM Xref Yref add Zref add 0.0001 add def /xanref Xref SUM div def /yanref Yref SUM div def } bind def %END proz_LCh*_XYZ %************************************************************************* /proz_XYZnw_D65_xchart7_definition {%BEG proz_XYZnw_D65_xchart7_definition % achromatic colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def /YrN 2.52 def /Xnref YrN XLN001 mul def /Ynref YrN def /Znref YrN ZLN001 mul def /Xtref XYZnref_ISO9241-306 xchart7 3 mul 0 add get def /Ytref XYZnref_ISO9241-306 xchart7 3 mul 1 add get def /Ztref XYZnref_ISO9241-306 xchart7 3 mul 2 add get def /YNil Ytref def /YNil001 YNil 100 div def YNil001 6 29 div 3 exp ge {/FYYn YNil001 0.3333 exp def} {/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse /L*Nil 116 FYYn mul 16 sub def } bind def %END proz_XYZnw_D65_xchart7_definition %************************************************************** /proz_XYZ*12_XYZ*12n {%BEG proz_XYZ*12_XYZ*12n %for 10 colours %input XYZ*12, rgb*10 %output LCh*12n, rgb*10n %only for xchart5=1 and for 10 colours in 7 hue planes and achromatic %change XYZ*12 to XYZ*12n by display reflection according to xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*12n i100 XYZ*12 i100 get Xnor sub Xfac1 mul Xnor add put XYZ*12n i101 XYZ*12 i101 get Ynor sub Yfac1 mul Ynor add put XYZ*12n i102 XYZ*12 i102 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*12n i100 XYZ*12 i100 get Xfac2 mul Xtref add put XYZ*12n i101 XYZ*12 i101 get Yfac2 mul Ytref add put XYZ*12n i102 XYZ*12 i102 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*12_XYZ*12n %**************************************************************** /proz_XYZ*45_XYZ*45n {%BEG proz_XYZ*45_XYZ*45n %for 45 colours %input XYZ*45, rgb*45 %output XYZ*45n, rgb*45n %only for xchart5=1 and for 45 colours in hue plane %change XYZ*45 to XYZ*45n by display reflection according t0 xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*45n i450 XYZ*45 i450 get Xnor sub Xfac1 mul Xnor add put XYZ*45n i451 XYZ*45 i451 get Ynor sub Yfac1 mul Ynor add put XYZ*45n i452 XYZ*45 i452 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*45n i450 XYZ*45 i450 get Xfac2 mul Xtref add put XYZ*45n i451 XYZ*45 i451 get Yfac2 mul Ytref add put XYZ*45n i452 XYZ*45 i452 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*45_XYZ*45n %*********************************************************** %*********************************************************** /proz_sRGB_rgb*36X_definitions {%BEG proz_sRGB_rgb*36X_definitions /XYZ*WCGa_d_0000_0886 36 array def %d, Yw=88,6, Yn=2,50 /XYZ*WCGa_d_0000_0886 [056.43 023.27 000.00 %0 Rd %ANH9_Y10-7N,201003, fehl? Zmin=2.72 069.24 083.34 002.48 %1 Yd 012.81 060.07 002.48 %2 Gd 027.77 066.32 096.48 %3 Cd 014.96 005.25 094.00 %4 Bd 071.39 028.52 094.00 %5 Md 056.43 023.27 000.00 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*sRGB_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*sRGB_d_0000_0886 [036.54 018.84 001.71 %0 Rd %ANH9_Y10-3N,201012 076.99 092.78 013.85 %1 Yd 035.76 071.52 011.91 %2 Gd 053.81 078.74 106.98 %3 Cd 018.05 007.22 095.06 %4 Bd 059.28 028.48 096.99 %5 Md 036.54 018.84 001.71 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*Ostw_d_0000_1000 36 array def %m, Yw=100,00, Yn=0,00 /XYZ*Ostw_d_0000_1000 [062.40 041.75 000.76 %0 Rm 561_405 589 %ANI6_Y10-7N,201012 076.68 082.00 001.27 %1 Ym 520_520c 569 023.83 065.32 015.00 %2 Gm 475_473 528c 032.63 058.24 108.12 %3 Cm 405_561 483 018.36 017.99 107.61 %4 Bm 519c-519 471 071.20 034.67 093.88 %5 Mm 573_475 528c 062.40 041.75 000.76 %6 Rm 561_405 589 %for hue circle 000.01 000.01 000.01 %7 N0 095.05 100.00 108.90 %8 W0 000.01 000.01 000.01 %9 N1 107.29 112.88 122.24 %10 W1 19.31 20.31 22.00 %11 Z1 ] def /XYZ*Offs_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*Offs_d_0000_0886 [029.01 016.24 004.26 %0 Rd %ANJ7_Y11-1N,201012 063.74 072.69 008.27 %1 Yd 008.53 020.05 009.58 %2 Gd 018.74 026.27 069.02 %3 Cd 006.22 004.51 022.65 %4 Bd 032.46 016.95 023.04 %5 Md 029.01 016.24 004.26 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /rgb*36X 36 array def /rgb*36X [1 0 0 %0 1 1 0 %1 0 1 0 %2 0 1 1 %3 0 0 1 %4 1 0 1 %5 1 0 0 %6 0.00 0.00 0.00 %7 N0 1.00 1.00 1.00 %8 W0 0.00 0.00 0.00 %9 N1 1.13 1.13 1.13 %10 W1 0.18 0.18 0.18 %11 Z1 ] def /tex*36X 36 array def /tex*36X [(Rot) (red) (R) %0 (Gelb) (yellow) (Y) %1 (Gr\374n) (green) (G) %2 (Cyan) (cyan) (C) %3 (Blau) (blue) (B) %4 (Magenta) (magenta) (M) %5 (Rot) (red) (R) %6 (Schwarz) (black) (N) %7 (Wei\337) (white) (W) %8 (Schwarz) (black) (N1) %9 (Wei\337) (white) (W1) %10 (Grau) (grey) (Z1) %11 ] def /XYZnref_ISO9241-306 24 array def /XYZnref_ISO9241-306 [ %XYZnref wit contrast step according to ISO 9241-306:2018 00.01 00.01 00.01 %0 0288:1 00.60 00.63 00.69 %1 0144:1 01.20 01.26 01.37 %2 0072:1 02.40 02.52 02.74 %3 0036:1 %standard 04.79 05.04 05.49 %4 0018:1 08.58 10.08 10.98 %5 0009:1 19.16 20.16 21.95 %6 04,5:1 38.32 40.32 43.90 %7 2,25:1 ] def /Ynref_ISO9241-306 8 array def 0 1 7 {/i exch def %i=0,7 /i31 i 3 mul 1 add def Ynref_ISO9241-306 i XYZnref_ISO9241-306 i31 get put } for %i=0,7 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 sISO 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def xchart4 0 eq {%xchart4=0 XYZ*12 i50 XYZ*sRGB_d_0000_0886 i30 get put XYZ*12 i51 XYZ*sRGB_d_0000_0886 i31 get put XYZ*12 i52 XYZ*sRGB_d_0000_0886 i32 get put } if %xchart4=0 xchart4 1 eq {%xchart4=1 XYZ*12 i50 XYZ*WCGa_d_0000_0886 i30 get put XYZ*12 i51 XYZ*WCGa_d_0000_0886 i31 get put XYZ*12 i52 XYZ*WCGa_d_0000_0886 i32 get put } if %xchart4=1 xchart4 2 eq {%xchart4=2 XYZ*12 i50 XYZ*Offs_d_0000_0886 i30 get put XYZ*12 i51 XYZ*Offs_d_0000_0886 i31 get put XYZ*12 i52 XYZ*Offs_d_0000_0886 i32 get put } if %xchart4=2 xchart4 3 eq {%xchart4=3 XYZ*12 i50 XYZ*Ostw_d_0000_1000 i30 get 0.8860 mul put XYZ*12 i51 XYZ*Ostw_d_0000_1000 i31 get 0.8860 mul put XYZ*12 i52 XYZ*Ostw_d_0000_1000 i32 get 0.8860 mul put } if %xchart4=3 /SUM XYZ*12 i50 get XYZ*12 i51 get add XYZ*12 i52 get add def XYZ*12 i53 XYZ*12 i50 get SUM div put XYZ*12 i54 XYZ*12 i51 get SUM div put %will be replaced, if xchart5=1 XYZ*12n i50 XYZ*12 i50 get put XYZ*12n i51 XYZ*12 i51 get put XYZ*12n i52 XYZ*12 i52 get put XYZ*12n i53 XYZ*12 i53 get put XYZ*12n i54 XYZ*12 i54 get put } for %i=0,11 } bind def %END proz_sRGB_rgb*36X_definitions %*************************************************************** /proz_out_text_ANW_definition {%BEG proz_out_text_ANW_definition %loop for maximal 5 colours +N +W 0 1 2 {/j exch def %j=0,2 %three components /i3j xchartl 3 mul j add def rgb*3A j rgb*36X i3j get put tex*3A j tex*36X i3j get put } for %j=0,2 0 1 4 {/j exch def %j=0,4 %three components /i5j xchartl 5 mul j add def XYZ*5A j XYZ*12 i5j get put LCh*5A j LCh*12 i5j get put XYZ*5An j XYZ*12n i5j get put LCh*5An j LCh*12n i5j get put } for %j=0,4 0 1 2 {/i exch def %i=0,2 rgb*3N i rgb*36X i 21 add get put %8x3 tex*3N i tex*36X i 21 add get put rgb*3W i rgb*36X i 24 add get put %9x3 tex*3W i tex*36X i 24 add get put } for %i=0,2 0 1 4 {/i exch def %i=0,4 XYZ*5N i XYZ*12 i 35 add get put %8x5 LCh*5N i LCh*12 i 35 add get put XYZ*5W i XYZ*12 i 40 add get put %9x5 LCh*5W i LCh*12 i 40 add get put XYZ*5Nn i XYZ*12n i 35 add get put %8x5 LCh*5Nn i LCh*12n i 35 add get put XYZ*5Wn i XYZ*12n i 40 add get put %9x5 LCh*5Wn i LCh*12n i 40 add get put } for %i=0,4 /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def /L*Xdn LCh*5An 0 get def /C*Xdn LCh*5An 1 get def /L*Ndn LCh*5Nn 0 get def /L*Wdn LCh*5Wn 0 get def /xfact 2000 100 div def /yfact 2000 100 div def %Titeltext /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xpN xp def /ypN yp 2000 sub def /xpW xp def /ypW yp def /xpX xp 2000 add def /ypX yp 1000 sub def /xNd xp def %Nd /yNd ypN L*Nd yfact mul add def %Nd /xWd xp def %Wd /yWd ypN L*Wd yfact mul add def %Wd /xRd xp C*Xd xfact mul add def %Xd /yRd ypN L*Xd yfact mul add def /tex_LC*hab {xchart8 0 eq {(LC*hab) show} {(L*ChAB) show} ifelse } bind def /tex_LabC*h {xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse } bind def /indd {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /inddk {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /inde {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /indek {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /indab {0 -50 rmoveto xchart8 0 eq {(ab)} {(AB)} ifelse show 0 50 rmoveto} bind def /indabk {0 -50 rmoveto xchart8 0 eq {(ab,)} {(AB,)} ifelse show 0 50 rmoveto} bind def /indabd {0 -50 rmoveto xchart8 0 eq {(ab,d)} {(AB,d)} ifelse show 0 50 rmoveto} bind def /indabe {0 -50 rmoveto xchart8 0 eq {(ab,e)} {(AB,e)} ifelse show 0 50 rmoveto} bind def /indabN {0 -50 rmoveto xchart8 0 eq {(ab,N)} {(AB,N)} ifelse show 0 50 rmoveto} bind def /indabW {0 -50 rmoveto xchart8 0 eq {(ab,W)} {(AB,W)} ifelse show 0 50 rmoveto} bind def } bind def %END proz_out_text_ANW_definition %************************************************************** /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBV -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBV -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TV -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TV -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow1g {/nxx exch def %example nxx=99.1/99.0 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2g {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3g {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /xchartl 0 def %0 for xchart6=0 or 1; 0 to 5 for 6 hue planes /xchart3 0 def %0: LCH, %1: ICE/ice /xchart4 1 def %0: sRGB, 1: WCGa, 3: Offs, 4:Ostw /xchart5 1 def %0: YN=0, 1: YN=0,0 ..2,5 ..40,3 /xchart6 1 def %0: Y10-1N, %1 Y10-2N, %2: Y10-3N to 8N /xchart7 3 def %0 to 7: 8 contrast steps no. 1 to 8 according to ISO 9241-406 /xchart8 0 def %0: LabC*h, 1: L*ABCh /xchart9 0 def %0 for Normalizaton; 0: Y=88,6, 1: Y=18,0 4 /Times-ISOL1 FS 72 86 moveto (BGA21-4N) show 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 1 setgray /xwide 6000 def /ywide 4000 def 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath stroke %produces XYZ*12 and XYZ*12n proz_sRGB_rgb*36X_definitions %uses XYZ*12 proz_XYZnw_D65_xchart7_definition 0 1 11 {/i exch def %i=0,09 /i100 i 5 mul def /i101 i100 1 add def /i102 i100 2 add def /i103 i100 3 add def /i104 i100 4 add def /Xaref XYZ*12 i100 get def /Yaref XYZ*12 i101 get def /Zaref XYZ*12 i102 get def % in any case defined proz_XYZ_LCh* LCh*12 i100 L*ref put LCh*12 i101 C*ref put LCh*12 i102 h*ref put LCh*12 i103 a*ref put LCh*12 i104 b*ref put LCh*12n i100 L*ref put %may be replaced LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put xchart5 1 eq {%BEG xchart5=1 %XYZaref see above %input XYZ*12 %output XYZ*12n, LCh*12n proz_XYZ*12_XYZ*12n %calculates intermediate XYZ*12n /Xaref XYZ*12n i100 get def /Yaref XYZ*12n i101 get def /Zaref XYZ*12n i102 get def %input XYZaref, output LChab*ref proz_XYZ_LCh* LCh*12n i100 L*ref put LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put } if %xchart5=1 } for %i=0,11 %produces for hue circle and achromatic colours %XYZ*(ANW)_(ANW)n, LCh*(ANW)_(ANW)n with 5 components %rgb*(ANW)_(ANW)n, tex*(ANW)_(ANW)n with 3 components proz_out_text_ANW_definition /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Spalten /S1 100 def /S2 1500 def /S3 2300 def /S4 5900 def /S5 7700 def /S6 8500 def /yz 400 def /yu5 7600 def /yu4 7100 def /yu3 5800 def /yu2 5800 def /yu1 5800 def %******************************************************** xchart6 0 eq {%xchart6=0 table /xdXYZ 470 def /xdLab 570 def 50 3750 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) show TBS (, and ) showen ( und ) showde TBIS tex_LabC*h TBV indab TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen} {%xchart8=1 ( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen} ifelse 0 3650 moveto 6000 0 rlineto stroke 50 3400 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 TIS (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show} {(=18.) show} ifelse } if %xchart5=1 /xt1 0000 def /yt1 0000 def xt1 yt1 translate /y01 3250 def /y02 2850 def /S10 020 def %colour /S20 0400 def %rgb /S30 0900 def %XYZ /S40 3300 def %LCh*ab 0 y01 moveto 6000 0 rlineto stroke 0 y02 100 sub moveto 6000 0 rlineto stroke 0 750 moveto 6000 0 rlineto stroke S20 50 sub y01 moveto S20 50 sub 0 lineto stroke S30 50 sub y01 moveto S30 50 sub 0 lineto stroke S40 50 sub y01 moveto S40 50 sub 0 lineto stroke TBV S30 y02 200 add moveto (CIEXYZ) show (\255Daten) showde ( data) showen S40 y02 200 add moveto TBIV xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse TBX indab TBV (\255Daten) showde ( data) showen S20 y02 moveto TBIV (rgb*) show /tex_XYZxy [(X) (Y) (Z) (x) (y)] def 0 1 4 {/k exch def %k=0,4 TBIV S30 k xdXYZ mul add y02 moveto tex_XYZxy k get show TBX S30 k xdXYZ mul add 080 add y02 moveto 0 -50 rmoveto (d) show 0 50 rmoveto } for %k=0,4 xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 120 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV S40 k xdLab mul add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 2500 def /y0d 235 def 0 1 10 {/j exch def %j=0,9 colours without red twice /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /ydd 0 def i 8 gt {/ydd 0.2 y0d mul def} if S10 y03 j y0d mul sub ydd sub moveto tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub ydd sub moveto TBV i 8 le {%i<=7 rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow} {rgb*36X i30 get cvsshow2g} ifelse /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def 0 1 4 {/k exch def %k=0,4 TV S30 k xdXYZ mul add y03 j y0d mul sub ydd sub moveto k 0 eq {XYZ*12n i50 get cvsshow2g} if k 1 eq {XYZ*12n i51 get cvsshow2g} if k 2 eq {XYZ*12n i52 get cvsshow2g} if k 3 eq {XYZ*12n i53 get cvsshow3g} if k 4 eq {XYZ*12n i54 get cvsshow3g} if } for %k=0,4 0 1 4 {/k exch def %k=0,4 k 3 le {TV}{TBV} ifelse S40 k xdLab mul add y03 j y0d mul sub ydd sub moveto k 0 eq {LCh*12n i50 get cvsshow2g} if k 1 eq {LCh*12n i53 get cvsshow2g} if k 2 eq {LCh*12n i54 get cvsshow2g} if k 3 eq {LCh*12n i51 get cvsshow2g} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,10 xt1 neg yt1 neg translate } if %xchart6=0 table %********************************************************* xchart6 1 eq {%xchart6=1 hue circle /xdLab 300 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 2000 4 div def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def /rgb*30Y 84 def %7x12 /rgb*30Y [1.00 0.00 0.00 %0 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 %1 Y 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 0.00 %2 G 0.00 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 %3 C 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 %4 B 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 1.00 %5 M 1.00 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 %6 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 ] def 50 3800 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) showde (, XYZxy) showen TBS (, and ) showen ( und ) showde TBIS xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse TBV 0 -40 rmoveto xchart8 0 eq {(ab)} {(AB)} ifelse show 0 40 rmoveto TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen} {%xchart8=1 ( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen} ifelse 0 3700 moveto 6000 0 rlineto stroke 50 3500 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show}{(=18.) show} ifelse } if %xchart5=1 /y01 3350 def /y02 3050 def /S10 020 def %colour /S20 0270 def %rgb /S40 0650 def %LCh*ab xchart8 0 eq {/S50 2600 def} {/S50 2150 def} ifelse %[X] TBV S40 y02 250 add moveto TBIV xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse TBX indab TBV (\255Daten) showde ( data) showen S20 y02 moveto TBIV (rgb*) show TBX -50 -50 rmoveto (d) show 50 50 rmoveto xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 100 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -50 def} if S40 k xdLab mul add xdLabk add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add xdLabk add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 2800 def /y0d 200 def 0 1 7 {/j exch def %j=0,8 9 colours /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def S10 y03 j y0d mul sub moveto TBV tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub moveto TBV rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow 0 1 4 {/k exch def %k=0,4 /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -50 def} if k 4 lt {TV}{TBV} ifelse S40 k xdLab mul add xdLabk add y03 j y0d mul sub moveto k 0 eq {LCh*12n i50 get cvishow} if k 1 eq {LCh*12n i53 get dup -100 le {-50 0 rmoveto} if cvishow} if k 2 eq {LCh*12n i54 get dup -100 le {-50 0 rmoveto} if cvishow} if k 3 eq {LCh*12n i51 get cvishow} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,7 S10 y03 10.1 y0d mul sub moveto TBIV xchart8 0 eq {(a*) show} {(A) show} ifelse TBV xchart8 0 eq {( = 500 [\050) show} {( = 250 [) show} ifelse TBIV (X) show TBV ( / ) show TBIV (X) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( ]) show S50 y03 10.1 y0d mul sub moveto TBV xchart8 0 eq {([1a]) show} {([1b]) show} ifelse S10 y03 11.2 y0d mul sub moveto TBIV xchart8 0 eq {(b*) show} {(B) show} ifelse TBV xchart8 0 eq {( = 200 [\050) show} {( = 100 [) show} ifelse TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Z) show TBV ( / ) show TBIV (Z) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( ]) show S50 y03 11.2 y0d mul sub moveto TBV xchart8 0 eq {([2a]) show} {([2b]) show} ifelse S10 y03 12.4 y0d mul sub moveto TBIV (C) show TBIV xchart8 0 eq {(*) show} if TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} {0 -40 rmoveto (AB) show 0 40 rmoveto} ifelse TBV ( = [ ) show TBIV xchart8 0 eq {(a*) show} {(A) show} ifelse TBX 0 100 rmoveto (2) show 0 -100 rmoveto TBV ( + ) show TBIV xchart8 0 eq {(b*) show} {(B) show} ifelse TBX 0 100 rmoveto (2) show 0 -100 rmoveto TBV ( ] ) show TBX 0 100 rmoveto (0,5) show 0 -100 rmoveto S50 y03 12.2 y0d mul sub moveto TBV xchart8 0 eq {([3a]) show} {([3b]) show} ifelse S10 y03 13.4 y0d mul sub moveto TBIV (h) show TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} {0 -40 rmoveto (AB) show 0 40 rmoveto} ifelse TBV ( = atan [ ) show TBIV xchart8 0 eq {(b*) show} {(B) show} ifelse TBV ( / ) show TBIV xchart8 0 eq {(a*) show} {(A) show} ifelse TBV ( ]) show S50 y03 13.2 y0d mul sub moveto TBV xchart8 0 eq {([4a]) show} {([4b]) show} ifelse /xt2 2150 def /yt2 -2370 def xt2 yt2 translate 0 setgray xp 1450 sub yp 0750 add moveto /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def xchart8 0 eq {/xfact1 12 def /yfact1 12 def } { % /xfact1 12 mul 2.5 mul def % /yfact1 12 mul 2.5 mul def /xfact1 12 def /yfact1 12 def } ifelse /xp0 xp 0400 add def /yp0 yp 1000 sub def /xpN xp0 1000 sub def /ypN yp0 1000 sub def xp0 1900 sub yp0 0 sub moveto 3600 0 rlineto %horizontal axis & arrow -100 40 rlineto 100 -40 rlineto -100 -40 rlineto stroke xp0 0000 add yp0 1400 sub moveto 0 3100 rlineto %vertical axis & arrow -40 -100 rlineto 40 100 rlineto 40 -100 rlineto stroke xp0 1800 sub yp0 70 sub moveto 0 140 rlineto stroke %marks, horizontal axis xp0 1200 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 add yp0 70 sub moveto 0 140 rlineto stroke xp0 1200 add yp0 70 sub moveto 0 140 rlineto stroke xchart8 0 eq {%xchart8=0 /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } { % /scal_x [(-60) ( -40) ( -20) ( 20) ( 40)] def % /scal_y [( 40) (20) (-20) (-40) ] def /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } ifelse %xchart8=0 TV xp0 2000 sub yp0 220 sub moveto scal_x 0 get show %numbers, horizontal scale xp0 1400 sub yp0 220 sub moveto scal_x 1 get show xp0 0750 sub yp0 220 sub moveto scal_x 2 get show xp0 0400 add yp0 220 sub moveto scal_x 3 get show xp0 1000 add yp0 220 sub moveto scal_x 4 get show xp0 70 sub yp0 1200 add moveto 140 0 rlineto stroke %marks, vertical axis xp0 70 sub yp0 0600 add moveto 140 0 rlineto stroke xp0 70 sub yp0 0600 sub moveto 140 0 rlineto stroke xp0 70 sub yp0 1200 sub moveto 140 0 rlineto stroke xp0 100 add yp0 1150 add moveto scal_y 0 get show %numbers, vertical axis xp0 100 add yp0 0550 add moveto scal_y 1 get show xp0 100 add yp0 0650 sub moveto scal_y 2 get show xp0 100 add yp0 1250 sub moveto scal_y 3 get show TBIK xp0 0080 add yp0 1550 add moveto xchart8 0 eq {(b*) show} {(B) show} ifelse xp0 1550 add yp0 0120 add moveto xchart8 0 eq {(a*) show} {(A) show} ifelse 0.5 setgray xchart5 1 eq {%old hexagon 15 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def xi yi 0040 0 360 arc fill } for %i=0,6 } if %old hexagon 1 setgray 30 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 5 {/i exch def %i=0,5 1 1 3 {/k exch def %k=1,3 0 setgray /i34 i 12 mul k 3 mul add def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi0 xp0 LCh*12n i53 get xfact1 mul add def /yi0 yp0 LCh*12n i54 get yfact1 mul add def /xi1 xp0 LCh*12n i53 5 add get xfact1 mul add def /yi1 yp0 LCh*12n i54 5 add get yfact1 mul add def /xiM xi0 xi1 xi0 sub k 0.25 mul mul add def /yiM yi0 yi1 yi0 sub k 0.25 mul mul add def /r rgb*30Y i34 3 add get def /g rgb*30Y i34 4 add get def /b rgb*30Y i34 5 add get def r g b setrgbcolor xiM yiM 0050 0 360 arc fill } for %k=1,3 } for %i=0,5 newpath /xshift 6 array def /yshift 6 array def % R Y G C B M /xshift [-300 -100 -050 -100 -300 -030] def /yshift [-200 -300 200 -300 -200 -300] def 0 1 5 {/i exch def %i=0,5 0 setgray /i3 i 3 mul def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def xi yi 0100 0 360 arc fill /r rgb*36X i3 0 add get def /g rgb*36X i3 1 add get def /b rgb*36X i3 2 add get def r g b setrgbcolor xi yi 0050 0 360 arc fill newpath 0 setgray xi xshift i get add yi yshift i get add moveto tex*36X i 3 mul 2 add get show newpath } for %i=0,5 20 setlinewidth xt2 neg yt2 neg translate } if %xchart6=1 hue circle %******************************************************* showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 06 MM sub SHSr sub 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 BGA21-5N %%BoundingBox: 70 85 243 206 %START PDFDE011.EPS /pdfmark15 where {pop} {userdict /pdfmark15 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/BGA2/BGA2.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022030112000) /ModDate (D:2022030112000) /DOCINFO pdfmark15 [ /View [ /Fit ] /DOCVIEW pdfmark15 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } 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 /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 /TX {120 /Times-ISOL1 FS} bind def /TV {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIX {120 /TimesI-ISOL1 FS} bind def /TIV {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-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 /TBX {120 /TimesB-ISOL1 FS} bind def /TBV {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-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 /TBIX {120 /TimesBI-ISOL1 FS} bind def /TBIV {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-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 /XD65 95.05 def /YD65 100.00 def /ZD65 108.90 def /xanD65 XD65 XD65 YD65 add ZD65 add div def /yanD65 YD65 XD65 YD65 add ZD65 add div def %******************************************************* %created for 10 colours of hue circle and different lightness /LCh*12 60 array def /XYZ*12 60 array def /LCh*12n 60 array def /XYZ*12n 60 array def %************************************************************** %created for 45 colours of equal chroma and different lightness /rgb*45 500 array def %5x45, NOT 3x45 /LCh*45 500 array def %5x45 /XYZ*45 500 array def %5x45 /rgb*45n 500 array def %5x45, NOT 3x45 /XYZ*45n 500 array def %5x45 /XYZ*45na 500 array def /LCh*45n 500 array def %5x45 /LCh*45na 500 array def %5x45 %************************************************************ %definition of A for xchartl=0 to 5 /XYZ*5A 5 array def /LCh*5A 5 array def /XYZ*5N 5 array def /LCh*5N 5 array def /XYZ*5W 5 array def /LCh*5W 5 array def /XYZ*5An 5 array def /LCh*5An 5 array def /XYZ*5Nn 5 array def /LCh*5Nn 5 array def /XYZ*5Wn 5 array def /LCh*5Wn 5 array def /rgb*3A 3 array def /tex*3A 3 array def /rgb*3N 3 array def /tex*3N 3 array def /rgb*3W 3 array def /tex*3W 3 array def /LCh*5Na 5 array def %a=actual /LCh*5Wa 5 array def /LCh*5Aa 5 array def %******************************************************************* /proz_XYZ_LCh* {%BEG proz_XYZ_LCh* %input XYZaref, output LChab*ref, same name in any case %output LabC*h (xchart8=0) or LABC*h (xchart8=1) /XQ Xaref XD65 div def /YQ Yaref YD65 div def /ZQ Zaref ZD65 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def xchart8 0 eq {%xchart8=0 LabCh*-CIELAB /a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def } if %xchart8=0 LabCh*-CIELAB xchart8 1 eq {%xchart8=1 LabCh*=LABCh* /a*ref XQ YQ sub 250 mul def /b*ref YQ ZQ sub 100 mul def } if %xchart8=1 LabCh*=LABCh* /C*ref a*ref dup mul b*ref dup mul add sqrt def /h*ref b*ref a*ref 0.00001 add atan def C*ref 0.05 le {/h*ref 0 def} if } bind def %END proz_XYZ_LCh* %******************************************************************* /proz_LCh*_XYZ {%BEG proz_LCh*_XYZ %input LCh*ref of LabC*h (xchart8=0) or L*ABCh (xchart8=1) %output XYZref, xyanref xchart8 0 eq {%xchart8=0 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /X* {L*ref 16 add 116 div a*ref 500 div add} bind def /Y* {L*ref 16 add 116 div} bind def /Z* {L*ref 16 add 116 div b*ref 200 div sub} bind def /Xref X* DecodeXYZ* XD65 mul def /Yref Y* DecodeXYZ* YD65 mul def /Zref Z* DecodeXYZ* ZD65 mul def } if %xchart8=0 xchart8 1 eq {%xchart8=1 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /Y* {L*ref 16 add 116 div} bind def /Yref Y* DecodeXYZ* YD65 mul def /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /Xref a*ref 250 div XD65 mul Yref XD65 mul YD65 div add def /Zref Yref ZD65 mul YD65 div b*ref 100 div ZD65 mul sub def } if %xchart8=1 Xref 0.01 lt {/Xref 0.01 def} if Yref 0.01 lt {/Yref 0.01 def} if Zref 0.01 lt {/Zref 0.01 def} if /SUM Xref Yref add Zref add 0.0001 add def /xanref Xref SUM div def /yanref Yref SUM div def } bind def %END proz_LCh*_XYZ %************************************************************************* /proz_XYZnw_D65_xchart7_definition {%BEG proz_XYZnw_D65_xchart7_definition % achromatic colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def /YrN 2.52 def /Xnref YrN XLN001 mul def /Ynref YrN def /Znref YrN ZLN001 mul def /Xtref XYZnref_ISO9241-306 xchart7 3 mul 0 add get def /Ytref XYZnref_ISO9241-306 xchart7 3 mul 1 add get def /Ztref XYZnref_ISO9241-306 xchart7 3 mul 2 add get def /YNil Ytref def /YNil001 YNil 100 div def YNil001 6 29 div 3 exp ge {/FYYn YNil001 0.3333 exp def} {/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse /L*Nil 116 FYYn mul 16 sub def } bind def %END proz_XYZnw_D65_xchart7_definition %************************************************************** /proz_XYZ*12_XYZ*12n {%BEG proz_XYZ*12_XYZ*12n %for 10 colours %input XYZ*12, rgb*10 %output LCh*12n, rgb*10n %only for xchart5=1 and for 10 colours in 7 hue planes and achromatic %change XYZ*12 to XYZ*12n by display reflection according to xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*12n i100 XYZ*12 i100 get Xnor sub Xfac1 mul Xnor add put XYZ*12n i101 XYZ*12 i101 get Ynor sub Yfac1 mul Ynor add put XYZ*12n i102 XYZ*12 i102 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*12n i100 XYZ*12 i100 get Xfac2 mul Xtref add put XYZ*12n i101 XYZ*12 i101 get Yfac2 mul Ytref add put XYZ*12n i102 XYZ*12 i102 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*12_XYZ*12n %**************************************************************** /proz_XYZ*45_XYZ*45n {%BEG proz_XYZ*45_XYZ*45n %for 45 colours %input XYZ*45, rgb*45 %output XYZ*45n, rgb*45n %only for xchart5=1 and for 45 colours in hue plane %change XYZ*45 to XYZ*45n by display reflection according t0 xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*45n i450 XYZ*45 i450 get Xnor sub Xfac1 mul Xnor add put XYZ*45n i451 XYZ*45 i451 get Ynor sub Yfac1 mul Ynor add put XYZ*45n i452 XYZ*45 i452 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*45n i450 XYZ*45 i450 get Xfac2 mul Xtref add put XYZ*45n i451 XYZ*45 i451 get Yfac2 mul Ytref add put XYZ*45n i452 XYZ*45 i452 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*45_XYZ*45n %*********************************************************** %*********************************************************** /proz_sRGB_rgb*36X_definitions {%BEG proz_sRGB_rgb*36X_definitions /XYZ*WCGa_d_0000_0886 36 array def %d, Yw=88,6, Yn=2,50 /XYZ*WCGa_d_0000_0886 [056.43 023.27 000.00 %0 Rd %ANH9_Y10-7N,201003, fehl? Zmin=2.72 069.24 083.34 002.48 %1 Yd 012.81 060.07 002.48 %2 Gd 027.77 066.32 096.48 %3 Cd 014.96 005.25 094.00 %4 Bd 071.39 028.52 094.00 %5 Md 056.43 023.27 000.00 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*sRGB_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*sRGB_d_0000_0886 [036.54 018.84 001.71 %0 Rd %ANH9_Y10-3N,201012 076.99 092.78 013.85 %1 Yd 035.76 071.52 011.91 %2 Gd 053.81 078.74 106.98 %3 Cd 018.05 007.22 095.06 %4 Bd 059.28 028.48 096.99 %5 Md 036.54 018.84 001.71 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*Ostw_d_0000_1000 36 array def %m, Yw=100,00, Yn=0,00 /XYZ*Ostw_d_0000_1000 [062.40 041.75 000.76 %0 Rm 561_405 589 %ANI6_Y10-7N,201012 076.68 082.00 001.27 %1 Ym 520_520c 569 023.83 065.32 015.00 %2 Gm 475_473 528c 032.63 058.24 108.12 %3 Cm 405_561 483 018.36 017.99 107.61 %4 Bm 519c-519 471 071.20 034.67 093.88 %5 Mm 573_475 528c 062.40 041.75 000.76 %6 Rm 561_405 589 %for hue circle 000.01 000.01 000.01 %7 N0 095.05 100.00 108.90 %8 W0 000.01 000.01 000.01 %9 N1 107.29 112.88 122.24 %10 W1 19.31 20.31 22.00 %11 Z1 ] def /XYZ*Offs_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*Offs_d_0000_0886 [029.01 016.24 004.26 %0 Rd %ANJ7_Y11-1N,201012 063.74 072.69 008.27 %1 Yd 008.53 020.05 009.58 %2 Gd 018.74 026.27 069.02 %3 Cd 006.22 004.51 022.65 %4 Bd 032.46 016.95 023.04 %5 Md 029.01 016.24 004.26 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /rgb*36X 36 array def /rgb*36X [1 0 0 %0 1 1 0 %1 0 1 0 %2 0 1 1 %3 0 0 1 %4 1 0 1 %5 1 0 0 %6 0.00 0.00 0.00 %7 N0 1.00 1.00 1.00 %8 W0 0.00 0.00 0.00 %9 N1 1.13 1.13 1.13 %10 W1 0.18 0.18 0.18 %11 Z1 ] def /tex*36X 36 array def /tex*36X [(Rot) (red) (R) %0 (Gelb) (yellow) (Y) %1 (Gr\374n) (green) (G) %2 (Cyan) (cyan) (C) %3 (Blau) (blue) (B) %4 (Magenta) (magenta) (M) %5 (Rot) (red) (R) %6 (Schwarz) (black) (N) %7 (Wei\337) (white) (W) %8 (Schwarz) (black) (N1) %9 (Wei\337) (white) (W1) %10 (Grau) (grey) (Z1) %11 ] def /XYZnref_ISO9241-306 24 array def /XYZnref_ISO9241-306 [ %XYZnref wit contrast step according to ISO 9241-306:2018 00.01 00.01 00.01 %0 0288:1 00.60 00.63 00.69 %1 0144:1 01.20 01.26 01.37 %2 0072:1 02.40 02.52 02.74 %3 0036:1 %standard 04.79 05.04 05.49 %4 0018:1 08.58 10.08 10.98 %5 0009:1 19.16 20.16 21.95 %6 04,5:1 38.32 40.32 43.90 %7 2,25:1 ] def /Ynref_ISO9241-306 8 array def 0 1 7 {/i exch def %i=0,7 /i31 i 3 mul 1 add def Ynref_ISO9241-306 i XYZnref_ISO9241-306 i31 get put } for %i=0,7 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 sISO 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def xchart4 0 eq {%xchart4=0 XYZ*12 i50 XYZ*sRGB_d_0000_0886 i30 get put XYZ*12 i51 XYZ*sRGB_d_0000_0886 i31 get put XYZ*12 i52 XYZ*sRGB_d_0000_0886 i32 get put } if %xchart4=0 xchart4 1 eq {%xchart4=1 XYZ*12 i50 XYZ*WCGa_d_0000_0886 i30 get put XYZ*12 i51 XYZ*WCGa_d_0000_0886 i31 get put XYZ*12 i52 XYZ*WCGa_d_0000_0886 i32 get put } if %xchart4=1 xchart4 2 eq {%xchart4=2 XYZ*12 i50 XYZ*Offs_d_0000_0886 i30 get put XYZ*12 i51 XYZ*Offs_d_0000_0886 i31 get put XYZ*12 i52 XYZ*Offs_d_0000_0886 i32 get put } if %xchart4=2 xchart4 3 eq {%xchart4=3 XYZ*12 i50 XYZ*Ostw_d_0000_1000 i30 get 0.8860 mul put XYZ*12 i51 XYZ*Ostw_d_0000_1000 i31 get 0.8860 mul put XYZ*12 i52 XYZ*Ostw_d_0000_1000 i32 get 0.8860 mul put } if %xchart4=3 /SUM XYZ*12 i50 get XYZ*12 i51 get add XYZ*12 i52 get add def XYZ*12 i53 XYZ*12 i50 get SUM div put XYZ*12 i54 XYZ*12 i51 get SUM div put %will be replaced, if xchart5=1 XYZ*12n i50 XYZ*12 i50 get put XYZ*12n i51 XYZ*12 i51 get put XYZ*12n i52 XYZ*12 i52 get put XYZ*12n i53 XYZ*12 i53 get put XYZ*12n i54 XYZ*12 i54 get put } for %i=0,11 } bind def %END proz_sRGB_rgb*36X_definitions %*************************************************************** /proz_out_text_ANW_definition {%BEG proz_out_text_ANW_definition %loop for maximal 5 colours +N +W 0 1 2 {/j exch def %j=0,2 %three components /i3j xchartl 3 mul j add def rgb*3A j rgb*36X i3j get put tex*3A j tex*36X i3j get put } for %j=0,2 0 1 4 {/j exch def %j=0,4 %three components /i5j xchartl 5 mul j add def XYZ*5A j XYZ*12 i5j get put LCh*5A j LCh*12 i5j get put XYZ*5An j XYZ*12n i5j get put LCh*5An j LCh*12n i5j get put } for %j=0,4 0 1 2 {/i exch def %i=0,2 rgb*3N i rgb*36X i 21 add get put %8x3 tex*3N i tex*36X i 21 add get put rgb*3W i rgb*36X i 24 add get put %9x3 tex*3W i tex*36X i 24 add get put } for %i=0,2 0 1 4 {/i exch def %i=0,4 XYZ*5N i XYZ*12 i 35 add get put %8x5 LCh*5N i LCh*12 i 35 add get put XYZ*5W i XYZ*12 i 40 add get put %9x5 LCh*5W i LCh*12 i 40 add get put XYZ*5Nn i XYZ*12n i 35 add get put %8x5 LCh*5Nn i LCh*12n i 35 add get put XYZ*5Wn i XYZ*12n i 40 add get put %9x5 LCh*5Wn i LCh*12n i 40 add get put } for %i=0,4 /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def /L*Xdn LCh*5An 0 get def /C*Xdn LCh*5An 1 get def /L*Ndn LCh*5Nn 0 get def /L*Wdn LCh*5Wn 0 get def /xfact 2000 100 div def /yfact 2000 100 div def %Titeltext /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xpN xp def /ypN yp 2000 sub def /xpW xp def /ypW yp def /xpX xp 2000 add def /ypX yp 1000 sub def /xNd xp def %Nd /yNd ypN L*Nd yfact mul add def %Nd /xWd xp def %Wd /yWd ypN L*Wd yfact mul add def %Wd /xRd xp C*Xd xfact mul add def %Xd /yRd ypN L*Xd yfact mul add def /tex_LC*hab {xchart8 0 eq {(LC*hab) show} {(L*ChAB) show} ifelse } bind def /tex_LabC*h {xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse } bind def /indd {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /inddk {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /inde {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /indek {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /indab {0 -50 rmoveto xchart8 0 eq {(ab)} {(AB)} ifelse show 0 50 rmoveto} bind def /indabk {0 -50 rmoveto xchart8 0 eq {(ab,)} {(AB,)} ifelse show 0 50 rmoveto} bind def /indabd {0 -50 rmoveto xchart8 0 eq {(ab,d)} {(AB,d)} ifelse show 0 50 rmoveto} bind def /indabe {0 -50 rmoveto xchart8 0 eq {(ab,e)} {(AB,e)} ifelse show 0 50 rmoveto} bind def /indabN {0 -50 rmoveto xchart8 0 eq {(ab,N)} {(AB,N)} ifelse show 0 50 rmoveto} bind def /indabW {0 -50 rmoveto xchart8 0 eq {(ab,W)} {(AB,W)} ifelse show 0 50 rmoveto} bind def } bind def %END proz_out_text_ANW_definition %************************************************************** /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBV -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBV -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TV -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TV -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow1g {/nxx exch def %example nxx=99.1/99.0 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2g {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3g {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /xchartl 0 def %0 for xchart6=0 or 1; 0 to 5 for 6 hue planes /xchart3 0 def %0: LCH, %1: ICE/ice /xchart4 0 def %0: sRGB, 1: WCGa, 3: Offs, 4:Ostw /xchart5 1 def %0: YN=0, 1: YN=0,0 ..2,5 ..40,3 /xchart6 1 def %0: Y10-1N, %1 Y10-2N, %2: Y10-3N to 8N /xchart7 7 def %0 to 7: 8 contrast steps no. 1 to 8 according to ISO 9241-406 /xchart8 0 def %0: LabC*h, 1: L*ABCh /xchart9 0 def %0 for Normalizaton; 0: Y=88,6, 1: Y=18,0 4 /Times-ISOL1 FS 72 86 moveto (BGA21-5N) show 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 1 setgray /xwide 6000 def /ywide 4000 def 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath stroke %produces XYZ*12 and XYZ*12n proz_sRGB_rgb*36X_definitions %uses XYZ*12 proz_XYZnw_D65_xchart7_definition 0 1 11 {/i exch def %i=0,09 /i100 i 5 mul def /i101 i100 1 add def /i102 i100 2 add def /i103 i100 3 add def /i104 i100 4 add def /Xaref XYZ*12 i100 get def /Yaref XYZ*12 i101 get def /Zaref XYZ*12 i102 get def % in any case defined proz_XYZ_LCh* LCh*12 i100 L*ref put LCh*12 i101 C*ref put LCh*12 i102 h*ref put LCh*12 i103 a*ref put LCh*12 i104 b*ref put LCh*12n i100 L*ref put %may be replaced LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put xchart5 1 eq {%BEG xchart5=1 %XYZaref see above %input XYZ*12 %output XYZ*12n, LCh*12n proz_XYZ*12_XYZ*12n %calculates intermediate XYZ*12n /Xaref XYZ*12n i100 get def /Yaref XYZ*12n i101 get def /Zaref XYZ*12n i102 get def %input XYZaref, output LChab*ref proz_XYZ_LCh* LCh*12n i100 L*ref put LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put } if %xchart5=1 } for %i=0,11 %produces for hue circle and achromatic colours %XYZ*(ANW)_(ANW)n, LCh*(ANW)_(ANW)n with 5 components %rgb*(ANW)_(ANW)n, tex*(ANW)_(ANW)n with 3 components proz_out_text_ANW_definition /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Spalten /S1 100 def /S2 1500 def /S3 2300 def /S4 5900 def /S5 7700 def /S6 8500 def /yz 400 def /yu5 7600 def /yu4 7100 def /yu3 5800 def /yu2 5800 def /yu1 5800 def %******************************************************** xchart6 0 eq {%xchart6=0 table /xdXYZ 470 def /xdLab 570 def 50 3750 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) show TBS (, and ) showen ( und ) showde TBIS tex_LabC*h TBV indab TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen} {%xchart8=1 ( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen} ifelse 0 3650 moveto 6000 0 rlineto stroke 50 3400 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 TIS (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show} {(=18.) show} ifelse } if %xchart5=1 /xt1 0000 def /yt1 0000 def xt1 yt1 translate /y01 3250 def /y02 2850 def /S10 020 def %colour /S20 0400 def %rgb /S30 0900 def %XYZ /S40 3300 def %LCh*ab 0 y01 moveto 6000 0 rlineto stroke 0 y02 100 sub moveto 6000 0 rlineto stroke 0 750 moveto 6000 0 rlineto stroke S20 50 sub y01 moveto S20 50 sub 0 lineto stroke S30 50 sub y01 moveto S30 50 sub 0 lineto stroke S40 50 sub y01 moveto S40 50 sub 0 lineto stroke TBV S30 y02 200 add moveto (CIEXYZ) show (\255Daten) showde ( data) showen S40 y02 200 add moveto TBIV xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse TBX indab TBV (\255Daten) showde ( data) showen S20 y02 moveto TBIV (rgb*) show /tex_XYZxy [(X) (Y) (Z) (x) (y)] def 0 1 4 {/k exch def %k=0,4 TBIV S30 k xdXYZ mul add y02 moveto tex_XYZxy k get show TBX S30 k xdXYZ mul add 080 add y02 moveto 0 -50 rmoveto (d) show 0 50 rmoveto } for %k=0,4 xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 120 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV S40 k xdLab mul add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 2500 def /y0d 235 def 0 1 10 {/j exch def %j=0,9 colours without red twice /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /ydd 0 def i 8 gt {/ydd 0.2 y0d mul def} if S10 y03 j y0d mul sub ydd sub moveto tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub ydd sub moveto TBV i 8 le {%i<=7 rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow} {rgb*36X i30 get cvsshow2g} ifelse /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def 0 1 4 {/k exch def %k=0,4 TV S30 k xdXYZ mul add y03 j y0d mul sub ydd sub moveto k 0 eq {XYZ*12n i50 get cvsshow2g} if k 1 eq {XYZ*12n i51 get cvsshow2g} if k 2 eq {XYZ*12n i52 get cvsshow2g} if k 3 eq {XYZ*12n i53 get cvsshow3g} if k 4 eq {XYZ*12n i54 get cvsshow3g} if } for %k=0,4 0 1 4 {/k exch def %k=0,4 k 3 le {TV}{TBV} ifelse S40 k xdLab mul add y03 j y0d mul sub ydd sub moveto k 0 eq {LCh*12n i50 get cvsshow2g} if k 1 eq {LCh*12n i53 get cvsshow2g} if k 2 eq {LCh*12n i54 get cvsshow2g} if k 3 eq {LCh*12n i51 get cvsshow2g} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,10 xt1 neg yt1 neg translate } if %xchart6=0 table %********************************************************* xchart6 1 eq {%xchart6=1 hue circle /xdLab 300 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 2000 4 div def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def /rgb*30Y 84 def %7x12 /rgb*30Y [1.00 0.00 0.00 %0 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 %1 Y 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 0.00 %2 G 0.00 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 %3 C 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 %4 B 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 1.00 %5 M 1.00 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 %6 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 ] def 50 3800 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) showde (, XYZxy) showen TBS (, and ) showen ( und ) showde TBIS xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse TBV 0 -40 rmoveto xchart8 0 eq {(ab)} {(AB)} ifelse show 0 40 rmoveto TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen} {%xchart8=1 ( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen} ifelse 0 3700 moveto 6000 0 rlineto stroke 50 3500 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show}{(=18.) show} ifelse } if %xchart5=1 /y01 3350 def /y02 3050 def /S10 020 def %colour /S20 0270 def %rgb /S40 0650 def %LCh*ab xchart8 0 eq {/S50 2600 def} {/S50 2150 def} ifelse %[X] TBV S40 y02 250 add moveto TBIV xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse TBX indab TBV (\255Daten) showde ( data) showen S20 y02 moveto TBIV (rgb*) show TBX -50 -50 rmoveto (d) show 50 50 rmoveto xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 100 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -50 def} if S40 k xdLab mul add xdLabk add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add xdLabk add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 2800 def /y0d 200 def 0 1 7 {/j exch def %j=0,8 9 colours /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def S10 y03 j y0d mul sub moveto TBV tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub moveto TBV rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow 0 1 4 {/k exch def %k=0,4 /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -50 def} if k 4 lt {TV}{TBV} ifelse S40 k xdLab mul add xdLabk add y03 j y0d mul sub moveto k 0 eq {LCh*12n i50 get cvishow} if k 1 eq {LCh*12n i53 get dup -100 le {-50 0 rmoveto} if cvishow} if k 2 eq {LCh*12n i54 get dup -100 le {-50 0 rmoveto} if cvishow} if k 3 eq {LCh*12n i51 get cvishow} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,7 S10 y03 10.1 y0d mul sub moveto TBIV xchart8 0 eq {(a*) show} {(A) show} ifelse TBV xchart8 0 eq {( = 500 [\050) show} {( = 250 [) show} ifelse TBIV (X) show TBV ( / ) show TBIV (X) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( ]) show S50 y03 10.1 y0d mul sub moveto TBV xchart8 0 eq {([1a]) show} {([1b]) show} ifelse S10 y03 11.2 y0d mul sub moveto TBIV xchart8 0 eq {(b*) show} {(B) show} ifelse TBV xchart8 0 eq {( = 200 [\050) show} {( = 100 [) show} ifelse TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Z) show TBV ( / ) show TBIV (Z) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( ]) show S50 y03 11.2 y0d mul sub moveto TBV xchart8 0 eq {([2a]) show} {([2b]) show} ifelse S10 y03 12.4 y0d mul sub moveto TBIV (C) show TBIV xchart8 0 eq {(*) show} if TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} {0 -40 rmoveto (AB) show 0 40 rmoveto} ifelse TBV ( = [ ) show TBIV xchart8 0 eq {(a*) show} {(A) show} ifelse TBX 0 100 rmoveto (2) show 0 -100 rmoveto TBV ( + ) show TBIV xchart8 0 eq {(b*) show} {(B) show} ifelse TBX 0 100 rmoveto (2) show 0 -100 rmoveto TBV ( ] ) show TBX 0 100 rmoveto (0,5) show 0 -100 rmoveto S50 y03 12.2 y0d mul sub moveto TBV xchart8 0 eq {([3a]) show} {([3b]) show} ifelse S10 y03 13.4 y0d mul sub moveto TBIV (h) show TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} {0 -40 rmoveto (AB) show 0 40 rmoveto} ifelse TBV ( = atan [ ) show TBIV xchart8 0 eq {(b*) show} {(B) show} ifelse TBV ( / ) show TBIV xchart8 0 eq {(a*) show} {(A) show} ifelse TBV ( ]) show S50 y03 13.2 y0d mul sub moveto TBV xchart8 0 eq {([4a]) show} {([4b]) show} ifelse /xt2 2150 def /yt2 -2370 def xt2 yt2 translate 0 setgray xp 1450 sub yp 0750 add moveto /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def xchart8 0 eq {/xfact1 12 def /yfact1 12 def } { % /xfact1 12 mul 2.5 mul def % /yfact1 12 mul 2.5 mul def /xfact1 12 def /yfact1 12 def } ifelse /xp0 xp 0400 add def /yp0 yp 1000 sub def /xpN xp0 1000 sub def /ypN yp0 1000 sub def xp0 1900 sub yp0 0 sub moveto 3600 0 rlineto %horizontal axis & arrow -100 40 rlineto 100 -40 rlineto -100 -40 rlineto stroke xp0 0000 add yp0 1400 sub moveto 0 3100 rlineto %vertical axis & arrow -40 -100 rlineto 40 100 rlineto 40 -100 rlineto stroke xp0 1800 sub yp0 70 sub moveto 0 140 rlineto stroke %marks, horizontal axis xp0 1200 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 add yp0 70 sub moveto 0 140 rlineto stroke xp0 1200 add yp0 70 sub moveto 0 140 rlineto stroke xchart8 0 eq {%xchart8=0 /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } { % /scal_x [(-60) ( -40) ( -20) ( 20) ( 40)] def % /scal_y [( 40) (20) (-20) (-40) ] def /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } ifelse %xchart8=0 TV xp0 2000 sub yp0 220 sub moveto scal_x 0 get show %numbers, horizontal scale xp0 1400 sub yp0 220 sub moveto scal_x 1 get show xp0 0750 sub yp0 220 sub moveto scal_x 2 get show xp0 0400 add yp0 220 sub moveto scal_x 3 get show xp0 1000 add yp0 220 sub moveto scal_x 4 get show xp0 70 sub yp0 1200 add moveto 140 0 rlineto stroke %marks, vertical axis xp0 70 sub yp0 0600 add moveto 140 0 rlineto stroke xp0 70 sub yp0 0600 sub moveto 140 0 rlineto stroke xp0 70 sub yp0 1200 sub moveto 140 0 rlineto stroke xp0 100 add yp0 1150 add moveto scal_y 0 get show %numbers, vertical axis xp0 100 add yp0 0550 add moveto scal_y 1 get show xp0 100 add yp0 0650 sub moveto scal_y 2 get show xp0 100 add yp0 1250 sub moveto scal_y 3 get show TBIK xp0 0080 add yp0 1550 add moveto xchart8 0 eq {(b*) show} {(B) show} ifelse xp0 1550 add yp0 0120 add moveto xchart8 0 eq {(a*) show} {(A) show} ifelse 0.5 setgray xchart5 1 eq {%old hexagon 15 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def xi yi 0040 0 360 arc fill } for %i=0,6 } if %old hexagon 1 setgray 30 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 5 {/i exch def %i=0,5 1 1 3 {/k exch def %k=1,3 0 setgray /i34 i 12 mul k 3 mul add def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi0 xp0 LCh*12n i53 get xfact1 mul add def /yi0 yp0 LCh*12n i54 get yfact1 mul add def /xi1 xp0 LCh*12n i53 5 add get xfact1 mul add def /yi1 yp0 LCh*12n i54 5 add get yfact1 mul add def /xiM xi0 xi1 xi0 sub k 0.25 mul mul add def /yiM yi0 yi1 yi0 sub k 0.25 mul mul add def /r rgb*30Y i34 3 add get def /g rgb*30Y i34 4 add get def /b rgb*30Y i34 5 add get def r g b setrgbcolor xiM yiM 0050 0 360 arc fill } for %k=1,3 } for %i=0,5 newpath /xshift 6 array def /yshift 6 array def % R Y G C B M /xshift [-300 -100 -050 -100 -300 -030] def /yshift [-200 -300 200 -300 -200 -300] def 0 1 5 {/i exch def %i=0,5 0 setgray /i3 i 3 mul def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def xi yi 0100 0 360 arc fill /r rgb*36X i3 0 add get def /g rgb*36X i3 1 add get def /b rgb*36X i3 2 add get def r g b setrgbcolor xi yi 0050 0 360 arc fill newpath 0 setgray xi xshift i get add yi yshift i get add moveto tex*36X i 3 mul 2 add get show newpath } for %i=0,5 20 setlinewidth xt2 neg yt2 neg translate } if %xchart6=1 hue circle %******************************************************* showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 06 MM sub SHAr add 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 BGA21-6N %%BoundingBox: 70 85 243 206 %START PDFDE011.EPS /pdfmark16 where {pop} {userdict /pdfmark16 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/BGA2/BGA2.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022030112000) /ModDate (D:2022030112000) /DOCINFO pdfmark16 [ /View [ /Fit ] /DOCVIEW pdfmark16 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } 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 /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 /TX {120 /Times-ISOL1 FS} bind def /TV {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIX {120 /TimesI-ISOL1 FS} bind def /TIV {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-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 /TBX {120 /TimesB-ISOL1 FS} bind def /TBV {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-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 /TBIX {120 /TimesBI-ISOL1 FS} bind def /TBIV {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-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 /XD65 95.05 def /YD65 100.00 def /ZD65 108.90 def /xanD65 XD65 XD65 YD65 add ZD65 add div def /yanD65 YD65 XD65 YD65 add ZD65 add div def %******************************************************* %created for 10 colours of hue circle and different lightness /LCh*12 60 array def /XYZ*12 60 array def /LCh*12n 60 array def /XYZ*12n 60 array def %************************************************************** %created for 45 colours of equal chroma and different lightness /rgb*45 500 array def %5x45, NOT 3x45 /LCh*45 500 array def %5x45 /XYZ*45 500 array def %5x45 /rgb*45n 500 array def %5x45, NOT 3x45 /XYZ*45n 500 array def %5x45 /XYZ*45na 500 array def /LCh*45n 500 array def %5x45 /LCh*45na 500 array def %5x45 %************************************************************ %definition of A for xchartl=0 to 5 /XYZ*5A 5 array def /LCh*5A 5 array def /XYZ*5N 5 array def /LCh*5N 5 array def /XYZ*5W 5 array def /LCh*5W 5 array def /XYZ*5An 5 array def /LCh*5An 5 array def /XYZ*5Nn 5 array def /LCh*5Nn 5 array def /XYZ*5Wn 5 array def /LCh*5Wn 5 array def /rgb*3A 3 array def /tex*3A 3 array def /rgb*3N 3 array def /tex*3N 3 array def /rgb*3W 3 array def /tex*3W 3 array def /LCh*5Na 5 array def %a=actual /LCh*5Wa 5 array def /LCh*5Aa 5 array def %******************************************************************* /proz_XYZ_LCh* {%BEG proz_XYZ_LCh* %input XYZaref, output LChab*ref, same name in any case %output LabC*h (xchart8=0) or LABC*h (xchart8=1) /XQ Xaref XD65 div def /YQ Yaref YD65 div def /ZQ Zaref ZD65 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def xchart8 0 eq {%xchart8=0 LabCh*-CIELAB /a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def } if %xchart8=0 LabCh*-CIELAB xchart8 1 eq {%xchart8=1 LabCh*=LABCh* /a*ref XQ YQ sub 250 mul def /b*ref YQ ZQ sub 100 mul def } if %xchart8=1 LabCh*=LABCh* /C*ref a*ref dup mul b*ref dup mul add sqrt def /h*ref b*ref a*ref 0.00001 add atan def C*ref 0.05 le {/h*ref 0 def} if } bind def %END proz_XYZ_LCh* %******************************************************************* /proz_LCh*_XYZ {%BEG proz_LCh*_XYZ %input LCh*ref of LabC*h (xchart8=0) or L*ABCh (xchart8=1) %output XYZref, xyanref xchart8 0 eq {%xchart8=0 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /X* {L*ref 16 add 116 div a*ref 500 div add} bind def /Y* {L*ref 16 add 116 div} bind def /Z* {L*ref 16 add 116 div b*ref 200 div sub} bind def /Xref X* DecodeXYZ* XD65 mul def /Yref Y* DecodeXYZ* YD65 mul def /Zref Z* DecodeXYZ* ZD65 mul def } if %xchart8=0 xchart8 1 eq {%xchart8=1 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /Y* {L*ref 16 add 116 div} bind def /Yref Y* DecodeXYZ* YD65 mul def /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /Xref a*ref 250 div XD65 mul Yref XD65 mul YD65 div add def /Zref Yref ZD65 mul YD65 div b*ref 100 div ZD65 mul sub def } if %xchart8=1 Xref 0.01 lt {/Xref 0.01 def} if Yref 0.01 lt {/Yref 0.01 def} if Zref 0.01 lt {/Zref 0.01 def} if /SUM Xref Yref add Zref add 0.0001 add def /xanref Xref SUM div def /yanref Yref SUM div def } bind def %END proz_LCh*_XYZ %************************************************************************* /proz_XYZnw_D65_xchart7_definition {%BEG proz_XYZnw_D65_xchart7_definition % achromatic colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def /YrN 2.52 def /Xnref YrN XLN001 mul def /Ynref YrN def /Znref YrN ZLN001 mul def /Xtref XYZnref_ISO9241-306 xchart7 3 mul 0 add get def /Ytref XYZnref_ISO9241-306 xchart7 3 mul 1 add get def /Ztref XYZnref_ISO9241-306 xchart7 3 mul 2 add get def /YNil Ytref def /YNil001 YNil 100 div def YNil001 6 29 div 3 exp ge {/FYYn YNil001 0.3333 exp def} {/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse /L*Nil 116 FYYn mul 16 sub def } bind def %END proz_XYZnw_D65_xchart7_definition %************************************************************** /proz_XYZ*12_XYZ*12n {%BEG proz_XYZ*12_XYZ*12n %for 10 colours %input XYZ*12, rgb*10 %output LCh*12n, rgb*10n %only for xchart5=1 and for 10 colours in 7 hue planes and achromatic %change XYZ*12 to XYZ*12n by display reflection according to xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*12n i100 XYZ*12 i100 get Xnor sub Xfac1 mul Xnor add put XYZ*12n i101 XYZ*12 i101 get Ynor sub Yfac1 mul Ynor add put XYZ*12n i102 XYZ*12 i102 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*12n i100 XYZ*12 i100 get Xfac2 mul Xtref add put XYZ*12n i101 XYZ*12 i101 get Yfac2 mul Ytref add put XYZ*12n i102 XYZ*12 i102 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*12_XYZ*12n %**************************************************************** /proz_XYZ*45_XYZ*45n {%BEG proz_XYZ*45_XYZ*45n %for 45 colours %input XYZ*45, rgb*45 %output XYZ*45n, rgb*45n %only for xchart5=1 and for 45 colours in hue plane %change XYZ*45 to XYZ*45n by display reflection according t0 xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*45n i450 XYZ*45 i450 get Xnor sub Xfac1 mul Xnor add put XYZ*45n i451 XYZ*45 i451 get Ynor sub Yfac1 mul Ynor add put XYZ*45n i452 XYZ*45 i452 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*45n i450 XYZ*45 i450 get Xfac2 mul Xtref add put XYZ*45n i451 XYZ*45 i451 get Yfac2 mul Ytref add put XYZ*45n i452 XYZ*45 i452 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*45_XYZ*45n %*********************************************************** %*********************************************************** /proz_sRGB_rgb*36X_definitions {%BEG proz_sRGB_rgb*36X_definitions /XYZ*WCGa_d_0000_0886 36 array def %d, Yw=88,6, Yn=2,50 /XYZ*WCGa_d_0000_0886 [056.43 023.27 000.00 %0 Rd %ANH9_Y10-7N,201003, fehl? Zmin=2.72 069.24 083.34 002.48 %1 Yd 012.81 060.07 002.48 %2 Gd 027.77 066.32 096.48 %3 Cd 014.96 005.25 094.00 %4 Bd 071.39 028.52 094.00 %5 Md 056.43 023.27 000.00 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*sRGB_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*sRGB_d_0000_0886 [036.54 018.84 001.71 %0 Rd %ANH9_Y10-3N,201012 076.99 092.78 013.85 %1 Yd 035.76 071.52 011.91 %2 Gd 053.81 078.74 106.98 %3 Cd 018.05 007.22 095.06 %4 Bd 059.28 028.48 096.99 %5 Md 036.54 018.84 001.71 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*Ostw_d_0000_1000 36 array def %m, Yw=100,00, Yn=0,00 /XYZ*Ostw_d_0000_1000 [062.40 041.75 000.76 %0 Rm 561_405 589 %ANI6_Y10-7N,201012 076.68 082.00 001.27 %1 Ym 520_520c 569 023.83 065.32 015.00 %2 Gm 475_473 528c 032.63 058.24 108.12 %3 Cm 405_561 483 018.36 017.99 107.61 %4 Bm 519c-519 471 071.20 034.67 093.88 %5 Mm 573_475 528c 062.40 041.75 000.76 %6 Rm 561_405 589 %for hue circle 000.01 000.01 000.01 %7 N0 095.05 100.00 108.90 %8 W0 000.01 000.01 000.01 %9 N1 107.29 112.88 122.24 %10 W1 19.31 20.31 22.00 %11 Z1 ] def /XYZ*Offs_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*Offs_d_0000_0886 [029.01 016.24 004.26 %0 Rd %ANJ7_Y11-1N,201012 063.74 072.69 008.27 %1 Yd 008.53 020.05 009.58 %2 Gd 018.74 026.27 069.02 %3 Cd 006.22 004.51 022.65 %4 Bd 032.46 016.95 023.04 %5 Md 029.01 016.24 004.26 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /rgb*36X 36 array def /rgb*36X [1 0 0 %0 1 1 0 %1 0 1 0 %2 0 1 1 %3 0 0 1 %4 1 0 1 %5 1 0 0 %6 0.00 0.00 0.00 %7 N0 1.00 1.00 1.00 %8 W0 0.00 0.00 0.00 %9 N1 1.13 1.13 1.13 %10 W1 0.18 0.18 0.18 %11 Z1 ] def /tex*36X 36 array def /tex*36X [(Rot) (red) (R) %0 (Gelb) (yellow) (Y) %1 (Gr\374n) (green) (G) %2 (Cyan) (cyan) (C) %3 (Blau) (blue) (B) %4 (Magenta) (magenta) (M) %5 (Rot) (red) (R) %6 (Schwarz) (black) (N) %7 (Wei\337) (white) (W) %8 (Schwarz) (black) (N1) %9 (Wei\337) (white) (W1) %10 (Grau) (grey) (Z1) %11 ] def /XYZnref_ISO9241-306 24 array def /XYZnref_ISO9241-306 [ %XYZnref wit contrast step according to ISO 9241-306:2018 00.01 00.01 00.01 %0 0288:1 00.60 00.63 00.69 %1 0144:1 01.20 01.26 01.37 %2 0072:1 02.40 02.52 02.74 %3 0036:1 %standard 04.79 05.04 05.49 %4 0018:1 08.58 10.08 10.98 %5 0009:1 19.16 20.16 21.95 %6 04,5:1 38.32 40.32 43.90 %7 2,25:1 ] def /Ynref_ISO9241-306 8 array def 0 1 7 {/i exch def %i=0,7 /i31 i 3 mul 1 add def Ynref_ISO9241-306 i XYZnref_ISO9241-306 i31 get put } for %i=0,7 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 sISO 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def xchart4 0 eq {%xchart4=0 XYZ*12 i50 XYZ*sRGB_d_0000_0886 i30 get put XYZ*12 i51 XYZ*sRGB_d_0000_0886 i31 get put XYZ*12 i52 XYZ*sRGB_d_0000_0886 i32 get put } if %xchart4=0 xchart4 1 eq {%xchart4=1 XYZ*12 i50 XYZ*WCGa_d_0000_0886 i30 get put XYZ*12 i51 XYZ*WCGa_d_0000_0886 i31 get put XYZ*12 i52 XYZ*WCGa_d_0000_0886 i32 get put } if %xchart4=1 xchart4 2 eq {%xchart4=2 XYZ*12 i50 XYZ*Offs_d_0000_0886 i30 get put XYZ*12 i51 XYZ*Offs_d_0000_0886 i31 get put XYZ*12 i52 XYZ*Offs_d_0000_0886 i32 get put } if %xchart4=2 xchart4 3 eq {%xchart4=3 XYZ*12 i50 XYZ*Ostw_d_0000_1000 i30 get 0.8860 mul put XYZ*12 i51 XYZ*Ostw_d_0000_1000 i31 get 0.8860 mul put XYZ*12 i52 XYZ*Ostw_d_0000_1000 i32 get 0.8860 mul put } if %xchart4=3 /SUM XYZ*12 i50 get XYZ*12 i51 get add XYZ*12 i52 get add def XYZ*12 i53 XYZ*12 i50 get SUM div put XYZ*12 i54 XYZ*12 i51 get SUM div put %will be replaced, if xchart5=1 XYZ*12n i50 XYZ*12 i50 get put XYZ*12n i51 XYZ*12 i51 get put XYZ*12n i52 XYZ*12 i52 get put XYZ*12n i53 XYZ*12 i53 get put XYZ*12n i54 XYZ*12 i54 get put } for %i=0,11 } bind def %END proz_sRGB_rgb*36X_definitions %*************************************************************** /proz_out_text_ANW_definition {%BEG proz_out_text_ANW_definition %loop for maximal 5 colours +N +W 0 1 2 {/j exch def %j=0,2 %three components /i3j xchartl 3 mul j add def rgb*3A j rgb*36X i3j get put tex*3A j tex*36X i3j get put } for %j=0,2 0 1 4 {/j exch def %j=0,4 %three components /i5j xchartl 5 mul j add def XYZ*5A j XYZ*12 i5j get put LCh*5A j LCh*12 i5j get put XYZ*5An j XYZ*12n i5j get put LCh*5An j LCh*12n i5j get put } for %j=0,4 0 1 2 {/i exch def %i=0,2 rgb*3N i rgb*36X i 21 add get put %8x3 tex*3N i tex*36X i 21 add get put rgb*3W i rgb*36X i 24 add get put %9x3 tex*3W i tex*36X i 24 add get put } for %i=0,2 0 1 4 {/i exch def %i=0,4 XYZ*5N i XYZ*12 i 35 add get put %8x5 LCh*5N i LCh*12 i 35 add get put XYZ*5W i XYZ*12 i 40 add get put %9x5 LCh*5W i LCh*12 i 40 add get put XYZ*5Nn i XYZ*12n i 35 add get put %8x5 LCh*5Nn i LCh*12n i 35 add get put XYZ*5Wn i XYZ*12n i 40 add get put %9x5 LCh*5Wn i LCh*12n i 40 add get put } for %i=0,4 /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def /L*Xdn LCh*5An 0 get def /C*Xdn LCh*5An 1 get def /L*Ndn LCh*5Nn 0 get def /L*Wdn LCh*5Wn 0 get def /xfact 2000 100 div def /yfact 2000 100 div def %Titeltext /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xpN xp def /ypN yp 2000 sub def /xpW xp def /ypW yp def /xpX xp 2000 add def /ypX yp 1000 sub def /xNd xp def %Nd /yNd ypN L*Nd yfact mul add def %Nd /xWd xp def %Wd /yWd ypN L*Wd yfact mul add def %Wd /xRd xp C*Xd xfact mul add def %Xd /yRd ypN L*Xd yfact mul add def /tex_LC*hab {xchart8 0 eq {(LC*hab) show} {(L*ChAB) show} ifelse } bind def /tex_LabC*h {xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse } bind def /indd {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /inddk {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /inde {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /indek {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /indab {0 -50 rmoveto xchart8 0 eq {(ab)} {(AB)} ifelse show 0 50 rmoveto} bind def /indabk {0 -50 rmoveto xchart8 0 eq {(ab,)} {(AB,)} ifelse show 0 50 rmoveto} bind def /indabd {0 -50 rmoveto xchart8 0 eq {(ab,d)} {(AB,d)} ifelse show 0 50 rmoveto} bind def /indabe {0 -50 rmoveto xchart8 0 eq {(ab,e)} {(AB,e)} ifelse show 0 50 rmoveto} bind def /indabN {0 -50 rmoveto xchart8 0 eq {(ab,N)} {(AB,N)} ifelse show 0 50 rmoveto} bind def /indabW {0 -50 rmoveto xchart8 0 eq {(ab,W)} {(AB,W)} ifelse show 0 50 rmoveto} bind def } bind def %END proz_out_text_ANW_definition %************************************************************** /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBV -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBV -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TV -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TV -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow1g {/nxx exch def %example nxx=99.1/99.0 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2g {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3g {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /xchartl 0 def %0 for xchart6=0 or 1; 0 to 5 for 6 hue planes /xchart3 0 def %0: LCH, %1: ICE/ice /xchart4 1 def %0: sRGB, 1: WCGa, 3: Offs, 4:Ostw /xchart5 1 def %0: YN=0, 1: YN=0,0 ..2,5 ..40,3 /xchart6 1 def %0: Y10-1N, %1 Y10-2N, %2: Y10-3N to 8N /xchart7 7 def %0 to 7: 8 contrast steps no. 1 to 8 according to ISO 9241-406 /xchart8 0 def %0: LabC*h, 1: L*ABCh /xchart9 0 def %0 for Normalizaton; 0: Y=88,6, 1: Y=18,0 4 /Times-ISOL1 FS 72 86 moveto (BGA21-6N) show 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 1 setgray /xwide 6000 def /ywide 4000 def 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath stroke %produces XYZ*12 and XYZ*12n proz_sRGB_rgb*36X_definitions %uses XYZ*12 proz_XYZnw_D65_xchart7_definition 0 1 11 {/i exch def %i=0,09 /i100 i 5 mul def /i101 i100 1 add def /i102 i100 2 add def /i103 i100 3 add def /i104 i100 4 add def /Xaref XYZ*12 i100 get def /Yaref XYZ*12 i101 get def /Zaref XYZ*12 i102 get def % in any case defined proz_XYZ_LCh* LCh*12 i100 L*ref put LCh*12 i101 C*ref put LCh*12 i102 h*ref put LCh*12 i103 a*ref put LCh*12 i104 b*ref put LCh*12n i100 L*ref put %may be replaced LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put xchart5 1 eq {%BEG xchart5=1 %XYZaref see above %input XYZ*12 %output XYZ*12n, LCh*12n proz_XYZ*12_XYZ*12n %calculates intermediate XYZ*12n /Xaref XYZ*12n i100 get def /Yaref XYZ*12n i101 get def /Zaref XYZ*12n i102 get def %input XYZaref, output LChab*ref proz_XYZ_LCh* LCh*12n i100 L*ref put LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put } if %xchart5=1 } for %i=0,11 %produces for hue circle and achromatic colours %XYZ*(ANW)_(ANW)n, LCh*(ANW)_(ANW)n with 5 components %rgb*(ANW)_(ANW)n, tex*(ANW)_(ANW)n with 3 components proz_out_text_ANW_definition /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Spalten /S1 100 def /S2 1500 def /S3 2300 def /S4 5900 def /S5 7700 def /S6 8500 def /yz 400 def /yu5 7600 def /yu4 7100 def /yu3 5800 def /yu2 5800 def /yu1 5800 def %******************************************************** xchart6 0 eq {%xchart6=0 table /xdXYZ 470 def /xdLab 570 def 50 3750 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) show TBS (, and ) showen ( und ) showde TBIS tex_LabC*h TBV indab TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen} {%xchart8=1 ( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen} ifelse 0 3650 moveto 6000 0 rlineto stroke 50 3400 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 TIS (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show} {(=18.) show} ifelse } if %xchart5=1 /xt1 0000 def /yt1 0000 def xt1 yt1 translate /y01 3250 def /y02 2850 def /S10 020 def %colour /S20 0400 def %rgb /S30 0900 def %XYZ /S40 3300 def %LCh*ab 0 y01 moveto 6000 0 rlineto stroke 0 y02 100 sub moveto 6000 0 rlineto stroke 0 750 moveto 6000 0 rlineto stroke S20 50 sub y01 moveto S20 50 sub 0 lineto stroke S30 50 sub y01 moveto S30 50 sub 0 lineto stroke S40 50 sub y01 moveto S40 50 sub 0 lineto stroke TBV S30 y02 200 add moveto (CIEXYZ) show (\255Daten) showde ( data) showen S40 y02 200 add moveto TBIV xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse TBX indab TBV (\255Daten) showde ( data) showen S20 y02 moveto TBIV (rgb*) show /tex_XYZxy [(X) (Y) (Z) (x) (y)] def 0 1 4 {/k exch def %k=0,4 TBIV S30 k xdXYZ mul add y02 moveto tex_XYZxy k get show TBX S30 k xdXYZ mul add 080 add y02 moveto 0 -50 rmoveto (d) show 0 50 rmoveto } for %k=0,4 xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 120 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV S40 k xdLab mul add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 2500 def /y0d 235 def 0 1 10 {/j exch def %j=0,9 colours without red twice /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /ydd 0 def i 8 gt {/ydd 0.2 y0d mul def} if S10 y03 j y0d mul sub ydd sub moveto tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub ydd sub moveto TBV i 8 le {%i<=7 rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow} {rgb*36X i30 get cvsshow2g} ifelse /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def 0 1 4 {/k exch def %k=0,4 TV S30 k xdXYZ mul add y03 j y0d mul sub ydd sub moveto k 0 eq {XYZ*12n i50 get cvsshow2g} if k 1 eq {XYZ*12n i51 get cvsshow2g} if k 2 eq {XYZ*12n i52 get cvsshow2g} if k 3 eq {XYZ*12n i53 get cvsshow3g} if k 4 eq {XYZ*12n i54 get cvsshow3g} if } for %k=0,4 0 1 4 {/k exch def %k=0,4 k 3 le {TV}{TBV} ifelse S40 k xdLab mul add y03 j y0d mul sub ydd sub moveto k 0 eq {LCh*12n i50 get cvsshow2g} if k 1 eq {LCh*12n i53 get cvsshow2g} if k 2 eq {LCh*12n i54 get cvsshow2g} if k 3 eq {LCh*12n i51 get cvsshow2g} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,10 xt1 neg yt1 neg translate } if %xchart6=0 table %********************************************************* xchart6 1 eq {%xchart6=1 hue circle /xdLab 300 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 2000 4 div def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def /rgb*30Y 84 def %7x12 /rgb*30Y [1.00 0.00 0.00 %0 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 %1 Y 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 0.00 %2 G 0.00 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 %3 C 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 %4 B 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 1.00 %5 M 1.00 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 %6 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 ] def 50 3800 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) showde (, XYZxy) showen TBS (, and ) showen ( und ) showde TBIS xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse TBV 0 -40 rmoveto xchart8 0 eq {(ab)} {(AB)} ifelse show 0 40 rmoveto TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen} {%xchart8=1 ( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen} ifelse 0 3700 moveto 6000 0 rlineto stroke 50 3500 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show}{(=18.) show} ifelse } if %xchart5=1 /y01 3350 def /y02 3050 def /S10 020 def %colour /S20 0270 def %rgb /S40 0650 def %LCh*ab xchart8 0 eq {/S50 2600 def} {/S50 2150 def} ifelse %[X] TBV S40 y02 250 add moveto TBIV xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse TBX indab TBV (\255Daten) showde ( data) showen S20 y02 moveto TBIV (rgb*) show TBX -50 -50 rmoveto (d) show 50 50 rmoveto xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 100 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -50 def} if S40 k xdLab mul add xdLabk add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add xdLabk add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 2800 def /y0d 200 def 0 1 7 {/j exch def %j=0,8 9 colours /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def S10 y03 j y0d mul sub moveto TBV tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub moveto TBV rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow 0 1 4 {/k exch def %k=0,4 /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -50 def} if k 4 lt {TV}{TBV} ifelse S40 k xdLab mul add xdLabk add y03 j y0d mul sub moveto k 0 eq {LCh*12n i50 get cvishow} if k 1 eq {LCh*12n i53 get dup -100 le {-50 0 rmoveto} if cvishow} if k 2 eq {LCh*12n i54 get dup -100 le {-50 0 rmoveto} if cvishow} if k 3 eq {LCh*12n i51 get cvishow} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,7 S10 y03 10.1 y0d mul sub moveto TBIV xchart8 0 eq {(a*) show} {(A) show} ifelse TBV xchart8 0 eq {( = 500 [\050) show} {( = 250 [) show} ifelse TBIV (X) show TBV ( / ) show TBIV (X) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( ]) show S50 y03 10.1 y0d mul sub moveto TBV xchart8 0 eq {([1a]) show} {([1b]) show} ifelse S10 y03 11.2 y0d mul sub moveto TBIV xchart8 0 eq {(b*) show} {(B) show} ifelse TBV xchart8 0 eq {( = 200 [\050) show} {( = 100 [) show} ifelse TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Z) show TBV ( / ) show TBIV (Z) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( ]) show S50 y03 11.2 y0d mul sub moveto TBV xchart8 0 eq {([2a]) show} {([2b]) show} ifelse S10 y03 12.4 y0d mul sub moveto TBIV (C) show TBIV xchart8 0 eq {(*) show} if TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} {0 -40 rmoveto (AB) show 0 40 rmoveto} ifelse TBV ( = [ ) show TBIV xchart8 0 eq {(a*) show} {(A) show} ifelse TBX 0 100 rmoveto (2) show 0 -100 rmoveto TBV ( + ) show TBIV xchart8 0 eq {(b*) show} {(B) show} ifelse TBX 0 100 rmoveto (2) show 0 -100 rmoveto TBV ( ] ) show TBX 0 100 rmoveto (0,5) show 0 -100 rmoveto S50 y03 12.2 y0d mul sub moveto TBV xchart8 0 eq {([3a]) show} {([3b]) show} ifelse S10 y03 13.4 y0d mul sub moveto TBIV (h) show TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} {0 -40 rmoveto (AB) show 0 40 rmoveto} ifelse TBV ( = atan [ ) show TBIV xchart8 0 eq {(b*) show} {(B) show} ifelse TBV ( / ) show TBIV xchart8 0 eq {(a*) show} {(A) show} ifelse TBV ( ]) show S50 y03 13.2 y0d mul sub moveto TBV xchart8 0 eq {([4a]) show} {([4b]) show} ifelse /xt2 2150 def /yt2 -2370 def xt2 yt2 translate 0 setgray xp 1450 sub yp 0750 add moveto /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def xchart8 0 eq {/xfact1 12 def /yfact1 12 def } { % /xfact1 12 mul 2.5 mul def % /yfact1 12 mul 2.5 mul def /xfact1 12 def /yfact1 12 def } ifelse /xp0 xp 0400 add def /yp0 yp 1000 sub def /xpN xp0 1000 sub def /ypN yp0 1000 sub def xp0 1900 sub yp0 0 sub moveto 3600 0 rlineto %horizontal axis & arrow -100 40 rlineto 100 -40 rlineto -100 -40 rlineto stroke xp0 0000 add yp0 1400 sub moveto 0 3100 rlineto %vertical axis & arrow -40 -100 rlineto 40 100 rlineto 40 -100 rlineto stroke xp0 1800 sub yp0 70 sub moveto 0 140 rlineto stroke %marks, horizontal axis xp0 1200 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 add yp0 70 sub moveto 0 140 rlineto stroke xp0 1200 add yp0 70 sub moveto 0 140 rlineto stroke xchart8 0 eq {%xchart8=0 /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } { % /scal_x [(-60) ( -40) ( -20) ( 20) ( 40)] def % /scal_y [( 40) (20) (-20) (-40) ] def /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } ifelse %xchart8=0 TV xp0 2000 sub yp0 220 sub moveto scal_x 0 get show %numbers, horizontal scale xp0 1400 sub yp0 220 sub moveto scal_x 1 get show xp0 0750 sub yp0 220 sub moveto scal_x 2 get show xp0 0400 add yp0 220 sub moveto scal_x 3 get show xp0 1000 add yp0 220 sub moveto scal_x 4 get show xp0 70 sub yp0 1200 add moveto 140 0 rlineto stroke %marks, vertical axis xp0 70 sub yp0 0600 add moveto 140 0 rlineto stroke xp0 70 sub yp0 0600 sub moveto 140 0 rlineto stroke xp0 70 sub yp0 1200 sub moveto 140 0 rlineto stroke xp0 100 add yp0 1150 add moveto scal_y 0 get show %numbers, vertical axis xp0 100 add yp0 0550 add moveto scal_y 1 get show xp0 100 add yp0 0650 sub moveto scal_y 2 get show xp0 100 add yp0 1250 sub moveto scal_y 3 get show TBIK xp0 0080 add yp0 1550 add moveto xchart8 0 eq {(b*) show} {(B) show} ifelse xp0 1550 add yp0 0120 add moveto xchart8 0 eq {(a*) show} {(A) show} ifelse 0.5 setgray xchart5 1 eq {%old hexagon 15 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def xi yi 0040 0 360 arc fill } for %i=0,6 } if %old hexagon 1 setgray 30 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 5 {/i exch def %i=0,5 1 1 3 {/k exch def %k=1,3 0 setgray /i34 i 12 mul k 3 mul add def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi0 xp0 LCh*12n i53 get xfact1 mul add def /yi0 yp0 LCh*12n i54 get yfact1 mul add def /xi1 xp0 LCh*12n i53 5 add get xfact1 mul add def /yi1 yp0 LCh*12n i54 5 add get yfact1 mul add def /xiM xi0 xi1 xi0 sub k 0.25 mul mul add def /yiM yi0 yi1 yi0 sub k 0.25 mul mul add def /r rgb*30Y i34 3 add get def /g rgb*30Y i34 4 add get def /b rgb*30Y i34 5 add get def r g b setrgbcolor xiM yiM 0050 0 360 arc fill } for %k=1,3 } for %i=0,5 newpath /xshift 6 array def /yshift 6 array def % R Y G C B M /xshift [-300 -100 -050 -100 -300 -030] def /yshift [-200 -300 200 -300 -200 -300] def 0 1 5 {/i exch def %i=0,5 0 setgray /i3 i 3 mul def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def xi yi 0100 0 360 arc fill /r rgb*36X i3 0 add get def /g rgb*36X i3 1 add get def /b rgb*36X i3 2 add get def r g b setrgbcolor xi yi 0050 0 360 arc fill newpath 0 setgray xi xshift i get add yi yshift i get add moveto tex*36X i 3 mul 2 add get show newpath } for %i=0,5 20 setlinewidth xt2 neg yt2 neg translate } if %xchart6=1 hue circle %******************************************************* showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 06 MM sub SHSr sub 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 BGA21-7N %%BoundingBox: 70 85 243 206 %START PDFDE011.EPS /pdfmark17 where {pop} {userdict /pdfmark17 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/BGA2/BGA2.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022030112000) /ModDate (D:2022030112000) /DOCINFO pdfmark17 [ /View [ /Fit ] /DOCVIEW pdfmark17 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } 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 /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 /TX {120 /Times-ISOL1 FS} bind def /TV {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIX {120 /TimesI-ISOL1 FS} bind def /TIV {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-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 /TBX {120 /TimesB-ISOL1 FS} bind def /TBV {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-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 /TBIX {120 /TimesBI-ISOL1 FS} bind def /TBIV {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-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 /XD65 95.05 def /YD65 100.00 def /ZD65 108.90 def /xanD65 XD65 XD65 YD65 add ZD65 add div def /yanD65 YD65 XD65 YD65 add ZD65 add div def %******************************************************* %created for 10 colours of hue circle and different lightness /LCh*12 60 array def /XYZ*12 60 array def /LCh*12n 60 array def /XYZ*12n 60 array def %************************************************************** %created for 45 colours of equal chroma and different lightness /rgb*45 500 array def %5x45, NOT 3x45 /LCh*45 500 array def %5x45 /XYZ*45 500 array def %5x45 /rgb*45n 500 array def %5x45, NOT 3x45 /XYZ*45n 500 array def %5x45 /XYZ*45na 500 array def /LCh*45n 500 array def %5x45 /LCh*45na 500 array def %5x45 %************************************************************ %definition of A for xchartl=0 to 5 /XYZ*5A 5 array def /LCh*5A 5 array def /XYZ*5N 5 array def /LCh*5N 5 array def /XYZ*5W 5 array def /LCh*5W 5 array def /XYZ*5An 5 array def /LCh*5An 5 array def /XYZ*5Nn 5 array def /LCh*5Nn 5 array def /XYZ*5Wn 5 array def /LCh*5Wn 5 array def /rgb*3A 3 array def /tex*3A 3 array def /rgb*3N 3 array def /tex*3N 3 array def /rgb*3W 3 array def /tex*3W 3 array def /LCh*5Na 5 array def %a=actual /LCh*5Wa 5 array def /LCh*5Aa 5 array def %******************************************************************* /proz_XYZ_LCh* {%BEG proz_XYZ_LCh* %input XYZaref, output LChab*ref, same name in any case %output LabC*h (xchart8=0) or LABC*h (xchart8=1) /XQ Xaref XD65 div def /YQ Yaref YD65 div def /ZQ Zaref ZD65 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def xchart8 0 eq {%xchart8=0 LabCh*-CIELAB /a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def } if %xchart8=0 LabCh*-CIELAB xchart8 1 eq {%xchart8=1 LabCh*=LABCh* /a*ref XQ YQ sub 250 mul def /b*ref YQ ZQ sub 100 mul def } if %xchart8=1 LabCh*=LABCh* /C*ref a*ref dup mul b*ref dup mul add sqrt def /h*ref b*ref a*ref 0.00001 add atan def C*ref 0.05 le {/h*ref 0 def} if } bind def %END proz_XYZ_LCh* %******************************************************************* /proz_LCh*_XYZ {%BEG proz_LCh*_XYZ %input LCh*ref of LabC*h (xchart8=0) or L*ABCh (xchart8=1) %output XYZref, xyanref xchart8 0 eq {%xchart8=0 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /X* {L*ref 16 add 116 div a*ref 500 div add} bind def /Y* {L*ref 16 add 116 div} bind def /Z* {L*ref 16 add 116 div b*ref 200 div sub} bind def /Xref X* DecodeXYZ* XD65 mul def /Yref Y* DecodeXYZ* YD65 mul def /Zref Z* DecodeXYZ* ZD65 mul def } if %xchart8=0 xchart8 1 eq {%xchart8=1 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /Y* {L*ref 16 add 116 div} bind def /Yref Y* DecodeXYZ* YD65 mul def /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /Xref a*ref 250 div XD65 mul Yref XD65 mul YD65 div add def /Zref Yref ZD65 mul YD65 div b*ref 100 div ZD65 mul sub def } if %xchart8=1 Xref 0.01 lt {/Xref 0.01 def} if Yref 0.01 lt {/Yref 0.01 def} if Zref 0.01 lt {/Zref 0.01 def} if /SUM Xref Yref add Zref add 0.0001 add def /xanref Xref SUM div def /yanref Yref SUM div def } bind def %END proz_LCh*_XYZ %************************************************************************* /proz_XYZnw_D65_xchart7_definition {%BEG proz_XYZnw_D65_xchart7_definition % achromatic colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def /YrN 2.52 def /Xnref YrN XLN001 mul def /Ynref YrN def /Znref YrN ZLN001 mul def /Xtref XYZnref_ISO9241-306 xchart7 3 mul 0 add get def /Ytref XYZnref_ISO9241-306 xchart7 3 mul 1 add get def /Ztref XYZnref_ISO9241-306 xchart7 3 mul 2 add get def /YNil Ytref def /YNil001 YNil 100 div def YNil001 6 29 div 3 exp ge {/FYYn YNil001 0.3333 exp def} {/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse /L*Nil 116 FYYn mul 16 sub def } bind def %END proz_XYZnw_D65_xchart7_definition %************************************************************** /proz_XYZ*12_XYZ*12n {%BEG proz_XYZ*12_XYZ*12n %for 10 colours %input XYZ*12, rgb*10 %output LCh*12n, rgb*10n %only for xchart5=1 and for 10 colours in 7 hue planes and achromatic %change XYZ*12 to XYZ*12n by display reflection according to xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*12n i100 XYZ*12 i100 get Xnor sub Xfac1 mul Xnor add put XYZ*12n i101 XYZ*12 i101 get Ynor sub Yfac1 mul Ynor add put XYZ*12n i102 XYZ*12 i102 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*12n i100 XYZ*12 i100 get Xfac2 mul Xtref add put XYZ*12n i101 XYZ*12 i101 get Yfac2 mul Ytref add put XYZ*12n i102 XYZ*12 i102 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*12_XYZ*12n %**************************************************************** /proz_XYZ*45_XYZ*45n {%BEG proz_XYZ*45_XYZ*45n %for 45 colours %input XYZ*45, rgb*45 %output XYZ*45n, rgb*45n %only for xchart5=1 and for 45 colours in hue plane %change XYZ*45 to XYZ*45n by display reflection according t0 xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*45n i450 XYZ*45 i450 get Xnor sub Xfac1 mul Xnor add put XYZ*45n i451 XYZ*45 i451 get Ynor sub Yfac1 mul Ynor add put XYZ*45n i452 XYZ*45 i452 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*45n i450 XYZ*45 i450 get Xfac2 mul Xtref add put XYZ*45n i451 XYZ*45 i451 get Yfac2 mul Ytref add put XYZ*45n i452 XYZ*45 i452 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*45_XYZ*45n %*********************************************************** %*********************************************************** /proz_sRGB_rgb*36X_definitions {%BEG proz_sRGB_rgb*36X_definitions /XYZ*WCGa_d_0000_0886 36 array def %d, Yw=88,6, Yn=2,50 /XYZ*WCGa_d_0000_0886 [056.43 023.27 000.00 %0 Rd %ANH9_Y10-7N,201003, fehl? Zmin=2.72 069.24 083.34 002.48 %1 Yd 012.81 060.07 002.48 %2 Gd 027.77 066.32 096.48 %3 Cd 014.96 005.25 094.00 %4 Bd 071.39 028.52 094.00 %5 Md 056.43 023.27 000.00 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*sRGB_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*sRGB_d_0000_0886 [036.54 018.84 001.71 %0 Rd %ANH9_Y10-3N,201012 076.99 092.78 013.85 %1 Yd 035.76 071.52 011.91 %2 Gd 053.81 078.74 106.98 %3 Cd 018.05 007.22 095.06 %4 Bd 059.28 028.48 096.99 %5 Md 036.54 018.84 001.71 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*Ostw_d_0000_1000 36 array def %m, Yw=100,00, Yn=0,00 /XYZ*Ostw_d_0000_1000 [062.40 041.75 000.76 %0 Rm 561_405 589 %ANI6_Y10-7N,201012 076.68 082.00 001.27 %1 Ym 520_520c 569 023.83 065.32 015.00 %2 Gm 475_473 528c 032.63 058.24 108.12 %3 Cm 405_561 483 018.36 017.99 107.61 %4 Bm 519c-519 471 071.20 034.67 093.88 %5 Mm 573_475 528c 062.40 041.75 000.76 %6 Rm 561_405 589 %for hue circle 000.01 000.01 000.01 %7 N0 095.05 100.00 108.90 %8 W0 000.01 000.01 000.01 %9 N1 107.29 112.88 122.24 %10 W1 19.31 20.31 22.00 %11 Z1 ] def /XYZ*Offs_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*Offs_d_0000_0886 [029.01 016.24 004.26 %0 Rd %ANJ7_Y11-1N,201012 063.74 072.69 008.27 %1 Yd 008.53 020.05 009.58 %2 Gd 018.74 026.27 069.02 %3 Cd 006.22 004.51 022.65 %4 Bd 032.46 016.95 023.04 %5 Md 029.01 016.24 004.26 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /rgb*36X 36 array def /rgb*36X [1 0 0 %0 1 1 0 %1 0 1 0 %2 0 1 1 %3 0 0 1 %4 1 0 1 %5 1 0 0 %6 0.00 0.00 0.00 %7 N0 1.00 1.00 1.00 %8 W0 0.00 0.00 0.00 %9 N1 1.13 1.13 1.13 %10 W1 0.18 0.18 0.18 %11 Z1 ] def /tex*36X 36 array def /tex*36X [(Rot) (red) (R) %0 (Gelb) (yellow) (Y) %1 (Gr\374n) (green) (G) %2 (Cyan) (cyan) (C) %3 (Blau) (blue) (B) %4 (Magenta) (magenta) (M) %5 (Rot) (red) (R) %6 (Schwarz) (black) (N) %7 (Wei\337) (white) (W) %8 (Schwarz) (black) (N1) %9 (Wei\337) (white) (W1) %10 (Grau) (grey) (Z1) %11 ] def /XYZnref_ISO9241-306 24 array def /XYZnref_ISO9241-306 [ %XYZnref wit contrast step according to ISO 9241-306:2018 00.01 00.01 00.01 %0 0288:1 00.60 00.63 00.69 %1 0144:1 01.20 01.26 01.37 %2 0072:1 02.40 02.52 02.74 %3 0036:1 %standard 04.79 05.04 05.49 %4 0018:1 08.58 10.08 10.98 %5 0009:1 19.16 20.16 21.95 %6 04,5:1 38.32 40.32 43.90 %7 2,25:1 ] def /Ynref_ISO9241-306 8 array def 0 1 7 {/i exch def %i=0,7 /i31 i 3 mul 1 add def Ynref_ISO9241-306 i XYZnref_ISO9241-306 i31 get put } for %i=0,7 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 sISO 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def xchart4 0 eq {%xchart4=0 XYZ*12 i50 XYZ*sRGB_d_0000_0886 i30 get put XYZ*12 i51 XYZ*sRGB_d_0000_0886 i31 get put XYZ*12 i52 XYZ*sRGB_d_0000_0886 i32 get put } if %xchart4=0 xchart4 1 eq {%xchart4=1 XYZ*12 i50 XYZ*WCGa_d_0000_0886 i30 get put XYZ*12 i51 XYZ*WCGa_d_0000_0886 i31 get put XYZ*12 i52 XYZ*WCGa_d_0000_0886 i32 get put } if %xchart4=1 xchart4 2 eq {%xchart4=2 XYZ*12 i50 XYZ*Offs_d_0000_0886 i30 get put XYZ*12 i51 XYZ*Offs_d_0000_0886 i31 get put XYZ*12 i52 XYZ*Offs_d_0000_0886 i32 get put } if %xchart4=2 xchart4 3 eq {%xchart4=3 XYZ*12 i50 XYZ*Ostw_d_0000_1000 i30 get 0.8860 mul put XYZ*12 i51 XYZ*Ostw_d_0000_1000 i31 get 0.8860 mul put XYZ*12 i52 XYZ*Ostw_d_0000_1000 i32 get 0.8860 mul put } if %xchart4=3 /SUM XYZ*12 i50 get XYZ*12 i51 get add XYZ*12 i52 get add def XYZ*12 i53 XYZ*12 i50 get SUM div put XYZ*12 i54 XYZ*12 i51 get SUM div put %will be replaced, if xchart5=1 XYZ*12n i50 XYZ*12 i50 get put XYZ*12n i51 XYZ*12 i51 get put XYZ*12n i52 XYZ*12 i52 get put XYZ*12n i53 XYZ*12 i53 get put XYZ*12n i54 XYZ*12 i54 get put } for %i=0,11 } bind def %END proz_sRGB_rgb*36X_definitions %*************************************************************** /proz_out_text_ANW_definition {%BEG proz_out_text_ANW_definition %loop for maximal 5 colours +N +W 0 1 2 {/j exch def %j=0,2 %three components /i3j xchartl 3 mul j add def rgb*3A j rgb*36X i3j get put tex*3A j tex*36X i3j get put } for %j=0,2 0 1 4 {/j exch def %j=0,4 %three components /i5j xchartl 5 mul j add def XYZ*5A j XYZ*12 i5j get put LCh*5A j LCh*12 i5j get put XYZ*5An j XYZ*12n i5j get put LCh*5An j LCh*12n i5j get put } for %j=0,4 0 1 2 {/i exch def %i=0,2 rgb*3N i rgb*36X i 21 add get put %8x3 tex*3N i tex*36X i 21 add get put rgb*3W i rgb*36X i 24 add get put %9x3 tex*3W i tex*36X i 24 add get put } for %i=0,2 0 1 4 {/i exch def %i=0,4 XYZ*5N i XYZ*12 i 35 add get put %8x5 LCh*5N i LCh*12 i 35 add get put XYZ*5W i XYZ*12 i 40 add get put %9x5 LCh*5W i LCh*12 i 40 add get put XYZ*5Nn i XYZ*12n i 35 add get put %8x5 LCh*5Nn i LCh*12n i 35 add get put XYZ*5Wn i XYZ*12n i 40 add get put %9x5 LCh*5Wn i LCh*12n i 40 add get put } for %i=0,4 /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def /L*Xdn LCh*5An 0 get def /C*Xdn LCh*5An 1 get def /L*Ndn LCh*5Nn 0 get def /L*Wdn LCh*5Wn 0 get def /xfact 2000 100 div def /yfact 2000 100 div def %Titeltext /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xpN xp def /ypN yp 2000 sub def /xpW xp def /ypW yp def /xpX xp 2000 add def /ypX yp 1000 sub def /xNd xp def %Nd /yNd ypN L*Nd yfact mul add def %Nd /xWd xp def %Wd /yWd ypN L*Wd yfact mul add def %Wd /xRd xp C*Xd xfact mul add def %Xd /yRd ypN L*Xd yfact mul add def /tex_LC*hab {xchart8 0 eq {(LC*hab) show} {(L*ChAB) show} ifelse } bind def /tex_LabC*h {xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse } bind def /indd {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /inddk {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /inde {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /indek {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /indab {0 -50 rmoveto xchart8 0 eq {(ab)} {(AB)} ifelse show 0 50 rmoveto} bind def /indabk {0 -50 rmoveto xchart8 0 eq {(ab,)} {(AB,)} ifelse show 0 50 rmoveto} bind def /indabd {0 -50 rmoveto xchart8 0 eq {(ab,d)} {(AB,d)} ifelse show 0 50 rmoveto} bind def /indabe {0 -50 rmoveto xchart8 0 eq {(ab,e)} {(AB,e)} ifelse show 0 50 rmoveto} bind def /indabN {0 -50 rmoveto xchart8 0 eq {(ab,N)} {(AB,N)} ifelse show 0 50 rmoveto} bind def /indabW {0 -50 rmoveto xchart8 0 eq {(ab,W)} {(AB,W)} ifelse show 0 50 rmoveto} bind def } bind def %END proz_out_text_ANW_definition %************************************************************** /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBV -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBV -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TV -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TV -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow1g {/nxx exch def %example nxx=99.1/99.0 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2g {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3g {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /xchartl 0 def %0 for xchart6=0 or 1; 0 to 5 for 6 hue planes /xchart3 0 def %0: LCH, %1: ICE/ice /xchart4 0 def %0: sRGB, 1: WCGa, 3: Offs, 4:Ostw /xchart5 1 def %0: YN=0, 1: YN=0,0 ..2,5 ..40,3 /xchart6 1 def %0: Y10-1N, %1 Y10-2N, %2: Y10-3N to 8N /xchart7 7 def %0 to 7: 8 contrast steps no. 1 to 8 according to ISO 9241-406 /xchart8 1 def %0: LabC*h, 1: L*ABCh /xchart9 0 def %0 for Normalizaton; 0: Y=88,6, 1: Y=18,0 4 /Times-ISOL1 FS 72 86 moveto (BGA21-7N) show 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 1 setgray /xwide 6000 def /ywide 4000 def 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath stroke %produces XYZ*12 and XYZ*12n proz_sRGB_rgb*36X_definitions %uses XYZ*12 proz_XYZnw_D65_xchart7_definition 0 1 11 {/i exch def %i=0,09 /i100 i 5 mul def /i101 i100 1 add def /i102 i100 2 add def /i103 i100 3 add def /i104 i100 4 add def /Xaref XYZ*12 i100 get def /Yaref XYZ*12 i101 get def /Zaref XYZ*12 i102 get def % in any case defined proz_XYZ_LCh* LCh*12 i100 L*ref put LCh*12 i101 C*ref put LCh*12 i102 h*ref put LCh*12 i103 a*ref put LCh*12 i104 b*ref put LCh*12n i100 L*ref put %may be replaced LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put xchart5 1 eq {%BEG xchart5=1 %XYZaref see above %input XYZ*12 %output XYZ*12n, LCh*12n proz_XYZ*12_XYZ*12n %calculates intermediate XYZ*12n /Xaref XYZ*12n i100 get def /Yaref XYZ*12n i101 get def /Zaref XYZ*12n i102 get def %input XYZaref, output LChab*ref proz_XYZ_LCh* LCh*12n i100 L*ref put LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put } if %xchart5=1 } for %i=0,11 %produces for hue circle and achromatic colours %XYZ*(ANW)_(ANW)n, LCh*(ANW)_(ANW)n with 5 components %rgb*(ANW)_(ANW)n, tex*(ANW)_(ANW)n with 3 components proz_out_text_ANW_definition /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Spalten /S1 100 def /S2 1500 def /S3 2300 def /S4 5900 def /S5 7700 def /S6 8500 def /yz 400 def /yu5 7600 def /yu4 7100 def /yu3 5800 def /yu2 5800 def /yu1 5800 def %******************************************************** xchart6 0 eq {%xchart6=0 table /xdXYZ 470 def /xdLab 570 def 50 3750 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) show TBS (, and ) showen ( und ) showde TBIS tex_LabC*h TBV indab TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen} {%xchart8=1 ( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen} ifelse 0 3650 moveto 6000 0 rlineto stroke 50 3400 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 TIS (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show} {(=18.) show} ifelse } if %xchart5=1 /xt1 0000 def /yt1 0000 def xt1 yt1 translate /y01 3250 def /y02 2850 def /S10 020 def %colour /S20 0400 def %rgb /S30 0900 def %XYZ /S40 3300 def %LCh*ab 0 y01 moveto 6000 0 rlineto stroke 0 y02 100 sub moveto 6000 0 rlineto stroke 0 750 moveto 6000 0 rlineto stroke S20 50 sub y01 moveto S20 50 sub 0 lineto stroke S30 50 sub y01 moveto S30 50 sub 0 lineto stroke S40 50 sub y01 moveto S40 50 sub 0 lineto stroke TBV S30 y02 200 add moveto (CIEXYZ) show (\255Daten) showde ( data) showen S40 y02 200 add moveto TBIV xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse TBX indab TBV (\255Daten) showde ( data) showen S20 y02 moveto TBIV (rgb*) show /tex_XYZxy [(X) (Y) (Z) (x) (y)] def 0 1 4 {/k exch def %k=0,4 TBIV S30 k xdXYZ mul add y02 moveto tex_XYZxy k get show TBX S30 k xdXYZ mul add 080 add y02 moveto 0 -50 rmoveto (d) show 0 50 rmoveto } for %k=0,4 xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 120 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV S40 k xdLab mul add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 2500 def /y0d 235 def 0 1 10 {/j exch def %j=0,9 colours without red twice /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /ydd 0 def i 8 gt {/ydd 0.2 y0d mul def} if S10 y03 j y0d mul sub ydd sub moveto tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub ydd sub moveto TBV i 8 le {%i<=7 rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow} {rgb*36X i30 get cvsshow2g} ifelse /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def 0 1 4 {/k exch def %k=0,4 TV S30 k xdXYZ mul add y03 j y0d mul sub ydd sub moveto k 0 eq {XYZ*12n i50 get cvsshow2g} if k 1 eq {XYZ*12n i51 get cvsshow2g} if k 2 eq {XYZ*12n i52 get cvsshow2g} if k 3 eq {XYZ*12n i53 get cvsshow3g} if k 4 eq {XYZ*12n i54 get cvsshow3g} if } for %k=0,4 0 1 4 {/k exch def %k=0,4 k 3 le {TV}{TBV} ifelse S40 k xdLab mul add y03 j y0d mul sub ydd sub moveto k 0 eq {LCh*12n i50 get cvsshow2g} if k 1 eq {LCh*12n i53 get cvsshow2g} if k 2 eq {LCh*12n i54 get cvsshow2g} if k 3 eq {LCh*12n i51 get cvsshow2g} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,10 xt1 neg yt1 neg translate } if %xchart6=0 table %********************************************************* xchart6 1 eq {%xchart6=1 hue circle /xdLab 300 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 2000 4 div def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def /rgb*30Y 84 def %7x12 /rgb*30Y [1.00 0.00 0.00 %0 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 %1 Y 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 0.00 %2 G 0.00 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 %3 C 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 %4 B 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 1.00 %5 M 1.00 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 %6 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 ] def 50 3800 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) showde (, XYZxy) showen TBS (, and ) showen ( und ) showde TBIS xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse TBV 0 -40 rmoveto xchart8 0 eq {(ab)} {(AB)} ifelse show 0 40 rmoveto TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen} {%xchart8=1 ( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen} ifelse 0 3700 moveto 6000 0 rlineto stroke 50 3500 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show}{(=18.) show} ifelse } if %xchart5=1 /y01 3350 def /y02 3050 def /S10 020 def %colour /S20 0270 def %rgb /S40 0650 def %LCh*ab xchart8 0 eq {/S50 2600 def} {/S50 2150 def} ifelse %[X] TBV S40 y02 250 add moveto TBIV xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse TBX indab TBV (\255Daten) showde ( data) showen S20 y02 moveto TBIV (rgb*) show TBX -50 -50 rmoveto (d) show 50 50 rmoveto xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 100 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -50 def} if S40 k xdLab mul add xdLabk add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add xdLabk add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 2800 def /y0d 200 def 0 1 7 {/j exch def %j=0,8 9 colours /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def S10 y03 j y0d mul sub moveto TBV tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub moveto TBV rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow 0 1 4 {/k exch def %k=0,4 /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -50 def} if k 4 lt {TV}{TBV} ifelse S40 k xdLab mul add xdLabk add y03 j y0d mul sub moveto k 0 eq {LCh*12n i50 get cvishow} if k 1 eq {LCh*12n i53 get dup -100 le {-50 0 rmoveto} if cvishow} if k 2 eq {LCh*12n i54 get dup -100 le {-50 0 rmoveto} if cvishow} if k 3 eq {LCh*12n i51 get cvishow} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,7 S10 y03 10.1 y0d mul sub moveto TBIV xchart8 0 eq {(a*) show} {(A) show} ifelse TBV xchart8 0 eq {( = 500 [\050) show} {( = 250 [) show} ifelse TBIV (X) show TBV ( / ) show TBIV (X) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( ]) show S50 y03 10.1 y0d mul sub moveto TBV xchart8 0 eq {([1a]) show} {([1b]) show} ifelse S10 y03 11.2 y0d mul sub moveto TBIV xchart8 0 eq {(b*) show} {(B) show} ifelse TBV xchart8 0 eq {( = 200 [\050) show} {( = 100 [) show} ifelse TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Z) show TBV ( / ) show TBIV (Z) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( ]) show S50 y03 11.2 y0d mul sub moveto TBV xchart8 0 eq {([2a]) show} {([2b]) show} ifelse S10 y03 12.4 y0d mul sub moveto TBIV (C) show TBIV xchart8 0 eq {(*) show} if TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} {0 -40 rmoveto (AB) show 0 40 rmoveto} ifelse TBV ( = [ ) show TBIV xchart8 0 eq {(a*) show} {(A) show} ifelse TBX 0 100 rmoveto (2) show 0 -100 rmoveto TBV ( + ) show TBIV xchart8 0 eq {(b*) show} {(B) show} ifelse TBX 0 100 rmoveto (2) show 0 -100 rmoveto TBV ( ] ) show TBX 0 100 rmoveto (0,5) show 0 -100 rmoveto S50 y03 12.2 y0d mul sub moveto TBV xchart8 0 eq {([3a]) show} {([3b]) show} ifelse S10 y03 13.4 y0d mul sub moveto TBIV (h) show TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} {0 -40 rmoveto (AB) show 0 40 rmoveto} ifelse TBV ( = atan [ ) show TBIV xchart8 0 eq {(b*) show} {(B) show} ifelse TBV ( / ) show TBIV xchart8 0 eq {(a*) show} {(A) show} ifelse TBV ( ]) show S50 y03 13.2 y0d mul sub moveto TBV xchart8 0 eq {([4a]) show} {([4b]) show} ifelse /xt2 2150 def /yt2 -2370 def xt2 yt2 translate 0 setgray xp 1450 sub yp 0750 add moveto /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def xchart8 0 eq {/xfact1 12 def /yfact1 12 def } { % /xfact1 12 mul 2.5 mul def % /yfact1 12 mul 2.5 mul def /xfact1 12 def /yfact1 12 def } ifelse /xp0 xp 0400 add def /yp0 yp 1000 sub def /xpN xp0 1000 sub def /ypN yp0 1000 sub def xp0 1900 sub yp0 0 sub moveto 3600 0 rlineto %horizontal axis & arrow -100 40 rlineto 100 -40 rlineto -100 -40 rlineto stroke xp0 0000 add yp0 1400 sub moveto 0 3100 rlineto %vertical axis & arrow -40 -100 rlineto 40 100 rlineto 40 -100 rlineto stroke xp0 1800 sub yp0 70 sub moveto 0 140 rlineto stroke %marks, horizontal axis xp0 1200 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 add yp0 70 sub moveto 0 140 rlineto stroke xp0 1200 add yp0 70 sub moveto 0 140 rlineto stroke xchart8 0 eq {%xchart8=0 /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } { % /scal_x [(-60) ( -40) ( -20) ( 20) ( 40)] def % /scal_y [( 40) (20) (-20) (-40) ] def /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } ifelse %xchart8=0 TV xp0 2000 sub yp0 220 sub moveto scal_x 0 get show %numbers, horizontal scale xp0 1400 sub yp0 220 sub moveto scal_x 1 get show xp0 0750 sub yp0 220 sub moveto scal_x 2 get show xp0 0400 add yp0 220 sub moveto scal_x 3 get show xp0 1000 add yp0 220 sub moveto scal_x 4 get show xp0 70 sub yp0 1200 add moveto 140 0 rlineto stroke %marks, vertical axis xp0 70 sub yp0 0600 add moveto 140 0 rlineto stroke xp0 70 sub yp0 0600 sub moveto 140 0 rlineto stroke xp0 70 sub yp0 1200 sub moveto 140 0 rlineto stroke xp0 100 add yp0 1150 add moveto scal_y 0 get show %numbers, vertical axis xp0 100 add yp0 0550 add moveto scal_y 1 get show xp0 100 add yp0 0650 sub moveto scal_y 2 get show xp0 100 add yp0 1250 sub moveto scal_y 3 get show TBIK xp0 0080 add yp0 1550 add moveto xchart8 0 eq {(b*) show} {(B) show} ifelse xp0 1550 add yp0 0120 add moveto xchart8 0 eq {(a*) show} {(A) show} ifelse 0.5 setgray xchart5 1 eq {%old hexagon 15 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def xi yi 0040 0 360 arc fill } for %i=0,6 } if %old hexagon 1 setgray 30 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 5 {/i exch def %i=0,5 1 1 3 {/k exch def %k=1,3 0 setgray /i34 i 12 mul k 3 mul add def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi0 xp0 LCh*12n i53 get xfact1 mul add def /yi0 yp0 LCh*12n i54 get yfact1 mul add def /xi1 xp0 LCh*12n i53 5 add get xfact1 mul add def /yi1 yp0 LCh*12n i54 5 add get yfact1 mul add def /xiM xi0 xi1 xi0 sub k 0.25 mul mul add def /yiM yi0 yi1 yi0 sub k 0.25 mul mul add def /r rgb*30Y i34 3 add get def /g rgb*30Y i34 4 add get def /b rgb*30Y i34 5 add get def r g b setrgbcolor xiM yiM 0050 0 360 arc fill } for %k=1,3 } for %i=0,5 newpath /xshift 6 array def /yshift 6 array def % R Y G C B M /xshift [-300 -100 -050 -100 -300 -030] def /yshift [-200 -300 200 -300 -200 -300] def 0 1 5 {/i exch def %i=0,5 0 setgray /i3 i 3 mul def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def xi yi 0100 0 360 arc fill /r rgb*36X i3 0 add get def /g rgb*36X i3 1 add get def /b rgb*36X i3 2 add get def r g b setrgbcolor xi yi 0050 0 360 arc fill newpath 0 setgray xi xshift i get add yi yshift i get add moveto tex*36X i 3 mul 2 add get show newpath } for %i=0,5 20 setlinewidth xt2 neg yt2 neg translate } if %xchart6=1 hue circle %******************************************************* showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 06 MM sub SHAr add 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 BGA21-8N %%BoundingBox: 70 85 243 206 %START PDFDE011.EPS /pdfmark18 where {pop} {userdict /pdfmark18 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/BGA2/BGA2.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022030112000) /ModDate (D:2022030112000) /DOCINFO pdfmark18 [ /View [ /Fit ] /DOCVIEW pdfmark18 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } 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 /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 /TX {120 /Times-ISOL1 FS} bind def /TV {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIX {120 /TimesI-ISOL1 FS} bind def /TIV {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-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 /TBX {120 /TimesB-ISOL1 FS} bind def /TBV {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-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 /TBIX {120 /TimesBI-ISOL1 FS} bind def /TBIV {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-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 /XD65 95.05 def /YD65 100.00 def /ZD65 108.90 def /xanD65 XD65 XD65 YD65 add ZD65 add div def /yanD65 YD65 XD65 YD65 add ZD65 add div def %******************************************************* %created for 10 colours of hue circle and different lightness /LCh*12 60 array def /XYZ*12 60 array def /LCh*12n 60 array def /XYZ*12n 60 array def %************************************************************** %created for 45 colours of equal chroma and different lightness /rgb*45 500 array def %5x45, NOT 3x45 /LCh*45 500 array def %5x45 /XYZ*45 500 array def %5x45 /rgb*45n 500 array def %5x45, NOT 3x45 /XYZ*45n 500 array def %5x45 /XYZ*45na 500 array def /LCh*45n 500 array def %5x45 /LCh*45na 500 array def %5x45 %************************************************************ %definition of A for xchartl=0 to 5 /XYZ*5A 5 array def /LCh*5A 5 array def /XYZ*5N 5 array def /LCh*5N 5 array def /XYZ*5W 5 array def /LCh*5W 5 array def /XYZ*5An 5 array def /LCh*5An 5 array def /XYZ*5Nn 5 array def /LCh*5Nn 5 array def /XYZ*5Wn 5 array def /LCh*5Wn 5 array def /rgb*3A 3 array def /tex*3A 3 array def /rgb*3N 3 array def /tex*3N 3 array def /rgb*3W 3 array def /tex*3W 3 array def /LCh*5Na 5 array def %a=actual /LCh*5Wa 5 array def /LCh*5Aa 5 array def %******************************************************************* /proz_XYZ_LCh* {%BEG proz_XYZ_LCh* %input XYZaref, output LChab*ref, same name in any case %output LabC*h (xchart8=0) or LABC*h (xchart8=1) /XQ Xaref XD65 div def /YQ Yaref YD65 div def /ZQ Zaref ZD65 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def xchart8 0 eq {%xchart8=0 LabCh*-CIELAB /a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def } if %xchart8=0 LabCh*-CIELAB xchart8 1 eq {%xchart8=1 LabCh*=LABCh* /a*ref XQ YQ sub 250 mul def /b*ref YQ ZQ sub 100 mul def } if %xchart8=1 LabCh*=LABCh* /C*ref a*ref dup mul b*ref dup mul add sqrt def /h*ref b*ref a*ref 0.00001 add atan def C*ref 0.05 le {/h*ref 0 def} if } bind def %END proz_XYZ_LCh* %******************************************************************* /proz_LCh*_XYZ {%BEG proz_LCh*_XYZ %input LCh*ref of LabC*h (xchart8=0) or L*ABCh (xchart8=1) %output XYZref, xyanref xchart8 0 eq {%xchart8=0 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /X* {L*ref 16 add 116 div a*ref 500 div add} bind def /Y* {L*ref 16 add 116 div} bind def /Z* {L*ref 16 add 116 div b*ref 200 div sub} bind def /Xref X* DecodeXYZ* XD65 mul def /Yref Y* DecodeXYZ* YD65 mul def /Zref Z* DecodeXYZ* ZD65 mul def } if %xchart8=0 xchart8 1 eq {%xchart8=1 /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /Y* {L*ref 16 add 116 div} bind def /Yref Y* DecodeXYZ* YD65 mul def /a*ref C*ref h*ref cos mul def /b*ref C*ref h*ref sin mul def /Xref a*ref 250 div XD65 mul Yref XD65 mul YD65 div add def /Zref Yref ZD65 mul YD65 div b*ref 100 div ZD65 mul sub def } if %xchart8=1 Xref 0.01 lt {/Xref 0.01 def} if Yref 0.01 lt {/Yref 0.01 def} if Zref 0.01 lt {/Zref 0.01 def} if /SUM Xref Yref add Zref add 0.0001 add def /xanref Xref SUM div def /yanref Yref SUM div def } bind def %END proz_LCh*_XYZ %************************************************************************* /proz_XYZnw_D65_xchart7_definition {%BEG proz_XYZnw_D65_xchart7_definition % achromatic colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def /YrN 2.52 def /Xnref YrN XLN001 mul def /Ynref YrN def /Znref YrN ZLN001 mul def /Xtref XYZnref_ISO9241-306 xchart7 3 mul 0 add get def /Ytref XYZnref_ISO9241-306 xchart7 3 mul 1 add get def /Ztref XYZnref_ISO9241-306 xchart7 3 mul 2 add get def /YNil Ytref def /YNil001 YNil 100 div def YNil001 6 29 div 3 exp ge {/FYYn YNil001 0.3333 exp def} {/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse /L*Nil 116 FYYn mul 16 sub def } bind def %END proz_XYZnw_D65_xchart7_definition %************************************************************** /proz_XYZ*12_XYZ*12n {%BEG proz_XYZ*12_XYZ*12n %for 10 colours %input XYZ*12, rgb*10 %output LCh*12n, rgb*10n %only for xchart5=1 and for 10 colours in 7 hue planes and achromatic %change XYZ*12 to XYZ*12n by display reflection according to xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*12n i100 XYZ*12 i100 get Xnor sub Xfac1 mul Xnor add put XYZ*12n i101 XYZ*12 i101 get Ynor sub Yfac1 mul Ynor add put XYZ*12n i102 XYZ*12 i102 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*12n i100 XYZ*12 i100 get Xfac2 mul Xtref add put XYZ*12n i101 XYZ*12 i101 get Yfac2 mul Ytref add put XYZ*12n i102 XYZ*12 i102 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*12_XYZ*12n %**************************************************************** /proz_XYZ*45_XYZ*45n {%BEG proz_XYZ*45_XYZ*45n %for 45 colours %input XYZ*45, rgb*45 %output XYZ*45n, rgb*45n %only for xchart5=1 and for 45 colours in hue plane %change XYZ*45 to XYZ*45n by display reflection according t0 xchart7 %normalization to Ynor=18 xchart9 1 eq {%xchart9=1 /Xnor XD65 0.18 mul def /Ynor YD65 0.18 mul def /Znor ZD65 0.18 mul def /Xfac1 Xnor Xnor Xtref add div def /Yfac1 Ynor Ynor Ytref add div def /Zfac1 Znor Znor Ztref add div def XYZ*45n i450 XYZ*45 i450 get Xnor sub Xfac1 mul Xnor add put XYZ*45n i451 XYZ*45 i451 get Ynor sub Yfac1 mul Ynor add put XYZ*45n i452 XYZ*45 i452 get Znor sub Zfac1 mul Znor add put } if %xchart9=1 %normalization to Ynor=88.6 xchart9 0 eq {%xchart9=0 /Xnor XD65 0.886 mul def /Ynor YD65 0.886 mul def /Znor ZD65 0.886 mul def /Xfac2 Xnor Xtref sub Xnor div def /Yfac2 Ynor Ytref sub Ynor div def /Zfac2 Znor Ztref sub Znor div def XYZ*45n i450 XYZ*45 i450 get Xfac2 mul Xtref add put XYZ*45n i451 XYZ*45 i451 get Yfac2 mul Ytref add put XYZ*45n i452 XYZ*45 i452 get Zfac2 mul Ztref add put } if %xchart9=0 } bind def %END proz_XYZ*45_XYZ*45n %*********************************************************** %*********************************************************** /proz_sRGB_rgb*36X_definitions {%BEG proz_sRGB_rgb*36X_definitions /XYZ*WCGa_d_0000_0886 36 array def %d, Yw=88,6, Yn=2,50 /XYZ*WCGa_d_0000_0886 [056.43 023.27 000.00 %0 Rd %ANH9_Y10-7N,201003, fehl? Zmin=2.72 069.24 083.34 002.48 %1 Yd 012.81 060.07 002.48 %2 Gd 027.77 066.32 096.48 %3 Cd 014.96 005.25 094.00 %4 Bd 071.39 028.52 094.00 %5 Md 056.43 023.27 000.00 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*sRGB_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*sRGB_d_0000_0886 [036.54 018.84 001.71 %0 Rd %ANH9_Y10-3N,201012 076.99 092.78 013.85 %1 Yd 035.76 071.52 011.91 %2 Gd 053.81 078.74 106.98 %3 Cd 018.05 007.22 095.06 %4 Bd 059.28 028.48 096.99 %5 Md 036.54 018.84 001.71 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /XYZ*Ostw_d_0000_1000 36 array def %m, Yw=100,00, Yn=0,00 /XYZ*Ostw_d_0000_1000 [062.40 041.75 000.76 %0 Rm 561_405 589 %ANI6_Y10-7N,201012 076.68 082.00 001.27 %1 Ym 520_520c 569 023.83 065.32 015.00 %2 Gm 475_473 528c 032.63 058.24 108.12 %3 Cm 405_561 483 018.36 017.99 107.61 %4 Bm 519c-519 471 071.20 034.67 093.88 %5 Mm 573_475 528c 062.40 041.75 000.76 %6 Rm 561_405 589 %for hue circle 000.01 000.01 000.01 %7 N0 095.05 100.00 108.90 %8 W0 000.01 000.01 000.01 %9 N1 107.29 112.88 122.24 %10 W1 19.31 20.31 22.00 %11 Z1 ] def /XYZ*Offs_d_0000_0886 36 array def %d, Yw=88,60, Yn=0,00 /XYZ*Offs_d_0000_0886 [029.01 016.24 004.26 %0 Rd %ANJ7_Y11-1N,201012 063.74 072.69 008.27 %1 Yd 008.53 020.05 009.58 %2 Gd 018.74 026.27 069.02 %3 Cd 006.22 004.51 022.65 %4 Bd 032.46 016.95 023.04 %5 Md 029.01 016.24 004.26 %6 Rd %for hue circle 000.01 000.01 000.01 %7 N0 084.21 088.60 096.48 %8 W0 000.01 000.01 000.01 %9 N1 095.05 100.00 108.90 %10 W1 017.11 18.00 19.60 %11 Z1 ] def /rgb*36X 36 array def /rgb*36X [1 0 0 %0 1 1 0 %1 0 1 0 %2 0 1 1 %3 0 0 1 %4 1 0 1 %5 1 0 0 %6 0.00 0.00 0.00 %7 N0 1.00 1.00 1.00 %8 W0 0.00 0.00 0.00 %9 N1 1.13 1.13 1.13 %10 W1 0.18 0.18 0.18 %11 Z1 ] def /tex*36X 36 array def /tex*36X [(Rot) (red) (R) %0 (Gelb) (yellow) (Y) %1 (Gr\374n) (green) (G) %2 (Cyan) (cyan) (C) %3 (Blau) (blue) (B) %4 (Magenta) (magenta) (M) %5 (Rot) (red) (R) %6 (Schwarz) (black) (N) %7 (Wei\337) (white) (W) %8 (Schwarz) (black) (N1) %9 (Wei\337) (white) (W1) %10 (Grau) (grey) (Z1) %11 ] def /XYZnref_ISO9241-306 24 array def /XYZnref_ISO9241-306 [ %XYZnref wit contrast step according to ISO 9241-306:2018 00.01 00.01 00.01 %0 0288:1 00.60 00.63 00.69 %1 0144:1 01.20 01.26 01.37 %2 0072:1 02.40 02.52 02.74 %3 0036:1 %standard 04.79 05.04 05.49 %4 0018:1 08.58 10.08 10.98 %5 0009:1 19.16 20.16 21.95 %6 04,5:1 38.32 40.32 43.90 %7 2,25:1 ] def /Ynref_ISO9241-306 8 array def 0 1 7 {/i exch def %i=0,7 /i31 i 3 mul 1 add def Ynref_ISO9241-306 i XYZnref_ISO9241-306 i31 get put } for %i=0,7 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 sISO 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def xchart4 0 eq {%xchart4=0 XYZ*12 i50 XYZ*sRGB_d_0000_0886 i30 get put XYZ*12 i51 XYZ*sRGB_d_0000_0886 i31 get put XYZ*12 i52 XYZ*sRGB_d_0000_0886 i32 get put } if %xchart4=0 xchart4 1 eq {%xchart4=1 XYZ*12 i50 XYZ*WCGa_d_0000_0886 i30 get put XYZ*12 i51 XYZ*WCGa_d_0000_0886 i31 get put XYZ*12 i52 XYZ*WCGa_d_0000_0886 i32 get put } if %xchart4=1 xchart4 2 eq {%xchart4=2 XYZ*12 i50 XYZ*Offs_d_0000_0886 i30 get put XYZ*12 i51 XYZ*Offs_d_0000_0886 i31 get put XYZ*12 i52 XYZ*Offs_d_0000_0886 i32 get put } if %xchart4=2 xchart4 3 eq {%xchart4=3 XYZ*12 i50 XYZ*Ostw_d_0000_1000 i30 get 0.8860 mul put XYZ*12 i51 XYZ*Ostw_d_0000_1000 i31 get 0.8860 mul put XYZ*12 i52 XYZ*Ostw_d_0000_1000 i32 get 0.8860 mul put } if %xchart4=3 /SUM XYZ*12 i50 get XYZ*12 i51 get add XYZ*12 i52 get add def XYZ*12 i53 XYZ*12 i50 get SUM div put XYZ*12 i54 XYZ*12 i51 get SUM div put %will be replaced, if xchart5=1 XYZ*12n i50 XYZ*12 i50 get put XYZ*12n i51 XYZ*12 i51 get put XYZ*12n i52 XYZ*12 i52 get put XYZ*12n i53 XYZ*12 i53 get put XYZ*12n i54 XYZ*12 i54 get put } for %i=0,11 } bind def %END proz_sRGB_rgb*36X_definitions %*************************************************************** /proz_out_text_ANW_definition {%BEG proz_out_text_ANW_definition %loop for maximal 5 colours +N +W 0 1 2 {/j exch def %j=0,2 %three components /i3j xchartl 3 mul j add def rgb*3A j rgb*36X i3j get put tex*3A j tex*36X i3j get put } for %j=0,2 0 1 4 {/j exch def %j=0,4 %three components /i5j xchartl 5 mul j add def XYZ*5A j XYZ*12 i5j get put LCh*5A j LCh*12 i5j get put XYZ*5An j XYZ*12n i5j get put LCh*5An j LCh*12n i5j get put } for %j=0,4 0 1 2 {/i exch def %i=0,2 rgb*3N i rgb*36X i 21 add get put %8x3 tex*3N i tex*36X i 21 add get put rgb*3W i rgb*36X i 24 add get put %9x3 tex*3W i tex*36X i 24 add get put } for %i=0,2 0 1 4 {/i exch def %i=0,4 XYZ*5N i XYZ*12 i 35 add get put %8x5 LCh*5N i LCh*12 i 35 add get put XYZ*5W i XYZ*12 i 40 add get put %9x5 LCh*5W i LCh*12 i 40 add get put XYZ*5Nn i XYZ*12n i 35 add get put %8x5 LCh*5Nn i LCh*12n i 35 add get put XYZ*5Wn i XYZ*12n i 40 add get put %9x5 LCh*5Wn i LCh*12n i 40 add get put } for %i=0,4 /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def /L*Xdn LCh*5An 0 get def /C*Xdn LCh*5An 1 get def /L*Ndn LCh*5Nn 0 get def /L*Wdn LCh*5Wn 0 get def /xfact 2000 100 div def /yfact 2000 100 div def %Titeltext /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xpN xp def /ypN yp 2000 sub def /xpW xp def /ypW yp def /xpX xp 2000 add def /ypX yp 1000 sub def /xNd xp def %Nd /yNd ypN L*Nd yfact mul add def %Nd /xWd xp def %Wd /yWd ypN L*Wd yfact mul add def %Wd /xRd xp C*Xd xfact mul add def %Xd /yRd ypN L*Xd yfact mul add def /tex_LC*hab {xchart8 0 eq {(LC*hab) show} {(L*ChAB) show} ifelse } bind def /tex_LabC*h {xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse } bind def /indd {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /inddk {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /inde {0 -50 rmoveto (d) show 0 50 rmoveto} bind def /indek {0 -50 rmoveto (d,) show 0 50 rmoveto} bind def /indab {0 -50 rmoveto xchart8 0 eq {(ab)} {(AB)} ifelse show 0 50 rmoveto} bind def /indabk {0 -50 rmoveto xchart8 0 eq {(ab,)} {(AB,)} ifelse show 0 50 rmoveto} bind def /indabd {0 -50 rmoveto xchart8 0 eq {(ab,d)} {(AB,d)} ifelse show 0 50 rmoveto} bind def /indabe {0 -50 rmoveto xchart8 0 eq {(ab,e)} {(AB,e)} ifelse show 0 50 rmoveto} bind def /indabN {0 -50 rmoveto xchart8 0 eq {(ab,N)} {(AB,N)} ifelse show 0 50 rmoveto} bind def /indabW {0 -50 rmoveto xchart8 0 eq {(ab,W)} {(AB,W)} ifelse show 0 50 rmoveto} bind def } bind def %END proz_out_text_ANW_definition %************************************************************** /nshow {TS show} bind def /kshow {TIS show} bind def /bshow {TBS show} bind def /jshow {TBIS show} bind def /ibshown {TBV -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0 {TBV -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishown {TV -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0 {TV -00 -50 rmoveto show 0 50 rmoveto TS } bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow1g {/nxx exch def %example nxx=99.1/99.0 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2g {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3g {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %%EndProlog gsave /lanind 0 def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind le {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind le {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind le {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /xchartl 0 def %0 for xchart6=0 or 1; 0 to 5 for 6 hue planes /xchart3 0 def %0: LCH, %1: ICE/ice /xchart4 1 def %0: sRGB, 1: WCGa, 3: Offs, 4:Ostw /xchart5 1 def %0: YN=0, 1: YN=0,0 ..2,5 ..40,3 /xchart6 1 def %0: Y10-1N, %1 Y10-2N, %2: Y10-3N to 8N /xchart7 7 def %0 to 7: 8 contrast steps no. 1 to 8 according to ISO 9241-406 /xchart8 1 def %0: LabC*h, 1: L*ABCh /xchart9 0 def %0 for Normalizaton; 0: Y=88,6, 1: Y=18,0 4 /Times-ISOL1 FS 72 86 moveto (BGA21-8N) show 72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth 1 setgray /xwide 6000 def /ywide 4000 def 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwide 0 rlineto 0 ywide rlineto xwide neg 0 rlineto closepath stroke %produces XYZ*12 and XYZ*12n proz_sRGB_rgb*36X_definitions %uses XYZ*12 proz_XYZnw_D65_xchart7_definition 0 1 11 {/i exch def %i=0,09 /i100 i 5 mul def /i101 i100 1 add def /i102 i100 2 add def /i103 i100 3 add def /i104 i100 4 add def /Xaref XYZ*12 i100 get def /Yaref XYZ*12 i101 get def /Zaref XYZ*12 i102 get def % in any case defined proz_XYZ_LCh* LCh*12 i100 L*ref put LCh*12 i101 C*ref put LCh*12 i102 h*ref put LCh*12 i103 a*ref put LCh*12 i104 b*ref put LCh*12n i100 L*ref put %may be replaced LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put xchart5 1 eq {%BEG xchart5=1 %XYZaref see above %input XYZ*12 %output XYZ*12n, LCh*12n proz_XYZ*12_XYZ*12n %calculates intermediate XYZ*12n /Xaref XYZ*12n i100 get def /Yaref XYZ*12n i101 get def /Zaref XYZ*12n i102 get def %input XYZaref, output LChab*ref proz_XYZ_LCh* LCh*12n i100 L*ref put LCh*12n i101 C*ref put LCh*12n i102 h*ref put LCh*12n i103 a*ref put LCh*12n i104 b*ref put } if %xchart5=1 } for %i=0,11 %produces for hue circle and achromatic colours %XYZ*(ANW)_(ANW)n, LCh*(ANW)_(ANW)n with 5 components %rgb*(ANW)_(ANW)n, tex*(ANW)_(ANW)n with 3 components proz_out_text_ANW_definition /yt 300 def %y-Zeilenabstand for text /yd 400 def %y-Zeilenabstand for formula %Spalten /S1 100 def /S2 1500 def /S3 2300 def /S4 5900 def /S5 7700 def /S6 8500 def /yz 400 def /yu5 7600 def /yu4 7100 def /yu3 5800 def /yu2 5800 def /yu1 5800 def %******************************************************** xchart6 0 eq {%xchart6=0 table /xdXYZ 470 def /xdLab 570 def 50 3750 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) show TBS (, and ) showen ( und ) showde TBIS tex_LabC*h TBV indab TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen} {%xchart8=1 ( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen} ifelse 0 3650 moveto 6000 0 rlineto stroke 50 3400 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 TIS (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show} {(=18.) show} ifelse } if %xchart5=1 /xt1 0000 def /yt1 0000 def xt1 yt1 translate /y01 3250 def /y02 2850 def /S10 020 def %colour /S20 0400 def %rgb /S30 0900 def %XYZ /S40 3300 def %LCh*ab 0 y01 moveto 6000 0 rlineto stroke 0 y02 100 sub moveto 6000 0 rlineto stroke 0 750 moveto 6000 0 rlineto stroke S20 50 sub y01 moveto S20 50 sub 0 lineto stroke S30 50 sub y01 moveto S30 50 sub 0 lineto stroke S40 50 sub y01 moveto S40 50 sub 0 lineto stroke TBV S30 y02 200 add moveto (CIEXYZ) show (\255Daten) showde ( data) showen S40 y02 200 add moveto TBIV xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse TBX indab TBV (\255Daten) showde ( data) showen S20 y02 moveto TBIV (rgb*) show /tex_XYZxy [(X) (Y) (Z) (x) (y)] def 0 1 4 {/k exch def %k=0,4 TBIV S30 k xdXYZ mul add y02 moveto tex_XYZxy k get show TBX S30 k xdXYZ mul add 080 add y02 moveto 0 -50 rmoveto (d) show 0 50 rmoveto } for %k=0,4 xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 120 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV S40 k xdLab mul add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 2500 def /y0d 235 def 0 1 10 {/j exch def %j=0,9 colours without red twice /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /ydd 0 def i 8 gt {/ydd 0.2 y0d mul def} if S10 y03 j y0d mul sub ydd sub moveto tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub ydd sub moveto TBV i 8 le {%i<=7 rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow} {rgb*36X i30 get cvsshow2g} ifelse /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def 0 1 4 {/k exch def %k=0,4 TV S30 k xdXYZ mul add y03 j y0d mul sub ydd sub moveto k 0 eq {XYZ*12n i50 get cvsshow2g} if k 1 eq {XYZ*12n i51 get cvsshow2g} if k 2 eq {XYZ*12n i52 get cvsshow2g} if k 3 eq {XYZ*12n i53 get cvsshow3g} if k 4 eq {XYZ*12n i54 get cvsshow3g} if } for %k=0,4 0 1 4 {/k exch def %k=0,4 k 3 le {TV}{TBV} ifelse S40 k xdLab mul add y03 j y0d mul sub ydd sub moveto k 0 eq {LCh*12n i50 get cvsshow2g} if k 1 eq {LCh*12n i53 get cvsshow2g} if k 2 eq {LCh*12n i54 get cvsshow2g} if k 3 eq {LCh*12n i51 get cvsshow2g} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,10 xt1 neg yt1 neg translate } if %xchart6=0 table %********************************************************* xchart6 1 eq {%xchart6=1 hue circle /xdLab 300 def %HUE CIRCLE /xd 1550 def /yd 5000 def /xp 1550 def /yp 5000 def /xdN xd def /ydN yd 2000 sub def /xdW xd def /ydW yd def /xdR xd 2000 add def /ydR yd 1000 sub def /xm 2000 4 div def /xip xd xm 2 mul add def /yip ydN xm 2 mul add def /xi1 xd xm 1 mul sub def /yi1 ydW xm 0.5 mul sub def /xi2 xd xm 2 mul add def /yi2 ydN 400 sub def /rgb*30Y 84 def %7x12 /rgb*30Y [1.00 0.00 0.00 %0 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 %1 Y 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 0.00 %2 G 0.00 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 %3 C 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 1.00 %4 B 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 1.00 1.00 0.00 1.00 %5 M 1.00 0.00 0.75 1.00 0.00 0.50 1.00 0.00 0.25 1.00 0.00 0.00 %6 R 1.00 0.25 0.00 1.00 0.50 0.00 1.00 0.75 0.00 ] def 50 3800 moveto TBIS xchart4 0 eq {(sRGB) show} if xchart4 1 eq {(WCGa) show} if xchart4 2 eq {(Offs) show} if xchart4 3 eq {(Ostw) show} if TBS (\255Daten ) showde ( data ) showen TBIS (rgb*) show TBIS (, XYZxy) showde (, XYZxy) showen TBS (, and ) showen ( und ) showde TBIS xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse TBV 0 -40 rmoveto xchart8 0 eq {(ab)} {(AB)} ifelse show 0 40 rmoveto TBS xchart8 0 eq {%xchart8=0 ( im CIELAB\255Farbraum) showde ( in the CIELAB\255colour space) showen} {%xchart8=1 ( im L*ABJND\255Farbraum) showde ( in L*ABJND\255colour space) showen} ifelse 0 3700 moveto 6000 0 rlineto stroke 50 3500 moveto TS (Normfarbwerte von Schwarz und Wei\337: ) showde (Tristimulus values of black and white: ) showen TIS (Y) show TV 0 -40 rmoveto xchart5 0 eq {(N) show}{(Nn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5N 1 get cvsshow1g} {XYZ*5Nn 1 get cvsshow1g} ifelse TIS (, Y) show TV 0 -40 rmoveto xchart5 0 eq {(W) show}{(Wn) show} ifelse 0 40 rmoveto TS (=) show xchart5 0 eq {XYZ*5W 1 get cvsshow1g} {XYZ*5Wn 1 get cvsshow1g} ifelse xchart5 1 eq {%xchart5=1 (, Y) show TV 0 -40 rmoveto xchart9 0 eq {(Wa) show}{(Za) show} ifelse 0 40 rmoveto TS xchart9 0 eq {(=88,6.) show}{(=18.) show} ifelse } if %xchart5=1 /y01 3350 def /y02 3050 def /S10 020 def %colour /S20 0270 def %rgb /S40 0650 def %LCh*ab xchart8 0 eq {/S50 2600 def} {/S50 2150 def} ifelse %[X] TBV S40 y02 250 add moveto TBIV xchart8 0 eq {(LabC*h) show} {(L*ABCh) show} ifelse TBX indab TBV (\255Daten) showde ( data) showen S20 y02 moveto TBIV (rgb*) show TBX -50 -50 rmoveto (d) show 50 50 rmoveto xchart8 0 eq {/tex_LabCh* [(L*) (a*) (b*) (C*) (h) ] def /ind_LabCh* [(d) (d) (d) (ab,d) (ab,d)] def /tex_xshift [120 120 120 100 80 ] def } if xchart8 1 eq {/tex_LabCh* [(L*) (A) (B) (C) (h) ] def /ind_LabCh* [(d) (d) (d) (AB,d) (AB,d)] def /tex_xshift [120 80 80 80 80 ] def } if 0 1 4 {/k exch def %k=0,4 TBIV /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -50 def} if S40 k xdLab mul add xdLabk add y02 moveto tex_LabCh* k get show TBX S40 k xdLab mul add xdLabk add tex_xshift k get add y02 moveto 0 -50 rmoveto ind_LabCh* k get show 0 50 rmoveto } for %k=0,4 /y03 2800 def /y0d 200 def 0 1 7 {/j exch def %j=0,8 9 colours /i j def j 6 ge {/i j 1 add def} if %for N and W /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /i50 i 5 mul def /i51 i50 1 add def /i52 i50 2 add def /i53 i50 3 add def /i54 i50 4 add def S10 y03 j y0d mul sub moveto TBV tex*36X i32 get show TBX 0 -40 rmoveto (d) show 0 40 rmoveto S20 y03 j y0d mul sub moveto TBV rgb*36X i30 get cvishow ( ) show rgb*36X i31 get cvishow ( ) show rgb*36X i32 get cvishow 0 1 4 {/k exch def %k=0,4 /xdLabk 0 def k 1 eq {/xdLabk -50 def} if k 2 eq {/xdLabk -50 def} if k 3 eq {/xdLabk -50 def} if k 4 lt {TV}{TBV} ifelse S40 k xdLab mul add xdLabk add y03 j y0d mul sub moveto k 0 eq {LCh*12n i50 get cvishow} if k 1 eq {LCh*12n i53 get dup -100 le {-50 0 rmoveto} if cvishow} if k 2 eq {LCh*12n i54 get dup -100 le {-50 0 rmoveto} if cvishow} if k 3 eq {LCh*12n i51 get cvishow} if k 4 eq {LCh*12n i52 get cvishow} if } for %k=0,4 } for %j=0,7 S10 y03 10.1 y0d mul sub moveto TBIV xchart8 0 eq {(a*) show} {(A) show} ifelse TBV xchart8 0 eq {( = 500 [\050) show} {( = 250 [) show} ifelse TBIV (X) show TBV ( / ) show TBIV (X) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( ]) show S50 y03 10.1 y0d mul sub moveto TBV xchart8 0 eq {([1a]) show} {([1b]) show} ifelse S10 y03 11.2 y0d mul sub moveto TBIV xchart8 0 eq {(b*) show} {(B) show} ifelse TBV xchart8 0 eq {( = 200 [\050) show} {( = 100 [) show} ifelse TBIV (Y) show TBV ( / ) show TBIV (Y) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( - ) show xchart8 0 eq {(\050) show} if TBIV (Z) show TBV ( / ) show TBIV (Z) show TBX 0 -40 rmoveto (D65) show 0 40 rmoveto TBV xchart8 0 eq {(\051) show TBX 0 100 rmoveto (1/3) show 0 -100 rmoveto} if TBV ( ]) show S50 y03 11.2 y0d mul sub moveto TBV xchart8 0 eq {([2a]) show} {([2b]) show} ifelse S10 y03 12.4 y0d mul sub moveto TBIV (C) show TBIV xchart8 0 eq {(*) show} if TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} {0 -40 rmoveto (AB) show 0 40 rmoveto} ifelse TBV ( = [ ) show TBIV xchart8 0 eq {(a*) show} {(A) show} ifelse TBX 0 100 rmoveto (2) show 0 -100 rmoveto TBV ( + ) show TBIV xchart8 0 eq {(b*) show} {(B) show} ifelse TBX 0 100 rmoveto (2) show 0 -100 rmoveto TBV ( ] ) show TBX 0 100 rmoveto (0,5) show 0 -100 rmoveto S50 y03 12.2 y0d mul sub moveto TBV xchart8 0 eq {([3a]) show} {([3b]) show} ifelse S10 y03 13.4 y0d mul sub moveto TBIV (h) show TBX xchart8 0 eq {0 -40 rmoveto (ab) show 0 40 rmoveto} {0 -40 rmoveto (AB) show 0 40 rmoveto} ifelse TBV ( = atan [ ) show TBIV xchart8 0 eq {(b*) show} {(B) show} ifelse TBV ( / ) show TBIV xchart8 0 eq {(a*) show} {(A) show} ifelse TBV ( ]) show S50 y03 13.2 y0d mul sub moveto TBV xchart8 0 eq {([4a]) show} {([4b]) show} ifelse /xt2 2150 def /yt2 -2370 def xt2 yt2 translate 0 setgray xp 1450 sub yp 0750 add moveto /L*Xd LCh*5A 0 get def /C*Xd LCh*5A 1 get def /L*Nd LCh*5N 0 get def /L*Wd LCh*5W 0 get def xchart8 0 eq {/xfact1 12 def /yfact1 12 def } { % /xfact1 12 mul 2.5 mul def % /yfact1 12 mul 2.5 mul def /xfact1 12 def /yfact1 12 def } ifelse /xp0 xp 0400 add def /yp0 yp 1000 sub def /xpN xp0 1000 sub def /ypN yp0 1000 sub def xp0 1900 sub yp0 0 sub moveto 3600 0 rlineto %horizontal axis & arrow -100 40 rlineto 100 -40 rlineto -100 -40 rlineto stroke xp0 0000 add yp0 1400 sub moveto 0 3100 rlineto %vertical axis & arrow -40 -100 rlineto 40 100 rlineto 40 -100 rlineto stroke xp0 1800 sub yp0 70 sub moveto 0 140 rlineto stroke %marks, horizontal axis xp0 1200 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 sub yp0 70 sub moveto 0 140 rlineto stroke xp0 0600 add yp0 70 sub moveto 0 140 rlineto stroke xp0 1200 add yp0 70 sub moveto 0 140 rlineto stroke xchart8 0 eq {%xchart8=0 /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } { % /scal_x [(-60) ( -40) ( -20) ( 20) ( 40)] def % /scal_y [( 40) (20) (-20) (-40) ] def /scal_x [(-150) (-100) ( -50) ( 50) ( 100)] def /scal_y [(100) (50) (-50) (-100)] def } ifelse %xchart8=0 TV xp0 2000 sub yp0 220 sub moveto scal_x 0 get show %numbers, horizontal scale xp0 1400 sub yp0 220 sub moveto scal_x 1 get show xp0 0750 sub yp0 220 sub moveto scal_x 2 get show xp0 0400 add yp0 220 sub moveto scal_x 3 get show xp0 1000 add yp0 220 sub moveto scal_x 4 get show xp0 70 sub yp0 1200 add moveto 140 0 rlineto stroke %marks, vertical axis xp0 70 sub yp0 0600 add moveto 140 0 rlineto stroke xp0 70 sub yp0 0600 sub moveto 140 0 rlineto stroke xp0 70 sub yp0 1200 sub moveto 140 0 rlineto stroke xp0 100 add yp0 1150 add moveto scal_y 0 get show %numbers, vertical axis xp0 100 add yp0 0550 add moveto scal_y 1 get show xp0 100 add yp0 0650 sub moveto scal_y 2 get show xp0 100 add yp0 1250 sub moveto scal_y 3 get show TBIK xp0 0080 add yp0 1550 add moveto xchart8 0 eq {(b*) show} {(B) show} ifelse xp0 1550 add yp0 0120 add moveto xchart8 0 eq {(a*) show} {(A) show} ifelse 0.5 setgray xchart5 1 eq {%old hexagon 15 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12 i53 get xfact1 mul add def /yi yp0 LCh*12 i54 get yfact1 mul add def xi yi 0040 0 360 arc fill } for %i=0,6 } if %old hexagon 1 setgray 30 setlinewidth 0 1 6 {/i exch def %i=0,6 0 setgray /i50 i 5 mul def /i53 i50 3 add def %a* /i54 i50 4 add def %b* /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def i 0 eq {xi yi moveto} if i 1 ge {xi yi lineto} if i 6 eq {stroke} if } for %i=0,6 0 1 5 {/i exch def %i=0,5 1 1 3 {/k exch def %k=1,3 0 setgray /i34 i 12 mul k 3 mul add def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi0 xp0 LCh*12n i53 get xfact1 mul add def /yi0 yp0 LCh*12n i54 get yfact1 mul add def /xi1 xp0 LCh*12n i53 5 add get xfact1 mul add def /yi1 yp0 LCh*12n i54 5 add get yfact1 mul add def /xiM xi0 xi1 xi0 sub k 0.25 mul mul add def /yiM yi0 yi1 yi0 sub k 0.25 mul mul add def /r rgb*30Y i34 3 add get def /g rgb*30Y i34 4 add get def /b rgb*30Y i34 5 add get def r g b setrgbcolor xiM yiM 0050 0 360 arc fill } for %k=1,3 } for %i=0,5 newpath /xshift 6 array def /yshift 6 array def % R Y G C B M /xshift [-300 -100 -050 -100 -300 -030] def /yshift [-200 -300 200 -300 -200 -300] def 0 1 5 {/i exch def %i=0,5 0 setgray /i3 i 3 mul def /i50 i 5 mul def /i53 i50 3 add def /i54 i50 4 add def /xi xp0 LCh*12n i53 get xfact1 mul add def /yi yp0 LCh*12n i54 get yfact1 mul add def xi yi 0100 0 360 arc fill /r rgb*36X i3 0 add get def /g rgb*36X i3 1 add get def /b rgb*36X i3 2 add get def r g b setrgbcolor xi yi 0050 0 360 arc fill newpath 0 setgray xi xshift i get add yi yshift i get add moveto tex*36X i 3 mul 2 add get show newpath } for %i=0,5 20 setlinewidth xt2 neg yt2 neg translate } if %xchart6=1 hue circle %******************************************************* showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20070101 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /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 0 def /i*ptrsc 0 def gsave 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 colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if xchart 1 ge {%xchart>=1 /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-F) show pmetam cvishow } if %xchart>=1 /xt 1 def xchart 1 eq {/xt 1 def} if xt 0 eq {%xt=0,1 ifelse /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-Roman FS x i0 get MM 110 MM add y i0 get MM 1 MM sub moveto (http://farbe.li.tu-berlin.de//BGA2/BGA2) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF & ) show (http://farbe.li.tu-berlin.de//BGA2/BGA2) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT & ) show (http://farbe.li.tu-berlin.de//BGA2/BGA2.HTM) show 2.5 MM /Times-ISOL1 FS } %xt=0 { %xt=1 /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 /xmo xlo xro xlo sub 0.5 mul add def /ymo yro 1 MM sub def xmo 1 MM sub ymo moveto 2 MM 0 rlineto stroke xmo ymo 1 MM sub moveto 0 1 MM rlineto stroke 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 /10TIN {10 /Times-ISOL1 FS} def /10TRN {10 /Times-Roman FS} def /12TIN {12 /Times-ISOL1 FS} def /12TRN {12 /Times-Roman FS} def /10TII {10 /TimesI-ISOL1 FS} def /10TRI {10 /Times-Italic FS} def /12TII {12 /TimesI-ISOL1 FS} def /12TRI {12 /Times-Italic FS} def /10TIB {10 /TimesB-ISOL1 FS} def /10TRB {10 /Times-Bold FS} def /12TIB {12 /TimesB-ISOL1 FS} def /12TRB {12 /Times-Bold FS} def /10TIBI {10 /TimesBI-ISOL1 FS} def /10TRBI {10 /Times-BoldItalic FS} def /12TIBI {12 /TimesBI-ISOL1 FS} def /12TRBI {12 /Times-BoldItalic FS} def %special /10TIN_10 {10TIN 0 -2 rmoveto xcolor 1 eq {(10) show} if 0 2 rmoveto} def /10TINK10 {10TIN 0 -2 rmoveto xcolor 1 eq {(,10) show} if 0 2 rmoveto} def /TELi0 8 array def /TELi1 8 array def /TELi 8 array def /TELi0 [(P60) (P55) (P50) (P45) (P40) (P35) (P30) (P25)] def %7 illumin. /TELi1 [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %7 illumin. /xchart8 1 def %xchart8=0: Pxx, xchart8=1: Dxx 0 1 7 {/i exch def %i=0,7 xchart8 0 eq {%xchart8=0 TELi i TELi0 i get put }%xchart8=0 {%xchart8=1 TELi i TELi1 i get put } ifelse %xchart8=1 } for %i=0,7 /xchart41 0 def 0 setgray 12TIN 61 MM 13.5 MM moveto (TUB\255Pr\374fvorlage BGA2; ) showde %0BGA2X-Y 0000# (TUB\255test chart BGA2; ) showen %1BGA2X-Y 0000# (gr\341fico TUB\255BGA2; ) showes %2BGA2X-Y 0000# (TUB\255test graphique BGA2; ) showfr %3BGA2X-Y 0000# (grafico TUB\255BGA2; ) showit %4BGA2X-Y 0000# (TUB\255test chart BGA2; ) showjp %5BGA2X-Y 0000# 12TIN (Optimal\255 und ) showde (Optimal and ) showen 12TII (Arens) show 12TIN (\255Elementarfarben) showde ( elementary colours) showen 61 MM 09.5 MM moveto 12TIN (Farbmanagement f\374r die Ger\344te ) showde (colour management for the devices ) showen 12TII (sRGB & WCGa (Wide Colour Gamut)) show 12TIN ( mit ) showde ( with ) showen 12TII (rgb*) show 12TIN (\255Farbdaten) showde ( data) showen %xchart 1 ge {%xchart>=1 %12TIN %(, 3D=) show colorm cvishow %(, de=) show deintp cvishow %12TII %xchart5f 0 eq {(, sRGB) show} if %xchart5f 1 eq {(, cmyk) show} if %xchart5f 2 eq {(, cmy0) show} if %xchart5f 3 eq {(, cmyk) show} if %colorm 1 eq {(*) show} if %} if %xchart>=1 12TIN 188 MM 13.5 MM moveto (Eingabe: ) showde %0BGA2X-Y 0500# (input: ) showen %1BGA2X-Y 0500# (entrada: ) showes %2BGA2X-Y 0500# (entr\351e: ) showfr %3BGA2X-Y 0500# (immettere: ) showit %4BGA2X-Y 0500# (input: ) showjp %5BGA2X-Y 0500# 12TII (rgb/cmy0/000k/n) show %xchart41 0 eq {( (No 1MR)) show} % {(->rgb ) show % ((1MR)) show} ifelse %xchart xchart3 lt {(w/rgb/cmyk) show % } if %xchart xchart3 ge {%xchart>=xchart3 % (rgb) show % } if %xchart>=xchart3 %10 /Times-ISOL1 FS %0 -2 rmoveto Txx show 0 2 rmoveto %12TIN 12TIN 184 MM 9.5 MM moveto %(Ausgabe: ) showde %0BGA2X-Y 0600# %(output: ) showen %1BGA2X-Y 0600# %(salida: ) showes %2BGA2X-Y 0600# %(sortie: ) showfr %3BGA2X-Y 0600# %(uscita: ) showit %4BGA2X-Y 0600# %(output: ) showjp %5BGA2X-Y 0600# %colorm=0,1! 12TIN %xchart 0 eq {%xchart=0,#0 %xchart41 0 eq {12TIN % (no change) showen % (keine \304nderung) showde} % {12TIN % (change of gamma ) showen % (\304nderung Gamma ) showde % 12TII % (g) show % 10TIN % 0 -2 rmoveto (P) show 0 2 rmoveto} ifelse %12TIN %(rechts) showde %0BGA2X-Y 0700# %(right) showea %1BGA2X-Y 0700# %(ning\372n cambio) showes %2BGA2X-Y 0700# %(aucun changement) showfr %3BGA2X-Y 0700# %(nessun cambiamento) showit %4BGA2X-Y 0700# %(no change compared) showjp %5BGA2X-Y 0700# % }%xchart=0 % {%xchart#0 % 12TIN % colorm 0 eq {%colorm=0 %(Transfer nach ) showde %0BGA2X-Y 0800# %(transfer to ) showen %1BGA2X-Y 0800# %(transfiera a ) showes %2BGA2X-Y 0800# %(transf\351rer \340 ) showfr %3BGA2X-Y 0800# %(trasferire a ) showit %4BGA2X-Y 0800# %(transfer to ) showjp %5BGA2X-Y 0800# % }%colorm=0 % {%colorm=1 %(3D\255Linearisierung ) showde %0BGA2X-Y 0900# %(3D\255linearization to ) showen %1BGA2X-Y 0900# %(3D\255linealizaci\363n a ) showes %2BGA2X-Y 0900# %(linearisation 3D selon ) showfr %3BGA2X-Y 0900# %(3D\255linearizzazione a ) showit %4BGA2X-Y 0900# %(3D\255linearization to ) showjp %5BGA2X-Y 0900# % } ifelse %colorm=1 %12TII %xchart5f 0 eq {(rgb) show} if %xchart5f 1 eq {(cmyk) show} if %xchart5f 2 eq {(cmy0) show} if %xchart5f 3 eq {(cmyk) show} if %colorm 1 eq {(*) show} if %10 /Times-ISOL1 FS %0 -2 rmoveto Txx show 0 2 rmoveto %12TIN %} ifelse %xchart=0,#0 %0 setgray %end white and unvisible 12TIN 62 MM 198.5 MM moveto 12TRN (http://farbe.li.tu-berlin.de/BGA2/BGA2L) show 12TIN (0) show % LSC$ show LEX$ show xchart41 4 le {(; only vector graphic VG) showen (; nur Vektorgrafik VG) showde} if % {(; VG with ISO\255PG image) showen % (; VG mit ISO\255PG\255Bild) showde} ifelse %1 setgray %start white and unvisible (; ) show %xchart 0 eq { (Start\255Ausgabe) showde %0BGA2X-Y 1000# (start output) showen %1BGA2X-Y 1000# (comience salida) showes %2BGA2X-Y 1000# (sortie de production) showfr %3BGA2X-Y 1000# (cominciare l'uscita) showit %4BGA2X-Y 1000# (start output) showjp %5BGA2X-Y 1000# % } if %LSC$ (C) eq { %(Start\255Ausgabe) showde %0BGA2X-Y 1100# %(start output) showen %1BGA2X-Y 1100# %(comience salida) showes %2BGA2X-Y 1100# %(sortie de production) showfr %3BGA2X-Y 1100# %(cominciare l'uscita) showit %4BGA2X-Y 1100# (start output) showjp %5BGA2X-Y 1100# % } if %xchart 1 ge {%xchart>=1 %colorm 0 eq {%colorm=0,1 %(Transfer Ausgabe) showde %0BGA2X-Y 1200# %(transfer output) showen %1BGA2X-Y 1200# %(salida de transferencia) showes %2BGA2X-Y 1200# %(sortie de transfert) showfr %3BGA2X-Y 1200# %(uscita di trasferimento) showit %4BGA2X-Y 1200# %(transfer output) showjp %5BGA2X-Y 1200# % }%colorm=0 % {%colorm=1 %(3D\255Linearisierung) showde %0BGA2X-Y 1300# %(3D\255linearization) showen %1BGA2X-Y 1300# %(3D\255linealizaci\363n) showes %2BGA2X-Y 1300# %(linearisation 3D) showfr %3BGA2X-Y 1300# %(3D\255linearizzzazione) showit %4BGA2X-Y 1300# %(3D\255linearization) showjp %5BGA2X-Y 1300# % } ifelse %colorm=0,1 % } if %xchart>=1 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine 3D\255Linearisierung (OL) ) showde %0BGA2X-Y 1400# (N: no 3D\255linearization (OL) ) showen %1BGA2X-Y 1400# (N: ninguna 3D\255linealizaci\363n (OL) ) showes %2BGA2X-Y 1400# (N: aucun linearisation 3D (OL) ) showfr %3BGA2X-Y 1400# (N: nessun 3D\255linearizzazione (OL) ) showit %4BGA2X-Y 1400# (N: no 3D\255linearization (OL) ) showjp %5BGA2X-Y 1400# (in Datei (F) oder PS\255Startup (S)) showde %0BGA2X-Y 1500# (in file (F) or PS\255startup (S)) showen %1BGA2X-Y 1500# (en archivo (F) o PS\255startup (S)) showes %2BGA2X-Y 1500# (dans fichier (F) ou PS\255startup (S)) showfr %3BGA2X-Y 1500# (nel file (F) o PS\255startup (S)) showit %4BGA2X-Y 1500# (in file (F) or PS\255startup (S)) showjp %5BGA2X-Y 1500# } {LSC$ show (: ) show (3D\255Linearisierung) showde %0BGA2X-Y 1600# (3D\255linearization) showen %1BGA2X-Y 1600# (3D\255linealizaci\363n) showes %2BGA2X-Y 1600# (linearisation 3D) showfr %3BGA2X-Y 1600# (3D\255linearizzzazione) showit %4BGA2X-Y 1600# (3D\255linearization) showjp %5BGA2X-Y 1600# ( BGA2/BGA2L) show LSS$ show LSX$ show (0) show % LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0BGA2X-Y 1700# ( in file (F)) showen %1BGA2X-Y 1700# ( en archivo (F)) showes %2BGA2X-Y 1700# ( dans fichier (F)) showfr %3BGA2X-Y 1700# ( nel file (F)) showit %4BGA2X-Y 1700# ( in file (F)) showjp %5BGA2X-Y 1700# } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0BGA2X-Y 1800# ( in Distiller Startup (S) Directory) showen %1BGA2X-Y 1800# ( en el Distiller Startup (S) Directory) showes %2BGA2X-Y 1800# ( dans le Distiller Startup (S) Directory) showfr %3BGA2X-Y 1800# ( nel Distiller Startup (S) Directory) showit %4BGA2X-Y 1800# ( in Distiller Startup (S) Directory) showjp %5BGA2X-Y 1800# } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0BGA2X-Y 1900# ( in PS\255device (D)) showen %1BGA2X-Y 1900# ( en el PS\255device (D)) showes %2BGA2X-Y 1900# ( dans l'appareil PS (D)) showfr %3BGA2X-Y 1900# ( nel PS\255dispositivo (D)) showit %4BGA2X-Y 1900# ( in PS\255Device (D)) showjp %5BGA2X-Y 1900# } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0BGA2X-Y 2000# ( in Distiller Startup (S) Directory) showen %1BGA2X-Y 2000# ( en el Distiller Startup (S) Directory) showes %2BGA2X-Y 2000# ( dans le Distiller Startup (S) Directory) showfr %3BGA2X-Y 2000# ( nel Distiller Startup (S) Directory) showit %4BGA2X-Y 2000# ( in Distiller Startup (S) Directory) showjp %5BGA2X-Y 2000# } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0BGA2X-Y 2100# ( in PS\255device (D)) showen %1BGA2X-Y 2100# ( en el PS\255device (D)) showes %2BGA2X-Y 2100# ( dans appareil PS (D)) showfr %3BGA2X-Y 2100# ( nel PS\255dispositivo (D)) showit %4BGA2X-Y 2100# ( in PS\255Device (D)) showjp %5BGA2X-Y 2100# } if %0 setgray %end white and unvisible (, Seite ) showde %0BGA2X-Y 2200# (, page ) showen %1BGA2X-Y 2200# (, p\341gina ) showes %2BGA2X-Y 2200# (, page ) showfr %3BGA2X-Y 2200# (, pagina ) showit %4BGA2X-Y 2200# (, page ) showjp %5BGA2X-Y 2200# xchart 1 add cvishow (/) show xchartm cvishow 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien: ) showde %0BGA2X-Y 2300# (see similar files: ) showen %1BGA2X-Y 2300# (vea archivos semejantes: ) showes %2BGA2X-Y 2300# (voir des fichiers similaires: ) showfr %3BGA2X-Y 2300# (vedere dei file simili: ) showit %4BGA2X-Y 2300# (see similar files: ) showjp %5BGA2X-Y 2300# 12TRN (http://farbe.li.tu-berlin.de/BGA2/BGA2.HTM) show 12TIN %(0) show % %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde %0BGA2X-Y 2400# (technical information: ) showen %1BGA2X-Y 2400# (informaci\363n t\351cnica: ) showes %2BGA2X-Y 2400# (informations techniques: ) showfr %3BGA2X-Y 2400# (informazioni tecniche: ) showit %4BGA2X-Y 2400# (technical information: ) showjp %5BGA2X-Y 2400# 12TRN (http://farbe.li.tu-berlin.de) show 12TIN ( oder ) showde %0BGA2X-Y 2500# ( or ) showen %1BGA2X-Y 2500# ( o ) showes %2BGA2X-Y 2500# ( ou ) showfr %3BGA2X-Y 2500# ( o ) showit %4BGA2X-Y 2500# ( or ) showjp %5BGA2X-Y 2500# 12TRN (http://color.li.tu-berlin.de) show 12TIN 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20220301\255BGA2/BGA2L) showde %0BGA2X-Y 2600# (TUB registration: 20220301\255BGA2/BGA2L) showen %1BGA2X-Y 2600# (TUB matr\355cula: 20220301\255BGA2/BGA2L) showes %2BGA2X-Y 2600# (TUB enregistrement: 20220301\255BGA2/BGA2L) showfr %3BGA2X-Y 2600# (TUB iscrizione: 20220301\255BGA2/BGA2L) showit %4BGA2X-Y 2600# (TUB registration: 20220301\255BGA2/BGA2L) showjp %5BGA2X-Y 2600# (0) show % LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde %0BGA2X-Y 2700# (TUB material: code=rha4ta) showen %1BGA2X-Y 2700# (TUB material: code=rha4ta) showes %2BGA2X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3BGA2X-Y 2700# (TUB materiale: code=rha4ta) showit %4BGA2X-Y 2700# (TUB material: code=rha4ta) showjp %5BGA2X-Y 2700# 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 Beurteilung und Messung ) showde %0BGA2X-Y 2800# ( application for evaluation and measurement ) showen %1BGA2X-Y 2800# ( aplicaci\363n para la medida ) showes %2BGA2X-Y 2800# ( application pour la mesure ) showfr %3BGA2X-Y 2800# ( la domanda per la misura ) showit %4BGA2X-Y 2800# ( application for measurement ) showjp %5BGA2X-Y 2800# xchart5f 0 eq {%xchart5f=0 (von Display\255 oder Druck\255Ausgabe) showde %0BGA2X-Y 2900# (of display or print output) showen %1BGA2X-Y 2900# (de display output) showes %2BGA2X-Y 2900# (de sortie sur \350cran) showfr %3BGA2X-Y 2900# (di stampa di display) showit %4BGA2X-Y 2900# (of display output) showjp %5BGA2X-Y 2900# } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0BGA2X-Y 3000# (of offset print output) showen %1BGA2X-Y 3000# (salida en la impressi\363n offset) showes %2BGA2X-Y 3000# (des sorties sur offset) showfr %3BGA2X-Y 3000# (uscita nella stampa di offset) showit %4BGA2X-Y 3000# (of offset print output) showjp %5BGA2X-Y 3000# } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0BGA2X-Y 3100# (of laser printer output) showen %1BGA2X-Y 3100# (salida de impresora l\341ser) showes %2BGA2X-Y 3100# (des sorties sur imprimante laser) showfr %3BGA2X-Y 3100# (di uscita della stampante laser) showit %4BGA2X-Y 3100# (of laser printer output) showjp %5BGA2X-Y 3100# } if %xchart5f=3 %xchart 1 ge {%xchart>=1 %xchart5f 0 eq {%xchart5f=0 %(, keine Separation) showde %0BGA2X-Y 3200# %(, no separation) showen %1BGA2X-Y 3200# %(, ninguna separaci\363n) showes %2BGA2X-Y 3200# %(, aucune s\351paration) showfr %3BGA2X-Y 3200# %(, nessuna separazione) showit %4BGA2X-Y 3200# %(, no separation) showjp %5BGA2X-Y 3200# %} if %chart5f=0 %xchart5f 1 ge {%xchart5f>=1 %(, Separation) showde %0BGA2X-Y 3300# %(, separation) showen %1BGA2X-Y 3300# %(, separaci\363n) showes %2BGA2X-Y 3300# %(, s\351paration) showfr %3BGA2X-Y 3300# %(, separazione) showit %4BGA2X-Y 3300# %(, separation) showjp %5BGA2X-Y 3300# %xchart5f 1 eq xchart5f 3 eq or {(cmyn6) show} if %xchart5f 2 eq {(cmy0) show} if %colorm 1 eq {(*) show} if %colsep 0 eq {( (CMYK))}{( (CMY0))} ifelse show %} if %xchart5f>=1 % % } if %xchart>=1 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 } ifelse %xt=1 grestore gsave %********************************************************** %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %} for %colsepf=0,1 %} for %pchartf=0,0 } for %xchartf=0,0 %} for %xcolorf=0,1 %} for %deintpf=0,1 %} for %colormf=0,1 %} for %lanindf=0,0 %%Trailer