%!PS-Adobe-3.0 EPSF-3.0 SF281-6N %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: B2410-2, B8710_5, E8370-1, B6_15_1, N=6_15_1) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or http://www.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2003080112000) /ModDate (D:2003080112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 % !Change to ISOLatin1 fonts /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TS {200 16.67 div /Times-ISOL1 FS} bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIS {200 16.67 div /TimesI-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBS {200 16.67 div /TimesB-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIS {200 16.67 div /TimesBI-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] 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 /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor 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 /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 3 def /lanind2 3 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /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 xchart3 lt {/Txx (-) def /Fxx (-) def} if gsave %LANINDL2 END 5 /Times-ISOL1 FS 72 85 moveto (SF281-6) show %(Colour management of hues O\255C; TV18 <\255> PR18) showea %(Farbmanagement f\374r Buntt\366ne O\255C; TV18<\255>PR18) showde 72 90 translate /pixf 1.0 def 0.1667 pixf div MM 2 mul dup scale 0 0 159 119 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBG %Schrift Times-Bold-Gross 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss %005 220 moveto %(CMYOLV) show %005 200 moveto %(complementary) showea %(komplement\344re) showde %005 180 moveto %(hue planes) showea %(Bunttonebenen) showde TBK /PRA 40 array def /TVA 40 array def /Li60 8 array def /Ai60 8 array def /Bi60 8 array def /Li61 8 array def /Ai61 8 array def /Bi61 8 array def %001 79 moveto %(colour names of) showea %(Farbnamen von) showde %001 64 moveto %(ISO/IEC 15775) show %0.0 0.0 0.0 1.0 setcmykcolor %black %115 227 moveto %TBIK (cmyolv*) show TBK %( default color space) showea %( Default\255Farbraum) showde /tBtxb %textBtx-Reihenfolge [(W) (O) (Y) (L) (C) (V) (M) (W) (H) (YO) (OM) (MV) (VC) (CL) (LY) (R) ] def /imx 65 def /imy 13 def /sPRTV 0 def %Start PR, dann Transfer TV %/sPRTV 1 def %Start TV, dann Transfer PR %/pPRTV 0 def %Show TV %/pPRTV 1 def %Show PR /pPRTV 2 def %Show ALL=PR+TV %Start PR: /PR1 0 def %ORS18ca %/PR1 1 def %OLS00ca %/PR1 2 def %OLS18ca %/PR1 3 def %OLS27ca %/PR1 4 def %OLS33ca %Transfer TV: %/TV1 0 def %TRS18ca %/TV1 1 def %TLS00ca /TV1 2 def %TLS18ca %/TV1 3 def %TLS27ca %/TV1 4 def %TLS33ca %START TV: %/TV2 0 def %TRS18ca %/TV2 1 def %TLS00ca %/TV2 2 def %TLS18ca %/TV2 3 def %TLS27ca %/TV2 4 def %TLS33ca %TRANSFER PR %/PR2 0 def %ORS18ca %/PR2 1 def %OLS00ca %/PR2 2 def %OLS18ca %/PR2 3 def %OLS27ca %/PR2 4 def %OLS33ca /i1 1 def /i2 4 def %sPRTV 0 eq { %sPRTV=0 % pPRTV 1 eq pPRTV 2 eq or { %print TV und ALL % 0.0 0.0 0.0 1.0 setcmykcolor %black % 001 49 moveto % (Start ) show % PR1 0 eq {(ORS18ca: ) show} if % PR1 1 eq {(OLS00ca: ) show} if % PR1 2 eq {(OLS18ca: ) show} if % PR1 3 eq {(OLS27ca: ) show} if % PR1 4 eq {(OLS33ca: ) show} if % (Offset ) showea % PR1 0 eq {(Reflective System) showea} % {(Luminous System) showea} ifelse % (Offset\255) showde % PR1 0 eq {(Reflexions\255System) showde} % {(Licht\255System) showde} ifelse % 001 34 moveto TBIK (L* ) show TBK % PR1 0 eq {(= 18, ) show} if % PR1 1 eq {(= 00, ) show} if % PR1 2 eq {(= 18, ) show} if % PR1 3 eq {(= 27, ) show} if % PR1 4 eq {(= 33, ) show} if % (chroma adapted (ca)) showea % (Buntheits\255adaptiert (ca)) showde % } if %print TV and ALL % % pPRTV 0 eq pPRTV 2 eq or { %print PR and ALL % i1 2 eq {1.0 0.0 1.0 0.0 } {0.0 0.0 1.0 0.0} ifelse % setcmykcolor %second balls yellow or green % 001 19 moveto % (Transfer ) show % TV1 0 eq {(TRS18: ) show} if % TV1 1 eq {(TLS00: ) show} if % TV1 2 eq {(TLS18: ) show} if % TV1 3 eq {(TLS27: ) show} if % TV1 4 eq {(TLS33: ) show} if % (Television ) showea % TV1 0 eq {(Reflective System) showea} % {(Luminous System) showea} ifelse % (Television\255) showde % TV1 0 eq {(Reflexions\255System) showde} % {(Licht\255System) showde} ifelse % 001 04 moveto TBIK (L* ) show TBK % TV1 0 eq {(= 18 ) show} if % TV1 1 eq {(= 00 ) show} if % TV1 2 eq {(= 18 ) show} if % TV1 3 eq {(= 27 ) show} if % TV1 4 eq {(= 33 ) show} if % (chroma adapted (ca)) showea % (Buntheits\255adaptiert (ca)) showde % } if %print TV and ALL % } %sPRTV=0 % % { %sPRTV=1 % pPRTV 1 eq pPRTV 2 eq or { %print TV und ALL % 0.0 0.0 0.0 1.0 setcmykcolor %black % 001 49 moveto % (Start ) show % TV2 0 eq {(TRS18: ) show} if % TV2 1 eq {(TLS00: ) show} if % TV2 2 eq {(TLS18: ) show} if % TV2 3 eq {(TLS27: ) show} if % TV2 4 eq {(TLS33: ) show} if % (Television ) showea % TV2 0 eq {(Reflective System) showea} % {(Luminous System) showea} ifelse % (Fernseh\255) showde % TV2 0 eq {(Reflexions\255System) showde} % {(Licht\255System) showde} ifelse % 001 34 moveto TBIK (L* ) show TBK % TV2 0 eq {(= 18 ) show} if % TV2 1 eq {(= 00 ) show} if % TV2 2 eq {(= 18 ) show} if % TV2 3 eq {(= 27 ) show} if % TV2 4 eq {(= 33 ) show} if % (chroma adapted (ca)) showea % (Buntheits\255adaptiert (ca)) showde % } if %print TV and ALL % % pPRTV 0 eq pPRTV 2 eq or { %print PR and ALL % i1 2 eq {1.0 0.0 1.0 0.0 } {0.0 0.0 1.0 0.0} ifelse % setcmykcolor %second balls yellow or green % 001 19 moveto % (Transfer ) showea % PR2 0 eq {(ORS18ca: ) show} if % PR2 1 eq {(OLS00ca: ) show} if % PR2 2 eq {(OLS18ca: ) show} if % PR2 3 eq {(OLS27ca: ) show} if % PR2 4 eq {(OLS33ca: ) show} if % (Offset ) showea % PR2 0 eq {(Reflective System) showea} % {(Luminous System) showea} ifelse % (Transfer: Offset\255) showde % PR2 0 eq {(Reflexions\255System) showde} % {(Licht\255System) showde} ifelse % 001 04 moveto TBIK (L* ) show TBK % PR2 0 eq {(= 18, ) show} if % PR2 1 eq {(= 00, ) show} if % PR2 2 eq {(= 18, ) show} if % PR2 3 eq {(= 27, ) show} if % PR2 4 eq {(= 33, ) show} if % (chroma adapted (ca)) showea % (Buntheits\255adaptiert, (ca)) showde % } if %print TV and ALL % % } ifelse %calculated by E6511-71.PS 20.6.2003 O=Offset, R/LS=Reflective or Luminous System %xx=00,18,27,33 correspond to L* data, RA=Reflective adapted, RC=Reflective CIE /ORS18RA [(C) 58.62 -30.34 -45.01 (V) 25.72 31.10 -44.40 (M) 48.13 75.28 -8.36 (O) 47.94 65.39 50.52 (Y) 90.37 -10.26 91.75 (L) 50.90 -62.83 34.96 (N) 18.01 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.01 0.00 0.00 (W1) 100.0 0.00 0.00 ] def /ORS18RC [(C) 58.62 -30.62 -42.74 (V) 25.72 31.45 -44.35 (M) 48.13 75.20 -6.79 (O) 47.94 65.31 52.07 (Y) 90.37 -11.15 96.17 (L) 50.90 -62.96 36.71 (N) 18.01 0.50 -0.46 (W) 95.41 -0.98 4.76 (N0) 0.01 0.84 -1.68 (W1) 100.0 -1.07 5.06 ] def /OLS00LA [(C) 56.88 -33.11 -47.41 (V) 16.48 45.84 -56.22 (M) 45.36 81.85 -9.29 (O) 45.14 71.37 75.54 (Y) 90.22 -10.60 99.51 (L) 48.45 -73.19 42.21 (N) 0.00 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.00 0.00 0.00 (W1) 100.13 0.00 0.00 ] def /OLS00LC [(C) 56.88 -33.36 -45.25 (V) 16.48 46.37 -56.79 (M) 45.36 81.82 -7.91 (O) 45.14 71.35 76.90 (Y) 90.22 -11.49 103.92 (L) 48.45 -73.28 43.80 (N) 0.00 0.85 -1.68 (W) 95.41 -0.98 4.76 (N0) 0.00 0.85 -1.68 (W1) 100.13 -1.07 5.07 ] def /OLS18LA [(C) 58.62 -30.34 -45.01 (V) 25.72 31.10 -44.4 (M) 48.13 75.28 -8.36 (O) 47.94 65.39 50.52 (Y) 90.37 -10.26 91.75 (L) 50.90 -62.83 34.96 (N) 18.01 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.01 0.00 0.00 (W1) 100.0 0.00 0.00 ] def /OLS18LC [(C) 58.62 -30.62 -42.74 (V) 25.72 31.45 -44.35 (M) 48.13 75.20 -6.79 (O) 47.94 65.31 52.07 (Y) 90.37 -11.15 96.17 (L) 50.90 -62.96 36.71 (N) 18.01 0.50 -0.46 (W) 95.41 -0.98 4.76 (N0) 0.01 0.84 -1.68 (W1) 100.0 -1.07 5.06 ] def /OLS27LA [(C) 60.28 -27.91 -42.75 (V) 32.06 24.02 -37.32 (M) 50.68 69.50 -7.57 (O) 50.51 60.17 40.13 (Y) 90.52 -9.92 85.20 (L) 53.18 -55.04 30.00 (N) 26.85 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 18.34 0.00 0.00 (W1) 99.87 0.00 0.00 ] def /OLS27LC [(C) 60.28 -28.22 -40.36 (V) 32.06 24.25 -36.84 (M) 50.68 69.37 -5.83 (O) 50.51 60.04 41.85 (Y) 90.52 -10.82 89.63 (L) 53.18 -55.21 31.90 (N) 26.85 0.33 0.13 (W) 95.41 -0.98 4.76 (N0) 18.34 0.49 -0.44 (W1) 99.87 -1.07 5.05 ] def /OLS33LA [(C) 61.87 -25.76 -40.60 (V) 37.05 19.67 -32.32 (M) 53.05 64.36 -6.90 (O) 52.90 55.55 33.73 (Y) 90.68 -9.59 79.47 (L) 55.33 -48.88 26.28 (N) 33.05 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 27.27 0.00 0.00 (W1) 99.74 0.00 0.00 ] def /OLS33LC [(C) 61.87 -26.10 -38.11 (V) 37.05 19.81 -31.50 (M) 53.05 64.19 -5.00 (O) 52.90 55.38 35.61 (Y) 90.68 -10.48 83.91 (L) 55.33 -49.10 28.33 (N) 33.05 0.21 0.55 (W) 95.41 -0.98 4.76 (N0) 27.27 0.32 0.15 (W1) 99.74 -1.06 5.04 ] def %calculated by E6531-71.PS 20.6.2003 T=Television, R/LS=Reflective or Luminous System %xx=00,18,27,33 correspond to L* data, RA=Reflective adapted, RC=Reflective CIE /TRS18RA [(C) 87.14 -44.42 -13.12 (V) 35.47 64.92 -95.08 (M) 59.01 89.33 -19.43 (O) 52.76 71.63 49.88 (Y) 92.74 -20.03 84.97 (L) 84.00 -78.99 73.94 (N) 18.01 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.01 0.00 0.00 (W1) 100.0 0.00 0.00 ] def /TRS18RC [(C) 87.14 -44.42 -13.12 (V) 35.47 64.92 -95.08 (M) 59.01 89.33 -19.43 (O) 52.76 71.63 49.88 (Y) 92.74 -20.03 84.97 (L) 84.00 -78.99 73.94 (N) 18.01 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.01 0.00 0.00 (W1) 100.0 0.00 0.00 ] def /TLS00LA [(C) 86.88 -46.15 -13.54 (V) 30.39 76.06 -103.58 (M) 57.31 94.35 -20.68 (O) 50.50 76.91 64.55 (Y) 92.66 -20.68 90.75 (L) 83.62 -82.74 79.90 (N) 0.00 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.00 0.00 0.00 (W1) 100.13 0.00 0.00 ] def /TLS00LC [(C) 86.88 -46.15 -13.54 (V) 30.39 76.06 -103.58 (M) 57.31 94.35 -20.68 (O) 50.50 76.91 64.55 (Y) 92.66 -20.68 90.75 (L) 83.62 -82.74 79.90 (N) 0.00 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.00 0.00 0.00 (W1) 100.13 0.00 0.00 ] def /TLS18LA [(C) 87.14 -44.42 -13.12 (V) 35.47 64.92 -95.08 (M) 59.01 89.33 -19.43 (O) 52.76 71.63 49.88 (Y) 92.74 -20.03 84.97 (L) 84.00 -78.99 73.94 (N) 18.01 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.01 0.00 0.00 (W1) 100.0 0.00 0.00 ] def /TLS18LC [(C) 87.14 -44.42 -13.12 (V) 35.47 64.92 -95.08 (M) 59.01 89.33 -19.43 (O) 52.76 71.63 49.88 (Y) 92.74 -20.03 84.97 (L) 84.00 -78.99 73.94 (N) 18.01 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 0.01 0.00 0.00 (W1) 100.0 0.00 0.00 ] def /TLS27LA [(C) 87.40 -42.72 -12.70 (V) 39.70 56.66 -88.03 (M) 60.64 84.61 -18.27 (O) 54.88 66.84 41.69 (Y) 92.82 -19.39 79.81 (L) 84.37 -75.39 68.76 (N) 26.85 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 18.34 0.00 0.00 (W1) 99.87 0.00 0.00 ] def /TLS27LC [(C) 87.40 -42.72 -12.70 (V) 39.70 56.66 -88.03 (M) 60.64 84.61 -18.27 (O) 54.88 66.84 41.69 (Y) 92.82 -19.39 79.81 (L) 84.37 -75.39 68.76 (N) 26.85 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 18.34 0.00 0.00 (W1) 99.87 0.00 0.00 ] def /TLS33LA [(C) 87.66 -41.06 -12.29 (V) 43.38 50.19 -81.95 (M) 62.20 80.15 -17.20 (O) 56.88 62.47 36.02 (Y) 92.90 -18.75 75.12 (L) 84.74 -71.92 64.16 (N) 33.05 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 27.27 0.00 0.00 (W1) 99.74 0.00 0.00 ] def /TLS33LC [(C) 87.66 -41.06 -12.29 (V) 43.38 50.19 -81.95 (M) 62.20 80.15 -17.20 (O) 56.88 62.47 36.02 (Y) 92.90 -18.75 75.12 (L) 84.74 -71.92 64.16 (N) 33.05 0.00 0.00 (W) 95.41 0.00 0.00 (N0) 27.27 0.00 0.00 (W1) 99.74 0.00 0.00 ] def 0 1 39 {/i exch def %i=0,39 sPRTV 0 eq {%A* CIELAB PR PR1 0 eq {PRA i ORS18RA i get put} if PR1 1 eq {PRA i OLS00LA i get put} if PR1 2 eq {PRA i OLS18LA i get put} if PR1 3 eq {PRA i OLS27LA i get put} if PR1 4 eq {PRA i OLS33LA i get put} if TV1 0 eq {TVA i TRS18RA i get put} if TV1 1 eq {TVA i TLS00LA i get put} if TV1 2 eq {TVA i TLS18LA i get put} if TV1 3 eq {TVA i TLS27LA i get put} if TV1 4 eq {TVA i TLS33LA i get put} if } { TV2 0 eq {TVA i TRS18RA i get put} if TV2 1 eq {TVA i TLS00LA i get put} if TV2 2 eq {TVA i TLS18LA i get put} if TV2 3 eq {TVA i TLS27LA i get put} if TV2 4 eq {TVA i TLS33LA i get put} if PR2 0 eq {PRA i ORS18RA i get put} if PR2 1 eq {PRA i OLS00LA i get put} if PR2 2 eq {PRA i OLS18LA i get put} if PR2 3 eq {PRA i OLS27LA i get put} if PR2 4 eq {PRA i OLS33LA i get put} if } ifelse } for %i=0,39 sPRTV 0 eq { Li60 0 PRA 7 4 mul 1 add get put Ai60 0 PRA 7 4 mul 2 add get put Bi60 0 PRA 7 4 mul 3 add get put 1 1 3 {/i exch def %i=1,3 Li60 i PRA i 2 add 4 mul 1 add get put Ai60 i PRA i 2 add 4 mul 2 add get put Bi60 i PRA i 2 add 4 mul 3 add get put } for %i=1,3 4 1 6 {/i exch def %i=4,6 Li60 i PRA i 4 sub 4 mul 1 add get put Ai60 i PRA i 4 sub 4 mul 2 add get put Bi60 i PRA i 4 sub 4 mul 3 add get put } for %i=4,6 Li60 7 PRA 6 4 mul 1 add get put Ai60 7 PRA 6 4 mul 2 add get put Bi60 7 PRA 6 4 mul 3 add get put Li61 0 TVA 7 4 mul 1 add get put Ai61 0 TVA 7 4 mul 2 add get put Bi61 0 TVA 7 4 mul 3 add get put 1 1 3 {/i exch def %i=1,3 Li61 i TVA i 2 add 4 mul 1 add get put Ai61 i TVA i 2 add 4 mul 2 add get put Bi61 i TVA i 2 add 4 mul 3 add get put } for %i=1,3 4 1 6 {/i exch def %i=4,6 Li61 i TVA i 4 sub 4 mul 1 add get put Ai61 i TVA i 4 sub 4 mul 2 add get put Bi61 i TVA i 4 sub 4 mul 3 add get put } for %i=4,6 Li61 7 TVA 6 4 mul 1 add get put Ai61 7 TVA 6 4 mul 2 add get put Bi61 7 TVA 6 4 mul 3 add get put } { Li60 0 TVA 7 4 mul 1 add get put Ai60 0 TVA 7 4 mul 2 add get put Bi60 0 TVA 7 4 mul 3 add get put 1 1 3 {/i exch def %i=1,3 Li60 i TVA i 2 add 4 mul 1 add get put Ai60 i TVA i 2 add 4 mul 2 add get put Bi60 i TVA i 2 add 4 mul 3 add get put } for %i=1,3 4 1 6 {/i exch def %i=4,6 Li60 i TVA i 4 sub 4 mul 1 add get put Ai60 i TVA i 4 sub 4 mul 2 add get put Bi60 i TVA i 4 sub 4 mul 3 add get put } for %i=4,6 Li60 7 TVA 6 4 mul 1 add get put Ai60 7 TVA 6 4 mul 2 add get put Bi60 7 TVA 6 4 mul 3 add get put Li61 0 PRA 7 4 mul 1 add get put Ai61 0 PRA 7 4 mul 2 add get put Bi61 0 PRA 7 4 mul 3 add get put 1 1 3 {/i exch def %i=1,3 Li61 i PRA i 2 add 4 mul 1 add get put Ai61 i PRA i 2 add 4 mul 2 add get put Bi61 i PRA i 2 add 4 mul 3 add get put } for %i=1,3 4 1 6 {/i exch def %i=4,6 Li61 i PRA i 4 sub 4 mul 1 add get put Ai61 i PRA i 4 sub 4 mul 2 add get put Bi61 i PRA i 4 sub 4 mul 3 add get put } for %i=4,6 Li61 7 PRA 6 4 mul 1 add get put Ai61 7 PRA 6 4 mul 2 add get put Bi61 7 PRA 6 4 mul 3 add get put } ifelse 2 setlinewidth fcolors 00 get exec setcmykcolor %N /fak 0.8 def %x and yaxis imx 60 fak mul sub imy moveto imx 70 fak mul add imy lineto stroke imx imy 15 fak mul sub moveto imx imy 123 fak mul add lineto stroke %arrows imx 70 fak mul add 5 sub imy 2 add moveto 5 -2 rlineto -5 -2 rlineto stroke imx 2 sub imy 123 fak mul add 5 sub moveto 2 5 rlineto 2 -5 rlineto stroke %imx 55 fak mul add imy 15 sub moveto TIK (C*) show -8 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (ab) show %0 5 rmoveto TIK (=LAB*) show -8 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (r) show %imx 5 add imy 138 fak mul add moveto TIK (L*=LAB*) show -8 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (1) show newpath 150 16.67 div /Times-ISOL1 FS imx 03 sub imy 100 fak mul add moveto 6 0 rlineto stroke imx 02 add imy 100 fak mul add 04 add moveto (100) show imx 03 add imy 10 sub moveto (0) show i1 2 eq {1.0 0.0 1.0 0.0 } {0.0 0.0 1.0 0.0} ifelse setcmykcolor %second lightness yellow or green sPRTV 0 eq {imx i1 2 eq {12 sub} {02 add} ifelse imy i1 2 eq { 0 add} {02 add} ifelse PR1 2 eq TV1 2 eq or {7 fak mul add moveto (18) show} if PR1 3 eq TV1 3 eq or {13 fak mul add moveto (27) show} if PR1 4 eq TV1 4 eq or {17 fak mul add moveto (33) show} if } if sPRTV 1 eq {imx i1 2 eq {12 sub} {02 add} ifelse imy i1 2 eq { 0 add} {02 add} ifelse PR2 2 eq TV2 2 eq or {7 fak mul add moveto (18) show} if PR2 3 eq TV2 3 eq or {13 fak mul add moveto (27) show} if PR2 4 eq TV2 4 eq or {17 fak mul add moveto (33) show} if } if tfn /trushow {0.005 add 100 mul truncate 100 div 6 string cvs show} bind def /j 0 def i1 3 i2 {/i exch def /k i j 8 mul add def pPRTV 1 eq pPRTV 2 eq or { %print TV und ALL TBIM /ku Far i get exec def /CAB0 Bi60 i get Bi60 0 get sub dup mul Ai60 i get Ai60 0 get sub dup mul add sqrt def /ix imx CAB0 fak mul i i2 eq {sub} {add} ifelse def /iy imy Li60 i get fak mul add def ix 18 sub iy 18 sub 37 37 fcolors ku get exec outrecfi4 %Farbe-Fuellen je nach Auszug 1 setlinewidth ix 18 sub iy 18 sub 37 37 0.0 0.0 0.0 1.0 colrecst %Farbe-Umgrenzen je nach Auszug 2 setlinewidth 0.0 0.0 0.0 0.0 setcmykcolor ix 17.5 sub iy 26 sub moveto /delL0 Li60 i get Li60 0 get sub fak mul 15 div def /delA0 Ai60 i get Ai60 0 get sub fak mul 15 div def /delB0 Bi60 i get Bi60 0 get sub fak mul 15 div def /delLAB0 delL0 dup mul delA0 dup mul add delB0 dup mul add sqrt def 150 16.67 div /Symbol FS (D) show 150 16.67 div /Times-ISOL1 FS (E*=) show delLAB0 trushow %sPRTV 1 eq { %start TV -> PRINT TV %%O-C, text etc. %TBIM tfn %i i1 eq {ix 25 add iy 10 add moveto} % {ix 35 sub iy 0 add moveto} ifelse % tBtxb i get exec show % } if %start TV -> PRINT TV } if %print TV und ALL pPRTV 0 eq pPRTV 2 eq or { %print PR und ALL /ku Far i get exec def /CAB1 Bi61 i get Bi61 0 get sub dup mul Ai61 i get Ai61 0 get sub dup mul add sqrt def /ix imx CAB1 fak mul i i2 eq {sub} {add} ifelse def /iy imy Li61 i get fak mul add def ix 18 sub iy 18 sub 37 37 fcolors ku get exec outrecfi4 %Farbe-Fuellen je nach Auszug 1 setlinewidth ix 18 sub iy 18 sub 37 37 i1 2 eq {1.0 0.0 1.0 0.0 } {0.0 0.0 1.0 0.0} ifelse colrecst %Farbe-Umgrenzen je nach Auszug 2 setlinewidth 0.0 0.0 0.0 0.0 setcmykcolor ix 17.5 sub iy 21 add moveto /delL1 Li61 i get Li61 0 get sub fak mul 04 div def /delA1 Ai61 i get Ai61 0 get sub fak mul 04 div def /delB1 Bi61 i get Bi61 0 get sub fak mul 04 div def /delLAB1 delL1 dup mul delA1 dup mul add delB1 dup mul add sqrt def 150 16.67 div /Symbol FS (D) show 150 16.67 div /Times-ISOL1 FS (E*=) show delLAB1 trushow %sPRTV 0 eq { %start PR -> PRINT TV %%O-C, text etc. %TBIM tfn %i i1 eq {ix 25 add iy 10 add moveto} % {ix 35 sub iy 0 add moveto} ifelse % tBtxb i get exec show % } if %start PR -> PRINT TV } if %print TV und ALL } for %schleife i TBM newpath /Ball1x 16 array def /Ball1y 16 array def /Ball4x 16 array def /Ball4y 16 array def /Ball1xh 16 array def /Ball1yh 16 array def /Ball4xh 16 array def /Ball4yh 16 array def pPRTV 1 eq pPRTV 2 eq or { %print TV und ALL 150 16.67 div /TimesB-ISOL1 FS 0.0 0.0 0.0 1.0 setcmykcolor %first balls black i1 3 i2 {/j exch def /CAB0 Bi60 j get Bi60 0 get sub dup mul Ai60 j get Ai60 0 get sub dup mul add sqrt def /delL Li60 0 get Li60 j get sub fak mul 15 div def /delCAB0 CAB0 fak mul 15 div def 0 1 15 {/i exch def /imx1 imx delCAB0 i mul j i2 eq {neg} if add def /imy1 imy Li60 0 get fak mul add delL i mul sub def j i1 eq {Ball1x i imx1 put Ball1y i imy1 put} {Ball4x i imx1 put Ball4y i imy1 put} ifelse imx1 imy1 2 0 360 arc fill /imx1 imx delCAB0 0.5 mul i mul j i2 eq {neg} if add def /imy1 imy Li60 0 get Li60 7 get sub 0.5 mul Li60 7 get add fak mul add delL i mul 0.5 mul sub def j i1 eq {Ball1xh i imx1 put Ball1yh i imy1 put} {Ball4xh i imx1 put Ball4yh i imy1 put} ifelse imx1 imy1 2 0 360 arc fill } for } for %j 1 setlinewidth %N-Line i1 3 i2 {/i exch def /CAB0 Bi60 i get Bi60 0 get sub dup mul Ai60 i get Ai60 0 get sub dup mul add sqrt def /ix imx CAB0 fak mul i i2 eq {sub} {add} ifelse def /iy imy Li60 i get fak mul add def ix iy moveto imx imy Li60 7 get fak mul add lineto stroke } for 2 setlinewidth } if %print TV und ALL /Ball2x 5 array def /Ball2y 5 array def /Ball5x 5 array def /Ball5y 5 array def /Ball2xh 5 array def /Ball2yh 5 array def /Ball5xh 5 array def /Ball5yh 5 array def pPRTV 0 eq pPRTV 2 eq or { %print PR und ALL %i1 3 i2 {/j exch def i1 2 eq {1.0 0.0 1.0 0.0 } {0.0 0.0 1.0 0.0} ifelse setcmykcolor %second balls yellow or green i1 3 i2 {/j exch def /CAB1 Bi61 j get Bi61 0 get sub dup mul Ai61 j get Ai61 0 get sub dup mul add sqrt def /delL Li61 0 get Li61 j get sub fak mul 04 div def /delCAB1 CAB1 fak mul 04 div def 0 1 04 {/i exch def /imx2 imx delCAB1 i mul j i2 eq {neg} if add def /imy2 imy Li61 0 get fak mul add delL i mul sub def imx2 imy2 2 0 360 arc fill j i1 eq {Ball2x i imx2 put Ball2y i imy2 put} {Ball5x i imx2 put Ball5y i imy2 put} ifelse /imx1 imx delCAB1 0.5 mul i mul j i2 eq {neg} if add def /imy1 imy Li61 0 get Li61 7 get sub 0.5 mul Li61 7 get add fak mul add delL i mul 0.5 mul sub def j i1 eq {Ball2xh i imx1 put Ball2yh i imy1 put} {Ball5xh i imx1 put Ball5yh i imy1 put} ifelse imx1 imy1 2 0 360 arc fill } for } for %j 1 setlinewidth %N-Line i1 3 i2 {/i exch def /CAB1 Bi61 i get Bi61 0 get sub dup mul Ai61 i get Ai61 0 get sub dup mul add sqrt def /ix imx CAB1 fak mul i i2 eq {sub} {add} ifelse def /iy imy Li61 i get fak mul add def ix iy moveto imx imy Li61 7 get fak mul add lineto stroke } for 2 setlinewidth } if %print PR und ALL %achromatic series pPRTV 1 eq pPRTV 2 eq or { %print TV und ALL sPRTV 1 eq { %start TV -> PRINT PR /delL0 95.41 Li60 7 get sub fak mul 15 div def 0 1 15 {/i exch def 0.0 0.0 0.0 i 15 div setcmykcolor imx imy Li60 0 get fak mul add delL0 i mul sub 2 0 360 arc fill } for } if %start TV -> PRINT PR } if %print TV und ALL pPRTV 0 eq pPRTV 2 eq or { %print PR und ALL sPRTV 0 eq { %start PR -> PRINT TV /delL1 95.41 Li61 7 get sub fak mul 15 div def 0 1 15 {/i exch def 0.0 0.0 0.0 i 15 div setcmykcolor imx imy Li61 0 get fak mul add delL1 i mul sub 2 0 360 arc fill } for } if %start PR -> PRINT TV } if %print PR und ALL %W-N, text etc. TBIS tfn 049 017 moveto (N) show tfw 047 091 moveto (W) show 070 106 moveto (L*) show 124 007 moveto (C*) show -5 -5 rmoveto TBS (ab,a) show 0 5 rmoveto TBIS tfc 014 022 moveto (C) show tfo 124 085 moveto (O) show 154 16.67 div /Times-ISOL1 FS 0 0 1 0 setcmykcolor 069 090 moveto (95) show %Connection 0 1 0 setrgbcolor 0 1 04 {/i exch def %O i 0 eq {/ix 00 def} if i 1 eq {/ix 04 def} if i 2 eq {/ix 08 def} if i 3 eq {/ix 12 def} if i 4 eq {/ix 15 def} if /imx1 Ball1x ix get def /imy1 Ball1y ix get def /imx2 Ball2x i get def /imy2 Ball2y i get def imx1 imy1 moveto imx2 imy2 lineto stroke /imx1 Ball1xh ix get def /imy1 Ball1yh ix get def /imx2 Ball2xh i get def /imy2 Ball2yh i get def imx1 imy1 moveto imx2 imy2 lineto stroke %C i 0 eq {/ix 00 def} if i 1 eq {/ix 03 def} if i 2 eq {/ix 05 def} if i 3 eq {/ix 08 def} if i 4 eq {/ix 10 def} if /imx4 Ball4x ix get def /imy4 Ball4y ix get def /imx5 Ball5x i get def /imy5 Ball5y i get def imx5 imy5 moveto imx4 imy4 lineto stroke /imx4 Ball4xh ix get def /imy4 Ball4yh ix get def /imx5 Ball5xh i get def /imy5 Ball5yh i get def imx5 imy5 moveto imx4 imy4 lineto stroke } for showpage grestore %%Trailer