blob: 35f4303d3ddeb42e5989aa4c0b9412541c0e6405 (
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
%
% operatormp -- Seitz-Kull-Operator in Metapost
%
% (c) 2016 Prof Dr Andreas Mueller, Hochschule Rapperswil
%
verbatimtex
\documentclass{book}
\usepackage{times}
\usepackage{amsmath}
\usepackage{amssymb}
\usepackage{amsfonts}
\usepackage{txfonts}
\begin{document}
etex;
beginfig(1)
label(btex $A$ etex, (0,0));
path circle;
numeric r;
r := 4.7;
numeric b;
b := 0.45;
circle := r * (cosd(40), sind(40));
for alpha = 41 step 1 until 370:
circle := circle--(r * (cosd(alpha), sind(alpha)));
endfor;
path head;
head := (0,0)--(5,-3)--(0,6)--(-5,-3)--cycle;
z1 = (-0.3,-0.4);
pickup pencircle scaled b;
draw circle shifted z1;
fill head scaled 0.2 rotated 10 shifted (r,0) rotated 10 shifted z1;
endfig;
end
|
