%!PS-Adobe-3.0 EPSF-3.0 PN150-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/PN15/) /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:2012030112000) /ModDate (D:2012030112000) /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 %**************************************************************************** /XYZ*system54 { %BEG procedure XYZ*system54 /XYZrx089 162 array def %54*3=162 /XYZrx100 162 array def /LAB*rx089 162 array def %54*3=162 /IM0 54 def /IM1 IM0 1 sub def /IM3 IM0 3 mul 1 sub def /IM4 IM0 4 mul 1 sub def /RGB0_L 162 array def 0 1 IM3 {/i exch def %i=0,IM3 RGB0_L i RGB54CX_L i get 1000 mul put } for %i=0,IM3 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /j30 i 3 mul def /j31 j30 1 add def /j32 j30 2 add def RGB0_L j30 get 0.04045 le %equations of IEC 61966-2-1:2003 {/RsRGB RGB0_L j30 get 12.92 div def} {/RsRGB RGB0_L j30 get 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse RGB0_L j31 get 0.04045 le {/GsRGB RGB0_L j31 get 12.92 div def} {/GsRGB RGB0_L j31 get 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse RGB0_L j32 get 0.04045 le {/BsRGB RGB0_L j32 get 12.92 div def} {/BsRGB RGB0_L j32 get 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse XYZrx100 i30 0.4124 RsRGB mul 0.3576 GsRGB mul add 0.1805 BsRGB mul add 100 mul put XYZrx100 i31 0.2126 RsRGB mul 0.7152 GsRGB mul add 0.0722 BsRGB mul add 100 mul put XYZrx100 i32 0.0193 RsRGB mul 0.1192 GsRGB mul add 0.9505 BsRGB mul add 100 mul put } for %i=0,IM1 0 1 IM3 {/i exch def %i=0,IM3 XYZrx089 i XYZrx100 i get 0.8859 mul put } for %i=0,IM3 /iN 45 3 mul def /iW 53 3 mul def /XLN100 XYZrx100 iN get def /YLN100 XYZrx100 iN 1 add get def /ZLN100 XYZrx100 iN 2 add get def /XLW100 XYZrx100 iW get def /YLW100 XYZrx100 iW 1 add get def /ZLW100 XYZrx100 iW 2 add get def /XLN089 XYZrx089 iN get def /YLN089 XYZrx089 iN 1 add get def /ZLN089 XYZrx089 iN 2 add get def /XLW089 XYZrx089 iW get def /YLW089 XYZrx089 iW 1 add get def /ZLW089 XYZrx089 iW 2 add get def % achromatic (D65) colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLWD65089 XLWD65100 0.8859 mul def /YLWD65089 YLWD65100 0.8859 mul def /ZLWD65089 ZLWD65100 0.8859 mul def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def %achromatic (D50) colours /XLWD50100 96.42 def /YLWD50100 100.00 def /ZLWD50100 82.51 def /XLWD50089 XLWD50100 0.8859 mul def /YLWD50089 YLWD50100 0.8859 mul def /ZLWD50089 ZLWD50100 0.8859 mul def /XLN001 XLWD50100 100 div def /YLN001 YLWD50100 100 div def /ZLN001 ZLWD50100 100 div def %achromatic (A) colours /XLWDA0100 109.85 def /YLWDA0100 100.00 def /ZLWDA0100 35.58 def /XLWDA0089 XLWDA0100 0.8859 mul def /YLWDA0089 YLWDA0100 0.8859 mul def /ZLWDA0089 ZLWDA0100 0.8859 mul def /XLN001 XLWDA0100 100 div def /YLN001 YLWDA0100 100 div def /ZLN001 ZLWDA0100 100 div def %achromatic (P4000) colours to be corrected /XLWDP4100 109.85 def /YLWDP4100 100.00 def /ZLWDP4100 35.58 def /XLWDP4089 XLWDP4100 0.8859 mul def /YLWDP4089 YLWDP4100 0.8859 mul def /ZLWDP4089 ZLWDP4100 0.8859 mul def /XLN001 XLWDP4100 100 div def /YLN001 YLWDP4100 100 div def /ZLN001 ZLWDP4100 100 div def 0 1 IM1 {/i exch def %i=0,57% /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /XQ XYZrx089 i30 get XLWD65100 div def /YQ XYZrx089 i31 get YLWD65100 div def /ZQ XYZrx089 i32 get ZLWD65100 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 LAB*rx089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*rx089 i31 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 put LAB*rx089 i32 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 put } for %i=0,IM1 } bind def %END procedure XYZ*system54 %******************************************************************* %%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 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 %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 /pmetam pmetam1 def %pmetam1 pmetamd pmetam2 {/pmetam exch def %output showpage 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 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 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 (PN150-7) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse pmetam 0 eq {%pmetam=0 40 setlinewidth xchart 5 le {0.5 setgray} {1 setgray} ifelse 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 [(maximum) (maximum) (whitish) (central) (blackish) (grey)] 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 [(metameric)(central)(metameric)(metameric)(gris) (metameric)] def /cseri2fr [(m) (z) (m) (m) (g) (m) ] def /cseri3fr [(D65) (D65/D50)(D50) (D65) (D65/D50)(D50) ] def /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 [(metameric)(central)(metameric)(metameric)(grey) (metameric)] 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 [(metameric)(central)(metameric)(metameric)(gris) (metameric)] def /cseri2fr [(m) (z) (m) (m) (g) (m) ] def /cseri3fr [(A) (A/P4000)(P4000) (A) (A/P4000)(P4000) ] def /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 [(metameric)(central)(metameric)(metameric)(grey) (metameric)] def /cseri2jp [(m) (z) (m) (m) (g) (m) ] def /cseri3jp [(A) (A/P4000)(P4000) (A) (A/P4000)(P4000) ] def } if %xchart4=2 XYZ*system54 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 %****************************************************************************** /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 pmetam 0 eq {%pmetam=0 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 (Test chart 1 for color rendering: ) showjp (54 standard colours 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\351tam\350res pour D65 et D50) showfr (Test chart 2 for color rendering: ) showit (metameric colours D65 and D50) showit (Test chart 2 for color rendering: ) showjp (metameric colours D65 and 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\351tam\350res pour A et P4000) showfr (Test chart 3 for color rendering: ) showes (metameric colours A and P4000) showes (Test chart 3 for color rendering: ) showjp (metameric colours A and P4000) showjp } if %xchart4=2 /stanout 1 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 (; impression offset) showfr (; offset print) showit (; offset print) showjp TYBI ( (CMYK)) show } if %stanout=1 stanout 2 eq {%stanout=2 (; offset print) showen (; Offsetdruck) showde (; offset print) showes (; impression offset) showfr (; offset print) showit (; offset print) showjp TYBI ( (CMY0)) show } if %stanout=2 stanout 3 eq {%stanout=3 (; laser printer) showen (; Laserdrucker) showde (; laser printer) showes (; impression laser) showfr (; laser printer) showit (; laser printer) showjp TYBI ( (CMYK)) show } if %stanout=3 xchart 1 ge {%xchart>=1 TYBI colorm 0 eq deintp 0 eq and {(; rgb->rgb*d) show} if colorm 0 eq deintp 1 eq and {(; rgb->rgb*e) show} if colorm 1 eq deintp 0 eq and {(; rgb->rgb*dd) show} if colorm 1 eq deintp 1 eq and {(; rgb->rgb*de) show} if % (; separation: ) showen % (; Separation: ) showde % colsep 0 eq {(cmyn6*) jshow} if % colsep 1 eq {(cmy0*) jshow} if % colsep 2 eq {(cmyn4*) jshow} if % colsep 3 eq {(cmyn5*) jshow} if % colorm 0 eq {(; No LM) showen (: keine LM) showde} % {(; LM) showen (; LM) showde } ifelse } if %xchart>=1 } if %pmetam=0 /ix01 ix00 5420 fakt mul add def /iy 3550 fakt mul 390 fakt mul add def 1 setgray TYB ix01 iy moveto (Series:) showen (Serie:) showde (Series:) showes (series :) showfr (Series:) showit (Series:) showjp TYB 0 1 5 {/j exch def %j=0,5 /iy 3550 fakt mul j 670 fakt mul mul sub def ix01 iy 260 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 130 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 000 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 } for %j=0,5 /iyt 060 fakt mul def %text size 0 1 5 {/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 0 -30 fakt mul rmoveto Fxx show 0 30 fakt mul rmoveto } for %i=0,8 } for %j=0,5 %*************************************************************************** %} for %pmetam=0,1 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