%!PS-Adobe-3.0 EPSF-3.0 IE280-7X.EPS %%BoundingBox: 00 00 842 595 %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/IE28/) /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 /ColSpxL 1 def /DEintp 1 def %Early binding /sggray where {pop /slgray {sggray} bind def} {/slgray {setgray} bind def} ifelse /sgcmykcolor where {pop /slcmykcolor {sgcmykcolor} bind def} {/slcmykcolor {setcmykcolor} bind def} ifelse /sgrgbcolor where {pop /slrgbcolor {sgrgbcolor} bind def} {/slrgbcolor {setrgbcolor} bind def} ifelse /ColSpxG where {pop /ColSpx {ColSpxG} bind def} {/ColSpx {ColSpxL} bind def} ifelse /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse } forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-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 /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {360 /Times-ISOL1 FS} bind def /TGG {420 /Times-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {285 /TimesI-ISOL1 FS} bind def /TIG {360 /TimesI-ISOL1 FS} bind def /TIGG {420 /TimesI-ISOL1 FS} bind def /TBKX {100 /TimesB-ISOL1 FS} bind def /TBKM {150 /TimesB-ISOL1 FS} bind def /TBKK {200 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {360 /TimesB-ISOL1 FS} bind def /TBGG {420 /TimesB-ISOL1 FS} bind def /TBIKM {150 /TimesBI-ISOL1 FS} bind def /TBIKK {200 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {360 /TimesBI-ISOL1 FS} bind def /TBIGG {420 /TimesBI-ISOL1 FS} bind def /CKK {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBKM {150 /CourierB-ISOL1 FS} bind def /CBKK {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /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 /rem %x0, y0 width heigth {/heigth exch def /width exch def /y0 exch def /x0 exch def x0 width 0.5 mul add y0 heigth 0.5 mul add 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 /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 /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 /outshowf {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /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 15 12 translate 0.01 MM 1.00 mul 1.22 mul dup scale %produces A4-size minus 5 mm; 15 12 translate %1.22/1.05 mul for N-files to fit size of RECS hue circle; %28 MM 18.5 MM add 020 MM 026.5 MM add translate /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 100 faktsc mul 060 moveto (IE280-7) show colorm 0 eq {(X, ) show} {(F, ) show} ifelse xcharti 1 add cvishow 100 0 translate /xbtext 1 def xbtext 1 eq {%xbtext=1 xcharti 0 eq {%xcharti=0 (, It is recommended to place the mask IE270-7X.PDF with 16 holes on top of the 16 ) showen (, Es wird empfohlen, die Maske IG270-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 IE280-7X.PDF for the visual evaluation) showen (\255Bunttonkreises zu plazieren und das Formular IG290-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 whiteness) showen (und Wei\337heit) showde TBIG ( w* ) show TBG (of the 16 offset) showen (der 16) showde TBIG ( RECS) show TBG ( colour samples compared to Black) showen (\255Offsetfarbmuster verglichen mit Schwarz) showde TBIG ( N ) show TBG (and White ) showen (und Wei\337) showde TBIG ( W ) show 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 /ColeiNames 16 array def /ColeiNames [(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 /jton 0 def /fak 36 def 0 setgray TBG /xpos0 4000 def /ypos0 14500 def /xdif0 300 def /ydif0 500 def xpos0 450 sub ypos0 moveto (Evaluation of (mark only one of three possibilities):) showen (Bewertung von (markiere eine von drei M\366glichkeiten):) showde xpos0 ypos0 ydif0 sub moveto (relative blackness) showen (relative Schwarzheit) showde TBIG ( n*) show TBG ( and relative whiteness) showen ( und relative Wei\337heit) showde TBIG ( w*) show TBG xpos0 ypos0 ydif0 2 mul sub moveto (relative blackness) showen (relative Schwarzheit) showde TBIG ( n*) show TBG (and relative chroma) showen (und relative Buntheit) showde TBIG ( c*) show TBG xpos0 ypos0 ydif0 3 mul sub moveto (relative whiteness) showen (relative Wei\337heit) showde TBIG ( w*) show TBG (and relative chroma) showen (und relative Buntheit) showde TBIG ( c*) show TBG newpath xpos0 xdif0 sub ypos0 ydif0 sub 100 add 160 0 360 arc stroke newpath xpos0 xdif0 sub ypos0 ydif0 2 mul sub 100 add 160 0 360 arc stroke newpath xpos0 xdif0 sub ypos0 ydif0 3 mul sub 100 add 160 0 360 arc stroke xpos0 ypos0 ydif0 4 mul sub moveto (example mark) showen (Beispiel Markierung) showde xpos0 xdif0 5 mul add ypos0 ydif0 5 mul sub moveto TBIG (Ostwald) show TBG ( equation:) showen (\255Gleichung:) showde TBIG ( n* + w* + c* ) show TBG (= 1) show newpath xpos0 xdif0 sub ypos0 ydif0 4 mul sub 100 add 160 0 360 arc stroke xpos0 xdif0 sub ypos0 ydif0 4 mul sub 100 add moveto 6 fak mul 6 fak mul rlineto stroke xpos0 xdif0 sub ypos0 ydif0 4 mul sub 100 add moveto -6 fak mul -6 fak mul rlineto stroke xpos0 xdif0 sub ypos0 ydif0 4 mul sub 100 add moveto -6 fak mul 6 fak mul rlineto stroke xpos0 xdif0 sub ypos0 ydif0 4 mul sub 100 add moveto 6 fak mul -6 fak mul rlineto stroke -350 1300 translate /xpos 94 def xpos fak mul 300 sub 200 fak mul 40 fak mul add moveto (Elementary and intermediate hue text) showen (Elementar\255 und Zwischen\255Bunttontext) showde TBIG ( u*) show TBG xpos fak mul 300 sub 200 fak mul 30 fak mul add moveto (according to CIE R1\25547:2009) showen (nach CIE R1\25547:2009) showde TIG /xpos 17 def xpos fak mul 300 sub -02 fak mul 10 fak mul sub moveto (visuelle Bewertung) showde (visual evaluation) showen xpos fak mul 300 sub -02 fak mul 20 fak mul sub moveto (bitte ausf\374llen!) showde (please fill out!) showen TG newpath 0 1 17 {/ix exch def %ix=0,17 /xpos 59 ix 35 mul add def ix 0 eq {/xpos xpos 18 sub def} if ix 16 le {%ix<=15 0.0 0.0 0.0 1.0 setcmykcolor %N newpath xpos fak mul 000 fak mul 15 fak mul add moveto xpos fak mul 000 fak mul 15 fak mul add 15 fak mul 0 360 arc fill ix 1 ge {%ix>=1 newpath TBIG xpos fak mul 300 sub 200 fak mul 15 fak mul add moveto ColeiNames ix 1 sub get show TG xpos fak mul 300 sub -02 fak mul 10 fak mul sub moveto t1 ix 1 sub get show xpos fak mul 300 sub -02 fak mul 20 fak mul sub moveto t2 ix 1 sub get show newpath 0.0 0.0 0.0 0.0 setcmykcolor %W xpos fak mul 000 fak mul 15 fak mul add 07 fak mul 0 360 arc fill } if %ix>=1 newpath 0.0 0.0 0.0 0.0 setcmykcolor %W xpos fak mul 180 fak mul 15 fak mul add 15 fak mul 0 360 arc fill 0.0 0.0 0.0 1.0 setcmykcolor %N xpos fak mul 180 fak mul 15 fak mul add 15 fak mul 0 360 arc stroke } if %ix<=16 ix 17 eq {/xpos xpos 6 sub def} if xpos fak mul 000 fak mul 15 fak mul add moveto 0 180 fak mul rlineto stroke newpath 0 setgray 0 1 10 {/iy exch def %iy=0,10 /ypos 0 15 add iy 18 mul add def xpos fak mul 5 fak mul sub ypos fak mul moveto 10 fak mul 0 rlineto stroke newpath ix 0 eq {xpos fak mul 07 fak mul add ypos fak mul 3 fak mul sub moveto iy 0 eq {10 fak mul 0 rmoveto (1,0) show} if iy 2 eq {(0,8) show} if iy 4 eq {(0,6) show} if iy 6 eq {(0,4) show} if iy 8 eq {(0,2) show} if iy 10 eq {10 fak mul 0 rmoveto (0,0) show} if } if ix 0 eq {xpos fak mul 20 fak mul sub ypos fak mul 3 fak mul sub moveto iy 0 eq {-10 fak mul 0 rmoveto (0,0) show} if iy 2 eq {(0,2) show} if iy 4 eq {(0,4) show} if iy 6 eq {(0,6) show} if iy 8 eq {(0,8) show} if iy 10 eq {-10 fak mul 0 rmoveto (1,0) show} if } if } for %iy=0,10 } for %ix=0,17 13 fak mul 205 fak mul moveto TBIG (w*) show 57 fak mul 205 fak mul moveto TBIG (n*) show 0 setgray /ypos 180 1.0 mul 15 add def xpos fak mul ypos fak mul moveto -6 fak mul -6 fak mul rlineto stroke xpos fak mul ypos fak mul moveto 6 fak mul -6 fak mul rlineto stroke /ypos 180 0.8 mul 15 add def newpath xpos fak mul ypos fak mul 160 0 360 arc stroke newpath xpos fak mul ypos fak mul moveto -6 fak mul -6 fak mul rlineto stroke xpos fak mul ypos fak mul moveto 6 fak mul -6 fak mul rlineto stroke xpos fak mul ypos fak mul moveto -6 fak mul 6 fak mul rlineto stroke xpos fak mul ypos fak mul moveto 6 fak mul 6 fak mul rlineto stroke /ypos 180 0.4 mul 15 add def newpath xpos fak mul ypos fak mul 160 0 360 arc stroke newpath xpos fak mul ypos fak mul moveto -6 fak mul -6 fak mul rlineto stroke xpos fak mul ypos fak mul moveto 6 fak mul -6 fak mul rlineto stroke xpos fak mul ypos fak mul moveto -6 fak mul 6 fak mul rlineto stroke xpos fak mul ypos fak mul moveto 6 fak mul 6 fak mul rlineto stroke /ypos 180 0.0 mul 15 add def xpos fak mul ypos fak mul moveto -6 fak mul 6 fak mul rlineto stroke xpos fak mul ypos fak mul moveto 6 fak mul 6 fak mul rlineto stroke /ypos 180 0.13 mul 15 add def xpos 12 sub fak mul ypos fak mul moveto TBIG (w*) show /ypos 180 0.90 mul 15 add def xpos 12 sub fak mul ypos fak mul moveto TBIG (n*) show /ypos 180 0.63 mul 15 add def xpos 12 sub fak mul ypos fak mul moveto TBIG (c*) show /ypos 180 1.02 mul 15 add def xpos 00 sub fak mul ypos fak mul translate 90 rotate 0 0 moveto TIG (Beispielmarkierung entsprechend Buntbild (rechts)) showde (example marks according to colour figure (right)) showen -90 rotate xpos 00 sub fak mul neg ypos fak mul neg translate 350 -1300 translate 13400 9500 translate /FM16 28 def 0 0 329 FM16 mul 239 FM16 mul 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau 0 5 FM16 mul translate %Schrift Times-Bold-Italic-Gross 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Wei\337 02 FM16 mul 217 FM16 mul moveto TBGG (Elementarbuntton Rot) showde (Elementary hue Red) showen TBIGG ( R) show TBGG (: linear) showen (: lineare) showde 02 FM16 mul 197 FM16 mul moveto TBGG (relation) showen (Beziehung) showde TBIGG ( lab*rgb*) show ( - lab*ncw*) show /xd 04 FM16 mul def /ix0 28 FM16 mul def /iy0 30 FM16 mul def /ya 2 array def /yb 2 array def /yc 2 array def ya 0 150 FM16 mul put ya 1 120 FM16 mul put yb 0 060 FM16 mul put yb 1 060 FM16 mul put yc 0 060 FM16 mul put yc 1 060 FM16 mul put /scolors [ {0.0 0.0 0.0 0.0} {0.4 0.4 0.8 0.2} ] def 1 FM16 mul setlinewidth 0 1 1 {/j exch def % 2 Farbkombinationen OLV TBIK /ix1 ix0 15 FM16 mul add j 130 FM16 mul mul add def /ixd 15 FM16 mul def /ix2 ix1 ixd add def /iy1 iy0 def /iyd ya j get exec def /iy2 iy0 iyd add def ix1 iy1 ixd iyd fcolors 1 get exec j 0 eq {outrecfi2} {outrecfi3} ifelse j 0 eq {ix1 20 FM16 mul add iy2 15 FM16 mul sub moveto} {ix1 0 FM16 mul sub iy2 8 FM16 mul add moveto} ifelse (r*) fcolors 1 get exec outshowf TG 0 -3 FM16 mul rmoveto (3) show 0 3 FM16 mul rmoveto TBIG /ix1 ix0 40 FM16 mul add j 130 mul FM16 mul add def /ix2 ix1 ixd add def /iy1 iy0 def /iyd yb j get exec def /iy2 iy0 iyd add def ix1 iy1 ixd iyd fcolors 3 get exec j 0 eq {outrecfi2} {outrecfi3} ifelse ix1 0 sub iy2 8 FM16 mul add moveto (g*) fcolors 3 get exec outshowf TG 0 -3 FM16 mul rmoveto (3) show 0 3 FM16 mul rmoveto TBIG /ix1 ix0 65 FM16 mul add j 130 FM16 mul mul add def /ix2 ix1 ixd add def /iy1 iy0 def /iyd yc j get exec def /iy2 iy0 iyd add def ix1 iy1 ixd iyd fcolors 5 get exec j 0 eq {outrecfi2} {outrecfi3} ifelse ix1 0 FM16 mul sub iy2 8 FM16 mul add moveto (b*) fcolors 5 get exec outshowf TS 0 -3 FM16 mul rmoveto (3) show 0 3 FM16 mul rmoveto TBIG ix1 50 FM16 mul sub iy0 22 FM16 mul sub moveto 0.0 0.0 0.0 0.0 setcmykcolor TBG j 0 eq {-42 FM16 mul -3 FM16 mul rmoveto %j=0 TBIG (n*) show TBG ( = 1 - ) show TBIG (max) show TBG (\050) show TBIG (rgb*) show TBG (\051;) show } if %j=0 j 1 eq {-36 FM16 mul -3 FM16 mul rmoveto %j=1 TBIG (c*) show TBG ( = ) show TBIG (max) show TBG (\050) show TBIG (rgb*) show TBG (\051 - ) show TBIG (min) show TBG (\050) show TBIG (rgb*) show TBK (\051) show } if %j=1 fcolors 7 get exec setcmykcolor /x1 10 FM16 mul def ix2 x1 add iy0 moveto 0 FM16 mul 150 FM16 mul rlineto stroke ix2 x1 add 2 FM16 mul sub iy0 8 FM16 mul add moveto 2 FM16 mul -8 FM16 mul rlineto 2 FM16 mul 8 FM16 mul rlineto closepath fill ix2 x1 add 2 FM16 mul sub iy0 8 FM16 mul sub 150 FM16 mul add moveto 2 FM16 mul 8 FM16 mul rlineto 2 FM16 mul -8 FM16 mul rlineto closepath fill TBIG j 0 eq {/iya iy0 ya j get exec add def /iyc iy0 yc j get exec add def /itc iy0 yc j get exec add ya j get exec yc j get exec sub 2 idiv add def /itn iy0 ya j get exec add 150 FM16 mul ya j get exec sub 2 idiv add def /itw iy0 yc j get exec 2 idiv add def ix2 x1 add 6 FM16 mul add itc 6 FM16 mul sub moveto (c*) show ix2 x1 add 6 FM16 mul add itw 6 FM16 mul sub moveto (w*) show ix2 x1 add 2 FM16 mul sub iyc 8 FM16 mul add moveto 2 FM16 mul -8 FM16 mul rlineto 2 FM16 mul 8 FM16 mul rlineto closepath fill ix2 x1 add 2 FM16 mul sub iyc 8 FM16 mul sub moveto 2 FM16 mul 8 FM16 mul rlineto 2 FM16 mul -8 FM16 mul rlineto closepath fill } if j 1 eq {/iya iy0 ya j get exec add def /iyb iy0 yb j get exec add def /iyc iy0 yc j get exec add def /itc iy0 yc j get exec add ya j get exec yc j get exec sub 2 idiv add def /itn iy0 ya j get exec add 150 FM16 mul ya j get exec sub 2 idiv add def /itw iy0 yc j get exec 2 idiv add def ix2 x1 add 6 FM16 mul add itn 6 FM16 mul sub moveto (n*) show ix2 x1 add 6 FM16 mul add itc 6 FM16 mul sub moveto (c*) show ix2 x1 add 6 FM16 mul add itw 6 FM16 mul sub moveto (w*) show ix2 x1 add 2 FM16 mul sub iya 8 FM16 mul add moveto 2 FM16 mul -8 FM16 mul rlineto 2 FM16 mul 8 FM16 mul rlineto closepath fill ix2 x1 add 2 FM16 mul sub iya 8 FM16 mul sub moveto 2 FM16 mul 8 FM16 mul rlineto 2 FM16 mul -8 FM16 mul rlineto closepath fill ix2 x1 add 2 FM16 mul sub iyc 8 FM16 mul add moveto 2 FM16 mul -8 FM16 mul rlineto 2 FM16 mul 8 FM16 mul rlineto closepath fill ix2 x1 add 2 FM16 mul sub iyc 8 FM16 mul sub moveto 2 FM16 mul 8 FM16 mul rlineto 2 FM16 mul -8 FM16 mul rlineto closepath fill } if } for /ty [( 0,0) ( 0,2) ( 0,4) ( 0,6) ( 0,8) ( 1,0) ] def /ix0 30 FM16 mul def /iy0 30 FM16 mul def 2 FM16 mul setlinewidth TBG 0 1 5 {/i exch def %y-Achsen-Beschriftung ix0 30 FM16 mul sub iy0 07 FM16 mul sub i 30 FM16 mul mul add moveto ty i get exec show } for TBGG ix0 3 FM16 mul sub iy0 1 FM16 mul sub 273 FM16 mul 2 FM16 mul fcolors 7 get exec colrecfi ix0 1 FM16 mul sub iy0 3 FM16 mul sub 2 FM16 mul 153 FM16 mul fcolors 7 get exec colrecfi ix0 3 FM16 mul sub iy0 1 FM16 mul sub 150 FM16 mul add 273 FM16 mul 2 FM16 mul fcolors 7 get exec colrecfi 0 30 150 {/iyd exch def ix0 4 FM16 mul sub iy0 1 FM16 mul sub iyd FM16 mul add 8 FM16 mul 2 FM16 mul fcolors 07 get exec colrecfi } for %Schleife iyd -13400 -9500 translate -100 0 translate showpage %%Trailer