2016-09-12 08:18:00

1 files changed, 14 insertions, 0 deletions

diff --git a/metapost/context/base/mpiv/mp-idea.mpiv b/metapost/context/base/mpiv/mp-idea.mpiv
index 462d97553..d417ab51f 100644
--- a/metapost/context/base/mpiv/mp-idea.mpiv
+++ b/metapost/context/base/mpiv/mp-idea.mpiv
@@ -28,3 +28,17 @@ vardef somecolor = (1,1,0,0) enddef ;
 
 fill OverlayBox withcolor (rcomponent somecolor,gcomponent somecolor,bcomponent somecolor) ;
 fill OverlayBox withcolor (ccomponent somecolor,mcomponent somecolor,ycomponent somecolor,bcomponent somecolor) ;
+
+% def newcolor     text v = forsuffixes i=v : save i ; color     i ; endfor ; enddef ;
+% def newnumeric   text v = forsuffixes i=v : save i ; numeric   i ; endfor ; enddef ;
+% def newboolean   text v = forsuffixes i=v : save i ; boolean   i ; endfor ; enddef ;
+% def newtransform text v = forsuffixes i=v : save i ; transform i ; endfor ; enddef ;
+% def newpath      text v = forsuffixes i=v : save i ; path      i ; endfor ; enddef ;
+% def newpicture   text v = forsuffixes i=v : save i ; picture   i ; endfor ; enddef ;
+% def newstring    text v = forsuffixes i=v : save i ; string    i ; endfor ; enddef ;
+
+% width := 10 ;
+% beginfig(1) ;
+%   newpath width, height ; width := origin -- cycle ;
+% endfig ;
+% width := 10 ;