diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-17 21:41:51 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-17 21:41:51 +0000 |
commit | 487ca4806cc046076293cf6cc5fbba0db282bac7 (patch) | |
tree | 847b412ab5158dd7bdd7ed7e5a4cc3fbca94be32 /Build/source/texk/web2c/omegadir/omchar.ch | |
parent | a3d3111bfe26b8e5f5bc6049dfb2a4ca2edc7881 (diff) |
texk 1
git-svn-id: svn://tug.org/texlive/trunk@1485 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/omegadir/omchar.ch')
-rw-r--r-- | Build/source/texk/web2c/omegadir/omchar.ch | 84 |
1 files changed, 84 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/omegadir/omchar.ch b/Build/source/texk/web2c/omegadir/omchar.ch new file mode 100644 index 00000000000..bb2b8b19567 --- /dev/null +++ b/Build/source/texk/web2c/omegadir/omchar.ch @@ -0,0 +1,84 @@ +% omchar.ch: Primitives to access the components of font metric files. +% +% This file is part of Omega, +% which is based on the web2c distribution of TeX, +% +% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous +% +% Omega 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 2 of the License, or +% (at your option) any later version. +% +% Omega 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 Omega; if not, write to the Free Software Foundation, Inc., +% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA. +% +%--------------------------------------- +@x [26] m.416 l.8407 - Omega char dimensions +primitive("dp",set_box_dimen,depth_offset); +@!@:dp_}{\.{\\dp} primitive@> +@y +primitive("dp",set_box_dimen,depth_offset); +@!@:dp_}{\.{\\dp} primitive@> +primitive("charwd",set_box_dimen,(width_offset+3)); +@!@:charwd_}{\.{\\charwd} primitive@> +primitive("charht",set_box_dimen,(height_offset+3)); +@!@:charht_}{\.{\\charht} primitive@> +primitive("chardp",set_box_dimen,(depth_offset+3)); +@!@:chardp_}{\.{\\chardp} primitive@> +primitive("charit",set_box_dimen,(depth_offset+4)); +@!@:charit_}{\.{\\charit} primitive@> +@z +%--------------------------------------- +@x [26] m.416 l.8425 - Omega char dimensions +set_box_dimen: if chr_code=width_offset then print_esc("wd") +else if chr_code=height_offset then print_esc("ht") +else print_esc("dp"); +@y +set_box_dimen: if chr_code=width_offset then print_esc("wd") +else if chr_code=height_offset then print_esc("ht") +else if chr_code=depth_offset then print_esc("dp") +else if chr_code=(width_offset+3) then print_esc("charwd") +else if chr_code=(height_offset+3) then print_esc("charht") +else if chr_code=(depth_offset+3) then print_esc("chardp") +else print_esc("charit"); +@z +%--------------------------------------- +@x [26] m.419 l.8461 - Omega char dimensions +begin scan_eight_bit_int; +if box(cur_val)=null then cur_val:=0 @+else cur_val:=mem[box(cur_val)+m].sc; +cur_val_level:=dimen_val; +end +@y +if m<=3 then +begin + scan_eight_bit_int; + if box(cur_val)=null then cur_val:=0 @+else + cur_val:=mem[box(cur_val)+m].sc; + cur_val_level:=dimen_val; +end +else +begin + scan_char_num; + if m=(width_offset+3) then begin + cur_val:= char_width(main_f)(char_info(main_f)(cur_val)) + end + else if m=(height_offset+3) then begin + cur_val:= char_height(main_f)(height_depth(char_info(main_f)(cur_val))) + end + else if m=(depth_offset+3) then begin + cur_val:= char_depth(main_f)(height_depth(char_info(main_f)(cur_val))) + end + else begin + cur_val:= char_italic(main_f)(char_info(main_f)(cur_val)); + end; + cur_val_level:=dimen_val; +end +@z +%--------------------------------------- |