rick@sara70.UUCP (Rick Jansen) (07/17/85)
[]
This application converts a picture in the ClipBoard from
for example MacPaint or MacDraw, to a file with TeX commands.
The generated TeX commands can be incorporated in another
TeX input file, or fed to TeX on its own. By using this
program you can typeset Macintosh pictures within your TeX
documents in a standard TeX way.
There are some restrictions, however, mainly due to
TeX (of course). The picture is typeset using rules,
which cost TeX rather a lot of memory to store.
If TeX complains about "TeX capacity exceeded" or
something like that, take a smaller picture. Avoid
patterns like gray especially, as every pixel will
become one rule! I think you will not be able to
typeset a screendump with a standard production TeX,
but small pictures like icons will work.
TeXSetScrap (the name of the application) has an icon of
its own. If it does not appear, try setting the bundle bit
with FEdit, or rebooting with the option and command keys
both pressed. TeXnicians will find out what the icon means.
This is a very first version, merely a tryout. Some things
can be done more efficiently, like using \skip<skip register>
instead of \skip<explicit glue>. Also the use of leaders
may prove interesting. (This for the real TeXackers only.)
Let me know if this is a useful application for you!
Rick Jansen
{seismo,decvax,philabs}!mcvax!sara70!rick (until 1-Sep-85)
----- cut here ----- here ----- or here --------
(This file must be converted with BinHex 4.0)
:#e4P@&0PG&0MFQ&`!%&38%a88%P$)!#3"ai!&IX!N!3"!*!$(!#3!aX!N!-"aJ#
3mb8N9'9B8f9d8f0bBA!J9Q9bFfP[EL!`,M!Z-#!J5R9XH5!a16Je!*!$"d&38%`
!N!BF9&"*3`#3!`&*3diM!*!%!3"'8N9'!*!%!3#3!`%!rj!%J!!!!ErrrrfJ!!!
&VrrrpDJ!!"@[rrreS!!!"D3!!!@J!!!&VrrrpDJ!!"@[rrreS!!!"Errrrf!!!!
"J!!!!ErrrrfJ!!!&VrrrpDJ!!"@VZ"h9UUJ99DUUP9@UU"99UlJGeDJ!!"@[rrr
eS!!!"Errrrf!!!!"rj#%!*!$4!'!'R!Q5#C+%Nd55@J*Q!')!N!#)!)J""!%#!J
%#!3)!B!DF#C)*NS564**D!QB!BJ#3!)J!L!%%!3)#!3)"!J!#!!%!*!$-!!"!*!
)rj!$q`%8&%&LEh9d)&4P@(0PG&0MFQ&`,T!$!*!%!5d!N!JX!3#3#Iq3!rX%4QP
XC342F'9Z!%m!!!%Y!*!%"&&eDA3!83#3"NJ"!3#3#2q3!rX%4@4TG!49EQ4[!&S
!!!%Y!*!%!d0eG!"B!!!%3fp`H3"$!!!&8'&cG'8!9J!!"80XC@&b!*!)$!"N!'3
!h!'3!!%!998!N!0!!!)!N!8+!0`!(J%L"!*25`#3"6F!#J"N!5))!Pia!*!&C!!
+!(3")JJ3+%9bFQpb)'0[C'8k)&i`+3#3!a8!5`!8!6X"l!!"!3#3"`%"!*!$!Q!
!#3#3"G)"KJ$Q!EJ%!Np,!*!&&!!+!#J"`SJC9'9B8f9d8f0bBA!JGQ9bFfP[EL!
`,M!Z-3#3"LJ!#J!m!F+)1&GbDA4dC@iJ5R9XH5!a16Je)'*j)&*TBfXJ5Q&ZFf9
Z)%!J8d&535`J9'KP)%jPG'KPFQaKEQ4c!*!&2!!+!&!"`SJf98j*@+SJ999$8$S
J)(YcC@PcE@mXF'KTE'&LFbaNC@0fBAKp)@eMGQ&i)A0KFQ%h-#&bD@0V!*!&8!!
+!'3"`SJq9'9B8f9d8f0bBA!JBfpZGQ9bG(-JB5"`D@0dGA*P)'PZ)(4SC5"$E'P
`3QpKFQ3JG'mJB5"QD@aP)(GTG'J!N!9N!!S!H!(#L$P8C9JJBfpYE@&ZC(-Z)&4
SDA-JGf&j)(P[G5"MB@iJG(P`CA0PG#"`D@0dGA*PFb"hDA4S)&4P@#%!N!Ci!!S
!M!(#L$j1Eh4P1L"*CL"8C9JJBfpYF'aKD@jc)'&LEh9d)#*8C9JJBf&`B@0TG(N
JCAKMC@9NC@3ZN!-L)(4KDf8JB3#3"B`!#J#J!F+)'A0[E@9hD'&d)(0YB@aXCA)
JF'PMG(9bC5i!N!DJ!!S!Y!(#L%&'Eh)J9'9B,6Jb)'%JE@pbC5"PCQCTBfPPER3
JGQ9bFfP[EL"MB@iJBQ8JGh*TG(4PEL`JGfKTBfJJGfPXE#"LC3#3"V3!#J$)!F+
)0Q4[EQ8JBA-JFfp[EL"KFb"hC5GbC5"bG@jZD@jR)&4P@#di-L!S9'9B,6J`)'C
[FL"ZEhFT,J#3!``!b!"N!8!"N!!"!&99!*!$2!!#!*!&#J$F!"i")J3#6dX!N!8
h!!S!C!%L#!*H-3#3"@3!#J"d!5))$%*eCeCKE(9P1L"H-!#3!bJR35"5CA0[GA*
MC5"0B@jKCf9b)'9bFQpb)#KH-#NJEf0MGA*bC@3Z!*!$*#0")%CTE'8J6@&ZB@G
PFL"PFR*[FL!SAM!T)'pMBh9bFQ9N,J#3!a!24P0$E'pcC5"QB@PXC@3Z!*!$$`j
'8dp`C@iJCQ&TE'9N,J#3!`m14P05C@&N)'CKD@aPC#i!N!-4%%CXGA0S9QpX)'C
KD@aPC#i!N!-2$NGPG%9[CL"QB@PXC@3Z!*!$%!p6CA4'8'pc)'CKD@aPC#i!N!-
2$N0bC@&dC5"QB@PXC@3Z!*!$#`T%DA0V)'CeE'`Z!*!$'4K1Eb"`D@0dGA*P)'P
Z)%0XDA"#Ef&bC#i!N!-0$%ePE@pbH5"QG@aX,J#3!aJ!N!-S!!!'R!#3!`J!N!-
J%!`r2!!"UI!!!"+k!*!$!8j@!!!lI!!"qfj#EIYX3UFr2!!%UENVArr`,bhrm%k
k%'j1ANje6PErr#m-5Ui!$'F!!)C#Tbmk!)`r,J!+UD!SAbmZ!!a)EIl`6VS4E%K
Yr[![&%Kk!'a)HJ"SUBX3,J!)5)"R$P0!CaT63'FQ8d"R-Q"!3QFr2!%!3UHTK6Y
IrZ*J-%*R2c`"!%+RUBFlArlLB#"#Ccmm!3"#TkQ)1erqiQ!33QFr2!%!3UHTKMY
IrZ+Tp#m-UD-SAdjH)&p36dl3!!"69&)J6PB!!%+R-#hqh%M!,`![2!!!!3#S@%U
I9X"%!"e!!!K1ANje6PEprLm(3UFr2!!"UEmVArrd,bhrp#mk!%UT65mYrr4#CkN
e2M`"!'!U)!IP3#m!3UFr"kQr)KmJ(d(YqrJKJ3!!)!IP3%(YqrJ[-!!!3QHT09*
($%F"!@r3U6FZ(djH6R9%8PC56PB!!%*R2bhpF%kk$i)lArkm-#hq[%M!,`!r2!(
e(c`!!NkkrV"#Cd+R2bhqH%kk$mBlArkm-#hq[%M!,`!r2!(i(c`!!NkkrSa1ANj
e6PErr$!YqF#3!'hj[*!!I!%`5-#"r!!#28$rrM!YqEk3!'hjZT!!I!"S5-#"r!!
#28$rr%(YrA*$qJ#i)0NJf6#43Hhqm%2k!**`"L$C8d"ZqLmZrra)EIl`5'hpFN+
R5'hqFNkk$k`3,IjbCf"#CdKYrR`r,Iji,cS!A#mk!&41ZJp-1erq[!aYrp$q['F
8-#hq[%M!,`!r2!(l(c`!!NkkrHK#CdKYrR`r,Iji5'hpF%kk$PBlArkm-#hq[%M
!,`!r2!(f(c`!!NkkrEj1ANje9%9B9&4B8&3@3h*PBA4P)&4P@#"TER"eG#"QD@a
P1J!*9'9B,@PZF(9d6PErr$!Yqfj63%M!,8$rr%*R2bhpF%KZrra"lIY`,`K1ZJj
'1erq[!aYrplq['BF-#hq[%M!,`!r2!(m(c`!!Nkkr8a1Z[jdUI4J&$!YrVa)`#m
!2c`"p"mm!!*1Z[d`1h`!!IYZ6Pj1G8j@!!!`,IYZ3HhlEa'Z!!N!!&*Yqfi-E3)
!qfj["%kkrhC1AL"I9%p1d%j@!!!r2!!06VVrc%*Yqfa1ANje6PEqr#m()'i!#%2
Zr`"`3#,B8d"ZqK!Zr`!#3!$rd@hlE!aY!%ElE'm36VVr`"!Zr`!#3!$r1d$lE"!
Zr`!#3!$r28$qr(i"B"C"l[m!%$"`!!*!!2mr!%kkrfK54fN'[Qlqr'rN,Kp1ALk
I6R919[rm5'lrr+Kd,bhk8UKc2c`!#ULF3QF`,IY5d'i!#$m!U*-`,IYB8d!r!%*
RU*)r2!!)U*`[,[rmU(01AL"I9%p1d%j@rra)E[rmU(3[,IT5U(-r2!!+U*`r,J!
)2bhl8UL63QF`,IY@N!"Yqe)r!+L52c`!#+LF,blrr+Kc6PiJAe426Y"19J!!5Qh
lD'mX5(S!6%kkr[``,IYS5-![!%KYr["1ZJeN5'hqm%kkrZ4)HJ!S6VVqh%kkrX4
)HJ!86VVqd"Ym!!(lDd*YqfK1ANje"PaSBQpiH`!#F(3!"PafFfYTF!"19J!!5Qh
lCQmS5(S!5%kkrT``,IYQ5-![!%KYr["1ZJd%5'hqm%kkrS4)HJ!N6VVqI%Kk!"4
1Z[jd'h`!!IYV3QhlCNjH6R8'A(CLEhKl!!*`G!!'A'KcDfP`!%j@!!")HJ!56VV
q4NkkrLj#,IYV6Pj1G3CFD'CTE(d!6PB!!%Kk!"*1Z[iQ6VVq$N)YqfY1ANje#(e
FG@jcDfP`!%j@!!!3,IYV#J!!!@F%6VVqmNKk!$*1Z[hf-#i!#%M!,`")EIl`6VS
-ANKYr["1Z[hH5(S!$NkkrGC1AL"I9%p1d!*`G!!'A'KcDfP`!%j@!!!3,IYV#J!
!!@F%6VVr"%Kk!$*1Z[fS-#i!#%M!,`")EIl`6VS-%%KYr["1Z[f3!%Kk!!j1Z[f
)6PiJAe426Y!#F(3!"PafFfYTF!"19J!!5(S!ANkkr@K)HJ"16VVpB$!Z!!K)`#m
!5'hqm%kk#mK)EIl`6VVp5%Kk!#T1Z[e!5(S!'Nkkr6K)HJ!16VVp-%jH)&p86dl
3!c&`G!FJD'9TCfKd!R"d!!BJGfPNG'J!"PafFR9XC3"19J!!5(S!ANkkr2a)HJ"
16VVmp$!Z!!K)`#m!5'hqm%kk#ea)EIl`6VVmh%Kk!#T1Z[c85(S!'Nkkr-a)HJ!
16VVma%jH)&p86dl3!c&`G!BJGfPNG'J!!R"d!!FJD'9TCfKd"PaSFR9XC3"19[r
q51F$!$`Z!!Tq!9*'3QFr"MmZ!!LSCEaYqf"G`-!IC`C54e*'B1Bp4`!-60m!`%j
H,Tp1G8j@rrj)j`-!2#i!#(i"8NC#CcmZ!!Sr"UKP['hlAPh!`"pR"P*(8NCJjMe
(!!a-h`$!6PiZRdje6PB!!"!YqfX+!!!"C`41Z[d12bi!#%kkrU!r2!!,U*a)EIS
HU*dr,J!-2bi!#UL6-#i!#&0!2`"#CkL56PiJAea26Y"19J!!%#hlD`S!!!&R"%k
kr5Sr,J!)6VVqb$mm!!ZSR%KYqKkSR6mZ!!`r,J!+U*0#Cc!Z!!K63$m!U**1AL"
IA%p1d%j@rra)E[rmU(3r2!!,U*`r,J!-2bi!#UL63QF`,J!)8d!r!+L52c`!#DL
F3Hhk9Lm)U(-`,IYFd'i!$$m!2bi!#UL63QF`,J!)8d!r!+L5,blrr+Kc6PiJAea
26Y"19[rX51F2!%KZrrbSG%(YqX)[#+Kc5(S"m%kkqbK1Z[X35(S"dNkkqaa1Z[X
%5(S"Z%kkqa"1Z[Vi5(S"RNkkq`41Z[VX5(S"JNkkq[K1Z[VJ5(S"ENkkqZa)HJ&
F6VVkj$!Yqek3!'hl@NM!,`")EIl`6VS*5%KYr["1Z[V)5(S"0%kkqX"#EIYS2#h
l@Mm'6VVl),aYqejX!!$S2LhlA%)YqfY#"%*&[QhlB'`!!,)p4rrf3QFr"cm'U'8
3(`S!!!'qEIYJAF(!!@F%8NGJj#!&d%H3!'lrpMS!3J5qEIYJAF![!%*R2`Fr"UK
P%KmJ(m!"Ccj#Ccm(2`C1Z[fZ29rrp%*R2`Fr"NkkrGJpArrb-#lrp,"Zrr*F`%3
!'!!J"!S!!!&R$$m(2`Br,[rb6VVqFK!%CbDqEIYJAF"+49l"`!&R"Mm&6VVllN*
&2`Fr"MmZrr41Z[h%hQlrp'!!rdS3,IYVC`C1Z[Z-B!45EIYS2`C1Z[Sq8NBr"Nk
kqMCJ!2m82`C1Z[SX%#hlDfF%6VVlC%Kk!"K1Z[QX6VVjP#mZrrbSFdcI!2"1ANj
e"PafCQPXI3!$F(4l#9afBQpi)(4[)!CFGQ*[H(X!$Pa`BA*TEQ4PER3J-("d!!a
FF'&bFfYTF#!`F(3!$9aXD@jPFfYTF#!`F(34A'*KFf9XD@jPFfYTF#!`F(3-A'P
ZF(9d)'*KFfPM!%j@rr")j`m!5'lrr+Kd3Hhk9Lm)U(0)HJ(@6VVj%Nkkq2T)HJ(
-6VVj"Nkkq1j)HJ'q6VViqNkkq1*)HJ'U6VVilM!Yqek3!'hl@N4!5-![!%KYr["
1ZJG35'hqm%kkq0")HJ'!6VVib%kkq,")HJ&U6VVi[$!Yqek3!'hl@NM!,`")EIl
`6VS()%KYr["1Z[LJ5(S"2%kkq*K)HJ%Q6VViN!"1Z[Ki3QhlCM`Yqe`r"Nkkq6#
mEIYJE!!!`$iYqeT#,IYV[QhlAQ`!!)ip4rrf3QFr"Mm(U'83(`S!!!'qEIYHAF(
!!@F%8NGJj#!(N!"ZrrBk!,jYqejG`%T&AX(!!F!YqfYR"Mm&6VVkCVjYqejF`%T
&AX(!!F!YqfYR"Mm&6VVk6VjYqejG`#m!3QFr"Mm(U'85(b!I`!&R'%*R2`Br"dk
kqiSi(cm'2`Fr"%kkqrVH4'!!rfi3,IYVC`C1Z[QJB!45EIYQ2`C1Z[Kf8NBr"Nk
kq'jJ!2mm2`C1Z[KN%#hlDfF%6VVjH%Kk!"a1Z[HJ6VVhL%kkp[![,[rmU(0-h`$
`6Pj1G4KFD'CTE(f3!b"FF'&b)&afCQPX)&aPEQ3!$9aSBQpiHeaeER0VDA!)F(4
lA(CQD@`!#9afBQpi)(4[)!*`G!!(A(CcDfP`)!%P+b90B@YP)(4SC5"ZCAKd)'*
[H#"[GQ9bE'&`)(4SC5"`FQ9fD@peFb"[EQ919[ri,`G)E[riU(4"lIYD3qhl8L$
C)0P)EIYD-#hlA%4!2`!`,IYD4%!r!+LS-#hlB%M!JI`!#$Y!qd!3,IY"!N!!!@F
+-#hl3&*!1d$l3$!Yqd$"lIYH5-!Z!%+R,c`!J!!!6VS$bLYIrYj#Tbm(6VS$eLY
Iqdj#Tbm(6VS$bLYIqdT+VIY19m"+VIY+9m'!!@F3F!%[!$mm!PNI2!!$6VVc9LY
Yqdll2%(Yqd*$lIYD)0NJf8(Yqbj$lIXm)0NJf5$C-*%VEIY+qbj"lIV#,`LSEdK
YqcbSG6mYqf!r,IYHU(C)EIYDU(Y)EIYDU+-[,IYL5'hl@UMf3Hhk9Lm)U'p)EIX
ZU(8r,IYJ2bhlAUKf5'hl@ULM,blrq+Kc,Kp1ANje6PErq%+R3UG1ZJ-Q+erlBN+
R,bhlBLmk!$j)E[rmUIdYArri(A`!!3!)$+lrN!1DrraA`%UZrrKG`B!"Ca3[,[r
m2c`#@"mm!!*1Z[+)3Li!#%jH6R9358086PB!!#"Yqf)J8%2Yqe*8L#,B)YK)EIY
5-#hl9%4!2`!`,IY54%$3I!!82`#SU#mYqf*)EIY5U2C)EIT5U(41ANje6PErpLm
-3UFr2!%"3UG`rbm!UA`SAdKZrrbSG#m-U(0#TdKZrrDTN3aZ!!(rpQE`,`bTJbm
ZrrbSFbKI6Pj1G8j@r`![,Ird2bi!#%KZr`#T4JaZ!!%!#'B'6VVrT'!-3QG)E[m
!UEBlArlL6PiJAe426Y"19[rm51F$!%*R,bi!#+KU2"p#CbmZ!!LSDciI$'d!!Il
1C`a`$bm!5'hq[Nkk!JJ`"P0!C``%3!$rC`j63'G@B')r"dkkriCJ@M!(8d"R"P9
!CcTJ6N*R6VVqPK!ICba1Z[,F%#hqFQFL6VVqhNkkr9`JEIr`,a#S88kkq4j1Z[X
`5'hj`UK46VVbCQ!@'h`!!Il&B!j#Cb!(8d!r!+R#'erqj8*RU6K-h`$!6PiZRdj
e6PB!!"!YrYd#3!!"C`B[,Il3U4p1ANje6PErq%KZrrbSG#mZrrbSFdjH6R919J!
!3QF[,IlB5'hqbUNX-"p63'F18d"R'&9!Cb"93'FUB#K#TbmYrYLT28kkr[4J'NK
YrXi[,Il+UE0J$LmYrXS[,IlB5'hjZUNP6Pj1G8j@!!![,Il3,c`!!!%!6VS#9#!
I1d$q`N*R6VVa("!IC`a#TcmYrX+T2NkkrUC1ANje6PB!!+Qd3QFr22rr5'hqcUP
`%"pR-$!YrXj63'F598"R&&9!Ca"63'FB98"R$Q!@6VVr6'!36VVrPQ!+6VVr&'!
%6VVr*NjH6R91ZJ+!6PB!!#aI6P8!!*rY!""1ZJ+#3Hhk,Lm)U'kSrUN5UFbT-+K
33UHTHdkklmC1Z[#Z3Lhqa8kkrh`3,Il&CrC1ZJ*H6Pe1ZJ*+6R91ANje)PmJ(k"
-,S"1FA!!,`Na`!)J6R9`!'$f)PmJ(k%H,SK1q[rU)PmJ(k%L,SK1q[rH)PmJAk"
+6[Vre#!I)PmJAbm!S$XLJ%je6PErcN(ZrmiKEJ!1!")aEJ!-!"C#+!!D3LJ!'d+
S!"bJ!#*Z!!JbU!!B28!!%NjH)&rIr!#3!`T1d%j@rmj"l[r1-@i!#!!BS!%p3!!
+6PiJAe526Y"4`@!#8-&19[r13HlrcL&Z!!J!)$&Z!"!!'#*Z!!`K83!N3QJ!,%+
S!#j+!@B%S!*J!U!$28!!%L*Z!!`LU!!S6PiLAprm!*!$#Nl46PEr`%(Zrm!aEJ!
)!"BKEJ!+!"+J%ce!!!j1AL*IA)p1d8j@rl""l[q`)@i!%J!5-@i!%!!@3LJ!'U!
)5N"Q&N*S!"bJ$#!)3qJ!)#,Z!!JLVJ!-S!dp3!!@6PiLAprm!*!$$Nl4G!%JAcm
#,`LYkL"[!!3J,`!)3QHTlL"I8%p1d%j@!!"#VIT13Lhk5%)YqNP#VIT#3Uhk2N+
YqM*1ANjeT8P1594)48%!!%j@!!![!#m")#m!&#)[!""1ZJ!8,d!!&#)I)"p1ALp
A!!4BMdje6PB!!#aI51Fq!#S!DJ*%J#`"DJ*%J53"5%*+3QBF0J"#3%K!C`5!`63
!5%)`!i$"0!!L!N*!5%"J(#3!*J&#J%+"H"r8JY'!dS'`Jfd%N!#$8J&4c2r`5S9
U!N5!ZiCU!N5"60m!I%je6Pj1G8P%59C06d3J3Um!%%(k!!JJV`!%6R8!N!41G5"
I6Pd[#%kkrb"1G5"I6P8!!%l3!*$r!*#e(!('!!T$6d4&!!%!@P088L!!#`"b4%a
24`!!!3*%594-!!)"$N&-8P3!!3%b689193!#!8T$99*6!!!"ENP$6L-!!!&k3Nj
%6!!!!BC'8N9'!!!"NP4358-!!!'H!!$rrb!!"SX!N!8"rrmd!!DR!*!%!C!!rrm
!!!9a!*!%!I6rr`!!"Cd!N!3"pIrr!!!&a3#3"!(frrm!!!AC!*!%!IIrr`!!"H`
!N!3"q2rr!!!&r`#3"!(jrrm!!!B8!*!%!IVrr`!!"LF!N!3"qrrr!!!'1`#3"!(
mrrm!!!C1!*!%!PMrr`!!"Pd!N!3#@Irr!!!'HJ#3"!%"rrm!!!+N!*!%!3$rr`3
!!Q!!N!3"!Irr!!!#[3#3"!%#rrm%!!8a!*!%!3$rr`3!!P!!N!3"![rr"!!&)3#
3"3(rr`!!!D!!N!3"!2rr!!!"e!#3"!%"rrm!!!)%!*!%!3$rr`!!!9J!N!3"!2r
r)!!!9!#3"!%!rrm!N!-d!*!%!3$rr`#3!bN!N!Err`#33Qh-!: