[comp.sys.mac] Program to fix Giffer PICTS

sdh@flash.bellcore.com (Stephen D Hawley) (03/15/90)

This is fixer, a program to patch PICT files produced by Giffer 1.03 (the
most recent version on Sumex) so they can be viewed in other programs (such as
Studio 8 or Image).  Giffer often changes the colormap entries for white
and black, which is a bad thing to do.  This is what makes them look so
terrible in other programs.  Fixer doesn't do anything clever.  It is
brute force and ugly and will most likely fail to work on other versions
of Giffer, and will most certainly fail on other Pict files.  That's OK,
Giffer should be fixed itself, but in the meantime, use fixer.  Since the
program is so ugly, I give you the source as well.  I declare it public
domain, for what it's worth.

When you run fixer, you are prompted for a source PICT file, it will then
prompt you for a destination fixed file.

Hit the cancel button in the source file dialog to exit.

Steve Hawley
sdh@flash.bellcore.com

(This file must be converted with BinHex 4.0)

:#@CTH'9b,R0TG!"6593K8dP8)3!!!!!1P!!!!!"HpP0*9#%!!J!!$T4b6'&e!3!
!!!!!!!!!!JGQDAKPFLjM0#i`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"849K85d&)6!%!SKKB"k)M[CF!!!!!!!!
,A3!!!!!!!!E*!!#&Y`!!!!!!!#+U,e3d!+%#K*NdH-V)F6%'4!X38qL8X9-'"*)
`GpL8b30LaSXF-!B@R%-'$4!cE-,-3H0#6"NfE-DmN91'iCXf)JdL9!ML6KUB)1#
%S6-'$3JS5BC3dDPa$SJa0)H@)30#$-FMDFbBi4R$"B`C)1Dm!8%(c9#bD$Bq$H-
QTdX3C0,-JC-bce33DGa!T&-RlPJF,%$-"*'N6CJc&FX3G5%b*j@d3H@m%D1a6Fm
dC8'FbET9$PkRCFpL"N'66*Q$EXSi[B-'Fd@f9#Q('E-'"!SiEqCJ6[2'M9-B)'$
RP&'M"PkpC5[+C$26-*`8,N#!H#chFr#UBDL@cAZ'l&JbE`,$IYVE6*djUY&@6%Y
EF"dkJXhN6"ldcH!QXr25bFfb-8%34ZcN'4eKV*&H''(a"8FDC!3QaRXJa&&('Zf
e83CE6TdP&&'YZG%GI3Fe&4eKm-QdB(V*j44L'B(*T0!Bh*((R'I!l9G94Dbj&T`
E9#dh'(('fIL@E,50Q!4mi+RQaJR`#58(H[0"KT456,%BePLMhG%ENch09&Y[1qD
aRBG939K@EXT&*9&X9h('P9Fc-2CI'PBQF3*&JVR""NF5cE%QA[#"fG9AdVA3`QK
YT(%''["T+FHAHVf4R'F82FQEE`j##0k5G15%aKYX8*A('h9i*SDDr4(d3J1X0Q"
BALLNd-!H$55Jhh&5R"BBUA6NDXB1V#D3!)3EQ"dK4aKQS'"#FP$-4%F+`!T,,"e
'p%E((,&'1baQ9q3&hKhB3PXV&89X5dHfYCVE4"PZR)HZY*J4N8BBc*f",3a-L*[
!&)S08DTBFLJEKKb5h5&ZV6PUK!)+HIN+3Jp(8EJ'%fpN&fX+))3!F3XaB%aV!VD
DB4X+[$S--4356a%'44GR[((()(`-mQ2(VX5`'llZqTk[qS*Xa"4$-)IHc6a(kc2
33TG"mXkRpGa(V8mrh3$+Y&&XXD`IqcN8K8HpF5XF$mF-3J```"!BfF$e%Hd84Z4
+&dGYj1(fRY&U63IA6da"44j`9"6hhRh2X88ABFYm`T48R!"eY,HDi5Z`YE*pK')
"+Ja(B#*`!F89V499j3mL")C[B,VT8FBEbIl0YfST[&$kkFRQ$AJC+35QHZ!Xe*V
!k##B%2IFHHLEP@frPr'f#fIB4iE(ZJq2`Xp2p1d'#X8IEiB6B9KSZpc'lqQ#(Ei
k88FEJCRJH0-Bdm5A(00ch20,k*'Q@+R6Rfq'[NmRS$lp+,J2V048@i2+@)De@YQ
0Dmhk@Z('9VDcP3d%DUY9iaiAZECe$flFHa[N%P!pljPKGQ%lA&)5YcBM31%pP92
Dj8#3!$NS$2!eFp""k&M)"6M-N!"h[X[JRS3R-ZVT-!r)8alc3$B%05QYJd#mA[D
XK-6[K@pmJ6R"$kEiJa0%%A%Rk*RcS#Fp(`,2"8V8(JLD#,l6L)pm[E0I#Y)h2rE
eVf0'Jep&pZG'08BVIh+8hrVD"mF'5)eQ+N%$#X`J'66Z4eD0+f4JpJ1XMd'"$Ti
K`e$#%#hQN!$TGB&C84'HB)3@P8S1q(P8B#4*S#QN`A64SXPQr-56@k8KP@9BT83
m8`II+#Se26+,Ce3!KlT"XJjMJ)r-DUQE-q$b12#43f$1i+!lNZB-BYMJkm*Q!aR
3B!FJ#!J)UNN$kp!(G@C!$haUH6FfM-e2)'!A*$Q5&aNe*`aJ8m'U%N"+"%(-#@@
i`b-$pMTpr5aA&L2N6FU(5EK-8Pm'2'9&)-E0D2hX#R*`$3Vf3e#&M[+JdDU9[1D
5QhfLS*i)6F!d)IBke+&!$Y$dja3!5SC"+V*h"68"5X@JVjQk`$-3J`%HY+)9E'V
6$$-C!ijD)a&9eFUQhFRT6RQD5QLf*'`kjHQ[%QUkX*8d@609+83P5P'B@V4h@C@
Q3X-QJkpF-jX&!DFi[31#P+"6RA*JTejQ5TB`8+BLmUa92F1'6he#%JApG1K+,p4
5JD,4"!8&D8C&1PD)PA8'ekc93b-UNBQ'akZQZbL"p,94h-c"SiS0eNM$SP#6KP@
bJ`hS5a(l9CQQY+PLZ#P8I9S3S-T"U&9*5A[bUMqR*K8%-)$Y8h0DYmD5eR5QI5e
UYeVCVV)fXf"9,P8A1MBFd$Bqi93-@rHU06R!KlGl[@Fq24TBe,,8T32&V*9#Qi$
TKLd'ePdZCCAQh-4L9+0bm5aSlp[H"%b1@Xh#PQ(,0iC2KR)0q[V[*Sf!hX0UNT-
pdqXNq6VH[mE!"M2!!3hbG9eLi9B-LLU69RJ#hV()E,3AcR"NMhEH!DYAXf(Sf@5
jHYRRVTHrIHK*Da3@@,55"`iF)HG23,"JSbDJXahpDfMl!!)!"@CTH'9b,Q-d,M!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!%&38%`r2cmr)3#L''clSL1p[J!!#43!!!!!!!!'e3!!!!"`a3!!!!!!!!!
!i)X!!!3)#!#"RS!($JE8"!8H$J!6q!'!e*!!"`!RG8)J#k!*)`Nm!P`a8!&J3-%
c#!UB5B1RM"`"")0!JF,NKmdI)3)#!3#-))!$fhc+T(N6TdkH2T-U*5J+!jYp5K0
3#"K%(`!$)""Jp!RN(!!q"`!)i+2[Ra0GrML"!#N54FQ6%YBb!"B4!)5'1ZbL3%$
!M$`Mhc$#!4!$Q!!3@6'#H!'!3#J26XV#!r'Q-DJ2NIqC#fJ!M"-Vrr!Km3S$K!Z
l*0`!B'"#03)KEN,$N!$!B#H'0MlF`!a)!J!Che#5$+(LfrH#+fM5M%%$BL@E-Mm
36!PMT`b)-(2b*SAT6#N"6!#J#2cmMaq50Z94Z8(P,j@%9-a5`4"b+Y@HmrmJSBS
#KXCC!+,d!%4jYIhccaNQr1"#H3VqimpC!f(aL""R02LJ,J13!!($"a3fb-pC!f#
aiAmB#1KJJIqBiBX6AQ$84""*1)%BBZ64mN),rcL!R`Edr@"4!2K*3"m5XGPbPJ#
k+,'J,@H)3#'4r`$6)#p3dR)N-aXU!F3C"-$a$aJ)`,!J,@!)i#@,'!8ha"*-2"%
%%6@f`)HD92aMbihr@)#I#IM0GdU94i+Kj$qdR1($Nl(jdU!Z51449+0dJUM!KSM
qSqL#M-CfS3!LIU!PPek#+DD$CClCBKeU,M&&%&B83CijS`@!J*`"Q4NDI5mXL-q
4#S$`43Y)P0IKD3K!L8qZj4h*aBDdLZ8P2X-#S)#ab(kSL`"%E&JYK0M!B8!,!d*
E)E('3QR1N4jXf!-I"QUfEV[S['ZJ1Yk#HqZidTBEflQk"'!2Xh`J*-qYTb#lDlp
dq!UXX2J@'pZa#eSEJ$%!#hb[J[Nq['frVQJE-B4#e"YZY!k(CLk%L&#k,fcrS--
b[Gq1M1qd$jrFVaNE`L'"[G!@V1YrjLJF,$mN8rYa[cMN[,2-'0-FfXB"L1"aXVS
!B%[4XF%$)5f80J`P24!#3ZQIH1cd(b"#PpIX6KH6Ur(4!#M6GG0'8`f!,PQk%TS
CbQ`-!"*-I!-")'M@33858J3a"4)cIP#9AC!!)#%1%L*mm3-!,b63LMTKX"-'jqL
%B8iBj!b@H@'(#3B!'2C8$X)(MlQ!5'EUZ2l&CCQ"3jic3EMcMc-KU1B!!",%S"S
$!&JJK&XmZV@"%+J!`!%S!)MJQJc4PlL6"#ckkSe%#MJ"cHkprfjm33"J!%S!!NV
Er4G82#*q&-'8#88`j2X1['X!J(!q"1QchQT#%!8!N!"!#'J!!!ZJ"`!A+#%!CL!
!+!43*P!-S(d5%#!$4"!p&,#SFYpcAc6)!i[b`5*ia#2Hrj+h2!"S!"3)d*)C+)"
!kB'#!80!4rp%i)k#L-!9U`&&!pTRJ3pq)B31F-))3F-lrCd2HHU,32XF)%!%F&"
k4Z5#r*EiZr)jiiRT!iAf!%"&eec4"9RFBUe1%a!&%%313X#$!T63#@Imji"RD&4
!$)5%bK!!#9I`N8"%S)0rH--*Y3!J#0S!!$Bi!4+TS%F@([%#(QLK#&*i!S95!3S
5A''5P54#%+J3K%f#!J4A!!%84)#("##!"&)!J`0NJ!dc+%!''LL6%$)3K@58CaI
*-)-l8M%+BS+5"d53!%)4Q'"+9)+L"+S8"a")d!!`'%!''+K')J%3"@5%KTL+q3)
fDB!"@'$K#Vl8Ka)Sp+$*m-0Aib`R*Y$j$h@bd`Q6d3Fm-8"1@-"'!C!!#%)E$!!
0)!3"(Q+"!361d-k!,+Ba,`K#Bd6!'!5mi!Z0'Be&HQ-#)!Q"'-0`L`U!9!4N&)-
D4%##%&B+M'"!3a#"!`!24)#C1Mb8!"'GD%8[QY&ca1!L9H0%6"P"8m8`"UF5*3"
&#m,62rS8U&m"33#'@P5E(M@R5YdT4Thkdrq`J+Se[5P@PfV4VBkQUe9MJ&6"LK%
P!%)0(&"#)06!!#)!JJL"q!m)m)S4Zrl(!REPDahNUJB&m,9U"["V(9aJ%3!B5"D
!')-"4!#!`@!%&SF3!`-!%3`N!%%'!"!#%$b,%9PN9J1R%DeR1HYC*"c""hmlJL1
#!B-$Z&B'"r!)!$SU$N5))a'Q&3-q1!Z-3mKJ!-)!KJX'i&TR!-1edMK%'4!J#8'
)J3##R3)3`%#1V33NJ3("!d(N34!X%!3%M4&N!&+"8%QSPld!--9l%DU,q3,!'[-
0!!2bbi,m1L'rETL[!&"JA`!)8J$`E50"$,"JR``N)!C"L%)!S!N!K1!)R"J!%!2
#!3Sh4T5N*)J+,TP*JYJJQFXNL"#'m!3L&%%X&jP#%LljaMhq`be,FH`r%"!3(2[
%3$KQ)d%%B+#(!!#d$MC3K`R3RD3!q5G1EKG#f1!6q&%!!!:
A noun's a special kind of word.
It's ev'ry name you ever heard.
I find it quite interesting,
A noun's a person place or thing.