%!PS-Adobe-3.0 EPSF-3.0 xxx/OE41/OE41L0XX.PS 20110301
%%BoundingBox: 14 08 828 584
/pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
userdict (>>) cvn (]) cvn load put
} if
[/Title (PostScript pictures: http://130.149.60.445/~farbmetrik/OE41/OE41.HTM)
/Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
/Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik)
/Keywords (image reproduction, colour devices)
/Creator (klaus.richter@mac.com)
/CreationDate (D:2011030112000)
/ModDate (D:2011030112000)
/DOCINFO pdfmark
[ /View [ /Fit ]
/DOCVIEW pdfmark
%BEG OE41/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301
%Early Binding: needed for colour separation
%/sgcmykcolor {setcmykcolor} bind def
%/sggray {setgray} bind def
%/sgrgbcolor {setrgbcolor} bind def
%FILE PREPARED FOR MIXED MODE, e. g. input ORS18 and output TLS00
/IMES 0 def %0=LAB* used, no reflection factor necessary
%/IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection
%/i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor
/i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray
%/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor
%/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor
%/i*ptrsc 4 def %LAB* setcolor to lab* setcolor
%/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor
%/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor
%/i*ptrsc 7 def %LAB* setcolor to w* setgray
/ISIN*ioG 0 def %default input for Offset Reflective System (ORS18/FRS09)
/ISOU*ioG 0 def %default output dto.
%/ISIN*ioG 1 def %input for Television Luminous System (TLS00)
%/ISOU*ioG 1 def %output dto.
%/ISIN*ioG 2 def %input for Device Reflective measurement system (FRS09)
%/ISOU*ioG 2 def %output dto.
%/ISIN*ioG 3 def %input for Television Luminous Reflection System (TLS18)
%/ISOU*ioG 3 def %output dto.
%/ISIN*ioG 4 def %input for Natural Luminous System (NLS00)
%/ISOU*ioG 4 def %output dto.
%/ISIN*ioG 5 def %input for Natural Reflective System (NRS11)
%/ISOU*ioG 5 def %output dto.
%/ISIN*ioG 6 def %input for Standard Reflective System (CIE18)
%/ISOU*ioG 6 def %output dto.
%/ISIN*ioG 7 def %input for Standard Reflective System (TLS70)
%/ISOU*ioG 7 def %output dto.
/iLAB 0 def /colormg 0 def
%END OE41/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301
%BEG OE41/OUTLIN1X.PS 20110301
%EMPTY
%END OE41/OUTLIN1X.PS 20110301
/CFilenameS1g %START output of step S1g
(OE41L0N) def %Link file name for data
/CDateS1g (2011-03-01, Name) def %Date of calculation, Tester
/CDeviceS1g (unknown ) def %Device name
/CMeasS1g (OE41/OE41L0N) def %File name measured in step S1g
%change scount2g from 2 to 10 for 10 series
%change pcount2g from 8 to 240 for 240 pages of each series
/scount1g 1 def /scount2g 1 def /scountg 1 def
/pcount1g 1 def /pcount2g 1 def /pcountg 1 def
/xchart1g 0 def /xchart2g 1 def /xchartg 0 def
/BeginEPSF { % def % Prepare for EPS file
/b4_Inc_state save def % Save state for cleanup
/dict_count countdictstack def
/op_count count 1 sub def % Count objects on op stack
userdict begin % Make userdict current dict
/showpage {} def
0 setgray 0 setlinecap
1 setlinewidth 0 setlinejoin
10 setmiterlimit [] 0 setdash newpath
/languagelevel where % If level not equal to 1 then
{pop languagelevel where % If level not equal to 1 then
1 ne
{false setstrokeadjust false setoverprint
} if
} if
} bind def
/EndEPSF { % def
count op_count sub {pop} repeat
countdictstack dict_count sub {end} repeat % Clean up dict stack
b4_Inc_state restore
} bind def
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/languagelevel where {pop languagelevel} {1} ifelse
/PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
repeat pop currentdict end} bind def
% !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I
/Times-Roman findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Times-ISOL1 exch definefont pop
/Times-Italic findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesI-ISOL1 exch definefont pop
/Times-Bold findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesB-ISOL1 exch definefont pop
/Times-BoldItalic findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesBI-ISOL1 exch definefont pop
/Courier-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
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def
/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
%ANFA CMYKDEF
%CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97
/tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
1.000 0.750 0.500 0.250 0.000] def
/tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
1.000 0.750 0.500 0.250 0.000] def
/tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
1.000 0.750 0.500 0.250 0.000] def
/tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
1.000 0.750 0.500 0.250 0.000] def
/tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 0.000 0.000 0.000] def
/tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
1.000 1.000 1.000 1.000 1.000] def
%ENDE CMYKD
/rec %x, y width heigth
{/heigth exch def /width exch def
moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
/colrecfiLAB* %x y width heigth LAB*
{ setcolor rec fill} bind def
/colrecstLAB* %x y width heigth LAB*
{ setcolor rec stroke} bind def
/colrecficmyn* %x y width heigth cmy0* or 000n*
{ setcmykcolor rec fill} bind def
/colrecstcmyn* %x y width heigth cmy0* or 000n*
{ setcmykcolor rec stroke} bind def
/colrecfiw* %x y width heigth w*
{ setgray rec fill} bind def
/colrecstw* %x y width heigth w*
{ setgray rec stroke} bind def
/colrecfiolv* %x y width heigth olv*
{ setrgbcolor rec fill} bind def
/colrecstolv* %x y width heigth olv*
{ setrgbcolor rec stroke} bind def
/tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours
/tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor
/tzvcmy0* {1.0 1.0 0.0 0.0} bind def
/tzccmy0* {1.0 0.0 0.0 0.0} bind def
/tzmcmy0* {0.0 1.0 0.0 0.0} bind def
/tzycmy0* {0.0 0.0 1.0 0.0} bind def
/tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours
/tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor
/tzvolv* {0.0 0.0 1.0} bind def
/tzcolv* {0.0 1.0 1.0} bind def
/tzmolv* {1.0 0.0 1.0} bind def
/tzyolv* {1.0 1.0 0.0} bind def
/tzoLAB* [53.34 72.46 50.66] def %Reproduction colours
/tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor
/tzvLAB* [32.20 24.88 -37.89] def
/tzcLAB* [88.10 -44.88 -13.36] def
/tzmLAB* [59.66 90.32 -19.65] def
/tzyLAB* [93.76 -20.24 85.93] def
/tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series
/tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor
/tzzcmy0* {0.50 0.50 0.50 0.00} bind def
/tzhcmy0* {0.25 0.25 0.25 0.00} bind def
/tzwcmy0* {0.00 0.00 0.00 0.00} bind def
/tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n*
/tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor
/tzz000n* {0.00 0.00 0.00 0.50} bind def
/tzh000n* {0.00 0.00 0.00 0.25} bind def
/tzw000n* {0.00 0.00 0.00 0.00} bind def
/tznw* {0.00} bind def %grey series
/tzdw* {0.25} bind def %w* setgray
/tzzw* {0.50} bind def
/tzhw* {0.75} bind def
/tzww* {1.00} bind def
/tznolv* {0.00 0.00 0.00} bind def %grey series
/tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor
/tzzolv* {0.50 0.50 0.50} bind def
/tzholv* {0.75 0.75 0.75} bind def
/tzwolv* {1.00 1.00 1.00} bind def
/tznLAB* [18.01 0.00 0.00] def %grey series
/tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor
/tzzLAB* [56.71 0.00 0.00] def
/tzhLAB* [76.06 0.00 0.00] def
/tzwLAB* [95.41 0.00 0.00] def
/tfn {0 setgray} bind def
/tfw {1 setgray} bind def
/A4quer {598 0 translate 90 rotate} def
%0
%1
/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
/tzank [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
1.000 0.750 0.500 0.250 0.000] def
/LAB*TE
[(ORS18) (TLS00) (FRS06) (TSL18) (NLS00) (NLS18) (SRS18) (TLS70)
(TLS00) (TLS06) (TLS11) (TLS18) (TLS27) (TLS38) (TLS52) (TLS70)
(OLS00) (OLS06) (OLS11) (OLS18) (OLS27) (OLS38) (OLS52) (OLS70)] def
%BEG 61 lines comment or new PS operators possible
%1
%2
%3
%%EndProlog
%%BeginPageSetup
/#copies 1 def
%A4quer
1.0 1.0 scale
/pgsave save def
%%EndPageSetup
0.0 MM 0.0 MM translate %Verschiebung nach oben und links fuer Belichter
gsave
/SS$ [(G) (E) (S) (F) (I) (J) (M)] def
/SC$ [(N) (F) (S) (D) (T) (E) (C)] def
/SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)%max 32
(G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)] def
/SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)%max 32
(G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)] def
% 0 1 2 3 4 5
% 6 7 8
/EX$ [(A.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS)
(J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def
/EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT)
(P.DAT) (T.DAT)] def
/lanindg1 1 def /lanindg2 1 def
/colormg1 0 def /colormg2 0 def
/xcolorg1 0 def /xcolorg2 0 def
/xchartg1 0 def /xchartg2 0 def
/lanindg lanindg1 def %no loops
/colormg colormg1 def
/xcolorg xcolorg1 def
/xchartg xchartg1 def
/pcount2x pcount2g xchart2g sub 2 add def
%scount1g 1 scount2g {/scountg exch def %s=serie, e. g. 1,1,10
%pcount1g 1 pcount2x {/pcountg exch def %p=page, e. g. 1,1,250
/xchart10 0 def /xchart20 109 def /xchart20m xchart20 def
%pcountg pcount1g eq {/xchart10 0 def /xchart20 0 def}
% {/xchart10 1 def /xchart20 1 def} ifelse
%pcountg pcount2x eq {/xchart10 2 def /xchart20 9 def} if
/xchartf where {pop /xchart10 xchartf def /xchart20 xchartf def
/xchart20m xchart20f def} if
xchart10 1 xchart20 {/xchartg exch def
/ausz 8 def
/colorm colormg def /xchart xchartg def /xchartg0 0 def
%needs Definition of xcharti, is only in OUTLIN1X.PS
%2 MM /Times-Roman FS
%274 MM 82 MM moveto -90 rotate (/OE41/ ) show (Form: ) show
%xchartg 1 add cvi 6 string cvs show (/) show
%xchart2g 1 add cvi 6 string cvs show (,) show 90 rotate
%274 MM 65 MM moveto -90 rotate (Serie: ) show
%scountg cvi 6 string cvs show (/) show
%scount2g cvi 6 string cvs show (,) show 90 rotate
%274 MM 55 MM moveto -90 rotate
%lanindg 0 eq {(Seite: )}{(Page: )} ifelse show
%pcountg xchartg xchart10 sub add cvi 6 string cvs show 90 rotate
%274 MM 45 MM moveto
%-90 rotate
%lanindg 0 eq {(Seitenz\344hlung )}{(Page: count: )} ifelse show
%scountg 1 sub pcount2g mul pcountg add
%pcountg pcount2x eq {xchartg add pcount1g pcount2x ne {2 sub } if} if
%cvi 6 string cvs show
%90 rotate
/GSS$ SS$ lanindg get def
/GSC$ SC$ colormg get def
/GSX$ SX$ xcolorg xcolorg 16 idiv 16 mul sub get def
/GSY$ SY$ xchartg xchartg 16 idiv 16 mul sub get def %special
/GEX$ EX$ 6 get def
/GEY$ EY$ 6 get def
%gsave
BeginEPSF
28 MM 197 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate
%%BeginDocument: Bild 10
%line 329
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
28 MM 152 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate
%%BeginDocument: Bild 11
%line 339
%!PS-Adobe-3.0 EPSF-3.0 OE410-1,
%%BoundingBox: 70 90 226 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
8 /Times-Roman FS
72 83 moveto
%!2 (OE410-1,) show
72 90 translate
%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
86 MM 152 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 12
%line 349
%!PS-Adobe-3.0 EPSF-3.0 OE410-2,
%%BoundingBox: 70 90 226 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
8 /Times-Roman FS
72 83 moveto
%!2 (OE410-2,) show
72 90 translate
%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
28 MM 108 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 13
%line 359
%!PS-Adobe-3.0 EPSF-3.0 OE410-3,
%%BoundingBox: 70 90 226 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
8 /Times-Roman FS
72 83 moveto
%!2 (OE410-3,) show
72 90 translate
%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
86 MM 108 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 14
%line 369
%!PS-Adobe-3.0 EPSF-3.0 OE410-4,
%%BoundingBox: 70 90 226 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
8 /Times-Roman FS
72 83 moveto
%!2 (OE410-4,) show
72 90 translate
%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
28 MM 064 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 15
%line 379
%!PS-Adobe-3.0 EPSF-3.0 OE410-5,
%%BoundingBox: 70 90 226 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
8 /Times-Roman FS
72 83 moveto
%!2 (OE410-5,) show
72 90 translate
%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
86 MM 064 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 16
%line 389
%!PS-Adobe-3.0 EPSF-3.0 OE410-6,
%%BoundingBox: 70 90 226 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
8 /Times-Roman FS
72 83 moveto
%!2 (OE410-6,) show
72 90 translate
%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
28 MM -1 MM add
20 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 17
%line 399
%!PS-Adobe-3.0 EPSF-3.0 OE410-7N.EPS
%%BoundingBox: 70 82 785 580
%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/OE41/)
/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:2011030112000)
/ModDate (D:2011030112000)
/DOCINFO pdfmark07
[ /View [ /FitB ]
/DOCVIEW pdfmark07
%END PDFDE011
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/languagelevel where {pop languagelevel} {1} ifelse
/PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
repeat pop currentdict end} bind def
/Times-Roman findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Times-ISOL1 exch definefont pop
/Times-Italic findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesI-ISOL1 exch definefont pop
/Times-Bold findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesB-ISOL1 exch definefont pop
/Times-BoldItalic findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesBI-ISOL1 exch definefont pop
/TS {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def
/TIS {200 /TimesI-ISOL1 FS} bind def
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def
/TBS {200 /TimesB-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def
/TBIS {200 /TimesBI-ISOL1 FS} bind def
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def
/FileDaten (LECD monitor, anti glossy, no separation, D65) def
/FileDatde (LECD\255Monitor, wenig Glanz, keine Separation, D65) def
/xyY0 4320 array def %1080x4
/xyY0 [%Apple MacBook 17" without glossy display
%Measurement new Apple MacBookPro 17", 2009-12-07, BAM
%Colours of file IE31L0NP.PDF (1080 output pages); Mac Preview used
%produced with the settings of the LED-LCD (LECD) monitor; full white used
01 3226 3333 0031 %N00V
02 2304 1885 0036 %N13V
03 1820 1083 0047 %N25V
04 1681 0847 0060 %N38V
05 1604 0740 0076 %N50V
06 1562 0680 0095 %N63V
07 1531 0640 0117 %N75V
08 1509 0622 0150 %N88V
09 1474 0613 0239 %N99V
10 3100 4639 0078
11 2480 3118 0082
12 1992 1854 0093
13 1800 1355 0107
14 1686 1109 0123
15 1630 0957 0141
16 1589 0860 0164
17 1552 0790 0196
18 1503 0718 0285 %
19 3036 5559 0199
20 2700 4493 0203
21 2257 3076 0215
22 2029 2340 0229
23 1882 1874 0244
24 1782 1572 0263
25 1713 1361 0286
26 1651 1185 0318
27 1570 0976 0406
28 3007 5880 0354 %
29 2800 5130 0358
30 2445 3910 0369
31 2215 3139 0382
32 2055 2578 0399
33 1938 2182 0417
34 1845 1876 0440
35 1782 1615 0472
36 1647 1274 0560 %
37 3010 6022 0545
38 2864 5490 0550
39 2582 4503 0561
40 2373 3771 0574
41 2210 3190 0590
42 2081 2748 0609
43 1980 2381 0632
44 1880 2058 0664
45 1736 1598 0752
46 3025 6105 0771 %
47 2909 5700 0775
48 2681 4900 0786
49 2500 4258 0799
50 2343 3692 0815
51 2215 3240 0834
52 2104 2848 0856
53 1996 2478 0889
54 1828 1930 0977
55 3035 6156 1065 %
56 2952 5857 1070
57 2772 5217 1081
58 2617 4661 1094
59 2474 4148 1110
60 2348 3709 1128
61 2234 3312 1151
62 2120 2920 1183
63 1933 2300 1272
64 3058 6194 1478 %
65 2998 5973 1482
66 2856 5477 1494
67 2726 5015 1507
68 2600 4570 1523
69 2485 4165 1541
70 2375 3782 1564
71 2259 3386 1596
72 2059 2723 1684
73 3097 6226 2227 %
74 3051 6073 2231
75 2952 5720 2243
76 2851 5373 2257
77 2750 5017 2272
78 2650 4677 2291
79 2550 4338 2313
80 2442 3969 2346
81 2238 3300 2435
82 4250 3325 0045 %
83 3100 2160 0049
84 2251 1295 0061
85 1954 0997 0074
86 1800 0844 0090
87 1713 0756 0109
88 1645 0704 0131
89 1597 0669 0164
90 1530 0643 0253
91 3810 4405 0091 %
92 3056 3156 0096
93 2339 1963 0107
94 2044 1467 0120
95 1872 1190 0136
96 1773 1023 0155
97 1695 0917 0177
98 1634 0831 0210
99 1555 0746 0299
100 3400 5327 0212 %
101 1020 4485 0217
102 2500 3100 0228
103 2216 2390 0242
104 2031 1927 0258
105 1903 1621 0277
106 1805 1400 0300
107 1729 1220 0331
108 1621 1000 0420
109 3230 5705 0367 %
110 3000 5035 0372
111 2620 3902 0384
112 2369 3156 0397
113 2177 2604 0413
114 2040 2210 0431
115 1928 1904 0454
116 1831 1642 0484
117 1695 1292 0575
118 3165 5901 0560 %
119 3008 5402 0565
120 2712 4469 0576
121 2490 3768 0589
122 2311 3203 0606
123 2170 2766 0623
124 2050 2404 0667
125 1942 2078 0679
126 1780 1615 0768
127 3130 6010 0786 %
128 3020 5638 0790
129 2787 4869 0802
130 2592 4220 0816
131 2427 3695 0831
132 2287 3250 0849
133 2167 2859 0873
134 2050 2494 0904
135 1868 1944 0994
136 3118 6092 1082 %
137 3034 5800 1086
138 2850 5184 1097
139 2687 4643 1111
140 2540 4142 1127
141 2408 3710 1146
142 2288 3316 1168
143 2167 2928 1200
144 1970 2312 1289
145 3117 6143 1495 %
146 3058 5927 1500
147 2913 5447 1510
148 2780 4997 1523
149 2650 4559 1540
150 2532 4161 1558
151 2419 3782 1581
152 2300 3390 1613
153 2090 2730 1702
154 3135 6192 2239 %
155 3092 6042 2244
156 2990 5694 2255
157 2890 5353 3368
158 2783 5002 2284
159 2683 4666 2303
160 2582 4329 2326
161 2470 3964 2358
162 2263 3298 2447
163 5200 3375 0081 %
164 4130 2537 0086
165 3033 1681 0097
166 2524 1300 0111
167 2229 1075 0126
168 2040 0940 0144
169 1907 0849 0168
170 1800 0783 0200
171 1661 0715 0289
172 4696 4040 0127 %
173 3946 3225 0132
174 3015 2200 0143
175 2557 1690 0157
176 2266 1378 0173
177 2080 1184 0191
178 1946 1045 0213
179 1831 0934 0246
180 1684 0814 0335
181 4040 4931 0249 %
182 3627 4217 0253
183 3000 3140 0265
184 2623 2487 0278
185 2355 2036 0294
186 2172 1729 0313
187 2030 1497 0335
188 1910 1305 0368
189 1742 1061 0457
190 5693 5387 0404 %
191 3440 4825 0409
192 2999 3850 0420
193 2683 3172 0433
194 2445 2654 0449
195 2270 2275 0468
196 2123 1970 0491
197 1994 1704 0523
198 1810 1344 0612
199 3498 5653 0597 %
200 3330 5226 0602
201 3000 4391 0613
202 2747 3750 0626
203 2531 3217 0643
204 2365 2796 0661
205 2219 2444 0684
206 2087 2121 0716
207 1883 1657 0894
208 3378 5829 0823 %
209 3261 5476 0828
210 3010 4781 0840
211 2797 4200 0853
212 2608 3681 0869
213 2453 3256 0888
214 2311 2881 0910
215 2177 2521 0942
216 1964 1977 1031
217 3305 5939 1119 %
218 3216 5674 1124
219 3025 5101 1136
220 2850 4590 1148
221 2686 4115 1164
222 2545 3702 1183
223 2412 3322 1205
224 2276 2942 1238
225 2055 2333 1327
226 3260 6031 1532 %
227 3194 5826 1537
228 3044 5371 1547
229 2905 4943 1561
230 2770 4524 1577
231 2640 4142 1595
232 2520 3772 1618
233 2390 3394 1650
234 2165 2743 1740
235 3230 6112 2273 %
236 3186 5970 2278
237 3080 5635 2290
238 2975 5306 2303
239 2869 4966 2318
240 2763 4639 2337
241 2658 4310 2361
242 2540 3952 2393
243 2323 3298 2482
244 5660 3370 0126 %
245 4820 2787 0131
246 3680 2006 0143
247 3070 1585 0156
248 2668 1316 0172
249 2405 1143 0190
250 2205 1013 0213
251 2040 0915 0245
252 1820 0803 0335
253 5230 3855 0172 %
254 4567 3260 0177
255 3613 2402 0189
256 3057 1910 0202
257 2680 1580 0219
258 2424 1355 0237
259 2226 1190 0280
260 2062 1059 0292
261 1840 0898 0382
262 4550 4600 0294 %
263 4150 4063 0299
264 3480 3173 0311
265 3038 2582 0325
266 2713 2152 0340
267 2473 1846 0359
268 2286 1604 0382
269 2120 1400 0414
270 1889 1132 0504
271 4110 5085 0450
272 3860 4623 0455
273 3380 3802 0466
274 3025 3198 0479
275 2745 2710 0496
276 2530 2343 0515
277 2348 2043 0537
278 2184 1775 0569
279 1945 1405 0659
280 3830 5395 0643 %
281 3657 5027 0648
282 3305 4302 0660
283 3324 3722 0673
284 2782 3226 0689
285 2587 2830 0708
286 2418 2486 0731
287 2254 2170 0763
288 2010 1705 0852
289 3645 5606 0869 %
290 3522 5307 0874
291 3255 4680 0886
292 3029 4149 0900
293 2820 3666 0915
294 2642 3265 0934
295 2485 2902 0957
296 2328 2553 0989
297 2080 2012 1078
298 3515 5767 1165 %
299 3422 5527 1170
300 3220 5002 1182
301 3035 4528 1195
302 2860 4082 1211
303 2704 3690 1229
304 2560 3324 1253
305 2410 2955 1285
306 2160 2358 1374
307 3418 5897 1578 %
308 3353 5707 1583
309 3200 5280 1594
310 3052 4877 1607
311 2906 4481 1624
312 2772 4115 1642
313 2640 3762 1665
314 2501 3392 1698
315 2257 2756 1787
316 3340 6018 2318 %
317 3296 5880 2322
318 3190 5562 2334
319 3082 5247 2348
320 2970 4919 2364
321 2860 4605 2383
322 2750 4287 2406
323 2627 3939 2438
324 2396 3299 2528
325 5924 3370 0186 %
326 5278 2943 0192
327 4238 2287 0203
328 3590 1856 0217
329 3125 1560 0233
330 2800 1360 0250
331 2540 1200 0274
332 2315 1078 0306
333 2014 0912 0397
334 5577 3724 0232 %
335 5040 3285 0237
336 4140 2580 0249
337 3550 2123 0263
338 3112 1783 0279
339 2800 1545 0297
340 2548 1358 0320
341 2330 1200 0353
342 2030 0999 0443
343 4963 4338 0354 %
344 4600 3928 0360
345 3940 3207 0371
346 3465 2685 0385
347 3090 2277 0401
348 2808 1976 0420
349 2577 1730 0443
350 2368 1514 0475
351 2068 1221 0565
352 4500 4802 0509 %
353 4255 4436 0515
354 3770 3751 0527
355 3393 3215 0540
356 3080 2773 0557
357 2828 2423 0575
358 2610 2128 0598
359 2413 1864 0630
360 2114 1479 0720
361 4170 5139 0703 %
362 3995 4826 0708
363 3635 4208 0720
364 3333 3690 0734
365 3070 3240 0750
366 2846 2865 0768
367 2650 2540 0791
368 2461 2229 0823
369 2166 1763 0914
370 3935 5380 0930 %
371 3806 5118 0934
372 3530 4570 0946
373 3288 4090 0960
374 3063 3650 0976
375 2869 3270 0994
376 2690 2926 1017
377 2510 2588 1049
378 2223 2057 1139
379 3750 5576 1224 %
380 3659 5360 1230
381 3448 4890 1242
382 3252 4458 1255
383 3066 4044 1270
384 2895 3674 1290
385 2734 3326 1312
386 2570 2973 1345
387 2288 2388 1434
388 3604 5740 1636 %
389 3538 5570 1641
390 3380 5175 1654
391 3228 4803 1666
392 3075 4430 1682
393 2931 4085 1701
394 2789 3748 1724
395 2639 3392 1756
396 2370 2771 1846
397 3478 5900 2374 %
398 3432 5773 2380
399 3322 5474 2391
400 3212 5176 2404
401 3094 4864 2420
402 2981 4565 2439
403 2863 4260 2462
404 2735 3923 2494
405 2490 3299 2585
406 6080 3377 0259 %
407 5575 3064 0264
408 4680 2500 0277
409 4049 2104 0290
410 3555 1799 0306
411 3188 1573 0325
412 2885 1394 0347
413 2613 1236 0380
414 2227 1028 0471
415 5811 3635 0304
416 5374 3312 0310
417 4576 2729 0322
418 3988 2312 0335
419 3525 1980 0352
420 3175 1728 0371
421 2883 1530 0394
422 2618 1350 0426
423 2237 1109 0517
424 5282 4135 0425 %
425 4965 3828 0431
426 4343 3239 0443
427 3866 2778 0457
428 3470 2400 0473
429 3152 2106 0492
430 2884 1859 0515
431 2634 1633 0547
432 2266 1317 0637
433 4839 4560 0580 %
434 4610 4270 0586
435 4140 3700 0598
436 3750 3238 0612
437 3412 2830 0627
438 3134 2503 0646
439 2890 2218 0670
440 2657 1952 0701
441 2300 1557 0792
442 4487 4899 0773 %
443 4320 4642 0778
444 3958 4115 0790
445 3649 3660 0803
446 3362 3251 0820
447 3122 2905 0839
448 2899 2594 0861
449 2684 2292 0894
450 2340 1826 0984
451 4215 5160 0998 %
452 4090 4939 1004
453 3815 4460 1016
454 3561 4030 1029
455 3322 3630 1046
456 3112 3278 1064
457 2913 2952 1087
458 2714 2627 1119
459 2383 2103 1209
460 3996 5380 1293 %
461 3902 5194 1299
462 3688 4772 1312
463 3483 4383 1325
464 3288 4003 1340
465 3104 3658 1360
466 2932 3331 1382
467 2749 2990 1415
468 2436 2422 1505
469 3807 5576 1706 %
470 3740 5420 1711
471 3578 5063 1723
472 3420 4721 1736
473 3260 4370 1753
474 3108 4051 1772
475 2958 3733 1795
476 2794 3391 1827
477 2500 2790 1918
478 3630 5774 2443
479 3585 5655 2448
480 3472 5375 2460
481 3358 5098 2474
482 3236 4805 2490
483 3118 4520 2509
484 2995 4228 2532
485 2858 3904 2564
486 2597 3300 2655
487 6192 3378 0353 %
488 5809 3141 0360
489 5054 2680 0372
490 4471 2325 0385
491 3977 2025 0401
492 3587 1793 0420
493 3253 1594 0442
494 2940 1417 0475
495 2475 1166 0566
496 5984 3570 0399 %
497 5640 3330 0405
498 4949 2862 0417
499 4499 2486 0430
500 3935 2170 0445
501 3563 1922 0465
502 3240 1710 0488
503 2938 1518 0521
504 2481 1240 0612
505 5543 3972 0520 %
506 5270 3738 0526
507 4712 3260 0538
508 4254 2865 0551
509 3850 2526 0568
510 3512 2243 0586
511 3220 2000 0610
512 2936 1770 0642
513 2500 1430 0733
514 5140 4346 0674 %
515 4930 4121 0680
516 4488 3654 0692
517 4110 3258 0706
518 3761 2895 0722
519 3466 2590 0741
520 3202 2318 0764
521 2938 2055 0796
522 2521 1652 0887
523 4790 4666 0866 %
524 4630 4460 0872
525 4286 4025 0884
526 3971 3631 0898
527 3680 3264 0914
528 3422 2948 0933
529 3182 2655 0956
530 2942 2364 0988
531 2546 1903 1079
532 4508 4934 1092 %
533 4386 4749 1098
534 4110 4341 1110
535 3855 3967 1123
536 3607 3609 1140
537 3382 3286 1158
538 3169 2984 1182
539 2950 2674 1213
540 2576 2163 1304
541 4258 5173 1387 %
542 4165 5007 1393
543 3950 4646 1405
544 3744 4299 1418
545 5336 3955 1435
546 3345 3640 1453
547 3158 3334 1477
548 2960 3013 1509
549 2612 2462 1600
550 4032 5393 1800 %
551 3966 5253 1806
552 3801 4936 1818
553 3639 4627 1831
554 3474 4310 1847
555 3313 4011 1855
556 3153 3713 1889
557 2977 3390 1921
558 2658 2813 2012
559 3807 5626 2535 %
560 3762 5516 2541
561 3646 5261 2553
562 3530 5004 2567
563 3405 4733 2583
564 3281 4465 2602
565 3155 4190 2625
566 3008 3882 2657
567 2730 3301 2750
568 6269 3383 0472 %
569 5973 3202 0478
570 5351 2823 0491
571 4828 2510 0503
572 4362 2232 0520
573 3971 2000 0539
574 3620 1796 0561
575 3280 1604 0594
576 2746 1315 0686
577 6113 3529 0518
578 5837 3340 0523
579 5254 2963 0536
580 4762 2640 0550
581 4314 2350 0565
582 3940 2110 0584
583 3602 1895 0607
584 3270 1690 0640
585 2750 1383 0731
586 5750 3848 0639 %
587 5520 3665 0644
588 5032 3280 0657
589 4606 2946 0670
590 4211 2639 0686
591 3874 2379 0705
592 3560 2142 0728
593 3251 1913 0761
594 2758 1556 0852
595 5394 4167 0793 %
596 5212 3992 0799
597 4810 3612 0811
598 4446 3275 0825
599 4105 2955 0841
600 3805 2679 0860
601 3520 2420 0883
602 3236 2166 0915
603 2766 1759 1006
604 5068 4464 0986 %
605 4920 4297 0991
606 4594 3936 1004
607 4292 3601 1017
608 3997 3270 1033
609 3732 2992 1052
610 3480 2720 1076
611 3220 2445 1107
612 2780 1989 1198
613 4782 4720 1212 %
614 4666 4570 1217
615 4402 4225 1229
616 4150 3905 1243
617 3900 3589 1260
618 3667 3298 1278
619 3444 3017 1301
620 3206 2725 1333
621 2793 2232 1424
622 4518 4965 1507 %
623 4429 4828 1513
624 4217 4515 1525
625 4012 4212 1539
626 3802 3905 1555
627 3603 3620 1573
628 3407 3338 1596
629 3193 3038 1629
630 2812 2510 1720
631 4270 5201 1919 %
632 4204 5082 1925
633 4040 4802 1938
634 2873 4528 1950
635 3704 4242 1967
636 3540 3969 1986
637 3371 3692 2009
638 3185 3390 2041
639 2840 2840 2133
640 4006 5463 2654 %
641 3957 5363 2660
642 3842 5134 2672
643 3722 4901 2686
644 3593 4650 2702
645 3466 4403 2721
646 3332 4146 2744
647 3180 3858 2776
648 2883 3305 2868
649 6354 3382 0667 %
650 6133 3250 0671
651 5652 2963 0682
652 5210 2702 0695
653 4790 2458 0711
654 4419 2240 0730
655 4070 2040 0752
656 3712 1838 0784
657 3113 1514 0874
658 6238 3485 0712 %
659 6028 3355 0716
660 5564 3064 0728
661 5144 2799 0741
662 4741 3549 0756
663 4382 2326 0775
664 4041 2117 0798
665 3695 1910 0830
666 3112 1573 0920
667 5955 3732 0834 %
668 5775 3600 0839
669 5370 3307 0850
670 4993 3034 0862
671 4630 2774 0878
672 4302 2541 0897
673 3987 2320 0920
674 3663 2095 0952
675 3108 1724 1042
676 5661 3989 0990 %
677 5508 3860 0995
678 5160 3569 1006
679 4832 3296 1019
680 4508 3030 1036
681 4212 2785 1054
682 3925 2552 1077
683 3624 2311 1109
684 3103 1904 1199
685 5370 4245 1186 %
686 5240 4121 1191
687 4946 3839 1203
688 4663 3567 1216
689 4382 3298 1232
690 4120 3049 1251
691 3861 2807 1274
692 3588 2552 1306
693 3100 2113 1396
694 5101 4481 1417 %
695 4995 4362 1422
696 4746 4092 1434
697 4506 3830 1447
698 4261 3560 1464
699 4030 3312 1482
700 3800 3064 1506
701 3550 2800 1538
702 3098 2332 1627
703 4837 4718 1717 %
704 4751 4606 1723
705 4547 4352 1734
706 4345 4100 1748
707 4137 3841 1765
708 3937 3593 1783
709 3734 3346 1806 %
710 3513 3077 1838
711 3098 2584 1927
712 4576 4958 2133
713 4508 4859 2138
714 4345 4624 2149
715 4182 4390 2162
716 4010 4145 2178
717 3840 3906 2198
718 3668 3663 2221
719 3472 3393 2252
720 3100 2885 2342
721 4276 5240 2866 %
722 4228 5256 2871
723 4108 4956 2883
724 3987 4750 2896
725 3854 4530 2912
726 3723 4310 2931
727 3584 4080 2953
728 3425 3821 2986
729 3109 3312 3075 %End of measurement series; measurement pause of 30 min
730 3114 3315 3096 %15 min wait decreases luminance from 3125 to 3096
731 2892 3311 2904
732 2741 3308 2783
733 2607 3305 2686
734 2497 3302 2610
735 2403 3300 2547
736 2327 3299 2499
737 2265 3298 2462
738 2240 3297 2446
739 3472 3392 2270 %
740 3187 3390 2073
741 2983 3388 1952
742 2800 3389 1854
743 2643 3389 1778
744 2506 3388 1715
745 2392 3386 1666
746 2300 3384 1626
747 2259 3381 1607
748 3730 3344 1823 %
749 3402 3336 1626
750 3158 3330 1506
751 2934 3325 1407
752 2736 3320 1331
753 2560 3319 1269
754 2413 3314 1221
755 2286 3309 1181
756 2234 3301 1162
757 4019 3308 1499 %
758 3658 3294 1303
759 3377 3283 1182
760 3110 3276 1085
761 2868 3266 1010
762 2644 3257 0947
763 2454 3250 0899
764 2288 3240 0859
765 2212 3230 0841
766 4366 3295 1248
767 3983 3275 1053
768 3670 3261 0933
769 3358 3246 0835
770 3064 3234 0760
771 2783 3220 0698
772 2530 3205 0651
773 2307 3191 0613
774 2207 3180 0595
775 4810 3292 1033 %
776 4425 3279 0839
777 4096 3250 0719
778 3742 3228 0622
779 3388 3206 0547
780 3025 3187 0486
781 2684 3167 0439
782 2367 3145 0402
783 2213 3130 0384
784 5350 3303 0860 %
785 5015 3278 0666
786 4699 3258 0547
787 4333 3228 0450
788 3935 3200 0375
789 3471 3169 0314
790 3000 3127 0268
791 2500 3088 0230
792 2255 3065 0216
793 6018 3352 0723 %
794 5824 3340 0529
795 5626 3325 0409
796 5370 3305 0313
797 5034 3287 0239
798 4554 3255 0178
799 3937 3204 0133
800 3055 3140 0096
801 2490 3100 0082
802 6356 3382 0671 %
803 6276 3381 0476
804 6195 3378 0356
805 6075 3382 0261
806 5921 3375 0187
807 5676 3370 0127
808 5228 3351 0081
809 4250 3333 0045
810 3226 3333 0031
811 3108 3310 3071 %
812 2842 2843 2144
813 2616 2466 1612
814 2386 2109 1219
815 2167 1763 0916
816 1946 1404 0661
817 1744 1062 0458
818 1556 0744 0300
819 1475 0610 0238
820 3423 3819 2982 %
821 3185 3388 2053
822 2960 3012 1521
823 2714 2628 1128
824 2460 2229 0826
825 2185 1776 0572
826 1909 1302 0369
827 1634 0834 0210
828 1509 0619 0148
829 3583 4081 2949 %
830 3368 3685 2021
831 3157 3330 1488
832 2914 2952 1096
833 2649 2535 0794
834 2350 2039 0540
835 2029 1493 0337
836 1695 0913 0179
837 1531 0640 0117
838 3721 4310 2926 %
839 3535 3962 1997
840 3342 3633 1465
841 3110 3273 1073
842 2846 2861 0771
843 2528 2340 0517
844 2169 1724 0314
845 1768 1023 0155
846 1563 0674 0094
847 3854 4530 2906 %
848 3700 4234 1976
849 3535 3949 1446
850 3321 3624 1053
851 3065 3232 0752
852 2742 2704 0498
853 2354 2032 0296
854 1877 1190 0137
855 1602 0738 0076
856 3985 4751 2890 %
857 3871 4520 1962
858 3738 4292 1429
859 3556 4026 1037
860 3332 3686 0736
861 3024 3185 0481
862 2620 2480 0279
863 2041 1470 0120
864 1674 0851 0060
865 4106 4957 2877 %
866 4038 4796 1948
867 3946 4635 1415
868 3812 4452 1023
869 3632 4203 0722
870 3380 3799 0468
871 2992 3133 0266 %kor 2133->3133
872 2340 1956 0108
873 1820 1090 0047
874 4226 5158 2866 %
875 4201 5079 1936
876 4162 5007 1403
877 4094 4932 1011
878 3995 4830 0710
879 3854 4625 0455
880 3626 4212 0254
881 3059 3158 0096
882 2340 1869 0035
883 4276 5242 2861 %
884 4271 5201 1929
885 4258 5172 1396
886 4220 5156 1005
887 4172 5138 0704
888 4115 5085 0450
889 4035 4931 0249
890 3800 4396 0091
891 3200 3333 0030
892 3106 3309 3069 %
893 3097 2881 2336
894 3095 2581 1923
895 3097 2331 1627
896 3100 2113 1399
897 3104 1907 1205
898 3109 1727 1047
899 3114 1574 0924
900 3115 1515 0878
901 3179 3852 2787 %
902 3184 3388 2051
903 3191 3036 1640
904 3205 2726 1344
905 3217 2446 1117
906 3233 2168 0923
907 3250 1912 0767
908 3269 1691 0644
909 3279 1602 0597
910 3152 4182 2634 %
911 3152 3706 1898
912 3158 3329 1486
913 3166 2982 1190
914 3180 2653 0965
915 3197 2316 0770
916 3216 1997 0614
917 3237 1710 0492
918 3250 1592 0445
919 3116 4509 2515 %
920 3107 4043 1778
921 3104 3651 1366
922 3108 3274 1070
923 3118 2899 0844
924 3131 2501 0651
925 3146 2103 0495
926 3170 1725 0373
927 3180 1569 0326
928 3093 4856 2421 %
929 3072 4422 1684
930 3063 4036 1273
931 3060 3641 0977
932 3064 3231 0751
933 3074 2763 0558
934 3086 2274 0402
935 3104 1781 0280
936 3115 1560 0233
937 3079 5238 2346 %
938 3051 4871 1607
939 3032 4523 1195
940 3027 4142 0900
941 3024 3713 0674
942 3024 3185 0481
943 3036 2577 0325
944 3049 1906 0203
945 3061 1586 0157
946 3077 5630 2286 %
947 3044 5366 1547
948 3020 5094 1134
949 3006 4775 0840
950 3000 4382 0614
951 2995 3845 0421
952 2995 3133 0265
953 3008 2187 0144
954 3015 1670 0098
955 3087 6042 2240 %
956 3055 5924 1497
957 3030 5799 1085
958 3018 5620 0790
959 3005 5400 0564
960 3000 5020 0372
961 3015 4385 0218
962 3059 3145 0096
963 3080 2140 0050
964 3096 6225 2220 %
965 3061 6196 1474
966 3035 6157 1062
967 3021 6102 0768
968 3012 6025 0543
969 3008 5870 0352
970 3023 5550 0198
971 3100 4650 0076
972 3152 3300 0031
973 3152 3370 0031 %
974 3050 3140 0096
975 2999 3129 0265
976 3023 3187 0480
977 3063 3233 0750
978 3109 3273 1070
979 3155 3329 1485
980 3182 3387 2050
981 3105 3308 3068
982 3200 3333 0030 %
983 3050 3150 0096
984 3000 3129 0265
985 3023 3185 0480
986 3063 3231 0750
987 3108 3271 1070
988 3156 3330 1485
989 3182 3388 2050
990 3105 3308 3067
991 3200 3333 0031
992 3046 3135 0095
993 3000 3129 0265
994 3021 3189 0480
995 3062 3231 0750
996 3108 3273 1070
997 3156 3330 1485
998 3183 3387 2050
999 3105 3309 3067
1000 3200 3333 0031 %
1001 3069 3158 0096
1002 2999 3129 0265
1003 3021 3187 0480
1004 3060 3231 0750
1005 3108 3273 1070
1006 3156 3329 1486
1007 3183 3388 2050
1008 3104 3308 3067
1009 3200 3333 0030
1010 3200 3290 0042
1011 3040 3120 0103
1012 2973 3098 0199
1013 3025 3161 0288
1014 3027 3160 0396
1015 3034 3193 0522
1016 3050 3221 0672
1017 3066 3225 0824
1018 3095 3255 1002
1019 3116 3284 1203
1020 3144 3316 1430
1021 3170 3352 1701
1022 3185 3381 2014
1023 3207 3422 2420
1024 3105 3308 3068
1025 3200 3333 0031
1026 3205 3282 0043
1027 3050 3123 0104
1028 2975 3110 0200
1029 3024 3155 0289
1030 3020 3164 0398
1031 3033 3191 0524
1032 3054 3223 0673
1033 3068 3227 0827
1034 3094 3257 1004
1035 3116 3285 1206
1036 3145 3315 1433
1037 3170 3352 1704
1038 3185 3382 2017
1039 3208 3423 2422
1040 3106 3309 3069
1041 3200 3333 0031
1042 3206 3282 0042
1043 3040 3120 0104
1044 2969 3105 0199
1045 3020 3162 0289
1046 3020 3163 0397
1047 3032 3191 0522
1048 3054 3221 0673
1049 3068 3224 0825
1050 3094 3256 1002
1051 3115 3286 1204
1052 3143 3316 1432
1053 3170 3351 1703
1054 3185 3381 2016
1055 3208 3423 2421
1056 3105 3308 3069
1057 3222 3333 0031 %
1058 3200 3270 0043
1059 3030 3121 0104
1060 2969 3109 0199
1061 3026 3154 0288
1062 3022 3160 0396
1063 3035 3190 0522
1064 3052 3220 0671
1065 3066 3236 0825
1066 3094 3256 1002
1067 3116 3285 1204
1068 3144 3315 1432
1069 3170 3351 1702
1070 3185 3380 2014
1071 3207 3422 2421
1072 3104 3308 3068
1073 3200 3330 0031 %N1072
1074 3105 3307 3067 %W1073
1075 6354 3380 0670 %O
1076 2236 3288 2428 %C
1077 4276 5242 2859 %Y
1078 1476 0611 0239 %V
1079 3093 6224 2229 %L
1080 3114 1513 0878 %M
] def
%***********************************************************
/r*d50M 50 array def
/r*d50M [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %R
1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %J
0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %G
0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %C
0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %B
1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %M
1.000 1.000
] def
/g*d50M 50 array def
/g*d50M [0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %R
1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %J
1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %G
1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %C
0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %B
0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %M
0.000 0.125
] def
/b*d50M 50 array def
/b*d50M [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %R
0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %J
0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %G
1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %C
1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %B
1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %M
0.000 0.000
] def
%/habs50M 50 array def
%/habs50M [030.0 037.5 045.0 052.5 060.0 067.5 075.0 082.5
% 090.0 097.5 105.0 112.5 120.0 127.5 135.0 142.5
% 150.0 157.5 165.0 172.5 180.0 187.5 195.0 202.5
% 210.0 217.5 225.0 232.5 240.0 247.5 255.0 262.5
% 270.0 277.5 285.0 292.5 300.0 307.5 315.0 322.5
% 330.0 337.5 345.0 352.5 360.0 367.5 375.0 382.5
% 390.0 397.5
% ] def
%***********************************************************
/XD65W 95.04 def
/YD65W 100.00 def
/ZD65W 108.88 def
/XD50W 96.42 def
/YD50W 100.00 def
/ZD50W 82.51 def
/DecodeXYZ* {dup 6 29 div ge {dup dup mul mul}
{4 29 div sub 108 841 div mul} ifelse} bind def
/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def
/cvishowb {cvi 6 string cvs show ( ) show} def
/cvsshow1b {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def
/cvsshow2b {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def
/cvsshow3b {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def
/cvsshow1r {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2r {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3r {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def
/cvsshow1br {0.05 add 10 mul cvi 0.1 mul 7 string cvs show ( ) show} def
/cvsshow2br {0.005 add 100 mul cvi 0.01 mul 7 string cvs show ( ) show} def
/cvsshow3br {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def
/cvi100 {100 mul cvi /xi exch def
xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse
/xia xi abs def
vorz -1 eq {(\255) show} {(0) show} ifelse
xia 0 ge xia 9 le {(0000) show} if
xia 10 ge xia 99 le and {(000) show} if
xia 100 ge xia 999 le and {(00) show} if
xia 1000 ge xia 9999 le and {(0) show} if
xia cvishow
} bind def
%***********************************************************
/Xrx089 729 array def
/Yrx089 729 array def
/Zrx089 729 array def
/Xrx100 729 array def
/Yrx100 729 array def
/Zrx100 729 array def
/xyY0_to_XYZ729 { %BEG procedure xyY0_to_XYZ729
%requires /xyY0 4320 array def %4x1080
%requires /(XYZ)rx089 729 array def
% /(XYZ)rx100 729 array def
/jend 728 4 mul 3 add def %White-Measurement
/fakt 100 xyY0 jend get div def
/IM0 729 def
/IM1 IM0 1 sub def
0 1 IM1 {/i exch def %i=0,IM1
/j30 i 4 mul 1 add def /j31 j30 1 add def /j32 j30 2 add def
/SUM xyY0 j32 get xyY0 j31 get 0.0001 mul div def
Xrx100 i xyY0 j30 get 0.0001 mul SUM mul fakt mul put
Yrx100 i xyY0 j32 get fakt mul put
Zrx100 i 1 xyY0 j30 get 0.0001 mul sub
xyY0 j31 get 0.0001 mul sub SUM mul fakt mul put
Xrx089 i Xrx100 i get 0.8859 mul put
Yrx089 i Yrx100 i get 0.8859 mul put
Zrx089 i Zrx100 i get 0.8859 mul put
} for %i=0,IM1
/XLN100 Xrx100 0 get def
/YLN100 Yrx100 0 get def
/ZLN100 Zrx100 0 get def
/XLW100 Xrx100 728 get def
/YLW100 Yrx100 728 get def
/ZLW100 Zrx100 728 get def
/XLN089 Xrx089 0 get def
/YLN089 Yrx089 0 get def
/ZLN089 Zrx089 0 get def
/XLW089 Xrx089 728 get def
/YLW089 Yrx089 728 get def
/ZLW089 Zrx089 728 get def
% achromatic (D65) colours
/XLWD65100 95.04 def
/YLWD65100 100.00 def
/ZLWD65100 108.88 def
/XLN001 XLWD65100 100 div def
/YLN001 YLWD65100 100 div def
/ZLN001 ZLWD65100 100 div def
} bind def %END procedure xyY0_to_XYZ729
%***********************************************************
/LAB*He_Hs { %BEG procedure LAB*He_Hs
/LAB*e 35 array def %7x5=35
/LAB*e[39.92 58.74 27.99 0.0 0.0 % 00_04 R CIE No.09 elementary colours in LAB, D65
81.26 -2.89 71.56 0.0 0.0 % 05_09 J CIE No.10
52.23 -42.42 13.60 0.0 0.0 % 10_14 G CIE No.11
0.0 0.0 0.0 0.0 0.0 % 15_19 Cgb
30.57 1.41 -46.47 0.0 0.0 % 20_24 B CIE No.12
0.0 0.0 0.0 0.0 0.0 % 25_29 Mbr
39.92 58.74 27.99 0.0 0.0 % 30_34 R+360 CIE No.09 elementary colours in LAB, D65
] def
0 1 5 {/j exch def %j=0,5
j 0 eq {LAB*e 03 LAB*e 01 get dup mul
LAB*e 02 get dup mul add sqrt put
LAB*e 04 LAB*e 02 get LAB*e 01 get 0.0001 add atan put
} if
j 1 eq {LAB*e 08 LAB*e 06 get dup mul
LAB*e 07 get dup mul add sqrt put
LAB*e 09 LAB*e 07 get LAB*e 06 get 0.0001 add atan put
} if
j 2 eq {LAB*e 13 LAB*e 11 get dup mul
LAB*e 12 get dup mul add sqrt put
LAB*e 14 LAB*e 12 get LAB*e 11 get 0.0001 add atan put
} if
j 4 eq {LAB*e 23 LAB*e 21 get dup mul
LAB*e 22 get dup mul add sqrt put
LAB*e 24 LAB*e 22 get LAB*e 21 get 0.0001 add atan put
} if
} for %j=0,5
3 1 4 {/i exch def %i=3,4 30_34 R+360
LAB*e i 30 add LAB*e i get put
i 4 eq {LAB*e i 30 add LAB*e i get 360 add put} if
} for %i=3,4
3 2 5 {/i exch def %i=3,5,2 Cgb+Cbr
i 3 eq {LAB*e 19 LAB*e 14 get LAB*e 24 get add 0.5 mul put %hab
LAB*e 18 LAB*e 13 get LAB*e 23 get add 0.5 mul put %C*ab
LAB*e 15 LAB*e 10 get LAB*e 20 get add 0.5 mul put %L*
LAB*e 16 LAB*e 18 get LAB*e 19 get cos mul put %a*
LAB*e 17 LAB*e 18 get LAB*e 19 get sin mul put %b*
} if
i 5 eq {LAB*e 29 LAB*e 24 get LAB*e 34 get add 0.5 mul put %hab
LAB*e 28 LAB*e 23 get LAB*e 33 get add 0.5 mul put %C*ab
LAB*e 25 LAB*e 20 get LAB*e 30 get add 0.5 mul put %L*
LAB*e 26 LAB*e 28 get LAB*e 29 get cos mul put %a*
LAB*e 27 LAB*e 28 get LAB*e 29 get sin mul put %b*
} if
} for %i=3,5,2
/LAB*He 7 array def
0 1 6 {/i exch def %i=0,5
LAB*He i LAB*e i 5 mul 4 add get put
} for %i=0,5
/habe50M 50 array def
0 1 47 {/i exch def %i=0,47
/i8 i 8 idiv def
/i8d i i8 8 mul sub def
/dLAB*He LAB*He i8 1 add get LAB*He i8 get sub 8 div def
habe50M i LAB*He i8 get dLAB*He i8d mul add put
} for %i=0,47
habe50M 48 habe50M 0 get 360 add put
habe50M 49 habe50M 1 get 360 add put
/LAB*Hs 7 array def
/LAB*Hs [30. 90. 150. 210. 270. 330. 390.] def
/habs50M 50 array def
0 1 47 {/i exch def %i=0,47
/i8 i 8 idiv def
/i8d i i8 8 mul sub def
/dLAB*Hs LAB*Hs i8 1 add get LAB*Hs i8 get sub 8 div def
habs50M i LAB*Hs i8 get dLAB*Hs i8d mul add put
} for %i=0,47
habs50M 48 habs50M 0 get 360 add put
habs50M 49 habs50M 1 get 360 add put
/habs361M 361 array def
0 1 359 {/i exch def %i=0,359
habs361M i 30 i add put %range 30..390
} for %i=0,359
habs361M 360 habs361M 0 get 360 add put
/habe361M 361 array def
0 1 359 {/i exch def %i=0,359
/i60 i 60 idiv def %range 0..6
/i60d i i60 60 mul sub def %range 0..59
/dLAB*He LAB*He i60 1 add get LAB*He i60 get sub 60 div def
habe361M i LAB*He i60 get dLAB*He i60d mul add round cvi put %range 25..385
} for %i=0,359
habe361M 360 habe361M 0 get 360 add put
} bind def %END procedure LAB*He_Hs
%******************************************************************
/habs361i 361 array def
/habe361i 361 array def
/habd361i 361 array def
/hab*sM_to_hab*eM { %BEG Procedure hab*sM_to_hab*eM
%transfer from hab*s to hab*e
%360 steps used for the range 0 <= hab*s <= 360
%requires /habs361i 361 array def, /habe361i 361 array def
0 1 359 {/i exch def %i=0,359
/habs i def
habs361i i i put
%alpha = [habs - LAB*Hs(h)]/[LAB*Hs(n+1) - LAB*Hs(n)]
% = [habs - LAB*Hs(h)]/60
%habe = alpha [LAB*He(n+1) - LAB*He(n)] + LAB*He(n)
i 000 ge i 029 le and {/ipan0 5 def /ipan1 6 def
/habs habs 360 add def} if
i 030 ge i 089 le and {/ipan0 0 def /ipan1 1 def} if
i 090 ge i 149 le and {/ipan0 1 def /ipan1 2 def} if
i 150 ge i 209 le and {/ipan0 2 def /ipan1 3 def} if
i 210 ge i 269 le and {/ipan0 3 def /ipan1 4 def} if
i 270 ge i 329 le and {/ipan0 4 def /ipan1 5 def} if
i 330 ge i 359 le and {/ipan0 5 def /ipan1 6 def} if
/alpha {habs LAB*Hs ipan0 get sub 60 div} bind def
/habe {LAB*He ipan1 get LAB*He ipan0 get sub alpha mul
LAB*He ipan0 get add} bind def
habe 360 ge {/habe habe 360 sub def} if
habe361i i habe round cvi put
} for %i=0,359
habs361i 360 360 put
habe361i 360 habe361i 0 get put
} bind def %END hab*sM_to_hab*eM
%******************************************************************
/r*s361Mi 361 array def
/g*s361Mi 361 array def
/b*s361Mi 361 array def
/r*e361Mi 361 array def
/g*e361Mi 361 array def
/b*e361Mi 361 array def
/hab*sM_to_rgb*s361Mi_rgb*e361Mi { %BEG Procedure hab*sM_to_rgb*s361Mi_rgb*e361Mi
%transfer from hab*sM_to_rgb*s361Mi_rgb*e361Mi
%360 steps used for the range 0 <= hab*s <= 360
%requires /habs361i 361 array def, /habe361i 361 array def
0 1 359 {/i exch def %i=0,359
i 000 ge i 029 le and {r*s361Mi i 1.00 put %Mbr_R, part 2
g*s361Mi i 0.00 put
b*s361Mi i 1.00 i 30 add 60 div sub put} if
i 030 ge i 089 le and {r*s361Mi i 1.00 put %R_J
g*s361Mi i 0.00 i 30 sub 60 div add put
b*s361Mi i 0.00 put} if
i 090 ge i 149 le and {r*s361Mi i 1.00 i 90 sub 60 div sub put %J_G
g*s361Mi i 1.00 put
b*s361Mi i 0.00 put} if
i 150 ge i 209 le and {r*s361Mi i 0.00 put %G_Cgb
g*s361Mi i 1.00 put
b*s361Mi i 0.00 i 150 sub 60 div add put} if
i 210 ge i 269 le and {r*s361Mi i 0.00 put %Cgb_B
g*s361Mi i 1.00 i 210 sub 60 div sub put
b*s361Mi i 1.00 put} if
i 270 ge i 329 le and {r*s361Mi i 0.00 i 270 sub 60 div add put %B_Mbr
g*s361Mi i 0.00 put
b*s361Mi i 1.00 put} if
i 330 ge i 359 le and {r*s361Mi i 1.00 put %Mbr_R, part 1
g*s361Mi i 0.00 put
b*s361Mi i 1.00 i 330 sub 60 div sub put} if
} for %i=0,359
r*s361Mi 360 r*s361Mi 0 get put
g*s361Mi 360 g*s361Mi 0 get put
b*s361Mi 360 b*s361Mi 0 get put
0 1 360 {/i exch def %i=0,360
r*e361Mi i r*s361Mi i get put
g*e361Mi i g*s361Mi i get put
b*e361Mi i b*s361Mi i get put
} for %i=0,359
} bind def %END hab*sM_to_rgb*s361Mi_rgb*e361Mi
%******************************************************************
/XIEi 361 array def
/x361i 361 array def
/r*d361Mi 361 array def
/g*d361Mi 361 array def
/b*d361Mi 361 array def
/LAB*L361Mi 361 array def
/LAB*a361Mi 361 array def
/LAB*b361Mi 361 array def
/LAB*C361Mi 361 array def
/LAB*h361Mi 361 array def
/LAB*x50M_to_LAB*_rgb*x361Mi { %BEG Procedure LAB*x50M_to_LAB*_rgb*x361Mi
%transfer from LAB*x50M_to_LAB*_rgb*x361Mi
%360 steps used for the range 0 <= LAb*50hM <= 360
%requires /LAB*x361M 361 array def (x=L,a,b,C,h)
%requires /rgb*d361Mi 361 array def
%requires in addition
%/LAB*x50M 50 array def (x=L,a,b,C,h) defined in LAB729a_to_LAB*x50M
%/rgb*d50M 50 array def defined allways as table
/hmin LAB*h50M 0 get def
/hmax LAB*h50M 48 get def
/hmini LAB*h50M 0 get cvi def
/hmaxi LAB*h50M 48 get cvi def
0 1 360 {/i0 exch def %i=0,360 %default
/i1 i0 1 add def
/XIE -1 def
LAB*L361Mi i0 -1 put
LAB*C361Mi i0 -1 put
LAB*h361Mi i0 -1 put
LAB*a361Mi i0 -1 put
LAB*b361Mi i0 -1 put
r*d361Mi i0 -1 put
g*d361Mi i0 -1 put
b*d361Mi i0 -1 put
XIEi i0 -1 put
x361i i0 -1 put
} for %i=0,360
hmini 1 hmaxi {/i0 exch def %i=40,400
0 1 48 {/ix0 exch def %ix0=0,48
/ix1 ix0 1 add def
i0 LAB*h50M ix0 get sub 0 ge
i0 LAB*h50M ix1 get sub 0 lt and {
/im i0 def
i0 360 ge {/im i0 360 sub def} if
XIEi im i0 LAB*h50M ix0 get sub
LAB*h50M ix1 get LAB*h50M ix0 get sub div put
/XIE XIEi im get def
LAB*L361Mi im LAB*L50M ix0 get
LAB*L50M ix1 get LAB*L50M ix0 get sub XIE mul add put
LAB*C361Mi im LAB*C50M ix0 get
LAB*C50M ix1 get LAB*C50M ix0 get sub XIE mul add put
LAB*h361Mi im LAB*h50M ix0 get
LAB*h50M ix1 get LAB*h50M ix0 get sub XIE mul add
dup 360 ge {360 sub} if put
habd361i im LAB*h361Mi im get put
LAB*a361Mi im LAB*C361Mi im get LAB*h361Mi im get cos mul put
LAB*b361Mi im LAB*C361Mi im get LAB*h361Mi im get sin mul put
r*d361Mi im r*d50M ix0 get
r*d50M ix1 get r*d50M ix0 get sub XIE mul add put
g*d361Mi im g*d50M ix0 get
g*d50M ix1 get g*d50M ix0 get sub XIE mul add put
b*d361Mi im b*d50M ix0 get
b*d50M ix1 get b*d50M ix0 get sub XIE mul add put
ix0 00 ge ix0 07 le and {x361i im 0 put} if
ix0 08 ge ix0 15 le and {x361i im 1 put} if
ix0 16 ge ix0 23 le and {x361i im 2 put} if
ix0 24 ge ix0 31 le and {x361i im 3 put} if
ix0 32 ge ix0 39 le and {x361i im 4 put} if
ix0 40 ge ix0 47 le and {x361i im 5 put} if
exit
} if
} for %ix0=0,48
} for %i=40,400
LAB*L361Mi 360 LAB*L361Mi 0 get put
LAB*a361Mi 360 LAB*a361Mi 0 get put
LAB*b361Mi 360 LAB*b361Mi 0 get put
LAB*C361Mi 360 LAB*C361Mi 0 get put
LAB*h361Mi 360 LAB*h361Mi 0 get 360 add put
habd361i 360 LAB*h361Mi 360 get put
r*d361Mi 360 r*d361Mi 0 get put
g*d361Mi 360 g*d361Mi 0 get put
b*d361Mi 360 b*d361Mi 0 get put
XIEi 360 XIEi 0 get put
x361i 360 x361i 0 get put
} bind def %END LAB*x50M_to_LAB*_rgb*x361Mi
%******************************************************************
/LAB*L50M 50 array def
/LAB*a50M 50 array def
/LAB*b50M 50 array def
/LAB*C50M 50 array def
/LAB*h50M 50 array def
/habd50M 50 array def
/LAB729a_to_LAB*x50M { %BEG Procedure LAB729a_to_LAB*x50M
%transfer from LAB729a_to_LAB*x50M, %9x9x9=729 steps used for LAB729a
%requires /LAB*x50M 50 array def
%requires in addition /LAB729a 729 array def
0 1 5 {/xtonj exch def %xtonj=0,5
0 1 7 {/j exch def %j=0,7
/ja xtonj 8 mul j add def
xtonj 0 eq {/jx 648 j 09 mul add def} if %see O00Y-O83Y, -0
xtonj 1 eq {/jx 720 j 81 mul sub def} if %see Y00L-Y83L, -81
xtonj 2 eq {/jx 072 j add def} if %see L00C-L83C, +01
xtonj 3 eq {/jx 080 j 09 mul sub def} if %see C00V-C83V, -09
xtonj 4 eq {/jx 008 j 81 mul add def} if %see V00M-V83M, -81
xtonj 5 eq {/jx 656 j sub def} if %see M00O-M83O, +01
LAB*L50M ja L729a jx get put
LAB*a50M ja a729a jx get put
LAB*b50M ja b729a jx get put
LAB*C50M ja LAB*a50M ja get dup mul
LAB*b50M ja get dup mul add sqrt put
LAB*h50M ja LAB*b50M ja get
LAB*a50M ja get 0.0001 add atan put
xtonj 5 eq LAB*h50M ja get 90 le and
{LAB*h50M ja LAB*h50M ja get 360 add put} if
} for %j=0,7
} for %xtonj=0,5
LAB*L50M 48 LAB*L50M 0 get put
LAB*a50M 48 LAB*a50M 0 get put
LAB*b50M 48 LAB*b50M 0 get put
LAB*C50M 48 LAB*C50M 0 get put
LAB*h50M 48 LAB*h50M 0 get 360 add put
LAB*L50M 49 LAB*L50M 1 get put
LAB*a50M 49 LAB*a50M 1 get put
LAB*b50M 49 LAB*b50M 1 get put
LAB*C50M 49 LAB*C50M 1 get put
LAB*h50M 49 LAB*h50M 1 get 360 add put
0 1 49 {/i exch def %i=0,49
habd50M i LAB*h50M i get put
} for %i=0,49
%data test according to increasing hue angle and appropriate correction
/xtesthuea -1 def
/xtesthuei 50 array def
0 1 48 {/i exch def %i=0,49
habd50M i get habd50M i 1 add get gt {/xtesthuea xtesthuea 1 add def
xtesthuei xtesthuea i put
habd50M i 1 add habd50M i get put
LAB*L50M i 1 add LAB*L50M i get put
LAB*a50M i 1 add LAB*a50M i get put
LAB*b50M i 1 add LAB*b50M i get put
LAB*C50M i 1 add LAB*C50M i get put
LAB*h50M i 1 add LAB*h50M i get put
} if
} for %i=0,49
%/LAB*Hd 7 array def
%0 1 6 {/i exch def %i=0,6
% LAB*Hd i LAB*h50M i 8 mul get put
% } for %i=0,6
} bind def %END LAB729a_to_LAB*x50M
%************************************************************************
/Lrc089 729 array def
/arc089 729 array def
/brc089 729 array def
/Xrc089 729 array def
/Yrc089 729 array def
/Zrc089 729 array def
/Lra089 729 array def
/ara089 729 array def
/bra089 729 array def
/Xra089 729 array def
/Yra089 729 array def
/Zra089 729 array def
/Lna089 729 array def
/ana089 729 array def
/bna089 729 array def
/Xna089 729 array def
/Yna089 729 array def
/Zna089 729 array def
/Lla089 729 array def
/ala089 729 array def
/bla089 729 array def
/Xla089 729 array def
/Yla089 729 array def
/Zla089 729 array def
/X729 729 array def
/Y729 729 array def
/Z729 729 array def
/L729 729 array def %not adapted
/a729 729 array def
/b729 729 array def
/L729a 729 array def %adapted
/a729a 729 array def
/b729a 729 array def
/ilf 8 array def
/ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def
/Lrefl 11 array def
/Lrefl [(0%) (0%) (0%)
(0%) (0,6%) (1,2%) (2,5%)
(5%) (10%) (20%) (40%)] def
/xcharti_XYZ_LAB729a { %BEG Procedure xcharti_LAB729a
%transfer from xcharti_LAB729a, %9x9x9=729 steps used for LAB729a
%requires 0<= xcharti <=10
%requires /(Lab)x089 3240 array def (x=rc,ra,na,la)
%requires /(XYZ)x089 3240 array def (x=rc,ra,na,la)
%requires /x729 729 array def (x=X,Y,Z) %not adapted
%requires /x729 729 array def (x=L,a,b) %not adapted
%requires /x729a 729 array def (x=L,a,b) %adapted
xcharti 2 le {/il 0 def}
{/il xcharti 3 sub def} ifelse
%Reference black and factors
/YrN 2.52 def
/Xtref089 YrN ilf il get mul XLN001 mul def
/Ytref089 YrN ilf il get mul def
/Ztref089 YrN ilf il get mul ZLN001 mul def
/YNil Ytref089 def
/YNil001 YNil 100 div def
YNil001 6 29 div 3 exp ge
{/FYYn YNil001 0.3333 exp def}
{/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse
/L*Nil 116 FYYn mul 16 sub def
/IM1 728 def
0 1 IM1 {/i exch def %i=0,IM1
Xrc089 i Xrx089 i get put
Yrc089 i Yrx089 i get put
Zrc089 i Zrx089 i get put
/XQ Xrc089 i get XLWD65100 div def
/YQ Yrc089 i get YLWD65100 div def
/ZQ Zrc089 i 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
Lrc089 i YQ 0.008856 lt {903.3 YQ mul}
{YQ 0.33333333 exp 116 mul 16 sub} ifelse put
arc089 i 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
brc089 i 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
/L*N Lrc089 0 get def
/A*N arc089 0 get def
/B*N brc089 0 get def
/L*W Lrc089 728 get def
/A*W arc089 728 get def
/B*W brc089 728 get def
0 1 IM1 {/i exch def %i=0,IM1
Lra089 i Lrc089 i get put
/l*CIE Lrc089 i get L*N sub L*W L*N sub div def
%system rel. lightn.
/a*s A*W A*N sub l*CIE mul def
/b*s B*W B*N sub l*CIE mul def
ara089 i arc089 i get A*N sub a*s sub put
bra089 i brc089 i get B*N sub b*s sub put
} for %i=0,IM1
0 1 IM1 {/i exch def %i=0,IM1
/X* {Lra089 i get 16 add 116 div
ara089 i get 500 div add} bind def
/Y* {Lra089 i get 16 add 116 div} bind def
/Z* {Lra089 i get 16 add 116 div
bra089 i get 200 div sub} bind def
Xra089 i X* DecodeXYZ* XLWD65100 mul put
Yra089 i Y* DecodeXYZ* YLWD65100 mul put
Zra089 i Z* DecodeXYZ* ZLWD65100 mul put
} for %i=0,IM1
xcharti 2 ge {%xcharti>=2
%for white X data
/Xwref089 Xra089 728 get def
/Ywref089 Yra089 728 get def
/Zwref089 Zra089 728 get def
%for black X data
/YrN Yra089 0 get def
/Xnref089 YrN XLN001 mul def
/Ynref089 YrN def
/Znref089 YrN ZLN001 mul def
/IM1 728 def
0 1 IM1 {/i exch def %i=1,IM1
Xna089 i Xra089 i get Xnref089 sub
Xwref089 Xwref089 Xnref089 sub div mul put
Yna089 i Yra089 i get Ynref089 sub
Ywref089 Ywref089 Ynref089 sub div mul put
Zna089 i Zra089 i get Znref089 sub
Zwref089 Zwref089 Znref089 sub div mul put
} for %i=1,IM1
0 1 IM1 {/i exch def %i=1,IM1
/XQ Xna089 i get XLWD65100 div def
/YQ Yna089 i get YLWD65100 div def
/ZQ Zna089 i 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
Lna089 i YQ 0.008856 lt {903.3 YQ mul}
{YQ 0.33333333 exp 116 mul 16 sub} ifelse put
ana089 i 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
bna089 i 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=1,IM1
} if %xchart>=2
xcharti 3 ge {%xchart>=3
%for white X data
/Xwref089 Xra089 728 get def
/Ywref089 Yra089 728 get def
/Zwref089 Zra089 728 get def
/kn Ywref089 Ywref089 Ytref089 sub div def
0 1 IM1 {/i exch def %i=1,IM1
Xla089 i Xna089 i get kn div Xtref089 add put
Yla089 i Yna089 i get kn div Ytref089 add put
Zla089 i Zna089 i get kn div Ztref089 add put
} for %i=1,IM1
0 1 IM1 {/i exch def %i=1,IM1
/XQ Xla089 i get XLWD65100 div def
/YQ Yla089 i get YLWD65100 div def
/ZQ Zla089 i 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
Lla089 i YQ 0.008856 lt {903.3 YQ mul}
{YQ 0.33333333 exp 116 mul 16 sub} ifelse put
ala089 i 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
bla089 i 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=1,IM1
} if %xchart>=3
xcharti 0 eq {%xcharti=0 (1x)
0 1 IM1 {/i exch def %i=0,IM1
L729 i Lrc089 i get put
a729 i arc089 i get put
b729 i brc089 i get put
X729 i Xrc089 i get put
Y729 i Yrc089 i get put
Z729 i Zrc089 i get put
} for %i=0,IM1
} if %xcharti=0 (1x)
xcharti 1 eq {%xcharti=1 (1x)
0 1 IM1 {/i exch def %i=0,IM1
L729 i Lra089 i get put
a729 i ara089 i get put
b729 i bra089 i get put
X729 i Xra089 i get put
Y729 i Yra089 i get put
Z729 i Zra089 i get put
} for %i=0,IM1
} if %xcharti=1 (1x)
xcharti 2 eq {%xcharti=2 (1x)
0 1 IM1 {/i exch def %i=0,IM1
L729 i Lna089 i get put
a729 i ana089 i get put
b729 i bna089 i get put
X729 i Xna089 i get put
Y729 i Yna089 i get put
Z729 i Zna089 i get put
} for %i=0,IM1
} if %xcharti=2 (1x)
xcharti 3 ge {%xcharti=3,4,5,6,7,8,9,10 (8x)
0 1 728 {/i exch def %i=0,IM1
L729 i Lla089 i get put
a729 i ala089 i get put
b729 i bla089 i get put
X729 i Xla089 i get put
Y729 i Yla089 i get put
Z729 i Zla089 i get put
} for %i=0,IM1
} if %xcharti=3,4,5,6,7,8,9,10 (8x)
%Adaptation
/L*Nio L729 000 get def
/A*Nio a729 000 get def
/B*Nio b729 000 get def
/L*Wio L729 728 get def
/A*Wio a729 728 get def
/B*Wio b729 728 get def
/A*Dio A*Wio A*Nio sub def
/B*Dio B*Wio B*Nio sub def
0 1 728 {/j exch def %j=0,728
L729a j L729 j get put
/l*CIE L729 j get L*Nio sub L*Wio L*Nio sub div def
%system rel. lightn.
/a*s A*Wio A*Nio sub l*CIE mul def
/b*s B*Wio B*Nio sub l*CIE mul def
a729a j a729 j get A*Nio sub a*s sub put
b729a j b729 j get B*Nio sub b*s sub put
} for %j=0,728
xcharti 0 eq {/Xprint 0 def /FileData (LAB*rc) def} if
xcharti 1 eq {/Xprint 1 def /FileData (LAB*ra) def} if
xcharti 2 eq {/Xprint 1 def /FileData (LAB*na) def} if
xcharti 3 eq {/Xprint 1 def /FileData (LAB*la0) def} if
xcharti 4 eq {/Xprint 1 def /FileData (LAB*la1) def} if
xcharti 5 eq {/Xprint 1 def /FileData (LAB*la2) def} if
xcharti 6 eq {/Xprint 1 def /FileData (LAB*la3) def} if
xcharti 7 eq {/Xprint 1 def /FileData (LAB*la4) def} if
xcharti 8 eq {/Xprint 1 def /FileData (LAB*la5) def} if
xcharti 9 eq {/Xprint 1 def /FileData (LAB*la6) def} if
xcharti 10 eq {/Xprint 1 def /FileData (LAB*la7) def} if
} bind def %END xcharti_XYZ_LAB729a
%***************************************************************************
/nshow {300 /Times-ISOL1 FS show} bind def
/kshow {300 /TimesI-ISOL1 FS show} bind def
/bshow {300 /TimesB-ISOL1 FS show} bind def
/jshow {300 /TimesBI-ISOL1 FS show} bind def
/sshow {300 /Symbol FS show} bind def
/ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def
/eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def
%%EndProlog
gsave
/lanind 0 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm {6 lanind eq {show} {pop} ifelse} bind def
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
{/lanind1 1 def /lanind2 1 def} ifelse
/colormg where {pop /colorm1 colormg def /colorm2 colormg def}
{/colorm1 0 def /colorm2 0 def} ifelse
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def}
{/xcolor1 0 def /xcolor2 0 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def}
{/xchart1 0 def /xchart2 0 def} ifelse
/lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage
/xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage
/GSS$ where {pop /LSS$ GSS$ def}
{/LSS$ (1) def} ifelse
/GSC$ where {pop /LSC$ GSC$ def}
{/LSC$ (N) def} ifelse
/GSX$ where {pop /LSX$ GSX$ def}
{/LSX$ (0) def} ifelse
/GSY$ where {pop /LSY$ GSY$ def}
{/LSY$ (0) def} ifelse
/GEX$ where {pop /LEX$ GEX$ def}
{/LEX$ (P.PS./PDF) def} ifelse
/GEY$ where {pop /LEY$ GEY$ def}
{/LEY$ (P.DAT) def} ifelse
/IMES where {pop %/IMES IMES def
}
{/IMES 0 def} ifelse
/xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse
/xcolorg where {pop /xcolor xcolorg def} {/xcolor 1 def} ifelse
/ymax 16600 def
/ydel 203 def
72 90 translate
0.010 MM dup scale
/TSYSIO (LECD display, non glossy) def
xyY0_to_XYZ729
%0 <=xchart <=109
/xcharti xchart 10 idiv def %range 0...10
/xchartl xchart xchart 10 idiv 10 mul sub def %j=0...9
%00 1 10 {/xcharti exch def %xcharti=00,10
gsave
xcharti_XYZ_LAB729a
%00 1 09 {/xchartl exch def %xchartl=00,09
/xchart xchartl def
gsave
1.0 setgray
20 setlinewidth
0 0 moveto 25000 0 rlineto 0 17000 rlineto
-25000 0 rlineto closepath fill
0.0 setgray
0 0 moveto 25000 0 rlineto 0 17000 rlineto
-25000 0 rlineto closepath stroke
TK
0 setgray
200 -200 moveto
(OE410-7N) show
(, Page of series ) showen (, Seite der Serie ) showde
xchartl 1 add xcharti 10 mul add cvishow (/110, ) show
FileData show
xcharti 3 ge {(, YN=) show Lrefl xcharti get show} if
(, XYZnw=) show
X729 000 get cvsshow1r (, ) show
Y729 000 get cvsshow1r (, ) show
Z729 000 get cvsshow1r (, ) show
X729 728 get cvsshow1r (, ) show
Y729 728 get cvsshow1r (, ) show
Z729 728 get cvsshow1r
(, LAB*nw=) show
L729 000 get cvsshow1r (, ) show
a729 000 get cvsshow1r (, ) show
b729 000 get cvsshow1r (, ) show
L729 728 get cvsshow1r (, ) show
a729 728 get cvsshow1r (, ) show
b729 728 get cvsshow1r
xcharti 0 eq {(, not adapted) showen
(, nicht adaptiert) showde
}
{(, adapted) showen
(, adaptiert) showde
} ifelse
LAB*He_Hs
LAB729a_to_LAB*x50M
hab*sM_to_hab*eM
hab*sM_to_rgb*s361Mi_rgb*e361Mi
LAB*x50M_to_LAB*_rgb*x361Mi
/habd361M 361 array def
%LAB*h50M i %i=0,48
%360:48=7,5 wie interpolieren ?
%360:24=15
%LAB*h50M i i=0,2,48 = 25 Werte
0 1 359 {/i exch def %i=0,359
/i15 i 15 idiv def %range 0..23
/i15d i i15 15 mul sub def %range 0..14
/dLAB*Hd LAB*h50M i15 2 mul 1 add get
LAB*h50M i15 2 mul get sub 15 div def
habd361M i LAB*h50M i15 2 mul get
dLAB*Hd i15d mul add put
% habd361M i get 360 ge {habd361M i habd361M i get 360 sub put} if
} for %i=0,359
habd361M 360 habd361M 0 get 360 add put
%LAB*h50M i %i=0,48
%360:48=7,5 wie interpolieren ?
%360:48=7,5
%LAB*h50M i i=0,1,2,..47,48 = 49 Werte
0 1 359 {/i exch def %i=0,359
/i075 i 7.5 div def %range 0..47
/i075d i i075 7.5 mul sub def %range 0..7
/dLAB*Hd LAB*h50M i075 1 add cvi get
LAB*h50M i075 cvi get sub 7.5 div def
habd361M i LAB*h50M i075 cvi get
dLAB*Hd i075d mul add put
% habd361M i get 360 ge {habd361M i habd361M i get 360 sub put} if
} for %i=0,359
habd361M 360 habd361M 0 get 360 add put
TK
16500 -200 moveto
%(CIELAB diagram and tables ) showen (CIELAB\255Diagramm und Tabellen ) showde
%(CIELAB -> ) show
(Output: ) showen (Ausgabe: ) showde
FileDaten showen FileDatde showde
(, page ) showen (, Seite ) showde
xchartl 1 add xcharti 10 mul add cvishow (/110) show
TBK
/xi 000 def
xi 100 add 16700 moveto
(Data of Maximum color M in colorimetric system ) showen
(Daten der Maximalfarbe M im Farbmetrik\255Sytem ) showde
FileDaten showen FileDatde showde
( for input or output; ) showen
( f\374r Ein\255 oder Ausgabe; ) showde
(Six hue angles of the 60 degree standard colours) showen
(Sechs Bunttonwinkel der 60\255Grad Standardfarben) showde
TBIK
( s: h) show TBS 0 -50 rmoveto (ab,s) show 0 50 rmoveto
TBK ( = ) show
LAB*Hs 0 get cvsshow1r (, ) show LAB*Hs 1 get cvsshow1r
(, ) show LAB*Hs 2 get cvsshow1r (, ) show LAB*Hs 3 get cvsshow1r
(, ) show LAB*Hs 4 get cvsshow1r (, ) show LAB*Hs 5 get cvsshow1r
(; ) show
xi 100 add 16400 moveto
(Six hue angles of the device colours) showen
(Sechs Bunttonwinkel der Ger\344tefarben) showde
TBIK
( d: h) show TBS 0 -50 rmoveto (ab,d) show 0 50 rmoveto
TBK ( = ) show
LAB*h50M 00 get cvsshow1r (, ) show LAB*h50M 08 get cvsshow1r
(, ) show LAB*h50M 16 get cvsshow1r (, ) show LAB*h50M 24 get cvsshow1r
(, ) show LAB*h50M 32 get cvsshow1r (, ) show LAB*h50M 40 get cvsshow1r
(; ) show
(Six hue angles of the elementary colours) showen
(Sechs Bunttonwinkel der Elementarfarben) showde
TBIK
( e: h) show TBS 0 -50 rmoveto (ab,e) show 0 50 rmoveto
TBK ( = ) show
LAB*He 0 get cvsshow1r (, ) show LAB*He 1 get cvsshow1r
(, ) show LAB*He 2 get cvsshow1r (, ) show LAB*He 3 get cvsshow1r
(, ) show LAB*He 4 get cvsshow1r (, ) show LAB*He 5 get cvsshow1r
xchartl 0 eq {%xchartl=0,>0
/ToutenN0
(Colorimetric data of Natural Colour System NCS) def
/ToutdeN0
(Farbmetrische Daten des Nat\374rliches Farbsystems NCS) def
/ToutenL0
(Colorimetric data of Natural Luminous System NLS) def
/ToutdeL0
(Farbmetrische Daten des Nat\374rliches\255Lichtfarbensystem NLS) def
8 /Times-ISOL1 FS
72 82.5 moveto
( OE410-7N, ) show
xchart 8 le {ToutdeN0 showde ToutenN0 showen}
{ToutdeL0 showde ToutenL0 showen} ifelse
/yhoe 8500 def
/xhoe 12300 def
% 0 1 2 3 4 5
/Dcol [(O=R) (Y=J) (L=G) (C=C) (V=B) (M=M) ] def
/Dcolen [(Orange red) (Yellow) (Leaf green)
(Cyan blue) (Violet blue) (Magenta red)] def
/Dcolde [(Orangerot) (Gelb) (Laubgr\374n)
(Cyanblau) (Violettblau) (Magentarot)] def
/xshifd [ 2800 -4000 -5400 -5100 2700 2900 ] def
/yshifd [ 2500 3700 1800 -1000 -2600 -0850 ] def
/Ecol [(R) (J) (G) (C) (B) (M) ] def
/Ecolen [(Red) (Yellow) (Green)
(Blue green) (Blue) (Blue red)] def
/Ecolde [(Rot) (Gelb) (Gr\374n)
(Blaugr\374n) (Blau) (Blaurot)] def
/xshife [ 2800 -3000 -5400 -5100 -3000 2900 ] def
/yshife [ 2000 3700 1800 -1000 -2600 -0850 ] def
/Scol [(R) (J) (G) (C) (B) (M) ] def
/Scolen [(Red) (Yellow) (Green)
(Blue green) (Blue) (Blue red)] def
/Scolde [(Rot) (Gelb) (Gr\374n)
(Blaugr\374n) (Blau) (Blaurot)] def
/xshifs [ 2800 -3000 -5400 -5100 -3000 2900 ] def
/yshifs [ 2000 3700 1800 -1000 -2600 -0850 ] def
2500 8200 moveto 20000 0 rlineto stroke
12500 2000 moveto 0 13000 rlineto stroke
0 1 3 {/ibild exch def %ibild=0,3
ibild 0 eq {xhoe 0.5 mul 600 sub yhoe 1.47 mul 400 sub translate} if
ibild 1 eq {xhoe 1.1 mul yhoe 0.0 mul translate} if
ibild 2 eq {xhoe 1.1 mul neg yhoe 0.97 mul neg translate} if
ibild 3 eq {xhoe 1.1 mul yhoe 0.0 mul translate} if
ibild 2 le {%ibild<=2
0 setgray
-4000 0 moveto 8000 0 rlineto stroke
0 -3500 moveto 0 7500 rlineto stroke
3800 70 moveto 200 -70 rlineto -200 -70 rlineto closepath fill
-70 3800 moveto 70 200 rlineto 70 -200 rlineto closepath fill
/fak0 28 def
/fakt 25 def
0 1 48 {/i exch def %i=0,48
LAB*a50M i get fakt mul LAB*b50M i get fakt mul moveto
LAB*a50M i 1 add get fakt mul LAB*b50M i 1 add get fakt mul lineto stroke
newpath
r*d50M i get g*d50M i get b*d50M i get setrgbcolor
LAB*a50M i get fakt mul LAB*b50M i get fakt mul 100 0 360 arc fill
} for %i=0,48
0 setgray
0 8 48 {/i exch def %i=0,8,48 RJGCBMd
0 0 moveto LAB*a50M i get fak0 mul
LAB*b50M i get fak0 mul rlineto stroke
} for %i=0,8,48
} if %ibild<=2
ibild 0 eq {%ibild=0 %device (d)
0 setgray
0300 3900 moveto TBIK (device ) showen (Ger\344te\255) showde
TBK (CIELAB) show
TBIK ( \050 a*) show TBS 0 -50 rmoveto (d) show 0 50 rmoveto
TBIK (, b*) show TBS 0 -50 rmoveto (d) show 0 50 rmoveto
TBIK (\051) show
TBK ( chroma diagram) showen
(\255Diagramm) showde
TBIK
3500 0150 moveto (a*) show TBS 0 -50 rmoveto (d) show 0 50 rmoveto
-500 4000 moveto (b*) show TBS 0 -50 rmoveto (d) show 0 50 rmoveto
0 8 40 {/kn exch def %kn=0,8,40
0 setgray
/kn8 kn 8 idiv def
xshifd kn8 get
yshifd kn8 get moveto
TBIK Dcol kn8 get show TBS 0 -50 rmoveto (d) show 0 50 rmoveto
TBK ( ) show Dcolen kn8 get showen
Dcolde kn8 get showde
TIK
xshifd kn8 get
yshifd kn8 get 350 sub moveto
(LCH*) show TK -30 -50 rmoveto (d) show 0 50 rmoveto
TK ( = ) show
LAB*L50M kn get cvsshow1 ( ) show
LAB*C50M kn get cvsshow1 ( ) show
LAB*h50M kn get cvsshow1
TIK
xshifd kn8 get
yshifd kn8 get 700 sub moveto
(LAB*) show TK -30 -50 rmoveto (d) show 0 50 rmoveto
TK ( = ) show
LAB*L50M kn get cvsshow1 ( ) show
LAB*a50M kn get cvsshow1 ( ) show
LAB*b50M kn get cvsshow1
TIK
xshifd kn8 get
yshifd kn8 get 1050 sub moveto
(rgb*) show TK -30 -50 rmoveto (d) show 0 50 rmoveto
TK ( = ) show
r*d50M kn get cvsshow3 ( ) show
g*d50M kn get cvsshow3 ( ) show
b*d50M kn get cvsshow3
0 8 48 {/i exch def %i=0,8,48 RJGCBMe
/i361d habd50M i get round cvi def
i361d 360 ge {/i361d i361d 360 sub def} if
% r*d361Mi i361d get g*d361Mi i361d get b*d361Mi i361d get setrgbcolor
% 0 0 moveto LAB*a361Mi i361d get fak0 mul
% LAB*b361Mi i361d get fak0 mul rlineto stroke
0 1 8 {/l exch def %l=0,8
newpath
/alpha l 0.125 mul def
/beta 1 alpha sub def
1.0 beta mul r*d361Mi i361d get alpha mul add
1.0 beta mul g*d361Mi i361d get alpha mul add
1.0 beta mul b*d361Mi i361d get alpha mul add setrgbcolor
LAB*a361Mi i361d get fakt mul alpha mul
LAB*b361Mi i361d get fakt mul alpha mul 100 0 360 arc fill
l 0 eq {%l=0
0 setgray
LAB*a361Mi i361d get fakt mul alpha mul
LAB*b361Mi i361d get fakt mul alpha mul 100 0 360 arc stroke
} if %l=0
} for %l=0,8
} for %i=0,8,48
} for %kn=0,8,40
} if %ibild=0
ibild 1 eq {%ibild=1 %elementary (e)
0 setgray
0300 3900 moveto TBIK (elementary ) showen (Elementar\255) showde
TBK (CIELAB) show
TBIK ( \050 a*) show TBS 0 -50 rmoveto (e) show 0 50 rmoveto
TBIK (, b*) show TBS 0 -50 rmoveto (e) show 0 50 rmoveto
TBIK (\051) show
TBK ( chroma diagram) showen
(\255Diagramm) showde
TBIK
3500 0150 moveto (a*) show TBS 0 -50 rmoveto (e) show 0 50 rmoveto
-500 4000 moveto (b*) show TBS 0 -50 rmoveto (e) show 0 50 rmoveto
0 setgray
0 8 40 {/kn exch def %kn=0,8,40
/kn8 kn 8 idiv def
xshife kn8 get
yshife kn8 get moveto
TBIK Ecol kn8 get show TBS 0 -50 rmoveto (e) show 0 50 rmoveto
TBK ( ) show Ecolen kn8 get showen
Ecolde kn8 get showde
/i361e habe50M kn get round cvi def
i361e 360 ge {/i361e i361e 360 sub def} if
TIK
xshife kn8 get
yshife kn8 get 350 sub moveto
(LCH*) show TK -30 -50 rmoveto (e) show 0 50 rmoveto
TK ( = ) show
LAB*L361Mi i361e get cvsshow1 ( ) show
LAB*C361Mi i361e get cvsshow1 ( ) show
LAB*h361Mi i361e get cvsshow1
TIK
xshife kn8 get
yshife kn8 get 700 sub moveto
(LAB*) show TK -30 -50 rmoveto (e) show 0 50 rmoveto
TK ( = ) show
LAB*L361Mi i361e get cvsshow1 ( ) show
LAB*a361Mi i361e get cvsshow1 ( ) show
LAB*b361Mi i361e get cvsshow1
TIK
xshife kn8 get
yshife kn8 get 1050 sub moveto
(rgb*) show TK -30 -50 rmoveto (e) show 0 50 rmoveto
TK ( = ) show
r*d361Mi i361e get cvsshow3 ( ) show
g*d361Mi i361e get cvsshow3 ( ) show
b*d361Mi i361e get cvsshow3
} for %kn=0,8,40
0 8 48 {/i exch def %i=0,8,48 RJGCBMe
/i361e habe50M i get round cvi def
i361e 360 ge {/i361e i361e 360 sub def} if
r*d361Mi i361e get g*d361Mi i361e get b*d361Mi i361e get setrgbcolor
0 0 moveto LAB*a361Mi i361e get fakt mul
LAB*b361Mi i361e get fakt mul rlineto stroke
0 1 8 {/l exch def %l=0,8
newpath
/alpha l 0.125 mul def
/beta 1 alpha sub def
1.0 beta mul r*d361Mi i361e get alpha mul add
1.0 beta mul g*d361Mi i361e get alpha mul add
1.0 beta mul b*d361Mi i361e get alpha mul add setrgbcolor
LAB*a361Mi i361e get fakt mul alpha mul
LAB*b361Mi i361e get fakt mul alpha mul 100 0 360 arc fill
} for %l=0,8
} for %i=0,8,48
} if %ibild=1
ibild 2 eq {%ibild=2 %standard (s)
0 setgray
0300 3900 moveto TBIK (standard ) showen (Standard\255) showde
TBK (CIELAB) show
TBIK ( \050 a*) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto
TBIK (, b*) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto
TBIK (\051) show
TBK ( chroma diagram) showen
(\255Diagramm) showde
TBIK
3500 0150 moveto (a*) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto
-500 4000 moveto (b*) show TBS 0 -50 rmoveto (s) show 0 50 rmoveto
0 setgray
0 8 40 {/kn exch def %kn=0,8,40
/kn8 kn 8 idiv def
xshifs kn8 get
yshifs kn8 get moveto
TBIK Scol kn8 get show TBS 0 -50 rmoveto (s) show 0 50 rmoveto
TBK ( ) show Scolen kn8 get showen
Scolde kn8 get showde
/i361s habs50M kn get round cvi def
i361s 360 ge {/i361s i361s 360 sub def} if
TIK
xshifs kn8 get
yshifs kn8 get 350 sub moveto
(LCH*) show TK -30 -50 rmoveto (s) show 0 50 rmoveto
TK ( = ) show
LAB*L361Mi i361s get cvsshow1 ( ) show
LAB*C361Mi i361s get cvsshow1 ( ) show
LAB*h361Mi i361s get cvsshow1
TIK
xshifs kn8 get
yshifs kn8 get 700 sub moveto
(LAB*) show TK -30 -50 rmoveto (s) show 0 50 rmoveto
TK ( = ) show
LAB*L361Mi i361s get cvsshow1 ( ) show
LAB*a361Mi i361s get cvsshow1 ( ) show
LAB*b361Mi i361s get cvsshow1
TIK
xshifs kn8 get
yshifs kn8 get 1050 sub moveto
(rgb*) show TK -30 -50 rmoveto (s) show 0 50 rmoveto
TK ( = ) show
r*d361Mi i361s get cvsshow3 ( ) show
g*d361Mi i361s get cvsshow3 ( ) show
b*d361Mi i361s get cvsshow3
} for %kn=0,8,40
0 8 48 {/i exch def %i=0,8,48 RJGCBMe
/i361s habs50M i get round cvi def
i361s 360 ge {/i361s i361s 360 sub def} if
r*d361Mi i361s get g*d361Mi i361s get b*d361Mi i361s get setrgbcolor
0 0 moveto LAB*a361Mi i361s get fakt mul
LAB*b361Mi i361s get fakt mul rlineto stroke
0 1 8 {/l exch def %l=0,8
newpath
/alpha l 0.125 mul def
/beta 1 alpha sub def
1.0 beta mul r*d361Mi i361s get alpha mul add
1.0 beta mul g*d361Mi i361s get alpha mul add
1.0 beta mul b*d361Mi i361s get alpha mul add setrgbcolor
LAB*a361Mi i361s get fakt mul alpha mul
LAB*b361Mi i361s get fakt mul alpha mul 100 0 360 arc fill
} for %l=0,8
} for %i=0,8,48
} if %ibild=2
ibild 3 eq {%ibild=3
0 setgray
-6500 3900 moveto TBK (Notes to the CIELAB chroma diagrams) showen
(Anmerkung zu den CIELAB\255Buntheits\255Diagrammen) showde
TBIK ( \050 a*) show TBS -30 -50 rmoveto (d) show 0 50 rmoveto
TBIK (, b*) show TBS -30 -50 rmoveto (d) show 0 50 rmoveto TBIK ( \051, ) show
TBIK ( \050 a*) show TBS -30 -50 rmoveto (s) show 0 50 rmoveto
TBIK (, b*) show TBS -30 -50 rmoveto (s) show 0 50 rmoveto TBIK ( \051, ) show
TBIK ( \050 a*) show TBS -30 -50 rmoveto (e) show 0 50 rmoveto
TBIK (, b*) show TBS -30 -50 rmoveto (e) show 0 50 rmoveto TBIK ( \051) show
-6500 3400 moveto
TK (1. For the) showen
(1. F\374r die) showde
TIK ( rgb*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto
TK (\255input values the CIELAB data) showen
(\255Eingabedaten wurden die CIELAB-Daten) showde
TIK ( LCH*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto
TK ( and) showen
( und) showde
TIK ( LAB*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto
TK ( have been measured.) showen
( gemessen.) showde
-6500 3000 moveto
TK (2. For the calculation of the standard hue angle ) showen
TIK (h) show TS -30 -50 rmoveto (ab,s) show 0 50 rmoveto
TK ( use for any device values) showen
TIK ( rgb*) show TS -30 -50 rmoveto (d) show 0 50 rmoveto
TK ( the equation:) showen
-6000 2650 moveto
TBIK (h) show TBS -30 -50 rmoveto (ab,s) show 0 50 rmoveto
TBK ( = ) show
TBIK (atan) show TBK ( [ ) show
TBIK (r*) show TBS -30 -50 rmoveto (d) show 0 50 rmoveto
TBIK ( cos(30)) show TBK ( + ) show TBIK (g*) show TBS -30 -50 rmoveto (d) show 0 50 rmoveto
TBIK ( cos(150)) show TBK ( ] / [ ) show
TBIK (r*) show TBS -30 -50 rmoveto (d) show 0 50 rmoveto
TBIK ( sin(30)) show TBK ( + ) show TBIK (g*) show TBS -30 -50 rmoveto (d) show 0 50 rmoveto
TBIK ( sin(150)) show TBK ( + ) show TBIK (b*) show TBS -30 -50 rmoveto (d) show 0 50 rmoveto
TBIK ( sin(270)) show
TBK ( ] ) show
5000 2650 moveto TK ((1)) show
-6500 2200 moveto
TK (3. For the 48 or 360 equally spaced standard hue angles ) showen
(3. F\374r die 48 oder 360 gleichabst\344ndig gestuften Standard\255Bunttonwinkel ) showde
TIK (h) show TS -30 -50 rmoveto (ab,s) show 0 50 rmoveto
TK ( of the colours of maximum chroma use) showen
( der Farben von maximaler Buntheit benutze) showde
-6250 1900 moveto
(the seven hue angles of the 60 degree colours) showen
(die sieben Bunttonwinkel der 60\Grad\255Farben) showde
TIK
( s: h) show TS 0 -50 rmoveto (ab,si) show 0 50 rmoveto
TK ( = ) show
LAB*Hs 0 get cvsshow1r (, ) show LAB*Hs 1 get cvsshow1r
(, ) show LAB*Hs 2 get cvsshow1r (, ) show LAB*Hs 3 get cvsshow1r
(, ) show LAB*Hs 4 get cvsshow1r (, ) show LAB*Hs 5 get cvsshow1r
(, ) show LAB*Hs 6 get cvsshow1r
( (i=0,6) ) show
-6250 1600 moveto
(and the equations for a 48 and 360 step hue circle: ) showen
(und die Gleichungen f\374r einen 48\255 und 360\255stufigen Bunttonkreis: ) showde
-6000 1250 moveto
TBIK
(h) show TBS 0 -50 rmoveto (48ab,sij) show 0 50 rmoveto
TBK ( = ) show
TBIK (h) show TBS 0 -50 rmoveto (ab,si) show 0 50 rmoveto
( + ) show TBIK (j) show TBK ( [) show
TBIK (h) show TBS 0 -50 rmoveto (ab,si+1) show 0 50 rmoveto
( - ) show
TBIK (h) show TBS 0 -50 rmoveto (ab,si) show 0 50 rmoveto
TBK ( ] /8 \050 ) show
TBIK (i) show TBK ( = 0, 1, ..., 5; ) show
TBIK (j) show TBK ( = 0, 1, ..., 7\051) show
5000 1250 moveto TK ((2)) show
-6000 0850 moveto
TBIK
(h) show TBS 0 -50 rmoveto (360ab,sij) show 0 50 rmoveto
TBK ( = ) show
TBIK (h) show TBS 0 -50 rmoveto (ab,si) show 0 50 rmoveto
( + ) show TBIK (j) show TBK ( [) show
TBIK (h) show TBS 0 -50 rmoveto (ab,si+1) show 0 50 rmoveto
( - ) show
TBIK (h) show TBS 0 -50 rmoveto (ab,si) show 0 50 rmoveto
TBK ( ] /60 \050 ) show
TBIK (i) show TBK ( = 0, 1, ..., 5; ) show
TBIK (j) show TBK ( = 0, 1, ..., 59\051) show
5000 0850 moveto TK ((3)) show
-6500 0400 moveto
TK (4. For the 48 or 360 elementary hue angles ) showen
(4. F\374r die 48 oder 360 Elementar\255Bunttonwinkel ) showde
TIK (h) show TS -30 -50 rmoveto (ab,e) show 0 50 rmoveto
TK ( of the colours of maximum chroma use) showen
( der Farben von maximaler Buntheit benutze) showde
-6250 0100 moveto
(the seven hue angles of the elementary colours) showen
(die sieben Bunttonwinkel der Elementar\255Farben) showde
TIK
( e: h) show TS 0 -50 rmoveto (ab,ei) show 0 50 rmoveto
TK ( = ) show
LAB*He 0 get cvsshow1r (, ) show LAB*He 1 get cvsshow1r
(, ) show LAB*He 2 get cvsshow1r (, ) show LAB*He 3 get cvsshow1r
(, ) show LAB*He 4 get cvsshow1r (, ) show LAB*He 5 get cvsshow1r
(, ) show LAB*He 6 get cvsshow1r
( (i=0,6) ) show
-6250 -200 moveto
(and the equations for a 48 and 360 step elementary hue circle: ) showen
(und die Gleichungen f\374r einen 48\255 und 360\255stufigen Elementar\255Bunttonkreis: ) showde
-6000 -550 moveto
TBIK
(h) show TBS 0 -50 rmoveto (48ab,eij) show 0 50 rmoveto
TBK ( = ) show
TBIK (h) show TBS 0 -50 rmoveto (ab,ei) show 0 50 rmoveto
( + ) show TBIK (j) show TBK ( [) show
TBIK (h) show TBS 0 -50 rmoveto (ab,ei+1) show 0 50 rmoveto
( - ) show
TBIK (h) show TBS 0 -50 rmoveto (ab,ei) show 0 50 rmoveto
TBK ( ] /8 \050 ) show
TBIK (i) show TBK ( = 0, 1, ..., 5; ) show
TBIK (j) show TBK ( = 0, 1, ..., 7\051) show
5000 -550 moveto TK ((4)) show
-6000 -0950 moveto
TBIK
(h) show TBS 0 -50 rmoveto (360ab,eij) show 0 50 rmoveto
TBK ( = ) show
TBIK (h) show TBS 0 -50 rmoveto (ab,ei) show 0 50 rmoveto
( + ) show TBIK (j) show TBK ( [) show
TBIK (h) show TBS 0 -50 rmoveto (ab,ei+1) show 0 50 rmoveto
( - ) show
TBIK (h) show TBS 0 -50 rmoveto (ab,ei) show 0 50 rmoveto
TBK ( ] /60 \050 ) show
TBIK (i) show TBK ( = 0, 1, ..., 5; ) show
TBIK (j) show TBK ( = 0, 1, ..., 59\051) show
5000 -950 moveto TK ((5)) show
-6500 -1400 moveto
TK (5. For any elementary hue angle ) showen
(5. F\374r jeden Elementar\255Bunttonwinkel ) showde
TIK (h) show TS -30 -50 rmoveto (ab,e) show 0 50 rmoveto
TK ( there is a well defined device hue angle ) showen
( gibt es einem genau definierten Ger\344te\255Bunttonwinkel ) showde
TIK (h) show TS -30 -50 rmoveto (ab,d) show 0 50 rmoveto
-6250 -1700 moveto
TK (see the following tables, columns 1 to 3.) showen
(siehe die folgenden Tabellen, Spalten 1 bis 3.) showde
-6500 -2100 moveto
TK (6. The values ) showen
(6. Die Werte ) showde
TIK (rgb*) show TS -30 -50 rmoveto (de) show 0 50 rmoveto
TK
( produce the output of the device\255independent elementary hues) showen
( erzeugen die Ausgabe der ger\344teunabh\344ngigen Elemetar\255Buntt\366ne) showde
} if %ibild=3
} for %ibild=0,3
}%xchartl=0
{%xchartl>0
/x0x 0000 def
/x1x 5700 def
/x2x 13300 def
/x01 2200 def %rgb
/x02 2900 def
/x03 3600 def
/x04 4300 def %LabCh
/x05 5000 def
/x06 5700 def
/x07 6400 def
/x08 7100 def
/x09 7700 def
/x10 8400 def
/x11 9100 def
/xd0 0100 def
/xs0 0800 def
/xe0 1500 def
/xd1 23050 def
/xs1 23700 def
/xe1 24350 def
x0x x01 add 50 sub 0 moveto 0 16200 rlineto stroke
x1x x01 add 50 sub 0 moveto 0 16200 rlineto stroke
x2x x01 add 50 sub 0 moveto 0 16200 rlineto stroke
/ymax 16100 def
TBIK
xd0 ymax moveto (h) show
TBK -00 -80 rmoveto (ab,d) show 00 80 rmoveto TBIK
xs0 ymax moveto (h) show
TBK -00 -80 rmoveto (ab,s) show 00 80 rmoveto TBIK
xe0 ymax moveto (h) show
TBK -00 -80 rmoveto (ab,e) show 00 80 rmoveto TBIK
xchartl 1 eq {%xchartl=1,>01
x0x x01 add ymax moveto (rgb*) show
TBK -00 -80 rmoveto (dd50M) show 00 80 rmoveto TBIK
x0x x04 add ymax moveto (LAB*) show
TBK -00 -80 rmoveto (dd50Mx (x=LabCh)) show 00 80 rmoveto TBIK
x1x x01 add ymax moveto (rgb*) show
TBK -00 -80 rmoveto (ds50M) show 00 80 rmoveto TBIK
x1x x04 add ymax moveto (LAB*) show
TBK -00 -80 rmoveto (ds50Mx (x=LabCh)) show 00 80 rmoveto TBIK
x1x x09 add ymax moveto (rgb*) show
TBK -00 -80 rmoveto (s50M) show 00 80 rmoveto TBIK
x2x x01 add ymax moveto (rgb*) show
TBK -00 -80 rmoveto (de50M) show 00 80 rmoveto TBIK
x2x x04 add ymax moveto (LAB*) show
TBK -00 -80 rmoveto (de50Mx (x=LabCh)) show 00 80 rmoveto TBIK
x2x x09 add ymax moveto (rgb*) show
TBK -00 -80 rmoveto (e50M) show 00 80 rmoveto TBIK
}%xchartl=1
{%xchartl>1
x0x x01 add ymax moveto (rgb*) show
TBK -00 -80 rmoveto (dd361Mi) show 00 80 rmoveto TBIK
x0x x04 add ymax moveto (LAB*) show
TBK -00 -80 rmoveto (dd361Mix (x=LabCh)) show 00 80 rmoveto TBIK
x1x x01 add ymax moveto (rgb*) show
TBK -00 -80 rmoveto (ds361Mi) show 00 80 rmoveto TBIK
x1x x04 add ymax moveto (LAB*) show
TBK -00 -80 rmoveto (ds361Mix (x=LabCh)) show 00 80 rmoveto TBIK
x1x x09 add ymax moveto (rgb*) show
TBK -00 -80 rmoveto (s50M) show 00 80 rmoveto TBIK
x2x x01 add ymax moveto (rgb*) show
TBK -00 -80 rmoveto (de361Mi) show 00 80 rmoveto TBIK
x2x x04 add ymax moveto (LAB*) show
TBK -00 -80 rmoveto (de361Mix (x=LabCh)) show 00 80 rmoveto TBIK
x2x x09 add ymax moveto (rgb*) show
TBK -00 -80 rmoveto (e50M) show 00 80 rmoveto TBIK
} ifelse %xchartl=1,>1
xd1 ymax moveto (rgb*) show
TBK -100 -100 rmoveto (dd) show 100 100 rmoveto TBIK
xs1 ymax moveto (rgb*) show
TBK -100 -100 rmoveto (ds) show 100 100 rmoveto TBIK
xe1 ymax moveto (rgb*) show
TBK -100 -100 rmoveto (de) show 100 100 rmoveto TBIK
/ymax 15700 def
/ydel0 310 def
/ydel1 345 def
/ys 50 def
/RJGCBMs 9 array def
/RJGCBMs [( ) (R) (J) (G) (C) (C) (B) (M) (R)] def
/RJGCBM 7 array def
/RJGCBM [(R) (J) (G) (C) (B) (M) (R)] def
xchartl 1 eq {%xchartl=01
TK
0 1 48 {/i exch def %i=0,48
/i8 i 8 idiv def
/yi ymax i ydel0 mul sub i8 ydel0 0.4 mul mul sub def
xd0 yi moveto habd50M i get cvsshow1r
xs0 yi moveto habs50M i get cvsshow1r
xe0 yi moveto habe50M i get cvsshow1r
x0x x01 add yi moveto r*d50M i get cvsshow3r
x0x x02 add yi moveto g*d50M i get cvsshow3r
x0x x03 add yi moveto b*d50M i get cvsshow3r
x0x x04 add yi moveto LAB*L50M i get cvsshow1r
x0x x05 add yi moveto LAB*a50M i get cvsshow1r
x0x x06 add yi moveto LAB*b50M i get cvsshow1r
x0x x07 add yi moveto LAB*C50M i get cvsshow1r
x0x x08 add yi moveto LAB*h50M i get cvsshow1r
/i361s habs50M i get round cvi def
i361s 360 ge {/i361s i361s 360 sub def} if
x1x x01 add yi moveto r*d361Mi i361s get cvsshow3r
x1x x02 add yi moveto g*d361Mi i361s get cvsshow3r
x1x x03 add yi moveto b*d361Mi i361s get cvsshow3r
x1x x04 add yi moveto LAB*L361Mi i361s get cvsshow1r
x1x x05 add yi moveto LAB*a361Mi i361s get cvsshow1r
x1x x06 add yi moveto LAB*b361Mi i361s get cvsshow1r
x1x x07 add yi moveto LAB*C361Mi i361s get cvsshow1r
x1x x08 add yi moveto LAB*h361Mi i361s get cvishow
x1x x09 add yi moveto r*d50M i get cvsshow3r
x1x x10 add yi moveto g*d50M i get cvsshow3r
x1x x11 add yi moveto b*d50M i get cvsshow3r
/i361e habe50M i get round cvi def
i361e 360 ge {/i361e i361e 360 sub def} if
x2x x01 add yi moveto r*d361Mi i361e get cvsshow3r
x2x x02 add yi moveto g*d361Mi i361e get cvsshow3r
x2x x03 add yi moveto b*d361Mi i361e get cvsshow3r
x2x x04 add yi moveto LAB*L361Mi i361e get cvsshow1r
x2x x05 add yi moveto LAB*a361Mi i361e get cvsshow1r
x2x x06 add yi moveto LAB*b361Mi i361e get cvsshow1r
x2x x07 add yi moveto LAB*C361Mi i361e get cvsshow1r
x2x x08 add yi moveto LAB*h361Mi i361e get cvishow
x2x x09 add yi moveto r*d50M i get cvsshow3r
x2x x10 add yi moveto g*d50M i get cvsshow3r
x2x x11 add yi moveto b*d50M i get cvsshow3r
r*d50M i get g*d50M i get b*d50M i get setrgbcolor
xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto
-600 0 rlineto closepath fill
r*d361Mi i361s get
g*d361Mi i361s get
b*d361Mi i361s get setrgbcolor
xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto
-600 0 rlineto closepath fill
r*d361Mi i361e get
g*d361Mi i361e get
b*d361Mi i361e get setrgbcolor
xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto
-600 0 rlineto closepath fill
0 setgray
xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto
-600 0 rlineto closepath stroke
xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto
-600 0 rlineto closepath stroke
xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto
-600 0 rlineto closepath stroke
} for %i=0,48
xtesthuea 0 ge {600 /TimesB-ISOL1 FS
8000 2100 moveto 30 rotate 0 setgray
(no continues hue change of device near ) showen
(keine kontinuiertliche Buntton\344nderung nahe ) showde
600 /TimesBI-ISOL1 FS (h) show
500 /TimesB-ISOL1 FS
0 -100 rmoveto (ab,d) show 0 100 rmoveto
600 /TimesB-ISOL1 FS ( = ) show
0 1 xtesthuea {/in exch def %in=0,xtesthuea
LAB*h50M xtesthuei in get get cvishow
in xtesthuea ne {(, ) show} if
} for %in=0,xtesthuea
-30 rotate
8000 1100 moveto 30 rotate
(or ) showen ( oder ) showde
600 /TimesBI-ISOL1 FS
(rgb*) show
500 /TimesBI-ISOL1 FS
0 -100 rmoveto (d) show 0 100 rmoveto
600 /TimesB-ISOL1 FS
( = ) show
0 1 xtesthuea {/in exch def %in=0,xtesthuea
r*d50M xtesthuei in get get cvsshow3r (, ) show
g*d50M xtesthuei in get get cvsshow3r (, ) show
b*d50M xtesthuei in get get cvsshow3r
in xtesthuea ne {(; ) show} if
} for %in=0,xtesthuea
-30 rotate
8000 0100 moveto 30 rotate
600 /TimesB-ISOL1 FS
(appropriate correction done) showen
(plausible Korrektur erfolgt) showde
-30 rotate
} if
}%xchartl=1
{%xchartl>1
TK
0 1 45 {/i exch def %i=0,45
/ik45 xchartl 2 sub 45 mul i add def %range 0...359
/yi ymax i ydel1 mul sub def
/hmini LAB*h50M 0 get cvi def
/hmaxi LAB*h50M 48 get cvi def
/ik45d ik45 hmini add def
ik45d 360 ge {/ik45d ik45d 360 sub def} if
/i361d LAB*h361Mi ik45 get round cvi def
xd0 yi moveto LAB*h361Mi ik45d get cvishow
xs0 yi moveto habs361M ik45 get cvishow
xe0 yi moveto habe361M ik45 get cvishow
x0x x01 add yi moveto r*d361Mi ik45d get cvsshow3r
x0x x02 add yi moveto g*d361Mi ik45d get cvsshow3r
x0x x03 add yi moveto b*d361Mi ik45d get cvsshow3r
x0x x04 add yi moveto LAB*L361Mi ik45d get cvsshow1r
x0x x05 add yi moveto LAB*a361Mi ik45d get cvsshow1r
x0x x06 add yi moveto LAB*b361Mi ik45d get cvsshow1r
x0x x07 add yi moveto LAB*C361Mi ik45d get cvsshow1r
x0x x08 add yi moveto LAB*h361Mi ik45d get cvishow
/i361s habs361M ik45 get def
i361s 360 ge {/i361s i361s 360 sub def} if
/ik45ds i361s def
/ik45s ik45 30 add def
ik45s 360 ge {/ik45s ik45s 360 sub def} if
x1x x01 add yi moveto r*d361Mi ik45ds get cvsshow3r
x1x x02 add yi moveto g*d361Mi ik45ds get cvsshow3r
x1x x03 add yi moveto b*d361Mi ik45ds get cvsshow3r
x1x x04 add yi moveto LAB*L361Mi ik45ds get cvsshow1r
x1x x05 add yi moveto LAB*a361Mi ik45ds get cvsshow1r
x1x x06 add yi moveto LAB*b361Mi ik45ds get cvsshow1r
x1x x07 add yi moveto LAB*C361Mi ik45ds get cvsshow1r
x1x x08 add yi moveto LAB*h361Mi ik45ds get cvishow
x1x x09 add yi moveto r*s361Mi ik45s get cvsshow3r
x1x x10 add yi moveto g*s361Mi ik45s get cvsshow3r
x1x x11 add yi moveto b*s361Mi ik45s get cvsshow3r
/i361e habe361M ik45 get def
i361e 360 ge {/i361e i361e 360 sub def} if
/ik45de i361e def
/ik45e ik45 30 add def
ik45e 360 ge {/ik45e ik45e 360 sub def} if
x2x x01 add yi moveto r*d361Mi ik45de get cvsshow3r
x2x x02 add yi moveto g*d361Mi ik45de get cvsshow3r
x2x x03 add yi moveto b*d361Mi ik45de get cvsshow3r
x2x x04 add yi moveto LAB*L361Mi ik45de get cvsshow1r
x2x x05 add yi moveto LAB*a361Mi ik45de get cvsshow1r
x2x x06 add yi moveto LAB*b361Mi ik45de get cvsshow1r
x2x x07 add yi moveto LAB*C361Mi ik45de get cvsshow1r
x2x x08 add yi moveto LAB*h361Mi ik45de get cvishow
x2x x09 add yi moveto r*e361Mi ik45e get cvsshow3r
x2x x10 add yi moveto g*e361Mi ik45e get cvsshow3r
x2x x11 add yi moveto b*e361Mi ik45e get cvsshow3r
r*e361Mi ik45e get g*e361Mi ik45e get b*e361Mi ik45e get setrgbcolor
xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto
-600 0 rlineto closepath fill
r*d361Mi ik45ds get g*d361Mi ik45ds get b*d361Mi ik45ds get setrgbcolor
xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto
-600 0 rlineto closepath fill
r*d361Mi ik45de get g*d361Mi ik45de get b*d361Mi ik45de get setrgbcolor
xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto
-600 0 rlineto closepath fill
0 setgray
xd1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto
-600 0 rlineto closepath stroke
xs1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto
-600 0 rlineto closepath stroke
xe1 yi ys sub moveto 600 0 rlineto 0 ydel0 rlineto
-600 0 rlineto closepath stroke
xchartl 2 eq ik45 000 eq and
xchartl 3 eq ik45 060 eq and or
xchartl 4 eq ik45 120 eq and or
xchartl 5 eq ik45 180 eq and or
xchartl 6 eq ik45 180 eq and or
xchartl 7 eq ik45 240 eq and or
xchartl 8 eq ik45 300 eq and or
xchartl 9 eq ik45 360 eq and or {/ik 1 def} {/ik 0 def} ifelse
ik 1 eq {x1x x01 add yi ydel1 0.7 mul add moveto
x2x x11 add 600 add yi ydel1 0.7 mul add lineto stroke
x1x x01 add yi ydel1 0.3 mul sub moveto
x2x x11 add 600 add yi ydel1 0.3 mul sub lineto stroke} if
ik 1 eq {TBIK x1x x11 add 320 add yi moveto
RJGCBMs xchartl 1 sub get show
TBS 0 -80 rmoveto (s) show 0 80 rmoveto TK
TBIK x2x x11 add 320 add yi moveto
RJGCBMs xchartl 1 sub get show
TBS 0 -80 rmoveto (e) show 0 80 rmoveto TK} if
0 8 48 {/it exch def %it=0,8,48
LAB*h50M it get LAB*h361Mi ik45d get ge
LAB*h50M it get LAB*h361Mi ik45d 1 add get lt and
{x0x x01 add yi ydel1 0.3 mul sub moveto
x1x x01 add yi ydel1 0.3 mul sub lineto stroke
TBIK x1x x01 add 400 sub yi moveto RJGCBM it 8 idiv get show
TBS 0 -80 rmoveto (d) show 0 80 rmoveto TK} if
} for %it=0,8,48
} for i%=0,45
} ifelse %xchartl=1,>1
} ifelse %xchartl=0,>0
showpage
grestore
%} for %xchartl=00,09
grestore
%} for %xcharti=00,10
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF 86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto
( ) show
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 18
%line 409
%!PS-Adobe-3.0 EPSF-3.0 OE410-8,
%%BoundingBox: 70 90 226 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
8 /Times-Roman FS
72 83 moveto
%!2 (OE410-8,) show
72 90 translate
%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
161 MM 197 MM translate
10 /Times-ISOL1 FS 1 1 scale -77 -91 translate
%%BeginDocument: Bild 12
%line 419
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
161 MM 152 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 21
%line 429
%!PS-Adobe-3.0 EPSF-3.0 OE411-1,
%%BoundingBox: 70 90 226 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
8 /Times-Roman FS
72 83 moveto
%!2 (OE411-1,) show
72 90 translate
%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
219 MM 152 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 22
%line 439
%!PS-Adobe-3.0 EPSF-3.0 OE411-2,
%%BoundingBox: 70 90 226 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
8 /Times-Roman FS
72 83 moveto
%!2 (OE411-2,) show
72 90 translate
%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
161 MM 108 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 23
%line 449
%!PS-Adobe-3.0 EPSF-3.0 OE411-3,
%%BoundingBox: 70 90 226 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
8 /Times-Roman FS
72 83 moveto
%!2 (OE411-3,) show
72 90 translate
%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
219 MM 108 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 24
%line 459
%!PS-Adobe-3.0 EPSF-3.0 OE411-4,
%%BoundingBox: 70 90 226 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
8 /Times-Roman FS
72 83 moveto
%!2 (OE411-4,) show
72 90 translate
%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
161 MM 064 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 25
%line 469
%!PS-Adobe-3.0 EPSF-3.0 OE411-5,
%%BoundingBox: 70 90 226 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
8 /Times-Roman FS
72 83 moveto
%!2 (OE411-5,) show
72 90 translate
%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
219 MM 064 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 26
%line 479
%!PS-Adobe-3.0 EPSF-3.0 OE411-6,
%%BoundingBox: 70 90 226 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
8 /Times-Roman FS
72 83 moveto
%!2 (OE411-6,) show
72 90 translate
%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
161 MM 020 MM translate
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 27
%line 489
%!PS-Adobe-3.0 EPSF-3.0 OE411-7,
%%BoundingBox: 70 90 226 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
8 /Times-Roman FS
72 83 moveto
%!2 (OE411-7,) show
72 90 translate
%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
219 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show
10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate
%%BeginDocument: Bild 28
%line 499
%!PS-Adobe-3.0 EPSF-3.0 OE411-8,
%%BoundingBox: 70 90 226 206
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
8 /Times-Roman FS
72 83 moveto
%!2 (OE411-8,) show
72 90 translate
%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke
grestore
showpage
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen
10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate
%%BeginDocument: Bild 29 Teststreifen Ueberlaenge
%line 509
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
-0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen%
%%BeginDocument: Bild 30 %Rechteckrahmen
%line 519
%!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text OE41 20110301
%%BoundingBox: 0 0 598 845
%%EndProlog
gsave
/lanind 1 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm {6 lanind eq {show} {pop} ifelse} bind def
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
{/lanind1 0 def /lanind2 0 def} ifelse
/colormg where {pop /colorm1 colormg def /colorm2 colormg def}
{/colorm1 0 def /colorm2 0 def} ifelse
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def}
{/xcolor1 0 def /xcolor2 0 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def}
{/xchart1 0 def /xchart2 0 def} ifelse
/lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage
/xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage
/GSS$ where {pop /LSS$ GSS$ def}
{/LSS$ (1) def} ifelse
/GSC$ where {pop /LSC$ GSC$ def}
{/LSC$ (N) def} ifelse
/GSX$ where {pop /LSX$ GSX$ def}
{/LSX$ (0) def} ifelse
/GSY$ where {pop /LSY$ GSY$ def}
{/LSY$ (0) def} ifelse
/GEX$ where {pop /LEX$ GEX$ def}
{/LEX$ (P.PS./PDF) def} ifelse
/GEY$ where {pop /LEY$ GEY$ def}
{/LEY$ (P.DAT) def} ifelse
/IMES where {pop %/IMES IMES def
}
{/IMES 0 def} ifelse
/i*ptrsc where {pop %/i*ptrsc i*ptrsc def
}
{/i*ptrsc 0 def} ifelse
gsave
/xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse
/scountg where {pop /scount scountg def} {/scount 1 def} ifelse
%xchart 0 eq {%beg if xchart=0
0 setgray
0.15 MM setlinewidth
/x 20 array def
/y 20 array def
/d 20 array def
/x [000 296 296 000 002 294 294 002 005 291 291 005 %speziell
006 290 290 006 008 288 288 008 ] def
/y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell
006 006 204 204 008 008 202 202 ] def
/d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13
054 011 -54 -11 052 009 -52 -09 ] def
/xlu 017 MM def /ylu 017 MM def
/xro 279 MM def /yro 193 MM def
/xlo 017 MM def /ylo 193 MM def
/xru 279 MM def /yru 017 MM def
xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke
xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke
xro 8 MM add yro moveto -16 MM 0 rlineto stroke
xro yro 8 MM add moveto 0 -16 MM rlineto stroke
xru 8 MM sub yru moveto 16 MM 0 rlineto stroke
xru yru 8 MM sub moveto 0 16 MM rlineto stroke
xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke
xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke
1 2 7 {/i exch def %Zentrierkreise
xlu ylu i MM 0 360 arc stroke
xro yro i MM 0 360 arc stroke
xru yru i MM 0 360 arc stroke
xlo ylo i MM 0 360 arc stroke
} for %i
12 4 16 {/i exch def /i0 i def %i=0,16
%0 4 16 {/i exch def /i0 i def %i=0,16
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse
0 setgray
x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto
x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto
x i0 get MM y i0 get MM lineto stroke
i 16 eq {6 /Times-ISOL1 FS
/x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def
/x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def
x00 xdif 0 mul add MM y0o MM moveto (V) show
x00 xdif 0 mul add MM y0u MM moveto (C) show
x00 xdif 1 mul add MM y0o MM moveto (L) show
x00 xdif 1 mul add MM y0u MM moveto (M) show
x00 xdif 2 mul add MM y0o MM moveto (O) show
x00 xdif 2 mul add MM y0u MM moveto (Y) show
x00 xdif 3 mul add MM y0o MM moveto (Y) show
x00 xdif 3 mul add MM y0u MM moveto (O) show
x00 xdif 4 mul add MM y0o MM moveto (M) show
x00 xdif 4 mul add MM y0u MM moveto (L) show
x00 xdif 5 mul add MM y0o MM moveto (C) show
x00 xdif 5 mul add MM y0u MM moveto (V) show
x0l MM y00 ydif 0 mul add MM moveto (V) show
x0r MM y00 ydif 0 mul add MM moveto (C) show
x0l MM y00 ydif 1 mul add MM moveto (L) show
x0r MM y00 ydif 1 mul add MM moveto (M) show
x0l MM y00 ydif 2 mul add MM moveto (O) show
x0r MM y00 ydif 2 mul add MM moveto (Y) show
x0l MM y00 ydif 3 mul add MM moveto (Y) show
x0r MM y00 ydif 3 mul add MM moveto (O) show
x0l MM y00 ydif 4 mul add MM moveto (M) show
x0r MM y00 ydif 4 mul add MM moveto (L) show
x0l MM y00 ydif 5 mul add MM moveto (C) show
x0r MM y00 ydif 5 mul add MM moveto (V) show
} if
} for %i=0,16
0 1 10 {/j0 exch def /j1 j0 1 add def %j0
j0 0 eq {tzccmy0* setcmykcolor} if
j0 1 eq {0 setgray} if
j0 2 eq {tzmcmy0* setcmykcolor} if
j0 3 eq {0 setgray} if
j0 4 eq {tzycmy0* setcmykcolor} if
j0 5 eq {0 setgray} if
j0 6 eq {tzocmy0* setcmykcolor} if
j0 7 eq {0 setgray} if
j0 8 eq {tzlcmy0* setcmykcolor} if
j0 9 eq {0 setgray} if
j0 10 eq {tzvcmy0* setcmykcolor} if
12 4 16 {/i exch def /i0 i def %i=0,16
%0 4 16 {/i exch def /i0 i def %i=0,16
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse
x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto
x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke
x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto
x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke
x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto
x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke
x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto
x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke
} for %i=0,16
} for %j0
0.15 MM setlinewidth
/s 7 MM def /s1 8 MM def /s5 36 MM def
16 1 20 {/j exch def /j0 j 16 sub def %j=16,20
/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def
0 1 3 {/ij exch def %ij=0,3
ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if
ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if
ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if
ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if
i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor
j 16 eq {tzan j get dup dup 0 setcmykcolor
ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
tzan j get dup dup 0 setcmykcolor
ix0 iy0 s s rec fill
} if %i*ptrsc=0,2
i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor
j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N
ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
1 tzan j get sub dup dup setrgbcolor %N
ix0 iy0 s s rec fill
} if %i*ptrsc=1,3
i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5
[/CIEBasedABC << %Farbraum und Grenzen fuer D65
/RangeABC [0 100 -128 127 -128 127]
/DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind]
/MatrixABC [1 1 1 1 0 0 0 0 -1]
/DecodeLMN
[{dup 6 29 div ge {dup dup mul mul}
{4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind
{dup 6 29 div ge {dup dup mul mul}
{4 29 div sub 108 841 div mul} ifelse} bind
{dup 6 29 div ge {dup dup mul mul}
{4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind]
/WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65
>>] setcolorspace
j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add
tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add
tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add
setcolor %N
ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add
tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add
tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add
setcolor %N
ix0 iy0 s s rec fill
} if %i*ptrsc=4,5
i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor
j 16 eq {0 0 0 tzan j get setcmykcolor
ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
0 0 0 tzan j get setcmykcolor
ix0 iy0 s s rec fill
} if %i*ptrsc=6
i*ptrsc 7 eq {%i*ptrsc=7 w* setgray
j 16 eq {1 tzan j get sub setgray
ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
1 tzan j get sub setgray
ix0 iy0 s s rec fill
} if %i*ptrsc=7
} for %ij=0,3
} for %j=16,20
0 setgray
018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show
018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show
276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show
276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show
018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show
018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show
276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show
276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show
0 setgray
12 /Times-ISOL1 FS
61 MM 13 MM moveto
(TUB\255Pr\374fvorlage OE41; 48- & 360-stufige Bunttonkreise) showde
(TUB\255test chart OE41; 48 and 360 step hue circles) showen
(, Page ) showen
(, Seite ) showde
xchart 1 add cvishow (/) show xchart20m 1 add cvishow
61 MM 09 MM moveto
12 /Times-ISOL1 FS
( Daten von LECD\255Display, wenig Glanz, Keine Separation, D65) showde
( Data of LECD display, anti glossy, no separation, D65) showen
186 MM 13 MM moveto
12 /Times-ISOL1 FS
( input: ) showen
(Eingabe: ) showde
12 /TimesI-ISOL1 FS
(rgb*) show
-2 -2 rmoveto 8 /Times-ISOL1 FS (d) show 0 2 rmoveto
12 /TimesI-ISOL1 FS
( setrgbcolor) show
12 /Times-ISOL1 FS
186 MM 9 MM moveto
( output: ) showen
(Ausgabe: ) showde
%12 /Times-ISOL1 FS
%( = ) show
%12 /TimesI-ISOL1 FS (f) show
%0 -2 rmoveto 8 /Times-ISOL1 FS (6) show 0 2 rmoveto
%12 /TimesI-ISOL1 FS
%( \050rgb) show
%-2 -2 rmoveto 8 /Times-ISOL1 FS (d) show 0 2 rmoveto
%12 /TimesI-ISOL1 FS
%(\051) show
LSC$ (N) eq {%LSC$=N
12 /Times-ISOL1 FS
%xchart 1 le {
(no change) showen
(keine \304nderung) showde
% }
% {12 /TimesI-ISOL1 FS (->cmy0 setcmykcolor) show
% 12 /Times-ISOL1 FS
% } ifelse
} if %LSC$=N
%1 setgray %start white and unvisible
LSC$ (S) eq {
(Startup (S) data dependend) show
} if
LSC$ (F) eq {
12 /Times-Italic FS
i*ptrsc 0 eq {(cmy0* / 000n* setcmykcolor) show} if
i*ptrsc 1 eq {(olv* setrgbcolor / w* setgray) show} if
i*ptrsc 2 eq {(cmy0* / nnn0* setcmykcolor) show} if
i*ptrsc 3 eq {(olv* / www* setrgbcolor) show} if
i*ptrsc 4 eq {(lab* setcolor) show} if
i*ptrsc 5 eq {(LAB* setcolor) show} if
i*ptrsc 6 eq {(000n* setcmykcolor) show} if
i*ptrsc 7 eq {(w* setgray) show} if
} if
%0 setgray %end white and unvisible
12 /Times-ISOL1 FS
62 MM 198.5 MM moveto
(http://130.149.60.45/~farbmetrik/OE41/OE41L) show
(0) show
LSC$ show LEX$ show
%1 setgray %start white and unvisible
(; ) show
LSC$ (N) eq {
(Start\255Ausgabe) showde
(start output) showen
(start output) showes
(start output) showfr
(start output) showit
(start output) showjp
(start output) showm
} if
LSC$ (C) eq {
(Start\255Ausgabe) showde
(start output) showen
(start output) showes
(start output) showfr
(start output) showit
(start output) showjp
(start output) showm
} if
LSC$ (F) eq {
(Linearisierte\255Ausgabe) showde
(linearized output) showen
(linearized output) showes
(linearized output) showfr
(linearized output) showit
(linearized output) showjp
(linearized output) showm
} if
62 MM 194 MM moveto
LSC$ (N) eq LSC$ (C) eq or {
(N: Keine Ausgabe\255Linearisierung (OL) in Datei (F), Startup (S), Ger\344t (D)) showde
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showen
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showes
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showfr
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showit
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showjp
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showm
}
{LSC$ show (: ) show
(Ausgabe\255Linearisierung (OL\255Daten) ) showde
(Output Linearization (OL) data ) showen
(Output Linearization (OL) data ) showes
(Output Linearization (OL) data ) showfr
(Output Linearization (OL) data ) showit
(Output Linearization (OL) data ) showjp
(Output Linearization (OL) data ) showm
(OE41/OE41L) show
LSS$ show LSX$ show (0) show
LSC$ show LEY$ show
} ifelse
LSC$ (F) eq {
( in der Datei (F)) showde
( in File (F)) showen
( in File (F)) showes
( in File (F)) showfr
( in File (F)) showit
( in File (F)) showjp
( in File (F)) showm
} if
LSC$ (S) eq {
( im Distiller Startup (S) Directory) showde
( in Distiller Startup (S) Directory) showen
( in Distiller Startup (S) Directory) showes
( in Distiller Startup (S) Directory) showfr
( in Distiller Startup (S) Directory) showit
( in Distiller Startup (S) Directory) showjp
( in Distiller Startup (S) Directory) showm
} if
LSC$ (D) eq {
( in PostScript Device (D)) showde
( in PostScript Device (D)) showen
( in PostScript Device (D)) showes
( in PostScript Device (D)) showfr
( in PostScript Device (D)) showit
( in PostScript Device (D)) showjp
( in PostScript Device (D)) showm
} if
LSC$ (T) eq {
( von Distiller Startup (S) Directory) showde
( of Distiller Startup (S) Directory) showen
( of Distiller Startup (S) Directory) showes
( of Distiller Startup (S) Directory) showfr
( of Distiller Startup (S) Directory) showit
( of Distiller Startup (S) Directory) showjp
( of Distiller Startup (S) Directory) showm
} if
LSC$ (E) eq {
( von PostScript Device (D)) showde
( of PostScript Device (D)) showen
( of PostScript Device (D)) showes
( of PostScript Device (D)) showfr
( of PostScript Device (D)) showit
( of PostScript Device (D)) showjp
( of PostScript Device (D)) showm
} if
%0 setgray %end white and unvisible
16 MM 185 MM moveto
-90 rotate
(Siehe Original/Kopie: ) showde
(See original or copy: ) showen
(http://web.me.com/klaus.richter/OE41/OE41L) show
(0) show
LSC$ show LEX$ show
90 rotate
12 MM 185 MM moveto
-90 rotate
(Technische Information: ) showde
(Technical information: ) showen
(http://www.ps.bam.de) show
( or ) showen ( oder ) showde
(http://130.149.60.45/~farbmetrik) show
90 rotate
281 MM 185 MM moveto
-90 rotate
(TUB\255Registrierung: 20110301\255OE41/OE41L) showde
(TUB registration: 20110301\255OE41/OE41L) showen
(0) show
LSC$ show LEX$ show
90 rotate
281 MM 74 MM moveto
-90 rotate
(TUB\255Material: Code=rha4ta) showde
(TUB material: code=rha4ta) showen
90 rotate
277 MM 185 MM moveto
-90 rotate
/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
( Anwendung f\374r Messung von Drucker- oder Monitorsystemen) showde
( application for measurement of printer or monitor systems) showen
( application for measurement of printer or monitor systems) showes
( application for measurement of printer or monitor systems) showfr
( application for measurement of printer or monitor systems) showit
( application for measurement of printer or monitor systems) showjp
( application for measurement of printer or monitor systems) showm
IMES 1 eq LSC$ (N) ne and { %IMES=1
(, Yr=) show Yre cvsshow1 (, XYZ) show
} if %IMES=1
90 rotate
/i0 8 def
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
0.30 MM setlinewidth
0 setgray
x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto
x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto
x i0 get MM y i0 get MM lineto stroke
%} if %end if xchart=0
/xlu1 013 MM def /ylu1 010 MM def
/xro1 283 MM def /yro1 200 MM def
/xlo1 013 MM def /ylo1 200 MM def
/xru1 283 MM def /yru1 010 MM def
xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke
xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke
xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke
xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke
xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke
xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke
xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke
xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke
%} for %output with xchart end
%} for %output with colorm end
%} for %output with xcolor end
%} for %output with lanind end
%%Trailer
%%EndDocument
EndEPSF grestore gsave
showpage
grestore
} for %end for xchartg=xchartg1,xchartg2
%} for %end for pcountg=pcountg1,pcount2g
%} for %end for scountg=scountg1,scount2g
%%Trailer