diff options
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.tex | 93 |
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 |