summaryrefslogtreecommitdiff
path: root/fonts/mathabx/source/mathastrotestdrv.mf
blob: 1df430d3d4a5c183ff098075575d9d9a861426e9 (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
% mathematical symbols by Anthony Phan.
% file: mathastrotestdrv.mf (test file for astonomical/logical symbols)
% last modification: May 16, 2005.

mode_setup;
math_setup;

% ASTRONOMICAL SYMBOLS

% mathastr.mf

astro_sun       :=hex"00";
astro_mercury   :=hex"01";
astro_venus     :=hex"02";
astro_earth     :=hex"03";
astro_mars      :=hex"04";
astro_jupiter   :=hex"05";
astro_saturn    :=hex"06";
astro_uranus    :=hex"07";
astro_neptune   :=hex"08";
astro_pluto     :=hex"09";
astro_varearth  :=hex"0A";
astro_left_moon :=hex"0B";
astro_right_moon:=hex"0C";
astro_full_moon :=hex"0D";
astro_new_moon  :=hex"0E";
%cemetery        :=hex"0F";
%ligtable cemetery:cemetery kern-2(u#+letter_fit#);

astro_aries     :=hex"10";
astro_taurus    :=hex"11";
astro_gemini    :=hex"12";
astro_cancer      := hex"13";
astro_leo         := hex"14";
astro_virgo       := hex"15";
astro_libra       := hex"16";
astro_scorpio     := hex"17";
astro_sagittarius := hex"18";
astro_capricornus := hex"19";
astro_aquarius    := hex"1A";
astro_pisces      := hex"1B";

extra_endchar := "";
standard_proofing;

extra_endchar := extra_endchar & "; charcode := charcode+code_offset;";

astro:=0/7; code_offset:=0*32; input mathastr;
astro:=1/7; code_offset:=1*32; input mathastr;
astro:=2/7; code_offset:=2*32; input mathastr;
astro:=3/7; code_offset:=3*32; input mathastr;
astro:=4/7; code_offset:=4*32; input mathastr;
astro:=5/7; code_offset:=5*32; input mathastr;
astro:=6/7; code_offset:=6*32; input mathastr;
astro:=7/7; code_offset:=7*32; input mathastr;

% parameters for TFM files.

font_slant=0;
font_x_height=x_height#;
%font_normal_stretch=3u#;
%font_normal_shrink=2u#;
font_quad=18u#+4letter_fit#;
font_extra_space=2u#;
font_normal_space=6u#+2letter_fit#;

end.