[Therion] Metapost code for pendant and stromatolite symbols
Martin Sluka
martinsluka at mac.com
Tue Nov 11 20:00:27 CET 2014
Something for inspiration:
http://ngmdb.usgs.gov/fgdc_gds/geolsymstd/fgdc-geolsym-sec10.pdf
http://pubs.usgs.gov/tm/2006/11A02/ :D
m.s.
11. 11. 2014 v 19:25, Bill Gee <bgee at campercaver.net>:
> Hi Martin -
>
> Thanks! I wound up not using any of this. A bit of digging around the
> Internet found a document which described out to do circles and arcs in
> Metapost. I adopted it and created routines to do symbols for both pendants
> and stromatolites. See below ...
>
> The stromatolite symbol is something that one of my friends invented for his
> own use. I have not found any list of cave map symbols which includes a
> stromatolite.
>
> Bill Gee
>
> ====================
> def p_u_stromatolite (expr pos,theta,sc,al) =
> U:=(.15u, .4u);
> T:=identity aligned al rotated theta scaled sc shifted pos;
> pickup PenC;
>
> thdraw (0.7u, 0.8u) -- (-0.7u, 0.8u) -- (-0.2u, -0.8u) -- (0.2u, -0.8u)
> -- cycle;
> thdraw (-0.4u, 0.4u) -- (0.0u, 0.65u) -- (0.4u, 0.4u);
> thdraw (-0.3u, 0.1u) -- (0.0u, 0.3u) -- (0.3u, 0.1u);
> thdraw (-0.2u, -0.2u) -- (0.0u, -0.1u) -- (0.2u, -0.2u);
> thdraw (-0.15u, -0.5u) -- (0.0u, -0.4u) -- (0.15u, -0.5u);
>
> enddef;
>
> def p_u_pendant (expr pos,theta,sc,al) =
> U:=(.15u, .4u);
> T:=identity aligned al rotated theta scaled sc shifted pos;
> pickup PenC;
>
> thdraw (-0.9u, 0.7u) -- (-0.5u, 0.7u);
> thdraw (-0.5u, 0.7u) .. (-0.3u, 0.6u) .. (-0.4u, 0.4u);
> thdraw (-0.4u, 0.4u) .. (-0.6u, 0.0u) .. (-0.3u, -0.5u);
> thdraw (-0.3u, -0.5u) -- (0.3u, -0.5u);
> thdraw (0.3u, -0.5u) .. (0.6u, 0.0u) .. (0.5u, 0.4u);
> thdraw (0.5u, 0.4u) .. (0.3u, 0.6u) .. (0.5u, 0.7u);
> thdraw (0.5u, 0.7u) -- (0.9u, 0.7u);
>
> enddef;
>
> initsymbol ("p_u_stromatolite");
> initsymbol ("p_u_pendant");
> ======================
>
>
> On Tuesday, November 11, 2014 12:49:01 Martin Sluka wrote:
>> Just third link: sniper logo. Use the part of code you need.
>>
>>
>>
>> % sniperlogo.mp
>> % L. Nobre G.
>> % 2012
>>
>> prologues := 1;
>>
>> beginfig(1);
>> numeric u, ray, siz, xdis, ang, mar, i;
>> u = 1cm;
>> siz = 5u;
>> ray = siz/6;
>> fill fullcircle scaled (2*(siz+ray));
>> xdis = (siz-2*ray) +-+ (2*ray);
>> ang = angle(xdis,2*ray);
>> z1 = (siz-ray)*dir(ang);
>> z2 = (siz-ray)*dir(90-ang);
>> z3 = (ray,(siz-2*ray)*cosd(ang));
>> z4 = z3 xscaled -1;
>> z5 = z2 xscaled -1;
>> z6 = z1 xscaled -1;
>> for i=7 upto 16:
>> z[i] = z[i-4] rotated 90;
>> endfor;
>> for i=0 upto 3:
>> z[21+i] = (siz-ray)*dir(45+90*i);
>> endfor;
>> path sniperpath;
>> sniperpath = z1{dir(ang+90)}..z21..{dir(180-ang)}z2..z3{down}..{up}z4..
>> z5{dir(180+ang)}..z22..{dir(270-ang)}z6..z7{right}..{left}z8..
>> z9{dir(270+ang)}..z23..{dir(-ang)}z10..z11{up}..{down}z12..
>> z13{dir(ang)}..z24..{dir(90-ang)}z14..z15{left}..{right}z16..cycle;
>> unfill sniperpath rotated 45;
>> % draw sniperpath;
>> % drawoptions( withcolor red );
>> % dotlabels(1,2,3,4,5,6,7,8,9,21,22)
>> endfig;
>>
>> end.
>>
>>
>>
>> On Nov 11, 2014, at 01:30 PM, Bill Gee <bgee at campercaver.net> wrote:
>>
>> Hi Martin -
>>
>> I looked over the Metapost samples on the Therion Wiki but found nothing
>> that seemed useful. I have done some Metapost code for symbols like
>> stalactites and stalacmites, and I modified the popcorn symbol, so Metapost
>> is not completely alien to my experience. I am no expert, though.
>>
>> The pendant symbol is a bit of a challenge because it is not straight lines.
>> I need to figure out how to draw curved lines for it.
>>
>> The stromatolite symbol is even more of a challenge because I can't find
>> anything to draw! One of my caving buddies has created his own symbol. He
>> did it as a small jpg file, and I think I could do it in Metapost without
>> much trouble. I would like to use an official symbol, if such a thing
>> exists.
>>
>> Regards - Bill Gee
>>
>> On Tuesday, November 11, 2014 08:55:42 Martin Sluka wrote:
>>> Try to check the links on wiki, there are many of examples how to use
>>> metapost. The simplest way is to find something similar you need and
>>> modify
>>> code.
>>>
>>> m.s.
>>>
>>> 10. 11. 2014 v 17:39, Bill Gee <bgee at campercaver.net>:
>>>> Hello everyone -
>>>>
>>>> I need to put some pendants and stromatolites on a map. I do not see
>>>> these
>>>> symbols in Therion. Has anyone already done the Metapost code for them?
>>>>
>>>> The symbol for a pendant looks sort of like the Greek letter upsilon,
>>>> except it has rounded corners instead of sharp.
>>>>
>>>> Attached is a bit of the sketch I am working from which shows the
>>>> pendant
>>>> symbol.
>>>>
>>>> Thanks - Bill Gee
>>>>
>>>> <MillCreekSymbols3.jpg>_______________________________________________
>>>> Therion mailing list
>>>> Therion at speleo.sk
>>>> http://mailman.speleo.sk/mailman/listinfo/therion
>>>
>>> _______________________________________________
>>> Therion mailing list
>>> Therion at speleo.sk
>>> http://mailman.speleo.sk/mailman/listinfo/therion
>>
>> _______________________________________________
>> Therion mailing list
>> Therion at speleo.sk
>> http://mailman.speleo.sk/mailman/listinfo/therion
>
> _______________________________________________
> Therion mailing list
> Therion at speleo.sk
> http://mailman.speleo.sk/mailman/listinfo/therion
More information about the Therion
mailing list