summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-05-02 22:49:14 +0000
committerKarl Berry <karl@freefriends.org>2016-05-02 22:49:14 +0000
commit069503af305d75c1cef7a93d073495529d717229 (patch)
treed8b059fb47ce5f30f2cf7ec2efc713ba5956f382 /Master/texmf-dist/doc
parentd3ee57eb86f8d8fe234986122d2c5faf359189f1 (diff)
pst-cie (2may16)
git-svn-id: svn://tug.org/texlive/trunk@40837 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc')
-rw-r--r--Master/texmf-dist/doc/latex/pst-cie/Changes4
-rw-r--r--Master/texmf-dist/doc/latex/pst-cie/doc/pst-cie-doc.bib23
-rw-r--r--Master/texmf-dist/doc/latex/pst-cie/doc/pst-cie-doc.pdfbin5920449 -> 6016757 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pst-cie/doc/pst-cie-doc.tex54
-rw-r--r--Master/texmf-dist/doc/latex/pst-cie/dvips/pst-cie.pro100
-rw-r--r--Master/texmf-dist/doc/latex/pst-cie/tex/pst-cie.tex78
6 files changed, 120 insertions, 139 deletions
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
--- 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
Binary files 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}}%