You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
938 B
31 lines
938 B
% 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
|
|
|