% --- 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;