foo                   TEXMF
==================    =================
foo.dtx            → \work
foo.ins            → \work

work>latex foo.ins
==================
foo.mf             → \fonts\source\foo
foo.fd             → \tex\foo
foo.sty            → \tex\foo

sqrcapsのインストール
=====================
*.pdf              → \doc\sqrcaps
*.afm              → \fonts\afm\sqrcaps
*.pfb              → \fonts\type1\sqrcaps
*.tfm              → \fonts\tfm\sqrcaps
*.tex              → \tex\sqrcaps
sqrcaps.dtx        → \work
sqrcaps.ins        → \work

work>latex sqrcaps.ins
===========================
*.fd               → \tex\sqrcaps
*.sty              → \tex\sqrcaps
sqrcaps.map        → \fonts\map\sqrcaps
                      updmap --add sqrcaps.map を実行

METAFONTが必要な場合はsqrcaps.insにおいて，下記のコメント%を外す。

%%%Msg{*** Generating the Metafont files ***}
%%%\generateFile{sqrc7.mf}{t}{\from{sqrcaps.dtx}{base7}}
%%%\generateFile{sqrc10.mf}{t}{\from{sqrcaps.dtx}{base10}}
...
%%%\generateFile{sqrcdig.mf}{t}{\from{sqrcaps.dtx}{dig}}

\documentclass[b5paper]{jsarticle}
\usepackage[T1]{fontenc}
\usepackage{lettrine,changehyphen,uncial}
\renewcommand{\LettrineTextFont}{\upshape}
\ChangeHyphenFamily{OT1}{uncl}{'133}
\begin{document}

\newcommand{\aelig}{a{\kern-0.485em}e}
{\unclfamily\setlength{\baselineskip}{19pt}%
\lettrine[lraise=0.5,lhang=1,nindent=0pt,lines=2]%
{J}{k} gihorta dat seggen,
dat sih urhettun \aelig{}non muotin,
Hiltibrant enti Hadubrant untar heriun tuem.
sunufatarungo iro saro rihtun.
garutun se iro gudhamun, gurtun sih iro suert ana,
helidos, ubar hringa, do sie to dero hiltiu ritun,
Hiltibrant gimahalta Heribrantes sunu: her uuas
heroro man, \dots\par}

\end{document}