summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/synthslant/title.mp
blob: 25658ecb98593a5821d4716a9195722e46882d7d (plain)
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
65
66
67
68
69
70
71
72
73
74
75
76
%%
%% This is file `title.mp',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% synthslant.dtx  (with options: `title')
%% 
%% This is a generated file.
%% 
%% Copyright (C) 2024 by Ch. L. Spiel
%% 
%% This work may be distributed and/or modified under the conditions
%% of the LaTeX Project Public License, either version 1.3 of this
%% license or (at your option) any later version.  The latest version
%% of this license is in
%%     http://www.latex-project.org/lppl.txt
%% and version 1.3 or later is part of all distributions of LaTeX
%% version 2003/12/01 or later.
%% 
%% This work has the LPPL maintenance status `maintained'.
%% 
%% The Current Maintainer of this work is Ch. L. Spiel.
%% 
%% This work consists of the files synthslant.dtx and synthslant.ins
%% and the derived files synthslant.sty, synthslant-gauge.tex,
%% shear-transform.mp, and title.mp.
%% 
%% 
prologues := 3;

string roman_font;
roman_font := "pplr8r";         % URW Palladio L - Roman

string italics_font;
italics_font := "pplri8r";      % URW Palladio L - Italic

string sample_text;
sample_text := "fga";

u := 70;

font_scale := 7;

color light_gray;
light_gray := .8 white;

color original_color, slanted_color;
original_color := light_gray;
slanted_color := black;

pair loc[];
loc[1] := (0, 0);               % roman
loc[2] := (1.9u, 0);            % italics
loc[3] := (2.03u, 1.1u);        % slanted roman
loc[4] := (-.1u, -1.1u);       % upright italics

picture roman;
roman := thelabel.rt(sample_text infont roman_font scaled font_scale, loc[1]);

picture italics;
italics := thelabel.rt(sample_text infont italics_font scaled font_scale, loc[2]);

picture slanted_roman;
slanted_roman := thelabel.rt(sample_text infont roman_font scaled font_scale slanted .2, loc[3]);

picture upright_italics;
upright_italics := thelabel.rt(sample_text infont italics_font scaled font_scale slanted -.2, loc[4]);

beginfig(1);
  draw roman withcolor original_color;
  draw italics withcolor original_color;
  draw slanted_roman withcolor slanted_color;
  draw upright_italics withcolor slanted_color;
endfig;
end