Re: ***** Freehand .eps to .gif ??

Johan Vromans (jv@nl.net)
Wed, 10 Aug 94 22:07 MET DST


[Quoting Johan Vromans, on August 8 1994, 22:45, in "Re: ***** Freehand ."]
> I have a small perl program that uses GhostScript (with GIF driver) to
> produve GIFs from EPS. If your GhostScript does not have a GIF driver
> but can produce XPM, it uses Jef Pozkanser's PBMplus package to
> produce the GIF.
> All Unix, btw.

Several people requested the source, so I decided to post it here (it
is rather small).
Have fun!

#!/bin/sh
# This is a shell archive (produced by shar 3.52.3)
# To extract the files from this archive, save it to a file, remove
# everything above the "!/bin/sh" line above, and type "sh file_name".
#
# made 08/10/1994 20:07 UTC by jv@squirrel.NL.net
# Source directory /home/jv
#
# existing files will NOT be overwritten unless -c is specified
#
# This shar contains:
# length mode name
# ------ ---------- ------------------------------------------
# 4615 -rw-r--r-- eps2gif.pl
#
touch -am 1231235999 $$.touch >/dev/null 2>&1
if test ! -f 1231235999 && test -f $$.touch; then
shar_touch=touch
else
shar_touch=:
echo 'WARNING: not restoring timestamps'
fi
rm -f 1231235999 $$.touch
#
# ============= eps2gif.pl ==============
if test -f 'eps2gif.pl' && test X"$1" != X"-c"; then
echo 'x - skipping eps2gif.pl (File already exists)'
else
echo 'x - extracting eps2gif.pl (Compressed)'
sed 's/^X//' << 'SHAR_EOF' | uudecode &&
begin 600 _sharcmp.tmp
M'YV,(T*\J#-'S@LV;\:$8?-"3!HW+^"4D<-&`0DI0Z9\24(&1`\0)TAP)`%R
MAP(%(T`$J4,'S1LY(&+*G*D#A)(W:,*X`6%%SILV.N>@!#%$3IDP=,IT?+)S
M)HB:5.J4`3&E#!P0,6I@K:&C1@X=,&A@S9%#QE`F8>;0`='D#9DT9M(H!2$D
M3\V;.7?V_!GT;-JU;=_&G<L4*IHZ;,/DP2H#A(P8.F1PI3%C;`X:0ZO`(8-T
MZI`W==RLE5E3\M`I=)`2=.JT9A4W:]R\N>.&!8@J<Z;>2=,2A$*6:=ZX"7%R
MA/'CR).G_-RFC7`0:NN8,0-"N?7CQ4&08))$")$D4CQJ+^+$RAX14*I@X2Y$
M1!\0?/B`$#&PX,&$"P^F$1.Q#AX1)J44VAQHP+46"D`DX<00MFW7W7=2I!`@
M"$;%44<:1LTWQD_.N>$"'&P`:%$;>7P!1QACK!'&&5-]A)YZ(J)``HE?N!%&
M&V4T2*,=$\T1G!LIB'=11AMUU(,?(+Q0$PHNK)#"AVRP8`<(*&S!!1DN=.'D
M"R;-6"*/<OCXG`L?G:#""2#`!0(;9;AQ1DLHA,1$0FM,1-()0?K`F$DH76<=
M"%#X=(8<-X)P(J$X)A5F=7XJ=Q()1LTA'@XR=#F'0FR*%X-))KP!!QT_SM%E
MI$)Z2L<7I*I)1AEQN3$7"::B6H:H%EVZ4(O:Q6IKIJJR^M"KNF):!I^-*@=H
MI&70(6FQR3VZJAAUG%'JIU\\&VV7=!`Z!JZP4IN46O#)U^VIV:(XE;BQ6GM&
MEU0T`06$0I)GG@CMO@N>>^'.5Y]!=+0!AXA],FL<"%2@,56@"<VZK,#&/0K'
M'%_$E>E')-0+KPOZCF$'"21\.(>(:J(`PJJM`DLM0668*$8;(`2YAP(SD0#'
MRA&G,;%V%H,'`L;T:<SQAW"T(6+,\IX'11!4(($OF2#IL.]]F.K'W\S^LD'0
M"2;U<9(9+QTU!AK:606QQ%.)#$004AQA1<L@O`RS3*&Q.8>D(GO:)I5%0#%%
M@V+7S&:0+BN0`!QR/+36%%004804X:$@PA`ZR;:6W3N1T#?9(&Q!0@A=V#;'
M&FG`(1$97+@A@H2"6RZ''"NL8%("KN)!ATDS:1TS&[^*QT/>4_A`.]QNR$VW
M=KB[ZA&2+WA10@AZMQ`$&6^(488+*O!N1`LOL/WRX(6+1E7BBS<N@A-OK,4[
M"&379/G#?N<('>BB*U7ZZ:^KSKKK@L<^^]LQ:<T_"'%3&)5`0#DJZ<TV)_#!
M"5P@L['9K`R`:YO@"&>X[RF.<51Z7.3*YQNC=$8[[,.<YCC'MQ`^\'VA&]W\
M4)<`^[7N=?K[7?].,I,[%"A3(B-!\7"U.[WI*7""2TE5PB"'KZ'O)70!C1O>
MXB8AO`$/+A!<R(B7NR,E27DE<&)HF'@&)^)!!UR8@PJ8Y*0PKH",*3`C&M78
MI!2\(`W:.TD"9K(<#R8%4&]0RQ3&4+A/^<8M4Z'#&T!0+C?,@0T?W-!+F-B9
M.41QCC*AH/?TEL'EZ6U^+!`<)&<B`A+L:BJ>%!9TA(5)3;*F!22(@6U$,!_;
MH%(&JR0DH0R)R*24,@&;E(D(9'2Y!P9)#J&Y92YC(@("S>9$+!(F:T1@(=ZL
MD$^Y7,Y"QE"'6DX%172HPT)`L!LRM.21,>MF;RA6F19H9U."BYG!TG`&-*R%
M8F(Q)PDJE<Y(=N]PX,.@X];G0#;5!`\PZ$$J;9.'@,[3-G<0J#C18!LT"'2=
M[:3#Z32IIG%]`4QBR..PZAF3E)!/#D!A`Q[UR,?0K252;[`:J)Z3!DG=0`;@
ME`D)%@H"%5`L4B]X:4VU\\G7J;,,['1G36\ZJYPV1@4\%99/99(2*2BQ(W6`
M0TQC,M,T>!-L'ZF@C&BZ`A#`P`4U"%)7T9E+$D!4J%GUGHS.NI:N?C6L(!CK
M4F,B27Q>4'P(M6I+%*I7AH*`K0\%:D17F";J6!2C&IWKFO[R.JTEH`QL\!%U
M<KC#XUVQ!"4HPA*9@R/1S.&-<<QE72T8O@R2#P09W>)#I)51/*2I<KUDTS,Y
M&K;5O9"VB%1+8_]G.YF,`2&Y,>`44/>_*9+L5QVQ*&CH``>6A)8$9X!+^Z9U
MJN4V=W^U^Q]D)3M`?D[7BB]P@=C,\`,2@#9P+8RN&;X['Q*`P07J'9I,>AN3
M[4YE>]"5+N8H%MNI\`R^<)'O#&<R6L3=-8-%.0JHW*0=];:/L!6-%6)SPZ>9
M3-&B*%,9R]"['.&`:2V"!!04F@`"G4`UN'/XR53>0)V6'$P()-Z0&S[<HT>:
M8`YY4$L96.:X,TBJ!7$`00OFH#@K)&$(1>B!"!XY1QG%JD.#_,%\J,;*FHA`
M=$)[DBE9V0(R..$)1ZO"%(H@Y#D\@277-<(#!4JUZ2YYRRV0`Z1F)>0SD&`/
M"^T#'LPJ6*$VL'WT$]R-<YP4'E_9#6W@HZ=`2#/,R0?+@E0O"/24W_62+=`)
MB-M#UD`EF37Z@0TRX=]D"`+Z@L"^$DQ`2H[@$I+V<2TYD=01DF"$D14.3)*"
MELWHT(*'V!C'.C:TCX4<Y"$7^<A)?C,N._UDX41Y/NJ%<I6A#1<<G([)\Q&R
ME\$<!#&3><AG9BY+U,PF@3H8<\J>HPCB/.<?VQG/?=4SGX.ZEC]?FH6:ADVG
M10U!4OMO)@&<VP"'W&#]GA"]!<ZG^!`F!C:QC(\*7FW!+7U"KL'$N_>NWT3N
MYV\%^*\,>.!-=S<.`BG'X"E>;1FQ&";$.HC!)\!QU<(8=I(YN!PZA-ZQ!&>"
M$$QU>@QM($.0/@*$+Y`ZX0=V7%=)`'32F2Y($?:6MC8Z$V`7^N=!1YW_;"X&
M`GXJ5#N72<^WZ61J&8P-<!BZ5W>@ZK^:F$T=&3L;V)"'_\F=V=2R:IOHH'88
ML#TE>2$#W->$G[G7_7\I"=2LDC4R5H6AFLJ*8LQB5:YM4;=:98"6M#[B]_\=
M=B(9#2[G*\S48R5,X*8*E>1E,L6SI6UM>H(!"$Q@`NV@36U;@$$7+)N\+;1@
M!5W('GHK=*$,B<!5=V"1(#\%)1$EP`0$6=%4:!MP29G`"4=(UA/\Z#B]BT8$
MJYQP&<`_GT_VP`SD%X%U6=*#CV42E\,4@;17&:GT9YC*[U\V)RL__E6>_5^K
MI"X3A4NT!P(A8%'_UW$$=D^DA4'T4B"2TE+:02,GDB+2ESE>4B,W`DH[TB,_
MT@7S(T6&%2O>AUTR`7US<('5!P*NIS:DAH(7J"8M"'M8,7NU=URNDERQLG[[
MLW4W%WTL$G9TQ8`&5EH\L#M+]`1F@!O29Q(%(X$2F($5J")!J#DT8B,X,H%?
MXH'"T04*P(0LHCZRMP6I)QQSL'LBY`)JZ(4ST0)0ADM0]C4^D85&L42\\2/_
M$V=TA@5\B$LHI5(_0B4D\WAL\$[:$2DID(>?!`)\B`6XM"L29P;8]!)Y>'\K
M@TLR]F$@8`=I$`:&LC)'!%)(024+@1!W("F*)CJKE8AM*!NIB$N$4P8\XCVI
M"`<2AP+"07?<Q!M@TP*6V`:L*!,MP(.,V(<)0(PAUA(2B#FX&#R+(1Q3\1#7
MA3Z^E(?_ATO**"DX,C?2EX<E^(@N<0=ILBJB`1=IH!`KY09Y*'ZX)'ZO97%`
3D8X*H%EDH(1@6`;:%7)K@4Y:`X@N
`
end
SHAR_EOF
echo 'uncompressing file eps2gif.pl' &&
compress -d < _sharcmp.tmp > 'eps2gif.pl' && rm -f _sharcmp.tmp &&
$shar_touch -am 0512212594 'eps2gif.pl' &&
chmod 0644 'eps2gif.pl' ||
echo 'restore of eps2gif.pl failed'
shar_count="`wc -c < 'eps2gif.pl'`"
test 4615 -eq "$shar_count" ||
echo "eps2gif.pl: original size 4615, current size $shar_count"
fi
exit 0