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
|
%% @metafontfile{
%% filename="amsya.mf",
%% version="2.2",
%% date="04-JAN-1995",
%% filetype="Metafont: driver",
%% copyright="Copyright (C) American Mathematical Society,
%% all rights reserved. Copying of this file is
%% authorized only if either:
%% (1) you make absolutely no changes to your copy
%% including name; OR
%% (2) if you do make changes, you first rename it to some
%% other name.",
%% author="American Mathematical Society",
%% address="American Mathematical Society,
%% Technical Support, Electronic Products and Services,
%% P. O. Box 6248,
%% Providence, RI 02940,
%% USA",
%% telephone="401-455-4080 or (in the USA) 800-321-4AMS",
%% email="Internet: Tech-Support@Math.AMS.org",
%% codetable="ISO/ASCII",
%% checksum = "31197 62 322 2578"
%% keywords="amsfonts, tex, metafont , AMSSymbols ",
%% abstract="This is the driver file for use with
%% MSAM, the first extra symbol font in AMSFonts 2.2."
%% docstring = "The checksum field above contains a CRC-16
%% checksum as the first value, followed by the
%% equivalent of the standard UNIX wc (word
%% count) utility output of lines, words, and
%% characters. This is produced by Robert
%% Solovay's checksum utility.",
%% }
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
font_coding_scheme:="TeX math symbols";
mode_setup; font_setup;
% autorounding:=hair;
% input calu; % upper case calligraphic alphabet
autorounding:=0;
font_slant slant; font_x_height x_height#;
font_quad 18u# if not monospace:+4letter_fit# fi;
% (The spacing is zero so that \TeX\ will always add the italic correction.)
% (The calling file should give the other math symbol font parameters.)
slant:=mono_charic#:=0; % the remaining characters will not be slanted
currenttransform:=identity yscaled aspect_ratio scaled granularity;
input asymbols; % the symbols
%if not monospace:
% skewchar=oct"060"; skew#=.5u#;
% ligtable "I": "T": "V": skewchar kern skew#;
% ligtable "K": skewchar kern 2skew#;
% ligtable "D": "N": "P": "R": "U": "W": "Y": skewchar kern 3skew#;
% ligtable "E": "F": "G": "H": "O": "Q": skewchar kern 4skew#;
% ligtable "B": "C": "L": "M": "S": "X": "Z": skewchar kern 5skew#;
% ligtable "J": skewchar kern 6skew#;
% ligtable "A": skewchar kern 7skew#;
%fi;
bye.
|
