%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.445/~farbmetrik/MF46/MF46L00XX.PS 20120401
%%BoundingBox: 08 14 584 828
/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: www.ps.bam.de/MF46/MF46.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:2013120112000)
/ModDate (D:20131201112000)
/DOCINFO pdfmark
[ /View [ /Fit ]
/DOCVIEW pdfmark
/sfgray {setgray} bind def /ypaper 0 def %Early Frame File (f) definition
/sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def
%line20******************************************************
%BEG MF46/OUTLIN10.PS Emty 20120301
%END MF46/OUTLIN10.PS Emty 20120301
/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 % End for EPS file
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
/A4querF {598 0 translate 90 rotate} 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
/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
/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
%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
/tzrcmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours
/tzgcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor
/tzbcmy0* {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
/tzrolv* {1.0 0.0 0.0} bind def %Reproduction colours
/tzgolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor
/tzbolv* {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
/tzrLAB* [53.34 72.46 50.66] def %Reproduction colours
/tzgLAB* [84.93 -79.83 74.80] def %LAB* setcolor
/tzbLAB* [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
%%EndProlog
%***********************************************************
%%BeginPageSetup
/#copies 1 def
A4querF
1.0 1.0 scale
/pgsave save def
%%EndPageSetup
/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)] def
/SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def
% 0 1 2 3 4 5
% 6 7 8
/EX$ [(2.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
%*******************************************************************
%line 360 *******************************************************************
/lanind1f 03 def /lanind2f 03 def /laninddf 01 def
/colorm1f 00 def /colorm2f 00 def /colormdf 01 def
/deintp1f 00 def /deintp2f 00 def /deintpdf 01 def
/xcolor1f 03 def /xcolor2f 03 def /xcolordf 01 def
/xchart1f 00 def /xchart2f 00 def /xchartdf 01 def %0-1,2-5,6-21
/xchart3f 01 def /xchart4f 00 def /xchart5f 00 def
/pchart1f 03 def /pchart2f 03 def /pchartdf 01 def %=3 for sRGB, Lr=0
/colsep1f 00 def /colsep2f 00 def /colsepdf 01 def
/pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def
%/lanindf lanind1f def %
/lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def
%/colormf colorm1f def %
colorm1f colormdf colorm2f {/colormf exch def
%/deintpf deintp1f def %
deintp1f deintpdf deintp2f {/deintpf exch def
%/xcolorf xcolor1f def %
/xcolorf xcolor1f def %xcolor1f xcolordf xcolor2f {/xcolorf exch def
%/xchartf xchart1f def %
xchart1f xchartdf xchart2f {/xchartf exch def
%/pchartf pchart1f def %
/pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def
%/colsepf colsep1f def %
/colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def
/lanind lanindf def
/colorm colormf def
/deintp deintpf def
/xcolor xcolorf def
/xchart xchartf def /xchartm xchart2f xchart1f sub 1 add def
/xchart3 xchart3f def /xchart3P0 xchart3 0 add def /xchart4 xchart4f def
/pchart pchartf def
/colsep colsepf def
/xchart3P8 xchart3 8 add def
%/pmetamf pmetam1f def %
/pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def
/pmetam pmetamf def
%*************************************************************
xchart xchart3 lt {%xchart<xchart3 not for CM
/setgray {sfgray} bind def
/setrgbcolor {sfrgbcolor} bind def
/setcmykcolor {sfcmykcolor} bind def
}%xchart<xchart3 not for CM
{%xchart>=xchart3 for CM
%BEG special for ColorInterpolation
/xchartj pchart def %sRGB, Lr=0%, pchart=3
/hei -1 def /heM -1 def
%PROC_LAB_IOF
%PROC_RX0F_IOF
%PROC_COLSEP_IOF
colorm 1 eq {PROC_COLINT_IOF} if
%PROC_COLINT_IOF
%PROC_SPEC_IOF
Colordata_sRGB_F %new
setcolortrans_F %new
proc_LAB729a_to_LAB*LabCh64M
proc_LAB*LabCh64M_to_tab362_dy
%END special for ColorInterpolation
%*********************************************************
} ifelse %xchart>=xchart3 for CM
xchart xchart3P0 le {72 90 translate}
{72 56 translate} ifelse
0.01 MM dup scale
%0 0 moveto 24600 0 rlineto 0 17220 rlineto
% -24600 0 rlineto closepath stroke
200 -180 moveto
180 /Times-ISOL1 FS
lanindf cvishow (-) show
colormf cvishow
deintpf cvishow
xcolorf cvishow
xchartf cvishow
pchartf cvishow
colsepf cvishow (-F) show pmetamf cvishow
grestore
gsave
/GSS$ SS$ lanind get def
/GSC$ SC$ colorm get def
/GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def
/GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def
/GEX$ EX$ 0 get def
/GEY$ EY$ 0 get def
%01
%02
%03
%04
%05
%06
%07
%08
%09
%10
%11
%12
%13
xchart xchart3P0 le {%xchart<=xchart3P0
%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 MF460-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 (MF460-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 MF460-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 (MF460-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 MF460-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 (MF460-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 MF460-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 (MF460-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 MF460-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 (MF460-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 MF460-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 (MF460-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 020 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 MF460-7N
%%BoundingBox: 70 83 392 485
%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/MF46/)
/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@me.com)
/CreationDate (D:2012050112000)
/ModDate (D:2012050112000)
/DOCINFO pdfmark07
[ /View [ /FitB ]
/DOCVIEW pdfmark07
%END PDFDE011
%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
/mcolor exch def /ccolor exch def
ncolor 0 eq {1 ccolor sub
1 mcolor sub
1 ycolor sub setrgbcolor
}
{ccolor 0 eq
mcolor 0 eq and
ycolor 0 eq and {%only black n
1 ncolor sub
dup
dup
setrgbcolor
}
{%cmy and black n
1 ccolor sub 1 ncolor sub mul
1 mcolor sub 1 ncolor sub mul
1 ycolor sub 1 ncolor sub mul
setrgbcolor
} ifelse
} ifelse
} bind def
% 113mm = 113*72/25.4 = 320; 320+72 = 392
% 60mm = 60*72/25.4 = 176; 170+90+8 = 268
% !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
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave
%LANINDL2 START 20000505
/lanind 1 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm {6 lanind eq {show} {pop} ifelse} bind def
/popde {0 lanind ne {pop} if} bind def
/popen {1 lanind ne {pop} if} bind def
/popes {2 lanind ne {pop} if} bind def
/popfr {3 lanind ne {pop} if} bind def
/popit {4 lanind ne {pop} if} bind def
/popjp {5 lanind ne {pop} if} bind def
/popm {6 lanind ne {pop} if} bind def
/popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def
/popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def
/popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def
/popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def
/popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def
/popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
/lanindd laninddf def}
{/lanind1 3 def /lanind2 3 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
/colormd colormdf def}
{/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
/deintpd deintpdf def}
{/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
/xcolord xcolordf def}
{/xcolor1 3 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
/xchartd xchartdf def
/xchartm xchart2f xchart1f sub 1 add def}
{/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
{/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
{/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
/pchartd pchartdf def}
{/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
/colsepd colsepdf def}
{/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
/pmetamd pmetamdf def}
{/pmetam1 0 def} ifelse
%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %
colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output
5 /Times-ISOL1 FS
/cvishow {cvi 6 string cvs show} def
75 85 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show pmetam cvishow
gsave
%LANINDL2 END
5 /Times-ISOL1 FS
340 85 moveto
(MF461-7) show
xchart 0 eq {(N) show}
{deintp colorm 2 mul add cvishow} ifelse
(, BT9_10) show % ( B7361_7, M8620-7, BT9_10, N=10_10 2x4) show
72 90 translate
/yhoe 13900 def
0.01 MM 0.01 MM scale %d2:[rr.b4f]bausz8y.eps
/ausz 8 def
15 setlinewidth
0.0 0.0 0.5 0.0 setcmykcolor
0 0 moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmykcolor
0 0 moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath stroke
0 yhoe 550 sub moveto 11200 0 rlineto stroke
/tedef {/anz exch def /ydt exch def /y0t exch def /x0t exch def} bind def
/ns {350 /Times-ISOL1 FS show} bind def
/ks {350 /TimesI-ISOL1 FS show} bind def
/bs {350 /TimesB-ISOL1 FS show} bind def
/js {350 /TimesBI-ISOL1 FS show} bind def
/ss {350 /Symbol FS show} bind def
/is {250 /Times-ISOL1 FS 0 -90 rlineto show 0 90 rlineto} bind def
/es {250 /Times-ISOL1 FS 0 200 rlineto show 0 -200 rlineto} bind def
/TEn {350 /Times-ISOL1 FS tedef} bind def
/TEk {350 /TimesI-ISOL1 FS tedef} bind def
/TEb {350 /TimesB-ISOL1 FS tedef} bind def
/TEj {350 /TimesBI-ISOL1 FS tedef} bind def
/TEs {350 /Symbol FS tedef} bind def
%20% kleiner
/ns2 {280 /Times-ISOL1 FS show} bind def
/ks2 {280 /TimesI-ISOL1 FS show} bind def
/bs2 {280 /TimesB-ISOL1 FS show} bind def
/js2 {280 /TimesBI-ISOL1 FS show} bind def
/is2 {200 /Times-ISOL1 FS 10 -40 rlineto show -10 40 rlineto} bind def
/iks2 {200 /TimesI-ISOL1 FS 10 -40 rlineto show -10 40 rlineto} bind def
/es2 {250 /Times-ISOL1 FS 0 160 rlineto show 0 -160 rlineto} bind def
/TEn2 {280 /Times-ISOL1 FS tedef} bind def
/TEk2 {280 /TimesI-ISOL1 FS tedef} bind def
/TEb2 {280 /TimesB-ISOL1 FS tedef} bind def
/TEj2 {280 /TimesBI-ISOL1 FS tedef} bind def
/TEs2 {280 /Symbol FS tedef} bind def
/TEA {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto show} for} bind def
/yd -550 def %y-Zeilenabstand
%Spalten
/S1 150 def
/S2 300 def
/S3 2350 def
/S4 8500 def
/yz 550 def
/yu0 0 def
/yu1 {yu0 -100 add yz 6 mul add} bind def
/yu2 {yu1 100 add yz 7 mul add} bind def
/yu3 {yu2 100 add yz 6 mul add} bind def
/yu4 {yu3 100 add yz 2 mul add} bind def
/yu5 {yu4 000 add yz 2 mul add} bind def
/yu6 {yu5 100 add yz 1 mul add} bind def
%Titeltext
S1 yu6 moveto
(Farbempfindungsgr\366\337en ) popde %08620-7 1
((Farbheiten: Kubikwurzel\255Koordinaten)) popde %08620-7 11
(percieved color terms ) popen %18620-7 1
((colorness: cube root coordinates)) popen %18620-7 11
(Vista del color ) popes %28620-7 1
((Coordenadas cubicas)) popes %28620-7 11
(percieved color terms ) popfr %38620-7 1
((colorness: cube root coordinates)) popfr %38620-7 11
(percieved color terms ) popit %48620-7 1
((colorness: cube root coordinates)) popit %48620-7 11
(percieved color terms ) popjp %58620-7 1
((colorness: cube root coordinates)) popjp %58620-7 11
exch bs bs
S1 yu5 yd 1 TEb
(Farbempfin\255) popde %08620-7 2
(percieved ) popen %18620-7 2
(vista del ) popes %28620-7 2
(percieved ) popfr %38620-7 2
(percieved ) popit %48620-7 2
(percieved ) popjp %58620-7 2
TEA
S1 yu5 400 sub moveto
(dungsgr\366\337en) popde %08620-7 3
(color terms) popen %18620-7 3
(color) popes %28620-7 3
(color terms) popfr %38620-7 3
(color terms) popit %48620-7 3
(color terms) popjp %58620-7 3
bs
S3 yu5 yd 1 TEb
(Bezeichnung und Zusammenhang) popde %08620-7 4
(name and relationship with) popen %18620-7 4
(Nombre y contexto) popes %28620-7 4
(name and relationship with) popfr %38620-7 4
(name and relationship with) popit %48620-7 4
(name and relationship with) popjp %58620-7 4
TEA
S3 yu5 400 sub moveto
(mit Normfarbwerten / \255anteilen) popde %08620-7 5
(standard chromaticity values) popen %18620-7 5
(con CIE standard cromaticos) popes %28620-7 5
(standard chromaticity values) popfr %38620-7 5
(standard chromaticity values) popit %48620-7 5
(standard chromaticity values) popjp %58620-7 5
bs
S4 yu5 yd 1 TEb
(Bemerkungen:) popde %08620-7 6
(notes:) popen %18620-7 6
(Notas:) popes %28620-7 6
(notes:) popfr %38620-7 6
(notes:) popit %48620-7 6
(notes:) popjp %58620-7 6
TEA
S1 yu4 yd 1 TEb
(Helligkeit) popde %08620-7 7
(lightness) popen %18620-7 7
(Vista luz) popes %28620-7 7
(lightness) popfr %38620-7 7
(lightness) popit %48620-7 7
(lightness) popjp %58620-7 7
TEA
S3 yu4 moveto
(L*) ks ( = 116 \050 ) ns (Y) ks ( / 100 \051 ) ns (1/3) es
( - 16) ns
S3 yu4 yd add moveto
(N\344herung: L*) ks ( = 100 \050 ) ns (Y) ks ( / 100 \051 ) ns (1/3) es
S4 yu4 yd 2 TEk
(Definition 1976 in:) (CIELUV, CIELAB) 2 popxde %08620-7 8
(definition 1976 in:) (CIELUV, CIELAB) 2 popxen %18620-7 8
(Definido 1976 en:) (CIELUV, CIELAB) 2 popxes %28620-7 8
(definition 1976 in:) (CIELUV, CIELAB) 2 popxfr %38620-7 8
(definition 1976 in:) (CIELUV, CIELAB) 2 popxit %48620-7 8
(definition 1976 in:) (CIELUV, CIELAB) 2 popxjp %58620-7 8
TEA
S1 yu3 yd 1 TEb
(Buntheit) popde %08620-7 9
(chromaticness ) popen %18620-7 9
(vista cromatica ) popes %28620-7 9
(chromaticness ) popfr %38620-7 9
(chromaticness ) popit %48620-7 9
(chromaticness ) popjp %58620-7 9
TEA
S3 yu3 yd 1 TEk
(f\374r nichtlineares Buntheitsdiagramm (a*, b*)) popde %08620-710
( for linear chromatic value diagram (AT, B)) popen %18620-710
( Para diagrama no lineal de vista cromatica (a*, b*)) popes %28620-710
( for linear chromatic value diagram (AT, B)) popfr %38620-710
( for linear chromatic value diagram (AT, B)) popit %48620-710
( for linear chromatic value diagram (AT, B)) popjp %58620-710
TEA
S4 yu3 yd 5 TEk
() (Definition) (Gegenfarbsystem) %08620-711
( ) (n = D65 (Umfeld)) 5 popxde %08620-7111
() (definition 1976 in:) (CIELAB) %18620-711
( ) (n=D65 (surround)) 5 popxen %18620-7111
() (Definicion 1976 in:) (sistema opuesto) %28620-711
(de color) (n=D65 (redondeo)) 5 popxes %28620-7111
() (definition 1976 in:) (CIELAB) %38620-711
( ) (n=D65 (surround)) 5 popxfr %38620-7111
() (definition 1976 in:) (CIELAB) %48620-711
( ) (n=D65 (surround)) 5 popxit %48620-7111
() (definition 1976 in:) (CIELAB) %58620-711
( ) (n=D65 (surround)) 5 popxjp %58620-7111
TEA
S2 yu3 yd 7 TEn
() (Rot-Gr\374n) () (Gelb-Blau) () (radial) () 7 popxde %08620-712
() (red-green) () (yellow-blue) () (radial) () 7 popxen %18620-712
() (Rojo-Verde) () (Amarillo-Azul) () (radial) () 7 popxes %28620-712
() (red-green) () (yellow-blue) () (radial) () 7 popxfr %38620-712
() (red-green) () (yellow-blue) () (radial) () 7 popxit %48620-712
() (red-green) () (yellow-blue) () (radial) () 7 popxjp %58620-712
TEA
S3 yu3 yd 1 mul add moveto
(a*) ks ( = 500 [ \050 ) ns (X / X) ks (n) is (\051) ns
(1/3) es ( - \050 ) ns (Y / Y) ks (n) is (\051) ns
(1/3) es ( ]) ns
S3 yu3 yd 2 mul add moveto
( )ns ( = 500 \050) ns ( a' - a') ks -100 0 rmoveto (n)
is ( \051 ) ns (Y) ks (1/3) es
S3 yu3 yd 3 mul add moveto
(b*) ks ( = 200 [ \050 ) ns (Y / Y) ks (n) is (\051) ns
(1/3) es ( - \050 ) ns (Z / Z) ks (n) is (\051) ns
(1/3) es ( ]) ns
S3 yu3 yd 4 mul add moveto
( )ns ( = 500 \050) ns ( b' - b') ks -100 0 rmoveto (n)
is ( \051 ) ns (Y) ks (1/3) es
S3 yu3 yd 5 mul add moveto
(C*) ks ( = [ ) ns (a*) ks (2) es ( + ) ns (b*) ks (2) es ( ] ) ns
(1/2) es
S1 yu2 yd 1 TEb
(S\344ttigung) popde %08620-713
(saturation) popen %18620-713
(vista saturacion ) popes %28620-713
(saturation) popfr %38620-713
(saturation value) popit %48620-713
(saturation) popjp %58620-713
TEA
S4 yu2 yd 3 TEk
() (Definition f\374r:) ( CIELAB 1976) 3 popxde %08620-714
(definition) (for:) ( CIELAB 1976) 3 popxen %18620-714
(Definicion) (sistema opuesto) (de color) 3 popxes %28620-714
(definition) (for:) ( CIELAB 1976) 3 popxfr %38620-714
(definition) (for:) ( CIELAB 1976) 3 popxit %48620-714
(definition) (for:) ( CIELAB 1976) 3 popxjp %58620-714
TEA
S3 yu2 yd 1 TEb
(= Buntheit / Helligkeit) popde %08620-715
(= chromaticness / lightness) popen %18620-715
(= vista cromaticos / vista acromaticos) popes %28620-715
(= chromaticness / lightness) popfr %38620-715
(= chromaticness / lightness) popit %48620-715
(= chromaticness / lightness) popjp %58620-715
TEA
S2 yu2 yd 6 TEn
() (Rot-Gr\374n) () (Gelb-Blau) () (radial) 6 popxde %08620-716
() (red-green) () (yellow-blue) () (radial) 6 popxen %18620-716
() (Rojo-Verde) () (Amarillo-Azul) () (radial) 6 popxes %28620-716
() (red-green) () (yellow-blue) () (radial) 6 popxfr %38620-716
() (red-green) () (yellow-blue) () (radial) 6 popxit %48620-716
() (red-green) () (yellow-blue) () (radial) 6 popxjp %58620-716
TEA
S3 yu2 yd 1 mul add moveto
(S*) ks -150 0 rmoveto (a) is ( = ) ns (a*) ks ( / [ ) ns
(100 \050 ) ns (Y) ks ( / 100 \051 ) ns (1/3) es ( ]) ns
S3 yu2 yd 2 mul add moveto
( = 21,6 \050 ) ns (a' - a') ks -100 0 rmoveto (n) is ( \051) ns
S3 yu2 yd 3 mul add moveto
(S*) ks -150 0 rmoveto (b) is ( = ) ns (b*) ks ( / [ ) ns
(100 \050 ) ns (Y) ks ( / 100 \051 ) ns (1/3) es ( ]) ns
S3 yu2 yd 4 mul add moveto
( = 21,6 \050 ) ns (b' - b') ks -100 0 rmoveto (n) is ( \051) ns
S3 yu2 yd 5 mul add moveto
(S*) ks -150 0 rmoveto (c) is ( = ) ns (C*) ks ( / [ ) ns
(100 \050 ) ns (Y) ks ( / 100 \051 ) ns (1/3) es ( ]) ns
S3 yu2 yd 6 mul add moveto
( = 21,6 [ \050 ) ns (a' - a') ks -100 0 rmoveto (n) is ( \051) ns
(2) es (+\050 ) ns (b' - b') ks -100 0 rmoveto (n) is ( \051) ns (2) es
( ]) ns (1/2) es
S1 yu1 yd 1 TEb
(Farbart) popde %08620-717
(chromaticity ) popen %18620-717
(chromatico ) popes %28620-717
(chromaticity ) popfr %38620-717
(chromaticity ) popit %48620-717
(chromaticity ) popjp %58620-717
TEA
S3 yu1 yd 1 TEk
(f\374r nichtlineare Farbtafel (a', b')) popde %08620-718
(for nonlinear chromaticity diagram (a', b')) popen %18620-718
(para color nonlineal-tablero (a', b')) popes %28620-718
(for nonlinear chromaticity diagram (a', b')) popfr %38620-718
(for nonlinear chromaticity diagram (a', b')) popit %48620-718
(for nonlinear chromaticity diagram (a', b')) popjp %58620-718
TEA
S4 yu1 yd 3 TEk
() (Definition) (Gegenfarbsystem) 3 popxde %08620-719
(definition) (opponent) ( color system) 3 popxen %18620-719
(Definicion) (sistema opuesto) (de color) 3 popxes %28620-719
(definition) (opponent) ( color system) 3 popxfr %38620-719
(definition) (opponent) ( color system) 3 popxit %48620-719
(definition) (opponent) ( color system) 3 popxjp %58620-719
TEA
S2 yu1 yd 4 TEn
() (Rot-Gr\374n) (Gelb-Blau) (radial) 4 popxde %08620-720
() (red-green) (yellow-blue) (radial) 4 popxen %18620-720
() (Rojo-Verde) (Amarillo-Azul) (radial) 4 popxes %28620-720
() (red-green) (yellow-blue) (radial) 4 popxfr %38620-720
() (red-green) (yellow-blue) (radial) 4 popxit %48620-720
() (red-green) (yellow-blue) (radial) 4 popxjp %58620-720
TEA
S3 yu1 yd 1 mul add moveto (a') ks
( = \050 1 / ) ns (X) ks (n) is ( \051) ns (1/3) es
( \050 ) ns (x / y) ks ( \051) ns (1/3) es
S3 yu1 yd 2 mul add moveto ( ) ks
( = 0,2191 \050 ) ns (x / y) ks ( \051) ns (1/3) es
( f\374r ) popde %08620-721
( for ) popen %18620-721
( para ) popes %28620-721
( for ) popfr %38620-721
( for ) popit %48620-721
( for ) popjp %58620-721
ns (D65) ks
S3 yu1 yd 3 mul add moveto (b') ks
( = - 0,4 \050 1 / ) ns (Z) ks (n) is ( \051) ns (1/3) es
( \050 ) ns (z / y) ks ( \051) ns (1/3) es
S3 yu1 yd 4 mul add moveto ( ) ks
( = - 0,08376 \050 ) ns (z / y) ks ( \051) ns (1/3) es
( f\374r ) popde %08620-722
( for ) popen %18620-722
( para ) popes %28620-722
( for ) popfr %38620-722
( for ) popit %48620-722
( for ) popjp %58620-722
ns (D65) ks
S3 yu1 yd 5 mul add moveto (c') ks
( = [ \050 ) ns (a' - a') ks -100 0 rmoveto (n) is ( \051) ns (2) es
( + \050 ) ns (b' - b') ks -100 0 rmoveto (n) is ( \051) ns (2) es
( ]) ns (1/2) es
showpage
grestore
%%Trailer
%%EndDocument
EndEPSF grestore gsave
BeginEPSF
86 MM 020 MM translate
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 MF460-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 (MF460-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 MF461-1
%%BoundingBox: 70 83 226 206
%START PDFDE011.EPS
/pdfmark12 where {pop} {userdict /pdfmark12 /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/MF46/)
/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@me.com)
/CreationDate (D:2012050112000)
/ModDate (D:2012050112000)
/DOCINFO pdfmark12
[ /View [ /FitB ]
/DOCVIEW pdfmark12
%END PDFDE011
%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
/mcolor exch def /ccolor exch def
ncolor 0 eq {1 ccolor sub
1 mcolor sub
1 ycolor sub setrgbcolor
}
{ccolor 0 eq
mcolor 0 eq and
ycolor 0 eq and {%only black n
1 ncolor sub
dup
dup
setrgbcolor
}
{%cmy and black n
1 ccolor sub 1 ncolor sub mul
1 mcolor sub 1 ncolor sub mul
1 ycolor sub 1 ncolor sub mul
setrgbcolor
} ifelse
} ifelse
} 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
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/TK {250 16.67 div /Times-ISOL1 FS} bind def
/TM {300 16.67 div /Times-ISOL1 FS} bind def
/TG {350 16.67 div /Times-ISOL1 FS} bind def
/TIK {250 16.67 div /TimesI-ISOL1 FS} bind def
/TIM {300 16.67 div /TimesI-ISOL1 FS} bind def
/TIG {350 16.67 div /TimesI-ISOL1 FS} bind def
/TBK {250 16.67 div /TimesB-ISOL1 FS} bind def
/TBM {300 16.67 div /TimesB-ISOL1 FS} bind def
/TBG {350 16.67 div /TimesB-ISOL1 FS} bind def
/TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def
/SK {250 16.67 div 1 sub /Symbol FS} bind def
/SM {300 16.67 div 1 sub /Symbol FS} bind def
/SG {350 16.67 div 1 sub /Symbol FS} bind def
/tolvfcol %Farbkreis-Reihenfolge
[ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF)
(777) (700) (770) (070) (077) (007) (707) (F07) %15=R
(333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B
(BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G
] def
/tcmyfcol %Farbkreis-Reihenfolge
[ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000)
(888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R
(CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B
(444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G
] def
/tcmykfcol %Farbkreis-Reihenfolge
[ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000)
(0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R
(000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B
(0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G
] def
/tolvfcols %Farbkreis-Reihenfolge
[ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*)
(777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R
(333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B
(BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G
] def
/tcmyfcols %Farbkreis-Reihenfolge
[ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*)
(888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R
(CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B
(444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G
] def
/tcmykfcols %Farbkreis-Reihenfolge
[ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*)
(0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R
(000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B
(0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G
] def
/fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge
[{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0}
{1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0}
{0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5}
{1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0}
{0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0}
{0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0}
{0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0}
{1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0}
] def
/fak 0.5 def
/Far %Farbkreis-Reihenfolge
[ 0 1 2 3 4 5 6 7
8 9 10 11 12 13 14 15 %R
16 17 18 19 20 21 22 23 %B
24 25 26 27 28 29 30 31 %G
] def
/cFar %Kompensativ-Farbkreis-Reihenfolge
[ 8 4 5 6 1 2 3 0
0 20 21 22 17 18 19 31 %G
24 12 13 14 9 10 11 2 %J
16 28 29 30 25 26 27 15 %R
] def
/Btx %Farbkreis- -> %Btx-Reihenfolge
[ 0 1 3 2 5 6 4 7
8 9 11 10 13 14 12 15 %R
16 17 19 18 21 22 20 23 %B
24 25 26 27 28 29 30 31 %G
] def
/cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge
[ 7 4 6 5 2 3 1 0
8 20 22 21 18 19 17 31 %G
24 12 14 13 10 11 9 2 %J
16 25 26 27 28 29 30 15 %R
] def
%XCHA01.PS BEG
/rec %x, y width heigth
{/heigth exch def /width exch def
moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
/colrecfi %x y width heigth c m y k
{setcmyk_olvcolor rec fill} bind def
/colrecst %x y width heigth c m y k
{setcmyk_olvcolor rec stroke} bind def
/rem %x, y width heigth
{/heigth exch 0.5 mul def /width exch 0.5 mul def
/yleftb exch heigth 0.5 mul add def
/xleftb exch width 0.5 mul add def
xleftb yleftb
moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
/colremfi %x y width heigth c m y k
{setcmykcolor rem fill} bind def
/colremst %x y width heigth c m y k
{setcmykcolor rem stroke} bind def
/tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzg {1.0 0.0 1.0 0.0} bind def
/tzb {1.0 1.0 0.0 0.0} bind def
/tzc {1.0 0.0 0.0 0.0} bind def
/tzm {0.0 1.0 0.0 0.0} bind def
/tzy {0.0 0.0 1.0 0.0} bind def
/tzn {0.0 0.0 0.0 1.00} bind def %Graureihe
/tzd {0.0 0.0 0.0 0.75} bind def
/tzz {0.0 0.0 0.0 0.50} bind def
/tzh {0.0 0.0 0.0 0.25} bind def
/tzw {0.0 0.0 0.0 0.00} bind def
/tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def
/tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def
/tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe
/tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def
/tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def
/tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def
/tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def
%%EndProlog
gsave
/lanind 1 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm {6 lanind eq {show} {pop} ifelse} bind def
/popde {0 lanind ne {pop} if} bind def
/popen {1 lanind ne {pop} if} bind def
/popes {2 lanind ne {pop} if} bind def
/popfr {3 lanind ne {pop} if} bind def
/popit {4 lanind ne {pop} if} bind def
/popjp {5 lanind ne {pop} if} bind def
/popm {6 lanind ne {pop} if} bind def
/popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def
/popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def
/popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def
/popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def
/popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def
/popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
/lanindd laninddf def}
{/lanind1 3 def /lanind2 3 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
/colormd colormdf def}
{/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
/deintpd deintpdf def}
{/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
/xcolord xcolordf def}
{/xcolor1 3 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
/xchartd xchartdf def
/xchartm xchart2f xchart1f sub 1 add def}
{/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
{/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
{/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
/pchartd pchartdf def}
{/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
/colsepd colsepdf def}
{/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
/pmetamd pmetamdf def}
{/pmetam1 0 def} ifelse
%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %
colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output
5 /Times-ISOL1 FS
/cvishow {cvi 6 string cvs show} def
75 85 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show pmetam cvishow
gsave
%XCHA01.PS END
5 /Times-ISOL1 FS
175 85 moveto (MF461-1) show
xchart 0 eq {(N) show}
{deintp colorm 2 mul add cvishow} ifelse
(, B2_33) show % ( B8540_1, M8150-4, B2_33, N=2_33) show
72 90 translate
/pixf 1.0 def 0.1667 pixf div MM dup scale
/ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F
0 0 320 240 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau
TBM %Schrift Times-Bold-Gross
0.0 0.0 0.0 0.0 setcmyk_olvcolor %Schrift Weiss
010 030 moveto
(Farben: Wei\337) showde %0MF461-1 00281
(colours: white) showen %1MF461-1 00281
(colores: blanco) showes %2MF461-1 00281
(couleurs: blanc) showfr %3MF461-1 00281
(colori: bianco) showit %4MF461-1 00281
(colours: white) showjp %5MF461-1 00281
TBIM
( W) show
TBK 0 -3 rmoveto (d) show 0 3 rmoveto TBM
( (I), Rot) showde %0MF461-1 01281
( (I), red) showen %1MF461-1 01281
( (I), rojo) showes %2MF461-1 01281
( (II), rouge) showfr %3MF461-1 01281
( (I), rosso) showit %4MF461-1 01281
( (I), red) showjp %5MF461-1 01281
TBIM ( R) show
TBK 0 -3 rmoveto (d) show 0 3 rmoveto TBM
( (II)) show
010 006 moveto
(und fluoreszierendes Rot) showde %0MF461-1 02281
(and fluorescent red) showen %1MF461-1 02281
(y rojo fluorescente) showes %2MF461-1 02281
(et rouge fluorescent) showfr %3MF461-1 02281
(e fluorescente rosso) showit %4MF461-1 02281
(and fluorescent red) showjp %5MF461-1 02281
TBIM ( R) show
TBK 0 -3 rmoveto (df) show 0 3 rmoveto TBM
( (III)) show
TBG
005 215 moveto
(Drei K\366rperfarben) showde %0MF461-1 03281
(three surface colours) showen %1MF461-1 03281
(tres objetos de color) showes %2MF461-1 03281
(trois couleurs de surface) showfr %3MF461-1 03281
(tre superficie i colori) showit %4MF461-1 03281
(three surface colours) showjp %5MF461-1 03281
/xd 4.0 def /xd2 8.0 def /ix0 45 def /iy0 50 def
%ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi
ix0 1 sub iy0 3 sub 2 157 fcolors 7 get exec colrecfi
0 50 150 {/iyd exch def
10 iy0 iyd add 1 sub 300 2 fcolors 07 get exec colrecfi
} for %Schleife iyd
%three colours
ix0 001 add iy0 101 add 256 48 fcolors 7 get exec colrecfi
ix0 001 add iy0 051 add 256 48 fcolors 1 get exec colrecfi
/it 0 def
it 0 eq {%it=0,1
ix0 001 add iy0 001 add 256 48 fcolors 7 get exec colrecfi
}%it=0
{%it=1
ix0 001 add iy0 001 add 256 48 fcolors 0 get exec colrecfi
fcolors 7 get exec setcmykcolor
TBIM
ix0 010 add iy0 030 add moveto
(fluoreszierendes Rot) showde %0MF461-1 04281
(fluorescent red) showen %1MF461-1 04281
(rojo fluorescente) showes %2MF461-1 04281
(rouge fluorescent) showfr %3MF461-1 04281
(rosso fluorescente) showit %4MF461-1 04281
(fluorescent rer) showjp %5MF461-1 04281
ix0 010 add iy0 010 add moveto
(im Druck) showde %0MF461-1 05281
(in offset print) showen %1MF461-1 05281
(en impresi\363n offset) showes %2MF461-1 05281
(en impression offset) showfr %3MF461-1 05281
(nella stampa di deviazione) showit %4MF461-1 05281
(in offset print) showjp %5MF461-1 05281
} ifelse %it=0,1
0.0 0.0 0.0 0.0 setcmyk_olvcolor %W
ix0 25 sub iy0 100 add 20 add moveto (I) show
ix0 30 sub iy0 050 add 20 add moveto (II) show
ix0 35 sub iy0 000 add 20 add moveto (III) show
showpage
grestore
%%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 MF461-2
%%BoundingBox: 70 83 226 206
%START PDFDE011.EPS
/pdfmark12 where {pop} {userdict /pdfmark12 /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/MF46/)
/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@me.com)
/CreationDate (D:2012050112000)
/ModDate (D:2012050112000)
/DOCINFO pdfmark12
[ /View [ /FitB ]
/DOCVIEW pdfmark12
%END PDFDE011
%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
/mcolor exch def /ccolor exch def
ncolor 0 eq {1 ccolor sub
1 mcolor sub
1 ycolor sub setrgbcolor
}
{ccolor 0 eq
mcolor 0 eq and
ycolor 0 eq and {%only black n
1 ncolor sub
dup
dup
setrgbcolor
}
{%cmy and black n
1 ccolor sub 1 ncolor sub mul
1 mcolor sub 1 ncolor sub mul
1 ycolor sub 1 ncolor sub mul
setrgbcolor
} ifelse
} ifelse
} 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
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/TK {250 16.67 div /Times-ISOL1 FS} bind def
/TM {300 16.67 div /Times-ISOL1 FS} bind def
/TG {350 16.67 div /Times-ISOL1 FS} bind def
/TIK {250 16.67 div /TimesI-ISOL1 FS} bind def
/TIM {300 16.67 div /TimesI-ISOL1 FS} bind def
/TIG {350 16.67 div /TimesI-ISOL1 FS} bind def
/TBK {250 16.67 div /TimesB-ISOL1 FS} bind def
/TBM {300 16.67 div /TimesB-ISOL1 FS} bind def
/TBG {350 16.67 div /TimesB-ISOL1 FS} bind def
/TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def
/SK {250 16.67 div 1 sub /Symbol FS} bind def
/SM {300 16.67 div 1 sub /Symbol FS} bind def
/SG {350 16.67 div 1 sub /Symbol FS} bind def
/tolvfcol %Farbkreis-Reihenfolge
[ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF)
(777) (700) (770) (070) (077) (007) (707) (F07) %15=R
(333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B
(BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G
] def
/tcmyfcol %Farbkreis-Reihenfolge
[ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000)
(888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R
(CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B
(444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G
] def
/tcmykfcol %Farbkreis-Reihenfolge
[ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000)
(0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R
(000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B
(0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G
] def
/tolvfcols %Farbkreis-Reihenfolge
[ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*)
(777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R
(333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B
(BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G
] def
/tcmyfcols %Farbkreis-Reihenfolge
[ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*)
(888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R
(CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B
(444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G
] def
/tcmykfcols %Farbkreis-Reihenfolge
[ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*)
(0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R
(000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B
(0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G
] def
/fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge
[{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0}
{1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0}
{0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5}
{1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0}
{0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0}
{0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0}
{0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0}
{1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0}
] def
/fak 0.5 def
/Far %Farbkreis-Reihenfolge
[ 0 1 2 3 4 5 6 7
8 9 10 11 12 13 14 15 %R
16 17 18 19 20 21 22 23 %B
24 25 26 27 28 29 30 31 %G
] def
/cFar %Kompensativ-Farbkreis-Reihenfolge
[ 8 4 5 6 1 2 3 0
0 20 21 22 17 18 19 31 %G
24 12 13 14 9 10 11 2 %J
16 28 29 30 25 26 27 15 %R
] def
/Btx %Farbkreis- -> %Btx-Reihenfolge
[ 0 1 3 2 5 6 4 7
8 9 11 10 13 14 12 15 %R
16 17 19 18 21 22 20 23 %B
24 25 26 27 28 29 30 31 %G
] def
/cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge
[ 7 4 6 5 2 3 1 0
8 20 22 21 18 19 17 31 %G
24 12 14 13 10 11 9 2 %J
16 25 26 27 28 29 30 15 %R
] def
%XCHA01.PS BEG
/rec %x, y width heigth
{/heigth exch def /width exch def
moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
/colrecfi %x y width heigth c m y k
{setcmyk_olvcolor rec fill} bind def
/colrecst %x y width heigth c m y k
{setcmyk_olvcolor rec stroke} bind def
/rem %x, y width heigth
{/heigth exch 0.5 mul def /width exch 0.5 mul def
/yleftb exch heigth 0.5 mul add def
/xleftb exch width 0.5 mul add def
xleftb yleftb
moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
/colremfi %x y width heigth c m y k
{setcmykcolor rem fill} bind def
/colremst %x y width heigth c m y k
{setcmykcolor rem stroke} bind def
/tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzg {1.0 0.0 1.0 0.0} bind def
/tzb {1.0 1.0 0.0 0.0} bind def
/tzc {1.0 0.0 0.0 0.0} bind def
/tzm {0.0 1.0 0.0 0.0} bind def
/tzy {0.0 0.0 1.0 0.0} bind def
/tzn {0.0 0.0 0.0 1.00} bind def %Graureihe
/tzd {0.0 0.0 0.0 0.75} bind def
/tzz {0.0 0.0 0.0 0.50} bind def
/tzh {0.0 0.0 0.0 0.25} bind def
/tzw {0.0 0.0 0.0 0.00} bind def
/tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def
/tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def
/tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe
/tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def
/tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def
/tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def
/tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def
%%EndProlog
gsave
/lanind 1 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm {6 lanind eq {show} {pop} ifelse} bind def
/popde {0 lanind ne {pop} if} bind def
/popen {1 lanind ne {pop} if} bind def
/popes {2 lanind ne {pop} if} bind def
/popfr {3 lanind ne {pop} if} bind def
/popit {4 lanind ne {pop} if} bind def
/popjp {5 lanind ne {pop} if} bind def
/popm {6 lanind ne {pop} if} bind def
/popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def
/popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def
/popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def
/popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def
/popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def
/popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
/lanindd laninddf def}
{/lanind1 3 def /lanind2 3 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
/colormd colormdf def}
{/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
/deintpd deintpdf def}
{/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
/xcolord xcolordf def}
{/xcolor1 3 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
/xchartd xchartdf def
/xchartm xchart2f xchart1f sub 1 add def}
{/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
{/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
{/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
/pchartd pchartdf def}
{/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
/colsepd colsepdf def}
{/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
/pmetamd pmetamdf def}
{/pmetam1 0 def} ifelse
%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %
colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output
5 /Times-ISOL1 FS
/cvishow {cvi 6 string cvs show} def
75 85 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show pmetam cvishow
gsave
%XCHA01.PS END
5 /Times-ISOL1 FS
175 85 moveto (MF461-2) show
xchart 0 eq {(N) show}
{deintp colorm 2 mul add cvishow} ifelse
(, B2_33) show % ( B8540_1, M8150-4, B2_33, N=2_33) show
72 90 translate
/pixf 1.0 def 0.1667 pixf div MM dup scale
/ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F
0 0 320 240 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau
TBM %Schrift Times-Bold-Gross
0.0 0.0 0.0 0.0 setcmyk_olvcolor %Schrift Weiss
010 030 moveto
(Farben: Wei\337) showde %0MF461-2 00281
(colours: white) showen %1MF461-2 00281
(colores: blanco) showes %2MF461-2 00281
(couleurs: blanc) showfr %3MF461-2 00281
(colori: bianco) showit %4MF461-2 00281
(colours: white) showjp %5MF461-2 00281
TBIM
( W) show
TBK 0 -3 rmoveto (d) show 0 3 rmoveto TBM
( (I), Rot) showde %0MF461-2 01281
( (I), red) showen %1MF461-2 01281
( (I), rojo) showes %2MF461-2 01281
( (II), rouge) showfr %3MF461-2 01281
( (I), rosso) showit %4MF461-2 01281
( (I), red) showjp %5MF461-2 01281
TBIM ( R) show
TBK 0 -3 rmoveto (d) show 0 3 rmoveto TBM
( (II)) show
010 006 moveto
(und fluoreszierendes Rot) showde %0MF461-2 02281
(and fluorescent red) showen %1MF461-2 02281
(y rojo fluorescente) showes %2MF461-2 02281
(et rouge fluorescent) showfr %3MF461-2 02281
(e fluorescente rosso) showit %4MF461-2 02281
(and fluorescent red) showjp %5MF461-2 02281
TBIM ( R) show
TBK 0 -3 rmoveto (df) show 0 3 rmoveto TBM
( (III)) show
TBG
005 215 moveto
(Drei K\366rperfarben) showde %0MF461-2 03281
(three surface colours) showen %1MF461-2 03281
(tres objetos de color) showes %2MF461-2 03281
(trois couleurs de surface) showfr %3MF461-2 03281
(tre superficie i colori) showit %4MF461-2 03281
(three surface colours) showjp %5MF461-2 03281
/xd 4.0 def /xd2 8.0 def /ix0 45 def /iy0 50 def
%ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi
ix0 1 sub iy0 3 sub 2 157 fcolors 7 get exec colrecfi
0 50 150 {/iyd exch def
10 iy0 iyd add 1 sub 300 2 fcolors 07 get exec colrecfi
} for %Schleife iyd
%three colours
ix0 001 add iy0 101 add 256 48 fcolors 7 get exec colrecfi
ix0 001 add iy0 051 add 256 48 fcolors 1 get exec colrecfi
/it 1 def
it 0 eq {%it=0,1
ix0 001 add iy0 001 add 256 48 fcolors 7 get exec colrecfi
}%it=0
{%it=1
ix0 001 add iy0 001 add 256 48 fcolors 0 get exec colrecfi
fcolors 7 get exec setcmykcolor
TBIM
ix0 010 add iy0 030 add moveto
(fluoreszierendes Rot) showde %0MF461-2 04281
(fluorescent red) showen %1MF461-2 04281
(rojo fluorescente) showes %2MF461-2 04281
(rouge fluorescent) showfr %3MF461-2 04281
(rosso fluorescente) showit %4MF461-2 04281
(fluorescent rer) showjp %5MF461-2 04281
ix0 010 add iy0 010 add moveto
(im Druck) showde %0MF461-2 05281
(in offset print) showen %1MF461-2 05281
(en impresi\363n offset) showes %2MF461-2 05281
(en impression offset) showfr %3MF461-2 05281
(nella stampa di deviazione) showit %4MF461-2 05281
(in offset print) showjp %5MF461-2 05281
} ifelse %it=0,1
0.0 0.0 0.0 0.0 setcmyk_olvcolor %W
ix0 25 sub iy0 100 add 20 add moveto (I) show
ix0 30 sub iy0 050 add 20 add moveto (II) show
ix0 35 sub iy0 000 add 20 add moveto (III) show
showpage
grestore
%%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 MF461-3
%%BoundingBox: 70 83 226 206
%START PDFDE011.EPS
/pdfmark13 where {pop} {userdict /pdfmark13 /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/MF46/)
/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@me.com)
/CreationDate (D:2012050112000)
/ModDate (D:2012050112000)
/DOCINFO pdfmark13
[ /View [ /FitB ]
/DOCVIEW pdfmark13
%END PDFDE011
%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
/mcolor exch def /ccolor exch def
ncolor 0 eq {1 ccolor sub
1 mcolor sub
1 ycolor sub setrgbcolor
}
{ccolor 0 eq
mcolor 0 eq and
ycolor 0 eq and {%only black n
1 ncolor sub
dup
dup
setrgbcolor
}
{%cmy and black n
1 ccolor sub 1 ncolor sub mul
1 mcolor sub 1 ncolor sub mul
1 ycolor sub 1 ncolor sub mul
setrgbcolor
} ifelse
} ifelse
} 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
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/TV {160 16.67 div /Times-ISOL1 FS} bind def
/TS {200 16.67 div /Times-ISOL1 FS} bind def
/TK {250 16.67 div /Times-ISOL1 FS} bind def
/TM {300 16.67 div /Times-ISOL1 FS} bind def
/TG {350 16.67 div /Times-ISOL1 FS} bind def
/TIV {160 16.67 div /TimesI-ISOL1 FS} bind def
/TIS {200 16.67 div /TimesI-ISOL1 FS} bind def
/TIK {250 16.67 div /TimesI-ISOL1 FS} bind def
/TIM {300 16.67 div /TimesI-ISOL1 FS} bind def
/TIG {350 16.67 div /TimesI-ISOL1 FS} bind def
/TBV {160 16.67 div /TimesB-ISOL1 FS} bind def
/TBS {200 16.67 div /TimesB-ISOL1 FS} bind def
/TBK {250 16.67 div /TimesB-ISOL1 FS} bind def
/TBM {300 16.67 div /TimesB-ISOL1 FS} bind def
/TBG {350 16.67 div /TimesB-ISOL1 FS} bind def
/TBIV {160 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIS {200 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def
/SV {160 16.67 div 1 sub /Symbol FS} bind def
/SS {200 16.67 div 1 sub /Symbol FS} bind def
/SK {250 16.67 div 1 sub /Symbol FS} bind def
/SM {300 16.67 div 1 sub /Symbol FS} bind def
/SG {350 16.67 div 1 sub /Symbol FS} bind def
/tolvfcol %Farbkreis-Reihenfolge
[ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF)
(777) (700) (770) (070) (077) (007) (707) (F07) %15=R
(333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B
(BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G
] def
/tcmyfcol %Farbkreis-Reihenfolge
[ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000)
(888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R
(CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B
(444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G
] def
/tcmykfcol %Farbkreis-Reihenfolge
[ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000)
(0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R
(000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B
(0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G
] def
/tolvfcols %Farbkreis-Reihenfolge
[ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*)
(777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R
(333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B
(BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G
] def
/tcmyfcols %Farbkreis-Reihenfolge
[ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*)
(888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R
(CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B
(444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G
] def
/tcmykfcols %Farbkreis-Reihenfolge
[ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*)
(0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R
(000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B
(0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G
] def
/fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge
[{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0}
{1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0}
{0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5}
{1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0}
{0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0}
{0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0}
{0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0}
{1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0}
] def
/fak 0.5 def
/Far %Farbkreis-Reihenfolge
[ 0 1 2 3 4 5 6 7
8 9 10 11 12 13 14 15 %R
16 17 18 19 20 21 22 23 %B
24 25 26 27 28 29 30 31 %G
] def
/cFar %Kompensativ-Farbkreis-Reihenfolge
[ 8 4 5 6 1 2 3 0
0 20 21 22 17 18 19 31 %G
24 12 13 14 9 10 11 2 %J
16 28 29 30 25 26 27 15 %R
] def
/Btx %Farbkreis- -> %Btx-Reihenfolge
[ 0 1 3 2 5 6 4 7
8 9 11 10 13 14 12 15 %R
16 17 19 18 21 22 20 23 %B
24 25 26 27 28 29 30 31 %G
] def
/cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge
[ 7 4 6 5 2 3 1 0
8 20 22 21 18 19 17 31 %G
24 12 14 13 10 11 9 2 %J
16 25 26 27 28 29 30 15 %R
] def
%XCHA01.PS BEG
/rec %x, y width heigth
{/heigth exch def /width exch def
moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
/colrecfi %x y width heigth c m y k
{setcmyk_olvcolor rec fill} bind def
/colrecst %x y width heigth c m y k
{setcmyk_olvcolor rec stroke} bind def
/rem %x, y width heigth
{/heigth exch 0.5 mul def /width exch 0.5 mul def
/yleftb exch heigth 0.5 mul add def
/xleftb exch width 0.5 mul add def
xleftb yleftb
moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
/colremfi %x y width heigth c m y k
{setcmykcolor rem fill} bind def
/colremst %x y width heigth c m y k
{setcmykcolor rem stroke} bind def
/tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzg {1.0 0.0 1.0 0.0} bind def
/tzb {1.0 1.0 0.0 0.0} bind def
/tzc {1.0 0.0 0.0 0.0} bind def
/tzm {0.0 1.0 0.0 0.0} bind def
/tzy {0.0 0.0 1.0 0.0} bind def
/tzn {0.0 0.0 0.0 1.00} bind def %Graureihe
/tzd {0.0 0.0 0.0 0.75} bind def
/tzz {0.0 0.0 0.0 0.50} bind def
/tzh {0.0 0.0 0.0 0.25} bind def
/tzw {0.0 0.0 0.0 0.00} bind def
/tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def
/tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def
/tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe
/tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def
/tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def
/tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def
/tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def
%%EndProlog
gsave
/lanind 1 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm {6 lanind eq {show} {pop} ifelse} bind def
/popde {0 lanind ne {pop} if} bind def
/popen {1 lanind ne {pop} if} bind def
/popes {2 lanind ne {pop} if} bind def
/popfr {3 lanind ne {pop} if} bind def
/popit {4 lanind ne {pop} if} bind def
/popjp {5 lanind ne {pop} if} bind def
/popm {6 lanind ne {pop} if} bind def
/popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def
/popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def
/popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def
/popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def
/popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def
/popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
/lanindd laninddf def}
{/lanind1 3 def /lanind2 3 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
/colormd colormdf def}
{/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
/deintpd deintpdf def}
{/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
/xcolord xcolordf def}
{/xcolor1 3 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
/xchartd xchartdf def
/xchartm xchart2f xchart1f sub 1 add def}
{/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
{/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
{/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
/pchartd pchartdf def}
{/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
/colsepd colsepdf def}
{/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
/pmetamd pmetamdf def}
{/pmetam1 0 def} ifelse
%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %
colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output
5 /Times-ISOL1 FS
/cvishow {cvi 6 string cvs show} def
75 85 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show pmetam cvishow
gsave
%XCHA01.PS END
5 /Times-ISOL1 FS
180 85 moveto (MF461-3) show
xchart 0 eq {(N) show}
{deintp colorm 2 mul add cvishow} ifelse
%(ZE421-4) show
72 90 translate /pixf 1.0 def
0.1667 pixf div MM 2 mul dup scale
0 0 159 119 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau
TBG %Schrift Times-Bold-Gross
0.0 0.0 0.0 0.0 setcmyk_olvcolor %Schrift Weiss
TBK
/PRA 40 array def
/TVA 40 array def
/Li60 8 array def
/Ai60 8 array def
/Bi60 8 array def
/Li61 8 array def
/Ai61 8 array def
/Bi61 8 array def
/tBtxb %textBtx-Reihenfolge
[(W) (O) (Y) (L) (C) (V) (M) (W)
(H) (YO) (OM) (MV) (VC) (CL) (LY) (R) ] def
/imx 65 def /imy 13 def
/sPRTV 0 def %Start PR, dann Transfer TV
%/sPRTV 1 def %Start TV, dann Transfer PR
%/pPRTV 0 def %Show TV
%/pPRTV 1 def %Show PR
/pPRTV 2 def %Show ALL=PR+TV
%Start PR:
/PR1 0 def %ORS18ca
%/PR1 1 def %OLS00ca
%/PR1 2 def %OLS18ca
%/PR1 3 def %OLS27ca
%/PR1 4 def %OLS33ca
%Transfer TV:
%/TV1 0 def %TRS18ca
%/TV1 1 def %TLS00ca
/TV1 2 def %TLS18ca
%/TV1 3 def %TLS27ca
%/TV1 4 def %TLS33ca
%START TV:
%/TV2 0 def %TRS18ca
%/TV2 1 def %TLS00ca
%/TV2 2 def %TLS18ca
%/TV2 3 def %TLS27ca
%/TV2 4 def %TLS33ca
%TRANSFER PR
%/PR2 0 def %ORS18ca
%/PR2 1 def %OLS00ca
%/PR2 2 def %OLS18ca
%/PR2 3 def %OLS27ca
%/PR2 4 def %OLS33ca
/i1 1 def /i2 4 def
%calculated by E6511-71.PS 20.6.2003 O=Offset, R/LS=Reflective or Luminous System
%xx=00,18,27,33 correspond to L* data, RA=Reflective adapted, RC=Reflective CIE
/ORS18RA
[(C) 58.62 -30.34 -45.01
(V) 25.72 31.10 -44.40
(M) 48.13 75.28 -8.36
(O) 47.94 65.39 50.52
(Y) 90.37 -10.26 91.75
(L) 50.90 -62.83 34.96
(N) 18.01 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 0.01 0.00 0.00
(W1) 100.0 0.00 0.00
] def
/ORS18RC
[(C) 58.62 -30.62 -42.74
(V) 25.72 31.45 -44.35
(M) 48.13 75.20 -6.79
(O) 47.94 65.31 52.07
(Y) 90.37 -11.15 96.17
(L) 50.90 -62.96 36.71
(N) 18.01 0.50 -0.46
(W) 95.41 -0.98 4.76
(N0) 0.01 0.84 -1.68
(W1) 100.0 -1.07 5.06
] def
/OLS00LA
[(C) 56.88 -33.11 -47.41
(V) 16.48 45.84 -56.22
(M) 45.36 81.85 -9.29
(O) 45.14 71.37 75.54
(Y) 90.22 -10.60 99.51
(L) 48.45 -73.19 42.21
(N) 0.00 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 0.00 0.00 0.00
(W1) 100.13 0.00 0.00
] def
/OLS00LC
[(C) 56.88 -33.36 -45.25
(V) 16.48 46.37 -56.79
(M) 45.36 81.82 -7.91
(O) 45.14 71.35 76.90
(Y) 90.22 -11.49 103.92
(L) 48.45 -73.28 43.80
(N) 0.00 0.85 -1.68
(W) 95.41 -0.98 4.76
(N0) 0.00 0.85 -1.68
(W1) 100.13 -1.07 5.07
] def
/OLS18LA
[(C) 58.62 -30.34 -45.01
(V) 25.72 31.10 -44.4
(M) 48.13 75.28 -8.36
(O) 47.94 65.39 50.52
(Y) 90.37 -10.26 91.75
(L) 50.90 -62.83 34.96
(N) 18.01 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 0.01 0.00 0.00
(W1) 100.0 0.00 0.00
] def
/OLS18LC
[(C) 58.62 -30.62 -42.74
(V) 25.72 31.45 -44.35
(M) 48.13 75.20 -6.79
(O) 47.94 65.31 52.07
(Y) 90.37 -11.15 96.17
(L) 50.90 -62.96 36.71
(N) 18.01 0.50 -0.46
(W) 95.41 -0.98 4.76
(N0) 0.01 0.84 -1.68
(W1) 100.0 -1.07 5.06
] def
/OLS27LA
[(C) 60.28 -27.91 -42.75
(V) 32.06 24.02 -37.32
(M) 50.68 69.50 -7.57
(O) 50.51 60.17 40.13
(Y) 90.52 -9.92 85.20
(L) 53.18 -55.04 30.00
(N) 26.85 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 18.34 0.00 0.00
(W1) 99.87 0.00 0.00
] def
/OLS27LC
[(C) 60.28 -28.22 -40.36
(V) 32.06 24.25 -36.84
(M) 50.68 69.37 -5.83
(O) 50.51 60.04 41.85
(Y) 90.52 -10.82 89.63
(L) 53.18 -55.21 31.90
(N) 26.85 0.33 0.13
(W) 95.41 -0.98 4.76
(N0) 18.34 0.49 -0.44
(W1) 99.87 -1.07 5.05
] def
/OLS33LA
[(C) 61.87 -25.76 -40.60
(V) 37.05 19.67 -32.32
(M) 53.05 64.36 -6.90
(O) 52.90 55.55 33.73
(Y) 90.68 -9.59 79.47
(L) 55.33 -48.88 26.28
(N) 33.05 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 27.27 0.00 0.00
(W1) 99.74 0.00 0.00
] def
/OLS33LC
[(C) 61.87 -26.10 -38.11
(V) 37.05 19.81 -31.50
(M) 53.05 64.19 -5.00
(O) 52.90 55.38 35.61
(Y) 90.68 -10.48 83.91
(L) 55.33 -49.10 28.33
(N) 33.05 0.21 0.55
(W) 95.41 -0.98 4.76
(N0) 27.27 0.32 0.15
(W1) 99.74 -1.06 5.04
] def
%calculated by E6531-71.PS 20.6.2003 T=Television, R/LS=Reflective or Luminous System
%xx=00,18,27,33 correspond to L* data, RA=Reflective adapted, RC=Reflective CIE
/TRS18RA
[(C) 87.14 -44.42 -13.12
(V) 35.47 64.92 -95.08
(M) 59.01 89.33 -19.43
(O) 52.76 71.63 49.88
(Y) 92.74 -20.03 84.97
(L) 84.00 -78.99 73.94
(N) 18.01 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 0.01 0.00 0.00
(W1) 100.0 0.00 0.00
] def
/TRS18RC
[(C) 87.14 -44.42 -13.12
(V) 35.47 64.92 -95.08
(M) 59.01 89.33 -19.43
(O) 52.76 71.63 49.88
(Y) 92.74 -20.03 84.97
(L) 84.00 -78.99 73.94
(N) 18.01 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 0.01 0.00 0.00
(W1) 100.0 0.00 0.00
] def
/TLS00LA
[(C) 86.88 -46.15 -13.54
(V) 30.39 76.06 -103.58
(M) 57.31 94.35 -20.68
(O) 50.50 76.91 64.55
(Y) 92.66 -20.68 90.75
(L) 83.62 -82.74 79.90
(N) 0.00 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 0.00 0.00 0.00
(W1) 100.13 0.00 0.00
] def
/TLS00LC
[(C) 86.88 -46.15 -13.54
(V) 30.39 76.06 -103.58
(M) 57.31 94.35 -20.68
(O) 50.50 76.91 64.55
(Y) 92.66 -20.68 90.75
(L) 83.62 -82.74 79.90
(N) 0.00 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 0.00 0.00 0.00
(W1) 100.13 0.00 0.00
] def
/TLS18LA
[(C) 87.14 -44.42 -13.12
(V) 35.47 64.92 -95.08
(M) 59.01 89.33 -19.43
(O) 52.76 71.63 49.88
(Y) 92.74 -20.03 84.97
(L) 84.00 -78.99 73.94
(N) 18.01 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 0.01 0.00 0.00
(W1) 100.0 0.00 0.00
] def
/TLS18LC
[(C) 87.14 -44.42 -13.12
(V) 35.47 64.92 -95.08
(M) 59.01 89.33 -19.43
(O) 52.76 71.63 49.88
(Y) 92.74 -20.03 84.97
(L) 84.00 -78.99 73.94
(N) 18.01 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 0.01 0.00 0.00
(W1) 100.0 0.00 0.00
] def
/TLS27LA
[(C) 87.40 -42.72 -12.70
(V) 39.70 56.66 -88.03
(M) 60.64 84.61 -18.27
(O) 54.88 66.84 41.69
(Y) 92.82 -19.39 79.81
(L) 84.37 -75.39 68.76
(N) 26.85 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 18.34 0.00 0.00
(W1) 99.87 0.00 0.00
] def
/TLS27LC
[(C) 87.40 -42.72 -12.70
(V) 39.70 56.66 -88.03
(M) 60.64 84.61 -18.27
(O) 54.88 66.84 41.69
(Y) 92.82 -19.39 79.81
(L) 84.37 -75.39 68.76
(N) 26.85 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 18.34 0.00 0.00
(W1) 99.87 0.00 0.00
] def
/TLS33LA
[(C) 87.66 -41.06 -12.29
(V) 43.38 50.19 -81.95
(M) 62.20 80.15 -17.20
(O) 56.88 62.47 36.02
(Y) 92.90 -18.75 75.12
(L) 84.74 -71.92 64.16
(N) 33.05 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 27.27 0.00 0.00
(W1) 99.74 0.00 0.00
] def
/TLS33LC
[(C) 87.66 -41.06 -12.29
(V) 43.38 50.19 -81.95
(M) 62.20 80.15 -17.20
(O) 56.88 62.47 36.02
(Y) 92.90 -18.75 75.12
(L) 84.74 -71.92 64.16
(N) 33.05 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 27.27 0.00 0.00
(W1) 99.74 0.00 0.00
] def
0 1 39 {/i exch def %i=0,39
sPRTV 0 eq {%A* CIELAB PR
PR1 0 eq {PRA i ORS18RA i get put} if
PR1 1 eq {PRA i OLS00LA i get put} if
PR1 2 eq {PRA i OLS18LA i get put} if
PR1 3 eq {PRA i OLS27LA i get put} if
PR1 4 eq {PRA i OLS33LA i get put} if
TV1 0 eq {TVA i TRS18RA i get put} if
TV1 1 eq {TVA i TLS00LA i get put} if
TV1 2 eq {TVA i TLS18LA i get put} if
TV1 3 eq {TVA i TLS27LA i get put} if
TV1 4 eq {TVA i TLS33LA i get put} if
}
{
TV2 0 eq {TVA i TRS18RA i get put} if
TV2 1 eq {TVA i TLS00LA i get put} if
TV2 2 eq {TVA i TLS18LA i get put} if
TV2 3 eq {TVA i TLS27LA i get put} if
TV2 4 eq {TVA i TLS33LA i get put} if
PR2 0 eq {PRA i ORS18RA i get put} if
PR2 1 eq {PRA i OLS00LA i get put} if
PR2 2 eq {PRA i OLS18LA i get put} if
PR2 3 eq {PRA i OLS27LA i get put} if
PR2 4 eq {PRA i OLS33LA i get put} if
} ifelse
} for %i=0,39
sPRTV 0 eq { Li60 0 PRA 7 4 mul 1 add get put
Ai60 0 PRA 7 4 mul 2 add get put
Bi60 0 PRA 7 4 mul 3 add get put
1 1 3 {/i exch def %i=1,3
Li60 i PRA i 2 add 4 mul 1 add get put
Ai60 i PRA i 2 add 4 mul 2 add get put
Bi60 i PRA i 2 add 4 mul 3 add get put
} for %i=1,3
4 1 6 {/i exch def %i=4,6
Li60 i PRA i 4 sub 4 mul 1 add get put
Ai60 i PRA i 4 sub 4 mul 2 add get put
Bi60 i PRA i 4 sub 4 mul 3 add get put
} for %i=4,6
Li60 7 PRA 6 4 mul 1 add get put
Ai60 7 PRA 6 4 mul 2 add get put
Bi60 7 PRA 6 4 mul 3 add get put
Li61 0 TVA 7 4 mul 1 add get put
Ai61 0 TVA 7 4 mul 2 add get put
Bi61 0 TVA 7 4 mul 3 add get put
1 1 3 {/i exch def %i=1,3
Li61 i TVA i 2 add 4 mul 1 add get put
Ai61 i TVA i 2 add 4 mul 2 add get put
Bi61 i TVA i 2 add 4 mul 3 add get put
} for %i=1,3
4 1 6 {/i exch def %i=4,6
Li61 i TVA i 4 sub 4 mul 1 add get put
Ai61 i TVA i 4 sub 4 mul 2 add get put
Bi61 i TVA i 4 sub 4 mul 3 add get put
} for %i=4,6
Li61 7 TVA 6 4 mul 1 add get put
Ai61 7 TVA 6 4 mul 2 add get put
Bi61 7 TVA 6 4 mul 3 add get put
}
{ Li60 0 TVA 7 4 mul 1 add get put
Ai60 0 TVA 7 4 mul 2 add get put
Bi60 0 TVA 7 4 mul 3 add get put
1 1 3 {/i exch def %i=1,3
Li60 i TVA i 2 add 4 mul 1 add get put
Ai60 i TVA i 2 add 4 mul 2 add get put
Bi60 i TVA i 2 add 4 mul 3 add get put
} for %i=1,3
4 1 6 {/i exch def %i=4,6
Li60 i TVA i 4 sub 4 mul 1 add get put
Ai60 i TVA i 4 sub 4 mul 2 add get put
Bi60 i TVA i 4 sub 4 mul 3 add get put
} for %i=4,6
Li60 7 TVA 6 4 mul 1 add get put
Ai60 7 TVA 6 4 mul 2 add get put
Bi60 7 TVA 6 4 mul 3 add get put
Li61 0 PRA 7 4 mul 1 add get put
Ai61 0 PRA 7 4 mul 2 add get put
Bi61 0 PRA 7 4 mul 3 add get put
1 1 3 {/i exch def %i=1,3
Li61 i PRA i 2 add 4 mul 1 add get put
Ai61 i PRA i 2 add 4 mul 2 add get put
Bi61 i PRA i 2 add 4 mul 3 add get put
} for %i=1,3
4 1 6 {/i exch def %i=4,6
Li61 i PRA i 4 sub 4 mul 1 add get put
Ai61 i PRA i 4 sub 4 mul 2 add get put
Bi61 i PRA i 4 sub 4 mul 3 add get put
} for %i=4,6
Li61 7 PRA 6 4 mul 1 add get put
Ai61 7 PRA 6 4 mul 2 add get put
Bi61 7 PRA 6 4 mul 3 add get put
} ifelse
2 setlinewidth
fcolors 00 get exec setcmyk_olvcolor %N
/fak 0.8 def %x and yaxis
imx 60 fak mul sub imy moveto
imx 70 fak mul add imy lineto stroke
imx imy 15 fak mul sub moveto
imx imy 123 fak mul add lineto stroke
%arrows
imx 70 fak mul add 5 sub imy 2 add moveto 5 -2 rlineto -5 -2 rlineto stroke
imx 2 sub imy 123 fak mul add 5 sub moveto 2 5 rlineto 2 -5 rlineto stroke
%imx 55 fak mul add imy 15 sub moveto TIK (C*) show -8 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (ab) show
%0 5 rmoveto TIK (=LAB*) show -8 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (r) show
%imx 5 add imy 138 fak mul add moveto TIK (L*=LAB*) show -8 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (1) show
newpath
150 16.67 div /Times-ISOL1 FS
imx 03 sub imy 100 fak mul add moveto 6 0 rlineto stroke
imx 02 add imy 100 fak mul add 04 add moveto (100) show
imx 03 add imy 10 sub moveto (0) show
i1 2 eq {1.0 0.0 1.0 0.0 } {0.0 0.0 1.0 0.0} ifelse
setcmyk_olvcolor %second lightness yellow or green
sPRTV 0 eq {imx i1 2 eq {12 sub} {02 add} ifelse
imy i1 2 eq { 0 add} {02 add} ifelse
PR1 2 eq TV1 2 eq or {7 fak mul add moveto (18) show} if
PR1 3 eq TV1 3 eq or {13 fak mul add moveto (27) show} if
PR1 4 eq TV1 4 eq or {17 fak mul add moveto (33) show} if
} if
sPRTV 1 eq {imx i1 2 eq {12 sub} {02 add} ifelse
imy i1 2 eq { 0 add} {02 add} ifelse
PR2 2 eq TV2 2 eq or {7 fak mul add moveto (18) show} if
PR2 3 eq TV2 3 eq or {13 fak mul add moveto (27) show} if
PR2 4 eq TV2 4 eq or {17 fak mul add moveto (33) show} if
} if
tfn
/trushow {0.005 add 100 mul truncate 100 div
6 string cvs show} bind def
/j 0 def
i1 3 i2 {/i exch def /k i j 8 mul add def
pPRTV 1 eq pPRTV 2 eq or { %print TV und ALL
TBIM
/ku Far i get exec def
/CAB0 Bi60 i get Bi60 0 get sub dup mul Ai60 i get Ai60 0 get sub dup mul add sqrt def
/ix imx CAB0 fak mul i i2 eq {sub} {add} ifelse def
/iy imy Li60 i get fak mul add def
ix 18 sub iy 18 sub 37 37
fcolors ku get exec
colrecfi %Farbe-Fuellen je nach Auszug
1 setlinewidth
ix 18 sub iy 18 sub 37 37
0.0 0.0 0.0 1.0
colrecst %Farbe-Umgrenzen je nach Auszug
2 setlinewidth
0.0 0.0 0.0 0.0 setcmyk_olvcolor
ix 17.5 sub iy 26 sub moveto
/delL0 Li60 i get Li60 0 get sub fak mul 04 div def
/delA0 Ai60 i get Ai60 0 get sub fak mul 04 div def
/delB0 Bi60 i get Bi60 0 get sub fak mul 04 div def
/delLAB0 delL0 dup mul delA0 dup mul add delB0 dup mul add sqrt def
150 16.67 div /Symbol FS (D) show
150 16.67 div /Times-ISOL1 FS (E*=) show delLAB0 trushow
%sPRTV 1 eq { %start TV -> PRINT TV
%%O-C, text etc.
%TBIM tfn
%i i1 eq {ix 25 add iy 10 add moveto}
% {ix 35 sub iy 0 add moveto} ifelse
% tBtxb i get exec show
% } if %start TV -> PRINT TV
} if %print TV und ALL
pPRTV 0 eq pPRTV 2 eq or { %print PR und ALL
/ku Far i get exec def
/CAB1 Bi61 i get Bi61 0 get sub dup mul
Ai61 i get Ai61 0 get sub dup mul add sqrt def
/ix imx CAB1 fak mul i i2 eq {sub} {add} ifelse def
/iy imy Li61 i get fak mul add def
ix 18 sub iy 18 sub 37 37
fcolors ku get exec
colrecfi %Farbe-Fuellen je nach Auszug
1 setlinewidth
ix 18 sub iy 18 sub 37 37
i1 2 eq {1.0 0.0 1.0 0.0 } {0.0 0.0 1.0 0.0} ifelse
colrecst %Farbe-Umgrenzen je nach Auszug
2 setlinewidth
0.0 0.0 0.0 0.0 setcmyk_olvcolor
ix 17.5 sub iy 21 add moveto
/delL1 Li61 i get Li61 0 get sub fak mul 04 div def
/delA1 Ai61 i get Ai61 0 get sub fak mul 04 div def
/delB1 Bi61 i get Bi61 0 get sub fak mul 04 div def
/delLAB1 delL1 dup mul delA1 dup mul add delB1 dup mul add sqrt def
150 16.67 div /Symbol FS (D) show
150 16.67 div /Times-ISOL1 FS (E*=) show delLAB1 trushow
%sPRTV 0 eq { %start PR -> PRINT TV
%%O-C, text etc.
%TBIM tfn
%i i1 eq {ix 25 add iy 10 add moveto}
% {ix 35 sub iy 0 add moveto} ifelse
% tBtxb i get exec show
% } if %start PR -> PRINT TV
} if %print TV und ALL
} for %schleife i
TBM
newpath
/Ball1x 5 array def
/Ball1y 5 array def
/Ball4x 5 array def
/Ball4y 5 array def
/Ball1xh 5 array def
/Ball1yh 5 array def
/Ball4xh 5 array def
/Ball4yh 5 array def
pPRTV 1 eq pPRTV 2 eq or { %print TV und ALL
150 16.67 div /TimesB-ISOL1 FS
0.0 0.0 0.0 1.0 setcmyk_olvcolor %first balls black
i1 3 i2 {/j exch def
/CAB0 Bi60 j get Bi60 0 get sub dup mul
Ai60 j get Ai60 0 get sub dup mul add sqrt def
/delL Li60 0 get Li60 j get sub fak mul 04 div def
/delCAB0 CAB0 fak mul 04 div def
0 1 04 {/i exch def
/imx1 imx delCAB0 i mul j i2 eq {neg} if add def
/imy1 imy Li60 0 get fak mul add delL i mul sub def
j i1 eq {Ball1x i imx1 put
Ball1y i imy1 put}
{Ball4x i imx1 put
Ball4y i imy1 put} ifelse
imx1 imy1
2 0 360 arc fill
/imx1 imx delCAB0 0.5 mul i mul j i2 eq {neg} if add def
/imy1 imy Li60 0 get Li60 7 get sub 0.5 mul
Li60 7 get add
fak mul add delL i mul 0.5 mul sub def
j i1 eq {Ball1xh i imx1 put
Ball1yh i imy1 put}
{Ball4xh i imx1 put
Ball4yh i imy1 put} ifelse
imx1 imy1
2 0 360 arc fill
} for
} for %j
1 setlinewidth %N-Line
i1 3 i2 {/i exch def
/CAB0 Bi60 i get Bi60 0 get sub dup mul
Ai60 i get Ai60 0 get sub dup mul add sqrt def
/ix imx CAB0 fak mul i i2 eq {sub} {add} ifelse def
/iy imy Li60 i get fak mul add def
ix iy moveto
imx imy Li60 7 get fak mul add lineto stroke
} for
2 setlinewidth
} if %print TV und ALL
/Ball2x 5 array def
/Ball2y 5 array def
/Ball5x 5 array def
/Ball5y 5 array def
/Ball2xh 5 array def
/Ball2yh 5 array def
/Ball5xh 5 array def
/Ball5yh 5 array def
pPRTV 0 eq pPRTV 2 eq or { %print PR und ALL
%i1 3 i2 {/j exch def
i1 2 eq {1.0 0.0 1.0 0.0 } {0.0 0.0 1.0 0.0} ifelse
setcmyk_olvcolor %second balls yellow or green
i1 3 i2 {/j exch def
/CAB1 Bi61 j get Bi61 0 get sub dup mul
Ai61 j get Ai61 0 get sub dup mul add sqrt def
/delL Li61 0 get Li61 j get sub fak mul 04 div def
/delCAB1 CAB1 fak mul 04 div def
0 1 04 {/i exch def
/imx2 imx delCAB1 i mul j i2 eq {neg} if add def
/imy2 imy Li61 0 get fak mul add delL i mul sub def
imx2 imy2
2 0 360 arc fill
j i1 eq {Ball2x i imx2 put
Ball2y i imy2 put}
{Ball5x i imx2 put
Ball5y i imy2 put} ifelse
/imx1 imx delCAB1 0.5 mul i mul j i2 eq {neg} if add def
/imy1 imy Li61 0 get Li61 7 get sub 0.5 mul
Li61 7 get add
fak mul add delL i mul 0.5 mul sub def
j i1 eq {Ball2xh i imx1 put
Ball2yh i imy1 put}
{Ball5xh i imx1 put
Ball5yh i imy1 put} ifelse
imx1 imy1
2 0 360 arc fill
} for
} for %j
1 setlinewidth %N-Line
i1 3 i2 {/i exch def
/CAB1 Bi61 i get Bi61 0 get sub dup mul
Ai61 i get Ai61 0 get sub dup mul add sqrt def
/ix imx CAB1 fak mul i i2 eq {sub} {add} ifelse def
/iy imy Li61 i get fak mul add def
ix iy moveto
imx imy Li61 7 get fak mul add lineto stroke
} for
2 setlinewidth
} if %print PR und ALL
%achromatic series
pPRTV 1 eq pPRTV 2 eq or { %print TV und ALL
sPRTV 1 eq { %start TV -> PRINT PR
/delL0 95.41 Li60 7 get sub fak mul 04 div def
0 1 04 {/i exch def
0.0 0.0 0.0 i 04 div setcmyk_olvcolor
imx
imy Li60 0 get fak mul add delL0 i mul sub
2 0 360 arc fill
} for
} if %start TV -> PRINT PR
} if %print TV und ALL
pPRTV 0 eq pPRTV 2 eq or { %print PR und ALL
sPRTV 0 eq { %start PR -> PRINT TV
/delL1 95.41 Li61 7 get sub fak mul 04 div def
0 1 04 {/i exch def
0.0 0.0 0.0 i 04 div setcmyk_olvcolor
imx
imy Li61 0 get fak mul add delL1 i mul sub
2 0 360 arc fill
} for
} if %start PR -> PRINT TV
} if %print PR und ALL
%W-N, text etc.
TBIS tfn
052 017 moveto (N) show
tfw
051 091 moveto (W) show
070 106 moveto (L*) show
124 007 moveto (C*) show -5 -4 rmoveto TBS (ab) show 0 4 rmoveto TBIS
tfc
014 022 moveto (C) show
0 -4 rmoveto TBV Fxx show 0 4 rmoveto TBIS
tfr
124 088 moveto (R) show
0 -4 rmoveto TBV Fxx show 0 4 rmoveto TBIS
154 16.67 div /Times-ISOL1 FS
0 0 1 0 setcmyk_olvcolor
069 090 moveto (95) show
%Connection
0 1 0 setrgbcolor
0 1 04 {/i exch def
/imx1 Ball1x i get def
/imy1 Ball1y i get def
/imx2 Ball2x i get def
/imy2 Ball2y i get def
imx1 imy1 moveto
imx2 imy2 lineto stroke
/imx4 Ball4x i get def
/imy4 Ball4y i get def
/imx5 Ball5x i get def
/imy5 Ball5y i get def
imx5 imy5 moveto
imx4 imy4 lineto stroke
/imx1 Ball1xh i get def
/imy1 Ball1yh i get def
/imx2 Ball2xh i get def
/imy2 Ball2yh i get def
imx1 imy1 moveto
imx2 imy2 lineto stroke
/imx4 Ball4xh i get def
/imy4 Ball4yh i get def
/imx5 Ball5xh i get def
/imy5 Ball5yh i get def
imx5 imy5 moveto
imx4 imy4 lineto stroke
} for
showpage
grestore
%%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 MF461-4
%%BoundingBox: 70 83 226 206
%START PDFDE011.EPS
/pdfmark14 where {pop} {userdict /pdfmark14 /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/MF46/)
/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@me.com)
/CreationDate (D:2012050112000)
/ModDate (D:2012050112000)
/DOCINFO pdfmark14
[ /View [ /FitB ]
/DOCVIEW pdfmark14
%END PDFDE011
%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
/mcolor exch def /ccolor exch def
ncolor 0 eq {1 ccolor sub
1 mcolor sub
1 ycolor sub setrgbcolor
}
{ccolor 0 eq
mcolor 0 eq and
ycolor 0 eq and {%only black n
1 ncolor sub
dup
dup
setrgbcolor
}
{%cmy and black n
1 ccolor sub 1 ncolor sub mul
1 mcolor sub 1 ncolor sub mul
1 ycolor sub 1 ncolor sub mul
setrgbcolor
} ifelse
} ifelse
} 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
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/TV {160 16.67 div /Times-ISOL1 FS} bind def
/TS {200 16.67 div /Times-ISOL1 FS} bind def
/TK {250 16.67 div /Times-ISOL1 FS} bind def
/TM {300 16.67 div /Times-ISOL1 FS} bind def
/TG {350 16.67 div /Times-ISOL1 FS} bind def
/TIV {160 16.67 div /TimesI-ISOL1 FS} bind def
/TIS {200 16.67 div /TimesI-ISOL1 FS} bind def
/TIK {250 16.67 div /TimesI-ISOL1 FS} bind def
/TIM {300 16.67 div /TimesI-ISOL1 FS} bind def
/TIG {350 16.67 div /TimesI-ISOL1 FS} bind def
/TBV {160 16.67 div /TimesB-ISOL1 FS} bind def
/TBS {200 16.67 div /TimesB-ISOL1 FS} bind def
/TBK {250 16.67 div /TimesB-ISOL1 FS} bind def
/TBM {300 16.67 div /TimesB-ISOL1 FS} bind def
/TBG {350 16.67 div /TimesB-ISOL1 FS} bind def
/TBIV {160 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIS {200 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def
/SV {160 16.67 div 1 sub /Symbol FS} bind def
/SS {200 16.67 div 1 sub /Symbol FS} bind def
/SK {250 16.67 div 1 sub /Symbol FS} bind def
/SM {300 16.67 div 1 sub /Symbol FS} bind def
/SG {350 16.67 div 1 sub /Symbol FS} bind def
/tolvfcol %Farbkreis-Reihenfolge
[ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF)
(777) (700) (770) (070) (077) (007) (707) (F07) %15=R
(333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B
(BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G
] def
/tcmyfcol %Farbkreis-Reihenfolge
[ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000)
(888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R
(CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B
(444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G
] def
/tcmykfcol %Farbkreis-Reihenfolge
[ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000)
(0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R
(000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B
(0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G
] def
/tolvfcols %Farbkreis-Reihenfolge
[ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*)
(777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R
(333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B
(BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G
] def
/tcmyfcols %Farbkreis-Reihenfolge
[ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*)
(888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R
(CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B
(444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G
] def
/tcmykfcols %Farbkreis-Reihenfolge
[ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*)
(0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R
(000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B
(0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G
] def
/fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge
[{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0}
{1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0}
{0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5}
{1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0}
{0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0}
{0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0}
{0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0}
{1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0}
] def
/fak 0.5 def
/Far %Farbkreis-Reihenfolge
[ 0 1 2 3 4 5 6 7
8 9 10 11 12 13 14 15 %R
16 17 18 19 20 21 22 23 %B
24 25 26 27 28 29 30 31 %G
] def
/cFar %Kompensativ-Farbkreis-Reihenfolge
[ 8 4 5 6 1 2 3 0
0 20 21 22 17 18 19 31 %G
24 12 13 14 9 10 11 2 %J
16 28 29 30 25 26 27 15 %R
] def
/Btx %Farbkreis- -> %Btx-Reihenfolge
[ 0 1 3 2 5 6 4 7
8 9 11 10 13 14 12 15 %R
16 17 19 18 21 22 20 23 %B
24 25 26 27 28 29 30 31 %G
] def
/cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge
[ 7 4 6 5 2 3 1 0
8 20 22 21 18 19 17 31 %G
24 12 14 13 10 11 9 2 %J
16 25 26 27 28 29 30 15 %R
] def
%XCHA01.PS BEG
/rec %x, y width heigth
{/heigth exch def /width exch def
moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
/colrecfi %x y width heigth c m y k
{setcmyk_olvcolor rec fill} bind def
/colrecst %x y width heigth c m y k
{setcmyk_olvcolor rec stroke} bind def
/rem %x, y width heigth
{/heigth exch 0.5 mul def /width exch 0.5 mul def
/yleftb exch heigth 0.5 mul add def
/xleftb exch width 0.5 mul add def
xleftb yleftb
moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
/colremfi %x y width heigth c m y k
{setcmykcolor rem fill} bind def
/colremst %x y width heigth c m y k
{setcmykcolor rem stroke} bind def
/tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzg {1.0 0.0 1.0 0.0} bind def
/tzb {1.0 1.0 0.0 0.0} bind def
/tzc {1.0 0.0 0.0 0.0} bind def
/tzm {0.0 1.0 0.0 0.0} bind def
/tzy {0.0 0.0 1.0 0.0} bind def
/tzn {0.0 0.0 0.0 1.00} bind def %Graureihe
/tzd {0.0 0.0 0.0 0.75} bind def
/tzz {0.0 0.0 0.0 0.50} bind def
/tzh {0.0 0.0 0.0 0.25} bind def
/tzw {0.0 0.0 0.0 0.00} bind def
/tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def
/tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def
/tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe
/tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def
/tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def
/tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def
/tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def
%%EndProlog
gsave
/lanind 1 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm {6 lanind eq {show} {pop} ifelse} bind def
/popde {0 lanind ne {pop} if} bind def
/popen {1 lanind ne {pop} if} bind def
/popes {2 lanind ne {pop} if} bind def
/popfr {3 lanind ne {pop} if} bind def
/popit {4 lanind ne {pop} if} bind def
/popjp {5 lanind ne {pop} if} bind def
/popm {6 lanind ne {pop} if} bind def
/popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def
/popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def
/popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def
/popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def
/popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def
/popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
/lanindd laninddf def}
{/lanind1 3 def /lanind2 3 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
/colormd colormdf def}
{/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
/deintpd deintpdf def}
{/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
/xcolord xcolordf def}
{/xcolor1 3 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
/xchartd xchartdf def
/xchartm xchart2f xchart1f sub 1 add def}
{/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
{/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
{/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
/pchartd pchartdf def}
{/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
/colsepd colsepdf def}
{/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
/pmetamd pmetamdf def}
{/pmetam1 0 def} ifelse
%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %
colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output
5 /Times-ISOL1 FS
/cvishow {cvi 6 string cvs show} def
75 85 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show pmetam cvishow
gsave
%XCHA01.PS END
5 /Times-ISOL1 FS
180 85 moveto (MF461-4) show
xchart 0 eq {(N) show}
{deintp colorm 2 mul add cvishow} ifelse
72 90 translate /pixf 1.0 def
0.1667 pixf div MM 2 mul dup scale
0 0 159 119 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau
TBG %Schrift Times-Bold-Gross
0.0 0.0 0.0 0.0 setcmyk_olvcolor %Schrift Weiss
TBK
/PRA 40 array def
/TVA 40 array def
/Li60 8 array def
/Ai60 8 array def
/Bi60 8 array def
/Li61 8 array def
/Ai61 8 array def
/Bi61 8 array def
/tBtxb %textBtx-Reihenfolge
[(W) (O) (Y) (L) (C) (V) (M) (W)
(H) (YO) (OM) (MV) (VC) (CL) (LY) (R) ] def
/imx 65 def /imy 13 def
/sPRTV 0 def %Start PR, dann Transfer TV
%/sPRTV 1 def %Start TV, dann Transfer PR
%/pPRTV 0 def %Show TV
%/pPRTV 1 def %Show PR
/pPRTV 2 def %Show ALL=PR+TV
%Start PR:
/PR1 0 def %ORS18ca
%/PR1 1 def %OLS00ca
%/PR1 2 def %OLS18ca
%/PR1 3 def %OLS27ca
%/PR1 4 def %OLS33ca
%Transfer TV:
%/TV1 0 def %TRS18ca
%/TV1 1 def %TLS00ca
/TV1 2 def %TLS18ca
%/TV1 3 def %TLS27ca
%/TV1 4 def %TLS33ca
%START TV:
%/TV2 0 def %TRS18ca
%/TV2 1 def %TLS00ca
%/TV2 2 def %TLS18ca
%/TV2 3 def %TLS27ca
%/TV2 4 def %TLS33ca
%TRANSFER PR
%/PR2 0 def %ORS18ca
%/PR2 1 def %OLS00ca
%/PR2 2 def %OLS18ca
%/PR2 3 def %OLS27ca
%/PR2 4 def %OLS33ca
/i1 1 def /i2 4 def
%calculated by E6511-71.PS 20.6.2003 O=Offset, R/LS=Reflective or Luminous System
%xx=00,18,27,33 correspond to L* data, RA=Reflective adapted, RC=Reflective CIE
/ORS18RA
[(C) 58.62 -30.34 -45.01
(V) 25.72 31.10 -44.40
(M) 48.13 75.28 -8.36
(O) 47.94 65.39 50.52
(Y) 90.37 -10.26 91.75
(L) 50.90 -62.83 34.96
(N) 18.01 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 0.01 0.00 0.00
(W1) 100.0 0.00 0.00
] def
/ORS18RC
[(C) 58.62 -30.62 -42.74
(V) 25.72 31.45 -44.35
(M) 48.13 75.20 -6.79
(O) 47.94 65.31 52.07
(Y) 90.37 -11.15 96.17
(L) 50.90 -62.96 36.71
(N) 18.01 0.50 -0.46
(W) 95.41 -0.98 4.76
(N0) 0.01 0.84 -1.68
(W1) 100.0 -1.07 5.06
] def
/OLS00LA
[(C) 56.88 -33.11 -47.41
(V) 16.48 45.84 -56.22
(M) 45.36 81.85 -9.29
(O) 45.14 71.37 75.54
(Y) 90.22 -10.60 99.51
(L) 48.45 -73.19 42.21
(N) 0.00 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 0.00 0.00 0.00
(W1) 100.13 0.00 0.00
] def
/OLS00LC
[(C) 56.88 -33.36 -45.25
(V) 16.48 46.37 -56.79
(M) 45.36 81.82 -7.91
(O) 45.14 71.35 76.90
(Y) 90.22 -11.49 103.92
(L) 48.45 -73.28 43.80
(N) 0.00 0.85 -1.68
(W) 95.41 -0.98 4.76
(N0) 0.00 0.85 -1.68
(W1) 100.13 -1.07 5.07
] def
/OLS18LA
[(C) 58.62 -30.34 -45.01
(V) 25.72 31.10 -44.4
(M) 48.13 75.28 -8.36
(O) 47.94 65.39 50.52
(Y) 90.37 -10.26 91.75
(L) 50.90 -62.83 34.96
(N) 18.01 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 0.01 0.00 0.00
(W1) 100.0 0.00 0.00
] def
/OLS18LC
[(C) 58.62 -30.62 -42.74
(V) 25.72 31.45 -44.35
(M) 48.13 75.20 -6.79
(O) 47.94 65.31 52.07
(Y) 90.37 -11.15 96.17
(L) 50.90 -62.96 36.71
(N) 18.01 0.50 -0.46
(W) 95.41 -0.98 4.76
(N0) 0.01 0.84 -1.68
(W1) 100.0 -1.07 5.06
] def
/OLS27LA
[(C) 60.28 -27.91 -42.75
(V) 32.06 24.02 -37.32
(M) 50.68 69.50 -7.57
(O) 50.51 60.17 40.13
(Y) 90.52 -9.92 85.20
(L) 53.18 -55.04 30.00
(N) 26.85 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 18.34 0.00 0.00
(W1) 99.87 0.00 0.00
] def
/OLS27LC
[(C) 60.28 -28.22 -40.36
(V) 32.06 24.25 -36.84
(M) 50.68 69.37 -5.83
(O) 50.51 60.04 41.85
(Y) 90.52 -10.82 89.63
(L) 53.18 -55.21 31.90
(N) 26.85 0.33 0.13
(W) 95.41 -0.98 4.76
(N0) 18.34 0.49 -0.44
(W1) 99.87 -1.07 5.05
] def
/OLS33LA
[(C) 61.87 -25.76 -40.60
(V) 37.05 19.67 -32.32
(M) 53.05 64.36 -6.90
(O) 52.90 55.55 33.73
(Y) 90.68 -9.59 79.47
(L) 55.33 -48.88 26.28
(N) 33.05 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 27.27 0.00 0.00
(W1) 99.74 0.00 0.00
] def
/OLS33LC
[(C) 61.87 -26.10 -38.11
(V) 37.05 19.81 -31.50
(M) 53.05 64.19 -5.00
(O) 52.90 55.38 35.61
(Y) 90.68 -10.48 83.91
(L) 55.33 -49.10 28.33
(N) 33.05 0.21 0.55
(W) 95.41 -0.98 4.76
(N0) 27.27 0.32 0.15
(W1) 99.74 -1.06 5.04
] def
%calculated by E6531-71.PS 20.6.2003 T=Television, R/LS=Reflective or Luminous System
%xx=00,18,27,33 correspond to L* data, RA=Reflective adapted, RC=Reflective CIE
/TRS18RA
[(C) 87.14 -44.42 -13.12
(V) 35.47 64.92 -95.08
(M) 59.01 89.33 -19.43
(O) 52.76 71.63 49.88
(Y) 92.74 -20.03 84.97
(L) 84.00 -78.99 73.94
(N) 18.01 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 0.01 0.00 0.00
(W1) 100.0 0.00 0.00
] def
/TRS18RC
[(C) 87.14 -44.42 -13.12
(V) 35.47 64.92 -95.08
(M) 59.01 89.33 -19.43
(O) 52.76 71.63 49.88
(Y) 92.74 -20.03 84.97
(L) 84.00 -78.99 73.94
(N) 18.01 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 0.01 0.00 0.00
(W1) 100.0 0.00 0.00
] def
/TLS00LA
[(C) 86.88 -46.15 -13.54
(V) 30.39 76.06 -103.58
(M) 57.31 94.35 -20.68
(O) 50.50 76.91 64.55
(Y) 92.66 -20.68 90.75
(L) 83.62 -82.74 79.90
(N) 0.00 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 0.00 0.00 0.00
(W1) 100.13 0.00 0.00
] def
/TLS00LC
[(C) 86.88 -46.15 -13.54
(V) 30.39 76.06 -103.58
(M) 57.31 94.35 -20.68
(O) 50.50 76.91 64.55
(Y) 92.66 -20.68 90.75
(L) 83.62 -82.74 79.90
(N) 0.00 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 0.00 0.00 0.00
(W1) 100.13 0.00 0.00
] def
/TLS18LA
[(C) 87.14 -44.42 -13.12
(V) 35.47 64.92 -95.08
(M) 59.01 89.33 -19.43
(O) 52.76 71.63 49.88
(Y) 92.74 -20.03 84.97
(L) 84.00 -78.99 73.94
(N) 18.01 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 0.01 0.00 0.00
(W1) 100.0 0.00 0.00
] def
/TLS18LC
[(C) 87.14 -44.42 -13.12
(V) 35.47 64.92 -95.08
(M) 59.01 89.33 -19.43
(O) 52.76 71.63 49.88
(Y) 92.74 -20.03 84.97
(L) 84.00 -78.99 73.94
(N) 18.01 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 0.01 0.00 0.00
(W1) 100.0 0.00 0.00
] def
/TLS27LA
[(C) 87.40 -42.72 -12.70
(V) 39.70 56.66 -88.03
(M) 60.64 84.61 -18.27
(O) 54.88 66.84 41.69
(Y) 92.82 -19.39 79.81
(L) 84.37 -75.39 68.76
(N) 26.85 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 18.34 0.00 0.00
(W1) 99.87 0.00 0.00
] def
/TLS27LC
[(C) 87.40 -42.72 -12.70
(V) 39.70 56.66 -88.03
(M) 60.64 84.61 -18.27
(O) 54.88 66.84 41.69
(Y) 92.82 -19.39 79.81
(L) 84.37 -75.39 68.76
(N) 26.85 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 18.34 0.00 0.00
(W1) 99.87 0.00 0.00
] def
/TLS33LA
[(C) 87.66 -41.06 -12.29
(V) 43.38 50.19 -81.95
(M) 62.20 80.15 -17.20
(O) 56.88 62.47 36.02
(Y) 92.90 -18.75 75.12
(L) 84.74 -71.92 64.16
(N) 33.05 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 27.27 0.00 0.00
(W1) 99.74 0.00 0.00
] def
/TLS33LC
[(C) 87.66 -41.06 -12.29
(V) 43.38 50.19 -81.95
(M) 62.20 80.15 -17.20
(O) 56.88 62.47 36.02
(Y) 92.90 -18.75 75.12
(L) 84.74 -71.92 64.16
(N) 33.05 0.00 0.00
(W) 95.41 0.00 0.00
(N0) 27.27 0.00 0.00
(W1) 99.74 0.00 0.00
] def
0 1 39 {/i exch def %i=0,39
sPRTV 0 eq {%A* CIELAB PR
PR1 0 eq {PRA i ORS18RA i get put} if
PR1 1 eq {PRA i OLS00LA i get put} if
PR1 2 eq {PRA i OLS18LA i get put} if
PR1 3 eq {PRA i OLS27LA i get put} if
PR1 4 eq {PRA i OLS33LA i get put} if
TV1 0 eq {TVA i TRS18RA i get put} if
TV1 1 eq {TVA i TLS00LA i get put} if
TV1 2 eq {TVA i TLS18LA i get put} if
TV1 3 eq {TVA i TLS27LA i get put} if
TV1 4 eq {TVA i TLS33LA i get put} if
}
{
TV2 0 eq {TVA i TRS18RA i get put} if
TV2 1 eq {TVA i TLS00LA i get put} if
TV2 2 eq {TVA i TLS18LA i get put} if
TV2 3 eq {TVA i TLS27LA i get put} if
TV2 4 eq {TVA i TLS33LA i get put} if
PR2 0 eq {PRA i ORS18RA i get put} if
PR2 1 eq {PRA i OLS00LA i get put} if
PR2 2 eq {PRA i OLS18LA i get put} if
PR2 3 eq {PRA i OLS27LA i get put} if
PR2 4 eq {PRA i OLS33LA i get put} if
} ifelse
} for %i=0,39
sPRTV 0 eq { Li60 0 PRA 7 4 mul 1 add get put
Ai60 0 PRA 7 4 mul 2 add get put
Bi60 0 PRA 7 4 mul 3 add get put
1 1 3 {/i exch def %i=1,3
Li60 i PRA i 2 add 4 mul 1 add get put
Ai60 i PRA i 2 add 4 mul 2 add get put
Bi60 i PRA i 2 add 4 mul 3 add get put
} for %i=1,3
4 1 6 {/i exch def %i=4,6
Li60 i PRA i 4 sub 4 mul 1 add get put
Ai60 i PRA i 4 sub 4 mul 2 add get put
Bi60 i PRA i 4 sub 4 mul 3 add get put
} for %i=4,6
Li60 7 PRA 6 4 mul 1 add get put
Ai60 7 PRA 6 4 mul 2 add get put
Bi60 7 PRA 6 4 mul 3 add get put
Li61 0 TVA 7 4 mul 1 add get put
Ai61 0 TVA 7 4 mul 2 add get put
Bi61 0 TVA 7 4 mul 3 add get put
1 1 3 {/i exch def %i=1,3
Li61 i TVA i 2 add 4 mul 1 add get put
Ai61 i TVA i 2 add 4 mul 2 add get put
Bi61 i TVA i 2 add 4 mul 3 add get put
} for %i=1,3
4 1 6 {/i exch def %i=4,6
Li61 i TVA i 4 sub 4 mul 1 add get put
Ai61 i TVA i 4 sub 4 mul 2 add get put
Bi61 i TVA i 4 sub 4 mul 3 add get put
} for %i=4,6
Li61 7 TVA 6 4 mul 1 add get put
Ai61 7 TVA 6 4 mul 2 add get put
Bi61 7 TVA 6 4 mul 3 add get put
}
{ Li60 0 TVA 7 4 mul 1 add get put
Ai60 0 TVA 7 4 mul 2 add get put
Bi60 0 TVA 7 4 mul 3 add get put
1 1 3 {/i exch def %i=1,3
Li60 i TVA i 2 add 4 mul 1 add get put
Ai60 i TVA i 2 add 4 mul 2 add get put
Bi60 i TVA i 2 add 4 mul 3 add get put
} for %i=1,3
4 1 6 {/i exch def %i=4,6
Li60 i TVA i 4 sub 4 mul 1 add get put
Ai60 i TVA i 4 sub 4 mul 2 add get put
Bi60 i TVA i 4 sub 4 mul 3 add get put
} for %i=4,6
Li60 7 TVA 6 4 mul 1 add get put
Ai60 7 TVA 6 4 mul 2 add get put
Bi60 7 TVA 6 4 mul 3 add get put
Li61 0 PRA 7 4 mul 1 add get put
Ai61 0 PRA 7 4 mul 2 add get put
Bi61 0 PRA 7 4 mul 3 add get put
1 1 3 {/i exch def %i=1,3
Li61 i PRA i 2 add 4 mul 1 add get put
Ai61 i PRA i 2 add 4 mul 2 add get put
Bi61 i PRA i 2 add 4 mul 3 add get put
} for %i=1,3
4 1 6 {/i exch def %i=4,6
Li61 i PRA i 4 sub 4 mul 1 add get put
Ai61 i PRA i 4 sub 4 mul 2 add get put
Bi61 i PRA i 4 sub 4 mul 3 add get put
} for %i=4,6
Li61 7 PRA 6 4 mul 1 add get put
Ai61 7 PRA 6 4 mul 2 add get put
Bi61 7 PRA 6 4 mul 3 add get put
} ifelse
2 setlinewidth
fcolors 00 get exec setcmyk_olvcolor %N
/fak 0.8 def %x and yaxis
imx 60 fak mul sub imy moveto
imx 70 fak mul add imy lineto stroke
imx imy 15 fak mul sub moveto
imx imy 123 fak mul add lineto stroke
%arrows
imx 70 fak mul add 5 sub imy 2 add moveto 5 -2 rlineto -5 -2 rlineto stroke
imx 2 sub imy 123 fak mul add 5 sub moveto 2 5 rlineto 2 -5 rlineto stroke
%imx 55 fak mul add imy 15 sub moveto TIK (C*) show -8 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (ab) show
%0 5 rmoveto TIK (=LAB*) show -8 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (r) show
%imx 5 add imy 138 fak mul add moveto TIK (L*=LAB*) show -8 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (1) show
newpath
150 16.67 div /Times-ISOL1 FS
imx 03 sub imy 100 fak mul add moveto 6 0 rlineto stroke
imx 02 add imy 100 fak mul add 04 add moveto (100) show
imx 03 add imy 10 sub moveto (0) show
i1 2 eq {1.0 0.0 1.0 0.0 } {0.0 0.0 1.0 0.0} ifelse
setcmyk_olvcolor %second lightness yellow or green
sPRTV 0 eq {imx i1 2 eq {12 sub} {02 add} ifelse
imy i1 2 eq { 0 add} {02 add} ifelse
PR1 2 eq TV1 2 eq or {7 fak mul add moveto (18) show} if
PR1 3 eq TV1 3 eq or {13 fak mul add moveto (27) show} if
PR1 4 eq TV1 4 eq or {17 fak mul add moveto (33) show} if
} if
sPRTV 1 eq {imx i1 2 eq {12 sub} {02 add} ifelse
imy i1 2 eq { 0 add} {02 add} ifelse
PR2 2 eq TV2 2 eq or {7 fak mul add moveto (18) show} if
PR2 3 eq TV2 3 eq or {13 fak mul add moveto (27) show} if
PR2 4 eq TV2 4 eq or {17 fak mul add moveto (33) show} if
} if
tfn
/trushow {0.005 add 100 mul truncate 100 div
6 string cvs show} bind def
/j 0 def
i1 3 i2 {/i exch def /k i j 8 mul add def
pPRTV 1 eq pPRTV 2 eq or { %print TV und ALL
TBIM
/ku Far i get exec def
/CAB0 Bi60 i get Bi60 0 get sub dup mul Ai60 i get Ai60 0 get sub dup mul add sqrt def
/ix imx CAB0 fak mul i i2 eq {sub} {add} ifelse def
/iy imy Li60 i get fak mul add def
ix 18 sub iy 18 sub 37 37
fcolors ku get exec
colrecfi %Farbe-Fuellen je nach Auszug
1 setlinewidth
ix 18 sub iy 18 sub 37 37
0.0 0.0 0.0 1.0
colrecst %Farbe-Umgrenzen je nach Auszug
2 setlinewidth
0.0 0.0 0.0 0.0 setcmyk_olvcolor
ix 17.5 sub iy 26 sub moveto
/delL0 Li60 i get Li60 0 get sub fak mul 15 div def
/delA0 Ai60 i get Ai60 0 get sub fak mul 15 div def
/delB0 Bi60 i get Bi60 0 get sub fak mul 15 div def
/delLAB0 delL0 dup mul delA0 dup mul add delB0 dup mul add sqrt def
150 16.67 div /Symbol FS (D) show
150 16.67 div /Times-ISOL1 FS (E*=) show delLAB0 trushow
%sPRTV 1 eq { %start TV -> PRINT TV
%%O-C, text etc.
%TBIM tfn
%i i1 eq {ix 25 add iy 10 add moveto}
% {ix 35 sub iy 0 add moveto} ifelse
% tBtxb i get exec show
% } if %start TV -> PRINT TV
} if %print TV und ALL
pPRTV 0 eq pPRTV 2 eq or { %print PR und ALL
/ku Far i get exec def
/CAB1 Bi61 i get Bi61 0 get sub dup mul
Ai61 i get Ai61 0 get sub dup mul add sqrt def
/ix imx CAB1 fak mul i i2 eq {sub} {add} ifelse def
/iy imy Li61 i get fak mul add def
ix 18 sub iy 18 sub 37 37
fcolors ku get exec
colrecfi %Farbe-Fuellen je nach Auszug
1 setlinewidth
ix 18 sub iy 18 sub 37 37
i1 2 eq {1.0 0.0 1.0 0.0 } {0.0 0.0 1.0 0.0} ifelse
colrecst %Farbe-Umgrenzen je nach Auszug
2 setlinewidth
0.0 0.0 0.0 0.0 setcmyk_olvcolor
ix 17.5 sub iy 21 add moveto
/delL1 Li61 i get Li61 0 get sub fak mul 04 div def
/delA1 Ai61 i get Ai61 0 get sub fak mul 04 div def
/delB1 Bi61 i get Bi61 0 get sub fak mul 04 div def
/delLAB1 delL1 dup mul delA1 dup mul add delB1 dup mul add sqrt def
150 16.67 div /Symbol FS (D) show
150 16.67 div /Times-ISOL1 FS (E*=) show delLAB1 trushow
%sPRTV 0 eq { %start PR -> PRINT TV
%%O-C, text etc.
%TBIM tfn
%i i1 eq {ix 25 add iy 10 add moveto}
% {ix 35 sub iy 0 add moveto} ifelse
% tBtxb i get exec show
% } if %start PR -> PRINT TV
} if %print TV und ALL
} for %schleife i
TBM
newpath
/Ball1x 16 array def
/Ball1y 16 array def
/Ball4x 16 array def
/Ball4y 16 array def
pPRTV 1 eq pPRTV 2 eq or { %print TV und ALL
150 16.67 div /TimesB-ISOL1 FS
0.0 0.0 0.0 1.0 setcmyk_olvcolor %first balls black
i1 3 i2 {/j exch def
/CAB0 Bi60 j get Bi60 0 get sub dup mul
Ai60 j get Ai60 0 get sub dup mul add sqrt def
/delL Li60 0 get Li60 j get sub fak mul 15 div def
/delCAB0 CAB0 fak mul 15 div def
0 1 15 {/i exch def
/imx1 imx delCAB0 i mul j i2 eq {neg} if add def
/imy1 imy Li60 0 get fak mul add delL i mul sub def
j i1 eq {Ball1x i imx1 put
Ball1y i imy1 put}
{Ball4x i imx1 put
Ball4y i imy1 put} ifelse
imx1 imy1
2 0 360 arc fill
} for
} for %j
1 setlinewidth %N-Line
i1 3 i2 {/i exch def
/CAB0 Bi60 i get Bi60 0 get sub dup mul
Ai60 i get Ai60 0 get sub dup mul add sqrt def
/ix imx CAB0 fak mul i i2 eq {sub} {add} ifelse def
/iy imy Li60 i get fak mul add def
ix iy moveto
imx imy Li60 7 get fak mul add lineto stroke
} for
2 setlinewidth
} if %print TV und ALL
/Ball2x 5 array def
/Ball2y 5 array def
/Ball5x 5 array def
/Ball5y 5 array def
pPRTV 0 eq pPRTV 2 eq or { %print PR und ALL
%i1 3 i2 {/j exch def
i1 2 eq {1.0 0.0 1.0 0.0 } {0.0 0.0 1.0 0.0} ifelse
setcmyk_olvcolor %second balls yellow or green
i1 3 i2 {/j exch def
/CAB1 Bi61 j get Bi61 0 get sub dup mul
Ai61 j get Ai61 0 get sub dup mul add sqrt def
/delL Li61 0 get Li61 j get sub fak mul 04 div def
/delCAB1 CAB1 fak mul 04 div def
0 1 04 {/i exch def
/imx2 imx delCAB1 i mul j i2 eq {neg} if add def
/imy2 imy Li61 0 get fak mul add delL i mul sub def
imx2 imy2
2 0 360 arc fill
j i1 eq {Ball2x i imx2 put
Ball2y i imy2 put}
{Ball5x i imx2 put
Ball5y i imy2 put} ifelse
} for
} for %j
1 setlinewidth %N-Line
i1 3 i2 {/i exch def
/CAB1 Bi61 i get Bi61 0 get sub dup mul
Ai61 i get Ai61 0 get sub dup mul add sqrt def
/ix imx CAB1 fak mul i i2 eq {sub} {add} ifelse def
/iy imy Li61 i get fak mul add def
ix iy moveto
imx imy Li61 7 get fak mul add lineto stroke
} for
2 setlinewidth
} if %print PR und ALL
%achromatic series
pPRTV 1 eq pPRTV 2 eq or { %print TV und ALL
sPRTV 1 eq { %start TV -> PRINT PR
/delL0 95.41 Li60 7 get sub fak mul 15 div def
0 1 15 {/i exch def
0.0 0.0 0.0 i 15 div setcmyk_olvcolor
imx
imy Li60 0 get fak mul add delL0 i mul sub
2 0 360 arc fill
} for
} if %start TV -> PRINT PR
} if %print TV und ALL
pPRTV 0 eq pPRTV 2 eq or { %print PR und ALL
sPRTV 0 eq { %start PR -> PRINT TV
/delL1 95.41 Li61 7 get sub fak mul 15 div def
0 1 15 {/i exch def
0.0 0.0 0.0 i 15 div setcmyk_olvcolor
imx
imy Li61 0 get fak mul add delL1 i mul sub
2 0 360 arc fill
} for
} if %start PR -> PRINT TV
} if %print PR und ALL
%W-N, text etc.
TBIS tfn
052 017 moveto (N) show
tfw
051 091 moveto (W) show
070 106 moveto (L*) show
124 007 moveto (C*) show -5 -4 rmoveto TBS (ab) show 0 4 rmoveto TBIS
tfc
014 022 moveto (C) show
0 -4 rmoveto TBV Fxx show 0 4 rmoveto TBIS
tfr
124 088 moveto (R) show
0 -4 rmoveto TBV Fxx show 0 4 rmoveto TBIS
154 16.67 div /Times-ISOL1 FS
0 0 1 0 setcmyk_olvcolor
069 090 moveto (95) show
%Connection
0 1 0 setrgbcolor
0 1 04 {/i exch def
%O
i 0 eq {/ix 00 def} if
i 1 eq {/ix 04 def} if
i 2 eq {/ix 08 def} if
i 3 eq {/ix 12 def} if
i 4 eq {/ix 15 def} if
/imx1 Ball1x ix get def
/imy1 Ball1y ix get def
/imx2 Ball2x i get def
/imy2 Ball2y i get def
imx1 imy1 moveto
imx2 imy2 lineto stroke
%C
i 0 eq {/ix 00 def} if
i 1 eq {/ix 03 def} if
i 2 eq {/ix 05 def} if
i 3 eq {/ix 08 def} if
i 4 eq {/ix 10 def} if
/imx4 Ball4x ix get def
/imy4 Ball4y ix get def
/imx5 Ball5x i get def
/imy5 Ball5y i get def
imx5 imy5 moveto
imx4 imy4 lineto stroke
} for
showpage
grestore
%%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 MF461-4
%%BoundingBox: 70 83 226 206
%START PDFDE011.EPS
/pdfmark14 where {pop} {userdict /pdfmark14 /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/MF46/)
/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@me.com)
/CreationDate (D:2012050112000)
/ModDate (D:2012050112000)
/DOCINFO pdfmark14
[ /View [ /FitB ]
/DOCVIEW pdfmark14
%END PDFDE011
%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
/mcolor exch def /ccolor exch def
ncolor 0 eq {1 ccolor sub
1 mcolor sub
1 ycolor sub setrgbcolor
}
{ccolor 0 eq
mcolor 0 eq and
ycolor 0 eq and {%only black n
1 ncolor sub
dup
dup
setrgbcolor
}
{%cmy and black n
1 ccolor sub 1 ncolor sub mul
1 mcolor sub 1 ncolor sub mul
1 ycolor sub 1 ncolor sub mul
setrgbcolor
} ifelse
} ifelse
} 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
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/TV {160 16.67 div /Times-ISOL1 FS} bind def
/TS {200 16.67 div /Times-ISOL1 FS} bind def
/TK {250 16.67 div /Times-ISOL1 FS} bind def
/TM {300 16.67 div /Times-ISOL1 FS} bind def
/TG {350 16.67 div /Times-ISOL1 FS} bind def
/TIV {160 16.67 div /TimesI-ISOL1 FS} bind def
/TIS {200 16.67 div /TimesI-ISOL1 FS} bind def
/TIK {250 16.67 div /TimesI-ISOL1 FS} bind def
/TIM {300 16.67 div /TimesI-ISOL1 FS} bind def
/TIG {350 16.67 div /TimesI-ISOL1 FS} bind def
/TBV {160 16.67 div /TimesB-ISOL1 FS} bind def
/TBS {200 16.67 div /TimesB-ISOL1 FS} bind def
/TBK {250 16.67 div /TimesB-ISOL1 FS} bind def
/TBM {300 16.67 div /TimesB-ISOL1 FS} bind def
/TBG {350 16.67 div /TimesB-ISOL1 FS} bind def
/TBIV {160 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIS {200 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def
/SV {160 16.67 div 1 sub /Symbol FS} bind def
/SS {200 16.67 div 1 sub /Symbol FS} bind def
/SK {250 16.67 div 1 sub /Symbol FS} bind def
/SM {300 16.67 div 1 sub /Symbol FS} bind def
/SG {350 16.67 div 1 sub /Symbol FS} bind def
/tolvfcol %Farbkreis-Reihenfolge
[ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF)
(777) (700) (770) (070) (077) (007) (707) (F07) %15=R
(333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B
(BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G
] def
/tcmyfcol %Farbkreis-Reihenfolge
[ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000)
(888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R
(CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B
(444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G
] def
/tcmykfcol %Farbkreis-Reihenfolge
[ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000)
(0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R
(000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B
(0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G
] def
/tolvfcols %Farbkreis-Reihenfolge
[ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*)
(777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R
(333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B
(BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G
] def
/tcmyfcols %Farbkreis-Reihenfolge
[ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*)
(888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R
(CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B
(444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G
] def
/tcmykfcols %Farbkreis-Reihenfolge
[ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*)
(0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R
(000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B
(0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G
] def
/fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge
[{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0}
{1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0}
{0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5}
{1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0}
{0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0}
{0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0}
{0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0}
{1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0}
] def
/fak 0.5 def
/Far %Farbkreis-Reihenfolge
[ 0 1 2 3 4 5 6 7
8 9 10 11 12 13 14 15 %R
16 17 18 19 20 21 22 23 %B
24 25 26 27 28 29 30 31 %G
] def
/cFar %Kompensativ-Farbkreis-Reihenfolge
[ 8 4 5 6 1 2 3 0
0 20 21 22 17 18 19 31 %G
24 12 13 14 9 10 11 2 %J
16 28 29 30 25 26 27 15 %R
] def
/Btx %Farbkreis- -> %Btx-Reihenfolge
[ 0 1 3 2 5 6 4 7
8 9 11 10 13 14 12 15 %R
16 17 19 18 21 22 20 23 %B
24 25 26 27 28 29 30 31 %G
] def
/cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge
[ 7 4 6 5 2 3 1 0
8 20 22 21 18 19 17 31 %G
24 12 14 13 10 11 9 2 %J
16 25 26 27 28 29 30 15 %R
] def
%XCHA01.PS BEG
/rec %x, y width heigth
{/heigth exch def /width exch def
moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
/colrecfi %x y width heigth c m y k
{setcmyk_olvcolor rec fill} bind def
/colrecst %x y width heigth c m y k
{setcmyk_olvcolor rec stroke} bind def
/rem %x, y width heigth
{/heigth exch 0.5 mul def /width exch 0.5 mul def
/yleftb exch heigth 0.5 mul add def
/xleftb exch width 0.5 mul add def
xleftb yleftb
moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
/colremfi %x y width heigth c m y k
{setcmykcolor rem fill} bind def
/colremst %x y width heigth c m y k
{setcmykcolor rem stroke} bind def
/tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzg {1.0 0.0 1.0 0.0} bind def
/tzb {1.0 1.0 0.0 0.0} bind def
/tzc {1.0 0.0 0.0 0.0} bind def
/tzm {0.0 1.0 0.0 0.0} bind def
/tzy {0.0 0.0 1.0 0.0} bind def
/tzn {0.0 0.0 0.0 1.00} bind def %Graureihe
/tzd {0.0 0.0 0.0 0.75} bind def
/tzz {0.0 0.0 0.0 0.50} bind def
/tzh {0.0 0.0 0.0 0.25} bind def
/tzw {0.0 0.0 0.0 0.00} bind def
/tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def
/tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def
/tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe
/tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def
/tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def
/tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def
/tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def
%%EndProlog
gsave
/lanind 1 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm {6 lanind eq {show} {pop} ifelse} bind def
/popde {0 lanind ne {pop} if} bind def
/popen {1 lanind ne {pop} if} bind def
/popes {2 lanind ne {pop} if} bind def
/popfr {3 lanind ne {pop} if} bind def
/popit {4 lanind ne {pop} if} bind def
/popjp {5 lanind ne {pop} if} bind def
/popm {6 lanind ne {pop} if} bind def
/popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def
/popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def
/popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def
/popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def
/popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def
/popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
/lanindd laninddf def}
{/lanind1 3 def /lanind2 3 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
/colormd colormdf def}
{/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
/deintpd deintpdf def}
{/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
/xcolord xcolordf def}
{/xcolor1 3 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
/xchartd xchartdf def
/xchartm xchart2f xchart1f sub 1 add def}
{/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
{/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
{/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
/pchartd pchartdf def}
{/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
/colsepd colsepdf def}
{/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
/pmetamd pmetamdf def}
{/pmetam1 0 def} ifelse
%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %
colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output
5 /Times-ISOL1 FS
/cvishow {cvi 6 string cvs show} def
75 85 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show pmetam cvishow
gsave
%XCHA01.PS END
5 /Times-ISOL1 FS
180 85 moveto (MF461-5) show
xchart 0 eq {(N) show}
{deintp colorm 2 mul add cvishow} ifelse
(, B4_17_1) show % ( B8120_2, M8270-1, B4_17_1, N=4_17_1) show
72 90 translate
0.01 MM 0.01 MM scale %d2:[rr.b4f]bausz8y.eps
/ausz 8 def
15 setlinewidth
0.0 0.0 0.5 0.0 setcmykcolor
0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmykcolor
0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto
closepath stroke
0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto
closepath clip
700 3200 translate
0 400 moveto 4000 0 rlineto stroke
0 400 moveto 0 -3000 rlineto stroke
%! 100 S-Einheiten = 2000 Skalen-Einheiten
300 /Times-ISOL1 FS
0 350 moveto 0 100 rlineto stroke
800 350 moveto 0 100 rlineto stroke
1600 350 moveto 0 100 rlineto stroke
2400 350 moveto 0 100 rlineto stroke
3200 350 moveto 0 100 rlineto stroke
4000 350 moveto 0 100 rlineto stroke
-350 500 moveto (-0,8) show
550 500 moveto (0,0) show
1350 500 moveto (0,8) show
2150 500 moveto (1,6) show
2950 500 moveto (2,4) show
3750 500 moveto (3,2) show
%! 100 S-Einheiten = 2000 Skalen-Einheiten
-50 0 moveto 100 0 rlineto stroke
-50 -800 moveto 100 0 rlineto stroke
-50 -1600 moveto 100 0 rlineto stroke
-50 -2400 moveto 100 0 rlineto stroke
-50 -3200 moveto 100 0 rlineto stroke
-650 -100 moveto ( 0,0) show
-650 -900 moveto (-0,8) show
-650 -1700 moveto (-1,6) show
-650 -2500 moveto (-2,4) show
/nshow {350 /Times-ISOL1 FS show} bind def
/kshow {350 /TimesI-ISOL1 FS show} bind def
/ishow {280 /Times-ISOL1 FS -25 -125 rmoveto show 25 125 rmoveto} bind def
/nshowa {350 /Times-ISOL1 FS 30 0 3 -1 roll ashow} bind def
/kshowa {250 /TimesI-ISOL1 FS 30 0 3 -1 roll ashow} bind def
/nshow2 {300 /Times-ISOL1 FS show} bind def
/kshow2 {300 /TimesI-ISOL1 FS show} bind def
/ishow2 {250 /Times-ISOL1 FS -20 -100 rmoveto show -20 100 rmoveto} bind def
/nshow3 {250 /Times-ISOL1 FS 20 0 3 -1 roll ashow} bind def
/kshow3 {250 /TimesI-ISOL1 FS 20 0 3 -1 roll ashow} bind def
/ishow3 {200 /Times-ISOL1 FS -15 -80 rmoveto 20 0 3 -1 roll ashow
-15 80 rmoveto} bind def
-675 -3050 moveto (b) kshowa (=-0,40) nshowa (z/y) kshowa
3650 100 moveto (a=x/y) kshowa
-700 -3200 translate
%1000 02 01 16 01-.03****************************************
%ANF PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200
1500 3200 translate
% 36136 -68535 moveto
% 36136 -68535 36234 -68875 35958 -68561 curveto
% 35610 -68128 33600 -64560 29424 -56936 curveto
% 24474 -47779 19507 -38551 15143 -30384 curveto
% 11681 -23927 8847 -18653 6639 -14534 curveto
% 4846 -11128 3397 -8271 2147 -5661 curveto
1261 -3701 moveto
1261 -3701 688 -2339 342 -1455 curveto
153 -894 56 -546 15 -336 curveto
5 -208 18 -125 47 -73 curveto
89 -44 138 -28 191 -19 curveto
246 -13 304 -8 366 -5 curveto
435 -3 512 -2 597 -1 curveto
693 -1 800 0 920 0 curveto
1053 0 1198 0 1355 0 curveto
1520 0 1683 0 1844 0 curveto
1993 0 2126 0 2242 0 curveto
2340 0 2424 0 2497 0 curveto
2559 0 2610 0 2649 0 curveto
2680 0 2703 0 2718 0 curveto
2731 0 2741 0 2751 0 curveto
2760 0 2764 0 2767 0 curveto
2769 0 2770 0 2824 -116 curveto
3023 -529 3168 -817 3275 -1036 curveto
3357 -1209 3430 -1349 3482 -1469 curveto
3545 -1597 3622 -1746 3704 -1922 curveto
3817 -2156 3983 -2496 4262 -3058 curveto
% 4786 -4149 6341 -7346 35775 -67850 curveto
stroke
1 setgray
% 36136 -68535 30 0 360 arc fill % 400
% 29424 -56936 30 0 360 arc fill % 425
% 8847 -18653 30 0 360 arc fill % 450
1261 -3701 30 0 360 arc fill % 475
15 -336 30 0 360 arc fill % 500
138 -28 30 0 360 arc fill % 525
435 -3 30 0 360 arc fill % 550
920 0 30 0 360 arc fill % 575
1683 0 30 0 360 arc fill % 600
2340 0 30 0 360 arc fill % 625
2649 0 30 0 360 arc fill % 650
2741 0 30 0 360 arc fill % 675
2769 0 30 0 360 arc fill % 700
3023 -529 30 0 360 arc fill %500c
3482 -1469 30 0 360 arc fill %525c
3983 -2496 30 0 360 arc fill %550c
0 setgray
% 36136 -68535 30 0 360 arc stroke % 400
% 29424 -56936 30 0 360 arc stroke % 425
% 8847 -18653 30 0 360 arc stroke % 450
1261 -3701 30 0 360 arc stroke % 475
15 -336 30 0 360 arc stroke % 500
138 -28 30 0 360 arc stroke % 525
435 -3 30 0 360 arc stroke % 550
920 0 30 0 360 arc stroke % 575
1683 0 30 0 360 arc stroke % 600
2340 0 30 0 360 arc stroke % 625
2649 0 30 0 360 arc stroke % 650
2741 0 30 0 360 arc stroke % 675
2769 0 30 0 360 arc stroke % 700
3023 -529 30 0 360 arc stroke %500c
3482 -1469 30 0 360 arc stroke %525c
3983 -2496 30 0 360 arc stroke %550c
950 -435 30 0 360 arc fill %D65
0 setgray
250 /TimesI-ISOL1 FS
% 36136 500 sub -68535 100 sub moveto (400) show
% 29424 500 sub -56936 100 sub moveto (425) show
% 8847 500 sub -18653 100 sub moveto (450) show
% 1261 500 sub -3701 100 sub moveto (475) show
15 500 sub -336 100 sub moveto (500) show
% 138 200 sub -28 100 add moveto (525) show
435 200 sub -3 100 add moveto (550) show
% 920 200 sub 0 100 add moveto (575) show
1683 200 sub 0 100 add moveto (600) show
2340 200 sub 0 100 add moveto (625) show
% 2649 200 sub 0 100 add moveto (650) show
% 2741 200 sub 0 100 add moveto (675) show
2769 100 add 0 150 sub moveto (700) show
3023 100 add -529 100 sub moveto (500c) show
% 3482 100 sub -1469 200 add moveto (525c) show
% 3983 500 sub -2496 100 sub moveto (550c) show
% 950 100 add -435 100 sub moveto (D65 ) show
15 350 sub -336 100 add moveto (5G) show
920 100 sub 0 100 add moveto (5Y) show
920 100 sub 0 2050 sub moveto (5PB) show
2340 150 sub 0 250 sub moveto (5R) show
-1500 -3200 translate
%ENDE: 2
%1000 02 10 01 16 01 00 NE JA NE 01 ********************
% 10 01 01 F39M5C2.DAT Chroma 4,8,12,..,24 fŸr B8230/1-xn.eps 30.3.93
%ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 1G0= 4
1500 3200 translate
1060 -679 moveto
1060 -679 1027 -689 990 -692 curveto
955 -688 923 -681 894 -666 curveto
865 -643 843 -616 826 -585 curveto
809 -546 798 -513 789 -471 curveto
784 -443 782 -415 783 -389 curveto
787 -355 801 -310 819 -273 curveto
849 -236 874 -215 904 -200 curveto
934 -197 967 -198 1003 -210 curveto
1040 -225 1074 -247 1097 -267 curveto
1123 -295 1141 -320 1155 -352 curveto
1161 -377 1162 -405 1163 -429 curveto
1162 -457 1158 -490 1149 -534 curveto
1139 -569 1127 -603 1106 -639 curveto
1086 -665 1060 -679 1060 -679 curveto
stroke
-1500 -3200 translate
%ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 2G0= 8
1500 3200 translate
1163 -943 moveto
1163 -943 1096 -976 1007 -983 curveto
946 -977 881 -953 830 -922 curveto
777 -877 724 -798 688 -723 curveto
658 -634 640 -563 623 -481 curveto
615 -426 611 -377 611 -329 curveto
618 -265 647 -181 685 -129 curveto
749 -85 806 -66 867 -58 curveto
917 -57 975 -62 1035 -69 curveto
1099 -82 1163 -100 1219 -122 curveto
1275 -154 1318 -191 1347 -242 curveto
1362 -289 1371 -341 1377 -391 curveto
1378 -451 1373 -516 1357 -613 curveto
1331 -690 1299 -764 1256 -839 curveto
1217 -898 1163 -943 1163 -943 curveto
stroke
-1500 -3200 translate
%ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 3G0= 12
1500 3200 translate
1283 -1240 moveto
1283 -1240 1178 -1314 1032 -1339 curveto
946 -1333 848 -1297 775 -1248 curveto
692 -1164 607 -1019 557 -879 curveto
516 -737 492 -622 473 -501 curveto
463 -416 459 -352 459 -289 curveto
470 -200 511 -91 579 -40 curveto
691 -12 773 -4 851 -1 curveto
915 -1 982 -3 1056 -8 curveto
1132 -16 1218 -26 1309 -42 curveto
1402 -62 1497 -93 1557 -157 curveto
1587 -217 1605 -290 1611 -363 curveto
1608 -451 1594 -547 1563 -695 curveto
1524 -819 1476 -932 1419 -1055 curveto
1363 -1145 1283 -1240 1283 -1240 curveto
stroke
-1500 -3200 translate
%ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 4G0= 16
1500 3200 translate
1487 -7 moveto
1487 -7 1650 -33 1771 -92 curveto
1817 -162 1840 -252 1850 -344 curveto
1842 -459 1827 -584 1785 -783 curveto
1733 -956 1672 -1116 1597 -1289 curveto
1529 -1421 1430 -1600 1287 -1732 curveto
1076 -1799 958 -1782 812 -1725 curveto
718 -1650 607 -1504 503 -1245 curveto
445 -1029 405 -826 381 -674 curveto
359 -522 350 -414 344 -339 curveto
340 -266 348 -155 403 -35 curveto
stroke
-1500 -3200 translate
%ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 5G0= 20
1500 3200 translate
279 -726 moveto
279 -726 263 -543 256 -414 curveto
251 -329 247 -252 247 -126 curveto
stroke
-1500 -3200 translate
%ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 6G0= 20
1500 3200 translate
1986 -49 moveto
1986 -49 2068 -119 2127 -220 curveto
2128 -326 2109 -472 2085 -626 curveto
2028 -883 1972 -1116 1894 -1333 curveto
1797 -1549 1718 -1731 1595 -1971 curveto
1447 -2249 1447 -2249 1447 -2249 curveto
stroke
-1500 -3200 translate
%ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 7G0= 24
1500 3200 translate
191 -562 moveto
191 -562 180 -418 174 -324 curveto
169 -242 171 -109 171 -109 curveto
stroke
-1500 -3200 translate
%ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 8G0= 24
1500 3200 translate
2367 -675 moveto
2367 -675 2281 -988 2218 -1284 curveto
2129 -1559 2033 -1853 1939 -2094 curveto
stroke
-1500 -3200 translate
%ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 9G0= 28
1500 3200 translate
124 -421 moveto
124 -421 111 -320 103 -236 curveto
107 -98 107 -98 107 -98 curveto
stroke
-1500 -3200 translate
%ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 10G0= 28
1500 3200 translate
2505 -1479 moveto
2505 -1479 2408 -1828 2306 -2201 curveto
stroke
-1500 -3200 translate
1500 3200 translate
950 -435 40 0 360 arc fill
-1500 -3200 translate
%ENDE: 2
%1000 02 21 01 16 01 00 NE JA JA 02 ********************
% 21 01 01 F39M5T2.DAT Ton=2,4,.. jede 2.Ton; fŸr B8230/1 mit TDELC=2
%ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 2 5.0PB
1500 3200 translate
990 -692 moveto
990 -692 1007 -983 1032 -1339 curveto
1076 -1799 1076 -1799 1076 -1799 curveto
stroke
1 setgray
990 -692 40 0 360 arc fill
1007 -983 40 0 360 arc fill
1032 -1339 40 0 360 arc fill
0 setgray
990 -692 40 0 360 arc stroke
1007 -983 40 0 360 arc stroke
1032 -1339 40 0 360 arc stroke
1076 -1799 40 0 360 arc fill
-1500 -3200 translate
%ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 8 5.0G
1500 3200 translate
783 -389 moveto
783 -389 611 -329 459 -289 curveto
340 -266 247 -252 169 -242 curveto
103 -236 103 -236 103 -236 curveto
stroke
1 setgray
783 -389 40 0 360 arc fill
611 -329 40 0 360 arc fill
0 setgray
783 -389 40 0 360 arc stroke
611 -329 40 0 360 arc stroke
459 -289 40 0 360 arc fill
340 -266 40 0 360 arc fill
247 -252 40 0 360 arc fill
169 -242 40 0 360 arc fill
103 -236 40 0 360 arc fill
-1500 -3200 translate
%ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 12 5.0Y
1500 3200 translate
967 -198 moveto
967 -198 975 -62 982 -3 curveto
stroke
1 setgray
967 -198 40 0 360 arc fill
975 -62 40 0 360 arc fill
0 setgray
967 -198 40 0 360 arc stroke
975 -62 40 0 360 arc stroke
982 -3 40 0 360 arc fill
-1500 -3200 translate
%ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 16 5.0R
1500 3200 translate
1161 -377 moveto
1161 -377 1362 -289 1587 -217 curveto
1817 -162 2068 -119 2068 -119 curveto
stroke
1 setgray
1161 -377 40 0 360 arc fill
1362 -289 40 0 360 arc fill
1587 -217 40 0 360 arc fill
0 setgray
1161 -377 40 0 360 arc stroke
1362 -289 40 0 360 arc stroke
1587 -217 40 0 360 arc stroke
1817 -162 40 0 360 arc fill
2068 -119 40 0 360 arc fill
-1500 -3200 translate
%ANF FANXYAL: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200 21 C
1500 3200 translate
980 -472 moveto
980 -472 980 -472 980 -472 curveto
stroke
1 setgray
980 -472 40 0 360 arc fill
0 setgray
980 -472 40 0 360 arc stroke
-1500 -3200 translate
1500 3200 translate
950 -435 40 0 360 arc fill
-1500 -3200 translate
%ENDE: 2
%END-35
%END-34
%Platz fŸr Text
700 3200 translate
1 setgray
2633 -3100 moveto 1900 0 rlineto 0 1200 rlineto
-1900 0 rlineto closepath fill
0 setgray
2633 -3100 moveto 1900 0 rlineto 0 1200 rlineto
-1900 0 rlineto closepath stroke
300 /TimesI-ISOL1 FS
2700 -2150 moveto (Munsell V=5) show
250 /TimesI-ISOL1 FS
2700 -2400 moveto 20 0 (a=x/y) ashow
2700 -2700 moveto 20 0 (b) ashow
250 /Times-ISOL1 FS
20 0 (=-0,40) ashow
250 /TimesI-ISOL1 FS
20 0 (z/y) ashow
300 /Times-ISOL1 FS
2700 -3050 moveto (LAB 1977) show
-700 -3200 translate
%Platz ACHTUNG KurvenŸberschreibung
showpage
grestore
%%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 MF461-6
%%BoundingBox: 70 83 226 206
%START PDFDE011.EPS
/pdfmark12 where {pop} {userdict /pdfmark12 /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/MF46/)
/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:2012050112000)
/ModDate (D:2012050112000)
/DOCINFO pdfmark12
[ /View [ /FitB ]
/DOCVIEW pdfmark12
%END PDFDE011
/FF_LM_setgray_F0 where
{pop /FF_LM_setgray_X {FF_LM_setgray_F0} bind def}
{/FF_LM_setgray_X {setgray} bind def} ifelse
/FF_LM_setrgbcolor_F0 where
{pop /FF_LM_setrgbcolor_X {FF_LM_setrgbcolor_F0} bind def}
{/FF_LM_setrgbcolor_X {setrgbcolor} bind def} ifelse
/FF_LM_setcmykcolor_F0 where
{pop /FF_LM_setcmykcolor_X {FF_LM_setcmykcolor_F0} bind def}
{/FF_LM_setcmykcolor_X {setcmykcolor} bind def} ifelse
%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
/mcolor exch def /ccolor exch def
ncolor 0 eq {1 ccolor sub
1 mcolor sub
1 ycolor sub setrgbcolor
}
{ccolor 0 eq
mcolor 0 eq and
ycolor 0 eq and {%only black n
1 ncolor sub
dup
dup
setrgbcolor
}
{%cmy and black n
1 ccolor sub 1 ncolor sub mul
1 mcolor sub 1 ncolor sub mul
1 ycolor sub 1 ncolor sub mul
setrgbcolor
} ifelse
} ifelse
} 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
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/TK {250 16.67 div /Times-ISOL1 FS} bind def
/TM {300 16.67 div /Times-ISOL1 FS} bind def
/TG {350 16.67 div /Times-ISOL1 FS} bind def
/TIK {250 16.67 div /TimesI-ISOL1 FS} bind def
/TIM {300 16.67 div /TimesI-ISOL1 FS} bind def
/TIG {350 16.67 div /TimesI-ISOL1 FS} bind def
/TBK {250 16.67 div /TimesB-ISOL1 FS} bind def
/TBM {300 16.67 div /TimesB-ISOL1 FS} bind def
/TBG {350 16.67 div /TimesB-ISOL1 FS} bind def
/TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def
/SK {250 16.67 div 1 sub /Symbol FS} bind def
/SM {300 16.67 div 1 sub /Symbol FS} bind def
/SG {350 16.67 div 1 sub /Symbol FS} bind def
/tolvfcol %Farbkreis-Reihenfolge
[ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF)
(777) (700) (770) (070) (077) (007) (707) (F03) %15=R
(333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B
(BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G
] def
/tcmyfcol %Farbkreis-Reihenfolge
[ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000)
(888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0FC) %15=R %new
(CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B
(444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G
] def
/tcmykfcol %Farbkreis-Reihenfolge
[ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000)
(0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0FC0) %15=R %new
(000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B
(0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G
] def
/tolvfcols %Farbkreis-Reihenfolge
[ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*)
(777*) (700*) (770*) (070*) (077*) (007*) (707*) (F03*) %15=R %new
(333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B
(BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G
] def
/tcmyfcols %Farbkreis-Reihenfolge
[ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*)
(888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0FC*) %15=R %new
(CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B
(444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G
] def
/tcmykfcols %Farbkreis-Reihenfolge
[ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*)
(0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0FC0*) %15=R %new
(000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B
(0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G
] def
/fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge
[{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0}
{1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0}
{0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5}
{1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.75 0.0} %new
{0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0}
{0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0}
{0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0}
{1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0}
] def
/fak 0.5 def
/Far %Farbkreis-Reihenfolge
[ 0 1 2 3 4 5 6 7
8 9 10 11 12 13 14 15 %R
16 17 18 19 20 21 22 23 %B
24 25 26 27 28 29 30 31 %G
] def
/cFar %Kompensativ-Farbkreis-Reihenfolge
[ 8 4 5 6 1 2 3 0
0 20 21 22 17 18 19 31 %G
24 12 13 14 9 10 11 2 %J
16 28 29 30 25 26 27 15 %R
] def
/Btx %Farbkreis- -> %Btx-Reihenfolge
[ 0 1 3 2 5 6 4 7
8 9 11 10 13 14 12 15 %R
16 17 19 18 21 22 20 23 %B
24 25 26 27 28 29 30 31 %G
] def
/cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge
[ 7 4 6 5 2 3 1 0
8 20 22 21 18 19 17 31 %G
24 12 14 13 10 11 9 2 %J
16 25 26 27 28 29 30 15 %R
] def
/rec %x, y width heigth
{/heigth exch def /width exch def
moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
/colrecfi %x y width heigth c m y k
{setcmyk_olvcolor rec fill} bind def
/colrecst %x y width heigth c m y k
{setcmyk_olvcolor rec stroke} bind def
/rem %x, y width heigth
{/heigth exch 0.5 mul def /width exch 0.5 mul def
/yleftb exch heigth 0.5 mul add def
/xleftb exch width 0.5 mul add def
xleftb yleftb
moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
/colremfi %x y width heigth c m y k
{setcmykcolor rem fill} bind def
/colremst %x y width heigth c m y k
{setcmykcolor rem stroke} bind def
/tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzg {1.0 0.0 1.0 0.0} bind def
/tzb {1.0 1.0 0.0 0.0} bind def
/tzc {1.0 0.0 0.0 0.0} bind def
/tzm {0.0 1.0 0.0 0.0} bind def
/tzy {0.0 0.0 1.0 0.0} bind def
/tzn {0.0 0.0 0.0 1.00} bind def %Graureihe
/tzd {0.0 0.0 0.0 0.75} bind def
/tzz {0.0 0.0 0.0 0.50} bind def
/tzh {0.0 0.0 0.0 0.25} bind def
/tzw {0.0 0.0 0.0 0.00} bind def
/tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def
/tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def
/tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe
/tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def
/tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def
/tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def
/tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def
%%EndProlog
gsave
%LANINDL2 START 20000505
/lanind 1 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm {6 lanind eq {show} {pop} ifelse} bind def
/popde {0 lanind ne {pop} if} bind def
/popen {1 lanind ne {pop} if} bind def
/popes {2 lanind ne {pop} if} bind def
/popfr {3 lanind ne {pop} if} bind def
/popit {4 lanind ne {pop} if} bind def
/popjp {5 lanind ne {pop} if} bind def
/popm {6 lanind ne {pop} if} bind def
/popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def
/popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def
/popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def
/popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def
/popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def
/popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
/lanindd laninddf def}
{/lanind1 3 def /lanind2 3 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
/colormd colormdf def}
{/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
/deintpd deintpdf def}
{/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
/xcolord xcolordf def}
{/xcolor1 3 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
/xchartd xchartdf def
/xchartm xchart2f xchart1f sub 1 add def}
{/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
{/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
{/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
/pchartd pchartdf def}
{/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
/colsepd colsepdf def}
{/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
/pmetamd pmetamdf def}
{/pmetam1 0 def} ifelse
%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %
colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (d*) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (e*) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output
/xt 0 def
xt 1 eq {%xt=1
5 /Times-ISOL1 FS
/cvishow {cvi 6 string cvs show} def
75 85 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show pmetam cvishow
gsave
%LANINDL2 END
5 /Times-ISOL1 FS
180 85 moveto
(MF461-6) show
xchart 0 eq {(N) show}
{deintp colorm 2 mul add cvishow} ifelse
(, B2_25) show % ( B8530_3, M8141-2, B2_25, N=2_25) show
} if %xt=1
72 90 translate
/pixf 1.0 def 0.1667 pixf div MM dup scale
/ausz 8 def
/xt 0 def
xt 1 eq {%xt=1
0 0 320 240 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau
TBG %Schrift Times-Bold-Gross
0.0 0.0 0.0 0.0 setcmyk_olvcolor %Schrift Weiss
005 220 moveto TBIG (r) show -11 09 rmoveto (-) show 0 -09 rmoveto
TBG (\050) show SG (l) show TBG (\051 ) show
(Dreidimensionale Farbwerte) showde %0MF461-6 0096#
(3\255dimensional color values) showen %1MF461-6 0096#
(Valor del color en 3D) showes %2MF461-6 0096#
(valeurs chromatiques a 3 dimensions) showfr %3MF461-6 0096#
(3\255dimensional valori di colore) showit %4MF461-6 0096#
(3\255dimensional color values) showjp %5MF461-6 0096#
052 198 moveto TBIM
(lineare ) showde %0MF461-6 0196#
(linear ) showen %1MF461-6 0196#
(lineal ) showes %2MF461-6 0196#
(\351valuation) showfr %3MF461-6 0196#
(sensibilit\340 ) showit %4MF461-6 0196#
(linear ) showjp %5MF461-6 0196#
TBM
(Spektrum\255Bewertung) showde %0MF461-6 0296#
(assessment of radiation) showen %1MF461-6 0296#
(espectro de radiaci\363n) showes %2MF461-6 0296#
(lin\351aire du spectre) showfr %3MF461-6 0296#
(lineare di radiazione) showit %4MF461-6 0296#
(assessment of radiation) showjp %5MF461-6 0296#
TBG
160 070 moveto TBIK (Y) show
TBK (\050) show SM (l) show TBM (\051) show
TBK ( = ) show
TBIK (y) show -08 06 rmoveto (-) show 0 -06 rmoveto
TBK (\050) show SM (l) show TBM (\051) show
160 050 moveto TBIK (A) show
TBK (\050) show SM (l) show TBM (\051) show
TBK ( = ) show
TBIK (x) show -08 06 rmoveto (-) show 0 -06 rmoveto
TBK (\050) show SM (l) show TBM (\051) show
TBK ( - ) show
TBIK (y) show -08 06 rmoveto (-) show 0 -06 rmoveto
TBK (\050) show SM (l) show TBM (\051) show
160 030 moveto TBIK (B) show
TBK (\050) show SM (l) show TBM (\051) show
TBK ( = 0,4 [ ) show
TBIK (y) show -08 06 rmoveto (-) show 0 -06 rmoveto
TBK (\050) show SM (l) show TBM (\051) show
TBK ( - ) show
TBIK (z) show -08 06 rmoveto (-) show 0 -06 rmoveto
TBK (\050) show SM (l) show TBM (\051) show
TBK ( ] ) show
} if %xt=1
/xd 4.0 def /xd2 8.0 def /ix0 45 def /iy0 43 def
/tx [ (400) (500) (600) (700)] def
/ty [(0,0) (0,2) (0,4) (0,6) (0,8) (1,0) ] def
/yex [ %Reflexion CIE ix judd-wyszecki, 380-760nm, Tab 3.3, S.242
.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763
.1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511
.1954 .1421 .09564 .05795 .03201 .0147 .0049 .0024 .0093 .0291
.06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784
.7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384
.8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212
.0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579
.004109 .002899 .002049 .001440 .0009999 .0006901
.000476 .0003323 .0002348 .0001662 ] def
/yey [ %Reflexion CIE iy judd-wyszecki, 380-760nm, Tab 3.3, S.242
.000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218
.004 .0073 .0116 .01684 .023 .0298 .038 .048 .06 .0739
.09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71
.7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952
.9154 .87 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321
.265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017
.01192 .00821 .005723 .004102 .002929 .002091 .001484
.001047 .00074 .00052 .0003611 .0002492 .0001719
.00012 .0000848 .00006 ] def
/yez [ %Reflexion CIE iz judd-wyszecki, 380-760nm, Tab 3.3, S.242
.00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456
1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692
1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123
.1582 .1117 .07825 .05725 .04216 .0284 .0203 .0134 .00875
.00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008
.0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001
.00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001
.00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001
.00001 .00001 .00001 ] def
/fsumx 0 def /fsumy 0 def /fsumz 0 def
/xq 77 array def /yq 77 array def /zq 77 array def
/xan 77 array def /yan 77 array def /zan 77 array def
/yexp 77 array def /yeyp 77 array def /yezp 77 array def
0 1 76 {/i exch def %Summe fsumxyz
fsumx yex i get exec add /fsumx exch def
fsumy yey i get exec add /fsumy exch def
fsumz yez i get exec add /fsumz exch def} for
0 1 76 {/i exch def %Normierung xyz
xq i yex i get exec fsumy mul fsumx div put
yq i yey i get exec fsumy mul fsumy div put
zq i yez i get exec fsumy mul fsumz div put} for
0 1 76 {/i exch def %xyzan
xq i get exec yq i get exec add zq i get exec add /sum exch def
xan i xq i get exec sum div put
yan i yq i get exec sum div put
zan i zq i get exec sum div put} for
/scolors %CMYN 49 Farbkreis-Reihenfolge; 48+1 Sonder-Farben
[{0.75 1.00 0.00 0.0} {0.87 1.00 0.00 0.0} {1.00 1.00 0.00 0.0} {1.00 0.87 0.00 0.0}
{1.00 0.75 0.00 0.0} {1.00 0.62 0.00 0.0} {1.00 0.50 0.00 0.0} {1.00 0.37 0.00 0.0}
{1.00 0.25 0.00 0.0} {1.00 0.12 0.00 0.0} {1.00 0.00 0.00 0.0} {1.00 0.00 0.12 0.0}
{1.00 0.00 0.25 0.0} {1.00 0.00 0.37 0.0} {1.00 0.00 0.50 0.0} {1.00 0.00 0.62 0.0}
{1.00 0.00 0.75 0.0} {1.00 0.00 0.87 0.0} {1.00 0.00 1.00 0.0} {0.87 0.00 1.00 0.0}
{0.75 0.00 1.00 0.0} {0.62 0.00 1.00 0.0} {0.50 0.00 1.00 0.0} {0.37 0.00 1.00 0.0}
{0.25 0.00 1.00 0.0} {0.12 0.00 1.00 0.0} {0.00 0.00 1.00 0.0} {0.00 0.12 1.00 0.0}
{0.00 0.25 1.00 0.0} {0.00 0.37 1.00 0.0} {0.00 0.50 1.00 0.0} {0.00 0.62 1.00 0.0}
{0.00 0.75 1.00 0.0} {0.00 0.87 1.00 0.0} {0.00 1.00 1.00 0.0} {0.00 1.00 0.87 0.0}
{0.00 1.00 0.75 0.0} {0.00 1.00 0.62 0.0} {0.00 1.00 0.50 0.0} {0.00 1.00 0.37 0.0}
{0.00 1.00 0.25 0.0} {0.00 1.00 0.12 0.0} {0.00 1.00 0.00 0.0} {0.12 1.00 0.00 0.0}
{0.25 1.00 0.00 0.0} {0.37 1.00 0.00 0.0} {0.50 1.00 0.00 0.0} {0.62 1.00 0.00 0.0}
{0.00 0.00 0.00 1.0}] def
/ifa %Verteilung 48 Farben auf 65 Wellenlaengen ohne Purpur
[00 00 00 01 01 01 02 02 03 03 04 04 05 05 06 06 07 07 08 09
10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
30 30 31 31 32 32 33 33 34 34 34 34 34 34 34 34 35 35 35 35
35 35 35 35 35] def
0 1 76 {/i exch def yexp i %(xan/yan-1)*yq
xan i get exec yan i get exec div 1 sub yq i get exec mul put} for
0 1 76 {/i exch def yeyp i %-0.4(zan/yan-1)*yq
-0.4 zan i get exec yan i get exec div 1 sub yq i get exec mul mul put} for
/ix0 45 100 add def
/iy0 45 060 add def
1 setlinewidth
%fcolors 7 get exec setcmyk_olvcolor
fcolors 0 get exec setcmyk_olvcolor
ix0 120 sub iy0 moveto 240 0 rlineto stroke
ix0 iy0 100 sub moveto 0 190 rlineto stroke
ix0 060 sub iy0 060 sub moveto 120 120 rlineto stroke
%TBIM ix0 100 add iy0 05 add moveto (A) show
% ix0 005 add iy0 65 add moveto (Y) show
% ix0 065 add iy0 50 add moveto (B) show
/iy0 iy0 0 add def
%fcolors 7 get exec setcmyk_olvcolor
fcolors 0 get exec setcmyk_olvcolor
2 setlinewidth
2 1 66 {/i exch def %ab 390nm bis 710nm, 65 Well. 2..66 %3=390, delta=1
/yp0 {yeyp i get exec 0.35355 mul} bind def
/x10 {yp0 yexp i get exec add 100 mul} def
/yp1 {yeyp i 1 add get exec 0.35355 mul} bind def
/x20 {yp1 yexp i 1 add get exec add 100 mul} def
ix0 x10 add iy0 yp0 100 mul add moveto
ix0 x20 add iy0 yp1 100 mul add lineto stroke
} for %i-Schleife
2 1 66 {/i exch def %ab 390nm bis 710nm, 65 Well. 2..66 %3=390, delta=1
/yp0 {yeyp i get exec 0.35355 mul} bind def
/x10 {yp0 yexp i get exec add 100 mul} def
/y11 {yp0 yeyp i get exec add 100 mul} def
/yp1 {yeyp i 1 add get exec 0.35355 mul} bind def
/x20 {yp1 yexp i 1 add get exec add 100 mul} def
/y20 {yp1 yeyp i 1 add get exec add 100 mul} def
/k {ifa i 2 sub get exec} def %max 65 Farben 0..64
scolors k get exec setcmyk_olvcolor
ix0 iy0 moveto
x10 2.0 exp y11 2.0 exp add /r102 exch def
r102 0 ne {r102 sqrt /r10 exch def
/x10k x10 r10 div def
/y11k y11 r10 div def}
{/x10k 0 def /y11k 0 def} ifelse
ix0 x10 add ausz 7 ne {x10k add} if
iy0 y11 add ausz 7 ne {y11k add} if lineto
ix0 x20 add ausz 7 ne {x10k add} if
iy0 y20 add ausz 7 ne {y11k add} if lineto
closepath fill
} for %i-Schleife
showpage
grestore
%%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 MF461-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 (MF461-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 MF461-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 (MF461-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
} if %xchart<=xchart3P0
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 DG02 20070101
%%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
/lanind1 01 def /lanind2 01 def /lanindd 01 def
/colorm1 00 def /colorm2 00 def /colormd 01 def
/deintp1 00 def /deintp2 00 def /deintpd 01 def
/xcolor1 03 def /xcolor2 03 def /xcolord 01 def
/xchart1 00 def /xchart2 00 def /xchartd 01 def
/pchart1 00 def /pchart2 00 def /pchartd 01 def
/colsep1 00 def /colsep2 00 def /colsepd 01 def
/pmetam1 00 def /pmetam2 00 def /pmetamd 01 def
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
/lanindd laninddf def} if
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
/colormd colormdf def} if
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
/deintpd deintpdf def} if
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
/xcolord xcolordf def} if
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
/xchartd xchartdf def
/xchartm xchart2f xchart1f sub 1 add def}
{/xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
{/xchart3 1 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
{/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
/pchartd pchartdf def} if
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
/colsepd colsepdf def} if
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
/pmetamd pmetamdf def} if
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %
/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 0 def
/i*ptrsc 0 def
gsave
%xchart 0 eq {%beg if xchart=0
0 setgray
1.0 1.0 scale
0.0 MM 0.0 MM translate
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 {tzrcmy0* setcmykcolor} if
j0 7 eq {0 setgray} if
j0 8 eq {tzgcmy0* setcmykcolor} if
j0 9 eq {0 setgray} if
j0 10 eq {tzbcmy0* 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
colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %3D=0, de=0
colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %3D=0, de=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %3D=1, de=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %3D=1, de=1
xchart 0 eq {/Txx (-) def /Fxx (-) def} if
/xchart3P0 xchart3 0 add def
0 setgray
12 /Times-ISOL1 FS
61 MM 13 MM moveto
(TUB\255Pr\374fvorlage MF46) showde %0MF46X-Y 0000#
(TUB\255test chart MF46) showen %1MF46X-Y 0000#
(Gr\341fico TUB\255MF46) showes %2MF46X-Y 0000#
(Graphique TUB\255MF46) showfr %3MF46X-Y 0000#
(Grafico TUB\255MF46) showit %4MF46X-Y 0000#
(TUB\255test chart MF46) showjp %5MF46X-Y 0000#
(; Computergrafik und Farbmetrik) showde %0MF46X-Y 0100#
(; Computer graphics and colorimetry) showen %1MF46X-Y 0100#
(; la gr\341fica de Ordenador y colorimetry) showes %2MF46X-Y 0100#
(; les infographies et colorim\351trie) showfr %3MF46X-Y 0100#
(; la grafica Computerizzata ed il colorimetry) showit %4MF46X-Y 0100#
(; Computer graphics and colorimetry) showjp %5MF46X-Y 0100#
61 MM 09 MM moveto
12 /Times-ISOL1 FS
xchart xchart3P0 le
{%xchart<=xchart3P0
(Bildserie ) showde %0MF46X-Y 0200#
(Image series ) showen %1MF46X-Y 0200#
(Imagine la serie ) showes %2MF46X-Y 0200#
(Collection d'image ) showfr %3MF46X-Y 0200#
(Serie di immagine ) showit %4MF46X-Y 0200#
(Image series ) showjp %5MF46X-Y 0200#
(MF46) show
}%xchart<=xchart3P0
{%xchart>xchart3P0
(Farben und Farbdifferenz ) showde %0MF46X-Y 0300#
(Colors and color difference ) showen %1MF46X-Y 0300#
(Colores y diferencia en color ) showes %2MF46X-Y 0300#
(Les couleurs et diff\351rences de couleur ) showfr %3MF46X-Y 0300#
(I colori e colora la differenza ) showit %4MF46X-Y 0300#
(Colors and color difference ) showjp %5MF46X-Y 0300#
12 /TimesI-ISOL1 FS
colorm 0 eq {%3D=0
(DE*' ) show
}%3D=0
{%3D=1
(DE'* ) show
} ifelse %3D=1
} ifelse %xchart>xchart3P0
12 /Times-ISOL1 FS
(, 3D=) show colorm cvishow
(, de=) show deintp cvishow
xchart 1 ge {%xchart>=1
12 /TimesI-ISOL1 FS
%MK00_49
colorm 0 eq {(, sRGB) show}
{(, sRGB*) show
} ifelse
%MK50_99
%pchart 0 eq {(, L-cmyn6) show} if
%pchart 2 eq {(, P-cmyn6) show} if
%pchart 4 eq {(, A-cmyn6) show} if
%pchart 6 eq {(, L-cmy0) show} if
%pchart 8 eq {(, P-cmy0) show} if
%colorm 1 eq {(*) show} if
} if %xchart>=1
xchart 1 ge {%xchart>=1
7 /Times-ISOL1 FS
172 MM 16 MM moveto
/FILEDATA_RX0F_IOF where {pop FILEDATA_RX0F_IOF show} if
} if %xchart>=1
12 /Times-ISOL1 FS
172 MM 12.5 MM moveto
(Eingabe: ) showde %0MF46X-Y 0800#
(input: ) showen %1MF46X-Y 0800#
(entrada: ) showes %2MF46X-Y 0800#
(entr\351e : ) showfr %3MF46X-Y 0800#
(immettere: ) showit %4MF46X-Y 0800#
(input: ) showjp %5MF46X-Y 0800#
12 /TimesI-ISOL1 FS
(rgb/cmyk -> ) show
xchart xchart3 lt {(rgb/cmyk) show} if
xchart xchart3 ge {%xchart>=xchart3
(rgb) show
10 /Times-ISOL1 FS
0 -2 rmoveto Txx show 0 2 rmoveto
12 /Times-ISOL1 FS
} if %xchart>=xchart3
12 /Times-ISOL1 FS
172 MM 9 MM moveto
(Ausgabe: ) showde %0MF46X-Y 0900#
(output: ) showen %1MF46X-Y 0900#
(salida: ) showes %2MF46X-Y 0900#
(sortie : ) showfr %3MF46X-Y 0900#
(uscita: ) showit %4MF46X-Y 0900#
(output: ) showjp %5MF46X-Y 0900#
%colorm=0,1!
12 /Times-ISOL1 FS
xchart 0 eq {%xchart=0,#0
12 /Times-ISOL1 FS
(keine \334nderung) showde %0MF46X-Y 1000#
(no change) showen %1MF46X-Y 1000#
(ning\372n cambio) showes %2MF46X-Y 1000#
(aucun changement) showfr %3MF46X-Y 1000#
(nessun cambiamento) showit %4MF46X-Y 1000#
(no change compared) showjp %5MF46X-Y 1000#
}%xchart=0
{%xchart#0
12 /Times-ISOL1 FS
colorm 0 eq {%colorm=0
(Transfer nach ) showde %0MF46X-Y 1100#
(transfer to ) showen %1MF46X-Y 1100#
(transfiera a ) showes %2MF46X-Y 1100#
(transf\351rer \340 ) showfr %3MF46X-Y 1100#
(trasferire a ) showit %4MF46X-Y 1100#
(transfer to ) showjp %5MF46X-Y 1100#
}%colorm=0
{%colorm=1
(3D\255Linearisierung ) showde %0MF46X-Y 1200#
(3D\255linearization to ) showen %1MF46X-Y 1200#
(3D\255linealizaci\363n a ) showes %2MF46X-Y 1200#
(lin\351arisation 3D selon ) showfr %3MF46X-Y 1200#
(3D\255linearizzazione a ) showit %4MF46X-Y 1200#
(3D\255linearization to ) showjp %5MF46X-Y 1200#
} ifelse %colorm=1
12 /TimesI-ISOL1 FS
xchart5f 0 eq {(rgb) show} if
xchart5f 1 eq {(cmyk) show} if
xchart5f 2 eq {(cmy0) show} if
xchart5f 3 eq {(cmyk) show} if
colorm 1 eq {(*) show} if
10 /Times-ISOL1 FS
0 -2 rmoveto Txx show 0 2 rmoveto
12 /Times-ISOL1 FS
} ifelse %xchart=0,#0
%0 setgray %end white and unvisible
12 /Times-ISOL1 FS
62 MM 198.5 MM moveto
(http://130.149.60.45/~farbmetrik/MF46/MF46L) show
(0) show
LSC$ show LEX$ show
%1 setgray %start white and unvisible
(; ) show
xchart 0 eq {
(Start\255Ausgabe) showde %0MF46X-Y 1300#
(start output) showen %1MF46X-Y 1300#
(comience salida) showes %2MF46X-Y 1300#
(sortie de production) showfr %3MF46X-Y 1300#
(cominciare l'uscita) showit %4MF46X-Y 1300#
(start output) showjp %5MF46X-Y 1300#
} if
LSC$ (C) eq {
(Start\255Ausgabe) showde %0MF46X-Y 1400#
(start output) showen %1MF46X-Y 1400#
(comience salida) showes %2MF46X-Y 1400#
(sortie de production) showfr %3MF46X-Y 1400#
(cominciare l'uscita) showit %4MF46X-Y 1400#
(start output) showjp %5MF46X-Y 1400#
} if
xchart 1 ge {%xchart>=1
colorm 0 eq {%colorm=0,1
(Transfer Ausgabe) showde %0MF46X-Y 1500#
(transfer output) showen %1MF46X-Y 1500#
(salida de transferencia) showes %2MF46X-Y 1500#
(sortie de transfert) showfr %3MF46X-Y 1500#
(uscita di trasferimento) showit %4MF46X-Y 1500#
(transfer output) showjp %5MF46X-Y 1500#
}%colorm=0
{%colorm=1
(3D\255Linearisierung) showde %0MF46X-Y 1600#
(3D\255linearization) showen %1MF46X-Y 1600#
(3D\255linealizaci\363n) showes %2MF46X-Y 1600#
(lin\351arisation 3D) showfr %3MF46X-Y 1600#
(3D\255linearizzzazione) showit %4MF46X-Y 1600#
(3D\255linearization) showjp %5MF46X-Y 1600#
} ifelse %colorm=0,1
} if %xchart>=1
62 MM 194 MM moveto
LSC$ (N) eq LSC$ (C) eq or {
(N: Keine 3D\255Linearisierung (OL) ) showde %0MF46X-Y 1700#
(N: no 3D\255linearization (OL) ) showen %1MF46X-Y 1700#
(N: ninguna 3D\255linealizaci\363n (OL) ) showes %2MF46X-Y 1700#
(N: aucune lin\351arisation 3D (OL) ) showfr %3MF46X-Y 1700#
(N: nessun 3D\255linearizzazione (OL) ) showit %4MF46X-Y 1700#
(N: no 3D\255linearization (OL) ) showjp %5MF46X-Y 1700#
(in Datei (F) oder PS\255Startup (S)) showde %0MF46X-Y 1800#
(in file (F) or PS\255startup (S)) showen %1MF46X-Y 1800#
(en archivo (F) o PS\255startup (S)) showes %2MF46X-Y 1800#
(dans fichier (F) ou PS\255startup (S)) showfr %3MF46X-Y 1800#
(nel file (F) o PS\255startup (S)) showit %4MF46X-Y 1800#
(in file (F) or PS\255startup (S)) showjp %5MF46X-Y 1800#
}
{LSC$ show (: ) show
(3D\255Linearisierung) showde %0MF46X-Y 1900#
(3D\255linearization) showen %1MF46X-Y 1900#
(3D\255linealizaci\363n) showes %2MF46X-Y 1900#
(lin\351arisation 3D) showfr %3MF46X-Y 1900#
(3D\255linearizzzazione) showit %4MF46X-Y 1900#
(3D\255linearization) showjp %5MF46X-Y 1900#
( MF46/MF46L) show
LSS$ show LSX$ show (0) show
LSC$ show LEY$ show
} ifelse
LSC$ (F) eq {
( in Datei (F)) showde %0MF46X-Y 2000#
( in file (F)) showen %1MF46X-Y 2000#
( en archivo (F)) showes %2MF46X-Y 2000#
( dans fichier (F)) showfr %3MF46X-Y 2000#
( nel file (F)) showit %4MF46X-Y 2000#
( in file (F)) showjp %5MF46X-Y 2000#
} if
LSC$ (S) eq {
( im Distiller Startup (S) Directory) showde %0MF46X-Y 2100#
( in Distiller Startup (S) Directory) showen %1MF46X-Y 2100#
( en el Distiller Startup (S) Directory) showes %2MF46X-Y 2100#
( dans le Distiller Startup (S) Directory) showfr %3MF46X-Y 2100#
( nel Distiller Startup (S) Directory) showit %4MF46X-Y 2100#
( in Distiller Startup (S) Directory) showjp %5MF46X-Y 2100#
} if
LSC$ (D) eq {
( in PS\255Device (D)) showde %0MF46X-Y 2200#
( in PS\255device (D)) showen %1MF46X-Y 2200#
( en el PS\255device (D)) showes %2MF46X-Y 2200#
( dans l'appareil PS (D)) showfr %3MF46X-Y 2200#
( nel PS\255dispositivo (D)) showit %4MF46X-Y 2200#
( in PS\255Device (D)) showjp %5MF46X-Y 2200#
} if
LSC$ (T) eq {
( im Distiller Startup (S) Directory) showde %0MF46X-Y 2300#
( in Distiller Startup (S) Directory) showen %1MF46X-Y 2300#
( en el Distiller Startup (S) Directory) showes %2MF46X-Y 2300#
( dans le Distiller Startup (S) Directory) showfr %3MF46X-Y 2300#
( nel Distiller Startup (S) Directory) showit %4MF46X-Y 2300#
( in Distiller Startup (S) Directory) showjp %5MF46X-Y 2300#
} if
LSC$ (E) eq {
( in PS\255Device (D)) showde %0MF46X-Y 2400#
( in PS\255device (D)) showen %1MF46X-Y 2400#
( en el PS\255device (D)) showes %2MF46X-Y 2400#
( dans l'appareil PS (D)) showfr %3MF46X-Y 2400#
( nel PS\255dispositivo (D)) showit %4MF46X-Y 2400#
( in PS\255Device (D)) showjp %5MF46X-Y 2400#
} if
%0 setgray %end white and unvisible
(, Seite ) showde %0MF46X-Y 2500#
(, page ) showen %1MF46X-Y 2500#
(, p\341gina ) showes %2MF46X-Y 2500#
(, p\341ge ) showfr %3MF46X-Y 2500#
(, pagina ) showit %4MF46X-Y 2500#
(, page ) showjp %5MF46X-Y 2500#
xchart 1 add cvishow (/) show
xchartm cvishow
16 MM 185 MM moveto
-90 rotate
(Siehe \344hnliche Dateien: ) showde %0MF46X-Y 2600#
(see similar files: ) showen %1MF46X-Y 2600#
(vea archivos semejantes: ) showes %2MF46X-Y 2600#
(voir fichiers similaires: ) showfr %3MF46X-Y 2600#
(vedere dei file simili: ) showit %4MF46X-Y 2600#
(see similar files: ) showjp %5MF46X-Y 2600#
(http://130.149.60.45/~farbmetrik/MF46/MF46.HTM) show
%(0) show
%LSC$ show LEX$ show
90 rotate
12 MM 185 MM moveto
-90 rotate
(Technische Information: ) showde %0MF46X-Y 2700#
(technical information: ) showen %1MF46X-Y 2700#
(informaci\363n t\351cnica: ) showes %2MF46X-Y 2700#
(informations techniques: ) showfr %3MF46X-Y 2700#
(informazioni tecniche: ) showit %4MF46X-Y 2700#
(technical information: ) showjp %5MF46X-Y 2700#
(http://www.ps.bam.de) show
( oder ) showde %0MF46X-Y 2800#
( or ) showen %1MF46X-Y 2800#
( o ) showes %2MF46X-Y 2800#
( ou ) showfr %3MF46X-Y 2800#
( o ) showit %4MF46X-Y 2800#
( or ) showjp %5MF46X-Y 2800#
(http://130.149.60.45/~farbmetrik) show
90 rotate
281 MM 185 MM moveto
-90 rotate
(TUB\255Registrierung: 20130201\255MF46/MF46L) showde %0MF46X-Y 2900#
(TUB registration: 20130201\255MF46/MF46L) showen %1MF46X-Y 2900#
(TUB matr\355cula: 20130201\255MF46/MF46L) showes %2MF46X-Y 2900#
(TUB enregistrement: 20130201\255MF46/MF46L) showfr %3MF46X-Y 2900#
(TUB iscrizione: 20130201\255MF46/MF46L) showit %4MF46X-Y 2900#
(TUB registration: 20130201\255MF46/MF46L) showjp %5MF46X-Y 2900#
(0) show
LSC$ show LEX$ show
90 rotate
281 MM 74 MM moveto
-90 rotate
(TUB\255Material: Code=rha4ta) showde %0MF46X-Y 3000#
(TUB material: code=rha4ta) showen %1MF46X-Y 3000#
(TUB material: code=rha4ta) showes %2MF46X-Y 3000#
(TUB mat\351riel: code=rha4ta) showfr %3MF46X-Y 3000#
(TUB materiale: code=rha4ta) showit %4MF46X-Y 3000#
(TUB material: code=rha4ta) showjp %5MF46X-Y 3000#
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 ) showde %0MF46X-Y 3100#
( application for measurement ) showen %1MF46X-Y 3100#
( aplicaci\363n para la medida ) showes %2MF46X-Y 3100#
( application pour la mesure ) showfr %3MF46X-Y 3100#
( la domanda per la misura ) showit %4MF46X-Y 3100#
( application for measurement ) showjp %5MF46X-Y 3100#
xchart5f 0 eq {%xchart5f=0
(von Display-Ausgabe) showde %0MF46X-Y 3200#
(of display output) showen %1MF46X-Y 3200#
(de display output) showes %2MF46X-Y 3200#
(de sortie sur \350cran) showfr %3MF46X-Y 3200#
(di stampa di display) showit %4MF46X-Y 3200#
(of display output) showjp %5MF46X-Y 3200#
} if %xchart5f=0
xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2
(von Offsetdruck\255Ausgabe) showde %0MF46X-Y 3300#
(of offset print output) showen %1MF46X-Y 3300#
(salida en la impressi\363n offset) showes %2MF46X-Y 3300#
(des sorties sur offset) showfr %3MF46X-Y 3300#
(uscita nella stampa di offset) showit %4MF46X-Y 3300#
(of offset print output) showjp %5MF46X-Y 3300#
} if %xchart5f=1,2
xchart5f 3 eq {%xchart5f=3
(von Laserdrucker\255Ausgabe) showde %0MF46X-Y 3400#
(of laser printer output) showen %1MF46X-Y 3400#
(salida de impresora l\341ser) showes %2MF46X-Y 3400#
(des sorties sur imprimante laser) showfr %3MF46X-Y 3400#
(di uscita della stampante laser) showit %4MF46X-Y 3400#
(of laser printer output) showjp %5MF46X-Y 3400#
} if %xchart5f=3
xchart 1 ge {%xchart>=1
xchart5f 0 eq {%xchart5f=0
(, keine Separation) showde %0MF46X-Y 3500#
(, no separation) showen %1MF46X-Y 3500#
(, ninguna separaci\363n) showes %2MF46X-Y 3500#
(, aucune s\351paration) showfr %3MF46X-Y 3500#
(, nessuna separazione) showit %4MF46X-Y 3500#
(, no separation) showjp %5MF46X-Y 3500#
} if %chart5f=0
xchart5f 1 ge {%xchart5f>=1
(, Separation) showde %0MF46X-Y 3600#
(, separation) showen %1MF46X-Y 3600#
(, separaci\363n) showes %2MF46X-Y 3600#
(, s\351paration) showfr %3MF46X-Y 3600#
(, separazione) showit %4MF46X-Y 3600#
(, separation) showjp %5MF46X-Y 3600#
xchart5f 1 eq xchart5f 3 eq or {( cmyn6) show} if
xchart5f 2 eq {( cmy0) show} if
colorm 1 eq {(*) show} if
colsep 0 eq {( (CMYK))}{( (CMY0))} ifelse show
} if %xchart5f>=1
} if %xchart>=1
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
%/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
%} ifelse %xt=1
xchart 1 le {%xchart<=1
/ypapert 5 array def
/ypapert [(S) (D) (C) (E) (F)] def
%/ypapert [(A) (B) (L) (G) (P)] def
0 0 0 0 setcmykcolor
/i0 14 def
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
x i0 get MM 18 MM sub y i0 get MM 04 MM sub moveto
17 MM 0 rlineto 0 4.5 MM rlineto -17 MM 0 rlineto closepath fill
x i0 get MM 17.5 MM sub y i0 get MM 3 MM sub moveto
0 1 1 0 setcmykcolor
4.5 MM /Times-ISOL1 FS
(MF46) show
3.5 MM /Times-ISOL1 FS
xchart 0 eq {(S0) show}
{colorm cvishow deintp cvishow} ifelse
ypapert ypaper get show
} if %xchart<=1
grestore
gsave
%**********************************************************
xchart xchart3P0 gt {%BEG xchart>xchart3P0
/n00 xchart3P0 1 add def %special tables start at page 6
/n01 n00 1 add def %1080-rgb-tables start at page 8
/n02 n00 2 add def
xchart n00 eq {/n1 0 def /n2 57 def} if
xchart n01 eq {/n1 0 def /n2 53 def} if
xchart n02 ge {/n1 xchart n02 sub 81 mul def
/n2 n1 80 add def
n2 1079 ge {/n2 1079 def} if
} if
72 56 translate
0.01 MM dup scale
0 0 0 setrgbcolor
%0 0 moveto 24600 0 rlineto 0 17220 rlineto
% -24600 0 rlineto closepath stroke
180 /Times-ISOL1 FS
0 0 0 setrgbcolor
7000 -180 moveto
(MF460-7N, ) show
lanind 0 eq {(Seite ) show} if
lanind 1 ge {(page ) show} if
xchart 1 add cvishow (/) show
xchartm cvishow
(-F) show %pmetam cvishow
/prog_rgb_dyF_LAB*'dyF
{%BEG prog_rgb_dyF_LAB*'dyF
/R01000 r_dyF 1000 mul def
/G01000 g_dyF 1000 mul def
/B01000 b_dyF 1000 mul def
R01000 0.04045 le %equations of IEC 61966-2-1:2003
{/RsRGB R01000 12.92 div def}
{/RsRGB R01000 0.001 mul 0.055 add
1.055 div 2.4 exp def} ifelse
G01000 0.04045 le
{/GsRGB G01000 12.92 div def}
{/GsRGB G01000 0.001 mul 0.055 add
1.055 div 2.4 exp def} ifelse
B01000 0.04045 le
{/BsRGB B01000 12.92 div def}
{/BsRGB B01000 0.001 mul 0.055 add
1.055 div 2.4 exp def} ifelse
/X*'dyF 0.4124 RsRGB mul
0.3576 GsRGB mul add
0.1805 BsRGB mul add 88.59 mul def
/Y*'dyF 0.2126 RsRGB mul
0.7152 GsRGB mul add
0.0722 BsRGB mul add 88.59 mul def
/Z*'dyF 0.0193 RsRGB mul
0.1192 GsRGB mul add
0.9505 BsRGB mul add 88.59 mul def
% achromatic (D65) colours
/XLWD65100 95.04 def
/YLWD65100 100.00 def
/ZLWD65100 108.88 def
/XQ X*'dyF XLWD65100 div def
/YQ Y*'dyF YLWD65100 div def
/ZQ Z*'dyF ZLWD65100 div def
XQ 0 lt {/XQ 0.00000001 def} if
YQ 0 lt {/YQ 0.00000001 def} if
ZQ 0 lt {/ZQ 0.00000001 def} if
/L*'dyF YQ 0.008856 lt {903.3 YQ mul}
{YQ 0.33333333 exp 116 mul 16 sub} ifelse def
/a*'dyF XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
{XQ 0.33333333 exp} ifelse
YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
{YQ 0.33333333 exp} ifelse sub 500 mul def
/b*'dyF YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
{YQ 0.33333333 exp} ifelse
ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
{ZQ 0.33333333 exp} ifelse sub 200 mul def
/C*'dyF a*'dyF dup mul
b*'dyF dup mul add 0.0001 add sqrt def
/h*'dyF b*'dyF a*'dyF 0.0001 add atan def
} bind def %END prog_rgb_dyF_LAB*'dyF
%********************************************************
/prog_rgb'*dyF_LAB'*dyF
{%BEG prog_rgb'*dyF_LAB'*dyF
/R01000 r'*dyF 1000 mul def
/G01000 g'*dyF 1000 mul def
/B01000 b'*dyF 1000 mul def
R01000 0.04045 le %equations of IEC 61966-2-1:2003
{/RsRGB R01000 12.92 div def}
{/RsRGB R01000 0.001 mul 0.055 add
1.055 div 2.4 exp def} ifelse
G01000 0.04045 le
{/GsRGB G01000 12.92 div def}
{/GsRGB G01000 0.001 mul 0.055 add
1.055 div 2.4 exp def} ifelse
B01000 0.04045 le
{/BsRGB B01000 12.92 div def}
{/BsRGB B01000 0.001 mul 0.055 add
1.055 div 2.4 exp def} ifelse
/X'*dyF 0.4124 RsRGB mul
0.3576 GsRGB mul add
0.1805 BsRGB mul add 88.59 mul def
/Y'*dyF 0.2126 RsRGB mul
0.7152 GsRGB mul add
0.0722 BsRGB mul add 88.59 mul def
/Z'*dyF 0.0193 RsRGB mul
0.1192 GsRGB mul add
0.9505 BsRGB mul add 88.59 mul def
% achromatic (D65) colours
/XLWD65100 95.04 def
/YLWD65100 100.00 def
/ZLWD65100 108.88 def
/XQ X'*dyF XLWD65100 div def
/YQ Y'*dyF YLWD65100 div def
/ZQ Z'*dyF ZLWD65100 div def
XQ 0 lt {/XQ 0.00000001 def} if
YQ 0 lt {/YQ 0.00000001 def} if
ZQ 0 lt {/ZQ 0.00000001 def} if
/L'*dyF YQ 0.008856 lt {903.3 YQ mul}
{YQ 0.33333333 exp 116 mul 16 sub} ifelse def
/A'*dyF XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
{XQ 0.33333333 exp} ifelse
YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
{YQ 0.33333333 exp} ifelse sub 500 mul def
/B'*dyF YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
{YQ 0.33333333 exp} ifelse
ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
{ZQ 0.33333333 exp} ifelse sub 200 mul def
/C'*dyF A'*dyF dup mul
B'*dyF dup mul add 0.0001 add sqrt def
/h'*dyF B'*dyF A'*dyF 0.0001 add atan def
} bind def %END prog_rgb'*dyF_LAB'*dyF
%*************************************************************
/fakt 1.0 def
/fakt2 0.74 def %0.2
/iyt 250 fakt2 mul def %text size
/iyd 277 fakt2 mul def %line difference
/ixs0 00 fakt2 mul def
/ixs1 -10 fakt2 mul def
/ixs2 10 fakt2 mul def
/iys1 -25 fakt2 mul def
/iys2 25 fakt2 mul def
/iys3 35 fakt2 mul def
/iys4 -35 fakt2 mul def
/iytie iyt 50 fakt2 mul sub def
/nshow {iyt /Times-ISOL1 FS show} def
/kshow {iyt /TimesI-ISOL1 FS show} def
/bshow {iyt /TimesB-ISOL1 FS show} def
/jshow {iyt /TimesBI-ISOL1 FS show} def
/sshow {iyt /Symbol FS show} def
/nishow {ixs1 iys1 rmoveto iytie /Times-ISOL1 FS show ixs2 iys2 rmoveto} def
/nishow0 { 00 iys1 rmoveto iytie /Times-ISOL1 FS show 00 iys2 rmoveto} def
/neshow {ixs1 iys3 rmoveto iytie /Times-ISOL1 FS show ixs2 iys4 rmoveto} def
/neshow0 { 00 iys3 rmoveto iytie /Times-ISOL1 FS show 00 iys4 rmoveto} def
/ishow {ixs1 iys1 rmoveto iytie /TimesB-ISOL1 FS show ixs2 iys2 rmoveto} def
/ishow0 { 00 iys1 rmoveto iytie /TimesB-ISOL1 FS show 00 iys2 rmoveto} def
/eshow { 00 iys3 rmoveto iytie /TimesB-ISOL1 FS show 00 iys4 rmoveto} def
0 0 0 setrgbcolor
/imaxym 17220 def
/iymax 16700 def
/imaxy0 17000 def
colorm 0 eq deintp 0 eq and {/Txx (d) def} if %3D=0, de=0
colorm 0 eq deintp 1 eq and {/Txx (e) def} if %3D=0, de=1
colorm 1 eq deintp 0 eq and {/Txx (d*) def} if %3D=1, de=0
colorm 1 eq deintp 1 eq and {/Txx (e*) def} if %3D=1, de=1
xchart 0 eq {/Txx (-) def} if
/RGB58M1_F 174 array def %58x3=174
/RGB58M1_F [%rgb data of 48+1 step colour circle + 9 step gray series = 58
1.000 0.000 0.000 %00 R00Y %R
1.000 0.125 0.000 %01 R13Y
1.000 0.250 0.000 %02 R25Y
1.000 0.375 0.000 %03 R38Y
1.000 0.500 0.000 %04 R50Y
1.000 0.625 0.000 %05 R63Y
1.000 0.750 0.000 %06 R75Y
1.000 0.875 0.000 %07 R88Y
1.000 1.000 0.000 %08 Y00G %Y
0.875 1.000 0.000 %09 Y13G
0.750 1.000 0.000 %10 Y25G
0.625 1.000 0.000 %11 Y38G
0.500 1.000 0.000 %12 Y50G
0.375 1.000 0.000 %13 Y63G
0.250 1.000 0.000 %14 Y75G
0.125 1.000 0.000 %15 Y88G
0.000 1.000 0.000 %16 G00C %G
0.000 1.000 0.125 %17 G13C
0.000 1.000 0.250 %18 G25C
0.000 1.000 0.375 %19 G38C
0.000 1.000 0.500 %20 G50C
0.000 1.000 0.625 %21 G63C
0.000 1.000 0.750 %22 G75C
0.000 1.000 0.875 %23 G88C
0.000 1.000 1.000 %24 C00B %C
0.000 0.875 1.000 %25 C13B
0.000 0.750 1.000 %26 C25B
0.000 0.625 1.000 %27 C38B
0.000 0.500 1.000 %28 C50B
0.000 0.375 1.000 %29 C63B
0.000 0.250 1.000 %30 C75B
0.000 0.125 1.000 %31 C88B
0.000 0.000 1.000 %32 B00M %B
0.125 0.000 1.000 %33 B13M
0.250 0.000 1.000 %34 B25M
0.375 0.000 1.000 %35 B38M
0.500 0.000 1.000 %36 B50M
0.625 0.000 1.000 %37 B63M
0.750 0.000 1.000 %38 B75M
0.875 0.000 1.000 %39 B88M
1.000 0.000 1.000 %40 M00R %M
1.000 0.000 0.875 %41 M13R
1.000 0.000 0.750 %42 M25R
1.000 0.000 0.625 %43 M38R
1.000 0.000 0.500 %44 M50R
1.000 0.000 0.375 %45 M63R
1.000 0.000 0.250 %46 M75R
1.000 0.000 0.125 %47 M88R
1.000 0.000 0.000 %48 R00Y %R
0.000 0.000 0.000 %49 N00Wd %ncolors
0.125 0.125 0.125 %50 N13Wd
0.250 0.250 0.250 %51 N25Md
0.375 0.375 0.375 %52 N38Wd
0.500 0.500 0.500 %53 N50Wd
0.625 0.625 0.625 %54 N63Wd
0.750 0.750 0.750 %55 N75Wd
0.875 0.875 0.875 %56 N88Wd
1.000 1.000 1.000 %57 W00Nd = W
] def
/RGB58M1t_F 58 array def %48+1 step colour circle and 9 step grey steps = 58
/RGB58M1t_F [%high chromatic series:
%relative hue h*, brillance i*, and chroma c*
%range 0 ... 100
(R00Y_100_100) (R13Y_100_100) (R25Y_100_100) (R38Y_100_100)
(R50Y_100_100) (R63Y_100_100) (R75Y_100_100) (R88Y_100_100)
(Y00G_100_100) (Y13G_100_100) (Y25G_100_100) (Y38G_100_100)
(Y50G_100_100) (Y63G_100_100) (Y75G_100_100) (Y88G_100_100)
(G00C_100_100) (G13C_100_100) (G25C_100_100) (G38C_100_100)
(G50C_100_100) (G63C_100_100) (G75C_100_100) (G88C_100_100)
(C00B_100_100) (C13B_100_100) (C25B_100_100) (C38B_100_100)
(C50B_100_100) (C63B_100_100) (C75B_100_100) (C88B_100_100)
(B00M_100_100) (B13M_100_100) (B25M_100_100) (B38M_100_100)
(B50M_100_100) (B63M_100_100) (B75M_100_100) (B88M_100_100)
(M00R_100_100) (M13R_100_100) (M25R_100_100) (M38R_100_100)
(M50R_100_100) (M63R_100_100) (M75R_100_100) (M88R_100_100)
(R00Y_100_100)
%gray series
(NW_000) (NW_013) (NW_025) (NW_038)
(NW_050) (NW_063) (NW_075) (NW_088)
(NW_100)
] def
/RGB54CR_F 162 array def %54x3=162
/RGB54CR_F [%54 colours of colour rendering (CR) test chart
1.000 0.000 0.000 %01 R00Yd %RGB54CR
1.000 0.250 0.000 %02 R25Yd
1.000 0.500 0.000 %03 R50Yd
1.000 0.750 0.000 %04 R75Yd
1.000 1.000 0.000 %05 Y00Gd
0.750 1.000 0.000 %06 Y25Gd
0.500 1.000 0.000 %07 Y50Gd
0.250 1.000 0.000 %08 Y75Gd
0.000 1.000 0.000 %09 G00Bd = 10
0.000 1.000 0.000 %10 G00Bd
0.000 1.000 0.500 %11 G25Bd
0.000 1.000 1.000 %12 G50Bd
0.000 0.500 1.000 %13 G75Bd
0.000 0.000 1.000 %14 B00Rd
0.500 0.000 1.000 %15 B25Rd
1.000 0.000 1.000 %16 B50Rd
1.000 0.000 0.500 %17 B75Rd
1.000 0.000 0.000 %18 R00Yd = 01
1.000 0.500 0.500 %19 R00Yd %lcolors
1.000 0.750 0.500 %20 R50Yd
1.000 1.000 0.500 %21 Y00Gd
0.750 1.000 0.500 %22 Y50Gd
0.500 1.000 0.500 %23 G00Bd
0.500 1.000 1.000 %24 G50Bd
0.500 0.500 1.000 %25 B00Rd
1.000 0.500 1.000 %26 B50Rd
1.000 0.500 0.500 %27 R00Yd = 19
0.750 0.250 0.250 %28 R00Yd %zcolors
0.750 0.500 0.250 %29 R50Yd
0.750 0.750 0.250 %30 Y00Gd
0.500 0.750 0.250 %31 Y50Gd
0.250 0.750 0.250 %32 G00Bd
0.250 0.750 0.750 %33 G50Bd
0.250 0.250 0.750 %34 B00Rd
0.750 0.250 0.750 %35 B50Rd
0.750 0.250 0.250 %36 R00Yd = 28
0.500 0.000 0.000 %37 R00Yd %dcolors
0.500 0.250 0.000 %38 R50Yd
0.500 0.500 0.000 %38 Y00Gd
0.250 0.500 0.000 %40 Y50Gd
0.000 0.500 0.000 %41 G00Bd
0.000 0.500 0.500 %42 G50Bd
0.000 0.000 0.500 %43 B00Rd
0.500 0.000 0.500 %44 B50Rd
0.500 0.000 0.000 %45 R00Yd = 37
0.000 0.000 0.000 %46 N00Wd %ncolors
0.125 0.125 0.125 %47 N13Wd
0.250 0.250 0.250 %48 N25Md
0.375 0.375 0.375 %49 N38Wd
0.500 0.500 0.500 %50 N50Wd
0.625 0.625 0.625 %51 N63Wd
0.750 0.750 0.750 %52 N75Wd
0.875 0.875 0.875 %53 N88Wd
1.000 1.000 1.000 %54 W00Nd = W
] def %54 colours of colour rendering test chart
/RGB54CRt_F 54 array def
/RGB54CRt_F [%high chromatic series:
%relative hue h*, brillance i*, and chroma c*, range 0 ... 100
(R00Y_100_100) (R25Y_100_100) (R50Y_100_100) (R75Y_100_100)
(Y00G_100_100) (Y25G_100_100) (Y50G_100_100) (Y75G_100_100)
(G00B_100_100)
(G00B_100_100) (G25B_100_100) (G50B_100_100) (G75B_100_100)
(B00M_100_100) (B25R_100_100) (B50R_100_100) (B75R_100_100)
(R00Y_100_100)
%whitetish series
(R00Y_100_050) (R50Y_100_050) (Y00G_100_050) (Y50G_100_050)
(G00B_100_050) (G50B_100_050) (B00R_100_050) (B50R_100_050)
(R00Y_100_050)
%grayish series
(R00Y_075_050) (R50Y_075_050) (Y00G_075_050) (Y50G_075_050)
(G00B_075_050) (G50B_075_050) (B00R_075_050) (B50R_075_050)
(R00Y_075_050)
%blackish series
(R00Y_050_050) (R50Y_050_050) (Y00G_050_050) (Y50G_050_050)
(G00B_050_050) (G50B_050_050) (B00R_050_050) (B50R_050_050)
(R00Y_050_050)
%gray series
(NW_000) (NW_013) (NW_025) (NW_038)
(NW_050) (NW_063) (NW_075) (NW_088)
(NW_100)
] def
/jCRi 54 array def
/jCRi %jCRi
[ 648 %R00Y_100_100 1.00 0.00 0.00 01 %chromatic 16 step hue
666 %R25Y_100_100 1.00 0.25 0.00 02
684 %R50Y_100_100 1.00 0.50 0.00 03
702 %R75Y_100_100 1.00 0.75 0.00 04
720 %Y00G_100_100 1.00 1.00 0.00 05
558 %Y25G_100_100 0.75 1.00 0.00 06
396 %Y50G_100_100 0.50 1.00 0.00 07
234 %Y75G_100_100 0.25 1.00 0.00 08
072 %G00B_100_100 0.00 1.00 0.00 09=10
072 %G00B_100_100 0.00 1.00 0.00 10 %chromatic 16 step hue
076 %G25B_100_100 0.00 1.00 0.50 11
080 %G50B_100_100 0.00 1.00 1.00 12
044 %G75B_100_100 0.00 0.50 1.00 13
008 %B00R_100_100 0.00 0.00 1.00 14
332 %B25R_100_100 0.50 0.00 1.00 15
656 %B50R_100_100 1.00 0.00 1.00 16
652 %B75R_100_100 1.00 0.00 0.50 17
648 %R00Y_100_100 1.00 0.00 0.00 18=01
688 %R00Y_100_050 1.00 0.50 0.50 19 %whitish 8 step hue
706 %R50Y_100_050 1.00 0.75 0.50 20
724 %Y00G_100_050 1.00 1.00 0.50 21
562 %Y50G_100_050 0.75 1.00 0.50 22
400 %G00B_100_050 0.50 1.00 0.50 23
404 %G50B_100_050 0.50 1.00 1.00 24
368 %B00R_100_050 0.50 0.50 1.00 25
692 %B50R_100_050 1.00 0.50 1.00 26
688 %R00Y_100_050 1.00 0.50 0.50 27=19
506 %R00Y_075_050 0.75 0.25 0.25 28 %greyish 8 step hue
524 %R50Y_075_050 0.75 0.50 0.25 29
542 %Y00G_075_050 0.75 0.75 0.25 30
380 %Y50G_075_050 0.50 0.75 0.25 31
218 %G00B_075_050 0.25 0.75 0.25 32
222 %G50B_075_050 0.25 0.75 0.75 33
186 %B00R_075_050 0.25 0.25 0.75 34
510 %B50R_075_050 0.75 0.25 0.75 35
506 %R00Y_075_050 0.75 0.25 0.25 36=28
324 %R00Y_050_050 0.50 0.00 0.00 37 %blackish 8 step hue
342 %R50Y_050_050 0.50 0.25 0.00 38
360 %Y00G_050_050 0.50 0.50 0.00 39
198 %Y50G_050_050 0.25 0.50 0.00 40
036 %G00B_050_050 0.00 0.50 0.00 41
040 %G50B_050_050 0.00 0.50 0.50 42
004 %B00R_050_050 0.00 0.00 0.50 43
328 %B50R_050_050 0.50 0.00 0.50 44
324 %R00Y_050_050 0.50 0.00 0.00 45=37
000 %NW_000 0.000 0.000 0.000 46 %grey 9 steps
091 %NW_013 0.125 0.125 0.125 47
182 %NW_025 0.250 0.250 0.250 48
273 %NW_038 0.375 0.375 0.375 49
364 %NW_050 0.500 0.500 0.500 50
455 %NW_063 0.625 0.625 0.625 51
546 %NW_075 0.750 0.750 0.750 52
637 %NW_088 0.875 0.875 0.875 53
728 %NW_100 1.000 1.000 1.000 54
] def %END jCRi
/SUMDE*' 0 def
/SUMDE'* 0 def
n1 1 n2 {/n exch def %n=n1,n2
/n30 n 3 mul def /n31 n30 1 add def /n32 n30 2 add def
xchart n00 eq {%48+1=49 step colour circle + 9 gray steps=58 steps
/hcolort RGB58M1t_F n get def
RGB58M1_F n30 get %real
RGB58M1_F n31 get
RGB58M1_F n32 get
} if %48 step colour circle
xchart n01 eq {%45 colour rendering (CR) + 9 grey steps = 54 steps
/hcolort RGB54CRt_F n get def
RGB54CR_F n30 get %real
RGB54CR_F n31 get
RGB54CR_F n32 get
} if %54 colour rendering colours
xchart n02 ge {%1080 standard colours
/hcolort n cvi 6 string cvs def
RGB0_F n30 get 1000 div
RGB0_F n31 get 1000 div
RGB0_F n32 get 1000 div
} if %1080 standard colours
setrgbcolor %default to create data
%setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F"
%3D=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF, ,cmyk*dyF and more
%3D=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more
/r_xF r_dyF def
/g_xF g_dyF def
/b_xF b_dyF def
/i_xF i_dyF def
/c_xF c_dyF def
/t_xF t_dyF def
/r*xF r*dyF def
/g*xF g*dyF def
/b*xF b*dyF def
/LAB*LxF LAB*LdyF def
/LAB*axF LAB*adyF def
/LAB*bxF LAB*bdyF def
/LAB*CxF LAB*adyF dup mul
LAB*bdyF dup mul add 0.0001 add sqrt def
/LAB*hxF LAB*bdyF LAB*adyF 0.0001 add atan def
colorm 0 eq {%3D=0
%prog_rgb_dyF_LAB*'dyF uses rgb_dyF by default
%calculates output data according to IEC 61966-2-1
prog_rgb_dyF_LAB*'dyF
/LAB*'LxF L*'dyF def
/LAB*'axF A*'dyF def
/LAB*'bxF B*'dyF def
/LAB*'CxF C*'dyF def
/LAB*'hxF h*'dyF def
/DE*' LAB*'LxF LAB*LxF sub dup mul
LAB*'axF LAB*axF sub dup mul add
LAB*'bxF LAB*bxF sub dup mul add
0.0001 add sqrt def
/SUMDE*' SUMDE*' DE*' add def
} if %3D=0
colorm 1 eq {%3D=1
/r'*xF r'*dyF def
/g'*xF g'*dyF def
/b'*xF b'*dyF def
%calculates output data according to IEC 61966-2-1
prog_rgb'*dyF_LAB'*dyF
/LAB'*LxF L'*dyF def
/LAB'*axF A'*dyF def
/LAB'*bxF B'*dyF def
/LAB'*CxF C'*dyF def
/LAB'*hxF h'*dyF def
/DE'* LAB'*LxF LAB*LxF sub dup mul
LAB'*axF LAB*axF sub dup mul add
LAB'*bxF LAB*bxF sub dup mul add
0.0001 add sqrt def
/SUMDE'* SUMDE'* DE'* add def
} if %3D=1
/hsi_xF hsiF def
% /c4*F c4*Fa def
% /m4*F m4*Fa def
% /y4*F y4*Fa def
% /n4*F n4*Fa def
/r*xM r*dyM def
/g*xM g*dyM def
/b*xM b*dyM def
/LAB*LxM LAB*LdyM def
/LAB*axM LAB*adyM def
/LAB*bxM LAB*bdyM def
/LAB*CxM LAB*adyM dup mul
LAB*bdyM dup mul add 0.0001 add sqrt def
/LAB*hxM LAB*bdyM LAB*adyM 0.0001 add atan def
/hsi_xM hsiM def
0 setgray
xchart n00 eq {/nx n 8 idiv def
n 49 ge {/nx nx 1 add def} if
n 56 ge {/nx nx 1 sub def} if
} if
xchart n01 eq {/nx n 9 idiv def} if
xchart n02 ge {/nx 0 def} if
/iydn iymax n n1 sub nx add iyd mul sub def
n n1 eq {%n=n1
00050 imaxy0 moveto (n) jshow
xchart n00 eq {(/j) show} if
xchart n01 eq {(/j) show} if
xchart n02 eq {(=j) show} if
00700 imaxy0 moveto (HIC*) bshow (F) ishow0 Txx ishow0
02300 imaxy0 moveto (rgb) jshow (_F) ishow0
Txx ishow0
04200 imaxy0 moveto (ict) jshow (_F) ishow0 Txx ishow0
06100 imaxy0 moveto (h) jshow (si_F,) ishow0 Txx ishow0
06700 imaxym moveto 0 imaxym neg rlineto stroke
06800 imaxy0 moveto (rgb*) jshow (F) ishow0 Txx ishow0
08700 imaxy0 moveto (LabCh*) jshow (F) ishow0
Txx ishow0
12100 imaxym moveto 0 imaxym neg rlineto stroke
colorm 0 eq {%3D=1
12200 imaxy0 moveto (rgb*') jshow
(F) ishow0 Txx ishow0
14100 imaxy0 moveto (LabCh*') jshow (F) ishow0
Txx ishow0
17600 imaxy0 moveto (DE*') jshow (F) ishow0
Txx ishow0
} if %3D=0
colorm 1 eq {%3D=1
12200 imaxy0 moveto (rgb'*) jshow
(F) ishow0 Txx ishow0
14100 imaxy0 moveto (LabCh'*) jshow (F) ishow0
Txx ishow0
17600 imaxy0 moveto (DE'*) jshow (F) ishow0
Txx ishow0
} if %3D=1
% 15100 imaxy0 moveto (cmyn*) jshow (sep,) ishow0
% (F) ishow0 Txx ishow0
18300 imaxy0 moveto (h) jshow (siM,) ishow0 Txx ishow0
18900 imaxym moveto 0 imaxym neg rlineto stroke
19000 imaxy0 moveto (rgb*) jshow (M) ishow0 Txx ishow0
20900 imaxy0 moveto (LabCh*) jshow (M) ishow0
Txx ishow0
() nshow
} if %n=n1
00050 iydn moveto n cvishow
xchart n00 eq {%xchart=n00
n 48 le {%n<=48
(/) show M1jx n get cvishow
}%n<=48
{%n>48
(/) show jCRi n 4 sub get cvishow
} ifelse
} if %xchart=n00
xchart n01 eq {(/) show jCRi n get cvishow} if
00700 iydn moveto hcolort show
Txx ishow0 () nshow
02300 iydn moveto r_xF cvsshow3
02900 iydn moveto g_xF cvsshow3
03500 iydn moveto b_xF cvsshow3
04200 iydn moveto i_xF cvsshow3
04800 iydn moveto c_xF cvsshow3
05400 iydn moveto t_xF cvsshow3
06100 iydn moveto hsi_xF cvishow
06800 iydn moveto r*xF cvsshow3
07400 iydn moveto g*xF cvsshow3
08000 iydn moveto b*xF cvsshow3
08700 iydn moveto LAB*LxF cvsshow1
09400 iydn moveto LAB*axF cvsshow1
10100 iydn moveto LAB*bxF cvsshow1
10800 iydn moveto LAB*CxF cvsshow1
11500 iydn moveto LAB*hxF cvsshow1
colorm 0 eq {%3D=0
12200 iydn moveto r_xF cvsshow3
12800 iydn moveto g_xF cvsshow3
13400 iydn moveto b_xF cvsshow3
14100 iydn moveto LAB*'LxF cvsshow1
14800 iydn moveto LAB*'axF cvsshow1
15500 iydn moveto LAB*'bxF cvsshow1
16200 iydn moveto LAB*'CxF cvsshow1
16900 iydn moveto LAB*'hxF cvsshow1
17600 iydn moveto DE*' cvsshow1
} if %3D=0
colorm 1 eq {%3D=1
12200 iydn moveto r'*xF cvsshow3
12800 iydn moveto g'*xF cvsshow3
13400 iydn moveto b'*xF cvsshow3
14100 iydn moveto LAB'*LxF cvsshow1
14800 iydn moveto LAB'*axF cvsshow1
15500 iydn moveto LAB'*bxF cvsshow1
16200 iydn moveto LAB'*CxF cvsshow1
16900 iydn moveto LAB'*hxF cvsshow1
17600 iydn moveto DE'* cvsshow1
} if %3D=1
18300 iydn moveto hsi_xM cvishow
19000 iydn moveto r*xM cvsshow3
19600 iydn moveto g*xM cvsshow3
20200 iydn moveto b*xM cvsshow3
20900 iydn moveto LAB*LxM cvsshow1
21600 iydn moveto LAB*axM cvsshow1
22300 iydn moveto LAB*bxM cvsshow1
23000 iydn moveto LAB*CxM cvsshow1
23700 iydn moveto LAB*hxM cvsshow1
} for %n=n1,n2
n2 57 eq
n2 53 eq or
n2 80 ge n2 1079 lt and or
n2 1079 eq or {%n2=57,53,80,161,...,1052,1079
/iydn iymax n 1 add n1 sub nx add iyd mul sub def
12500 iydn moveto
lanind 1 eq {(Mean color difference of this page:) bshow} if
lanind 0 eq {(Mitttlere Farbdifferenz dieser Seite: ) bshow} if
16600 iydn moveto (delta ) bshow
colorm 0 eq {(E*' =) jshow}
{(E'* =) jshow} ifelse () bshow
colorm 0 eq {%3D=0
17600 iydn moveto SUMDE*' n2 n1 sub 1 add div cvsshow1
}%3D=0
{%3D=1
17600 iydn moveto SUMDE'* n2 n1 sub 1 add div cvsshow1
} ifelse %3D=1
} if %n2=57,53,80,161, ...,1052,1079
} if %END xchart>xchart3P0
%*************************************************************
%%Trailer
%%EndDocument
EndEPSF grestore gsave
showpage
grestore
%} for %colsep=0,1
%} for %pchart=0,0
} for %xchart=0,1
%} for %xcolor=3,3
} for %de=0,1
} for %3D=0,1
%} for %lanind=0,0
%%Trailer