%!PS-Adobe-3.0 EPSF-3.0 PN380-7N.EPS %%BoundingBox: 70 82 772 582 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/PN38/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2015070112000) /ModDate (D:2015070112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %line 20 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /A4quer {598 0 translate 90 rotate} 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-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 /TK1 {250 /Times-ISOL1 FS} bind def /TM1 {300 /Times-ISOL1 FS} bind def /TG1 {350 /Times-ISOL1 FS} bind def /TIK1 {250 /TimesI-ISOL1 FS} bind def /TIM1 {300 /TimesI-ISOL1 FS} bind def /TIG1 {350 /TimesI-ISOL1 FS} bind def /TBK1 {250 /TimesB-ISOL1 FS} bind def /TBM1 {300 /TimesB-ISOL1 FS} bind def /TBG1 {350 /TimesB-ISOL1 FS} bind def /TBIK1 {250 /TimesBI-ISOL1 FS} bind def /TBIM1 {300 /TimesBI-ISOL1 FS} bind def /TBIG1 {350 /TimesBI-ISOL1 FS} bind def /CBKK {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 /CBKKK {160 /CourierB-ISOL1 FS} bind def /TV {080 /Times-ISOL1 FS} bind def /TS {100 /Times-ISOL1 FS} bind def /TK {125 /Times-ISOL1 FS} bind def /TM {140 /Times-ISOL1 FS} bind def /TG {175 /Times-ISOL1 FS} bind def /TIV {080 /TimesI-ISOL1 FS} bind def /TIS {100 /TimesI-ISOL1 FS} bind def /TIK {125 /TimesI-ISOL1 FS} bind def /TIM {140 /TimesI-ISOL1 FS} bind def /TIG {175 /TimesI-ISOL1 FS} bind def /TBV {080 /TimesB-ISOL1 FS} bind def /TBS {100 /TimesB-ISOL1 FS} bind def /TBK {125 /TimesB-ISOL1 FS} bind def /TBM {140 /TimesB-ISOL1 FS} bind def /TBG {175 /TimesB-ISOL1 FS} bind def /TBIV {080 /TimesBI-ISOL1 FS} bind def /TBIS {100 /TimesBI-ISOL1 FS} bind def /TBIK {125 /TimesBI-ISOL1 FS} bind def /TBIM {140 /TimesBI-ISOL1 FS} bind def /TBIG {175 /TimesBI-ISOL1 FS} bind def /TY {iyt /Times-ISOL1 FS} bind def /TYI {iyt /TimesI-ISOL1 FS} bind def /TYB {iyt /TimesB-ISOL1 FS} bind def /TYBI {iyt /TimesBI-ISOL1 FS} bind 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 /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 %************************************************************ /RGB54CR_L 162 array def %54x3=162 /RGB54CR_L [%54 colours of colour rendering (CR) test chart 1.000 0.000 0.000 %01 R00Yd %RGB54CR 1.000 0.250 0.000 %02 R25Yd 1.000 0.500 0.000 %03 R50Yd 1.000 0.750 0.000 %04 R75Yd 1.000 1.000 0.000 %05 Y00Gd 0.750 1.000 0.000 %06 Y25Gd 0.500 1.000 0.000 %07 Y50Gd 0.250 1.000 0.000 %08 Y75Gd 0.000 1.000 0.000 %09 G00Bd = 10 0.000 1.000 0.000 %10 G00Bd 0.000 1.000 0.500 %11 G25Bd 0.000 1.000 1.000 %12 G50Bd 0.000 0.500 1.000 %13 G75Bd 0.000 0.000 1.000 %14 B00Rd 0.500 0.000 1.000 %15 B25Rd 1.000 0.000 1.000 %16 B50Rd 1.000 0.000 0.500 %17 B75Rd 1.000 0.000 0.000 %18 R00Yd = 01 1.000 0.500 0.500 %19 R00Yd %lcolors 1.000 0.750 0.500 %20 R50Yd 1.000 1.000 0.500 %21 Y00Gd 0.750 1.000 0.500 %22 Y50Gd 0.500 1.000 0.500 %23 G00Bd 0.500 1.000 1.000 %24 G50Bd 0.500 0.500 1.000 %25 B00Rd 1.000 0.500 1.000 %26 B50Rd 1.000 0.500 0.500 %27 R00Yd = 19 0.750 0.250 0.250 %28 R00Yd %zcolors 0.750 0.500 0.250 %29 R50Yd 0.750 0.750 0.250 %30 Y00Gd 0.500 0.750 0.250 %31 Y50Gd 0.250 0.750 0.250 %32 G00Bd 0.250 0.750 0.750 %33 G50Bd 0.250 0.250 0.750 %34 B00Rd 0.750 0.250 0.750 %35 B50Rd 0.750 0.250 0.250 %36 R00Yd = 28 0.500 0.000 0.000 %37 R00Yd %dcolors 0.500 0.250 0.000 %38 R50Yd 0.500 0.500 0.000 %38 Y00Gd 0.250 0.500 0.000 %40 Y50Gd 0.000 0.500 0.000 %41 G00Bd 0.000 0.500 0.500 %42 G50Bd 0.000 0.000 0.500 %43 B00Rd 0.500 0.000 0.500 %44 B50Rd 0.500 0.000 0.000 %45 R00Yd = 37 0.000 0.000 0.000 %46 N00Wd %ncolors 0.125 0.125 0.125 %47 N13Wd 0.250 0.250 0.250 %48 N25Md 0.375 0.375 0.375 %49 N38Wd 0.500 0.500 0.500 %50 N50Wd 0.625 0.625 0.625 %51 N63Wd 0.750 0.750 0.750 %52 N75Wd 0.875 0.875 0.875 %53 N88Wd 1.000 1.000 1.000 %54 W00Nd = W ] def %54 colours of colour rendering test chart /RGB54CRt_L 54 array def /RGB54CRt_L [%high chromatic series: %relative hue h*, brillance i*, and chroma c*, range 0 ... 100 (R00Y_100_100) (R25Y_100_100) (R50Y_100_100) (R75Y_100_100) (Y00G_100_100) (Y25G_100_100) (Y50G_100_100) (Y75G_100_100) (G00B_100_100) (G00B_100_100) (G25B_100_100) (G50B_100_100) (G75B_100_100) (B00M_100_100) (B25R_100_100) (B50R_100_100) (B75R_100_100) (R00Y_100_100) %whitetish series (R00Y_100_050) (R50Y_100_050) (Y00G_100_050) (Y50G_100_050) (G00B_100_050) (G50B_100_050) (B00R_100_050) (B50R_100_050) (R00Y_100_050) %grayish series (R00Y_075_050) (R50Y_075_050) (Y00G_075_050) (Y50G_075_050) (G00B_075_050) (G50B_075_050) (B00R_075_050) (B50R_075_050) (R00Y_075_050) %blackish series (R00Y_050_050) (R50Y_050_050) (Y00G_050_050) (Y50G_050_050) (G00B_050_050) (G50B_050_050) (B00R_050_050) (B50R_050_050) (R00Y_050_050) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) ] def /RGB54CM_L 162 array def %54x3=162 /RGB54CM_L [%54 colours of colour rendering metamers (CM) test chart 0.750 0.250 0.250 %01 R00Yd %RGB54CM, zcolors 0.750 0.500 0.250 %02 R50Yd 0.750 0.750 0.250 %03 Y00Gd 0.500 0.750 0.250 %04 Y50Gd 0.250 0.750 0.250 %05 G00Bd 0.250 0.750 0.750 %06 G50Bd 0.250 0.250 0.750 %07 B00Rd 0.750 0.250 0.750 %08 B50Rd 0.750 0.250 0.250 %09 R00Yd = 28 0.750 0.250 0.250 %10 R00Yd %RGB54CM, zcolors 0.750 0.500 0.250 %11 R50Yd 0.750 0.750 0.250 %12 Y00Gd 0.500 0.750 0.250 %13 Y50Gd 0.250 0.750 0.250 %14 G00Bd 0.250 0.750 0.750 %15 G50Bd 0.250 0.250 0.750 %16 B00Rd 0.750 0.250 0.750 %17 B50Rd 0.750 0.250 0.250 %18 R00Yd = 28 0.750 0.250 0.250 %19 R00Yd %RGB54CM, zcolors 0.750 0.500 0.250 %20 R50Yd 0.750 0.750 0.250 %21 Y00Gd 0.500 0.750 0.250 %22 Y50Gd 0.250 0.750 0.250 %23 G00Bd 0.250 0.750 0.750 %24 G50Bd 0.250 0.250 0.750 %25 B00Rd 0.750 0.250 0.750 %26 B50Rd 0.750 0.250 0.250 %27 R00Yd = 28 0.000 0.000 0.000 %28 N00Wd %ncolors 0.125 0.125 0.125 %29 N13Wd 0.250 0.250 0.250 %30 N25Md 0.375 0.375 0.375 %31 N38Wd 0.500 0.500 0.500 %32 N50Wd 0.625 0.625 0.625 %33 N63Wd 0.750 0.750 0.750 %34 N75Wd 0.875 0.875 0.875 %35 N88Wd 1.000 1.000 1.000 %36 W00Nd = W 0.000 0.000 0.000 %37 N00Wd %ncolors 0.125 0.125 0.125 %38 N13Wd 0.250 0.250 0.250 %39 N25Md 0.375 0.375 0.375 %40 N38Wd 0.500 0.500 0.500 %41 N50Wd 0.625 0.625 0.625 %42 N63Wd 0.750 0.750 0.750 %43 N75Wd 0.875 0.875 0.875 %44 N88Wd 1.000 1.000 1.000 %45 W00Nd = W 0.000 0.000 0.000 %46 N00Wd %ncolors 0.125 0.125 0.125 %47 N13Wd 0.250 0.250 0.250 %48 N25Md 0.375 0.375 0.375 %49 N38Wd 0.500 0.500 0.500 %50 N50Wd 0.625 0.625 0.625 %51 N63Wd 0.750 0.750 0.750 %52 N75Wd 0.875 0.875 0.875 %53 N88Wd 1.000 1.000 1.000 %54 W00Nd = W ] def %54 colours of colour rendering test chart /RGB54CMt_L 54 array def /RGB54CMt_L [%3 times chromatic grayish series, 3 times gray series %relative hue h*, brillance i*, and chroma c*, range 0 ... 100 %grayish series (R00Y_075_050) (R50Y_075_050) (Y00G_075_050) (Y50G_075_050) (G00B_075_050) (G50B_075_050) (B00R_075_050) (B50R_075_050) (R00Y_075_050) %grayish series (R00Y_075_050) (R50Y_075_050) (Y00G_075_050) (Y50G_075_050) (G00B_075_050) (G50B_075_050) (B00R_075_050) (B50R_075_050) (R00Y_075_050) %grayish series (R00Y_075_050) (R50Y_075_050) (Y00G_075_050) (Y50G_075_050) (G00B_075_050) (G50B_075_050) (B00R_075_050) (B50R_075_050) (R00Y_075_050) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) %gray series (NW_000) (NW_013) (NW_025) (NW_038) (NW_050) (NW_063) (NW_075) (NW_088) (NW_100) ] def %****************************************************** /F49col00 147 array def %48+1x3 /F49col00 [%Hue circle no. 0 to 47+1; hue circle de 1.000 0.000 0.000 %00 r00ye r00yd %standard e or d interpretation 1.000 0.125 0.000 %01 r12ye r12yd 1.000 0.250 0.000 %02 r25ye r25yd 1.000 0.375 0.000 %03 r37ye r37yd 1.000 0.500 0.000 %04 r50ye r50yd 1.000 0.625 0.000 %05 r62ye r62yd 1.000 0.750 0.000 %06 r75ye r75yd 1.000 0.875 0.000 %07 r87ye r87yd 1.000 1.000 0.000 %08 y00ge y00gd 0.875 1.000 0.000 %09 y12ge y12gd 0.750 1.000 0.000 %10 y25ge y25gd 0.625 1.000 0.000 %11 y37ge y37gd 0.500 1.000 0.000 %12 y50ge y50gd 0.375 1.000 0.000 %13 y62ge y62gd 0.250 1.000 0.000 %14 y75ge y75gd 0.125 1.000 0.000 %15 y87ge y87gd 0.000 1.000 0.000 %16 g00be g00cd 0.000 1.000 0.125 %17 g06be g12cd 0.000 1.000 0.250 %18 g12be g25cd 0.000 1.000 0.375 %19 g18be g37cd 0.000 1.000 0.500 %20 g25be g50cd 0.000 1.000 0.625 %21 g31be g62cd 0.000 1.000 0.750 %22 g37be g75cd 0.000 1.000 0.875 %23 g43be g87cd 0.000 1.000 1.000 %24 g50be c00bd 0.000 0.875 1.000 %25 g56be c12bd 0.000 0.750 1.000 %26 g62be c25bd 0.000 0.625 1.000 %27 g68be c37bd 0.000 0.500 1.000 %28 g75be c50bd 0.000 0.375 1.000 %29 g81be c62bd 0.000 0.250 1.000 %30 g87be c75bd 0.000 0.125 1.000 %31 g93be c87bd 0.000 0.000 1.000 %32 b00re b00md 0.125 0.000 1.000 %33 b06re b12md 0.250 0.000 1.000 %34 b12re b25md 0.375 0.000 1.000 %35 b18re b37md 0.500 0.000 1.000 %36 b24re b50md 0.625 0.000 1.000 %37 b31re b67md 0.750 0.000 1.000 %38 b37re b75md 0.875 0.000 1.000 %39 b43re b87md 1.000 0.000 1.000 %40 b50re m00rd 1.000 0.000 0.875 %41 b56re m12rd 1.000 0.000 0.750 %42 b62re m25rd 1.000 0.000 0.625 %43 b68re m37rd 1.000 0.000 0.500 %44 b75re m50rd 1.000 0.000 0.375 %45 b81re m62rd 1.000 0.000 0.250 %46 b87re m75rd 1.000 0.000 0.125 %47 b93re m87rd 1.000 0.000 0.000 %48 r00ye r00yd no. 0 ] 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 /tfn {0.00 0.00 0.00 setrgbcolor} bind def /tfd {0.25 0.25 0.25 setrgbcolor} bind def /tfz {0.50 0.50 0.50 setrgbcolor} bind def /tfh {0.75 0.75 0.75 setrgbcolor} bind def /tfw {1.00 1.00 1.00 setrgbcolor} bind 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 /outrecfi { %x y width heigth c m y k rec fill} bind def /outrecst { %x y width heigth c m y k rec stroke} bind 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 /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /nshow {iyt /Times-ISOL1 FS show} def /nishow {-30 -50 rmoveto iyt 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def /nishow0 {-00 -50 rmoveto iyt 20 sub /Times-ISOL1 FS show 00 50 rmoveto} def /nishowx {-00 -50 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 50 rmoveto} def /kshow {iyt /TimesI-ISOL1 FS show} def /bshow {iyt /TimesB-ISOL1 FS show} def /jshow {iyt /TimesBI-ISOL1 FS show} def /ishow {-30 -50 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 30 50 rmoveto} def /ishow0 {-00 -50 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 00 50 rmoveto} def /eshow { 00 070 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 00 -070 rmoveto} def /neshow { 00 070 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 -070 rmoveto} def /F25col00 75 array def %24+1x3 0 1 24 {/i exch def %i=0,24 /j i 2 mul def /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /j30 j 3 mul def /j31 j30 1 add def /j32 j30 2 add def F25col00 i30 F49col00 j30 get put F25col00 i30 1 add F49col00 j31 get put F25col00 i30 2 add F49col00 j32 get put } for %i=0,24 /F17col00 51 array def %16+1x3 0 1 7 {/i exch def %i=0,7 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def F17col00 i30 F25col00 i30 get put F17col00 i31 F25col00 i31 get put F17col00 i32 F25col00 i32 get put } for %i=0,7 8 2 24 {/i exch def %i=8,24 /j 8 i 8 sub 2 idiv add def /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /j30 j 3 mul def /j31 j30 1 add def /j32 j30 2 add def F17col00 j30 F25col00 i30 get put F17col00 j31 F25col00 i31 get put F17col00 j32 F25col00 i32 get put } for %i=8,24 %************************************************ /lanind1 5 def /lanind2 5 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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def /lanindd laninddg def} if /colormg where {pop /colorm1 colormg def /colorm2 colormg def /colormd colormdg def} if /deintpg where {pop /deintp1 deintpg def /deintp2 deintpg def /deintpd deintpdg def} if /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def /xcolord xcolordg def} if /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def /xchartd xchartdg def} if /pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def /pchartd pchartdg def} if /colsepg where {pop /colsep1 colsepg def /colsep2 colsepg def /colsepd colsepdg def} if /pmetamg where {pop /pmetam1 pmetamg def /pmetam2 pmetamg def /pmetamd pmetamdg def} if /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 2 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 %only for editorial change of the following loops %/lanind lanind1 def % %/colorm colorm1 def % %/deintp deintp1 def % %/xcolor xcolor1 def % %/xchart xchart1 def % %/pchart pchart1 def % %/colsep colsep1 def % %/pmetam pmetam1 def % /lanind lanind1 def %lanind1 lanindd lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 colormd colorm2 {/colorm exch def %output showpage /deintp deintp1 def %deintp1 deintpd deintp2 {/deintp exch def %output showpage /xcolor xcolor1 def %xcolor1 xcolord xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 xchartd xchart2 {/xchart exch def %output showpage /pchart pchart1 def %pchart1 pchartd pchart2 {/pchart exch def %output showpage /colsep colsep1 def %colsep1 colsepd colsep2 {/colsep exch def %output showpage gsave 72 90 translate /xt 1 def xchart 1 eq {/xt 1 def} if xt 0 eq {0.010 MM} {0.010 MM} ifelse dup scale %xt 0 eq {0.010 MM} {0.010 MM} ifelse dup scale /fakt 4.1 def /iyt 110 fakt mul def %text size /iyd 150 fakt mul def %line difference /ix00 20 fakt mul def %text 1 /iy00 4070 fakt mul def %text 2 /ix01 ix00 5420 fakt mul add def /pmetam pmetam1 0 add def %special for metameric samples xchart 0 eq {/ausz 8 def /xchartt (A) def} if %loop not possible xchart 1 eq {/ausz 8 def /xchartt (F) def} if %in case of image xchart 2 eq {/ausz 1 def /xchartt (C) def} if xchart 3 eq {/ausz 2 def /xchartt (M) def} if xchart 4 eq {/ausz 3 def /xchartt (Y) def} if xchart 5 eq {/ausz 7 def /xchartt (N) def} if xchart 6 ge {/ausz 8 def /xchartt (F) def} if pmetam 0 eq {%pmetam=0 250 /Times-ISOL1 FS 100 -250 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow 2000 -250 moveto (PN380-7) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse 40 setlinewidth xchart 5 le {0.5 setgray} {1 setgray} ifelse %xchart3P4=5 fix 0 0 moveto 24600 0 rlineto 0 17220 rlineto -24600 0 rlineto closepath fill 0 setgray 0 0 moveto 24600 0 rlineto 0 17220 rlineto -24600 0 rlineto closepath stroke } if %pmetam=0 /F17colou 51 array def 0 1 50 {/i exch def %i=0,50 %16 step hue circle no. 0 to 15 F17colou i F17col00 i get put } for %i=0,50 /RGB54CX_L 162 array def /RGB54CXt_L 54 array def xchart4 0 eq {%xchart4=0 0 1 161 {/i exch def %i=0,161 RGB54CX_L i RGB54CR_L i get put } for %i=0,161 0 1 53 {/i exch def %i=0,53 RGB54CXt_L i RGB54CRt_L i get put } for %i=0,53 }%xchart4=0 {%xchart4#0 0 1 161 {/i exch def %i=0,161 RGB54CX_L i RGB54CM_L i get put } for %i=0,161 0 1 53 {/i exch def %i=0,53 RGB54CXt_L i RGB54CMt_L i get put } for %i=0,53 } ifelse %xchart4#0 xchart4 0 eq {%xchart4=0 /cseri1en [(maximum) (maximum) (whitish) (central) (blackish) (grey)] def /cseri2en [(m) (m) (w) (z) (n) (g) ] def /cseri3en [() () () () () () ] def /cseri1de [(maximum)(maximum)(wei\337\255)(zentral)(schw\344rz\255)(grau)] def /cseri2de [(m) (m) (lich) (z) (lich) (g)] def /cseri3de [() () (w) () (n) ( )] def /cseri1fr [(maximum) (maximum) (blancheur) (central) (noirceur) (gris)] def /cseri2fr [(m) (m) (w) (z) (n) (g) ] def /cseri3fr [() () () () () () ] def /cseri1es [(maximum) (maximum) (whitish) (central) (blackish) (grey)] def /cseri2es [(m) (m) (w) (z) (n) (g) ] def /cseri3es [() () () () () () ] def /cseri1it [(maximum) (maximum) (whitish) (central) (blackish) (grey)] def /cseri2it [(m) (m) (w) (z) (n) (g) ] def /cseri3it [() () () () () () ] def /cseri1jp [(maksimum) (maksimum) (hvitlig) (sentral) (sortlig) (gr\345)] def /cseri2jp [(m) (m) (w) (z) (n) (g) ] def /cseri3jp [() () () () () () ] def } if %xchart4=0 xchart4 1 eq {%xchart4=1 /cseri1en [(metameric)(central)(metameric)(metameric)(grey) (metameric)] def /cseri2en [(m) (z) (m) (m) (g) (m) ] def /cseri3en [(D65) (D65/D50)(D50) (D65) (D65/D50)(D50) ] def /cseri1de [(metamer) (central)(metamer) (metamer) (grau) (metamer) ] def /cseri2de [(m) (z) (m) (m) (g) (m) ] def /cseri3de [(D65) (D65/D50)(D50) (D65) (D65/D50)(D50) ] def /cseri1fr [(m\351tam\350re)(central)(m\351tam\350re)(m\351tam\350re)(gris) (m\351tam\350re)] def /cseri2fr [(m) (z) (m) (m) (g) (m) ] def /cseri3fr [(D65) (D65/D50)(D50) (D65) (D65/D50)(D50) ] /cseri1es [(metameric)(central)(metameric)(metameric)(grey) (metameric)] def /cseri2es [(m) (z) (m) (m) (g) (m) ] def /cseri3es [(D65) (D65/D50)(D50) (D65) (D65/D50)(D50) ] def /cseri1it [(metameric)(central)(metameric)(metameric)(grey) (metameric)] def /cseri2it [(m) (z) (m) (m) (g) (m) ] def /cseri3it [(D65) (D65/D50)(D50) (D65) (D65/D50)(D50) ] def /cseri1jp [(metamer)(sentral)(metamer)(metamer)(gr\345) (metamer)] def /cseri2jp [(m) (z) (m) (m) (g) (m) ] def /cseri3jp [(D65) (D65/D50)(D50) (D65) (D65/D50)(D50) ] def } if %xchart4=1 xchart4 2 eq {%xchart4=2 /cseri1en [(metameric)(central)(metameric)(metameric)(grey) (metameric)] def /cseri2en [(m) (z) (m) (m) (g) (m) ] def /cseri3en [(A) (A/P4000)(P4000) (A) (A/P4000)(P4000) ] def /cseri1de [(metamer) (central)(metamer) (metamer) (grau) (metamer) ] def /cseri2de [(m) (z) (m) (m) (g) (m) ] def /cseri3de [(A) (A/P4000)(P4000) (A) (A/P4000)(P4000) ] def /cseri1fr [(m\351tam\350re)(central)(m\351tam\350re)(m\351tam\350re)(gris) (m\351tam\350re)] def /cseri2fr [(m) (z) (m) (m) (g) (m) ] def /cseri3fr [(A) (A/P4000)(P4000) (A) (A/P4000)(P4000) ] /cseri1es [(metameric)(central)(metameric)(metameric)(grey) (metameric)] def /cseri2es [(m) (z) (m) (m) (g) (m) ] def /cseri3es [(A) (A/P4000)(P4000) (A) (A/P4000)(P4000) ] def /cseri1it [(metameric)(central)(metameric)(metameric)(grey) (metameric)] def /cseri2it [(m) (z) (m) (m) (g) (m) ] def /cseri3it [(A) (A/P4000)(P4000) (A) (A/P4000)(P4000) ] def /cseri1jp [(metamer)(sentral)(metamer)(metamer)(gr\345) (metamer)] def /cseri2jp [(m) (z) (m) (m) (g) (m) ] def /cseri3jp [(A) (A/P4000)(P4000) (A) (A/P4000)(P4000) ] def } if %xchart4=2 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 %****************************************************************************** pmetam 0 eq xchart 5 le and {%pmetam=0, xchart<=5 ix00 iy00 moveto 1 setgray TYB ix00 iy00 moveto 1 setgray TYB xchart4 0 eq {%xchart4=0 (Test chart 1 for color rendering: ) showen (54 standard colours for D65) showen (Pr\374fvorlage 1 f\374r Farbwiedergabe: ) showde (54 Norm\255Farben f\374r D65) showde (Test chart 1 for color rendering: ) showes (54 standard colours for D65) showes (test no 1 pour un rendu de couleurs - ) showfr (54 couleurs standard pour D65) showfr (Test chart 1 for color rendering: ) showit (54 standard colours for D65) showit (Pr\370veplansje 1 for fargegjengivelse: ) showjp (54 standard farger for D65) showjp } if %xchart4=0 xchart4 1 eq {%xchart4=1 (Test chart 2 for color rendering: ) showen (metameric colours D65 and D50) showen (Pr\374fvorlage 2 f\374r Farbwiedergabe: ) showde (metamere Farben D65 und D50) showde (Test chart 2 for color rendering: ) showes (metameric colours D65 and D50) showes (test no 2 pour un rendu de couleurs - ) showfr (couleurs m\350tam\351res pour D65 et D50) showfr (Test chart 2 for color rendering: ) showit (metameric colours D65 and D50) showit (Pr\370veplansje 2 for fargegjengivelse: ) showjp (metamere farger D65 og D50) showjp } if %xchart4=1 xchart4 2 eq {%xchart4=2 (Test chart 3 for color rendering: ) showen (metameric colours A and P4000) showen (Pr\374fvorlage 2 f\374r Farbwiedergabe: ) showde (metamere Farben A und P4000) showde (Test chart 3 for color rendering: ) showes (metameric colours A and P4000) showes (test no 3 pour un rendu de couleurs - ) showfr (couleurs m\350tam\351res pour A et P4000) showfr (Test chart 3 for color rendering: ) showes (metameric colours A and P4000) showes (Pr\370veplansje 3 for fargegjengivelse: ) showjp (metamere farger A og P4000) showjp } if %xchart4=2 /stanout 2 def TYB stanout 0 eq {%stanout=0 (; standard display) showen (; Normdisplay) showde (; standard display) showes (; \351cran standard) showfr (; standard display) showit (; standard display) showjp TYBI ( (sRGB)) show } if %stanout=0 stanout 1 eq {%stanout=1 (; offset print) showen (; Offsetdruck) showde (; offset print) showes (; l'impression offset) showfr (; offset print) showit (; offset trykk) showjp TYBI ( (CMYK)) show } if %stanout=1 stanout 2 eq {%stanout=2 (; offset print) showen (; Offsetdruck) showde (; offset print) showes (; l'impression offset) showfr (; offset print) showit (; offset trykk) showjp TYBI ( (CMY0)) show } if %stanout=2 stanout 3 eq {%stanout=3 (; laser printer) showen (; Laserdrucker) showde (; laser printer) showes (; l'impression laser) showfr (; laser printer) showit (; laserprinter) showjp TYBI ( (CMYK)) show } if %stanout=3 xchart 1 ge {%xchart>=1 TYBI (; rgb->rgb) jshow Txx ishow0 } if %xchart>=1 /iy 3550 fakt mul 410 fakt mul add def 1 setgray TYB ix01 iy moveto (Series:) showen (Serie:) showde (Series:) showes (series :) showfr (Series:) showit (Serie:) showjp } if %pmetam=0, xchart<=5 pmetam 0 eq {/j1 1 def /jd 3 def /j2 4 def} if pmetam 1 eq {/j1 0 def /jd 3 def /j2 3 def} if pmetam 2 eq {/j1 2 def /jd 3 def /j2 5 def} if j1 jd j2 {/j exch def %j=0,5 /iy 3550 fakt mul j 670 fakt mul mul sub def ix01 iy 320 fakt mul add moveto lanind 0 eq {cseri1de j get showde} if lanind 1 eq {cseri1en j get showen} if lanind 2 eq {cseri1es j get showes} if lanind 3 eq {cseri1fr j get showfr} if lanind 4 eq {cseri1it j get showit} if lanind 5 eq {cseri1jp j get showjp} if ix01 iy 200 fakt mul add moveto lanind 0 eq {cseri2de j get showde} if lanind 1 eq {cseri2en j get showen} if lanind 2 eq {cseri2es j get showes} if lanind 3 eq {cseri2fr j get showfr} if lanind 4 eq {cseri2it j get showit} if lanind 5 eq {cseri2jp j get showjp} if ix01 iy 080 fakt mul add moveto lanind 0 eq {cseri3de j get showde} if lanind 1 eq {cseri3en j get showen} if lanind 2 eq {cseri3es j get showes} if lanind 3 eq {cseri3fr j get showfr} if lanind 4 eq {cseri3it j get showit} if lanind 5 eq {cseri3jp j get showjp} if j j2 eq {%j=j2 xchart xchart3 ge {/iyt 055 fakt mul def %text size ix01 iy 000 fakt mul sub moveto (Lab*N0) kshow (=) nshow L*N0io cvsshow1 (, ) show A*N0io cvsshow1 (, ) show B*N0io cvsshow1 ix01 iy 060 fakt mul sub moveto (Lab*W0) kshow (=) nshow L*W0io cvsshow1 (, ) show A*W0io cvsshow1 (, ) show B*W0io cvsshow1 ix01 iy 120 fakt mul sub moveto (Lab*N1) kshow (=) nshow L*N1io cvsshow1 (, ) show A*N1io cvsshow1 (, ) show B*N1io cvsshow1 ix01 iy 180 fakt mul sub moveto (Lab*W1) kshow (=) nshow L*W1io cvsshow1 (, ) show A*W1io cvsshow1 (, ) show B*W1io cvsshow1 } if } if %j=j2 } for %j=0,5 /iyt 060 fakt mul def %text size j1 jd j2 {/j exch def %j=0,5 0 1 8 {/i exch def %i=0,8 () nshow /n j 9 mul i add def /i30 n 3 mul def /i31 i30 1 add def /i32 i30 2 add def RGB54CX_L i30 get RGB54CX_L i31 get RGB54CX_L i32 get setrgbcolor /ix 100 fakt mul i 600 fakt mul mul add def /iy 3500 fakt mul j 670 fakt mul mul sub def ix iy 500 fakt mul 500 fakt mul rec fill 1 RGB54CX_L i30 get sub 1 RGB54CX_L i31 get sub 1 RGB54CX_L i32 get sub 0 setcmykcolor ix 125 fakt mul add iy 125 fakt mul add 250 fakt mul 250 fakt mul rec fill xchart4 0 eq {%xchart4=0 [ ] 0 setdash n 49 eq {1 1 1 setrgbcolor ix iy 500 fakt mul 500 fakt mul rec stroke} if }%xchart4=0 {%xchart4>0 [ ] 0 setdash n 31 eq n 40 eq or n 49 eq or {1 1 1 setrgbcolor ix iy 500 fakt mul 500 fakt mul rec stroke} if n 27 eq {[30 fakt mul] 0 setdash 1 1 1 setrgbcolor ix iy 500 fakt mul 500 fakt mul rec stroke} if n 28 eq {[30 fakt mul] 0 setdash 1 1 1 setrgbcolor ix iy 500 fakt mul 500 fakt mul rec stroke} if n 45 eq {[30 fakt mul] 0 setdash 1 1 1 setrgbcolor ix iy 500 fakt mul 500 fakt mul rec stroke} if n 46 eq {[30 fakt mul] 0 setdash 1 1 1 setrgbcolor ix iy 500 fakt mul 500 fakt mul rec stroke} if n 35 eq {[30 fakt mul] 0 setdash 0 0 0 setrgbcolor ix iy 500 fakt mul 500 fakt mul rec stroke} if n 53 eq {[30 fakt mul] 0 setdash 0 0 0 setrgbcolor ix iy 500 fakt mul 500 fakt mul rec stroke} if } ifelse %xchart4>0 1 setgray ix iy 80 fakt mul sub moveto n 1 add dup 9 le {(0) show} if cvishow n 08 eq {(=10) show} if n 17 eq {(=01) show} if n 26 eq {(=19) show} if n 35 eq {(=28) show} if n 44 eq {(=37) show} if (: ) show RGB54CXt_L n get show colorm 1 eq {(*) show} if 0 -30 fakt mul rmoveto Fxx show 0 30 fakt mul rmoveto } for %i=0,8 } for %j=0,5 %*************************************************************************** showpage grestore %} for %colsep=0,1 %} for %pchart=0,0 %} for %xchart=0,18 %} for %xcolor=3,3 %} for %deintp=0,1 %} for %colorm=0,1 %} for %lanind=0,0 %%Trailer