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
47
|
verbatimtex
\documentclass{article}
\usepackage{palatino}
\usepackage{concmath}
\usepackage{ccfonts}
\begin{document}
etex
beginfig(7);
path bobine, bobina, Right, Up, Left, Down;
numeric scal, outeray, inneray, rotange, rotanga, tens, dist;
pen grossa;
scal = 15;
inneray = 0.5;
outeray = 2.1;
rotange = 0;
rotanga = 12;
tens = 3.6;
grossa = pencircle scaled 1pt;
dist = scal*0.35*(inneray+outeray);
Right = (inneray*scal*right)--(outeray*scal*right);
Up = (outeray*scal*up)--(inneray*scal*up);
Left = (inneray*scal*left)--(outeray*scal*left);
Down = (outeray*scal*down)--(inneray*scal*down);
bobine = (Right..tension tens..Up..Left..tension tens..Down..cycle)
rotated rotange;
bobina = bobine rotated rotanga;
draw Right;
draw Up;
draw Left;
draw Down;
draw fullcircle scaled (2*inneray*scal);
draw fullcircle scaled (2*outeray*scal);
% draw bobine dashed evenly withpen grossa;
draw bobina withpen grossa;
z1 = dist*(right+up);
z2 = z1 rotated 90;
z3 = z1 rotated 180;
z4 = z1 rotated -90;
label( btex N etex, z1 );
label( btex S etex, z2 );
label( btex N etex, z3 );
label( btex S etex, z4 );
endfig;
verbatimtex
\end{document}
etex
end.
|