diff options
author | Karl Berry <karl@freefriends.org> | 2018-09-24 20:20:46 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-09-24 20:20:46 +0000 |
commit | f019cbf3107bf60bc648746eb7e2e969c0c494df (patch) | |
tree | 7948f7e7842e392dce7408122b4334b1f95aa365 /Master/texmf-dist/tex/generic/pst-marble | |
parent | c666ec419d70b2df36b9412255690960b7ca918b (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.tex | 95 |
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 |