<html><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">I took a look at Bruce's code, in particular <span class="Apple-style-span" style="font-family: Verdana, 'Lucida Grande', Lucida, Helvetica, Arial, sans-serif; font-size: 12px; line-height: 18px; "><strong>Code to redefine area and point water symbols</strong><br></span><div><div>.</div><div>This looks like something I'd like to use but how and where do I define the colour eg. </div><div><br></div><span class="Apple-style-span" style="font-family: Verdana, 'Lucida Grande', Lucida, Helvetica, Arial, sans-serif; font-size: 12px; line-height: 18px; "><pre class="code" style="padding-top: 0.5em; padding-right: 0.5em; padding-bottom: 0.5em; padding-left: 0.5em; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; border-top-style: dashed; border-right-style: dashed; border-bottom-style: dashed; border-left-style: dashed; border-top-color: rgb(67, 105, 118); border-right-color: rgb(67, 105, 118); border-bottom-color: rgb(67, 105, 118); border-left-color: rgb(67, 105, 118); color: rgb(0, 0, 0); background-color: rgb(247, 249, 250); overflow-x: auto; overflow-y: auto; line-height: 16px; width: 721px; "> if known colour_water_bg: thfill Path withcolor colour_water_bg; else: thfill Path withcolor white; fi; <br></pre></span><div><br></div><div><br></div><div><br></div><div>On 16 Nov 2012, at 11:00, <a href="mailto:therion-request@speleo.sk">therion-request@speleo.sk</a> wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div>Send Therion mailing list submissions to<br><span class="Apple-tab-span" style="white-space:pre"> </span><a href="mailto:therion@speleo.sk">therion@speleo.sk</a><br><br>To subscribe or unsubscribe via the World Wide Web, visit<br><span class="Apple-tab-span" style="white-space:pre"> </span>http://mailman.speleo.sk/mailman/listinfo/therion<br>or, via email, send a message with subject or body 'help' to<br><span class="Apple-tab-span" style="white-space:pre"> </span>therion-request@speleo.sk<br><br>You can reach the person managing the list at<br><span class="Apple-tab-span" style="white-space:pre"> </span>therion-owner@speleo.sk<br><br>When replying, please edit your Subject line so it is more specific<br>than "Re: Contents of Therion digest..."<br><br><br>Today's Topics:<br><br> 1. Metapost modifications (Dave Clucas)<br> 2. Re: Metapost modifications (Footleg)<br> 3. Re: Metapost modifications (Dave Clucas)<br><br><br>----------------------------------------------------------------------<br><br>Message: 1<br>Date: Fri, 16 Nov 2012 09:28:17 +0000<br>From: Dave Clucas <dave@daveclucas.com><br>Subject: [Therion] Metapost modifications<br>To: therion@speleo.sk<br>Message-ID: <669F7863-965F-4631-9398-DBDB3CCFB323@daveclucas.com><br>Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes<br><br>In Mulu many of the passages are part filled with sandstone pebbles. <br>I'd like to create a user area and a user symbol based on pebbles <br>where the ellipses are filled with a colour (light brown). Can anybody <br>tell me how to modify the standard definition?<br><br>Dave Clucas<br>dave@daveclucas.com<br>http://daveclucas.com<br>http://mycaves.org<br><br><br><br><br><br>------------------------------<br><br>Message: 2<br>Date: Fri, 16 Nov 2012 09:39:17 +0000<br>From: Footleg <drfootleg@gmail.com><br>Subject: Re: [Therion] Metapost modifications<br>To: List for Therion users <therion@speleo.sk><br>Message-ID:<br><span class="Apple-tab-span" style="white-space:pre"> </span><CAJkGg4ny0XGoxkb+5QxjM_N1Q4GjjjhrwwfrohBoxQLhxmmEfQ@mail.gmail.com><br>Content-Type: text/plain; charset="iso-8859-1"<br><br>Take a look at Bruce's customised symbol sets on the wiki. I based mine on<br>those. I have not tried adding a completely new symbol to therion yet, but<br>here is how I override the pebbles area fill with one which looks more like<br>I prefer. Include this layout in your pdf export command to see pebbles<br>rendered with this custom style:<br><br>layout CustomisedSymbols<br> code metapost<br><br>beginpattern(pattern_pebbles);<br>pickup PenC;<br>path qq;<br>for i=0.0u step 0.6u until 5.1u:<br>for j=0.0u step 0.6u until 5.1u:<br> qq := (superellipse((.05u,0),(0,.05u),(-.05u,0),(0,.-.05u),.75))<br> randomized (u/45)<br> scaled (uniformdeviate(1.2)+.55)<br> rotated uniformdeviate(360)<br> shifted ((i,j) randomized 0.55u);<br> draw qq;<br>endfor;<br>endfor;<br>patternstep(5.1u,5.1u);<br>endpattern;<br><br>def a_pebbles (expr p) =<br>T:=identity;<br>thfill p withpattern pattern_pebbles;<br>enddef;<br><br> endcode<br>endlayout CustomisedSymbols<br><br><br>On 16 November 2012 09:28, Dave Clucas <dave@daveclucas.com> wrote:<br><br><blockquote type="cite">In Mulu many of the passages are part filled with sandstone pebbles. I'd<br></blockquote><blockquote type="cite">like to create a user area and a user symbol based on pebbles where the<br></blockquote><blockquote type="cite">ellipses are filled with a colour (light brown). Can anybody tell me how to<br></blockquote><blockquote type="cite">modify the standard definition?<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Dave Clucas<br></blockquote><blockquote type="cite">dave@daveclucas.com<br></blockquote><blockquote type="cite">http://daveclucas.com<br></blockquote><blockquote type="cite">http://mycaves.org<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">______________________________**_________________<br></blockquote><blockquote type="cite">Therion mailing list<br></blockquote><blockquote type="cite">Therion@speleo.sk<br></blockquote><blockquote type="cite">http://mailman.speleo.sk/**mailman/listinfo/therion<http://mailman.speleo.sk/mailman/listinfo/therion><br></blockquote><blockquote type="cite"><br></blockquote>-------------- next part --------------<br>An HTML attachment was scrubbed...<br>URL: <http://mailman.speleo.sk/pipermail/therion/attachments/20121116/f597890d/attachment.html><br><br>------------------------------<br><br>Message: 3<br>Date: Fri, 16 Nov 2012 10:04:22 +0000<br>From: Dave Clucas <dave@daveclucas.com><br>Subject: Re: [Therion] Metapost modifications<br>To: therion@speleo.sk<br>Message-ID: <DD6A17E1-D0AE-47B9-801D-92792FBCA12D@daveclucas.com><br>Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes<br><br>I've answered my own question. It was a lot easier than I expected!<br><br>code metapost<br> def a_u_pebbles (expr p) =<br> T:=identity;<br> pickup PenC;<br> path q, qq; q = bbox p;<br> picture tmp_pic;<br> tmp_pic := image(<br> for i = xpart llcorner q step 1.5u until xpart urcorner q:<br> for j = ypart llcorner q step 1.5u until ypart urcorner q:<br> qq := (superellipse((.2u,0),(0,.1u),(-.2u,0),(0,.-.1u),.75))<br>% randomized (u/25)<br> rotated uniformdeviate(360)<br> shifted ((i,j) randomized 0.8u);<br><span class="Apple-tab-span" style="white-space:pre"> </span>if xpart (p intersectiontimes qq) < 0:<br><span class="Apple-tab-span" style="white-space:pre"> </span> thdraw qq;<br><span class="Apple-tab-span" style="white-space:pre"> </span> thfill qq withcolor(1, 0.85, 0.83);<br><span class="Apple-tab-span" style="white-space:pre"> </span>fi;<br> endfor;<br> endfor;<br> );<br> clip tmp_pic to p;<br> draw tmp_pic;<br>enddef;<br><br>def p_u_pebbles (expr pos,theta,sc,al)=<br> U:=(.45u,.35u);<br> T:=identity aligned al rotated theta scaled sc shifted pos;<br> pickup PenC;<br> p:=superellipse((.2u,0),(0,.1u),(-.2u,0),(0,.-.1u),.75);<br> thdraw p rotated 20 shifted (0,.25u);<br> thfill p rotated 20 shifted (0,.25u) withcolor(1, 0.85, 0.83);<br> thdraw p rotated -37 shifted (.25u,-.25u);<br> thfill p rotated -37 shifted (.25u,-.25u) withcolor(1, 0.85, 0.83);<br> thdraw p rotated -62 shifted (-.25u,-.25u);<br> thfill p rotated -62 shifted (-.25u,-.25u) withcolor(1, 0.85, 0.83);<br>enddef;<br><br>endcode<br><br>On 16 Nov 2012, at 09:28, Dave Clucas wrote:<br><br><blockquote type="cite">In Mulu many of the passages are part filled with sandstone pebbles. <br></blockquote><blockquote type="cite">I'd like to create a user area and a user symbol based on pebbles <br></blockquote><blockquote type="cite">where the ellipses are filled with a colour (light brown). Can <br></blockquote><blockquote type="cite">anybody tell me how to modify the standard definition?<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Dave Clucas<br></blockquote><blockquote type="cite">dave@daveclucas.com<br></blockquote><blockquote type="cite">http://daveclucas.com<br></blockquote><blockquote type="cite">http://mycaves.org<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><br>Dave Clucas<br>dave@daveclucas.com<br>http://daveclucas.com<br>http://mycaves.org<br><br><br><br><br><br>------------------------------<br><br>_______________________________________________<br>Therion mailing list<br>Therion@speleo.sk<br>http://mailman.speleo.sk/mailman/listinfo/therion<br><br><br>End of Therion Digest, Vol 83, Issue 18<br>***************************************<br></div></blockquote></div><br><div apple-content-edited="true"> <span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0; "><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div>Dave Clucas</div><div><a href="mailto:dave@daveclucas.com">dave@daveclucas.com</a></div><div><a href="http://daveclucas.com">http://daveclucas.com</a></div><div><a href="http://mycaves.org">http://mycaves.org</a></div><div><br></div></div></span><br class="Apple-interchange-newline"> </div><br></body></html>