<html><head><meta http-equiv="Content-Type" content="text/html charset=us-ascii"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;"><div><font size="4">Try this as a starting point. You should be able to introduce some randomization and rounded corners.</font></div><div><font size="4"><br></font></div><div><font size="4"> def a_tiless (expr p) =</font></div><div><font size="4"> T:=identity;</font></div><div><font size="4"> pickup PenC;</font></div><div><font size="4"> path q, qq; q = bbox p;</font></div><div><font size="4"> picture tmp_pic; </font></div><div><font size="4"> uu := max(u, (xpart urcorner q - xpart llcorner q)/100, (ypart urcorner q - ypart llcorner q)/100);</font></div><div><font size="4"> tmp_pic := image(</font></div><div><font size="4"> for i = xpart llcorner q step 2uu until xpart urcorner q:</font></div><div><font size="4"> for j = ypart llcorner q step 2uu until ypart urcorner q:</font></div><div><font size="4"> qq := punked (((-.5uu,-.5uu)--(.5uu,-.5uu)--(.5uu,.5uu)--(-.5uu,.5uu)--cycle) </font></div><div><font size="4"><span class="Apple-tab-span" style="white-space:pre"> </span> )</font></div><div><font size="4"> shifted ((.6i,.6j) );</font></div><div><font size="4"><span class="Apple-tab-span" style="white-space:pre"> </span>if xpart (p intersectiontimes qq) < 0:</font></div><div><font size="4"><span class="Apple-tab-span" style="white-space:pre"> </span> thclean qq;</font></div><div><font size="4"><span class="Apple-tab-span" style="white-space:pre"> </span> thdraw qq;</font></div><div><font size="4"><span class="Apple-tab-span" style="white-space:pre"> </span>fi;</font></div><div><font size="4"> endfor; </font></div><div><font size="4"> endfor;</font></div><div><font size="4"> );</font></div><div><font size="4"> clip tmp_pic to p;</font></div><div><font size="4"> drawoptions();</font></div><div><font size="4"> draw tmp_pic;</font></div><div><font size="4">enddef;</font></div><div><br></div><div>
<div style="color: rgb(0, 0, 0); font-family: Helvetica; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: -webkit-auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-text-stroke-width: 0px; word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;">Dave Clucas<br><a href="http://daveclucas.com">daveclucas.com</a><br><a href="http://mycaves.org">mycaves.org</a>.<br><a href="mailto:daveclucas@icloud.com">daveclucas@icloud.com</a><br><br><br><br></div>
</div>
<br></body></html>