1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
% -*- latex -*-
\documentclass[a4paper] {article}
\usepackage{graphics} % for scalebox
\usepackage{t1enc} % for 8bit chars
\begin{document}
\setlength{\unitlength}{3947sp}%
\begingroup\makeatletter\ifx\SetFigFont\undefined
% extract first six characters in \fmtname
\def\x#1#2#3#4#5#6#7\relax{\def\x{#1#2#3#4#5#6}}%
\expandafter\x\fmtname xxxxxx\relax \def\y{splain}%
\ifx\x\y % LaTeX or SliTeX?
\gdef\SetFigFont#1#2#3{%
\ifnum #1<17\tiny\else \ifnum #1<20\small\else
\ifnum #1<24\normalsize\else \ifnum #1<29\large\else
\ifnum #1<34\Large\else \ifnum #1<41\LARGE\else
\huge\fi\fi\fi\fi\fi\fi
\csname #3\endcsname}%
\else
\gdef\SetFigFont#1#2#3{\begingroup
\count@#1\relax \ifnum 25<\count@\count@25\fi
\def\x{\endgroup\@setsize\SetFigFont{#2pt}}%
\expandafter\x
\csname \romannumeral\the\count@ pt\expandafter\endcsname
\csname @\romannumeral\the\count@ pt\endcsname
\csname #3\endcsname}%
\fi
\fi\endgroup
% The following redefines rotate macros, because
% rotate[r] says ``The reference point of the rotated box
% is the lower right corner of the original box.''
% and I need the top left corner for reference !
% also added redef. of rotate[l] to get rid of the 'rotate'
% package dependency.
\newdimen\rotdimen
\newbox\rotbox
\def\vspec#1{\special{ps:#1}}% passes #1 verbatim to the output
\def\rotstart#1{\vspec{gsave currentpoint currentpoint translate
#1 neg exch neg exch translate}}% #1 can be any origin-fixing transformation
\def\rotfinish{\vspec{currentpoint grestore moveto}}% gets back in synch
\def\myrot#1#2{\rotdimen=\ht#1\advance\rotdimen by\dp#1%
\hbox to\rotdimen{\vbox to\wd#1{\vskip\wd#1\rotstart{#2 rotate}%
\box#1\vss}\hss}\rotfinish}%
\def\myrotater#1{\setbox\rotbox=\hbox{#1}\myrot{\rotbox}{90}}
\def\myrotatel#1{\setbox\rotbox=\hbox{#1}\myrot{\rotbox}{270}}
\begin{picture}(0,5424)(1400,-5023)
\thinlines
\put(168,-5011){\framebox(283,5565){}}
\put(451,-5011){\framebox(6509,5565){}}
\put(6960,-5011){\framebox(283,5565){}}
% One cm <-> 471.66 units
% 11.8 cm <-> 5565
% 12 cm <-> 5660
% 12.2 cm <-> 5750
% 13.8 cm <-> 6509
% Vertical bands are 283 units width
% The only big box for a back cover is the same place than the
% left one for a front cover.
|
