diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-marble/pst-marble.tex')
| -rw-r--r-- | Master/texmf-dist/tex/generic/pst-marble/pst-marble.tex | 44 |
1 files changed, 22 insertions, 22 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 index a4d254cd9f9..9f188063ac0 100644 --- a/Master/texmf-dist/tex/generic/pst-marble/pst-marble.tex +++ b/Master/texmf-dist/tex/generic/pst-marble/pst-marble.tex @@ -5,8 +5,9 @@ %% IMPORTANT NOTICE: %% %% %% %% Package `pst-marble' %% +%% Copyright (C) 2018 Aubrey Jaffer %% %% %% -%% Aubrey Jaffers, with help of Manuel Luque, Jürgen Gilg %% +%% Aubrey Jaffers, with help of Manuel Luque, Jürgen Gilg %% %% Email address: agj@alum.mit.edu %% %% %% %% This program can redistributed and/or modified under %% @@ -24,8 +25,8 @@ \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} +\def\fileversion{1.0} +\def\filedate{2018/10/19} \message{`PST' v\fileversion, \filedate} % \pstheader{pst-marble.pro} @@ -34,24 +35,24 @@ \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}{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, +\define@boolkey[psset]{pst-marble}[Pst@]{bckg}[true]{} +\psset[pst-marble]{background=1 1 1, + viscosity=1000, + bckg=true, + actions=0 0 40 colors length 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]}, +[0.960 0.764 0.576] +[0.316 0.362 0.298] +[0.200 0.050 0.015] +[0.023 0.145 0.451] +[0.866 0.353 0.050] +[0.200 0.050 0.015] +}, drawcontours=false }% \def\psMarble{\def\pst@par{}\pst@object{psMarble}} @@ -61,13 +62,10 @@ \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 +\pst@number\pslinewidth\space 1000 div setlinewidth plotdict begin /loy pageheight -2 div def /hiy pageheight 2 div def @@ -76,16 +74,18 @@ plotdict begin /orgx hix lox add 2 div def /orgy hiy loy add 2 div def orgx orgy translate -/actions [\pst@marble@actions] def +/actions [ \pst@marble@actions ] def /acnt actions length def \ifPst@drawcontours /Contours {stroke} def \else /Contours {fill} def \fi +\ifPst@bckg gsave background aload pop setrgbcolor lox loy pagewidth pageheight rectfill grestore +\fi gsave lox loy pagewidth pageheight rectclip - \pst@marble@visc \pst@marble@L marble + \pst@marble@visc marble grestore end }% fin du code ps |