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
|
% Croatian Glagolitic
% Round glagolitic, 1994, darko.zubrinic@etf.hr
Pt#:=4/3pt#;
mode_setup;
u#:=.8Pt#; font_quad= 24u#;
font_normal_space= 8u#;
font_normal_stretch= 3u#;
font_normal_shrink= 1u#;
em#:=10Pt#; cap#:=7Pt#;
thin#:=2/3Pt#; thick#:=.9*5/6Pt#;
o#:=1/5Pt#;
define_pixels(em,cap);
define_blacker_pixels(thin,thick);
curve_sidebar:= round 1.1*1/10em;
\input oblv % velika slova
%mode_setup;
%Pt#:=3/4Pt#;
%u#:=3/4u#;
%em#:=3/4em#; cap#:=3/4cap#;
% thick#:=3/4thick#;
%o#:=3/4o#;
%define_pixels(em,cap);
%define_blacker_pixels(thin,thick);
%curve_sidebar:=3/4curve_sidebar;
mode_setup;
Pt#:=3/4Pt#;
u#:=.8Pt#; font_quad= 24u#;
font_normal_space= 8u#;
font_normal_stretch= 3u#;
font_normal_shrink= 1u#;
em#:=10Pt#; cap#:=7Pt#;
thin#:=2/3Pt#; thick#:=.9*5/6Pt#;
o#:=1/5Pt#;
define_pixels(em,cap);
define_blacker_pixels(thin,thick);
input oblm % mala slova
input glz % znakovi
ligtable "c": "c" =: oct"013", "h" =: oct"011";
ligtable "s": "s" =: oct"014"; %umjesto sh
ligtable "z": "z" =: oct"015", "o" kern -.5u#,
"u" kern -.5u#;
%ligtable "d": "d" =: oct"016"; % "d" =: oct"012";
ligtable "y": "a" =: "w", "e" =: "w", "u" =: "5";
ligtable "-": "-" =: oct"173";
%ligtable "e": "i" kern -.5u#;
%ligtable "f": "o" kern -u#, "u" kern -u#, "i" kern -.5u#, "g" kern-.5u#;
%ligtable "i": "f" kern -.5u#;
%ligtable "r": "k" kern -.5u#;
%ligtable "n": "a" kern -.5u#;
%ligtable "j": "a" kern -.5u#;
u#:=4/3u#;
ligtable "C": "c" =: oct"023", "C" =: oct "023", "H" =:
oct"021", "h" =: oct"021";
ligtable "S": "S" =: oct"024", "s" =: oct"024";
ligtable "Z": "Z" =: oct"025", "z"=: oct"025",
"O" kern -.5u#,
"u" kern -.5u#;
%ligtable "D": "d" =: oct"026", "D" =: oct"026"; % "d" =: oct"022";
ligtable "Y": "a" =: "W", "A" =: "W", "u" =: "2", "U" =: "2";
%ligtable "E": "I" kern -.5u#;
%ligtable "F": "O" kern -u#, "U" kern -u#, "I" kern -.5u#, "G" kern-.5u#;
%ligtable "I": "F" kern -.5u#;
%ligtable "R": "K" kern -.5u#;
%ligtable "N": "A" kern -.5u#;
end.
|