-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathpdf_out-fonts.ads
32 lines (22 loc) · 1.08 KB
/
pdf_out-fonts.ads
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
private package PDF_Out.Fonts is
function Standard_Font_Name (f : Standard_Font_Type) return String;
-- Font dictionary name within a page
--
function Font_Dictionary_Name (font_name : String) return String;
-- Font dictionary name within a page, for standard fonts
-- Example: /Ada_PDF_Std_Font_Courier-Oblique
--
function Standard_Font_Dictionary_Name (f : Standard_Font_Type) return String;
-- Output font dictionary (resource for page just finished)
--
procedure Font_Dictionary (pdf : in out PDF_Out_Stream'Class);
function Current_Font_Name (pdf : PDF_Out_Stream'Class) return String;
function Current_Font_Dictionary_Name (pdf : PDF_Out_Stream'Class) return String;
---------------------------------
-- Metrics of standard fonts --
---------------------------------
function Width (f : Standard_Font_Type; size : Real; latin_1_text : String) return Real;
-- Vertical offset from origin to bottom of a glyph.
--
function Vertical_Offset (f : Standard_Font_Type; size : Real) return Real;
end PDF_Out.Fonts;