Changeset 845fac6 in git


Ignore:
Timestamp:
15/06/10 05:08:52 (9 years ago)
Author:
Olly Betts <olly@…>
Branches:
add-show-splays, line_contents, master, stereo, svn/github/master, svn/origin/master, svn/survex-1_1, svn/tags/1.1.14, svn/tags/1.1.15, svn/tags/1.1.16, svn/tags/1.2.0, svn/tags/1.2.1, svn/tags/1.2.2, svn/tags/1.2.3, svn/tags/1.2.4, svn/tags/1.2.5, svn/tags/v1_1_13, svn/trunk, travis-osx
Children:
1dafcb8
Parents:
fb5791d
Message:

lib/afm2txf.pl: Clean up trailing whitespace.

git-svn-id: file:///home/survex-svn/survex/branches/survex-1_1@3406 4b37db11-9a0c-4f06-9ece-9ab7cdaee568

Files:
2 edited

Legend:

Unmodified
Added
Removed
  • ChangeLog

    rfb5791d r845fac6  
     1Tue Jun 15 04:08:34 GMT 2010  Olly Betts <olly@survex.com>
     2
     3        * lib/afm2txf.pl: Clean up trailing whitespace.
     4
    15Tue Jun 15 04:02:40 GMT 2010  Olly Betts <olly@survex.com>
    26
  • lib/afm2txf.pl

    rfb5791d r845fac6  
    9595    my ($x, $y) = (-$left, -$bottom);
    9696    my ($w, $h) = ($right-$left, $top-$bottom);
    97    
     97
    9898    $metrics{$name} = [$nomwid, $x, $y, $w, $h];
    9999}
     
    107107foreach my $c (keys %CHARS) {
    108108    if(!defined $metrics{$c}) {
    109         print STDERR "% WARNING: no metrics for char $c.  Skipping.\n"; 
     109        print STDERR "% WARNING: no metrics for char $c.  Skipping.\n";
    110110        next;
    111111    }
     
    226226
    227227    my @PS = ();
    228    
     228
    229229    # The canonical "point size" number, in texture space
    230230    $LINEHGT = ($rowhgt - 2*$PADDING/$TEXSIZ) / $maxhgt;
     
    233233    # the bottom left of the "page".
    234234    push @PS, "72 72 scale";
    235    
     235
    236236    # Fill the square with black
    237237    push @PS, "0 setgray";
     
    243243    # Draw in white
    244244    push @PS, "1 setgray";
    245    
     245
    246246    # Generate our PUSH @PS, font
    247247    push @PS, "/$FONT findfont $LINEHGT scalefont setfont";
    248    
     248
    249249    my $x = $PADDING/$TEXSIZ;
    250250    my $y = 1 - $rowhgt + $PADDING/$TEXSIZ;
     
    255255
    256256        my $id = sprintf "%2.2x", $CHARS{$c};
    257        
     257
    258258        # No space?
    259259        my $w = $m->[3]*$LINEHGT;
     
    269269        my $vx = $x + $m->[1]*$LINEHGT;
    270270        my $vy = $y + $m->[2]*$LINEHGT;
    271        
     271
    272272        push @PS, "$vx $vy moveto";
    273273        push @PS, "<$id> show";
    274        
     274
    275275        # Next box...
    276276        $x += $w + 2*$PADDING/$TEXSIZ;
    277277    }
    278    
     278
    279279    push @PS, "showpage";
    280280
    281281    return \@PS;
    282282}
    283 
Note: See TracChangeset for help on using the changeset viewer.