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
}
|
