LATEX-L Archives

Mailing list for the LaTeX3 project

LATEX-L@LISTSERV.UNI-HEIDELBERG.DE

Options: Use Classic View

Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Topic: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Chris Rowley <[log in to unmask]>
Tue, 7 Mar 2000 19:12:35 +0100
text/plain (71 lines)
Content-Type: text/plain; charsetÿso-8859-1"

Karsten Tinnefeld wrote --

> \newcommand*{\@originprint}{%
>   \setbox\@tempboxa\vbox to\z@{%
>     \vskip-1in \moveleft1in \vbox{%
>       \hb@xt@\z@{%
>         \@originpic\hss}}\vss}
>   \dp\@tempboxa\z@
>   \box\@tempboxa \@pagelayout}

Whilst holding my tongue on the merits of hooks in general I should
like to welcome the presentation of this one since, unlike some
other suggestions on this subject, it is very precisely specified (as
a bonus we also have the code!).

Phil Taylor will also be delighted by its interpretation of where the
origin should be for typesetting.

Thanks, Karsten


chris

> \endinput
>
>
> \documentclass[a4paper, oneside]{letter}
> \usepackage{bophook}
> \PageLayout{%
>   \newlength{\topdist}
>   \setlength{\topdist}{\topmargin}
>   \addtolength{\topdist}{\headheight}
>   \newlength{\sidedist}
>   \setlength{\sidedist}{\oddsidemargin}}
> \newcommand*{\color}[1]{}
> \AtBeginPage{%
>   \unitlength1mm
>   \begin{picture}(0,0)
>     \put(105,-22.5){\makebox(0,0){\Large Brief nach DIN 676 B--A4 (1995--05)}}
>     \put(0,-45){\line(1,0){210}}
>     \put(20,-50){\line(1,0){85}}
>     \put(20,-90){\line(1,0){85}}
>     \put(20,-45){\line(0,-1){45}}
>     \put(105,-45){\line(0,-1){45}}
>     \put(0,-98.5){\line(1,0){210}}
>     \put(24,-98.5){\line(0,-1){173.1}}
>     \put(74.8,-98.5){\line(0,-1){20}}
>     \put(125.6,-98.5){\line(0,-1){20}}
>     \put(176.4,-98.5){\line(0,-1){20}}
>     %%% Faltmarken
>     \put(0,-105){\line(1,0){10}}
>     \put(0,-210){\line(1,0){10}}
>     %%% Lochermarke
>     \put(10,-148.5){\line(1,0){10}}
>   \end{picture}}
>   \newenvironment{brief}{%
>     \ignorespacesafterend}{}
> \begin{document}
> \begin{brief}
>   \makebox{}
> \end{brief}
> \end{document}
>
> --
> Karsten Tinnefeld                       [log in to unmask]
> Fachbereich Informatik, Lehrstuhl 2                   T +49 231 755-4737
> Universität Dortmund, D-44221 Dortmund, Deutschland   F +49 231 755-2047
>

ATOM RSS1 RSS2