\startMPpage
    property p[] ;
    p1 = properties(withcolor blue) ;
    p2 = properties(withcolor red) ;

    % fill fullcircle scaled 2cm withproperties p1 ;

    picture pic ;
    pic := textext("one") ;
    draw pic withproperties p1 ;
    draw pic shifted (1cm,0) withproperties p2 ;

    drawoptions(withcolor red);
    pic := textext("one") shifted (1cm,0) ;
    drawoptions();
    draw pic ;

    drawoptions(withcolor green);
    draw textext("one") shifted (2cm,0) ;
    drawoptions();

\stopMPpage
