%!PS-Adobe-3.0 EPSF-3.0 IE140-2A.EPS
%%BoundingBox: 70 85 226 206
%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/IE14/)
/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:2009090112000)
/ModDate (D:2009090112000)
/DOCINFO pdfmark07
[ /View [ /FitB ]
/DOCVIEW pdfmark07
%END PDFDE011
% !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 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {285 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def
/tolvfcol %Farbkreis-Reihenfolge
[ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF)
(777) (700) (770) (070) (077) (007) (707) (F07) %15=R
(333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B
(BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G
] def
/tcmyfcol %Farbkreis-Reihenfolge
[ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000)
(888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R
(CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B
(444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G
] def
/tcmykfcol %Farbkreis-Reihenfolge
[ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000)
(0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R
(000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B
(0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G
] def
/tolvfcols %Farbkreis-Reihenfolge
[ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*)
(777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R
(333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B
(BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G
] def
/tcmyfcols %Farbkreis-Reihenfolge
[ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*)
(888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R
(CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B
(444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G
] def
/tcmykfcols %Farbkreis-Reihenfolge
[ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*)
(0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R
(000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B
(0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G
] def
/fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge
[{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0}
{1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0}
{0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5}
{1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0}
{0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0}
{0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0}
{0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0}
{1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0}
] def
/fak 0.5 def
/Far %Farbkreis-Reihenfolge
[ 0 1 2 3 4 5 6 7
8 9 10 11 12 13 14 15 %R
16 17 18 19 20 21 22 23 %B
24 25 26 27 28 29 30 31 %G
] def
/cFar %Kompensativ-Farbkreis-Reihenfolge
[ 8 4 5 6 1 2 3 0
0 20 21 22 17 18 19 31 %G
24 12 13 14 9 10 11 2 %J
16 28 29 30 25 26 27 15 %R
] def
/Btx %Farbkreis- -> %Btx-Reihenfolge
[ 0 1 3 2 5 6 4 7
8 9 11 10 13 14 12 15 %R
16 17 19 18 21 22 20 23 %B
24 25 26 27 28 29 30 31 %G
] def
/cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge
[ 7 4 6 5 2 3 1 0
8 20 22 21 18 19 17 31 %G
24 12 14 13 10 11 9 2 %J
16 25 26 27 28 29 30 15 %R
] def
/rec %x, y width heigth
{/heigth exch def /width exch def
moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
/colrecfi %x y width heigth c m y k
{setcmykcolor rec fill} bind def
/colrecst %x y width heigth c m y k
{setcmykcolor rec stroke} bind def
/tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzl {1.0 0.0 1.0 0.0} bind def
/tzv {1.0 1.0 0.0 0.0} bind def
/tzc {1.0 0.0 0.0 0.0} bind def
/tzm {0.0 1.0 0.0 0.0} bind def
/tzy {0.0 0.0 1.0 0.0} bind def
/tzn {0.0 0.0 0.0 1.00} bind def %Graureihe
/tzd {0.0 0.0 0.0 0.75} bind def
/tzz {0.0 0.0 0.0 0.50} bind def
/tzh {0.0 0.0 0.0 0.25} bind def
/tzw {0.0 0.0 0.0 0.00} bind def
/tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben
/tzg {1.0 0.0 0.5 0.0} bind def
/tzb {1.0 0.5 0.0 0.0} bind def
/tzj {0.0 0.0 1.0 0.0} bind def
/tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut
/tzgz {1.0 0.0 0.5 0.5} bind def
/tzbz {1.0 0.5 0.0 0.5} bind def
/tzjz {0.0 0.0 1.0 0.5} bind def
/tfo {tzo setcmykcolor} bind def
/tfl {tzl setcmykcolor} bind def
/tfv {tzv setcmykcolor} bind def
/tfc {tzc setcmykcolor} bind def
/tfm {tzm setcmykcolor} bind def
/tfy {tzy setcmykcolor} bind def
/tfn {tzn setcmykcolor} bind def
/tfd {tzd setcmykcolor} bind def
/tfz {tzz setcmykcolor} bind def
/tfh {tzh setcmykcolor} bind def
/tfw {tzw setcmykcolor} bind def
/tfr {tzr setcmykcolor} bind def
/tfg {tzg setcmykcolor} bind def
/tfb {tzb setcmykcolor} bind def
/tfj {tzj setcmykcolor} bind def
/tfrz {tzrz setcmykcolor} bind def
/tfgz {tzgz setcmykcolor} bind def
/tfbz {tzbz setcmykcolor} bind def
/tfjz {tzjz setcmykcolor} bind def
/cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse
cvi 6 string cvs show} def
/cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse
10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse
100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse
1000 mul cvi 0.001 mul 7 string cvs show} def
%%EndProlog
/cviht {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def
/cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse
cvi 6 string cvs show} def
/cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse
10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse
100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse
1000 mul cvi 0.001 mul 7 string cvs show} def
/A4quer {598 0 tl 90 rotate} def
%%ENDProlog
gsave
/lanind 0 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm {6 lanind eq {show} {pop} ifelse} bind def
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
{/lanind1 1 def /lanind2 1 def} ifelse
/colormg where {pop /colorm1 colormg def /colorm2 colormg def}
{/colorm1 0 def /colorm2 0 def} ifelse
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def}
{/xcolor1 0 def /xcolor2 0 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def}
{/xchart1 0 def /xchart2 0 def} ifelse
/lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage
/xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage
/GSS$ where {pop /LSS$ GSS$ def}
{/LSS$ (1) def} ifelse
/GSC$ where {pop /LSC$ GSC$ def}
{/LSC$ (N) def} ifelse
/GSX$ where {pop /LSX$ GSX$ def}
{/LSX$ (0) def} ifelse
/GSY$ where {pop /LSY$ GSY$ def}
{/LSY$ (0) def} ifelse
/GEX$ where {pop /LEX$ GEX$ def}
{/LEX$ (P.PS./PDF) def} ifelse
/GEY$ where {pop /LEY$ GEY$ def}
{/LEY$ (P.DAT) def} ifelse
/IMES where {pop %/IMES IMES def
}
{/IMES 0 def} ifelse
/xchartg where {pop /xchartx xchartg def} {/xchartx 0 def} ifelse
/colormg where {pop /colorm colormg def} {/colorm 0 def} ifelse
/xcharti xchartx def
/ibild 1 def
0 setgray
gsave
72 90 translate
0.01 MM 1.00 mul 1.00 mul dup scale %produces A4-size minus 5 mm; 15 12 transla
%1.22/1.05 mul for N-files to fit size of R
%28 MM 18.5 MM add 020 MM 026.5 MM add tran
/faktsc 1.0 def %/faktsc 3.0 def
20 setlinewidth
1 setgray
0 0 moveto
/xwidth 23500 def
/ywidth 16500 def
xwidth faktsc mul 0 rlineto 0 ywidth faktsc mul rlineto
xwidth faktsc mul neg 0 rlineto closepath fill
0 setgray
0 0 moveto
xwidth faktsc mul 0 rlineto 0 ywidth faktsc mul rlineto
xwidth faktsc mul neg 0 rlineto closepath stroke
TK
0 setgray
/xbtex0 0 def
xbtex0 1 eq {%xbtex0=1
100 faktsc mul 100 moveto
(IE140-7) show colorm 0 eq {(X, ) show} {(F, ) show} ifelse
xcharti 1 add cvishow
} if %xbtex0=1
050 050 translate
/xbtext 0 def
xbtext 1 eq {%xbtext=1
xcharti 0 eq {%xcharti=0
(, It is recommended to place the mask IE120-7X.PDF with 16 holes on top of the 16 ) showen
(, Es wird empfohlen, die Maske IG120-7X.PDF mit 16 L\366chern auf die 16) showde
( colour samples of the) showen
( Farbmuster des) showde
TIK ( RECS) show TK
( hue circle and to use the form IE140-7X.PDF for the visual evaluation) showen
(\255Bunttonkreises zu plazieren und das Formular IG140-7X.PDF zur visuellen Beurteilung zu benutzen) showde
} if %xcharti=0
} if %xbtext=1
/xchart 0 def
/xframe 0 def
xframe 1 eq {%xframe=1
-300 ywidth 150 add moveto
TBG (CIE TC1-63: Experimental mark of relative blackness) showen
(CIE TC1-63: Experimentelle Markierung relative Schwarzheit) showde
TBIG ( n* ) show
TBG (and chroma) showen
(und Buntheit) showde
TBIG ( c* ) show
TBG (of the 16 offset) showen
(der 16) showde
TBIG ( RECS) show
TBG ( colour samples compared to the colour) showen
(\255Offsetfarbmuster verglichen mit den Farben) showde
TBIG ( X ) show
TBG (of ) showen (von ) showde
TBIG (c*) show
TBG (=1 and ) showen (=1 und ) showde
TBIG (n*) show
TBG (=0) showen (=0) showde
0100 -300 moveto
TM (Observer name (optional):...) showen
(Beobachtername (optional):...) showde
5000 -300 moveto
TM (Normal Colour Vision (Yes/No)?) showen
(Normales Farbensehen (Ja/Nein)?) showde
9300 -300 moveto
TM (Male O, Female O (mark), Age:...) showen
(m\344nnlich O, weiblich O, Alter: ...) showde
14000 -300 moveto
TM (Country and Date:...) showen
(Land und Datum:...) showde
18000 -300 moveto
TM (Illumination ID65 (Yes/No)?, other ...) showen
(Lichtart ID65 (Ja/Nein)?, andere ...) showde
-350 ywidth moveto
-90 rotate
TIM
(Please copy this form for experimental results of many observers; ) showen
(Bitte dieses Formular f\374r Experimente von vielen Beochtern kopieren; ) showde
TIM
(recommended illuminant: north sky, approximately ID65 according to CIE 184) showen
(empfohlene Lichtart: n\366rdlicher Himmel; angen\344hert ID65 nach CIE 184) showde
90 rotate
xwidth ywidth moveto
-90 rotate
TIM
(Please send the filled out form and questions to:) showen
(Bitte dieses ausgef\374llte Formular und Fragen senden an:) showde
TM ( Klaus Richter, Walterhoeferstr. 44, 14165 Berlin, Germany, klaus.richter@mac.com) show
90 rotate
} if %xframe=1
%00 1 15 {/xchart exch def %xchart=0,15
/fakt 0.95 def
/xchartl 1 def
20 setlinewidth
% xchartl 0 eq { 100 fakt mul 13300 fakt mul translate} if
% xchartl 1 eq { 6100 fakt mul 13300 fakt mul translate} if
% xchartl 2 eq { 100 fakt mul 09050 fakt mul translate} if
% xchartl 3 eq { 6100 fakt mul 09050 fakt mul translate} if
% xchartl 4 eq { 100 fakt mul 4800 fakt mul translate} if
% xchartl 5 eq { 6100 fakt mul 4800 fakt mul translate} if
% xchartl 6 eq { 100 fakt mul 0550 fakt mul translate} if
% xchartl 7 eq { 6100 fakt mul 0550 fakt mul translate} if
% xchartl 8 eq {13400 fakt mul 13300 fakt mul translate} if
% xchartl 9 eq {19400 fakt mul 13300 fakt mul translate} if
% xchartl 10 eq {13400 fakt mul 09050 fakt mul translate} if
% xchartl 11 eq {19400 fakt mul 09050 fakt mul translate} if
% xchartl 12 eq {13400 fakt mul 4800 fakt mul translate} if
% xchartl 13 eq {19400 fakt mul 4800 fakt mul translate} if
% xchartl 14 eq {13400 fakt mul 0550 fakt mul translate} if
% xchartl 15 eq {19400 fakt mul 0550 fakt mul translate} if
0 setgray
150 /Times-ISOL1 FS
3800 -220 moveto
xchartl 7 le {(IE140-) show}
{(IE141-) show} ifelse
xchartl 0 ge xchartl 7 le and {xchartl 1 add cvishow} if
xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if
(A ) show
xchartl 7 le {/ibil 0 def /iton xchartl def}
{/ibil 1 def /iton xchartl 8 sub def} ifelse
/FM 16.67 def
0 0 320 FM mul 240 FM mul 0.0 0.0 0.0 1.0 colrecst %Rechteck Mittelgrau
0.0 0.0 0.0 1.0 setcmykcolor %Schrift Weiss
150 FM mul 22 FM mul moveto
TBK (relative chroma) showen (Buntheit) showde TBIK ( c*) show
15 FM mul 185 FM mul moveto (t*) show
48 FM mul 11 FM mul moveto (N) show
298 FM mul 112 FM mul moveto (X) show
44 FM mul 212 FM mul moveto (W) show
130 FM mul 220 FM mul moveto
TBK (relative Schwarzheit) showde (relative blackness) showen
TBIK ( n*) show
130 FM mul 200 FM mul moveto
TBK (relative Buntheit) showde (relative chroma) showen
TBIK ( c*) show
0 setgray
0 1 10 {/i exch def %i=0,10
i 5 eq i 0 eq or {2} {1} ifelse FM mul setlinewidth
/xi 80 i 20 mul add FM mul def
/yi0 020 i 10 mul add FM mul def
/yi1 220 i 10 mul sub FM mul def
xi yi0 moveto xi yi1 lineto stroke
} for %i=0,10
0 1 10 {/i exch def %i=0,10
i 5 eq i 0 eq or {2} {1} ifelse FM mul setlinewidth
/xi0 80 FM mul def
/xi1 280 20 i mul sub FM mul def
/yi0 220 i 20 mul sub FM mul def
/yi1 120 i 10 mul sub FM mul def
xi0 yi0 moveto xi1 yi1 lineto stroke
} for %i=0,10
2 FM mul setlinewidth
53 FM mul 110 FM mul moveto TBIK (n*) show
60 FM mul 130 FM mul moveto 0 20 FM mul rlineto stroke
56 FM mul 140 FM mul moveto 4 FM mul -10 FM mul rlineto
4 FM mul 10 FM mul rlineto stroke %for n*
0.0 0.0 0.0 1.0 setcmykcolor %Linien Weiss
260 FM mul 15 FM mul moveto 305 FM mul 15 FM mul lineto
295 FM mul 10 FM mul lineto 305 FM mul 15 FM mul lineto
295 FM mul 20 FM mul lineto stroke
10 FM mul 180 FM mul moveto 10 FM mul 230 FM mul lineto
5 FM mul 220 FM mul lineto 10 FM mul 230 FM mul lineto
15 FM mul 220 FM mul lineto stroke
0.0 0.0 0.0 1.0 setcmykcolor %Linien Weiss
80 FM mul 20 FM mul moveto
280 FM mul 120 FM mul lineto
80 FM mul 220 FM mul lineto closepath stroke
220 FM mul 65 FM mul moveto 20 FM mul 10 FM mul rlineto stroke
230 FM mul 65 FM mul moveto -10 FM mul 0 FM mul rlineto
7 FM mul 08 FM mul rlineto stroke
190 FM mul 50 FM mul moveto TBIK (n*) show
newpath
0.0 0.0 0.0 1.0 setcmykcolor %N
065 15 add FM mul 005 15 add FM mul 15 FM mul 0 360 arc fill
newpath
0.0 0.0 0.0 0.0 setcmykcolor %W
065 15 add FM mul 205 15 add FM mul 15 FM mul 0 360 arc fill
0.0 0.0 0.0 1.0 setcmykcolor %W
065 15 add FM mul 205 15 add FM mul 15 FM mul 0 360 arc stroke
newpath
0.0 0.0 0.0 0.0 setcmykcolor %X
265 15 add FM mul 105 15 add FM mul 15 FM mul 0 360 arc fill
0.0 0.0 0.0 1.0 setcmykcolor %W
265 15 add FM mul 105 15 add FM mul 15 FM mul 0 360 arc stroke
TBK
265 10 add FM mul 105 10 add FM mul moveto (?) show
/tx [(r00j) (r25j) (r50j) (r75j)
(j00g) (j25g) (j50g) (j75g)
(g00b) (g25b) (g50b) (g75b)
(b00r) (b25r) (b50r) (b75r)] def
/t1 [(r . . j) (0,25?) (0,50?) (0,75?)
(j . . g) (0,25?) (0,50?) (0,75?)
(g . . b) (0,25?) (0,50?) (0,75?)
(b . . r) (0,25?) (0,50?) (0,75?)] def
/t2 [(b . . r) (0, . . ) (0, . . ) (0, . . )
(r . . j) (0, . . ) (0, . . ) (0, . . )
(j . . g) (0, . . ) (0, . . ) (0, . . )
(g . . b) (0, . . ) (0, . . ) (0, . . )] def
0 setgray
TBK
02 FM mul 90 FM mul moveto (hue:) showen (Buntton:) showde
02 FM mul 70 FM mul moveto (CIE: ) show TBIK tx xchartl get show TBK
02 FM mul 50 FM mul moveto (visual:) showen (visuell:) showde
xchartl xchartl 4 idiv 4 mul eq {TBIK}{TBK} ifelse
04 FM mul 30 FM mul moveto t1 xchartl get show
04 FM mul 10 FM mul moveto t2 xchartl get show
TBK
0 setgray
187 FM mul 175 FM mul moveto (example mark) showen
(Beispielmarke) showde
0 setgray
newpath
280 FM mul 155 FM mul 8 FM mul 0 360 arc stroke
280 FM mul 155 FM mul moveto 0 15 FM mul rlineto stroke
280 FM mul 155 FM mul moveto 0 -15 FM mul rlineto stroke
280 FM mul 155 FM mul moveto -15 FM mul 7.5 FM mul rlineto stroke
280 FM mul 155 FM mul moveto 15 FM mul -7.5 FM mul rlineto stroke
% xchartl 0 eq { 100 fakt mul neg 13300 fakt mul neg translate} if
% xchartl 1 eq { 6100 fakt mul neg 13300 fakt mul neg translate} if
% xchartl 2 eq { 100 fakt mul neg 09050 fakt mul neg translate} if
% xchartl 3 eq { 6100 fakt mul neg 09050 fakt mul neg translate} if
% xchartl 4 eq { 100 fakt mul neg 4800 fakt mul neg translate} if
% xchartl 5 eq { 6100 fakt mul neg 4800 fakt mul neg translate} if
% xchartl 6 eq { 100 fakt mul neg 0550 fakt mul neg translate} if
% xchartl 7 eq { 6100 fakt mul neg 0550 fakt mul neg translate} if
% xchartl 8 eq {13400 fakt mul neg 13300 fakt mul neg translate} if
% xchartl 9 eq {19400 fakt mul neg 13300 fakt mul neg translate} if
% xchartl 10 eq {13400 fakt mul neg 09050 fakt mul neg translate} if
% xchartl 11 eq {19400 fakt mul neg 09050 fakt mul neg translate} if
% xchartl 12 eq {13400 fakt mul neg 4800 fakt mul neg translate} if
% xchartl 13 eq {19400 fakt mul neg 4800 fakt mul neg translate} if
% xchartl 14 eq {13400 fakt mul neg 0550 fakt mul neg translate} if
% xchartl 15 eq {19400 fakt mul neg 0550 fakt mul neg translate} if
%} for %xchart=0,15
showpage
grestore
%%Trailer