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
|
