1 /* Begin include file font.incl.pl1 */
 2 
 3 dcl  font_ptr ptr;
 4 dcl  font_version_1 char (8) aligned static options (constant) init ("font_v01");
 5 dcl  1 font aligned based (font_ptr),
 6        2 version char (8),
 7        2 area_size fixed bin (19),
 8        2 font_data,
 9          3 height fixed bin,
10          3 base_line fixed bin,
11          3 leading fixed bin,
12          3 max_char fixed bin (9),
13        2 character (0:511),
14          3 (lkern, rkern, tkern) fixed bin,                 /* left, right, and bottom kern */
15          3 (width, height) fixed bin,                       /* size of the raster */
16          3 raster_offset offset (font.area),
17          3 pad (2) fixed bin (35),
18        2 area area (0 refer (font.area_size));
19 
20 dcl  font_rasterp ptr;
21 dcl  (raster_height, raster_width) fixed bin;
22 dcl  font_raster (raster_height, raster_width) bit (1) unaligned based (font_rasterp);
23 
24 /* End include file font.incl.pl1 */