summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/pst-cie/tex/pst-cie.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/pst-cie/tex/pst-cie.tex')
-rw-r--r--Master/texmf-dist/doc/latex/pst-cie/tex/pst-cie.tex93
1 files changed, 93 insertions, 0 deletions
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
new file mode 100644
index 00000000000..02686fd2565
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pst-cie/tex/pst-cie.tex
@@ -0,0 +1,93 @@
+%%
+%% This is file `pst-cie.tex',
+%%
+%% IMPORTANT NOTICE:
+%%
+%% Package `pst-cie.tex'
+%%
+%% Herbert Voss <hvoss _at_ tug.org>
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% DESCRIPTION:
+%% `pst-cie' is a PSTricks package to draw Julia and
+%% Mandelbrot sets as well as Sierpinski, ...
+%%
+\csname PSTcieLoaded\endcsname
+\let\PSTcieLoaded\endinput
+\ifx\PSTricksLoaded\endinput\else \input pstricks.tex\fi
+\ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi
+%
+\def\fileversion{1.01}
+\def\filedate{2016/04/18}
+\message{`PST-cie' v\fileversion, \filedate\space (hv)}
+%
+\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
+\pst@addfams{pst-cie}
+\pstheader{pst-cie.pro}
+
+\define@key[psset]{pst-cie}{gamma}[2.2]{\def\psk@psCIE@GAM{#1 }}
+\define@key[psset]{pst-cie}{contrast}[1]{\def\psk@psCIE@contrast{#1 }}
+\define@key[psset]{pst-cie}{bgcolor}[black]{\pst@getcolor{#1}\pst@psCIE@bgcolor}
+\define@key[psset]{pst-cie}{textcolor}[white]{\pst@getcolor{#1}\pst@psCIE@textcolor}
+\psset[pst-cie]{gamma=2.2,contrast=1,bgcolor=black,textcolor=white}
+\define@boolkey[psset]{pst-cie}[Pst@]{primaries}[true]{}
+\psset[pst-cie]{primaries} % 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
+\def\pst@cie@reservednames#1{%
+\edef\@tempa{\csname pst@cie@list@#1\endcsname}
+\@for \name:=\@tempa\do{%
+ \expandafter\def\csname pst@cie@#1@\name\endcsname{}%
+}}
+% système
+\def\pst@cie@list@ColorSpace{Adobe,CIE,ColorMatch,NTSC,Pal-Secam,ProPhoto,SMPTE,sRGB}
+%% Reservation de macros correspondants aux systemes
+\pst@cie@reservednames{ColorSpace}
+\define@key[psset]{pst-cie}{ColorSpace}{%
+ \ifcsname pst@cie@ColorSpace@#1\endcsname
+ \def\pst@cie@ColorSpace{#1}%
+ \else
+ \@pstrickserr{This color space is not authorized, sRGB is
+ chosen by default}{}%
+ \fi}
+\psset[pst-cie]{ColorSpace=sRGB}
+
+% datas
+\def\pst@cie@list@datas{CIE1964,CIE1931}
+%% Reservation de macros correspondants aux datas
+\pst@cie@reservednames{datas}
+\define@key[psset]{pst-cie}{datas}{%
+ \ifcsname pst@cie@datas@#1\endcsname
+ \def\pst@cie@datas{#1}%
+ \else
+ \@pstrickserr{This datas is not authorized, CIE1931 is chosen by default}{}%
+ \fi}
+\psset[pst-cie]{datas=CIE1931}
+
+\def\psChromaticityDiagram{\def\pst@par{}\pst@object{psChromaticityDiagram}}
+\def\psChromaticityDiagram@i{%
+ \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
+ /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-unit \pst@number\psunit 10 mul def
+ CIEChromaticityDiagramdict begin SCREEN {datas cvx exec} {ColorSpace cvx exec} gamma contrast traceGamut end
+ }%
+ \end@SpecialObj
+}%
+
+\catcode`\@=\PstAtCode\relax
+\endinput
+%% END pst-cie.tex \ No newline at end of file