Como implementar letras maiúsculas no TeX simples?

Como implementar letras maiúsculas no TeX simples?

Como alguém pode implementar uma capitulação simples no TeX simples sem pacotes adicionais?

Responder1

Aqui está uma abordagem muito básica que mostra duas possibilidades; o primeiro usando \hangindente o segundo (mais flexível), \parshape:

\font\lettrine=cmssdc10 at 30pt
\font\scfont=cmcsc10
\hsize=24pc

\noindent{\lettrine L}

\vskip-2.15\baselineskip\hangindent=1.8pc \hangafter-2 \noindent{\scfont orem} ipsum dolor sit amet, consectetuer adipiscing elit. Ut purus elit, vestibulum ut, placerat ac,
adipiscing vitae, felis. Curabitur dictum gravida mauris. Nam arcu libero, nonummy eget,
consectetuer id, vulputate a, magna. Donec vehicula augue eu neque. Pellentesque 
habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Mauris ut 
leo. Cras viverra metus rhoncus sem. Nulla et lectus vestibulum urna fringilla ultrices. 
Phasellus eu tellus sit amet tortor gravida placerat. Integer sapien est, iaculis in, pretium
quis, viverra ac, nunc. Praesent eget sem vel leo ultrices bibendum.

\vskip\baselineskip

\noindent{\lettrine L}

\vskip-2.15\baselineskip\parshape 3 1pc 23pc 1.5pc 22.5pc 0pc 24pc \noindent{\scfont orem} ipsum dolor sit amet, consectetuer adipiscing elit. Ut purus elit, vestibulum ut, placerat ac,
adipiscing vitae, felis. Curabitur dictum gravida mauris. Nam arcu libero, nonummy eget,
consectetuer id, vulputate a, magna. Donec vehicula augue eu neque. Pellentesque 
habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Mauris ut 
leo. Cras viverra metus rhoncus sem. Nulla et lectus vestibulum urna fringilla ultrices. 
Phasellus eu tellus sit amet tortor gravida placerat. Integer sapien est, iaculis in, pretium
quis, viverra ac, nunc. Praesent eget sem vel leo ultrices bibendum.

\bye

insira a descrição da imagem aqui

informação relacionada