summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/tipa/tipatr.mf
blob: b57c662e8efe90d8246a698fc16361c779537af5 (plain)
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
% tipatr.mf -- correction for Times Roman compatible fonts
% Copyright 1996-2003 FUKUI Rei
%
% This program may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.2
% of this license or (at your option) any later version.
% The latest version of this license is in
%   http://www.latex-project.org/lppl.txt
% and version 1.2 or later is part of all distributions of LaTeX 
% version 1999/12/01 or later.
%
% This program consists of all files listed in Manifest.txt.
%
% Version 1.2 2003/01/01
%

def bulb(suffix $,$$,$$$) =
 z$$$r=z$$r;
 numeric theta; theta=angle(0,y$r-y$$r);
 filldraw z$r{x$$r-x$r,0}...{0,y$$r-y$r}z$$r...{dir theta}z$$$l...
   {x$r-x$$r,0}z$l--cycle;
 enddef;

def bulbvar(suffix $,$$,$$$) =
 z$$$r=z$$r;
 numeric theta; theta=angle(x$r-x$$r,0);
 filldraw z$r{0,y$$r-y$r}...{x$$r-x$r,0}z$$r...{dir theta}z$$$l...
   {0,y$r-y$$r}z$l--cycle;
 enddef;

endinput