metapost - 带有可选参数的 metapost

Question

我想在 MetaPost 中使用如下可选参数：

vardef mydraw(expr p) text T=
draw scantokens("p "& T);
enddef;

path pat;
pat=origin--(1cm,1cm);
mydraw(pat);
mydraw(pat) "withcolor red";

我测试了以下调用是可以的：

draw scantokens("pat " & "withcolor red");

======更新======

问题是上面的调用mydraw不起作用，如何使它按预期工作？