summaryrefslogtreecommitdiff
path: root/info/examples/lgc2/3-5-80.mp
blob: 2ce02619386e8abb3ca0f138b7fdce4a2c5b1a3b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
% --- start of displayed preamble in the book ---
input metaobj
% --- end of displayed preamble in the book ---
defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
t:=_T(new_Circle(btex foo etex))
     (_T(new_HFan_(1cm,0)
            ("filled(true)",
             "fillcolor(blue)",
             "fanlinearc(1mm)"
            )
        )
        (TC,new_HFan_(1cm,0)
              ("fanlinestyle(dashed evenly)")));
Obj(t).c=origin;
draw_Obj(t);
endfig;
end;