%!PS-Adobe-3.0 EPSF-3.0 SI280-8N %%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 4 def /lanind2 4 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 0 def 5 /Times-ISOL1 FS 72 85 moveto (Teil 6) showde (Part 6) showen 195 85 moveto (SI280-8) show %pPRTV 0 eq {(NRS18) 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 ) showen %( im Buntheitsdiagramm ) showde %5 /TimesI-ISOL1 FS %((a*, b*) ) show %5 /Times-ISOL1 FS %(of ) showen %(von ) showde %5 /TimesI-ISOL1 FS %(lab*) show 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 (RJGC'BM') show 002 200 moveto (hexagon) showea (Sechseck) showde 002 160 moveto (Relative) showea (Relativer) showde 002 140 moveto (Space) showea (Raum) showde 002 120 moveto TBIM (lab*) show TBK 001 62 moveto kPRTV 0 eq {%(Printing ) showea %(Druck ) showde pPRTV 0 eq {(NRS18) 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 {(Elementary colours RJGB) showea (Elementarfarben RJGB) showde } {(Elementary colours RJGB) showea (Elementarfarben RJGB) showde } ifelse 001 02 moveto kPRTV 0 eq {(2 mixed colors C'=G50B, M'=B50R) showea (2 Mischfarben C'=G50B, M'=B50R) showde } {(2 mixed colors C'=G50B, M'=B50R) showea (2 Mischfarben C'=G50B, M'=B50R) showde } ifelse %0.0 0.0 0.0 1.0 setcmykcolor %black %108 227 moveto %TBIK (OYLCVMNW) show TBK %( default color space) showea %(\255Vorgabefarbraum) showde /tBtxb %textBtx-Reihenfolge [(W) (R) (J) (G) (C') (B) (M') (W) (H) (YO) (OM) (MV) (VC) (CL) (LY) (R) ] def /imx 179 def /imy 119 def /Ai6 9 array def /Bi6 9 array def /Ci6 9 array def /Hi6 9 array def Ai6 0 0.00 put Bi6 0 0.00 put Ai6 8 0.00 put Bi6 8 0.00 put kPRTV 0 eq { %kPRTV=0, from E6531-78.PS pPRTV 0 eq {/Li6 %A* CIELAB CNS00 %W R J G C B M R N [ 95.41 56.70 56.70 56.70 56.70 56.70 56.70 56.70 18.00] def /Ci6 %A* CIELAB [ 0.00 77.41 77.41 77.41 77.41 77.41 77.41 77.41 0.00] def /Hi6 %Nullpunkt + x-Sechseck [ 0.00 26.00 92.00 162.00 217.00 272.00 329.00 26.00 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 NRS18 %W R J G C B M R N [ 95.41 47.70 47.70 47.70 47.70 47.70 47.70 47.70 0.00] def /Ci6 %A* CIELAB [ 0.00 95.41 95.41 95.41 95.41 95.41 95.41 95.41 0.00] def /Hi6 %Nullpunkt + x-Sechseck [ 0.00 26.00 92.00 162.00 217.00 272.00 329.00 26.00 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 -3 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (r) show imx 5 add imy 118 fak mul add moveto TIK (b*) show -3 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (r) show imx 30 add imy 110 fak mul add moveto TIK (hue angles) showea (Bunttonwinkel) showde imx 30 add imy 90 fak mul add moveto TIK (h) show 00 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (ab,a) show 0 5 rmoveto TK (= 26, 92, 162) show imx 55 add imy 70 fak mul add moveto TK (217, 272, 329) show %imx 41 fak mul add imy 90 sub moveto TIK (lab*x=) show %imx 101 fak mul add imy 80 sub moveto TIK (LAB*x) show %imx 101 fak mul add imy 100 sub moveto TIK (LAB*C) show %0 -5 rmoveto 200 16.67 div /Times-ISOL1 FS (Ma) show %imx 101 fak mul add imy 86 sub moveto 52 0 rlineto stroke %imx 75 fak mul add imy 116 sub moveto TIK (x = a, b) show 1 1 7 {/i exch def %calculate Ai6,Bi6 Ai6 i Ci6 i get Hi6 i get cos mul put Bi6 i Ci6 i get Hi6 i get sin mul put } for %i imx Ai6 0 get add imy Bi6 0 get add moveto imx Ai6 0 get add imy Bi6 0 get add 50 0 360 arc stroke /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 /delA1 Ai6 i get Ai6 0 get sub fak mul def /delB1 Bi6 i get Bi6 0 get sub fak mul def /delC1 delA1 dup mul delB1 dup mul add sqrt def /delL Li6 i get Li6 0 get sub fak mul def /delA delA1 delC1 0.0001 add div 50 mul def /delB delB1 delC1 0.0001 add div 50 mul def /delLAB delL dup mul delA dup mul add delB dup mul add sqrt def /ix imx Ai6 0 get add delA add def /iy imy Bi6 0 get add delB 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 {i 1 ge {ix 22 add i 3 eq i 4 eq or {60 sub} if iy i 0 eq i 2 eq or { 5 add} {12 sub} ifelse moveto tBtxb i get exec show } if } 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 % 150 16.67 div /Symbol FS (D) show % 150 16.67 div /Times-ISOL1 FS (E*=) show delLAB 15 div 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 /delA1 Ai6 j get Ai6 0 get sub fak mul def /delB1 Bi6 j get Bi6 0 get sub fak mul def /delC1 delA1 dup mul delB1 dup mul add sqrt def /delL Li6 j get Li6 0 get sub fak mul 15 div def /delA delA1 delC1 div 50 mul 15 div def /delB delB1 delC1 div 50 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 add delA i mul add imy Bi6 0 get add delB i mul add 2 0 360 arc fill } for } for %j showpage grestore %%Trailer