🚀 go-pugleaf

In einer Nachricht vom 25.08.92 schrieb Franz Born % MAUS M (2:242/2.6):

 FB> Ich will einen Text in etwa so setzen, wie es z.B. frueher in der
 FB> Bibel ueblich
 FB> war, also eine grosse Initiale (I) ueber mehrere Zeilen umgeben von
 FB> Text.
 FB> Hat jemand eine Idee? Oder vielleicht schon einen fertigen Style?

Ruf doch mal zwischen 07:00 und 00:00 Uhr hier an und requeste:

DROP.LZH 2614 Dokumentstyle zur Vergroesserung des ersten Buchstabens
              (Wortes) eines Abschnittes

...oder das Magic TEX um eine komplette Liste aller TeX-, LaTeX-,
Metafontdateien zu bekommen.

Falls Du als Mauser nicht pollen kannst:

A&M-SOFT +49-030-3915186, als Gast einloggen (max. 30 Kb download)

Mit freundlichen Gruessen Mick!

P.S.: Falls jemand Styles und Tools zu TeX sucht, innerhalb der oben angegeben
Zeiten kann jeder requesten. Ich habe ca. 280 Archive mit knapp 11 Mb an denen
ich gerne andere Interessenten teilhaben lasse.

Hi Franz!

Tuesday August 25 1992 23:12, Franz Born % MAUS M wrote to All:

 FB> Ich will einen Text in etwa so setzen, wie es z.B. frueher in der Bibel
 FB> ueblich war, also eine grosse Initiale (I) ueber mehrere Zeilen umgeben
 FB> von Text. Etwa so:

 FB> \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 FB> (I)   Text asfkd asjkdflkj asdflkj asfdlkj safd
 FB>       lasjdflskjd  lskjfd  lasjkfd  lskafjd dkl
 FB> asfjd lsfjkd jsfkadlk jklsafjd sak sdfj skslkdj
 FB> alsdjas djlsdjf sjdlfjslkjfs djlskjdf slkd ...

% I picked this up off the net quite a while ago but I don't know who to
% credit.
% ( \bigfirstlet{T}his works ) :

\def\bigfirstletter#1#2{{\noindent
    \setbox0\hbox{\Huge #1}\setbox1\hbox{#2}\setbox2\hbox{(}%
    \count0=\ht0\advance\count0 by\dp0\count1\baselineskip
    \advance\count0 by-\ht1\advance\count0 by\ht2
    \dimen1=.5ex\advance\count0 by\dimen1\divide\count0 by\count1
    \advance\count0 by1\dimen0\wd0
    \advance\dimen0 by.25em\dimen1=\ht0\advance\dimen1 by-\ht1
    \global\hangindent\dimen0\global\hangafter-\count0
    \hskip-\dimen0\setbox0\hbox to\dimen0{\raise-\dimen1\box0\hss}%
    \dp0=0in\ht0=0in\box0}#2}

Im TeX-Book gibt's eine Beschreibung der Makros \hangindent, die fuer genau den
Zweck gedacht sind. Mit ein bisschen Rechnerei und einer Box fuer die Initiale
duerfte das Problem schnell geloest sein. Desweiteren hat Yannis Harambolous
fuer seine deutschen Fraktur Fonts das so geloest. Man kann also auch unter 
der Font-Distribution z.b. in Stuttgart (wohl der TeX-Server in Deutschland)
oder einem anderen TeX-Server sich diese (sehr schoenen) Fonts besorgen
und die dortigen Makros verwenden.

MfG

Jens Franzen

PS. Der Server in Stuutgart is auch via email (mail-server@rusmv1.rus.uni-stuttgart.de)
erreichbar.

Franz Born @ M am Di, 25.08.92 23:12 in TEX

FB>Ich will einen Text in etwa so setzen, wie es z.B. frueher in der Bibel
FB>ueblich
FB>war, also eine grosse Initiale (I) ueber mehrere Zeilen umgeben von Text.

--
% From: gerland@ubvmsb.cc.buffalo.edu (James R. Gerland)
% Newsgroups: comp.text.tex
% Subject: Re: one BIG letter
%
% >I'd like a style definition that produces one large letter at the beginning
% >of a paragraph.
%
% I picked this up off the net quite a while ago but I don't know who to
credit.
% ( \bigfirstlet{T}his works ) :

