summaryrefslogtreecommitdiff
path: root/macros/mtex/documentation/mdocpic2.tex
blob: b7b4130e01cf525929257af65522066ec625b1bb (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

\centerline{
 \beginpicture
 \setcoordinatesystem units <1mm,1mm>
 \setlinear
%
 \putrule from 0 00 to 40 00
 \putrule from 0 04 to 40 04
 \putrule from 0 08 to 40 08
 \putrule from 0 12 to 40 12
 \putrule from 0 16 to 40 16
 \setsolid
 \put {$\bigcirc$} [rt] at 25 8  %Notenkopf rechts
 \putrule from 25 6 to 25 20     %Notenhals rechts
 \putrule from 9 -4 to 16 -4     %kurze Notenlinie
 \put {$\bigcirc$} [rt] at 15 -4 %Notenkopf links
 \putrule from 15 -6 to 15 8     %Notenhals links
 \setdots <1mm>
 \putrule from 15 8 to 15 14     %Notenhals Verlaengerung links
 \setsolid
 \putrule from 15 -12 to 25 -12  % Beschriftung unten
 \putrule from 15 -11 to 15 -13
 \putrule from 25 -11 to 25 -13
 \put {$h$} [t] at 20 -13
 \putrule from -4 14 to -4 20    % Beschriftung links
 \putrule from -3 14 to -5 14
 \putrule from -3 20 to -5 20
 \put {$\epsilon\cdot h$} [rB] at -5 15
 \setdashes
 \putrule from -2 20 to 25 20   %hilfslinien
 \putrule from -2 14 to 15 14
 \setdots
 \plot 10 2  30 26 /             % Balken-Gerade gepunktet
 \setdots <0.5mm>
 \plot 15 14  25 20 /            % Balken
 \plot 15 13  25 19 /
 \plot 15 12  25 18 /
 \circulararc 30 degrees from 17 20 center at 25 20  % Winkel
 \setsolid
 \putrule from 19 18 to 19 22
 \put {$\alpha$} [b] at 19 23
%
 \endpicture
}