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
|
% statement.mp
% L. Nobre G.
% 2007
% prologues := 3;
input boxes;
verbatimtex \documentclass{article}\usepackage{palatino}\begin{document} etex
beginfig(1);
picture topl, midd, botl;
numeric tl, ml, bl;
% topl = thelabel(btex \mbox{G E T T ' N ' R E A D Y} etex, origin);
% midd = thelabel(btex \mbox{4D} etex, origin);
% botl = thelabel(btex \mbox{c l i m b} etex, origin);
% defaultfont := "putr8r";
% defaultfont := "bchr8r";
topl = thelabel( "G E T T ' N ' R E A D Y", origin) yscaled 0.3;
midd = thelabel( "4D", origin) scaled 1;
botl = thelabel( "C L I M B", origin) yscaled 0.6;
tl = abs( urcorner topl - ulcorner topl );
ml = abs( urcorner midd - ulcorner midd );
bl = abs( urcorner botl - ulcorner botl );
boxjoin( a.se=b.ne; a.sw=b.nw );
boxit.topli(topl);
boxit.middl(midd scaled (tl/ml) );
boxit.botli(botl xscaled (tl/bl) );
drawunboxed( topli, middl, botli );
endfig;
beginfig(2);
picture topl, midd, botl;
numeric tl, ml, bl, sc;
sc = 10;
topl = thelabel( btex o\ n\ e\ \ l\ i\ f\ e etex scaled sc, origin) yscaled 0.3;
midd = thelabel( btex {\huge 40} etex scaled sc, origin) scaled 1;
botl = thelabel( btex D\ R\ I\ L\ L\ S etex scaled sc, origin) yscaled 0.6;
tl = abs( urcorner topl - ulcorner topl );
ml = abs( urcorner midd - ulcorner midd );
bl = abs( urcorner botl - ulcorner botl );
boxjoin( a.se=b.ne; a.sw=b.nw );
boxit.topli(topl);
boxit.middl(midd scaled (tl/ml) );
boxit.botli(botl xscaled (tl/bl) );
drawunboxed( topli, middl, botli );
endfig;
verbatimtex \end{document} etex
end;
|