From 069503af305d75c1cef7a93d073495529d717229 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 2 May 2016 22:49:14 +0000 Subject: pst-cie (2may16) git-svn-id: svn://tug.org/texlive/trunk@40837 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/latex/pst-cie/Changes | 4 + .../doc/latex/pst-cie/doc/pst-cie-doc.bib | 23 +---- .../doc/latex/pst-cie/doc/pst-cie-doc.pdf | Bin 5920449 -> 6016757 bytes .../doc/latex/pst-cie/doc/pst-cie-doc.tex | 54 ++++++++--- .../texmf-dist/doc/latex/pst-cie/dvips/pst-cie.pro | 100 ++++++--------------- .../texmf-dist/doc/latex/pst-cie/tex/pst-cie.tex | 78 +++++++++------- 6 files changed, 120 insertions(+), 139 deletions(-) (limited to 'Master/texmf-dist/doc') diff --git a/Master/texmf-dist/doc/latex/pst-cie/Changes b/Master/texmf-dist/doc/latex/pst-cie/Changes index f9088bb089b..70a907939c2 100644 --- a/Master/texmf-dist/doc/latex/pst-cie/Changes +++ b/Master/texmf-dist/doc/latex/pst-cie/Changes @@ -1,11 +1,15 @@ ..... pst-cie.tex +1.04 2016-05-01 - fixed bug with scaling +1.03 2016-04-26 - use always the internal area 0..1 1.02 2016-04-25 - added support of Planckian locus - \pstPlanck - \pstCIEcontour 1.01 2016-04-18 - initial version ..... pst-cie.pro +1.04 2016-05-01 - fixed bug with scaling +1.03 2016-04-25 - deleted tabxy 1.02 2016-04-24 - added support of Planckian locus 1.01 2016-04-18 initial version diff --git a/Master/texmf-dist/doc/latex/pst-cie/doc/pst-cie-doc.bib b/Master/texmf-dist/doc/latex/pst-cie/doc/pst-cie-doc.bib index df9f6de757e..0302427234f 100644 --- a/Master/texmf-dist/doc/latex/pst-cie/doc/pst-cie-doc.bib +++ b/Master/texmf-dist/doc/latex/pst-cie/doc/pst-cie-doc.bib @@ -19,9 +19,7 @@ @Manual{pstricks, Title = {PSTricks - {\PS} macros for Generic TeX}, Author = {Timothy Van Zandt}, - Organization = {}, Address = {\url{http://www.tug.org/application/PSTricks}}, - Note = {}, year = 1993, } @@ -44,13 +42,6 @@ month = jun, pages = {27--34}, annote = bretter, - keywords = {}, - abstract = { Im letzten Heft wurden die mathematischen Funktionen von - \PS~im Zusammenhang mit dem {\LaTeX}-Paket - \texttt{pst-plot} zum Zeichnen von Funktionen beschrieben - und durch Beispiele erl{\"a}utert. In diesem Teil werden - die bislang nur erw{\"a}hnten Plot-Funktionen f{\"u}r - externe Daten behandelt. } } @Article{dtk02.1:voss:mathematischen, @@ -64,16 +55,6 @@ month = mar, pages = {40-47}, annote = bretter, - keywords = {}, - abstract = { \PS, faktisch genauso alt wie {\TeX}, ist im - Verh{\"a}ltnis dazu allgemein noch weniger bekannt, wenn es - darum geht zu beurteilen, was es denn nun im eigentlichen - Sinne ist. Au{\ss}erdem wird h{\"a}ufig vergessen, dass - sich mit den \PS-Funktionen viele Dinge erledigen lassen, - bei denen sonst auf externe Programme zur{\"u}ckgegriffen - wird. Dies wird im Folgenden f{\"u}r die mathematischen - Funktionen im Zusammenhang mit dem Paket \texttt{pst-plot} - gezeigt. } } @Book{tlgc2, @@ -87,7 +68,7 @@ @Book{PSTricks2, - author = {Herbert Vo\ss}, + author = {Herbert Voß}, title = {\texttt{PSTricks} -- {G}raphics for \TeX{} and \LaTeX}, edition = {1}, publisher = {UIT}, @@ -96,7 +77,7 @@ } @Book{voss:ref, - author = {Herbert Vo\ss}, + author = {Herbert Voß}, title = {\LaTeX\ quick reference}, publisher = {UIT}, year = {2011}, diff --git a/Master/texmf-dist/doc/latex/pst-cie/doc/pst-cie-doc.pdf b/Master/texmf-dist/doc/latex/pst-cie/doc/pst-cie-doc.pdf index a091ae81221..0264261dfec 100644 Binary files a/Master/texmf-dist/doc/latex/pst-cie/doc/pst-cie-doc.pdf and b/Master/texmf-dist/doc/latex/pst-cie/doc/pst-cie-doc.pdf differ diff --git a/Master/texmf-dist/doc/latex/pst-cie/doc/pst-cie-doc.tex b/Master/texmf-dist/doc/latex/pst-cie/doc/pst-cie-doc.tex index f9c92e4f7ce..e7e8b9ba270 100644 --- a/Master/texmf-dist/doc/latex/pst-cie/doc/pst-cie-doc.tex +++ b/Master/texmf-dist/doc/latex/pst-cie/doc/pst-cie-doc.tex @@ -1,4 +1,4 @@ -%% $Id: pst-cie-doc.tex 289 2016-04-25 20:28:45Z herbert $ +%% $Id: pst-cie-doc.tex 293 2016-05-01 19:05:00Z herbert $ \documentclass[11pt,english,BCOR10mm,DIV12,bibliography=totoc,parskip=false,smallheadings, headexclude,footexclude,oneside]{pst-doc} \listfiles @@ -6,10 +6,10 @@ \usepackage[utf8]{inputenc} \usepackage{pst-cie} \let\pstFV\fileversion -\def\bgImage{\psset{unit=0.8}\begin{pspicture}(-1,-1)(8.5,11) +\def\bgImage{\resizebox{7cm}{!}{\begin{pspicture}(-1,-1)(8.5,11) \psChromaticityDiagram[Planck,bgcolor=yellow!100!black!20,textcolor=black!70,ColorSpace=Pal-Secam] \rput(5.5,8){\textbf{Pal-Secam}} -\end{pspicture}} +\end{pspicture}}} \lstset{explpreset={pos=l,width=-99pt,overhang=0pt,hsep=\columnsep,vsep=\bigskipamount,rframe={}}} \usepackage[style=dtk]{biblatex} \addbibresource{\jobname.bib} @@ -72,9 +72,9 @@ y&0.3300&0.7100&0.0800&0.3162\\\hline } \begin{document} -\title{\texttt{pst-cie}: Diagramme de chromaticité\\ +\title{\texttt{pst-cie}: CIE xy chromaticity space\\ \small v.\pstFV} -%\docauthor{Michael Sharpe\\Herbert Vo\ss} +%\docauthor{} \author{Manuel Luque\\Herbert Voß} \maketitle @@ -118,6 +118,9 @@ The macro \Lcs{psChromaticityDiagram}\OptArgs supports the following optional ar \Lkeyword{Planck} & boolean & false & draw the Planck' locus \\ \Lkeyword{showcontour} & boolean & false & \sloppy show the contour of the color space, only useful for using \Lcs{pstPlanck}.\\ \Lkeyword{Tfontsize} & length & 4pt & fontsize for the temperature of the Planck curve\\ +\Lkeyword{unit} & number & 1 & unit depending to the default size of 10cm$\times$10cm\\ +\Lkeyword{PSfont} & PS font & Helvetica-Bold & \\ +\Lkeyword{fontscale} & 5 & PS font scale in pt\\ \bottomrule \end{tabularx} @@ -138,7 +141,6 @@ with vertices the points of primary colors included in the \emph{Iron horse} which represents all the colors visible to the human eye. - \section{Examples} \begin{center} \begin{pspicture}(-1,-1)(8.5,11) @@ -156,6 +158,9 @@ with vertices the points of primary colors included in the \end{verbatim} \end{center} + + + \begin{center} \begin{pspicture}(-1,-1)(8.5,11) \psChromaticityDiagram[Planck] @@ -316,13 +321,15 @@ with vertices the points of primary colors included in the \clearpage +\makeatletter \begin{pspicture}(0,-1)(10,10) \psaxes[Dx=0.1,dx=1,Dy=0.1,dy=1]{->}(0,0)(10,10)[$x$,-90][$y$,0] \pstCIEcontour[linecolor=blue]% \pstCIEcontour[datas=CIE1964]% \pscustom{ \code{ tx@CIEdict begin - /cie-unit 285 def + /cie-unitx { \pst@number\psxunit mul } def + /cie-unity { \pst@number\psyunit mul } def /primaryIlluminants { % sRGB /xR 0.6400 def /yR 0.3300 def /xG 0.3000 def /yG 0.6000 def @@ -330,21 +337,24 @@ with vertices the points of primary colors included in the D65 } def newpath primaryIlluminants - xR unit yR unit moveto - xG unit yG unit lineto - xB unit yB unit lineto + xR cie-unitx yR cie-unity moveto + xG cie-unitx yG cie-unity lineto + xB cie-unitx yB cie-unity lineto closepath stroke end} } \end{pspicture} +\makeatother \begin{verbatim} +\makeatletter \begin{pspicture}(0,-1)(10,10) \psaxes[Dx=0.1,dx=1,Dy=0.1,dy=1]{->}(0,0)(10,10)[$x$,-90][$y$,0] \pstCIEcontour[linecolor=blue]% \pstCIEcontour[datas=CIE1964]% \pscustom{ \code{ tx@CIEdict begin - /cie-unit 285 def + /cie-unitx { \pst@number\psxunit mul } def + /cie-unity { \pst@number\psyunit mul } def /primaryIlluminants { % sRGB /xR 0.6400 def /yR 0.3300 def /xG 0.3000 def /yG 0.6000 def @@ -352,17 +362,33 @@ with vertices the points of primary colors included in the D65 } def newpath primaryIlluminants - xR unit yR unit moveto - xG unit yG unit lineto - xB unit yB unit lineto + xR cie-unitx yR cie-unity moveto + xG cie-unitx yG cie-unity lineto + xB cie-unitx yB cie-unity lineto closepath stroke end} } \end{pspicture} +\makeatother \end{verbatim} + +\begin{pspicture}(0,-1)(15,15) +\psaxes[Dx=0.2,dx=3,Dy=0.2,dy=3, + labelFontSize=\scriptscriptstyle]{->}(0,0)(15,15)[$x$,-90][$y$,0] +\pstCIEcontour[unit=1.5,linecolor=blue]% +\end{pspicture} + +\begin{verbatim} +\begin{pspicture}(0,-1)(15,15) +\psaxes[Dx=0.2,dx=3,Dy=0.2,dy=3, + labelFontSize=\scriptscriptstyle]{->}(0,0)(15,15)[$x$,-90][$y$,0] +\pstCIEcontour[unit=1.5,linecolor=blue]% +\end{pspicture} +\end{verbatim} \end{center} + \clearpage \section{List of all optional arguments for \texttt{pst-cie}} \xkvview{family=pst-cie,columns={key,type,default}} diff --git a/Master/texmf-dist/doc/latex/pst-cie/dvips/pst-cie.pro b/Master/texmf-dist/doc/latex/pst-cie/dvips/pst-cie.pro index 34948e2fb55..319e7af373a 100644 --- a/Master/texmf-dist/doc/latex/pst-cie/dvips/pst-cie.pro +++ b/Master/texmf-dist/doc/latex/pst-cie/dvips/pst-cie.pro @@ -1,4 +1,4 @@ -%% version 1.02 2016-04-25 +%% version 1.04 2016-05-01 /tx@CIEdict 50 dict def tx@CIEdict begin %% CIE 1931 (2 degree) @@ -1079,41 +1079,6 @@ pop } repeat } def -/T2RGB { - /T exch 100 div def - % Calculate Red - T 66 le - {/R 255 def} - {/R T 55 sub def - /R 351.97690566805693 0.114206453784165 R mul add -40.25366309332127 R ln mul add def - R 0 lt { /R 0 def } if - R 255 gt {/R 255 def} if - } ifelse -% Calculate Green - T 66 le - { /G T 2 sub def - /G -155.25485562709179 G -0.44596950469579133 mul add 104.49216199393888 G ln mul add def - G 0 lt {/G 0 def} if - G 255 gt {/G 255 def} if - } - { /G T 50 sub def - /G 325.4494125711974 0.07943456536662342 G mul add -28.0852963507957 G ln mul add def - G 0 lt {/G 0 def} if - G 255 gt {/G 255 def} if - } ifelse -% Calculate Blue - T 66 ge - { /B 255 def } - { T 20 le - { /B 0 def } - { /B T 10 sub def - /B -254.76935184120902 0.8274096064007395 B mul add 115.67994401066147 B ln mul add def - B 0 lt {/B 0 def} if - B 255 gt {/B 255 def} if - } ifelse - } ifelse - R 255 div G 255 div B 255 div -} def % /BLKBOD { /tablename ED @@ -1178,6 +1143,8 @@ grestore } def % +/unitPixel {0.005 cie-unit mul} def + /pixelSquare { /y0 exch def /x0 exch def newpath @@ -1191,10 +1158,10 @@ closepath /pixelSquareColor{ /y0 exch def /x0 exch def newpath -x0 1.5 sub y0 1.5 sub moveto -3 0 rlineto -0 3 rlineto --3 0 rlineto +x0 unitPixel sub y0 unitPixel sub moveto +unitPixel 2 mul 0 rlineto +0 unitPixel 2 mul rlineto +unitPixel -2 mul 0 rlineto closepath } def % @@ -1222,17 +1189,19 @@ TAB 0 get aload pop unit exch unit exch moveto closepath } def % +/stepXY {1 285 cie-U mul div} def /gamutTriangle { newpath -0 1 285 {/i exch def -0 1 285 {/j exch def - /X i 285 div def - /Y j 285 div def +% 400 pixels +0 stepXY 1 {/X exch def +0 stepXY 1 {/Y exch def /Z 1 X sub Y sub def + /xPos X cie-unit mul def + /yPos Y cie-unit mul def Z 0 ge { xy2RGB normalisation - i j pixelSquare % 1 0 360 arc + xPos yPos pixelSquare R GAM exp G GAM exp B GAM exp setrgbcolor fill } if @@ -1242,15 +1211,15 @@ newpath def /gamut { newpath -0 1 285 {/i exch def -0 1 285 {/j exch def - /X i 285 div def - /Y j 285 div def +0 stepXY 1 {/X exch def +0 stepXY 1 {/Y exch def /Z 1 X sub Y sub def + /xPos X cie-unit mul def + /yPos Y cie-unit mul def Z 0 ge { xy2RGB normalisation - i j pixelSquare % 1 0 360 arc + xPos yPos pixelSquare R GAM exp contrast mul G GAM exp contrast mul B GAM exp contrast mul setrgbcolor fill } if @@ -1285,7 +1254,7 @@ newpath } def % dessin du triangle des couleurs plein % afficher les longieurs d'onde -% /Helvetica-bold findfont 5 scalefont setfont +% /Helvetica-Bold findfont 5 scalefont setfont % marquage des longueurs d'onde gsave % 460 -> 520 nm @@ -1295,7 +1264,7 @@ gsave system DrawGamut gsave - /Helvetica-bold findfont 5 scalefont setfont + setFont cie-textcolor 100 10 270 { /i exch def @@ -1368,7 +1337,7 @@ gsave cadre cie-textcolor stroke 0.5 setlinewidth axes - /Helvetica-bold findfont 5 scalefont setfont + setFont 0 0.1 0.9 { /i exch def /M1 {i unit -0.05 unit} def @@ -1383,12 +1352,12 @@ gsave M2 -2 add exch -8 add exch moveto i 15 string cvs show } for gsave - /Helvetica-bold findfont 8 scalefont setfont + setFont cie-textcolor -0.08 unit 0.45 unit moveto (y) 90 rotate show grestore gsave - /Helvetica-bold findfont 8 scalefont setfont + setFont cie-textcolor 0.35 unit -0.08 unit moveto (x) show grestore @@ -2356,22 +2325,5 @@ gsave [0.000001553140 0.000000629700 0.000000000000] ] def %% -% Usage -% T BLKBOD XYZ2RGB => R G B -/tabxy { %CIEXYZ_1931_table or CIEXYZ_1964_table - /tablename ED - 0 1 tablename length 1 sub - { /i exch def - tablename i get aload /subarray ED - add add /S ED - subarray 0 get S div - subarray 1 get S div - } for - tablename 0 get aload /subarray ED - add add /S ED - subarray 0 get S div - subarray 1 get S div -} def -% -end % od dictionary -%% \ No newline at end of file +end % of dictionary +%% diff --git a/Master/texmf-dist/doc/latex/pst-cie/tex/pst-cie.tex b/Master/texmf-dist/doc/latex/pst-cie/tex/pst-cie.tex index 719b9890f6a..e875087e47c 100644 --- a/Master/texmf-dist/doc/latex/pst-cie/tex/pst-cie.tex +++ b/Master/texmf-dist/doc/latex/pst-cie/tex/pst-cie.tex @@ -23,8 +23,8 @@ \ifx\PSTnodesLoaded\endinput\else \input pst-node \fi %\ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi % -\def\fileversion{1.02} -\def\filedate{2016/04/24} +\def\fileversion{1.04} +\def\filedate{2016/05/01} \message{`PST-cie' v\fileversion, \filedate\space (hv)} % \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax @@ -40,7 +40,8 @@ \define@key[psset]{pst-cie}{Tfontsize}{\pst@getlength{#1}\psk@Tfontsize} \define@boolkey[psset]{pst-cie}[Pst@]{Planck}[true]{} \define@boolkey[psset]{pst-cie}[Pst@]{showcontour}[true]{} -\psset[pst-cie]{primaries,Planck=false,showcontour=false,Tfontsize=4pt} % primary illuminants +\psset[pst-cie]{primaries,Planck=false,showcontour=false,Tfontsize=4pt} +% primary illuminants % systems = Adobe, CIE, SMPTE, sRGB,Pal-Secam, NTSC % #1=type de reservation (action, object...) associee a une liste qui % doit forcement etre du type pst@cie@list@#1 @@ -77,35 +78,52 @@ % \def\psChromaticityDiagram{\def\pst@par{}\pst@object{psChromaticityDiagram}} \def\psChromaticityDiagram@i{% + \addbefore@par{PSfont=Helvetica-Bold,fontscale=5} \begin@SpecialObj %\pstVerb{\ifPst@primaries /primaries {true} def \else /primaries {false} def \fi}% \addto@pscode{ \ifPst@primaries /primaries {true} def \else /primaries {false} def \fi /gamma \psk@psCIE@GAM def - /contrast \psk@psCIE@contrast def + /contrast \psk@psCIE@contrast def /ColorSpace (\pst@cie@ColorSpace) def /datas (\pst@cie@datas) def -% }% -% \addto@pscode{ - /cie-bgcolor { \pst@usecolor\pst@psCIE@bgcolor } def - /cie-textcolor { \pst@usecolor\pst@psCIE@textcolor } def + /cie-bgcolor { \pst@usecolor\pst@psCIE@bgcolor } def + /cie-textcolor { \pst@usecolor\pst@psCIE@textcolor } def /cie-unit \pst@number\psunit 10 mul def + /cie-U \pst@number\psunit 28.45274 div def + /setFont { \psk@PSfont findfont \psk@fontscale scalefont setfont } bind def \txCIEdictBegin SCREEN {datas cvx exec} {ColorSpace cvx exec} gamma contrast traceGamut end }% - \ifPst@Planck\gdef\ps@next{\pstPlanck}\else\gdef\ps@next{}\fi% options are local + \ifPst@Planck\gdef\ps@next{\pstPlanck}\else\gdef\ps@next{}\fi% options are local \end@SpecialObj \ps@next }% +% \def\pstCIEcontour{\pst@object{pstCIEcontour}}% \def\pstCIEcontour@i{% - \begingroup - \addbefore@par{unit=10,linecolor=red}% - \use@par - \listplot{ - \txCIEdictBegin \ifx\pst@cie@datas\CIEdefaultYear CIEXYZ_1931_table \else CIEXYZ_1964_table \fi - tabxy end }% - \endgroup + \addbefore@par{PSfont=Helvetica-Bold,fontscale=5} + \begin@SpecialObj + \addto@pscode{ + \ifPst@primaries /primaries {true} def \else /primaries {false} def \fi + /gamma \psk@psCIE@GAM def + /contrast \psk@psCIE@contrast def + /ColorSpace (\pst@cie@ColorSpace) def + /datas (\pst@cie@datas) def + /cie-bgcolor { \pst@usecolor\pst@psCIE@bgcolor } def + /cie-textcolor { \pst@usecolor\pst@psCIE@textcolor } def + /cie-unit \pst@number\psunit 10 mul def + /cie-U cie-unit 28.45274 div def + /setFont { \psk@PSfont findfont \psk@fontscale scalefont setfont } bind def + \txCIEdictBegin {datas cvx exec} /TAB exch def ColorSpace cvx exec %/system exch def +% system + gsave primaries {CouleursPrimaires} if grestore + TAB contour stroke + contourTriangle stroke + end + }% + \end@SpecialObj } +% \txCIEdictBegin \ifx\pst@cie@datas\CIEdefaultYear CIEXYZ_1931_table \else CIEXYZ_1964_table \fi % \def\pstPlanck{\pst@object{pstPlanck}}% \def\pstPlanck@i{% @@ -114,21 +132,21 @@ \font\CMSS=cmss10 at \psk@Tfontsize pt \ifPst@showcontour\pstCIEcontour\fi % lieu des points blancs (Planckian locus) - \parametricplot[unit=10,plotpoints=3000]{1000}{500000}{ - \txCIEdictBegin t \ifx\pst@cie@datas\CIEdefaultYear CIEXYZ_1931_table \else CIEXYZ_1964_table \fi - BLKBOD Y X X Y Z end - add add /S ED S div exch S div }% - \parametricplot[unit=10,plotpoints=2,arrows=-|]{500000}{502000}{ - \txCIEdictBegin t \ifx\pst@cie@datas\CIEdefaultYear CIEXYZ_1931_table \else CIEXYZ_1964_table \fi - BLKBOD Y X X Y Z end - add add /S ED S div exch S div }% + \parametricplot[plotpoints=3000]{1000}{500000}{ + \txCIEdictBegin t \ifx\pst@cie@datas\CIEdefaultYear CIEXYZ_1931_table \else CIEXYZ_1964_table \fi + BLKBOD Y X X Y Z end + add add /S ED S div 10 mul exch S div 10 mul }% + \parametricplot[plotpoints=2,arrows=-|]{500000}{502000}{ + \txCIEdictBegin t \ifx\pst@cie@datas\CIEdefaultYear CIEXYZ_1931_table \else CIEXYZ_1964_table \fi + BLKBOD Y X X Y Z end + add add /S ED S div 10 mul exch S div 10 mul }% % point de concours des normales : R.Sève : physique de la couleur (.332,.186) %\psdot[linecolor=red](3.32,1.86) \pnode(3.320,1.858){O}% \psforeach{\iA}{5000,7000,8000,9000,11000,12000,13000}{% \pnode(! \txCIEdictBegin \iA\space \ifx\pst@cie@datas\CIEdefaultYear CIEXYZ_1931_table \else CIEXYZ_1964_table \fi - BLKBOD Y X X Y Z end + BLKBOD Y X X Y Z end add add /S ED S div 10 mul exch S div 10 mul){D\iA}% \psRelNode(O)(D\iA){0.96}{d0}\psRelNode(O)(D\iA){1.04}{d1}% @@ -136,18 +154,18 @@ }% \psforeach{\iA}{1500,2000,2500,3000,4000,6000,10000}{% \pnode(! - \txCIEdictBegin \iA\space + \txCIEdictBegin \iA\space \ifx\pst@cie@datas\CIEdefaultYear CIEXYZ_1931_table \else CIEXYZ_1964_table \fi - BLKBOD Y X X Y Z end + BLKBOD Y X X Y Z end add add /S ED S div 10 mul exch S div 10 mul){D\iA}% \psRelNode(O)(D\iA){1 3.2e-5 \iA\space mul sub}{d0}\psRelNode(O)(D\iA){1 3.2e-5 \iA\space mul add}{d1}% \pcline(d0)(d1)\ncput[npos=1.15]{\CMSS\iA}% }% \uput[-125](! - 1e5 + 1e5 \txCIEdictBegin \ifx\pst@cie@datas\CIEdefaultYear CIEXYZ_1931_table \else CIEXYZ_1964_table \fi - BLKBOD Y X X Y Z end + BLKBOD Y X X Y Z end add add /S ED S div 10 mul exch S div 10 mul){$\scriptstyle\infty$}% \endgroup @@ -155,4 +173,4 @@ % \catcode`\@=\PstAtCode\relax \endinput -%% END pst-cie.tex \ No newline at end of file +%% END pst-cie.tex \def\pstCIEcontour{\pst@object{pstCIEcontour}}% -- cgit v1.2.3