summaryrefslogtreecommitdiff
path: root/graphics/gastex/gastex.sty
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/gastex/gastex.sty')
-rw-r--r--graphics/gastex/gastex.sty55
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
}}
}}