\def\bigfirstletter#1#2{{\noindent
    \setbox0\hbox{\Huge #1}\setbox1\hbox{#2}\setbox2\hbox{(}%
    \count0=\ht0\advance\count0 by\dp0\count1\baselineskip
    \advance\count0 by-\ht1\advance\count0 by\ht2
    \dimen1=.5ex\advance\count0 by\dimen1\divide\count0 by\count1
    \advance\count0 by1\dimen0\wd0
    \advance\dimen0 by.25em\dimen1=\ht0\advance\dimen1 by-\ht1
    \global\hangindent\dimen0\global\hangafter-\count0
    \hskip-\dimen0\setbox0\hbox to\dimen0{\raise-\dimen1\box0\hss}%
    \dp0=0in\ht0=0in\box0}#2}
--

Gruss, Thomas

Hallo, Franz!

*** Am Dienstag August 25 1992 um 23:12 schrieb Franz Born % MAUS M an All:

 FB> Ich will einen Text in etwa so setzen, wie es z.B. frueher in der Bibel
 FB> ueblich war, also eine grosse Initiale (I) ueber mehrere Zeilen umgeben
von
 FB> Text. Etwa so:
Im Source des TeX-Book kann man das nachlesen.

Tschau...Thomas

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  DROP.DOC <February 17, 1988>
%  Macro for dropping and enlarging the first letter(s) of a paragraph.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  Macro written by David G. Cantor, and published Fri, 12 Feb 88, in
%  TeXhax, 1988 #16.
%  Internet:  dgc@math.ucla.edu
%  UUCP:      ...!{ihnp4, randvax, sdcrdcf, ucbvax}!ucla-cs!dgc
%
%  Modified for use with LaTeX by Dominik Wujastyk, February 17, 1988
%  Internet:   dow@wjh12.harvard.edu
%  Bitnet:     dow@harvunxw.bitnet
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  This LaTeX macro is for dropping and enlarging the first letter(s) of a
%  paragraph.  The argument may be one or more letters.
%
%  Here is an example of its usage:
%
%  \documentstyle[drop]{article}
%  \begin{document}
%    \drop{IN} THE beginning God created the heaven and the earth.  Now the
%    earth was unformed and void, and darkness was upon the face of the
%    deep; and the spirit of God hovered over the face of the waters.
%  \end{document}
%
%  Which will produce something along these lines:
%
%  I I\  I THE beginning God  created the heaven and  the earth.
%  I I \ I Now the earth was unformed and void, and darkness was
%  I I  \I upon the face of the deep; and the spirit of God hov-
%  ered over the face of the waters.
%
%  In the first instance the macro will pause during LaTeX processing and
%  ask you for the font you wish to use for you drop capital.  When you
%  have something that looks good, then comment out box one in DROP.STY,
%  and comment in box two, replacing "cmr10 scaled \magstep5" with the font
%  of your choice.
%
%  In my opinion (DW) there are no fonts available in the standard
%  TeX/LaTeX set that are ideal for this use, unless you go down to 9pt or %
 8pt for your text face, and this is too small.  If you have Metafont you
%  should consider generating a cmr17 font at a magstep of two (about 25pt)
%  or three (about 30pt), or even more, depending on the point size of your
%  main text.  Why not go the whole hog and design some really fancy
%  capitals from scratch!
%
%%%%%%%%%%%%%%%%%%%%% BOX ONE %%%%%%%%%%%%%%%%%%%%%%%%%
\typein[\dropinitialfont]{Font for Dropped initial:}  %
\font\largefont \dropinitialfont                      %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%%%%%%%%%%%%%%%%%%%%% BOX TWO %%%%%%%%%%%%%%%%%%%%%%%%%
%\font\largefont= cmr10 scaled \magstep5              %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
\def\drop#1#2{{\noindent
    \setbox0\hbox{\largefont #1}\setbox1\hbox{#2}\setbox2\hbox{(}%
    \count0=\ht0\advance\count0 by\dp0\count1\baselineskip
    \advance\count0 by-\ht1\advance\count0by\ht2
    \dimen1=.5ex\advance\count0by\dimen1\divide\count0 by\count1
    \advance\count0 by1\dimen0\wd0
    \advance\dimen0 by.25em\dimen1=\ht0\advance\dimen1 by-\ht1
    \global\hangindent\dimen0\global\hangafter-\count0
    \hskip-\dimen0\setbox0\hbox to\dimen0{\raise-\dimen1\box0\hss}%
    \dp0=0in\ht0=0in\box0}#2}

Mahlzeit Franz!

On <25 Aug 92> wrote Franz Born % MAUS M to All:

 FB%MM> Ich will einen Text in etwa so setzen, wie es z.B. frueher in der
 FB%MM> Bibel ueblich war, also eine grosse Initiale (I) ueber mehrere Zeilen
 FB%MM> umgeben von Text. Etwa so:

 FB%MM> Wie fange ich das am besten an?

Indem Du DROP.STY verwendest, der genau dieses macht. Falls Du den nirgends
findest -> NM

So long...

Sven