summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/fis3prex7.mp
blob: 7fb22aad2237a55a66b6cdba62bc8a85842ff2be (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
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.