blob: 1997538900f81380e94b484a6bf3562b373048a1 (
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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
% ASTROSYM.MF : AstroSym (Version 2.20, Aug. 10, 2002) - file 2 of 8
% Peter Schmitt eMail: Peter.Schmitt@univie.ac.at
% Institute of Mathematics, University of Vienna Vienna, Austria
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
mode_setup;
font_size = .4cm#; % scaling factor U = diameter of sun symbol
font_identifier = "AstroSym";
font_coding_scheme = "special purpose: astronomical symbols";
% tracingtitles:=1;
%%%%%%%%%%%
% font size ( U = diameter of sun symbol )
%%%%%%%%%%%
U# := .4cm#;
u# := (1/64)*U#;
define_pixels(U,u);
input astrosym.mac; % macro file
%%%%%%%%%%%%%%%%%%%%%%%%%
% version 1: calligraphic
%%%%%%%%%%%%%%%%%%%%%%%%%
O := 0; % offset value for character position
P# := 4u#; % width of thick strokes
p# := .5u#; % width of thin strokes
define_pixels(P,p);
corrections;
input astrosym.cmn; % symbols with common code definition
input astrosym.cal; % symbols with special code
%%%%%%%%%%%%%%%%%%%%%%%%%%%
% version 2: uniform: thick
%%%%%%%%%%%%%%%%%%%%%%%%%%%
O:=100; % offset value for character position
P# := 4u#; % widths of thick and thin strokes set equal
p# := 4u#;
define_pixels (P,p);
corrections;
let arrow = Arrow; % different arrow shape
let Pen = PEN; % all pens are equal
let SPEN = PEN;
let DPEN = PEN; % added aug02
let RPEN = PEN;
% let RLine = Line; % more efficient
input astrosym.cmn; % symbols with common code definition
input astrosym.uni; % symbols with special code
%%%%%%%%%%%%%%%%%%%%%%%%%%
% version 2: uniform: thin
%%%%%%%%%%%%%%%%%%%%%%%%%%
O:=200; % offset value value for character position
% reset ( in .uni ) to 122
% for character numbers > 55
P# := 2u#; % widths of thick and thin strokes set equal
p# := 2u#;
define_pixels (P,p);
corrections;
% repeated for the sake of completeness
let arrow = Arrow; % different arrow shape
let Pen = PEN; % all pens are equal
let SPEN = PEN;
let DPEN = PEN; % added aug02
let RPEN = PEN;
input astrosym.cmn; % symbols with common code definition
input astrosym.uni; % symbols with special code
%%%%%%%%%%%%%%%%%
% extra symbols %
%%%%%%%%%%%%%%%%%
O := 90; % offset value for character position
P# := 2u#; % width of thick strokes
p# := 1u#; % width of thin strokes
define_pixels(P,p);
corrections;
input astrosym.xtr; % symbols with only one version
%%%%%%%%
bye
%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% end of ASTROSYM.MF %%%
|
