%!PS-Adobe-3.0 EPSF-3.0 SF280-1N %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark0 where {pop} {userdict /pdfmark0 /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://o2.ps.bam.de or http://www.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2007010112000) /ModDate (D:2007010112000) /DOCINFO pdfmark0 [ /View [ /FitB ] /DOCVIEW pdfmark0 %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 20060901 % !Exchange 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 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /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 %%EndProlog gsave /lanind 1 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 /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 3 def /lanind2 3 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart xchart3 lt {/Txx (-) def /Fxx (-) def} if gsave %LANINDL2 END /kPRTV 0 def /pPRTV 3 def 5 /Times-ISOL1 FS 72 85 moveto (SF280-1) show %pPRTV 0 eq {(OLS00a) show} if %pPRTV 1 eq {(OLS06a) show} if %pPRTV 2 eq {(OLS10a) show} if %pPRTV 3 eq {(ORS18a) show} if %pPRTV 4 eq {(OLS27a) show} if %pPRTV 5 eq {(OLS38a) show} if %pPRTV 6 eq {(OLS52a) show} if %pPRTV 7 eq {(OLS70a) show} if %( in chroma diagram ) showea %( im Buntheitdiagramm ) showde %5 /TimesI-ISOL1 FS %((a*, b*) ) show %5 /Times-ISOL1 FS %(of ) showea %(von ) showde %5 /TimesI-ISOL1 FS %(LAB*) show %5 /Times-ISOL1 FS 72 90 translate 0.1667 MM dup scale 0 0 320 240 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBM %Schrift Times-Bold-Gross 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 002 220 moveto (OYLCVM) show 002 200 moveto (hexagon) showea (Sechseck) showde 002 160 moveto (Absolute) showea (Absoluter) showde 002 140 moveto (Space) showea (Raum) showde 002 120 moveto TBIM (LAB*) show TBK -2 -5 rmoveto (a) show TBK 001 62 moveto kPRTV 0 eq {(Printing ) showea (Druck ) showde pPRTV 0 eq {(OLS00a) show} if pPRTV 1 eq {(OLS06a) show} if pPRTV 2 eq {(OLS10a) show} if pPRTV 3 eq {(ORS18a) show} if pPRTV 4 eq {(OLS27a) show} if pPRTV 5 eq {(OLS38a) show} if pPRTV 6 eq {(OLS52a) show} if pPRTV 7 eq {(OLS70a) show} if } {(Television ) showea (Fernsehen ) showde pPRTV 0 eq {(TLS00) show} if pPRTV 1 eq {(TLS06) show} if pPRTV 2 eq {(TLS10) show} if pPRTV 3 eq {(TLS18) show} if pPRTV 4 eq {(TLS27) show} if pPRTV 5 eq {(TLS38) show} if pPRTV 6 eq {(TLS52) show} if pPRTV 7 eq {(TLS70) show} if } ifelse 001 47 moveto (colour names of) showea (Farbnamen von) showde 001 32 moveto (ISO/IEC 15775) show 001 17 moveto kPRTV 0 eq {(three basic colors CMY or OLV) showea (drei Grundfarben CMY oder OLV) showde } {(three basic colors OLV or CMY) showea (drei Grundfarben OLV oder CMY) showde } ifelse 001 02 moveto kPRTV 0 eq {(three mixed colors OLV or CMY) showea (drei Mischfarben OLV oder CMY) showde } {(three mixed colors CMY or OLV) showea (drei Mischfarben CMY oder OLV) showde } ifelse 0.0 0.0 0.0 1.0 setcmykcolor %black 105 227 moveto TBIK (OYLCVMNW) show TBK ( default color space) showea (\255Vorgabefarbraum) showde /tBtxb %textBtx-Reihenfolge [(W) (O) (Y) (L) (C) (V) (M) (W) (H) (YO) (OM) (MV) (VC) (CL) (LY) (R) ] def /imx 179 def /imy 119 def kPRTV 0 eq { %kPRTV=0, from E6531-78.PS pPRTV 0 eq {/Li6 %A* CIELAB OLS00a %W O Y L C V M O N [ 95.41 45.14 90.22 48.45 56.88 16.48 45.36 45.14 0.00] def /Ai6 %A* CIELAB [ 0.00 71.37 -10.60 -73.19 -33.11 45.84 81.85 71.37 0.00] def /Bi6 %Nullpunkt + x-Sechseck [ 0.00 75.54 99.51 42.41 -47.41 -56.22 -9.29 75.54 0.00] def } if pPRTV 1 eq {/Li6 %A* CIELAB OLS06a %W O Y L C V M O N [ 95.41 45.87 90.25 49.08 57.33 19.26 46.07 45.87 5.69] def /Ai6 %A* CIELAB [ 0.00 69.79 -10.51 -70.28 -32.38 40.73 80.12 69.79 0.00] def /Bi6 %Nullpunkt + x-Sechseck [ 0.00 66.99 97.42 40.08 -46.80 -52.47 -9.04 66.99 0.00] def } if pPRTV 2 eq {/Li6 %A* CIELAB OLS10a %W O Y L C V M O N [ 95.41 46.57 90.29 49.70 57.76 21.67 46.47 46.57 10.99] def /Ai6 %A* CIELAB [ 0.00 68.27 -10.43 -67.60 -31.48 36.81 78.45 68.27 0.00] def /Bi6 %Nullpunkt + x-Sechseck [ 0.00 59.62 95.45 38.19 -46.19 -49.37 -8.80 59.62 0.00] def } if pPRTV 3 eq {/Li6 %A* CIELAB OLS18a %W O Y L C V M O N [ 95.41 47.94 90.37 50.90 58.62 25.72 48.13 47.94 18.01] def /Ai6 %A* CIELAB [ 0.00 65.39 -10.96 -62.83 -30.34 31.10 75.28 65.39 0.00] def /Bi6 %Nullpunkt + x-Sechseck [ 0.00 50.52 91.75 34.96 -45.01 -44.40 -8.36 50.52 0.00] def } if pPRTV 4 eq {/Li6 %A* CIELAB OLS27a %W O Y L C V M O N [ 95.41 50.51 90.52 53.18 60.28 32.06 50.68 50.51 26.85] def /Ai6 %A* CIELAB [ 0.00 60.17 -9.92 -55.04 -27.91 24.02 69.50 60.17 0.00] def /Bi6 %Nullpunkt + x-Sechseck [ 0.00 40.13 85.20 30.00 -42.75 -37.32 -7.57 40.13 0.00] def } if pPRTV 5 eq {/Li6 %A* CIELAB OLS38a %W O Y L C V M O N [ 95.41 55.13 90.83 57.35 63.39 41.26 55.27 55.13 37.99] def /Ai6 %A* CIELAB [ 0.00 51.52 -9.25 -43.84 -23.83 16.67 59.74 51.42 0.00] def /Bi6 %Nullpunkt + x-Sechseck [ 0.00 29.16 74.37 23.35 -38.56 -28.49 -6.32 29.16 0.00] def } if pPRTV 6 eq {/Li6 %A* CIELAB OLS52a %W O Y L C V M O N [ 95.41 62.90 91.44 64.49 68.98 53.87 63.00 62.90 52.02] def /Ai6 %A* CIELAB [ 0.00 38.38 -7.95 -30.06 -17.74 10.09 44.96 38.38 0.00] def /Bi6 %Nullpunkt + x-Sechseck [ 0.00 18.55 57.91 15.67 -31.24 -18.84 -4.56 18.55 0.00] def } if pPRTV 7 eq {/Li6 %A* CIELAB OLS70a %W O Y L C V M O N [ 95.41 75.01 92.64 75.86 78.37 70.54 75.07 75.01 69.70] def /Ai6 %A* CIELAB [ 0.00 21.53 -5.45 -15.50 -9.90 4.74 25.47 21.53 0.00] def /Bi6 %Nullpunkt + x-Sechseck [ 0.00 9.07 34.85 7.96 -19.51 -9.47 -2.46 9.07 0.00] def } if } if %kPRTV=0 kPRTV 1 eq { %kPRTV=1 pPRTV 0 eq {/Li6 %A* CIELAB TLS00 %W O Y L C V M O N [ 95.41 50.50 92.66 83.63 86.88 30.39 57.30 50.50 0.00] def /Ai6 %A* CIELAB [ 0.00 76.92 -20.70 -82.76 -46.17 76.06 94.35 76.92 0.00] def /Bi6 %Nullpunkt + x-Sechseck [ 0.00 64.55 90.75 79.90 -13.56 -103.59 -58.42 64.55 0.00] def } if pPRTV 1 eq {/Li6 %A* CIELAB TLS06 %W O Y L C V M O N [ 95.41 51.08 92.69 83.73 86.95 31.77 57.74 51.08 5.70] def /Ai6 %A* CIELAB [ 0.00 75.55 -20.55 -81.82 -45.74 72.91 93.07 75.55 0.00] def /Bi6 %Nullpunkt + x-Sechseck [ 0.00 59.69 89.24 78.32 -13.46 -101.29 -57.73 59.69 0.00] def } if pPRTV 2 eq {/Li6 %A* CIELAB TLS10 %W O Y L C V M O N [ 95.41 51.65 92.71 83.83 87.02 33.07 58.17 51.65 10.00] def /Ai6 %A* CIELAB [ 0.00 74.21 -20.39 -80.88 -45.31 70.03 91.80 74.21 0.00] def /Bi6 %Nullpunkt + x-Sechseck [ 0.00 55.83 87.77 76.81 -13.36 -99.11 -57.04 55.83 0.00] def } if pPRTV 3 eq {/Li6 %A* CIELAB TLS18 %W O Y L C V M O N [ 95.41 52.76 92.75 84.01 87.15 35.47 59.01 52.76 18.01] def /Ai6 %A* CIELAB [ 0.00 71.64 -20.06 -79.02 -44.45 64.92 84.34 71.64 0.00] def /Bi6 %Nullpunkt + x-Sechseck [ 0.00 49.88 84.97 73.94 -13.15 -95.09 -55.70 49.88 0.00] def } if pPRTV 4 eq {/Li6 %A* CIELAB TLS27 %W O Y L C V M O N [ 95.41 54.88 92.83 84.39 87.41 39.71 60.65 54.88 26.85] def /Ai6 %A* CIELAB [ 0.00 66.85 -19.42 -75.42 -42.75 56.66 84.61 66.85 0.00] def /Bi6 %Nullpunkt + x-Sechseck [ 0.00 41.69 79.81 68.77 -12.73 -88.04 -53.10 41.69 0.00] def } if pPRTV 5 eq {/Li6 %A* CIELAB TLS38 %W O Y L C V M O N [ 95.41 58.77 92.99 85.12 87.93 46.65 63.71 58.77 37.99] def /Ai6 %A* CIELAB [ 0.00 58.45 -18.14 -68.61 -39.45 44.93 75.93 58.45 0.00] def /Bi6 %Nullpunkt + x-Sechseck [ 0.00 31.73 70.82 60.03 -11.90 -76.58 -48.24 31.37 0.00] def } if pPRTV 6 eq {/Li6 %A* CIELAB TLS52 %W O Y L C V M O N [ 95.41 65.53 93.31 86.56 88.95 57.18 69.23 65.53 52.02] def /Ai6 %A* CIELAB [ 0.00 45.07 -15.63 -56.34 -33.21 30.66 60.96 45.07 0.00] def /Bi6 %Nullpunkt + x-Sechseck [ 0.00 20.98 56.28 46.53 -10.27 -59.42 -39.58 20.98 0.00] def } if pPRTV 7 eq {/Li6 %A* CIELAB TLS70 %W O Y L C V M O N [ 95.41 76.43 93.94 89.33 90.94 72.10 78.51 76.43 69.70] def /Ai6 %A* CIELAB [ 0.00 26.27 -10.79 -35.84 -21.98 15.76 37.53 26.27 0.00] def /Bi6 %Nullpunkt + x-Sechseck [ 0.00 10.57 34.64 27.65 -7.10 -35.65 -25.25 10.57 0.00] def } if } if %kPRTV=1 2 setlinewidth fcolors 00 get exec setcmykcolor %N /fak 0.8 def %x and yaxis imx 120 fak mul sub imy moveto imx 160 fak mul add imy lineto stroke imx imy 100 fak mul sub moveto imx imy 130 fak mul add lineto stroke %arrows imx 160 fak mul add 5 sub imy 2 add moveto 5 -2 rlineto -5 -2 rlineto stroke imx 2 sub imy 130 fak mul add 5 sub moveto 2 5 rlineto 2 -5 rlineto stroke imx 130 fak mul add imy 10 add moveto TIK (a*) show -8 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (a) show imx 15 add imy 118 fak mul add moveto TIK (b*) show -8 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (a) show 1 1 6 {/i exch def %Sechseck imx Ai6 i get Ai6 0 get sub fak mul add imy Bi6 i get Bi6 0 get sub fak mul add moveto imx Ai6 i 1 add get Ai6 0 get sub fak mul add imy Bi6 i 1 add get Bi6 0 get sub fak mul add lineto stroke } for %i /trushow {0.005 add 100 mul truncate 100 div 6 string cvs show} bind def /j 0 def 0 1 6 {/i exch def /k i j 8 mul add def TBIM 0.0 0.0 0.0 0.0 setcmykcolor %Textschrift Weiss /ku Far i get exec def /ix imx Ai6 i get Ai6 0 get sub fak mul add def /iy imy Bi6 i get Bi6 0 get sub fak mul add def ix 18 sub iy 18 sub 37 37 0 i eq {0 0 0 0} {fcolors ku get exec} ifelse colrecfi %Farbe-Fuellen je nach Auszug /kuc cFar k get exec def tfn j 0 eq {ix 22 add i 3 eq i 4 eq or {55 sub} if iy i 0 eq { 5 add} {9 sub} ifelse moveto tBtxb i get exec show } if i 1 ge {i 4 eq i 5 eq or {0.0 0.0 0.0 0.0 setcmykcolor ix 17 sub iy 14 sub moveto} {ix 17 sub iy 10 add moveto} ifelse /delL Li6 i get Li6 0 get sub fak mul 15 div def /delA Ai6 i get Ai6 0 get sub fak mul 15 div def /delB Bi6 i get Bi6 0 get sub fak mul 15 div def /delLAB delL dup mul delA dup mul add delB dup mul add sqrt def 150 16.67 div /Symbol FS (D) show 150 16.67 div /Times-ISOL1 FS (E*=) show delLAB trushow } if } for %schleife i TBM newpath 0.0 0.0 0.0 1.0 setcmykcolor %balls black %/teh [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def %/ted [(0,0) () () (0,2) () () (0,4) () () (0,6) () () (0,8) () () (1,0)] def 150 16.67 div /TimesB-ISOL1 FS 1 1 6 {/j exch def /delL Li6 j get Li6 0 get sub fak mul 15 div def /delA Ai6 j get Ai6 0 get sub fak mul 15 div def /delB Bi6 j get Bi6 0 get sub fak mul 15 div def /delLAB delL dup mul delA dup mul add delB dup mul add sqrt def 0 1 15 {/i exch def imx Ai6 0 get delA i mul add add imy Bi6 0 get delB i mul add add 2 0 360 arc fill } for } for %j showpage grestore %%Trailer