File: pswidth.ph

package info (click to toggle)
chromium 139.0.7258.127-2
  • links: PTS, VCS
  • area: main
  • in suites: forky
  • size: 6,122,156 kB
  • sloc: cpp: 35,100,771; ansic: 7,163,530; javascript: 4,103,002; python: 1,436,920; asm: 946,517; xml: 746,709; pascal: 187,653; perl: 88,691; sh: 88,436; objc: 79,953; sql: 51,488; cs: 44,583; fortran: 24,137; makefile: 22,147; tcl: 15,277; php: 13,980; yacc: 8,984; ruby: 7,485; awk: 3,720; lisp: 3,096; lex: 1,327; ada: 727; jsp: 228; sed: 36
file content (25 lines) | stat: -rw-r--r-- 532 bytes parent folder | download | duplicates (23) 
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
 
#!/usr/bin/perl
#
# Get the width of a PostScript string in PostScript points (1/72")
# given a set of font metrics and an encoding vector.
#
sub ps_width($$$) {
    my($str, $met, $encoding) = @_;
    my($w) = 0;
    my($i,$c,$p);

    $l = length($str);
    undef $p;
    for ( $i = 0 ; $i < $l ; $i++ ) {
	$c = substr($str,$i,1);
	$w += $$met{widths}{$encoding->[ord($c)]};
	# The standard PostScript "show" operator doesn't do kerning.
	# $w += $$met{kern}{$p.$c};
	$p = $c;
    }
    
    return $w / $met->{scale};
}

# OK
1;