1
% tipatr.mf -- correction for Times Roman compatible fonts
2
% Copyright 1996-2003 FUKUI Rei
4
% This program may be distributed and/or modified under the
5
% conditions of the LaTeX Project Public License, either version 1.2
6
% of this license or (at your option) any later version.
7
% The latest version of this license is in
8
% http://www.latex-project.org/lppl.txt
9
% and version 1.2 or later is part of all distributions of LaTeX
10
% version 1999/12/01 or later.
12
% This program consists of all files listed in Manifest.txt.
14
% Version 1.2 2003/01/01
17
def bulb(suffix $,$$,$$$) =
19
numeric theta; theta=angle(0,y$r-y$$r);
20
filldraw z$r{x$$r-x$r,0}...{0,y$$r-y$r}z$$r...{dir theta}z$$$l...
21
{x$r-x$$r,0}z$l--cycle;
24
def bulbvar(suffix $,$$,$$$) =
26
numeric theta; theta=angle(x$r-x$$r,0);
27
filldraw z$r{0,y$$r-y$r}...{x$$r-x$r,0}z$$r...{dir theta}z$$$l...
28
{0,y$r-y$$r}z$l--cycle;