%!PS-Adobe-3.0 EPSF-3.0 ggr20-1n %%BoundingBox: 70 80 800 208 %START PDFDE011.EPS /pdfmark01 where {pop} {userdict /pdfmark01 /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: farbe.li.tu-berlin.de/ggr2/ggr2.htm) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2024060112200) /ModDate (D:20240601112200) /DOCINFO pdfmark01 [ /View [ /Fit ] /DOCVIEW pdfmark01 %END PDFDE011 %BEG Di07 /indexDi 00 def %END Di07 /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-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /CBKK {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /CBKKK {160 /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 /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def /cvsshow1g {/nxx exch def %example nxx=99,1/99,0 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2g {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3g {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def /tfw {1 setgray} def /tfn {0 setgray} def /tfo {1 0 0 setrgbcolor} def /tfl {0 1 0 setrgbcolor} def /tfv {0 0 1 setrgbcolor} def /tfc {0 1 1 setrgbcolor} def /tfm {1 0 1 setrgbcolor} def /tfy {1 1 0 setrgbcolor} 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 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage 0 setgray /xchart 0 def /pchart 0 def /ifarb 0 def %0_6:W-NRGBCMYn %7_9:RGB_W, default 0:W /greu 0.5 def /expu 1.0 def %0:1.0, 1:2.0 2:0.5 3:1.5 surround U colour /expa 1.0 def %0:1.0, 1:2.0 2:0.5 3:1.5 all colours %/ufield 1 def %0:N, 1:U, 2:W %/utexte 1 def %0:ohne, 1:mit utexte %/surrou 0 def %0:mean grey, 1:dark grey, 2:light grey 72 90 translate 0.01 MM dup scale 20 setlinewidth /ydm 400 def %with larger grey frame greu expu exp setgray 0 ydm neg moveto 25400 0 rlineto 0 4000 ydm add rlineto -25400 0 rlineto closepath fill 0.0 setgray 0 0 moveto 25400 0 rlineto 0 4000 rlineto -25400 0 rlineto closepath stroke %ufield 0 eq {0.5 setgray /tnw {tfw} def} if %ufield 1 eq {0.0 setgray /tnw {tfw} def} if %ufield 2 eq {1.0 setgray /tnw {tfn} def} if %not realized yet %25400 1800 sub 0 moveto 1800 0 rlineto 0 4000 rlineto % -1800 0 rlineto closepath fill expu 1 ge {/tfnw {tfw} def} {/tfnw {tfn} def} ifelse tfnw 200 /Times-Roman FS 100 -200 moveto (ggr20-1n, ) show 200 /Times-ISOL1 FS xchart 0 eq {(Pr\374fmuster: ) showde (Test samples: ) showen} {(Bewertungsbogen: ) showde (Evaluation sheet: ) showen} ifelse (3, 5 und 9 Farbstufen) showde (3, 5 and 9 colour steps) showen (, greu=) show greu cvsshow3g (, expu=) show expu cvsshow3g (, expa=) show expa cvsshow3g %%%%%%%%%%% oberer Schriftzug %%%%%%%%%%%%%%%% /xshift 1100 1100 sub def /fatr 0 def /x0 00100 def /x1 03000 xshift sub def %delta=5600 /x2 x1 6.0 1400 mul add def /x00 00400 def /x01 05000 def /x02 12400 def /xt 400 200 add def /yte 100 def /y00t 150 def /y01t 450 def /sd 1400 def /sd0 000 def /dd0 270 def /sda 0200 def /colte1g [%ifarb=0,9 (Schwarz N00w - Schwarz N16w = Wei\337 W) (Schwarz N00r - Schwarz N16r = Rot R) (Schwarz N00g - Schwarz N16g = Gr\374n G) (Schwarz N00b - Schwarz N16b = Blau B) (Schwarz N00c - Schwarz N16c = Cyan C) (Schwarz N00m - Schwarz N16m = Magenta M) (Schwarz N00y - Schwarz N16y = Gelb Y) (Rot R00w - Rot R16w = Wei\337 W) (Gr\374n G00w - G\374n G16w = Wei\337 W) (Blau B00w - Blau B16w = Wei\337 W) (Cyan C00w - Cyan C16w = Wei\337 W) (Magenta M00w - Magenta M16w = Wei\337 W) (Gelb Y00w - Gelb Y16w = Wei\337 W) ] def /colte1e [%ifarb=0,9 (Black N00w - Black N16w = White W) (Black N00r - Black N16r = Red R) (Black N00g - Black N16g = Green G) (Black N00b - Black N16b = Blue B) (Black N00c - Black N16c = Cyan C) (Black N00m - Black N16m = Magenta M) (Black N00y - Black N16y = Yellow Y) (Red R00w - Red R16w = White W) (Green G00w - Green G16w = White W) (Blue B00w - Blue B16w = White W) (Cyan C00w - Cyan C16w = White W) (Magenta M00w - Magenta M16w = White W) (Gelb Y00w - Gelb Y16w = White W) ] def TBG /x02t 9500 def /y02t 3400 def 00200 y02t moveto (Drei, 5 und 9 Farbstufen) showde (Three, 5 and 9 colour steps) showen pchart 0 eq {( f\374r visuelle Beurteilung) showde ( for visual evaluation) showen} if pchart 1 eq {(, numerische Kennzeichnung) showde (, numeric specification) showen} if pchart 2 eq {(, numerische Berechnung) showde (, numeric calculation) showen} if pchart 3 eq {(, numerisches Berechnungsbeispiel) showde (, numeric calculation example) showen} if x02t y02t moveto colte1g ifarb get showde colte1e ifarb get showen x02t y02t moveto colte1g ifarb get showde colte1e ifarb get showen %0 1 2 3 4 5 6 7 8 /colort [ (N00w)(N02w)(N04w)(N06w)(N08w)(N10w)(N12w)(N14w)(N16w) (N00r)(N02r)(N04r)(N06r)(N08r)(N10r)(N12r)(N14r)(N16r) (N00g)(N02g)(N04g)(N06g)(N08g)(N10g)(N12g)(N14g)(N16g) (N00b)(N02b)(N04b)(N06b)(N08b)(N10b)(N12b)(N14b)(N16b) (N00c)(N02c)(N04c)(N06c)(N08c)(N10c)(N12c)(N14c)(N16c) (N00m)(N02m)(N04m)(N06m)(N08m)(N10m)(N12m)(N14m)(N16m) (N00y)(N02y)(N04y)(N06y)(N08y)(N10y)(N12y)(N14y)(N16y) (R00w)(R02w)(R04w)(R06w)(R08w)(R10w)(R12w)(R14w)(R16w) (G00w)(G02w)(G04w)(G06w)(G08w)(G10w)(G12w)(G14w)(G16w) (B00w)(B02w)(B04w)(B06w)(B08w)(B10w)(B12w)(B14w)(B16w) (C00w)(C02w)(C04w)(C06w)(C08w)(C10w)(C12w)(C14w)(C16w) (M00w)(M02w)(M04w)(M06w)(M08w)(M10w)(M12w)(M14w)(M16w) (Y00w)(Y02w)(Y04w)(Y06w)(Y08w)(Y10w)(Y12w)(Y14w)(Y16w)] def /y00t 0100 def /y01t 1600 def TBG 0 4 8 {/i exch def %i=0,4,8 tfnw x00 sd0 add sd i mul 4 div add dd0 add y01t moveto colort ifarb 9 mul i add get show } for %i=0,4,8 %grey surround % x0 sd0 add sd 10 mul 4 div add dd0 add y01t moveto % surrou 0 eq {(N08w) show} if % surrou 1 eq {(N04w) show} if % surrou 2 eq {(N12w) show} if 0 2 8 {/i exch def %i=0,2,8 tfnw i 4 eq {tfl} if x01 sd0 add sd i mul 2 div add dd0 add y01t moveto colort ifarb 9 mul i add get show } for %i=0,2,8 %grey surround % x01 sd0 add sd 10 mul 2 div add dd0 add y01t moveto % surrou 0 eq {(N08w) show} if % surrou 1 eq {(N04w) show} if % surrou 2 eq {(N12w) show} if 0 1 8 {/i exch def %i=0,1,8 tfnw i 2 eq i 4 eq or i 6 eq or {tfl} if x02 sd0 add sd i mul add dd0 add y01t moveto colort ifarb 9 mul i add get show } for %i=0,1,8 % 0 1 2 3 4 5 6 7 8 /L*TUBLOG [( 0)( 12)( 25)( 37)( 50)( 62)( 75)( 87)( 100)] def % 0 1 2 3 4 5 6 7 8 /tquest3 [(0,00)(0,5?)(1,00)] def /tquest5 [(0,00)(0,5?)(1 / 0)(0,5?)(1,00)] def /tquest9 [(0,00)(0,5?)(1 / 0)(0,5?)(1 / 0)(0,5?)(1 / 0)(0,5?)(1,00) ] def TBG /sd2 200 def 1 1 0 setrgbcolor 0 4 8 {/i exch def %i=0,4,8 x00 sd0 add sd i mul 4 div add dd0 add y00t moveto pchart 1 eq {tquest3 i 4 idiv get show} {L*TUBLOG i get show} ifelse %pchart=1 } for %i=0,4,8 0 2 8 {/i exch def %i=0,2,8 x01 sd0 add sd i mul 2 div add dd0 add y00t moveto pchart 1 eq {tquest5 i 2 idiv get show} {L*TUBLOG i get show} ifelse %pchart=1 } for %i=0,2,8 %grey surround % x01 sd0 add sd 10 mul 2 div add dd0 add y00t moveto % surrou 0 eq {( 50) show} if % surrou 1 eq {( 25) show} if % surrou 2 eq {( 75) show} if 0 1 8 {/i exch def %i=0,1,8 x02 sd0 add sd i mul add dd0 add y00t moveto pchart 1 eq {tquest9 i get show} {L*TUBLOG i get show} ifelse %pchart=1 } for %i=0,1,8 %xchart 0 eq {%xchart=0 % 1 1 0 setrgbcolor % 100 y00t moveto % TBIG % (L*) show % 0 -80 rmoveto TBM (TUBLOG) show 0 80 rmoveto % } if %xchart=0 tfw %xchart 0 eq {%xchart=0 % tfw % 100 2850 moveto % (sich be\255) showde % (adjacent) showen % 100 2550 moveto % (r\374hrende) showde % (samples) showen % 100 2250 moveto % (Muster) showde % 100 1250 moveto % (separate) showde % (separate) showen % 100 0950 moveto % (Muster) showde % (samples) showen % } if %xchart=0 %xchart 1 eq {%xchart=1 % tfw % 100 2900 moveto % TBIG % (Beurteilung:) showde % (Evaluation:) showen % 100 2600 moveto % TBG % (anteil) showde % (Amount) showen % % 100 1250 moveto % TBIG % (Beurteilung:) showde % (Evaluation:) showen % 100 0950 moveto % TBG % (anteil) showde % (Amount) showen % %} if %xchart=1 %x0t neg y0t neg translate %x1t y1t translate /cvs1 {10 mul cvi 0.1 mul 7 string cvs} def /rgb 9 array def 0 1 8 {/i exch def %i=0,8 /id8 0.125 i mul def rgb i id8 expa exp put } for %i=0,8 /cvishow {cvi 6 string cvs show} def TBM tfnw x02t 3600 y00t add moveto 0 1 8 {/i exch def %i=0,8 rgb i get 1000 mul cvishow i 7 le {(, ) show} if } for %i=0,8 ifarb 0 eq {%ifarb=0 N_W /colors2 [{rgb 0 get rgb 0 get rgb 0 get} {rgb 1 get rgb 1 get rgb 1 get} {rgb 2 get rgb 2 get rgb 2 get} {rgb 3 get rgb 3 get rgb 3 get} {rgb 4 get rgb 4 get rgb 4 get} {rgb 5 get rgb 5 get rgb 5 get} {rgb 6 get rgb 6 get rgb 6 get} {rgb 7 get rgb 7 get rgb 7 get} {rgb 8 get rgb 8 get rgb 8 get}]def %N00w_02w_04w_06w_08w_10w_12w_14w_16w=W } if %ifarb=0 ifarb 1 eq {%ifarb=1 N_R /colors2 [{rgb 0 get rgb 0 get rgb 0 get} {rgb 1 get rgb 0 get rgb 0 get} {rgb 2 get rgb 0 get rgb 0 get} {rgb 3 get rgb 0 get rgb 0 get} {rgb 4 get rgb 0 get rgb 0 get} {rgb 5 get rgb 0 get rgb 0 get} {rgb 6 get rgb 0 get rgb 0 get} {rgb 7 get rgb 0 get rgb 0 get} {rgb 8 get rgb 0 get rgb 0 get}]def %N00r_02r_04r_06r_08r_10r_12r_14r_16r=R } if %ifarb=1 ifarb 2 eq {%ifarb=2 N_G /colors2 [{rgb 0 get rgb 0 get rgb 0 get} {rgb 0 get rgb 1 get rgb 0 get} {rgb 0 get rgb 2 get rgb 0 get} {rgb 0 get rgb 3 get rgb 0 get} {rgb 0 get rgb 4 get rgb 0 get} {rgb 0 get rgb 5 get rgb 0 get} {rgb 0 get rgb 6 get rgb 0 get} {rgb 0 get rgb 7 get rgb 0 get} {rgb 0 get rgb 8 get rgb 0 get}]def %N00g_02g_04g_06g_08g_10g_12g_14g_16g=G } if %ifarb=2 ifarb 3 eq {%ifarb=3 N_B /colors2 [{rgb 0 get rgb 0 get rgb 0 get} {rgb 0 get rgb 0 get rgb 1 get} {rgb 0 get rgb 0 get rgb 2 get} {rgb 0 get rgb 0 get rgb 3 get} {rgb 0 get rgb 0 get rgb 4 get} {rgb 0 get rgb 0 get rgb 5 get} {rgb 0 get rgb 0 get rgb 6 get} {rgb 0 get rgb 0 get rgb 7 get} {rgb 0 get rgb 0 get rgb 8 get}]def %N00b_02b_04b_06b_08b_10b_12b_14b_16b=B } if %ifarb=3 ifarb 4 eq {%ifarb=4 N_C /colors2 [{rgb 0 get rgb 0 get rgb 0 get} {rgb 0 get rgb 1 get rgb 1 get} {rgb 0 get rgb 2 get rgb 2 get} {rgb 0 get rgb 3 get rgb 3 get} {rgb 0 get rgb 4 get rgb 4 get} {rgb 0 get rgb 5 get rgb 5 get} {rgb 0 get rgb 6 get rgb 6 get} {rgb 0 get rgb 7 get rgb 7 get} {rgb 0 get rgb 8 get rgb 8 get}]def %N00c_02c_04c_06c_08c_10c_12c_14c_16c=C } if %ifarb=4 ifarb 5 eq {%ifarb=5 N_M /colors2 [{rgb 0 get rgb 0 get rgb 0 get} {rgb 1 get rgb 0 get rgb 1 get} {rgb 2 get rgb 0 get rgb 2 get} {rgb 3 get rgb 0 get rgb 3 get} {rgb 4 get rgb 0 get rgb 4 get} {rgb 5 get rgb 0 get rgb 5 get} {rgb 6 get rgb 0 get rgb 6 get} {rgb 7 get rgb 0 get rgb 7 get} {rgb 8 get rgb 0 get rgb 8 get}]def %N00m_02m_04m_06m_08m_10m_12m_14m_16mM } if %ifarb=5 ifarb 6 eq {%ifarb=6 N_Y /colors2 [{rgb 0 get rgb 0 get rgb 0 get} {rgb 1 get rgb 1 get rgb 0 get} {rgb 2 get rgb 2 get rgb 0 get} {rgb 3 get rgb 3 get rgb 0 get} {rgb 4 get rgb 4 get rgb 0 get} {rgb 5 get rgb 5 get rgb 0 get} {rgb 6 get rgb 6 get rgb 0 get} {rgb 7 get rgb 7 get rgb 0 get} {rgb 8 get rgb 8 get rgb 0 get}]def %N00y_02y_04y_06y_08y_10y_12y_14y_16y=Y } if %ifarb=6 ifarb 7 eq {%ifarb=7 R_W /colors2 [{rgb 8 get rgb 0 get rgb 0 get} {rgb 8 get rgb 1 get rgb 1 get} {rgb 8 get rgb 2 get rgb 2 get} {rgb 8 get rgb 3 get rgb 3 get} {rgb 8 get rgb 4 get rgb 4 get} {rgb 8 get rgb 5 get rgb 5 get} {rgb 8 get rgb 6 get rgb 6 get} {rgb 8 get rgb 7 get rgb 7 get} {rgb 8 get rgb 8 get rgb 8 get}]def %R00w_02w_04w_06w_08w_10w_12w_14w_16w=W } if %ifarb=7 ifarb 8 eq {%ifarb=8 G_W /colors2 [{rgb 0 get rgb 8 get rgb 0 get} {rgb 1 get rgb 8 get rgb 1 get} {rgb 2 get rgb 8 get rgb 2 get} {rgb 3 get rgb 8 get rgb 3 get} {rgb 4 get rgb 8 get rgb 4 get} {rgb 5 get rgb 8 get rgb 5 get} {rgb 6 get rgb 8 get rgb 6 get} {rgb 7 get rgb 8 get rgb 7 get} {rgb 8 get rgb 8 get rgb 8 get}]def %G00w_02w_04w_06w_08w_10w_12w_14w_16w=W } if %ifarb=8 ifarb 9 eq {%ifarb=9 B_W /colors2 [{rgb 0 get rgb 0 get rgb 8 get} {rgb 1 get rgb 1 get rgb 8 get} {rgb 2 get rgb 2 get rgb 8 get} {rgb 3 get rgb 3 get rgb 8 get} {rgb 4 get rgb 4 get rgb 8 get} {rgb 5 get rgb 5 get rgb 8 get} {rgb 6 get rgb 6 get rgb 8 get} {rgb 7 get rgb 7 get rgb 8 get} {rgb 8 get rgb 8 get rgb 8 get}]def %B00w_02w_04w_06w_08w_10w_12w_14w_16w=W } if %ifarb=9 ifarb 10 eq {%ifarb=10 C_W /colors2 [{rgb 0 get rgb 8 get rgb 8 get} {rgb 1 get rgb 8 get rgb 8 get} {rgb 2 get rgb 8 get rgb 8 get} {rgb 3 get rgb 8 get rgb 8 get} {rgb 4 get rgb 8 get rgb 8 get} {rgb 5 get rgb 8 get rgb 8 get} {rgb 6 get rgb 8 get rgb 8 get} {rgb 7 get rgb 8 get rgb 8 get} {rgb 8 get rgb 8 get rgb 8 get}]def %C00w_02w_04w_06w_08w_10w_12w_14w_16w=W } if %ifarb=10 ifarb 11 eq {%ifarb=11 M_W /colors2 [{rgb 8 get rgb 0 get rgb 8 get} {rgb 8 get rgb 1 get rgb 8 get} {rgb 8 get rgb 2 get rgb 8 get} {rgb 8 get rgb 3 get rgb 8 get} {rgb 8 get rgb 4 get rgb 8 get} {rgb 8 get rgb 5 get rgb 8 get} {rgb 8 get rgb 6 get rgb 8 get} {rgb 8 get rgb 7 get rgb 8 get} {rgb 8 get rgb 8 get rgb 8 get}]def %M00w_02w_04w_06w_08w_10w_12w_14w_16w=W } if %ifarb=11 ifarb 12 eq {%ifarb=12 Y_W /colors2 [{rgb 8 get rgb 8 get rgb 0 get} {rgb 8 get rgb 8 get rgb 1 get} {rgb 8 get rgb 8 get rgb 2 get} {rgb 8 get rgb 8 get rgb 3 get} {rgb 8 get rgb 8 get rgb 4 get} {rgb 8 get rgb 8 get rgb 5 get} {rgb 8 get rgb 8 get rgb 6 get} {rgb 8 get rgb 8 get rgb 7 get} {rgb 8 get rgb 8 get rgb 8 get}]def %Y00w_02w_04w_06w_08w_10w_12w_14w_16w=W } if %ifarb=12 % W00n W08n W16n % N00w N08w N16w /ntu3 [(0,00) (0, . .) (1,00)] def /ntv3 [() (0,50) () ] def % W00n W04n W08n W12n W16n % N00w N04w N08w N12w N16w /ntu5 [(0,00) (0, . .) (1,00) () () ] def /ntu5a [() () (0,00) (0, . .) (1,00)] def /ntv5 [(0,00) (0,50) (1,00) () () ] def /ntv5a [() () (0,00) (0,50) (1,00)] def % W00n W02n W04n W06n W08n W10n W12n W14n W16n % N00w N02w N04w N06w N08w N10w N12w N14w N16w /ntu9 [(0,00)(0, . .)(1,00)() (0,00)(0, . .)(1,00)() () ] def /ntu9a[() () (0,00)(0, . .)(1,00)() (0,00)(0, . .)(1,00)] def /ntv9 [(0,00)(0,50) (1,00)() (0,00)(0,50) (1,00)() () ] def /ntv9a[() () (0,00)(0,50) (1,00)() (0,00)(0,50) (1,00)] def /idat3 [0.00 0.50 1.00] def /idat5 [0.00 0.25 0.50 0.75 1.00] def /idat9 [0.00 0.125 0.25 0.375 0.50 0.625 0.75 0.875 1.00] def /edat3 3 array def /edat5 5 array def /edat9 9 array def 0 1 2 {/icol exch def %icol=0,2 edat3 icol idat3 icol get expa exp put } for %icol=0,2 0 1 4 {/icol exch def %icol=0,4 edat5 icol idat5 icol get expa exp put } for %icol=0,4 0 1 8 {/icol exch def %icol=0,8 edat9 icol idat9 icol get expa exp put } for %icol=0,4 ntv3 1 edat3 1 get edat3 0 get sub edat3 2 get edat3 0 get sub div put ntv5 1 edat5 1 get edat5 0 get sub edat5 2 get edat5 0 get sub div put ntv5a 3 edat5 3 get edat5 2 get sub edat5 4 get edat5 2 get sub div put ntv9 1 edat9 1 get edat9 0 get sub edat9 2 get edat9 0 get sub div put ntv9a 3 edat9 3 get edat9 2 get sub edat9 4 get edat9 2 get sub div put ntv9 5 edat9 5 get edat9 4 get sub edat9 6 get edat9 4 get sub div put ntv9a 7 edat9 7 get edat9 6 get sub edat9 8 get edat9 6 get sub div put /y00r 0400 def /y01r 1900 def 20 setlinewidth TBG tfnw 0 1 1 {/l exch def %l=0,1 %small and large square l 0 eq {/s 1000 def /sa 200 def /iy0 y00r def} {/s 1400 def /sa 000 def /iy0 y01r def} ifelse 0 1 2 {/k exch def %k=0,2 %three series 3,5,9 steps k 0 eq {/jd 4 def /ixk x00 def /jm 1 def} if k 1 eq {/jd 2 def /ixk x01 def /jm 2 def} if k 2 eq {/jd 1 def /ixk x02 def /jm 4 def} if 00 jd 08 {/j exch def %j=0,jd,8 tfnw /jcol j jd idiv def /ix0 jcol 1400 mul ixk add sa add def pchart 0 eq {colors2 j get exec setrgbcolor ix0 iy0 s s rec fill} if pchart 1 eq pchart 2 eq or pchart 3 eq or {tfw ix0 iy0 s s rec fill tfn ix0 iy0 s s rec stroke /ix0t jcol 1400 mul ixk add 350 add def /iy0t iy0 200 add 300 add l 1 eq {200 add} if def } if %pchart=1 or 2 pchart 1 eq pchart 2 eq or {%xchart=2 k 0 eq {ix0t iy0t moveto ntu3 jcol get show} if k 1 eq {ix0t iy0t 200 add moveto ntu5 jcol get show ix0t iy0t 100 sub moveto ntu5a jcol get show} if k 1 eq {pchart 2 ge {ix0t iy0t 400 sub moveto j 0 eq {(0,00) show} if j 2 eq j 4 eq or j 6 eq or {(0, . .) show} if j 8 eq {(1,00) show} if } if } if k 2 eq {ix0t iy0t 200 add moveto ntu9 jcol get show ix0t iy0t 100 sub moveto ntu9a jcol get show} if k 2 eq {pchart 2 eq {%pchart=2 ix0t iy0t 400 sub moveto j 0 eq {(0,00) show} if j 8 eq {(1,00) show} if j 0 gt j 8 lt and {(0, . .) show} if } if %pchart=2 } if } if %pchart=2 pchart 3 eq {%xchart=3 tfn k 0 eq {%k=0 jcol 0 eq jcol 2 eq or {ix0t iy0t moveto ntu3 jcol get show ix0t iy0t 400 sub moveto ntu3 jcol get show} if jcol 1 eq {ix0t iy0t moveto tfv ntv3 jcol get cvsshow2g tfn } if jcol 1 eq {ix0t iy0t 400 sub moveto tfo edat3 jcol get cvsshow2g tfn} if } if %k=0 k 1 eq {%k=1 jcol 0 eq jcol 2 eq or {ix0t iy0t 200 add moveto ntu5 jcol get show} if jcol 1 eq {ix0t iy0t 200 add moveto tfv ntv5 jcol get cvsshow2g tfn} if jcol 2 eq jcol 4 eq or {ix0t iy0t 100 sub moveto ntv5a jcol get show} if jcol 3 eq {ix0t iy0t 100 sub moveto tfv ntv5a jcol get cvsshow2g tfn} if } if %k=1 k 1 eq { ix0t iy0t 400 sub moveto jcol 0 eq {(0,00) show} if jcol 4 eq {(1,00) show} if tfo jcol 0 gt jcol 4 lt and {edat5 jcol get cvsshow2g} if tfn } if k 2 eq {%k=2 jcol 0 eq jcol 2 eq or jcol 4 eq or jcol 6 eq or {ix0t iy0t 200 add moveto ntu9 jcol get show} if jcol 1 eq jcol 5 eq or {ix0t iy0t 200 add moveto tfv ntv9 jcol get cvsshow2g tfn} if jcol 2 eq jcol 4 eq or jcol 6 eq or jcol 8 eq or {ix0t iy0t 100 sub moveto ntv9a jcol get show} if jcol 3 eq jcol 7 eq or {ix0t iy0t 100 sub moveto tfv ntv9a jcol get cvsshow2g tfn} if } if k 2 eq {tfn ix0t iy0t 400 sub moveto jcol 0 eq {(0,00) show} if jcol 8 eq {(1,00) show} if tfo jcol 0 gt jcol 8 lt and {edat9 jcol get cvsshow2g} if tfn } if } if %pchart=3 } for %j=0,jd,8 pchart 0 eq {%pchart=0 % ifarb 0 eq % ifarb 6 eq or {%ifarb=0,6 (W-N,Y-N) % surrou 0 eq {/jcol 2 def} if % surrou 1 eq {/jcol 4 def} if % surrou 2 eq {/jcol 6 def} if % /ix0 jcol jd div 1400 mul ixk add def % tfw % ix0 iy0 s s rec stroke % } if %ifarb=0,6 %grey surround /ix0 jm 1400 mul ixk add sa add def tfw l 0 eq {ix0 iy0 s s rec stroke} {ix0 iy0 moveto s 0 rlineto stroke ix0 iy0 s add moveto s 0 rlineto stroke} ifelse } if %xchart=0 } for %k=0,2 %three series 3,5,9 steps } for %l=0,1 %small and large square /xpos 16300 def /ypos 03600 def xpos ypos moveto 1 1 0 setrgbcolor TBIG (L*) show TBM 0 -80 rmoveto TBM (TUBLOG,U) show 0 80 rmoveto TBG ( =50 log\050) show TBIG (Y / ) show TBG (5) show 20 0 rmoveto TBIG (Y) show TBM 0 -80 rmoveto TBM (U) show 40 80 rmoveto TBG (\051 +50, ) show TBIG (Y) show TBM 0 -80 rmoveto TBM (N) show 40 80 rmoveto TBG (=4, ) show TBIG (Y) show TBM 0 -80 rmoveto TBM (U) show 40 80 rmoveto TBG (=20, ) show TBIG (Y) show TBM 0 -80 rmoveto TBM (W) show 40 80 rmoveto TBG (=100) show grestore showpage %%Trailer