summaryrefslogtreecommitdiff
path: root/fonts/shuffle/shuffle.mf
blob: ab2010b80443e03c2d5ca1e126faf4a7366b3530 (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
% This is shuffle.mf for creating a shuffle product symbol in the
% same format as the CM symbols.  It is based on the cmsy font.
% Written by Julian Gilbey <J.D.Gilbey@qmul.ac.uk>
% This file is in the public domain

font_coding_scheme:="TeX math symbols";
mode_setup; font_setup;

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;

cmchar "Shuffle product sign";
beginchar(oct"001",16u#,.7asc_height#,0);
adjust_fit(0,0); pickup rule.nib;
lft x1=hround 1.1u; x2=x1; x4=x5=w-x1;
x3=good.x 0.5[x2,x4]; x6=x3;
y1=good.y h+o; bot y2=0; y4=y2; y5=y1;
y3=y2; y6=y1;
draw z1---z2---z4---z5;  % stems and bar
draw z3--z6; % middle bar
labels(1,2,3,4,5,6); endchar;

cmchar "Complete shuffle product sign";
beginchar(oct"002",16u#,asc_height#,0);
adjust_fit(0,0); pickup rule.nib;
lft x1=hround 1.1u; x2=x1; x4=x5=w-x1;
x3=good.x 0.5[x2,x4]; x6=x3;
y1=good.y 7/10h+o; bot y2=0; y4=y2; y5=y1;
y3=y2; y6=y1;
x7=good.x 0.05[x2,x4]; x8=w-x7;
y7=good.y h; y8=y7;
draw z1---z2---z4---z5;  % stems and bar
draw z3--z6; % middle bar
draw z7--z8; % overline
labels(1,2,3,4,5,6,7,8); endchar;

bye.