summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-marble
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-09-24 20:20:46 +0000
committerKarl Berry <karl@freefriends.org>2018-09-24 20:20:46 +0000
commitf019cbf3107bf60bc648746eb7e2e969c0c494df (patch)
tree7948f7e7842e392dce7408122b4334b1f95aa365 /Master/texmf-dist/tex/generic/pst-marble
parentc666ec419d70b2df36b9412255690960b7ca918b (diff)
pst-marble (24sep18)
git-svn-id: svn://tug.org/texlive/trunk@48747 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-marble')
-rw-r--r--Master/texmf-dist/tex/generic/pst-marble/pst-marble.tex95
1 files changed, 95 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-marble/pst-marble.tex b/Master/texmf-dist/tex/generic/pst-marble/pst-marble.tex
new file mode 100644
index 00000000000..a4d254cd9f9
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pst-marble/pst-marble.tex
@@ -0,0 +1,95 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% %%
+%% This is file `pst-marble.tex' %%
+%% %%
+%% IMPORTANT NOTICE: %%
+%% %%
+%% Package `pst-marble' %%
+%% %%
+%% Aubrey Jaffers, with help of Manuel Luque, Jürgen Gilg %%
+%% Email address: agj@alum.mit.edu %%
+%% %%
+%% This program can redistributed and/or modified under %%
+%% the terms of the LaTeX Project Public License %%
+%% Distributed from CTAN archives in directory %%
+%% macros/latex/base/lppl.txt; either version 1.3c of %%
+%% the License, or (at your option) any later version. %%
+%% %%
+%% DESCRIPTION: %%
+%% `pst-marble' is a PSTricks package to draw marble-like patterns %%
+%% %%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\csname PSTMARBLELoaded\endcsname
+\let \PSTMARBLELoaded\endinput
+\ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi
+\ifx\PSTXKeyLoaded\endinput \else\input pst-xkey.tex\fi
+\def\fileversion{0.1}
+\def\filedate{2018/09/23}
+\message{`PST' v\fileversion, \filedate}
+%
+\pstheader{pst-marble.pro}
+%
+\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
+\pst@addfams{pst-marble}
+\define@key[psset]{pst-marble}{background}{\def\pst@marble@background{#1 }}
+\define@key[psset]{pst-marble}{viscosity}{\def\pst@marble@visc{#1 }}
+% characteristic length
+\define@key[psset]{pst-marble}{L}{\def\pst@marble@L{#1 }} %
+\define@key[psset]{pst-marble}{resolution}{\def\pst@marble@resolution{#1 }} %
+\define@key[psset]{pst-marble}{actions}{\def\pst@marble@actions{#1 }}
+% colors are red, green, and blue components between 0 and 1.
+\define@key[psset]{pst-marble}{colors}{\def\pst@marble@colors{#1 }}
+\define@boolkey[psset]{pst-marble}[Pst@]{drawcontours}[true]{}
+\psset[pst-marble]{background=0 0 0,
+ viscosity=25,
+ L=200,
+ resolution=1,
+ actions=concentric-bands,
+ colors={
+ [0.376 0.357 0.451]
+ [0.255 0.259 0.341]
+ [0.306 0.498 0.62 ]
+ [0.686 0.741 0.851]
+ [0.353 0.529 0.627]},
+ drawcontours=false
+ }%
+\def\psMarble{\def\pst@par{}\pst@object{psMarble}}
+\def\psMarble@i{\@ifnextchar({\psMarble@ii}{\psMarble@ii(10,10)}}
+\def\psMarble@ii(#1,#2){%
+\begin@SpecialObj
+\addto@pscode{%
+/cm {\pst@number\psunit mul } bind def
+/background [\pst@marble@background] def
+/resolution \pst@marble@resolution def
+/colors [\pst@marble@colors] def
+/pagewidth #1 cm def % en cm
+/pageheight #2 cm def % en cm
+% clippath pathbbox
+%/hiy exch round cvi def /hix exch round cvi def
+%/loy exch round cvi def /lox exch round cvi def
+plotdict begin
+/loy pageheight -2 div def
+/hiy pageheight 2 div def
+/hix pagewidth 2 div def
+/lox pagewidth -2 div def
+/orgx hix lox add 2 div def
+/orgy hiy loy add 2 div def
+orgx orgy translate
+/actions [\pst@marble@actions] def
+/acnt actions length def
+\ifPst@drawcontours /Contours {stroke} def \else /Contours {fill} def \fi
+gsave
+ background aload pop setrgbcolor
+ lox loy pagewidth pageheight rectfill
+grestore
+gsave
+ lox loy pagewidth pageheight rectclip
+ \pst@marble@visc \pst@marble@L marble
+grestore
+end
+ }% fin du code ps
+ \end@SpecialObj
+ }% % fin de la commande PSTricks
+\catcode`\@=\PstAtCode\relax
+\endinput \ No newline at end of file