From 41496d7d4199ad05f927545beb05366d3aa25f65 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 23 Feb 2019 22:17:40 +0000 Subject: pst-marble (22feb19) git-svn-id: svn://tug.org/texlive/trunk@50102 c570f23f-e606-0410-a88d-b1316a301751 --- .../tex/generic/pst-marble/pst-marble.tex | 36 ++++++++++++---------- 1 file changed, 19 insertions(+), 17 deletions(-) (limited to 'Master/texmf-dist/tex/generic/pst-marble') 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 -- cgit v1.2.3