diff options
author | Norbert Preining <norbert@preining.info> | 2024-02-13 03:01:44 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-02-13 03:01:44 +0000 |
commit | ff59efb1f42e705d74a6d50a1f8dbd7988ccf380 (patch) | |
tree | 5da1e898aa276a82243afc394d373a15170d43d0 /graphics/gastex/gastex.sty | |
parent | 275a181f003d2af5b7d9ca34f2b15f6511b3ea29 (diff) |
CTAN sync 202402130301
Diffstat (limited to 'graphics/gastex/gastex.sty')
-rw-r--r-- | graphics/gastex/gastex.sty | 55 |
1 files changed, 30 insertions, 25 deletions
diff --git a/graphics/gastex/gastex.sty b/graphics/gastex/gastex.sty index 9fbb83909b..5c64cd2f48 100644 --- a/graphics/gastex/gastex.sty +++ b/graphics/gastex/gastex.sty @@ -17,8 +17,8 @@ %% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \NeedsTeXFormat{LaTeX2e} -\ProvidesPackage{gastex}[2013/10/01 v3.0] -\RequirePackage{ifpdf} +\ProvidesPackage{gastex}[2024/02/12 v3.1] +\RequirePackage{iftex} \RequirePackage{xkeyval} \RequirePackage{xifthen} \RequirePackage{calc} @@ -83,7 +83,9 @@ % \ifgastex@pdflatex \ifgastex@autopstpdf + \PassOptionsToPackage{pspdf=-dALLOWPSTRANSPARENCY}{auto-pst-pdf} \RequirePackage{auto-pst-pdf} +% \RequirePackage[pspdf=-dALLOWPSTRANSPARENCY]{auto-pst-pdf} \else \RequirePackage{pst-pdf} \fi @@ -445,7 +447,7 @@ % width in \unitlegth of lines % dash={list of numbers}{offset} % Set the dash pattern used for drawing postscript paths. -% The numbers in the list indicate alternatively lengths +% The numbers in the list indicate alternately lengths % in \unitlength of dashes and lengths in \unitlength of spaces. % The list of lenghts is used circularly. % offset allows to start the pattern at some distance from its beginning. @@ -1277,6 +1279,7 @@ % [parameter=value,...] \def\drawbpedge#1(#2)#3{{% \@ifnextchar[{\process@bpedgeopt}{\draw@bpedge}#1(#2){#3}}} +\let\drawcbpedge\drawbpedge \def\process@bpedgeopt[#1]{\gasset{#1}\draw@bpedge}% \def\draw@bpedge(#1,#2,#3,#4,#5,#6)#7{% % Control points of the cubic Bezier curve @@ -1328,6 +1331,7 @@ % [parameter=value,...] \def\drawbcedge#1(#2)#3{{% \@ifnextchar[{\process@bcedgeopt}{\draw@bcedge}#1(#2){#3}}} +\let\drawcbedge\drawbcedge \def\process@bcedgeopt[#1]{\gasset{#1}\draw@bcedge}% \def\draw@bcedge(#1,#2,#3,#4,#5,#6)#7{% % Control points of the cubic Bezier curve @@ -1591,25 +1595,26 @@ % x1,y1 : coordinates of the upper right corner of the rectangle. % Optional argument: % [parameter=value,...] -\def\drawrect#1(#2){{% - \@ifnextchar[{\process@rectopt}{\draw@rect}#1(#2)}} -\def\process@rectopt[#1]{\gasset{#1}\draw@rect}% -\def\draw@rect(#1,#2,#3,#4){{% - \dim@x=#1\unitlength \edef\ps@x{\strip@PT\dim@x}% - \dim@x=#2\unitlength \edef\ps@y{\strip@PT\dim@x}% - \dim@x=#3\unitlength \edef\ps@a{\strip@PT\dim@x}% - \dim@x=#4\unitlength \edef\ps@b{\strip@PT\dim@x}% - \put(0,0){\special{" \gas@initps - \if@fill - \fill@color - \ps@x \ps@y \ps@a \ps@b !psrectpath fill - \fi - \if@frame - \line@color - \ps@x \ps@y \ps@a \ps@b !psrectpath stroke - \fi - }} -}} +\def\drawrect#1(#2,#3,#4,#5){\drawpolygon#1(#2,#3)(#4,#3)(#4,#5)(#2,#5)}% +% \def\drawrect#1(#2){{% +% \@ifnextchar[{\process@rectopt}{\draw@rect}#1(#2)}} +% \def\process@rectopt[#1]{\gasset{#1}\draw@rect}% +% \def\draw@rect(#1,#2,#3,#4){{% +% \dim@x=#1\unitlength \edef\ps@x{\strip@PT\dim@x}% +% \dim@x=#2\unitlength \edef\ps@y{\strip@PT\dim@x}% +% \dim@x=#3\unitlength \edef\ps@a{\strip@PT\dim@x}% +% \dim@x=#4\unitlength \edef\ps@b{\strip@PT\dim@x}% +% \put(0,0){\special{" \gas@initps +% \if@fill +% \fill@color +% \ps@x \ps@y \ps@a \ps@b !psrectpath fill +% \fi +% \if@frame +% \line@color +% \ps@x \ps@y \ps@a \ps@b !psrectpath stroke +% \fi +% }} +% }} %----------------------------------------------------------------------- % Draw an oval. @@ -1635,11 +1640,11 @@ \edef\ps@path{\ps@path !psovalpath\space}% \put(0,0){\special{" \gas@initps \if@fill - \fill@color \ps@path fill - \fi + \fill@color \ps@path fill + \fi \if@frame \line@color \ps@path stroke - \fi + \fi }} }} |