[comp.binaries.mac] Clutter DA

casagrande%crcvax@nssdca.span.nasa.gov (Louie Casagrande) (02/19/90)

[Clutter DA]

This is a DA called Clutter.  It will put up a window up to 16x16 (for
256 colors) containing all the colors in the current clut.  Pointing
to a pixel on the screen highlights its color in the DA window.  Double
clicking on the color in the window opens up the color editor with the
HSB and RGB information (and allows you to edit it).  Teach Text
documentation is enclosed.  The author is Don Leeper.  This is free but
not public domain.

Lou Casagrande                                      (516)346-6379
Grumman Corporate Research Center                Mail Stop A02-26
Bethpage, NY 11714-3580

---
(This file must be converted with BinHex 4.0)

:#d0XGA4dCA)ZFfPd!&0*9#&6593K!!!!!"Hr!!!!!!l*8dP8)3!#!!!A[h*-BA8
"!!!!!!!!!!)!"d0XGA4dCA,rrrrr3)(R%J!!!!!!!!!!!!&J!`!'!(BLGJ"PTbi
!BXiN!'B3fJ%%!#)"!!%%!#)!!!!!!'@R5%4'58a%68p@!!#KN!!+jU'3!!VU!!!
6f`!!!!!!!!pa!!!!!%jP!!!!!!!!!!$T4J!!"!J)B)++J")1"Sae!!Z6+b!!&#!
)S#%6*&!!'+"S%BU4LJ32$'&6K`kG-R)%%#4L*!N6)NfH@!RiVqBrLLG%"'6T%UC
-QMBT#Ke+-"3N"HD'6YK@j1-!J3rD!"#JJ!Z!!@3S!#$`T!K"!hG'4-MNJ8c!J86
6UPh,PUL(U`!J"!3NGf!%3!-!FGM")5i*8!!LN!$kj4FBA4+!J(JS!50L!#4b!m-
L%I""!#%%C3#`!8!(!"m!K)JND4*PflCJ%+B'3''eKG8B9QY!SSF")c!BD$I`"ND
#ERKJ'0"fS!5-JH'fR-4"FJi!-#&RAL"iN3$%'`!5R%##mB(*YkGBRL"!)9#M'3)
[F#$Jjk51%b[rh,hJ84i!%MIaRHKk)+A(PhrqG)$I23!Ji)3Al5%6a"4$2-(%%e)
%p&j!-,J!!!1`Z!'!!Q`Jd)1'#P`)"J39ATKKJ@mBm''"&jES`)NFHJJL!!k-k1+
*#+5i)J)dYU!K!h%Gk!3G"8+6K"032(%N&4,1"!!F!)#J)3)`N!#(J4'!V)-)),c
8"!`!23"aSC!!4")Jc445$*%%%5"%"-"lrr"cAjbSd2'#K3bJ-SH8&iS`C4$Sa#8
#0S2b14d#U-"K+"*SE*ASRA613@D"aa4"a4%2#K&%NrqJ`p`!'*J`T4#RJ&!&S2m
)iJ)L)(`aK$[ri!2SKS-1#Td2Z#bJ#RI3i)G2Q,(1LFpm@cQDLV$%4SB++LmX-#F
mq[e$4SAr`#-&%-$53bSUf+$`"3J-Q!&"Xm4Q"!9dU@b`'LAT*5"IRYbm`!#a"$J
DMVc*"S3+1%)F)B34d$dV,bVT32#"'@"35dq'XE+K!!mZa-S*IX"*3#dm$22c"J)
3acPaYG6D`l!q$[X3X6kHi'G2Ep6+`l!r'jX-B-Vrb22X$`ImB-#bj%B-$lSE$*b
0GaJ!-bN"aN!i4"&A(0PN30$GHH%2p$@J#JX'Rd("#k&&KbI9!$a`Y33IJ2!"-!%
S!F!C(R!0(Cm-J!!&S`#)B1J,j-P"-0PQSpf"Q""-LN!b8c6Y""&2A2&dP&2+V85
M"&`"$"%!r$dQJQ852J3699""K&G[`XH2[+5UNS+hi*kKJEa"Z&-J#"LF)3$AFQY
(UVbUV1!Y'1*i+hJa33b"a"'I1`RRk!b8I[Uh$&J"M0TRU1"fG!bdAU!)XFmH31f
3!2$pJ3)$"B$f'3VFcN$ZZc[6!K0aqBjjJFBN)F88Phl1U6r-"4$UMbL-'Yd#dD*
"eQ!`2A+aS%$km3Fa[$Fq$B"J#L"SP!ANjJ2bJ-!AE!$3aR*`"!#PB!Rrd!I4!#%
iBMb"#NK)!J6G"#Gp#!%rrS"5#i!33YVm!a)[F%!#pH'M%&jZ5&YT4K#`X,R185j
d8$[$hFL$!,M*M@iL3%8VXVDeVNQ0!@#c'JXBQ,De96&UAk12f,CBYV0em3`5+##
H%NJ',PSZF1p$!$@+3,mfYBP6iXJI"RV!KjTFL&3fe%-1%bJ*%haV!@F)L#JHk!,
b@+!&(G6@'HC%$rdJ43PI1!-"9Q-)'G*3(5hJ3hN#%"mTrB-H+)"#kfU'!N6NJ!q
!8!N"3-!%,L$L9Ip3"`LbXFXGr8-F+e,!2mK4)J4F#eMQ+*%#MNP$G)$J##q!J#R
T%Fdjj4%rkS$1YYJ"TCC08fjbJ)!N'J8#FD!L6"H#9#9eS3!9M2"SPD+#QJi(ZZ2
PMdTiQJ)3cZ!!IC+[#[Xd3"EfU3!`8-"N"C,#%F$JJ'+Q!`LJ85JB"1#(l@R)!8N
)&)N15!")8-%Aql5!e"TU)38mp&Sr!!$12N#I!+5L!pk"!!RIT`"Td$%*@Q"D%ML
PMdpKJ!8@3X$Y$*!!3!-B%J5)G-!$)`L!#8+KJP'DD,p3B!3-!X!8Cm!#"km+"`6
!iJKR3-!Vbb-+iia9,U+!`3(mfFpp5J#JCl$!30')Ql'UK"3'(@Zpm-U!X`)!V`3
3!K[q+PJ!X1)&"X$C#`lSL@JKJ'K'Ham"KS'%)JaK#BDlRaj&9D$qd3J'"`6&3j%
!M%#`ikqJ+C&`5RYD8J6MY*k`!5"85eV6rK8*3&!#%)*aM"Z)53#J"B!RS)%Q)2K
f+fU&aKUQFUhM'Z#G0%d'2E%J!bR8%ckH1XF$aM-P(6#f"i-&4CaJ8)$A!N!8`0)
($L,'Mh33!3B%U'eVJ@@2&jkbSVl!$mRkdd&d**H1f+)K1rJ3!&`Bi3dkk)%4FKN
bD"K"Rm"b4m$`im`Ti3d!'#"BeV!B-AUSiK*c3JFU4#%&r0#$'bS$Jc#m833`S!*
XrrK`6+%P@@*))3KA-0`4i65XN[**!6mJ$bZ%P8"T3##SCc!!G$jX("Kr@&LS#!8
U'[Xq!jJ`K8a)!K@Z'kG2FEG&3C@[F&-EfY'bpUmb+#N5JM%)B2!J!'Se,bNFM%i
)a$5b3%4!r!kh0#D`$iN!N!#ACae!+KIJ3J$`-"Xd@!%!9-$#&4[L`[2@aJ!C(*!
!&E+BdK@#J6E+@8i#lJ1L!JL(Z#S)J3RAp3IqQV1r#hP@U2r6Mcl%N!!e&c4,&6%
),J*)Ze3*bNd'&U4$!-DK#LB)!3%"b%%3qQ%1BJ'J*NKJ!l09m31L[5Q1*N5K#Zm
B1RkB3iqh+kPqpJ%#e$%JNF)Y*QQjGKprX%FA"T!!"DPq('3!F#)9ZMJU)UA*)(I
d!ap`q-'JSS#-1"Q(M`%B`Er[Xh!hZ2XqhJDE!25$!!5dlYq[mRE!GdR`1*8Zc4r
!ADl$$!afZk%IlP!&$E4j#SEMJq(ZB$Jk`*B!9,JJD`UJM6q'T80Gj!1("m!eG)&
Sj5G-`9)0qR-,IFVCK`89"8[``D9pBB3cB+"Cd0&22mL4JimFGJ%X&BM@VH%$*Cm
K&A2)QJcQT)p8b#&U#i#82V61$ajmJ1T@arSCY-k+VKZf@@%2J0Bp8AB`'!1bNbS
k&@jmf5C`kZAR'-#AIB-IIY4TB(1iciC3%BHSc8[FZZJ(+(c`J@i'&4Lm1!X!P!!
)+aL$#'E(Pi8FJ$1Y-`2RmUUp,[`K"M"-"iX(L*B)5*@+1U6J#if'P1ARF1G*1F#
%$A,#PTf`Z-5E-(K85))90K@k1!RD`J`BY`VQC(Nlj@N1mNU&h3D,J5Ff5J#S')@
mp--2N6)Jm25h4IT(S(`pKET-*P3&8%!%3E"PR1)1KS*,m&!VK0+!&q02El92*!"
A$l422!"A'J!'2R"&N!"L$h,h!a(M$`P%$@#!!Q"J!T!!)JqQ"b#S4a"TdhU6!`!
Im#Dkm!mfi(XT'#e!8%*GB39&)(dX""mfF`i"m'@l9RPe)LbUJ!53!))2HN**EJG
'Tl4B!'!(U)!1"Q-'1##&ki32j%"k5R!%NJBp*'"9V'!&R"B!US0jT,0hZV!2`,"
9Kh9r,69ZXY"rc2F0-R8d*L3&9H!%INKph3F2mN*q5HJV5pL%6fKLESH(A,K%9AL
&@@-!8))#3!!'jA-+%TF+Z@"Z5IB#&)!+86"4U!!&rlF9d&F&m`-KLr0p"D)%N!!
@,LUJ"+`33PT$LrpJ$jr)!VQB#Lf`@#'N(`,!$Q$M8XJ!!S1&!2@'!DP`#kHSCd(
J%NlJ%N%B(maa!"M`3R("@3LJ"+X!!"jJ"J+K!PQR#r1J#9N)!F@B#XFi*F[BM'#
%3,T!$`4JGlG$(`(K#X*)"bh`(rSJGi08Jej!+MSMGh$`$ebM#NE3MlRBJ3(j$d*
!N!"[&KURi'`&SJU4S!)K9`!2L3)1@3",9JRpNiYqa`QhiaQ`S$1T!!SZm!&Xmda
bN`)Ci3Qh`eMcJ4B6CiiFF(c#jAXT)%SK%L+H-&B$)3Tq43U&C3T3NJ*LJJU&G9J
4B`r"*9T!J&+"KSm#m9)R#3"-!!-'B*8VfC*Sp%bTe)%rF%!#m!-8!$3GU"rc3!L
QC!maX&`B!!"XF!)U!ij%!`iP*!9@)!92!!8rZ"93!)36%KSD!NGjCQ0r#395N!!
%MJGSfLK02e)P!+!""#!Q"192(1"2*T!!-*!!k!&`Ff%F3(qU!!B1C'(Ni3&D&aY
aSjVJU(@3!0#AIaPp6#+CL8QEmd-&"FJTb,196!##&l+5jZBmd)-#)%!&)K"8XJ!
*D0K!mkF,!!!0b3N#N!$fHkQJ#ZN(#p%*!,*`LJC3$30BJ%93Q)4TQ2!"H4JfQDp
'Lq"i"MK!K4j!C,SJ$`KJ!S2P!6q`![Ef![cC@$9S"c$!RjaJP8dB,@BJRkP!!8X
T*KjJEEUj18BA%#,`,4m!#NcJ!L38"e"#(6%!$!)!!Zd"*@"J$a9U0U(J!D[L"2U
3!%XRqJ@Jm!%XqJrJm++J-!)cDJdfHL3YbJ`fUJ3c+Jc@X48J`$@`PJS)q!9*iJ6
8H4fc"!@T%!iLi+3LJ!Jr)#B)i!+Id"j+J!F#i!KV)!)`3"q3!$!+4L!#5$#Q!2!
*Tf!%Xi!-C`!",mSGe!%+N!"`T9[4(N0+!'SD!'KU(!-`!3XJ!!1KTK!J$N#J6d+
!"4h($c+3!(VEik@Z-!0pj!p6`3$NF4-*F!C#S!4-j!BJ3+Pq*!"GqU9V!!18@Kk
NLJF,)!*U3!+TUK)#!!BF)!4TF+RNS4))i!B3%&DT@LqcDJ#TqK3#B+YE`3!i-"8
"m!*ZS!!3J!2,HLd6)#B(8+TJkJ!)N!#X"0#U56B"SM33#-!!H2!$rr#PBQ!!hPS
H#I#X!Z!"3G#L@b!$p%%!X!!#9j!!$(&bBc1`+3UJ"$JJ!*'`"KJJ!G#k$i3D0J`
32QDJ!#$JTG``!Beb!!$3!$2JTA*"((J`!2E3"N4JV!iJV`$!!p!4"IM+$b$`"$'
!"`U!"4M@9@9P"L33!ie#!ddP#JGJ"KS3!SfL"3!!!b(!"dA`Q%X!!"`!"`(`XX)
U366L$I`!!(S!!NP3S9c`"$l!#qT!#%i3$F`"$Z!`"1p!Y$#3!!%JN!!&0%X03Q#
fdL!-QL)&5!!')%!#B4#4&+!"dL!%eI0XEq!!",!Trd!*33#brc"4%+!08D!-FG*
ahJ!#B3!"JH#c8!X03!#jd!!-+!3#S9#PhR%!"q!#Ap!H"&%[3IQj!"!$!"!#"!%
$4&%[DB%@3U%53r%83d%!0K%8!3%"$e!%C*!!"R53!!CZS%4Mm!CXm!Cb!!)M3"!
D!!"QB4CP%!!6%4QX'a#M84)R)3HU&a!'J4!+!3#a!!"Gd!hdF!!m'a"pi3KE334
q'5%"S3+&53@1X4Ph-!Cd)!B%i36d)`9Z!J"DS'-%)Bj!%L9%%3b!!!$9%4Ld3"(
"%!J&%4%4N!"k"!(!IK3Ba'$!J&!6#S`2%Nc"f0'r!F%M)b'p+*%!3e!'E-!')$!
(DD!(CI!!9m#lC2!'Gi#-Ec!'BE#lEq!'!!)13faeG(4PFL"0B@jeB@`5!!!!!!!
!!!!!!@!$!!B!GL*f!&qE,J"F`MJ!B!6D!4%!&J%!!4%!&J!!!!!!AjY)G(4bEh4
dH(3"$Tp0CdLI6@PF!!!!!!!!$3X!!!!!!!!(@!!!M,!!!!!!!!$T+JN##Ka)X+$
"Jd2Be+&$TibF"Jd15TbB)!L))@rB[*%$SJUG0'c5d-N$`Xa'%(63P!(4*-`B%%Q
5Z)")X5C"M($bb%Pc"JdG%+P!a-L"!`F))QrFJ'"5TJ`FKc0Y5L8BK!dE%$YldTQ
$YF`FKhE+N!#Cf5$K`SBFdh!e)kFT#$%,3BL8bpA0Qjp`kSJ*qC,-QcCKdVKa!3*
%PMGe3!!QfCD-@MSli6D8LeI1'cYT(,XjJa*0'$Sk3+#)NF)`BK#1jd"1)hRPA-'
8Uh(Gb&0`Q+XQjE4434L&M0+(%`XHSj!!c-U8DP'r'91R64NhG$kR5GTl"[$6IN(
Br6R'Xj`c+m1ibB0mFmQ6)JR$"&%'$r%kaNYDEY-j1CX`UVZUhMRQBe)3BrcPR"a
MT('EGQA3FFG'Dh#&!NCYj$8&@'@`F&3CE-#"4KS@*ML'#k@*4iCf5E8!Kf9Qc#@
%%&08!i+)*,TK)STceI%94fGB9JFFA%P')JK*VB6K9f3pX85(GYA4%j!!CR6f'3L
Ue@'''4EDG3F)GhMfNepHAD333`iTGaj(HC`QAKjhK*(($a#C"@CDA)@"QPGV[$M
''&l0X4&*+6ejiQ@CG5RR(B,jG58+Fp3KaiPUP4&#DB,4m3B)C5V+NNX`*3&J4LF
pKjPPEMJ(RAT*E+N@(2IP`99++c%R4e[3EDS44p(Y93DLTHA@f8TcM0(@FlJkq41
VATi9*U&Z'!SP(1,0BH&`a3R''E&P6&P'Il-eHDDX*pA+4RKZT!'BIdUGmBDd3!j
@@",DMXINVPr0L4QHFEBPPe)be'!$Yabem8Cma,U*&TD&[R%PS9DKGQUUZljS4f$
hfFS[9l$*'F1qH!LeEikC[5J'BMr*F#pKFm444aKYNDTY`VhqkNDpVLRel4bVHSD
[[[`UpZpa+NhmSVfTSDUQ@2Hq+"4@"Vp&NP)"+Y4'Z6Z0'-E(FBNX'''%'UFH4&4
FLdDiBab)Ak!k0-"Z``)I@r#9Fc$lXQ*eX2%4UVckfY6E)XN'C4TkZ0BMIN6r4ka
a6RQeC4RcZ[C6T!jpKHf,b6B-adEN[NXXXXVq0iGR9KNFCXYhFa8JG)%TeGC6Rf@
lDaSFKI%`5&0r1c'TLmI*FS)Jl)M5T$cCC5rScpAm*-SVECHc4QqXSEZh+iN"q)J
qcM(F5TVkj8Be2hN@PThdVMTTSYdC,8BCq2fNDd1U5@[K(4KH95Q!iS(`Tr0lNC6
L'BVb[&*EqB%m%`T&L0`EQY53!1k!6@c5-di+)()&P5MPIDT"f8pdPcBbR3CK9pP
1'[!NV(5YC)!0`j09++B8BR&X4-RC8%p#SK@L)8T41NS@dF4!NN&YD$)I`d-+UR3
ARL8R1FEVddr)0`Fq6DSY!6T$Z2SQPbDpMhK&8p#NQRB5IfPYA36XQEpXY*,*-3j
13!S,VAT@3B)P+fR%%Z&9K%JA%+J3$5cd#G'53kclp-m0+hNIF6DiKX!TC5-@SZ'
Fc"#'Z0("3X4+N4cbSdEe8+&RAc3FZU)dT8djKbYCHJkP6Z1[l4&VLr%+3jVX0jr
kB(*YkJN#9plA5IhTM)Xr3i`!5pJci0&b*@q-idm`U,2YS8b@)`VBP`D'164q$`e
*Heq@0SL'R$'22G#4!dQ5`m9J6T&6Bq69j%b&4$U`J54eN!"K0Z9h,ZK!T8h$$"1
AkR)A%+M"4MrCA$*2NdCX8Z`RYp%6#,keP8dQ4QJN)94+GY8'p3L"*(l4blGDX-F
aV!&GrpQ@'U0)aR4bT*KAHTmBGQ+HjC%4Qb#!!Kr$"+1`+F@+D6!$RhT'49V&lPC
c+!d+3"JJ4B@5+hU+D*bfSj,@`3&9'j61Im$6cp&"*L188BbD!'3cm)63RQpa5Ch
#F)E5N58)2!e6!Em@e+Z-c6KP+f1!,LQI[c5-N!$pf418F,Hm53@0BH3,AdZ,*UH
'+!81DF!$KT5'%NhL9DpA+GR*f[)X0la(-jb48j!!j*IA[Aj-$XCTR8E-)m@p'@F
1MY`36[RQ0bK*UM%[LK-j)d9Ar5#'3"mNB"kH!J*U3-%*9!#"Lf!c1$Ta,dpU4B'
0d*9)e[A[$RJF%Ip1bm(-T%"PrYaR'[UBA*2Q,T5Q943(a5+5ENfaU6iNS6mj%U#
Fl!jbj0Q3!(RBBYDk,SL[PC@8dI+e,d'bYb[p%FmC[U8HT*!!k#H0H8aN&Y+U0q#
e5`*Y*R+i-PcTYJUlC%#N*J9Tel@@S3hHHdYi3'#ZIqf0LHSp%H+Hmj0+FF5@CDA
2q-ED"Yj1dD)Z0*+&p2Qq0H$a5X4b3aLFimB`@015+b%[II6NR%`#,62Akc"LMYX
!!!U`AAITD9m0f0A3"QU"$9#"%hVB`6+fa6PY'0mLXG46aHfcI&M#6lSD"Z)kJ[N
M0*j,QVK5684UYSh''ed#(8)d1D%d4@'VR(U*4CXcf1BUBT3HG5##&+8`TA!2Q4!
Fk%#B(&KS+%@"5(#85K+MZZ3R02j-@2mL)3U&jJB`L%%0EX##Li'k!8(ikEHB)*J
eK)B)-+#"$(!!"FX!!!:
---