%!PS-Adobe-3.0 EPSF-3.0 OE780-7N.EPS
%%BoundingBox: 70 82 790 580

%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: Image Technology)
  /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:2011080112000)
  /ModDate (D:2011080112000)
/DOCINFO pdfmark07
[ /View [ /FitB ]
/DOCVIEW pdfmark07
%END  PDFDE011

/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

/TKK {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {280 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIKK {200 /TimesI-ISOL1 FS} bind def
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {280 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def

/TBKK {200 /TimesB-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {280 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def

/TBIK {200 /TimesBI-ISOL1 FS} bind def
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {280 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-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

%%EndProlog
gsave

/lanind 0 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
/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 3 def /xcolor2 3 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def
                    /xchartd xchartgd def}
               {/xchart1 0 def /xchart2 0 def /xchartd 1 def} ifelse
/pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def
                    /pchartd pchartgd def}
               {/pchart1 0 def /pchart2 0 def /pchartd 1 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
/pchart pchart1 def %pchart1 1 pchart2 {/pchart 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

/colorml colorm def
%0 1 1 {/colorml exch def %colorml=0,1

/xcolorl xcolor def
%0 1 3 {/xcolorl exch def %xcolorl=0,3

/xchartl xchart def
%0 1 7 {/xchartl exch def %xchartl=0,7

/pchartl pchart def
%0 1 2 {/pchartl exch def %pchartl=0,2

gsave

xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def
              /tfwx* {0 0 0 0 setcmykcolor} def
              /colrecfix* {setcmykcolor rec fill} bind def
              /colrecstx* {setcmykcolor rec stroke} bind def
             } if
xcolorl 1 eq {/tfnx* {0 setgray} def
              /tfwx* {1 setgray} def
              /colrecfix* {setgray rec fill} bind def
              /colrecstx* {setgray rec stroke} bind def
             } if
xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def
              /tfwx* {0 0 0 0 setcmykcolor} def
              /colrecfix* {setcmykcolor rec fill} bind def
              /colrecstx* {setcmykcolor rec stroke} bind def
             } if
xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def
              /tfwx* {1 1 1 setrgbcolor} def
              /colrecfix* {setrgbcolor rec fill} bind def
              /colrecstx* {setrgbcolor rec stroke} bind def
             } if

pchartl 0 eq {%pchartl=0

/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

/nr1 [(01) (02) (03) (04) (05) (06) (07) (08) (09) (10)
      (11) (12) (13) (14) (15) (16) (17) (18) (19) (20)] def
/tx1 [(A) (B) (C) (D) (E) (F) (G) (H) (I) (J)
      (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T)
      (U) (V) (W) (X) (Y) (Z) (a)] def

72 90 translate

/xs 900 def /ys xs def /d2 xs 2 div def /d8 xs 8 div def

8 /Times-ISOL1 FS
2 -7 moveto
(OE780-7N) show
(\255) show colorml cvishow xcolorl cvishow
xchartd 1 eq {xchartl cvishow}
             {xchartl xchartd idiv cvishow} ifelse
(\255) show pchartl cvishow
(: ) show
(Test chart with 27x18=486 separate and adjacent colours) showen
(Pr\374fvorlage mit 27x18=486 separaten und aneinandergrenzenden Farben) showde
(; 9 step scales;) showen
(; 9\255stufige Reihen;) showde
( compare ISO/IEC 15775:1999;) showen
( vergleiche ISO/IEC 15775:1999;) showde             
( rgb\255Farbdaten, Mustergr\366\337en:) showde
( rgb colour data, patch sizes:) showen
( 8mm x 8mm und 9mm x 9mm) showde
( 8mm x 8mm and 9mm x 9mm) showen
(, Page ) showen
(, Seite ) showde
pchartl 1 add cvishow (/3) show

0.010 MM dup scale

/ymax 15500 def
/xmin 550 def
/xd 800 def
/yd 800 def
/xsd xs xd sub 0.5 mul def
/ysd xs xd sub 0.5 mul def
0.5 0.5 0.5 setrgbcolor
0 0 moveto 25000     0 rlineto 0 17000 rlineto
           25000 neg 0 rlineto closepath fill

20 setlinewidth

500 /Times-ISOL1 FS
0 0 0 setrgbcolor
1 1 18 {/i exch def %i=1,18
  /x xs 0.05 mul i 10 ge {40 sub} if def
  /y 18.5 ys mul ys i mul sub def
  x y moveto nr1 i 1 sub get show
} for %i=1,18

1 1 27 {/i exch def %i=1,27
  /x xs i mul 000 add def
  /y 18.35 ys mul def
  x y moveto tx1 i 1 sub get show
} for %i=1,27

/TKK2 {200 /Times-ISOL1 FS} bind def
TKK2       
%3x rgbcmy
/id 1 8 div def
/rijn 81 array def %for intermediate storage
/gijn 81 array def /bijn 81 array def
/lmax 2 def
/kmax 1 def
/n -1 def
0 1 kmax {/k exch def %k=0,1 %size
0 1 lmax {/l exch def %l=0,lmax
          /xadd l xs 9 mul mul def
          /yadd 0 k xs 9 mul mul add def
          
%for intermediate storage of l=0,lmax
0 1 01 {/jchart exch def %jchart=0,1
        /pchartj l jchart 3 mul add def
0 1 08 {/j exch def %j=0,7
        /im 8 j sub def
jchart 1 im {/i exch def %i=0,8
        /ia 1 id j mul sub def
        /argb ia def /brgb ia i id mul sub def
        pchartj 0 eq {/r argb def /g brgb def /b brgb def} if
        pchartj 1 eq {/r argb def /g argb def /b brgb def} if
        pchartj 2 eq {/r brgb def /g argb def /b brgb def} if
        pchartj 3 eq {/r brgb def /g argb def /b argb def} if
        pchartj 4 eq {/r brgb def /g brgb def /b argb def} if
        pchartj 5 eq {/r argb def /g brgb def /b argb def} if
        jchart 0 eq {/in i j add def /jn j def}
                    {/in j def /jn i j add def} ifelse
                     rijn in 9 mul jn add r put
                     gijn in 9 mul jn add g put
                     bijn in 9 mul jn add b put
        } for %i=0,7
        } for %j=0,8
        } for %jchart=0,1
        
%for output of l=0,lmax
0 1 08 {/j exch def %j=0,8
0 1 08 {/i exch def %i=0,8
        /r rijn i j 9 mul add get def
        /g gijn i j 9 mul add get def
        /b bijn i j 9 mul add get def
        /xa xmin xs j mul add xadd add k 0 eq {xsd add} if def
        /ya ymax xs i mul sub yadd sub k 0 eq {ysd add} if def
        pchartl 1 le {r g b setrgbcolor}
                    {1 1 1 setrgbcolor} ifelse
        xa ya k 0 eq {xd} {xs} ifelse dup rec fill
        pchartl 2 eq {0 0 0 setrgbcolor
                     /n n 1 add def
                     /j1 j def
                     /j1$ tx1 j1 l 9 mul add get def
                     /i1 i 1 add k 9 mul add def
                     xa 20 add ya 625 add moveto
                     n 9 le {(00) show} if
                     n 10 ge n 99 le and {(0) show} if
                     n cvishow ( ) show j1$ show
                     i1 9 le {(0) show} if i1 cvishow
                     xa 20 add ya 425 add moveto r cvsshow3
                     xa 20 add ya 225 add moveto g cvsshow3
                     xa 20 add ya 025 add moveto b cvsshow3} if
        } for %i=0,8
        } for %j=0,8

        } for %l=0,lmax
        } for %k=0,1
        
} if %pchartl=0

pchartl 1 eq {%pchartl=1

72 90 translate
0.01 MM dup scale

20 setlinewidth
1.0 setgray
0 0 moveto 12000 0 rlineto 0 8300 rlineto
          -12000 0 rlineto closepath fill

0.0 setgray
0 0 moveto 12000 0 rlineto 0 8300 rlineto
          -12000 0 rlineto closepath stroke

TM
00100 -240 moveto (Teil 3) showde (Part 3) showen
9500 -240 moveto (OE780-7N) show
(\255) show colorml cvishow xcolorl cvishow
xchartd 1 eq {xchartl cvishow}
             {xchartl xchartd idiv cvishow} ifelse
(\255) show pchartl cvishow %(: ) show

/x20 100 def
/y20 7200 def
/yd 320 def
TBG
x20 y20 yd 2.3 mul add moveto
(Documentation of file format, hardware and software) showen
( for this test:) showen
(Dokumentation von Dateiformat, Hard\255 und Software) showde
( f\374r diese Pr\374fung:) showde
TBM
x20 y20 yd add moveto
(PDF\255File:) showen
(PDF\255Datei:) showde
TM
x20 1500 add y20 yd add moveto
(http://130.149.60.45/farbmetrik/OE78/OE78) showen
(http://130.149.60.45/farbmetrik/OE78/OE78) showde
(L0N) show (P.PDF) show
TBM
x20 8900 add y20 yd add moveto
(underline  Yes/No) showen
(unterstreiche Ja/Nein) showde

x20 y20 yd 1 mul sub moveto
(PS\255File:) showen
(PS\255Datei:) showde
TM
x20 1500 add y20 yd 1 mul sub moveto
(http://130.149.60.45/farbmetrik/OE78/OE78) showen
(http://130.149.60.45/farbmetrik/OE78/OE78) showde
(L0N) show (A.PS) show
TBM
x20 8400 add y20 yd 1 mul sub moveto
(  or underline  Yes/No) showen
(oder unterstreiche Ja/Nein) showde

TBM
x20 y20 yd 3.25 mul sub moveto
(Used computer operating system:) showen
(benutztes Rechner\255Betriebssystem:) showde

TM
x20 y20 yd 4.25 mul sub moveto
(either one of Windows/Mac/Unix/other and version:) showen
(nur eines von Windows/Mac/Unix/anderes und Version:) showde
(.................................) show

TBM
x20 y20 yd 5.50 mul sub moveto
(This evaluation is for the device output:) showen
(Die Beurteilung ist f\374r die Ger\344teausgabe:) showde
x20 5800 add y20 yd 5.50 mul sub moveto
(underline  monitor/data projector/printer) showen
(unterstreiche Monitor/Datenprojektor/Drucker) showde

TM
x20 y20 yd 6.50 mul sub moveto
(Device model, driver and version:) showen
(Ger\344te\255Modell, \255Treiber und \255Version:) showde
(......................) show

TBM
x20 y20 yd 7.75 mul sub moveto
(Device output with PDF/PS\255file:) showen
(Ger\344teausgabe mit PDF/PS\255Datei:) showde

x20 8000 add y20 yd 7.75 mul sub moveto
(underline     PDF/PS\255file) showen
(unterstreiche PDF\255/PS\255Datei) showde

x20 y20 yd 8.75 mul sub moveto
(For device output with PDF\255file OE78) showen
(F\374r Ger\344teausgabe mit PDF\255Datei OE78) showde
(L0N) show (P.PDF:) show

/xshif 500 def
TM
x20 xshif add y20 yd 9.75 mul sub moveto
(either PDF\255file transfer "download, copy" to PDF device) showen
(entweder PDF\255Dateitransfer "download, copy" nach PDF\255Ger\344t) showde
(.................................) show

x20 xshif add y20 yd 10.75 mul sub moveto
(or with computer system interpretation by "Display\255PDF":) showen
(oder mit Rechnersystem\255Interpretation durch "Display\255PDF":) showde
(.................................) show

x20 xshif add y20 yd 11.75 mul sub moveto
(or with software. e. g. Adobe\255Reader/\255Acrobat and version:) showen
(oder mit Software, z. B. Adobe\255Reader/\255Acrobat und Version:) showde
(.................................) show

x20 xshif add y20 yd 12.75 mul sub moveto
(or with software e. g. Ghostscript and version:) showen
(oder mit Software, z. B. Ghostscript und Version:) showde
(.................................) show


TBM
x20 y20 yd 13.75 mul sub moveto
(For device output with PS\255file OE78) showen
(F\374r Ger\344teausgabe mit PS\255Datei OE78) showde
(L0N) show (A.PS:) show
TM
x20 xshif add y20 yd 14.75 mul sub moveto
(either PS\255file transfer "download, copy" to PS device) showen
(entweder PS\255Dateitransfer "download, copy" nach PS\255Ger\344t) showde
(.................................) show

x20 xshif add y20 yd 15.75 mul sub moveto
(or with computer system interpretation by "Display\255PS":) showen
(oder mit Rechnersystem\255Interpretation durch "Display\255PS":) showde 
(.................................) show

x20 xshif add y20 yd 16.75 mul sub moveto
(or with software e. g. Ghostscript and version:) showen
(oder mit Software, z. B. Ghostscript und Version:) showde
(.................................) show

x20 xshif add y20 yd 17.75 mul sub moveto
(or with software e. g. Mac\255Yap and version:) showen
(oder mit Software, z. B. Mac\255Yap und Version:) showde
(.................................) show

x20 y20 yd 19 mul sub moveto
(Special remarks:) showen (Spezielle Anmerkungen:) showde
(Special remarks, e. g. output of Landscape (L)) showen
%( file OE78L0NA.PS was cutted,) showen
%(Spezielle Anmerkungen, z. B. Ausgabe von Landschaftsdatei (L)) showde
%( OE78L0NA.PS wurde abge\255) showde
x20 y20 yd 20 mul sub moveto
%(Portrait (P) file OE78P0NA.PS was used:.............................) showen
%(schnitten, Portr\344tdatei (P) OE78P0NA.PS wurde benutzt:.............) showde
(......................................................................) show
x20 y20 yd 21 mul sub moveto
(......................................................................) show

x20 y20 yd 22 mul sub moveto
(......................................................................) show

} if %pchartl=1

pchartl 2 eq {%pchartl=2

/DecodeXYZ* {dup 6 29 div ge {dup dup mul mul}
            {4 29 div sub 108 841 div mul} ifelse} 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

/cvishow {0.5 add cvi 6 string cvs show} def
/cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def

/xchartn xchartl xchartd idiv def
/ilx 0 def
colorml 0 eq {/ilx 0 def
             }
             {%colorml=1
              xchartn 2 le {/ilx xchartn def} if
              xchartn 3 eq {/ilx       4 def} if
              xchartn 4 eq {/ilx       8 def} if
              xchartn 5 eq {/ilx      16 def} if
              xchartn 6 eq {/ilx      32 def} if
              xchartn 7 eq {/ilx      64 def} if
             } ifelse
             
/Xnref 0.63 ilx mul 0.9505 mul def
/Ynref 0.63 ilx mul def
/Znref 0.63 ilx mul 1.0890 mul def
     
/XQ Xnref  95.05 div def
/YQ Ynref 100.00 div def
/ZQ Znref 108.90 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*ref YQ 0.008856 lt {903.3 YQ mul}
                      {YQ 0.33333333 exp 116 mul 16 sub} ifelse def
/a*ref 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*ref 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

/L*N L*ref def /L*W 95.41 def

/L*i 21 array def %different for xchartl=0,7
/Yi  21 array def

%equal distance between L*N and L*W
0 1 20 {/i exch def %steps from black to white
        i 15 le {/i0  0 def /istep 15 def}
                {/i0 16 def /istep  4 def} ifelse
         L*i i L*N L*W L*N sub i i0 sub istep div mul add put
        /Y* {L*i i get 16 add 116 div} bind def
        Yi i Y* DecodeXYZ* 100.00 mul put
       } for

72 90 translate
0.01 MM dup scale
15 setlinewidth

colorml 0 eq {/xcolorn 3 def}       %here rgb
             {/xcolorn xcolorl def} ifelse

tfnx*
TM
0 -220 moveto
(OE780-7N, ) show
(Bild A7) showde (Picture A7) showen
(\255) show colorml cvishow xcolorn cvishow
xchartd 1 eq {xchartl cvishow}
             {xchartl xchartd idiv cvishow} ifelse
(\255) show pchartl cvishow (: ) show
(16 visuell gleichabst\344ndige ) showde
(16 visual equidistant ) showen
(16 visual equidistant ) showes
(16 visual equidistant ) showfr
(16 visual equidistant ) showit
(16 visual equidistant ) showjp
(16 visual equidistant ) showm

TIM (L*) show

TM
(\255Graustufen) showde
(\255grey steps) showen
(\255grey steps) showes
(\255grey steps) showfr
(\255grey steps) showit
(\255grey steps) showjp
(\255grey steps) showm

TM
(; PS\255Operator:) showde
(; PS operator:) showen
(; PS operator:) showes
(; PS operator:) showfr
(; PS operator:) showit
(; PS operator:) showjp
(; PS operator:) showm

TIM
xcolorn 0 eq {( 0 0 0 n* setcmykcolor) show} if
xcolorn 1 eq {( w* setgray) show} if
xcolorn 2 eq {( n* n* n* 0 setcmykcolor) show} if
xcolorn 3 eq {( w* w* w* setrgbcolor) show} if
TM

/tfzw 0.5 def
colorml 1 eq {/xchartNl xchartl 8 idiv def
              /xchartPl xchartl xchartl 8 idiv 8 mul sub def
              /gammaNl 1 2.4 xchartNl 0.18 mul sub 2.4 div div def
              /gammaPl   2.4 xchartPl 0.18 mul sub 2.4 div     def
              /gammal gammaNl gammaPl mul def
              /tfzw tfzw def %gammal exp def
             } if          
/tfzn 1 tfzw sub def

xcolorn 0 eq {/tfzx* {0 0 0 tfzn setcmykcolor} def} if
xcolorn 1 eq {/tfzx* {tfzw setgray} def} if
xcolorn 2 eq {/tfzx* {tfzn dup dup 0 setcmykcolor} def} if
xcolorn 3 eq {/tfzx* {tfzw dup dup setrgbcolor} def} if

tfzx*
0 0  moveto 24500 0 rlineto 0 4000 rlineto
           -24500 0 rlineto closepath fill

tfnx*
0 0  moveto 24500 0 rlineto 0 4000 rlineto
           -24500 0 rlineto closepath stroke

%%%%%%%%%%%   oberer Schriftzug %%%%%%%%%%%%%%%%
tfwx*
30 3650 moveto TBIG (L*/Y) show -50 -50 rmoveto TBK

(intended) show 50 50 rmoveto

  100 3400 moveto TBIK
((absolut)) showde
((absolute)) showen
((absolute)) showes
((absolute)) showfr
((absolute)) showit
((absolute)) showjp
((absolute)) showm

  0  1150 moveto TBIG (w*=l*) show -200 -150 rmoveto TBIK (CIELAB, r) show
  0  780 moveto TBIK
((relativ)) showde
((relative)) showen
((relative)) showes
((relative)) showfr
((relative)) showit
((relative)) showjp
((relative)) showm

  100 1900 moveto TBIG
(Nr. und) showde
(No. and) showen
(No. and) showes
(No. and) showfr
(No. and) showit
(No. and) showjp
(No. and) showm

  100 1600 moveto TBIG
(Hex\255Code) showde
(Hex code) showen
(Hex code) showes
(Hex code) showfr
(Hex code) showit
(Hex code) showjp
(Hex code) showm

100 3000 moveto
xcolorn 0 eq {TBIG (0 0 0 n*) show} if
xcolorn 1 eq {TBIG (w*) show} if
xcolorn 2 eq {TBIG (n* n* n* 0) show} if
xcolorn 3 eq {TBIG (w* w* w*) show} if

100 2720 moveto
xcolorn 0 eq {TBIG (setcmyk) show} if
xcolorn 1 eq {TBIG (setgray) show} if
xcolorn 2 eq {TBIG (setcmyk) show} if
xcolorn 3 eq {TBIG (setrgb) show} if

%gamma output
100 2300 moveto
TBIG (g) show
colorml 0 eq {%colorml=0
              TBM 0 -70 rmoveto (P) show 0 70 rmoveto TBG
              (=1.00) show}
             {%colorml=1
              TBM 0 -70 rmoveto
              xchartl 7 le {(P) show}{(N) show} ifelse
              0 70 rmoveto TBG
              (=) show gammal cvsshow2} ifelse

550  400 moveto TBIG (w*) show -10 -50 rmoveto TBK
(intended) show
550  80 moveto TBIG  (w*) show -10 -50 rmoveto TBK
(out) show

1900 600 translate
%untere Reihe um +200, +200 verschoben bei dx=1000 von 1400
tfnx*
     
/ntu [(0,000) (0,067) (0,133) (0,200) (0,267) (0,333) (0,400) (0,467)
      (0,533) (0,600) (0,667) (0,733) (0,800) (0,867) (0,933) (1,000)
      (0,000) (0,250) (0,500) (0,750) (1,000)] def
/nts [ 0.000   0.067   0.133   0.200   0.267   0.333   0.400   0.467 
       0.533   0.600   0.667   0.733   0.800   0.867   0.933   1.000 
       0.000   0.250   0.500   0.750   1.000 ] def
/n* [(00;F) (01;E) (02;D) (03;C) (04;B) (05;A) (06;9) (07;8)
     (08;7) (09;6) (10;5) (11;4) (12;3) (13;2) (14;1) (15;0)
     (00;4) (01;3) (02;2) (03:1) (04;0)] def

TBM tfwx*
/iy0 0 def /i0 0 def /i1 15 def
i0 1 i1 {/i exch def %i=i0,i1
         /ix0 i i0 sub 1400 mul def
         ix0 200 add iy0 250 sub moveto
         ntu i get show
         ix0 200 add  iy0 520 sub moveto
         nts i get colorml 1 eq {gammal exp} if cvsshow3
       } for %i=i0,i1

/iy0 3050 def
i0 1 i1 {/i exch def %i=i0,i1
         /ix0 300 i i0 sub 1400 mul add def
         ix0 400 sub iy0 moveto
         L*i i get cvsshow1 (/) show
         Yi i get cvsshow1
        } for %i=i0,i1

TBG tfnx*
/iy0 0 def
i0 1 i1 {/i exch def %i=i0,i1
         /ix0 400 i i0 sub 1400 mul add def
         ix0 300 sub iy0 1150 add moveto
         n* i get show
        } for %i=i0,i1

TBG tfnx*
/s 1000 def /j0 0 def /j1 15 def
j0 1 j1 {/j exch def %j=j0,j1
         /ix0 j 1400 mul def
         ix0 iy0 s s
         /tfwj nts j get def %colorml 1 eq {gammal exp} if def
         /tfnj 1 tfwj sub def
         xcolorn 0 eq {0 0 0 tfnj setcmykcolor rec fill} if
         xcolorn 1 eq {tfwj setgray rec fill} if
         xcolorn 2 eq {tfnj dup dup 0 setcmykcolor rec fill} if
         xcolorn 3 eq {tfwj dup dup setrgbcolor rec fill} if
         j 7 eq j 8 eq or {%white arround mean grey
                           ix0 iy0 s s 
                           xcolorn 0 eq {0 0 0 0 setcmykcolor rec stroke} if
                           xcolorn 1 eq {1       setgray rec stroke} if
                           xcolorn 2 eq {0 0 0 0 setcmykcolor rec stroke} if
                           xcolorn 3 eq {1 1 1   setrgbcolor rec stroke} if
                           } if %white arround mean grey
        } for %j=j0,j1


/s 1400 def /iy0 1500 def
j0 1 j1 {/j exch def %j=j0,j1
         /ix0 j 1400 mul 200 sub def
         ix0 iy0 s s
         /tfwj nts j get def %colorml 1 eq {gammal exp} if def
         /tfnj 1 tfwj sub def
         xcolorn 0 eq {0 0 0 tfnj setcmykcolor rec fill} if
         xcolorn 1 eq {tfwj setgray rec fill} if
         xcolorn 2 eq {tfnj dup dup 0 setcmykcolor rec fill} if
         xcolorn 3 eq {tfwj dup dup setrgbcolor rec fill} if
        } for %j=j0,j1

-1900 -600 translate

} if %pchartl=2

showpage
grestore

%} for %pchartl=0,2

%} for %xchartl=0,7

%} for %xcolorl=0,3

%} for %colorml=0,1

%%Trailer