-
Notifications
You must be signed in to change notification settings - Fork 5
/
make_double.ff
104 lines (93 loc) · 2.91 KB
/
make_double.ff
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
100
101
102
103
104
/*
* Copyright (C) 2005 Alexey Kryukov
* Copyright (C) 2005, 2009 Andrey V. Panov
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, see <http://www.gnu.org/licenses/>.
*/
first_glyph = $1;
second_glyph = $2;
final_glyph = $3;
Select (first_glyph);
first_width = GlyphInfo ("Width");
first_name = GlyphInfo("Name")
#first_lbearing = GlyphInfo ("LBearing");
first_kern = GlyphInfo ("Kern", second_glyph);
CopyReference ();
# Print(first_glyph,",",second_glyph,":",first_kern)
# features = GetPosSub("*")
# size_f = SizeOf(features)
# i = 0
# while (i < size_f)
# if (features[i][1] == "Pair" && features[i][2] == second_glyph)
# Print(GlyphInfo("Name"),",",features[i])
# #AddPosSub(features[i][0],final_name,features[i][3],features[i][4],\
# #features[i][5],features[i][6],features[i][7],features[i][8],features[i][9],\
# #features[i][10])
# endif
# i++
# endloop
Select (final_glyph);
Paste ();
Select (second_glyph);
second_width = GlyphInfo ("Width");
second_rbearing = GlyphInfo ("RBearing");
second_name = GlyphInfo("Name")
CopyReference ();
Select (final_glyph);
final_name = GlyphInfo("Name")
PasteWithOffset (first_width + first_kern, 0);
#SetLBearing (first_lbearing);
SetRBearing (second_rbearing);
Select(second_glyph)
features = GetPosSub("*")
size_f = SizeOf(features)
#Print(GlyphInfo("Name"),",",size_f)#,features)
Select(final_glyph)
i = 0
while (i < size_f)
if (features[i][1] == "Pair")
AddPosSub(features[i][0],features[i][2],features[i][3],features[i][4],\
features[i][5],features[i][6],features[i][7],features[i][8],features[i][9],\
features[i][10])
endif
i++
endloop
SelectWorthOutputting()
foreach
kern = GlyphInfo ("Kern", first_name)
if (kern != 0)
SetKern(second_name,kern)
endif
# features = GetPosSub("*")
# size_f = SizeOf(features)
# i = 0
# while (i < size_f)
# if (features[i][1] == "Pair" && features[i][2] == first_name)
# #Print(GlyphInfo("Name"),",",features[i])
# AddPosSub(features[i][0],second_name,features[i][3],features[i][4],\
# features[i][5],features[i][6],features[i][7],features[i][8],features[i][9],\
# features[i][10])
# endif
# i++
# endloop
endloop
Select (final_glyph);
#Select (first_glyph);
#CopyGlyphFeatures ("_krn");
#Select (final_glyph);
#PasteInto ();
#Select (second_glyph);
#CopyGlyphFeatures ("kern");
#Select (final_glyph);
#PasteInto ();