Re: PKフォントの大きさ？

名前: トノ
日時: 2002-10-24 16:46:00
IPアドレス: 150.35.254.*

>>12244

私はかつてタイプライター体の文字をもう少し大きくしたいと考えたことがあって、
その時は結局あきらめてしまったのですが、この機会に再度挑戦してみました。

※  めいさんのご質問が、「タイプライター体だけを大きく」ということなのか、
    「タイプライター体だけで書かれた文書」ということなのか、
    よくわかりませんが、私が考えたのは前者の方です。

決して「わけがわかって」やっているとは言えません。皆様のご講評を頂ければ
幸いです m(_._)m

なお、ご質問には、
》 mktexpk は、extt0800.187pk (tinyサイズの場合）
》 を探してフォントを作っているみたいなので、
とありますが、私の環境にはこれに相当するものは見あたらなかったので、
txfonts のタイプライター体を使うようにしてあります。
下のソースの \makeatletter の行から \makeatother の行までを
プレアンブルにコピーすれば、タイプライター体の文字が通常の
1.7320508 倍（効果を確かめやすいように、極端な値にしてあります。
\@ttscalefactor の定義を変えることで調整できます）で出力されはずです。
ただし、使用しているフォントが OT1 エンコーディングであることを
前提にしています。

※  要するに、txfonts に含まれていた ot1txtt.fd を適当にいじっただけの
    しろものです。helvet.sty のオプションの処理をまねてみようとも
    考えたのですが、helvet.sty を覗いてみても、理解できませんでした。


\documentclass{article}\relax

\makeatletter
\def\@ttscalefactor{1.7320508} % <-- この定義を変えると倍率が変わる
\DeclareFontFamily{OT1}{stxtt}{\hyphenchar \font\m@ne}
\DeclareFontShape{OT1}{stxtt}{m} {n} {<->[\@ttscalefactor]txtt}{}    %rebular
\DeclareFontShape{OT1}{stxtt}{m} {sc}{<->[\@ttscalefactor]txttsc}{}  %cap & small cap
\DeclareFontShape{OT1}{stxtt}{m} {sl}{<->[\@ttscalefactor]txttsl}{}  %slanted
\DeclareFontShape{OT1}{stxtt}{m} {it}{<->ssub * stxtt/m/sl}{}        %italic
\DeclareFontShape{OT1}{stxtt}{m} {ui}{<->ssub * stxtt/m/sl}{}        %unslanted italic
\DeclareFontShape{OT1}{stxtt}{b} {n} {<->[\@ttscalefactor]txbtt}{}   %bold
\DeclareFontShape{OT1}{stxtt}{b} {sc}{<->[\@ttscalefactor]txbttsc}{} %bold cap & small cap
\DeclareFontShape{OT1}{stxtt}{b} {sl}{<->[\@ttscalefactor]txbttsl}{} %bold slanted
\DeclareFontShape{OT1}{stxtt}{b} {it}{<->ssub * stxtt/b/sl}{}        %bold italic
\DeclareFontShape{OT1}{stxtt}{b} {ui}{<->ssub * stxtt/b/sl}{}        %bold unslanted italic
\DeclareFontShape{OT1}{stxtt}{bx}{n} {<->ssub * stxtt/b/n}{}         %bold extended
\DeclareFontShape{OT1}{stxtt}{bx}{sc}{<->ssub * stxtt/b/sc}{}        %bold extended
                                                                     %  cap & small cap
\DeclareFontShape{OT1}{stxtt}{bx}{sl}{<->ssub * stxtt/b/sl}{}        %bold extended slanted
\DeclareFontShape{OT1}{stxtt}{bx}{it}{<->ssub * stxtt/b/sl}{}        %bold extended italic
\DeclareFontShape{OT1}{stxtt}{bx}{ui}{<->ssub * stxtt/b/sl}{}        %bold extended
                                                                     %  unslanted italic
\renewcommand*{\ttdefault}{stxtt}
\makeatother

\begin{document}
abc \texttt{def \itshape ghi}
\end{document}

この書き込みへの返事：