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
|
% Blackboard bold ligatures, Alan Jeffrey, 13--18 Dec 1989.
%
% Provides --, ---, `` and ''.
% These are put in positions
%
% -- oct "173"
% --- oct "175"
% `` oct "176"
% '' oct "042"
ligtable "-": "-" =: oct "173";
ligtable oct "173": "-" =: oct "175";
ligtable "`": "`" =: oct "176";
ligtable "'": "'" =: oct "042";
% -------------------------------------------------------------------
bbchar
(oct "173")
(smallgap#, 0.5bigcap#, smallgap#)
(aTop#, aBottom#);
"En dash `--'";
% The line.
draw
dashMiddle~Left
-- dashMiddle~Right
endchar;
% -------------------------------------------------------------------
bbchar
(oct "175")
(smallgap#, bigcap#, smallgap#)
(aTop#, aBottom#);
"Em dash `---'";
% The line.
draw
dashMiddle~Left
-- dashMiddle~Right
endchar;
% -------------------------------------------------------------------
bbchar
(oct "176")
(medgap#, 2tiny# + space#, medgap#)
(bTop#, bTop# - tiny# - comma_depth#);
"Opening quotes ```'";
% The left quote.
draw
splodgel above rightof Bottom~Left
.. farrightof Top~Left;
% The right quote.
draw
splodgel above leftof Bottom~Right
.. Top~Right
endchar;
% -------------------------------------------------------------------
bbchar
(oct "042")
(medgap#, 2tiny# + space#, medgap#)
(bTop#, bTop# - tiny# - comma_depth#);
"Closing quotes `'''";
% The left quote
draw
splodger below rightof Top~Left
.. Bottom~Left;
% The right quote
draw
splodger below leftof Top~Right
.. farleftof Bottom~Right
endchar;
% -------------------------------------------------------------------
|
