Package: gs
Version: 4.01-2
A rectangle drawn with rounded corners from xfig is not displayed
correctly with gs 4.01-2.
The following patch is supposed to fix this, according to an article
I read in the news.
*** gspath1.c.orig Fri Jul 26 09:17:35 1996
--- gspath1.c Fri Jul 26 09:18:35 1996
***************
*** 170,176 ****
yt0 = ay1 + dy0 * l0;
xt2 = ax1 + dx2 * l2;
yt2 = ay1 + dy2 * l2;
! code = arc_add(pgs, true, arad, xt0, yt0, xt2, yt2,
ax1, ay1);
}
}
if ( retxy != 0 )
--- 170,176 ----
yt0 = ay1 + dy0 * l0;
xt2 = ax1 + dx2 * l2;
yt2 = ay1 + dy2 * l2;
! code = arc_add(pgs, arc_lineto, arad, xt0, yt0, xt2,
yt2, ax1, ay1);
}
}
if ( retxy != 0 )
Here's an example which triggers the bug.
#!/bin/sh
# This is a shell archive (produced by GNU sharutils 4.2).
# To extract the files from this archive, save it to some FILE, remove
# everything before the `!/bin/sh' line above, then type `sh FILE'.
#
# Made on 1996-08-27 10:47 MET DST by <[EMAIL PROTECTED]>.
# Source directory was `/home/ig25'.
#
# Existing files will *not* be overwritten unless `-c' is specified.
#
# This shar contains:
# length mode name
# ------ ---------- ------------------------------------------
# 2790 -rw-r----- unnamed.eps
# 130 -rw-r----- unnamed.fig
#
save_IFS="${IFS}"
IFS="${IFS}:"
gettext_dir=FAILED
locale_dir=FAILED
first_param="$1"
for dir in $PATH
do
if test "$gettext_dir" = FAILED && test -f $dir/gettext \
&& ($dir/gettext --version >/dev/null 2>&1)
then
set `$dir/gettext --version 2>&1`
if test "$3" = GNU
then
gettext_dir=$dir
fi
fi
if test "$locale_dir" = FAILED && test -f $dir/shar \
&& ($dir/shar --print-text-domain-dir >/dev/null 2>&1)
then
locale_dir=`$dir/shar --print-text-domain-dir`
fi
done
IFS="$save_IFS"
if test "$locale_dir" = FAILED || test "$gettext_dir" = FAILED
then
echo=echo
else
TEXTDOMAINDIR=$locale_dir
export TEXTDOMAINDIR
TEXTDOMAIN=sharutils
export TEXTDOMAIN
echo="$gettext_dir/gettext -s"
fi
touch -am 1231235999 $$.touch >/dev/null 2>&1
if test ! -f 1231235999 && test -f $$.touch; then
shar_touch=touch
else
shar_touch=:
echo
$echo 'WARNING: not restoring timestamps. Consider getting and'
$echo "installing GNU \`touch', distributed in GNU File Utilities..."
echo
fi
rm -f 1231235999 $$.touch
#
if mkdir _sh19142; then
$echo 'x -' 'creating lock directory'
else
$echo 'failed to create lock directory'
exit 1
fi
# ============= unnamed.eps ==============
if test -f 'unnamed.eps' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'unnamed.eps' '(file already exists)'
else
$echo 'x -' extracting 'unnamed.eps' '(binary)'
sed 's/^X//' << 'SHAR_EOF' | uudecode &&
begin 600 unnamed.eps
M)2%04RU!9&[EMAIL PROTECTED])254:[EMAIL PROTECTED]"YE<',*
M)25#<F5A=&]R.B!F:6<R9&5V(%9E<G-I;VX@,RXQ(%!A=&-H;&5V96P@,0HE
M)4-R96%T:6]N1&[EMAIL PROTECTED]'5E($%U9R`R-R`Q,#HT-3HP-"`Q.3DV"B4E1F]R
M.B!I9S(U0&UV;6%P.#,@*%1H;VUA<R!+;V5N:6<I"B4E3W)I96YT871I;VXZ
M($QA;F1S8V%P90HE)4)O=6YD:6YG0F]X.B`P([EMAIL PROTECTED]@.#,*)25086=E<SH@
M,`HE)4)E9VEN4V5T=7`*)25);F-L=61E1F5A='[EMAIL PROTECTED]:7IE($QE
M='1E<@HE)45N9%-E='5P"B4E16YD0V]M;65N=',*+R1&,G!S1&EC="`R,#`@
M9&EC="!D968*)$8R<'-$:6-T(&)E9VEN"B1&,G!S1&EC="`O;71R>"!M871R
M:7@@<'5T"B]C;VPM,2I;[EMAIL PROTECTED]&5F"B]C;VPQ('LP+C`P,"`P+C`P,"`Q+C`P,"!S<F=B
M?2!B:6YD(&[EMAIL PROTECTED],B![,"XP,#`@,2XP,#`@,"XP,#`@<W)[EMAIL PROTECTED]
M9"!D968*+V-O;#,@>S`N,#`P(#$N,#`P(#$N,#`P('-R9V)](&)I;[EMAIL PROTECTED]&5F
M"B]C;VPT('LQ+C`P,"`P+C`P,"`P+C`P,"!S<F=B?2!B:6YD(&[EMAIL PROTECTED]
M-2![,2XP,#`@,"XP,#`@,2XP,#`@<W)[EMAIL PROTECTED]"!D968*+V-O;#8@>S$N
M,#`P(#$N,#`P(#`N,#`P('-R9V)](&)I;[EMAIL PROTECTED]&5F"B]C;VPW('LQ+C`P,"`Q
M+C`P,"`Q+C`P,"!S<F=B?2!B:6YD(&[EMAIL PROTECTED]"![,"XP,#`@,"XP,#`@
M,"XU-C`@<W)[EMAIL PROTECTED]"!D968*+V-O;#D@>S`N,#`P(#`N,#`P(#`N-CDP
M('-R9V)](&)I;[EMAIL PROTECTED]&5F"B]C;VPQ,"![,"XP,#`@,"XP,#`@,"XX,C`@<W)G
[EMAIL PROTECTED]"!D968*+V-O;#$Q('LP+C4S,"[EMAIL PROTECTED],"`Q+C`P,"!S<F=B?2!B
M:6YD(&[EMAIL PROTECTED],3(@>S`N,#`P(#`N-38P(#`N,#`P('-R9V)](&)I;F0@
M9&5F"B]C;VPQ,R![,"XP,#`@,"XV.3`@,"XP,#`@<W)[EMAIL PROTECTED]"!D968*
M+V-O;#$T('LP+C`P,"[EMAIL PROTECTED],"`P+C`P,"!S<F=B?2!B:6YD(&[EMAIL PROTECTED]
M,34@>S`N,#`P(#`N-38P(#`N-38P('-R9V)](&)I;[EMAIL PROTECTED]&5F"B]C;VPQ-B![
M,"XP,#`@,"XV.3`@,"XV.3`@<W)[EMAIL PROTECTED]"!D968*+V-O;#$W('LP+C`P
M,"[EMAIL PROTECTED],"[EMAIL PROTECTED],"!S<F=B?2!B:6YD(&[EMAIL
PROTECTED],3@@>S`N-38P(#`N
M,#`P(#`N,#`P('-R9V)](&)I;[EMAIL PROTECTED]&5F"B]C;VPQ.2![,"XV.3`@,"XP,#`@
M,"XP,#`@<W)[EMAIL PROTECTED]"!D968*+V-O;#(P('[EMAIL PROTECTED],"`P+C`P,"`P+C`P
M,"!S<F=B?2!B:6YD(&[EMAIL PROTECTED],C$@>S`N-38P(#`N,#`P(#`N-38P('-R
M9V)](&)I;[EMAIL PROTECTED]&5F"B]C;VPR,B![,"XV.3`@,"XP,#`@,"XV.3`@<W)G8GT@
M8FEN9"!D968*+V-O;#(S('[EMAIL PROTECTED],"`P+C`P,"[EMAIL
PROTECTED],"!S<F=B?2!B:6YD
M(&[EMAIL PROTECTED],C0@>S`N-3`P(#`N,3DP(#`N,#`P('-R9V)](&)I;[EMAIL
PROTECTED]&5F
M"B]C;VPR-2![,"XV,S`@,"XR-3`@,"XP,#`@<W)[EMAIL PROTECTED]"!D968*+V-O
M;#(V('LP+C<U,"`P+C,X,"`P+C`P,"!S<F=B?2!B:6YD(&[EMAIL PROTECTED],C<@
M>S$N,#`P(#`N-3`P(#`N-3`P('-R9V)](&)I;[EMAIL PROTECTED]&5F"B]C;VPR."![,2XP
M,#`@,"XV,S`@,"XV,S`@<W)[EMAIL PROTECTED]"!D968*+V-O;#(Y('LQ+C`P,"`P
M+C<U,"`P+C<U,"!S<F=B?2!B:6YD(&[EMAIL PROTECTED],S`@>S$N,#`P([EMAIL PROTECTED]
M([EMAIL PROTECTED]('-R9V)](&)I;[EMAIL
PROTECTED]&5F"B]C;VPS,2![,2XP,#`@,"XX-#`@,"XP
M,#`@<W)[EMAIL PROTECTED]"!D968*"F5N9`IS879E"BTW-2XP("TV,BXP('1R86YS
M;&[EMAIL PROTECTED]@<F]T871E"[EMAIL PROTECTED]@<V-A;&4*"B]C;'`@>V-L;W-E<&%T:'T@
M8FEN9"!D968*+V5F('ME;V9I;&Q](&)I;[EMAIL PROTECTED]&5F"B]G<B![9W)E<W1O<F5]
M(&)I;[EMAIL PROTECTED]&5F"B]G<RI;[EMAIL
PROTECTED]&5F"B]L('ML:6YE=&]](&)I
M;[EMAIL PROTECTED]&5F"B]M('MM;W9E=&]](&)I;[EMAIL
PROTECTED]&5F"B]N('MN97=P871H?2!B:6YD
M(&[EMAIL PROTECTED]<R![<W1R;VME?2!B:6YD(&[EMAIL
PROTECTED]<VQC('MS971L:6YE8V%P?2!B
M:6YD(&[EMAIL PROTECTED]<VQJ('MS971L:6YE:F]I;[EMAIL
PROTECTED]"!D968*+W-L=R![<V5T
M;&EN97=I9'1H?2!B:6YD(&[EMAIL PROTECTED]<W)G8B![<V5T<F=B8V]L;W)](&)I;F0@
M9&5F"B]R;W0@>W)O=&[EMAIL PROTECTED]"!D968*+W-C('[EMAIL PROTECTED]"!D
M968*+W1R('MT<F%N<VQA=&5](&)I;[EMAIL PROTECTED]&5F"B]T;G0@>V1U<"[EMAIL
PROTECTED]
M<F5N=')G8F-O;&]R"[EMAIL PROTECTED]"`M,B!R;VQL(&1U<"`Q(&5X8V@@<W5B(#,@+3$@
M<F]L;"[EMAIL PROTECTED]"[EMAIL
PROTECTED]"`M,B!R;VQL(&1U<"`Q(&5X8V@@<W5B(#,@+3$@
M<F]L;"[EMAIL PROTECTED]"[EMAIL
PROTECTED]"`M,B!R;VQL(&1U<"`Q(&5X8V@@<W5B(#,@+3$@
M<F]L;"[EMAIL PROTECTED]('-R9V)]"[EMAIL PROTECTED]"!D968*+W-H9"![9'5P(&1U<"!C
M=7)R96YT<F=B8V]L;W(@-"`M,B!R;VQL(&UU;"`T("TR(')O;&P@;75L"B`@
M-"`M,B!R;VQL(&UU;"!S<F=B?2!B:6YD(&[EMAIL PROTECTED])$8R<'-"96=I;B![)$8R
M<'-$:6-T(&)E9VEN("\D1C)P<T5N=&5R9613=&%T92!S879E(&[EMAIL PROTECTED]&5F
M"B\D1C)P<T5N9"![)$8R<'-%;G1E<F5D4W1A=&4@<F5S=&]R92!E;F1](&1E
[EMAIL PROTECTED])45N9%!R;VQO9PH*)$8R<'-"96=I;@HQ,"!S971M:71E<FQI;6ET"B`P
M+C`V,#`P(#`N,#8P,#`@<V,*-RXU,#`@<VQW"[EMAIL PROTECTED]&]L>6QI;F4*;B`Q,34U
M(#$R-S4@;2`Q,#4P(#$R-S4@,3`U,"`R,C(P(#$P-2!A<F-T;R`T('MP;W!]
M(')E<&5A="`Q,#4P(#(S,C4@,C(Y-2`R,S(U(#$P-2!A<F-T;R`T('MP;W!]
M(')E<&5A="`R-#`P(#(S,C4@,C0P,"`Q,[EMAIL PROTECTED](#$P-2!A<F-T;R`T('MP;W!]
M(')E<&5A="`R-#`P(#$R-S4@,3$U-2`Q,C<U(#$P-2!A<F-T;R`T('MP;W!]
M(')E<&5A="!C;'`@(&=S(&-O;"TQ(',@9W(@"B1&,G!S16YD"G)E<W1O<F4*
`
end
SHAR_EOF
$shar_touch -am 0827104396 'unnamed.eps' &&
chmod 0640 'unnamed.eps' ||
$echo 'restore of' 'unnamed.eps' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'unnamed.eps:' 'MD5 check failed'
d1552e8761be4db8312cb97d8dfb0ffc unnamed.eps
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'unnamed.eps'`"
test 2790 -eq "$shar_count" ||
$echo 'unnamed.eps:' 'original size' '2790,' 'current size' "$shar_count!"
fi
fi
# ============= unnamed.fig ==============
if test -f 'unnamed.fig' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'unnamed.fig' '(file already exists)'
else
$echo 'x -' extracting 'unnamed.fig' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'unnamed.fig' &&
#FIG 3.1
Landscape
Center
Inches
1200 2
2 4 0 1 -1 7 0 0 -1 0.000 0 0 7 0 0 5
X 2400 2325 2400 1275 1050 1275 1050 2325 2400 2325
SHAR_EOF
$shar_touch -am 0827104396 'unnamed.fig' &&
chmod 0640 'unnamed.fig' ||
$echo 'restore of' 'unnamed.fig' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'unnamed.fig:' 'MD5 check failed'
185a0d8b3fb93b6b8b8201ac341071cc unnamed.fig
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'unnamed.fig'`"
test 130 -eq "$shar_count" ||
$echo 'unnamed.fig:' 'original size' '130,' 'current size' "$shar_count!"
fi
fi
rm -fr _sh19142
exit 0
--
Thomas Koenig, [EMAIL PROTECTED], [EMAIL PROTECTED]
The joy of engineering is to find a straight line on a double
logarithmic diagram.
