summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-marble
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-02-23 22:17:40 +0000
committerKarl Berry <karl@freefriends.org>2019-02-23 22:17:40 +0000
commit41496d7d4199ad05f927545beb05366d3aa25f65 (patch)
treefe033cd5be88c6f62a1fada195e1fb67a59451bd /Master/texmf-dist/tex/generic/pst-marble
parent76139222f42fb84aa5cc52762eea816f5c8b271f (diff)
pst-marble (22feb19)
git-svn-id: svn://tug.org/texlive/trunk@50102 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.tex36
1 files changed, 19 insertions, 17 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 86f370e8b50..4370413c880 100644
--- a/Master/texmf-dist/tex/generic/pst-marble/pst-marble.tex
+++ b/Master/texmf-dist/tex/generic/pst-marble/pst-marble.tex
@@ -6,7 +6,7 @@
%% %%
%% Package `pst-marble' %%
%% %%
-%% Aubrey Jaffer, with help of Manuel Luque, J�rgen Gilg %%
+%% Aubrey Jaffer, with help of Manuel Luque, Jürgen Gilg %%
%% Email address: agj@alum.mit.edu %%
%% Copyright (C) 2018-2019 Aubrey Jaffer %%
%% %%
@@ -25,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{1.3}
-\def\filedate{2019/02/18}
+\def\fileversion{1.3a}
+\def\filedate{2019/02/23}
\message{`PST' v\fileversion, \filedate}
%
\pstheader{pst-marble.pro}
@@ -48,16 +48,16 @@
[1 1 1]
},
colors={
- [0.275 0.569 0.796]
- [0.965 0.882 0.302]
- [0.176 0.353 0.129]
- [0.635 0.008 0.094]
- [0.078 0.165 0.518]
- [0.824 0.592 0.031]
- [0.059 0.522 0.392]
- [0.816 0.333 0.475]
- [0.365 0.153 0.435]
- [0.624 0.588 0.439]
+ [0.275 0.569 0.796]
+ [0.965 0.882 0.302]
+ [0.176 0.353 0.129]
+ [0.635 0.008 0.094]
+ [0.078 0.165 0.518]
+ [0.824 0.592 0.031]
+ [0.059 0.522 0.392]
+ [0.816 0.333 0.475]
+ [0.365 0.153 0.435]
+ [0.624 0.588 0.439]
},
viscosity=1000,
oversample=0,
@@ -65,14 +65,16 @@
drawcontours=false,
bckg=true
}%
+\psset[pstricks]{shapealpha=1}
\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{%
plotdict begin
-/FILL {\tx@setTransparency\space\tx@setBlendmode systemdict /fill get exec } def
-/STROKE {\pst@number\pslinewidth 1000 div SLW \tx@setStrokeTransparency\space\tx@setBlendmode systemdict /stroke get exec} def
+/FILL {\tx@setTransparency \tx@setBlendmode fill } def
+%/FILL {\tx@setTransparency fill } def
+/STROKE {\pst@number\pslinewidth 1000 div SLW \tx@setStrokeTransparency \tx@setBlendmode systemdict /stroke get exec} def
/cm {\pst@number\psunit mul } bind def
/background \pst@marble@background color-norm def
/colors [\pst@marble@colors] def
@@ -94,8 +96,8 @@ plotdict begin
gsave
\ifPst@bckg
background aload pop setrgbcolor
-% lox loy pagewidth pageheight RECTFILL
- newpath lox loy moveto pagewidth 0 rlineto 0 pageheight rlineto pagewidth neg 0 rlineto closepath FILL
+ lox loy pagewidth pageheight rectfill
+% newpath lox loy moveto pagewidth 0 rlineto 0 pageheight rlineto pagewidth neg 0 rlineto closepath FILL
\fi
lox loy pagewidth pageheight rectclip
marble