%!PS-Adobe-3.0 EPSF-3.0 IE130-3A.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/IE13/) /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 050 050 translate 100 faktsc mul 100 moveto /xbtex0 0 def xbtex0 1 eq {%xbtex0=1 (IE130-7) show colorm 0 eq {(X, ) show} {(F, ) show} ifelse xcharti 1 add cvishow } if %xbtex0=1 /xbtext 1 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 IE130-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 2 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 {(IE130-) show} {(IE131-) 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