summaryrefslogtreecommitdiff
path: root/info/examples/ltt/simple.mp
blob: 8f36a252a157ec917f733dcf9b1d566d55c8e4f4 (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
beginfig(1);
u:=5mm;				% Einheitslänge

% Polygon, direkte Punktelisten
draw (6u,0)--(8u,0)--(8u,4u);	% Linie
draw (8u,4u)..(6u,4u)..(6u,0);	% Kurve

% Rechteck und Quadrat, Angabe von Pfadvariablen
path q;				% Variable Typ Pfad
q := unitsquare;   	        % Einheitsquadrat
fill q xscaled 4u yscaled 8u withcolor .8white;
draw q scaled 3u shifted (u,u);

% grauer Kreisring
path p[];	% Array vom Typ path
p1 := (3u,0)..(0,3u)..(-3u,0)..(0,-3u)..cycle;
p2 := (2u,0)..(0,2u)..(-2u,0)..(0,-2u)..cycle;
fill p1 shifted (15u,3u) withcolor 0.6white;	% graue Kreisscheibe
unfill p2 shifted(15u,3u);			% Loch in der Mitte

% Beschriftung
z1=(10u,2u);	% Startpunkte  
z2=(10u,6u);
drawarrow z1--(8u,u);
drawarrow z2--(6u,4u);
label.rt("Linie",z1);
label.rt("Kurve",z2);

endfig;
end;