%!PS-Adobe-3.0 EPSF-3.0 PG700-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/PG70/) /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 /TL1 {470 /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 /TIL1 {470 /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 /TBL1 {470 /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 /TBIL1 {470 /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) (B00R_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 /RGB54rgbt_L 54 array def /RGB54rgbt_L [%high chromatic series: %relative hue h*, brillance i*, and chroma c*, range 0 ... 100 (1,00_0,00_0,00) (1,00_0,25_0,00) (1,00_0,50_0,00) (1,00_0,75_0,00) (1,00_1,00_0,00) (0,75_1,00_0,00) (0,50_1,00_0,00) (0,25_1,00_0,00) (0,00_1,00_0,00) (0,00_1,00_0,00) (0,00_1,00_0,50) (0,00_1,00_1,00) (0,00_0,50_1,00) (0,00_0,00_1,00) (0,50_0,00_1,00) (1,00_0,00_1,00) (1,00_0,00_0,50) (1,00_0,00_0,00) %whitetish_series (1,00_0,50_0,50) (1,00_0,75_0,50) (1,00_1,00_0,50) (0,75_1,00_0,50) (0,50_1,00_0,50) (0,50_1,00_1,00) (0,50_0,50_1,00) (1,00_0,50_1,00) (1,00_0,50_0,50) %grayish_series (0,75_0,25_0,25) (0,75_0,50_0,25) (0,75_0,75_0,25) (0,50_0,75_0,25) (0,25_0,75_0,25) (0,25_0,75_0,75) (0,25_0,25_0,75) (0,75_0,25_0,75) (0,75_0,25_0,25) %blackish_series (0,50_0,00_0,00) (0,50_0,25_0,00) (0,50_0,50_0,00) (0,25_0,50_0,00) (0,00_0,50_0,00) (0,00_0,50_0,50) (0,00_0,00_0,50) (0,50_0,00_0,50) (0,50_0,00_0,00) %gray_series (0,00_0,00_0,00) (0,13_0,13_0,13) (0,25_0,25_0,25) (0,38_0,38_0,38) (0,50_0,50_0,50) (0,63_0,63_0,63) (0,75_0,75_0,75) (0,88_0,88_0,88) (1,00_1,00_1,00) ] 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 /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 /showde {0 lanind eq {show} if} bind def /showen {1 lanind eq {show} if} bind def /showes {2 lanind eq {show} if} bind def /showfr {3 lanind eq {show} if} bind def /showit {4 lanind eq {show} if} bind def /showjp {5 lanind eq {show} if} bind 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 /prog_rgb_dyF_LAB*'dyF {%BEG prog_rgb_dyF_LAB*'dyF /R01000 r_dyF 1000 mul def /G01000 g_dyF 1000 mul def /B01000 b_dyF 1000 mul def R01000 0.04045 le %equations of IEC 61966-2-1:2003 {/RsRGB R01000 12.92 div def} {/RsRGB R01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse G01000 0.04045 le {/GsRGB G01000 12.92 div def} {/GsRGB G01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse B01000 0.04045 le {/BsRGB B01000 12.92 div def} {/BsRGB B01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse /X*'dyF 0.4124 RsRGB mul 0.3576 GsRGB mul add 0.1805 BsRGB mul add 88.59 mul def /Y*'dyF 0.2126 RsRGB mul 0.7152 GsRGB mul add 0.0722 BsRGB mul add 88.59 mul def /Z*'dyF 0.0193 RsRGB mul 0.1192 GsRGB mul add 0.9505 BsRGB mul add 88.59 mul def % achromatic (D65) colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XQ X*'dyF XLWD65100 div def /YQ Y*'dyF YLWD65100 div def /ZQ Z*'dyF 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 /L*'dyF YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /a*'dyF 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*'dyF 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 /C*'dyF a*'dyF dup mul b*'dyF dup mul add 0.0001 add sqrt def /h*'dyF b*'dyF a*'dyF 0.0001 add atan def } bind def %END prog_rgb_dyF_LAB*'dyF %******************************************************** /prog_rgb'*dyF_LAB'*dyF {%BEG prog_rgb'*dyF_LAB'*dyF /R01000 r'*dyF 1000 mul def /G01000 g'*dyF 1000 mul def /B01000 b'*dyF 1000 mul def R01000 0.04045 le %equations of IEC 61966-2-1:2003 {/RsRGB R01000 12.92 div def} {/RsRGB R01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse G01000 0.04045 le {/GsRGB G01000 12.92 div def} {/GsRGB G01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse B01000 0.04045 le {/BsRGB B01000 12.92 div def} {/BsRGB B01000 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse /X'*dyF 0.4124 RsRGB mul 0.3576 GsRGB mul add 0.1805 BsRGB mul add 88.59 mul def /Y'*dyF 0.2126 RsRGB mul 0.7152 GsRGB mul add 0.0722 BsRGB mul add 88.59 mul def /Z'*dyF 0.0193 RsRGB mul 0.1192 GsRGB mul add 0.9505 BsRGB mul add 88.59 mul def % achromatic (D65) colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XQ X'*dyF XLWD65100 div def /YQ Y'*dyF YLWD65100 div def /ZQ Z'*dyF 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 /L'*dyF YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /a'*dyF 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'*dyF 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 /C'*dyF a'*dyF dup mul b'*dyF dup mul add 0.0001 add sqrt def /h'*dyF b'*dyF a'*dyF 0.0001 add atan def } bind def %END prog_rgb'*dyF_LAB'*dyF %************************************************ /lanind1 0 def /lanind2 0 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 0 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 /pmetam pmetam1 def %pmetam1 pmetamd pmetam2 {/pmetam exch def %output showpage %0 1 2 {/xchart4 exch def gsave 7 /Times-ISOL1 FS 120 83 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow 240 83 moveto (PG700-7) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse 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 /xchart3PXX xchart3 4 add def 40 setlinewidth xchart xchart3PXX 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 /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 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 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 130 fakt mul def %line difference /ix00 20 fakt mul def %text 1 /iy00 4070 fakt mul def %text 2 /iy00t iy00 200 sub def /iyd0t 800 def /iy01t iy00 13350 sub def /iyd1t iyd def /xxt 1 def %with many text (1) or title only (0) xchart4 2 eq {%xchart4=2 xxt 0 eq {%xxt=0 tfw 2500 1000 moveto 90 rotate /iyt 1690 def TYB (Farbe und Farbsehen) showde /iyt 1400 def TYB (Colour and Colour Vision) showen /iyt 1505 def TYB (Color e Visi\363n del Color) showes /iyt 1110 def TYB (Couleur et la Vision des Couleurs) showfr /iyt 1470 def TYB (Colore e Visione a Colori) showit /iyt 1400 def TYB (Colour and Colour Vision) showjp -90 rotate 4000 1000 moveto 90 rotate /iyt 820 def TYB (Elementarfarben in der Informationstechnik) showde /iyt 780 def TYB (Elementary Colours in Information Technology) showen /iyt 685 def TYB (Colores Elemetales en la Tecnolog\355a de la Informati\363n) showes /iyt 935 def TYB (Couleurs \311l\351mentaires en Informatique) showfr /iyt 695 def TYB (Colori Elementari nella Tecnologia dell'Informatione) showit /iyt 700 def TYB (Elementary Colours in Information Technology) showjp -90 rotate tfw 600 /TimesB-ISOL1 FS ix00 iy01t iyd1t 6 mul sub 100 add moveto ( http://130.149.60.45/~farbmetrik) show } if %xxt=0 xxt 1 eq {%xxt=1 tfw /iyt 700 def TYB ix00 iy00t moveto (Farbe und Farbsehen) showde (Colour and Colour Vision) showen (Color e Visi\363n del Color) showes (Couleur et la Vision des Couleurs) showfr (Colore e Visione a Colori) showit (Colour and Colour Vision) showjp ix00 iy00t iyd0t sub moveto (Elementarfarben in der) showde (Elementary Colours in) showen (Colores Elemetales en) showes (Couleurs \311l\351mentaires) showfr (Colori Elementari nella) showit (Elementary Colours in) showjp ix00 iy00t iyd0t 2 mul sub moveto (Farbinformationstechnik) showde (Information Technology) showen (la Tecnolog\355a de la Informati\363n) showes (en Informatique) showfr (Tecnologia dell'Informatione) showit (Information Technology) showjp TIL1 ix00 iy00t iyd0t 3 mul sub moveto (Autor: Prof. Dr. Klaus Richter) showde (Author: Prof. Dr. Klaus Richter) showen (Author: Prof. Dr. Klaus Richter) showes (Auteur: Prof. Dr. Klaus Richter) showfr (Autore: Prof. Dr. Klaus Richter) showit (Author: Prof. Dr. Klaus Richter) showjp TL1 ix00 iy01t moveto (Sonderdruck zur Ausstellung) showde (Special print for the exhibition) showen (Impressi\363n especial par la expositi\363n) showes (Brochure publi\351e dans le cadre de l'exposition) showfr (Edizione speziale per la exposizione) showit (Special print for the exhibition) showjp TBL1 ix00 iy01t iyd1t 1 mul sub moveto (Farbe und Farbsehen) showde (Colour and Colour Vision) showen (El Color y la Visi\363n del Color) showes (Couleur et la Vision des Couleurs) showfr (Colore e Visione a Colori) showit (Colour and Colour Vision) showjp TL1 ix00 iy01t iyd1t 2 mul sub moveto (am Fachgebiet Lichttechnik) showde (Section Lighting Technology) showen (Section Lighting Technology) showes (Section Lighting Technology) showfr (Section Lighting Technology) showit (Section Lighting Technology) showjp ix00 iy01t iyd1t 3 mul sub moveto (der Technischen Universit\344t Berlin) showde (of the Berlin University of Technology) showen (of the Berlin University of Technology) showes (of the Berlin University of Technology) showfr (of the Berlin University of Technology) showit (of the Berlin University of Technology) showjp ix00 iy01t iyd1t 4 mul sub moveto (Einsteinufer 19, D-10587 Berlin) show ix00 iy01t iyd1t 5 mul sub moveto (siehe:) showde (see:) showen (ver:) showes (voir:) showfr (vedi:) showit (see:) showjp TIL1 0 0 1 setrgbcolor ( http://www.li.tu-berlin.de) show 1 setgray TL1 ix00 iy01t iyd1t 6 mul sub moveto (und) showde (and) showen (y) showes (et) showfr (e) showit (and) showjp TIL1 0 0 1 setrgbcolor ( http://130.149.60.45/~farbmetrik) show 1 setgray } if %xxt=1 } if %xchart4=2 xchart xchart3PXX le {%xchart<=xchart3PXX xchart4 2 eq {/iy00 iy00 6500 sub def} if 1 setgray ix00 iy00 iyd 0 mul add moveto TL1 xchart4 1 le { (13 standard colours for D65) showen (13 Normfarben f\374r D65) showde (13 colores para la medida del color para D65) showes (13 couleurs destin\351e pour D65) showfr (13 colori per la misuratione per l'illuminante D65) showit (13 standard colours for D65) showjp } if xchart4 2 eq xxt 1 eq and { (25 standard colours for D65) showen (25 Normfarben f\374r D65) showde (25 colores para la medida del color para D65) showes (25 couleurs destin\351e pour D65) showfr (25 colori per la misuratione per l'illuminante D65) showit (25 standard colours for D65) showjp } if ix00 iy00 iyd 1 mul sub moveto xchart4 0 eq { (in Bunttonebene Rot - Gr\374n) showde (in hue plane red - green) showen (a los planos de tono rojo - verde) showes (aux niveau rouge - vert) showfr (sezione del piano rosso - verde) showit (in hue plane red - green) showjp } if xchart4 1 eq { (in Bunttonebene Gelb - Blau) showde (in hue plane yellow - blue) showen (a los planos de tono amarillo - azul) showes (aux niveau jaune - bleu) showfr (sezione del piano giallo - blu) showit (in hue plane yellow - blue) showjp } if xchart4 2 eq xxt 1 eq and { (Bunttonkreis mit 16 und 8 Stufen) showde (hue circle with 16 and 8 steps) showen (c\355rculo di tono con 16 y 8 pasos) showes (cercle chromatique \340 16 et 8 \351tapes) showfr (cerchio delle tinte a 16 i 8 passi) showit (hue circle with 16 and 8 steps) showjp } if xxt 1 eq {%xxt=1 /iyt 470 def ix00 iy00 iyd 2 mul sub moveto /stanout 0 def stanout 0 eq {%stanout=0 (standard display) showen (Normdisplay) showde (pantalla est\341ndar) showes (\351cran standard) showfr (standard display) showit (standard display) showjp TIL1 ( sRGB) show } if %stanout=0 stanout 1 eq {%stanout=1 (offset print) showen (Offsetdruck) showde (impressi\363n offset) showes (impression offset) showfr (stampa di offset) showit (offset print) showjp TIL1 ( (CMYK)) show } if %stanout=1 stanout 2 eq {%stanout=2 (offset print) showen (Offsetdruck) showde (impressi\363n offset) showes (impression offset) showfr (stampa di offset) showit (offset print) showjp TIL1 ( (CMY0)) show } if %stanout=2 stanout 3 eq {%stanout=3 (laser printer) showen (Laserdrucker) showde (impresora l\341ser) showes (imprimante laser) showfr (stampante laser) showit (laser printer) showjp TIL1 ( (CMYK)) show } if %stanout=3 stanout 1 le {%stanout=0,1 ix00 iy00 iyd 3 mul sub moveto TIL1 (rgb) show TL1 (\255Daten: ) showde ( data: ) showen ( data: ) showes ( data: ) showfr ( data: ) showit ( data: ) showjp TIL1 (rgb*) show (e) ishow0 TL1 ( (oben)) showde ( (top)) showen ( (izquierda)) showes ( (en haut)) showfr ( (top)) showit ( (top)) showjp ix00 iy00 iyd 4 mul sub moveto (Elementarbuntton) showde (elementary hue) showen (tonos elementales) showes (couleurs \351l\351mentaires) showfr (colori elementari) showit (elementary hue) showjp TIL1 ( H*, ) show TL1 (brilliance) showen (Brillantheit) showde (billantez) showes (brillance) showfr (bianchezza) showit (brilliance) showjp TIL1 ( I*,) show TL1 ix00 iy00 iyd 5 mul sub moveto (Buntheit) showde (chroma) showen (croma) showes (chromie) showfr (chroma) showit (chroma) showjp TIL1 ( C*: ) show (HIC*) show (e) ishow0 TL1 ( (unten)) showde ( (bottom)) showen ( (derecha)) showes ( (en bas)) showfr ( (bottom)) showit ( (bottom)) showjp } if %stanout=0,1 } if %xxt=1 } if %xchart<=xchart3PXX xchart xchart3 gt xchart xchart3PXX le and {%xchart>xchart3 & <=xchart3PXX TL1 ix00 iy00 iyd 6 mul sub moveto (Farbcode: ) showde (colour code: ) showen (c\363digo color: ) showes (code de couleur: ) showfr (codifica colori: ) showit (colour code: ) showjp ix00 iy00 iyd 7 mul sub moveto xchart xchart3 1 add eq {%xchart=xchart3+1 (rgbic) jshow (d) ishow0 (; LabCh*') jshow (d) ishow } if %xchart=xchart3+1 xchart xchart3 2 add eq {%xchart=xchart3+2 (rgbic'*) jshow Txx ishow (; LabCh*) jshow Txx ishow } if %xchart=xchart3+2 xchart xchart3 3 add eq {%xchart=xchart3+1 (rgbic*) jshow (d) ishow (; rgbic'*) jshow Txx ishow } if %xchart=xchart3+3 xchart xchart3 4 add eq {%xchart=xchart3+4 colorm 0 eq {%colorm=0,1 (LabCh*') jshow (d) ishow (; Lab*/DE*/h*) jshow Txx ishow }%colorm=0 {%colorm=1 (LabCh*) jshow Txx ishow (; Lab'*/DE'*/h'*) jshow Txx ishow } ifelse %colorm=0,1 } if %xchart=xchart3+4 } if %xchart>xchart3 & <=xchart3PXX 30 fakt mul setlinewidth /icolRG 13 array def /icolRG [%R00Y_100_100 R00Y_100_050 R00Y_075_050 R00Y_050_050 0 18 27 36 %G00B_100_100 G00B_100_050 G00B_075_050 G00B_050_050 9 22 31 40 %NW_000 NW_025 NW_050 NW_075 NW_100 45 47 49 51 53 ] def /icolYB 13 array def /icolYB [%Y00G_100_100 Y00G_100_050 Y00G_075_050 Y00G_050_050 4 20 29 38 %B00R_100_100 B00R_100_050 B00R_075_050 B00R_050_050 13 24 33 42 %NW_000 NW_025 NW_050 NW_075 NW_100 45 47 49 51 53 ] def /icolCC 13 array def /icolCC [%R00Y_100_100 R50Y_100_100 Y00G_100_100 Y50G_100_100 00 02 04 06 %G00B_100_100 G50B_100_100 B00R_100_100 B50R_100_100 08 10 12 14 %R00Y_075_050 Y00G_075_050 G00B_075_050 B00R_075_050 27 29 31 33 %R00Y_075_050 %repeat 27 ] def /icolCC 25 array def /icolCC [%R00Y_100_100 R25Y_100_100 R50Y_100_100 R75Y_100_10 00 01 02 03 %Y00G_100_100 Y25G_100_100 Y50G_100_100 Y75G_100_10 04 05 06 07 %G00B_100_100 G25B_100_100 G50B_100_100 G75B_100_10 09 10 11 12 %B00R_100_100 B25R_100_100 B50R_100_100 B75R_100_10 13 14 15 16 %R00Y_075_050 R50Y_075_050 Y00G_075_050 Y25G_075_050 27 28 29 30 %G00B_075_050 G50B_075_050 B00R_075_050 B50R_075_050 31 32 33 34 %NW_050 49 ] def %/iyt 090 fakt mul def %text size %iyt /Times-ISOL1 FS /icolxx 26 array def xchart4 0 eq {%xchart4=0 0 1 12 {/i exch def icolxx i icolRG i get put } for } if %xchart4=0 xchart4 1 eq {%xchart4=1 0 1 12 {/i exch def icolxx i icolYB i get put } for } if %xchart4=1 xchart4 2 eq {%xchart4=2 0 1 24 {/i exch def icolxx i icolCC i get put } for } if %xchart4=2 xchart4 0 eq {-120 -300 translate} if xchart4 1 eq {-120 -300 translate} if xchart4 2 eq {3200 -300 translate} if /nposxy 26 array def /nposxy [ 2700 0000 1450 0880 1450 0000 1450 -0880 %relativ to cero -2700 0000 -1450 0880 -1450 0000 -1450 -0880 %2750, 1900 0000 -1760 0000 -0880 0000 0000 0000 0880 0000 1760 ] def /nposCC 52 array def 0 1 15 {/i exch def %i=0,7 /i2 i 2 mul def nposCC i2 0 add 22.5 i mul cos 1760 mul put %880=radius nposCC i2 1 add 22.5 i mul sin 1760 mul put } for %i=0,7 16 1 23 {/i exch def %i=16,23 /i2 i 2 mul def nposCC i2 0 add 45 i 16 sub mul cos 880 mul put %440=radius nposCC i2 1 add 45 i 16 sub mul sin 880 mul put } for %i=16,23 nposCC 48 0000 put %mean grey nposCC 49 0000 put nposCC 50 0000 put %mean grey nposCC 51 0000 put /nposxx 52 array def %26 or 52 for CC /nxym 250 def xchart4 1 le {%xchart4<=1 0 1 25 {/i exch def nposxx i nposxy i get put } for /i 0 def %R/Y /nx0 nposxx i 2 mul get 2750 add nxym add def %xy inner rectangle /ny0 nposxx i 2 mul 1 add get 1900 add nxym add def /i 12 def %W /nx1 nposxx i 2 mul get 2750 add nxym add def /ny1 nposxx i 2 mul 1 add get 1900 add nxym add def /i 4 def %G/B /nx2 nposxx i 2 mul get 2750 add nxym add def /ny2 nposxx i 2 mul 1 add get 1900 add nxym add def /i 8 def %N /nx3 nposxx i 2 mul get 2750 add nxym add def /ny3 nposxx i 2 mul 1 add get 1900 add nxym add def 1 setgray nx0 fakt mul ny0 fakt mul moveto %R_W_G_N_R nx1 fakt mul ny1 fakt mul lineto nx2 fakt mul ny2 fakt mul lineto nx3 fakt mul ny3 fakt mul lineto closepath stroke nx3 fakt mul ny3 fakt mul moveto %N_W nx1 fakt mul ny1 fakt mul lineto stroke nx2 fakt mul ny2 fakt mul moveto %G_R nx0 fakt mul ny0 fakt mul lineto stroke /iyt 250 fakt mul def %text size large Bold iyt /TimesB-ISOL1 FS nx0 100 sub fakt mul ny0 500 sub fakt mul moveto xchart4 0 eq {(R) show} {(Y) show} ifelse /iyt 200 fakt mul def %text size large Bold iyt /TimesB-ISOL1 FS 0 -100 rmoveto Fxx show 0 100 rmoveto /iyt 250 fakt mul def %text size large Bold iyt /TimesB-ISOL1 FS nx1 350 add fakt mul ny1 100 sub fakt mul moveto (W) show /iyt 200 fakt mul def %text size large Bold iyt /TimesB-ISOL1 FS %0 -100 rmoveto Fxx show 0 100 rmoveto /iyt 250 fakt mul def %text size large Bold iyt /TimesB-ISOL1 FS nx2 100 sub fakt mul ny2 500 sub fakt mul moveto xchart4 0 eq {(G) show} {(B) show} ifelse /iyt 200 fakt mul def %text size large Bold iyt /TimesB-ISOL1 FS 0 -100 rmoveto Fxx show 0 100 rmoveto /iyt 250 fakt mul def %text size large Bold iyt /TimesB-ISOL1 FS nx3 350 add fakt mul ny3 100 sub fakt mul moveto (N) show /iyt 200 fakt mul def %text size large Bold iyt /TimesB-ISOL1 FS %0 -100 rmoveto Fxx show 0 100 rmoveto } if %xchart4<=1 xchart4 1 gt {%xchart4>1 0 1 50 {/i exch def %i=0,50 nposxx i nposCC i get put } for %i=0,50 20 fakt mul setlinewidth 1 setgray /ixCC0 2750 def /iyCC0 1900 def ixCC0 nxym add 1900 sub fakt mul iyCC0 nxym add 0000 sub fakt mul moveto 3800 fakt mul 0 rlineto stroke /ixCC0 2750 def /iyCC0 1900 def ixCC0 nxym add 0000 sub fakt mul iyCC0 nxym add -1900 sub fakt mul moveto 0 -3800 fakt mul rlineto stroke ixCC0 nxym add 0000 sub fakt mul iyCC0 nxym add 0000 sub fakt mul 880 fakt mul 0 360 arc stroke ixCC0 nxym add 0000 sub fakt mul iyCC0 nxym add 0000 sub fakt mul 1760 fakt mul 0 360 arc stroke /nposCCW 8 array def 0 1 3 {/i exch def %i=0,3 /i2 i 2 mul def nposCCW i2 0 add 90 i mul cos 1320 mul put %660=radius nposCCW i2 1 add 90 i mul sin 1320 mul put /nx nposCCW i2 get 2775 add def /ny nposCCW i2 1 add get 1900 add def /ix nx nxym 0.5 mul add i 1 eq i 3 eq or {020 sub} if fakt mul def /iy ny nxym 0.5 mul add 30 add i 1 eq i 3 eq or {010 add} if fakt mul def 1 1 1 setrgbcolor %W ix iy 250 fakt mul 190 fakt mul rec fill 0 setgray /iyt 140 fakt mul def %text size large Bold iyt /TimesB-ISOL1 FS ix 20 fakt mul add iy 60 fakt mul add moveto i 0 eq {(R) show} if i 1 eq {(Y) show} if i 2 eq {(G) show} if i 3 eq {(B) show} if /iyt 110 fakt mul def %text size large Bold iyt /TimesB-ISOL1 FS 0 -20 fakt mul rmoveto Fxx show 0 20 fakt mul rmoveto } for %i=0,3 } if %xchart4>1 xchart4 1 le {%xchart4<=1 /im 12 def }%xchart4<=1 {%xchart4>1 /im 24 def } ifelse %xchart4>1 0 1 im {/i exch def %i=0,im /iyt 065 fakt mul def %new smaller text size iyt /Times-ISOL1 FS /n icolxx i get def /nx nposxx i 2 mul get 2750 add def /ny nposxx i 2 mul 1 add get 1900 add def /i30 n 3 mul def /i31 i30 1 add def /i32 i30 2 add def /ix nx fakt mul def /iy ny fakt mul def xchart xchart3 gt {%xchart>xchart3 /ix nx fakt mul def /iy ny fakt mul def 1 1 1 setrgbcolor %W ix iy 550 fakt mul 550 fakt mul rec fill } if %xchart>xchart3 xchart xchart3 le {%xchart<=xchart3 RGB54CX_L i30 get RGB54CX_L i31 get RGB54CX_L i32 get setrgbcolor %default to create data ix iy 550 fakt mul 550 fakt mul rec fill 1 RGB54CX_L i30 get sub 1 RGB54CX_L i31 get sub 1 RGB54CX_L i32 get sub 0 setcmykcolor %default to create data /ix1 ix 138 fakt mul add def /iy1 iy 138 fakt mul add def ix1 iy1 275 fakt mul 275 fakt mul rec fill }%xchart<=xchart3 {%xchart>xchart3 RGB54CX_L i30 get RGB54CX_L i31 get RGB54CX_L i32 get setrgbcolor %default to create data ix iy 550 fakt mul 550 fakt mul rec stroke } ifelse %xchart>xchart3 RGB54CX_L i30 get RGB54CX_L i31 get RGB54CX_L i32 get setrgbcolor %default to create data xchart xchart3 gt {%xchart>xchart3 /iyt65 065 fakt mul def %smaller text code /iyt55 055 fakt mul def %smaller text code for index %setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F" %colorm=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF, ,cmyk*dyF and more %colorm=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more /r_xF r_dyF def /g_xF g_dyF def /b_xF b_dyF def /i_xF i_dyF def /c_xF c_dyF def /t_xF t_dyF def /r*xF r*dyF def /g*xF g*dyF def /b*xF b*dyF def /i*xF i*dyF def /c*xF c*dyF def /t*xF t*dyF def /LAB*LxF LAB*LdyF def /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /LAB*CxF LAB*adyF dup mul LAB*bdyF dup mul add 0.0001 add sqrt def /LAB*hxF LAB*bdyF LAB*adyF 0.0001 add atan def % colorm 0 eq {%colorm=0 %prog_rgb_dyF_LAB*'dyF uses rgb_dyF by default %calculates output data according to IEC 61966-2-1 prog_rgb_dyF_LAB*'dyF /LAB*'LxF L*'dyF def /LAB*'axF a*'dyF def /LAB*'bxF b*'dyF def /LAB*'CxF C*'dyF def /LAB*'hxF h*'dyF def /DE*' LAB*'LxF LAB*LxF sub dup mul LAB*'axF LAB*axF sub dup mul add LAB*'bxF LAB*bxF sub dup mul add 0.0001 add sqrt def % /SUMDE*' SUMDE*' DE*' add def % } if %colorm=0 colorm 1 eq {%colorm=1 /r'*xF r'*dyF def /g'*xF g'*dyF def /b'*xF b'*dyF def %%only for control, not used: calculation of i'*xF, c'*xF, and t'*xF /maxd r'*xF def g'*xF maxd gt {/maxd g'*xF def} if b'*xF maxd gt {/maxd b'*xF def} if /mind r'*xF def g'*xF mind lt {/mind g'*xF def} if b'*xF mind lt {/mind b'*xF def} if /i'*xF maxd def /c'*xF maxd mind sub def /t'*xF i'*xF c'*xF 0.5 mul sub def %calculates output data according to IEC 61966-2-1 prog_rgb'*dyF_LAB'*dyF /LAB'*LxF L'*dyF def /LAB'*axF a'*dyF def /LAB'*bxF b'*dyF def /LAB'*CxF C'*dyF def /LAB'*hxF h'*dyF def /DE'* LAB'*LxF LAB*LxF sub dup mul LAB'*axF LAB*axF sub dup mul add LAB'*bxF LAB*bxF sub dup mul add 0.0001 add sqrt def % /SUMDE'* SUMDE'* DE'* add def } if %colorm=1 /hsi_xF hsiF def % /c4*F c4*Fa def % /m4*F m4*Fa def % /y4*F y4*Fa def % /n4*F n4*Fa def /r*xM r*dyM def /g*xM g*dyM def /b*xM b*dyM def /LAB*LxM LAB*LdyM def /LAB*axM LAB*adyM def /LAB*bxM LAB*bdyM def /LAB*CxM LAB*adyM dup mul LAB*bdyM dup mul add 0.0001 add sqrt def /LAB*hxM LAB*bdyM LAB*adyM 0.0001 add atan def /hsi_xM hsiM def 0 0 0 setrgbcolor /ix1 ix 080 fakt mul add def /ix2 ix 300 fakt mul add def /iy1 iy 090 fakt mul add def /iy2 iy 170 fakt mul add def /iy3 iy 250 fakt mul add def /iy4 iy 330 fakt mul add def /iy5 iy 410 fakt mul add def xchart 2 eq {%xchart=2 ix1 iy5 moveto r_xF cvsshow3 ix1 iy4 moveto g_xF cvsshow3 ix1 iy3 moveto b_xF cvsshow3 ix1 iy2 moveto i_xF cvsshow3 ix1 iy1 moveto c_xF cvsshow3 ix2 iy5 moveto LAB*'LxF cvsshow1 ix2 iy4 moveto LAB*'axF cvsshow1 ix2 iy3 moveto LAB*'bxF cvsshow1 ix2 iy2 moveto LAB*'axF dup mul LAB*'bxF dup mul add 0.0001 add sqrt cvsshow1 ix2 iy1 moveto LAB*'bxF LAB*'axF 0.0001 add atan cvsshow1 } if %xchart=2 xchart 3 eq {%xchart=3 ix1 iy5 moveto r*xF cvsshow3 ix1 iy4 moveto g*xF cvsshow3 ix1 iy3 moveto b*xF cvsshow3 ix1 iy2 moveto i*xF cvsshow3 ix1 iy1 moveto c*xF cvsshow3 colorm 0 eq {%colorm=0 ix2 iy5 moveto LAB*LxF cvsshow1 ix2 iy4 moveto LAB*axF cvsshow1 ix2 iy3 moveto LAB*bxF cvsshow1 ix2 iy2 moveto LAB*axF dup mul LAB*bxF dup mul add 0.0001 add sqrt cvsshow1 ix2 iy1 moveto LAB*bxF LAB*axF 0.0001 add atan cvsshow1 }%colorm=0 {%colorm=1 ix2 iy5 moveto LAB'*LxF cvsshow1 ix2 iy4 moveto LAB'*axF cvsshow1 ix2 iy3 moveto LAB'*bxF cvsshow1 ix2 iy2 moveto LAB'*axF dup mul LAB'*bxF dup mul add 0.0001 add sqrt cvsshow1 ix2 iy1 moveto LAB'*bxF LAB'*axF 0.0001 add atan cvsshow1 } ifelse %colorm=1 } if %xchart=3 xchart 4 eq {%xchart=4 ix1 iy5 moveto r_xF cvsshow3 ix1 iy4 moveto g_xF cvsshow3 ix1 iy3 moveto b_xF cvsshow3 ix1 iy2 moveto i_xF cvsshow3 ix1 iy1 moveto c_xF cvsshow3 colorm 0 eq {%colorm=0 ix2 iy5 moveto r*xF cvsshow3 ix2 iy4 moveto g*xF cvsshow3 ix2 iy3 moveto b*xF cvsshow3 ix2 iy2 moveto i*xF cvsshow3 ix2 iy1 moveto c*xF cvsshow3 }%colorm=0 {%colorm=1 ix2 iy5 moveto r'*xF cvsshow3 ix2 iy4 moveto g'*xF cvsshow3 ix2 iy3 moveto b'*xF cvsshow3 ix2 iy2 moveto i'*xF cvsshow3 ix2 iy1 moveto c'*xF cvsshow3 } ifelse %colorm=1 } if %xchart=4 xchart 5 eq {%xchart=5 colorm 0 eq {%colorm=0 ix1 iy5 moveto LAB*'LxF cvsshow1 ix1 iy4 moveto LAB*'axF cvsshow1 ix1 iy3 moveto LAB*'bxF cvsshow1 ix1 iy2 moveto LAB*'axF dup mul LAB*'bxF dup mul add 0.0001 add sqrt cvsshow1 ix1 iy1 moveto LAB*'bxF LAB*'axF 0.0001 add atan cvsshow1 ix2 iy5 moveto LAB*LxF cvsshow1 ix2 iy4 moveto LAB*axF cvsshow1 ix2 iy3 moveto LAB*bxF cvsshow1 ix2 iy2 moveto () bshow DE*' cvsshow1 () nshow ix2 iy1 moveto LAB*bxF LAB*axF 0.0001 add atan cvsshow1 }%colorm=0 {%colorm=1 ix1 iy5 moveto LAB*LxF cvsshow1 ix1 iy4 moveto LAB*axF cvsshow1 ix1 iy3 moveto LAB*bxF cvsshow1 ix1 iy2 moveto LAB*axF dup mul LAB*bxF dup mul add 0.0001 add sqrt cvsshow1 ix1 iy1 moveto LAB*bxF LAB*axF 0.0001 add atan cvsshow1 ix2 iy5 moveto LAB'*LxF cvsshow1 ix2 iy4 moveto LAB'*axF cvsshow1 ix2 iy3 moveto LAB'*bxF cvsshow1 ix2 iy2 moveto () bshow DE'* cvsshow1 () nshow ix2 iy1 moveto LAB'*bxF LAB'*axF 0.0001 add atan cvsshow1 } ifelse %colorm=1 } if %xchart=5 } if %xchart>xchart3 xchart xchart3 le {%xchart<=xchart3 i 10 eq xchart4 1 le and {%mean grey border 10 fakt mul setlinewidth 1 setgray ix iy 550 fakt mul 550 fakt mul rec stroke } if %mean grey i 12 eq xchart4 1 le and {%mean black border 08 fakt mul setlinewidth 0 setgray ix iy 085 fakt mul add moveto 550 fakt mul 0 rlineto stroke ix iy 465 fakt mul add moveto 550 fakt mul 0 rlineto stroke } if %mean black colour i 24 eq xchart4 2 eq and {%mean grey border 10 fakt mul setlinewidth 1 setgray ix iy 550 fakt mul 550 fakt mul rec stroke } if %mean grey } if %xchart<=xchart3 /iyt65 065 fakt mul def %smaller text code /iyt55 055 fakt mul def %smaller text code for index %iyt65 /Times_ISOL1 FS 1 setgray ix iy moveto %bottom rectangle 550 fakt mul 0 rlineto 0 080 fakt mul rlineto -550 fakt mul 0 rlineto closepath fill ix iy 470 fakt mul add moveto %top rectangle 550 fakt mul 0 rlineto 0 080 fakt mul rlineto -550 fakt mul 0 rlineto closepath fill 0 setgray %bottom text xchart4 1 le {%xchart4<=1 ix i 7 le {030 fakt mul add} {100 fakt mul add} ifelse iy 20 fakt mul add moveto } if %xchart4<=1 xchart4 1 gt {%xchart4>1 ix i 23 le {030 fakt mul add} {100 fakt mul add} ifelse iy 20 fakt mul add moveto } if %xchart4>1 iyt65 /TimesB-ISOL1 FS RGB54CXt_L n get show (*) show iyt55 /TimesB-ISOL1 FS -10 fakt mul -10 fakt mul rmoveto Fxx show 0 10 fakt mul rmoveto 0 setgray %top text xchart4 1 le {%xchart4<=1 ix i 7 le {040 fakt mul add} {040 fakt mul add} ifelse iy 490 fakt mul add moveto } if %xchart4<=1 xchart4 1 gt {%xchart4>1 ix 040 fakt mul add iy 490 fakt mul add moveto } if %xchart>1 iyt65 /TimesB-ISOL1 FS RGB54rgbt_L n get show (*) show iyt55 /TimesB-ISOL1 FS -10 fakt mul -10 fakt mul rmoveto Fxx show 0 10 fakt mul rmoveto % i 12 eq xchart4 1 le and {%mean black border % 10 fakt mul setlinewidth % 0 setgray % ix iy 085 fakt mul add 550 fakt mul 380 fakt mul rec stroke % } if %mean black colour } for %i=0,im xchart4 0 eq {120 300 translate} if xchart4 1 eq {120 300 translate} if xchart4 2 eq {-3200 300 translate} if %*************************************************************************** showpage grestore %} for %xchart4=0,2 %} 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