<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns="http://www.w3.org/TR/REC-html40"
xmlns:ns0="http://schemas.microsoft.com/office/2004/12/omml">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 11 (filtered medium)">
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]-->
<style>
<!--a:link
{mso-style-priority:99;}
span.MSOHYPERLINK
{mso-style-priority:99;}
a:visited
{mso-style-priority:99;}
span.MSOHYPERLINKFOLLOWED
{mso-style-priority:99;}
/* Font Definitions */
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;}
p.msonormal0, li.msonormal0, div.msonormal0
{mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:12.0pt;
font-family:"Times New Roman";}
span.EmailStyle19
{mso-style-type:personal;
font-family:Calibri;
color:windowtext;}
span.EmailStyle20
{mso-style-type:personal;
font-family:Calibri;
color:windowtext;}
span.EmailStyle21
{mso-style-type:personal-reply;
font-family:Arial;
color:navy;}
@page Section1
{size:612.0pt 792.0pt;
margin:70.85pt 70.85pt 2.0cm 70.85pt;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang=EN-US link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>Dirk<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>I have posted this on the wiki, but not
tested.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'><a
href="http://therion.speleo.sk/wiki/doku.php/metapost#special_symbol_examples">http://therion.speleo.sk/wiki/doku.php/metapost#special_symbol_examples</a><o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>Bruce<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<div>
<div class=MsoNormal align=center style='text-align:center'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'>
<hr size=2 width="100%" align=center tabindex=-1>
</span></font></div>
<p class=MsoNormal><b><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma;font-weight:bold'>From:</span></font></b><font size=2
face=Tahoma><span style='font-size:10.0pt;font-family:Tahoma'> Dirk Peinelt
[mailto:dirk.peinelt@t-online.de] <br>
<b><span style='font-weight:bold'>Sent:</span></b> Thursday, 9 June 2016 7:35
a.m.<br>
<b><span style='font-weight:bold'>To:</span></b> 'Martin Sluka'; Bruce Mutton<br>
<b><span style='font-weight:bold'>Subject:</span></b> AW: [Therion] Therion
Digest, Vol 126, Issue 7</span></font><o:p></o:p></p>
</div>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>Hi Martin, Bruce,<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>the definition may be published to the wiki. <o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>I’dont know if the code is effective. (I’ve not
used the A-D Pens.)<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>I combine this compass rose with a creation date in
the map-header (/currentdate).<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>A date variable is not present in metapost.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>If the CS is not set, the declination is Zero.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>Also if the declination is Zero, the northarrow is
a Nmag arrow:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>North grid/true rotate the whole plan with the
north arrow. (merid. Conv.?)<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>A small change… (I hope i am not mistaken.)<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span lang=DE
style='font-size:12.0pt'><img border=0 width=362 height=370
id="Grafik_x005f_x0020_1" src="cid:image001.jpg@01D1D0B9.2F763C20"
style='height:3.854in;width:3.77in'><img border=0 width=355 height=358
id="Grafik_x005f_x0020_3" src="cid:image003.jpg@01D1D0B9.2F763C20"
style='height:3.729in;width:3.701in'></span></font><font size=2 face=Calibri><span
lang=DE style='font-size:11.0pt;font-family:Calibri'><o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>def s_northarrow (expr rot) =<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
valscal=1.2; % scale your north arrow here<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
decl:=MagDecl; <o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
T:=identity;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
picture tmp_pic;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
tmp_pic = image (<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
pickup pencircle scaled .3;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thfill fullcircle scaled 4cm withcolor 1white;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw fullcircle scaled 3.1cm;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw fullcircle scaled 4.05cm;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
pickup pencircle scaled .1;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw fullcircle scaled 3cm;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw fullcircle scaled 4cm;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
pickup pencircle scaled .2;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw (dir(45)*2.025cm)--(dir(45)*3.7cm);<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw (dir(135)*2.025cm)--(dir(135)*3.7cm);<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw (dir(225)*2.025cm)--(dir(225)*3.7cm);<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw (dir(315)*2.025cm)--(dir(315)*3.7cm);<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
pickup pencircle scaled .1;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
for whereto=0 step 15 until 345:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw dir(whereto)*.65cm--dir(whereto)*.9cm;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw dir(whereto)*1.4cm--dir(whereto)*1.5cm;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
endfor;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
for whereto=0 step 5 until 355:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw dir(whereto)*.65cm--dir(whereto)*.8cm;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw dir(whereto)*1.45cm--dir(whereto)*1.5cm;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
endfor; <o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
for whereto=0 step 1 until 359:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw dir(whereto)*1.94cm--dir(whereto)*2cm;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
endfor; <o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
pickup pencircle scaled 1;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw fullcircle scaled 1cm;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw fullcircle scaled 1.1cm;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw fullcircle scaled 1.3cm withpen pencircle scaled .3;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
vald=90-decl;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
texrot=0-decl;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
drawarrow(dir(vald)*-2cm--dir(vald)*2cm) withpen pencircle scaled .2;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
<font color=red><span style='color:red'>if (MagDecl <> 0): </span></font>thdraw
image(label.top(btex $mg$ etex, (0,0)) scaled .5 rotated texrot;) shifted
(dir(vald)*2.04cm); <font color=red><span style='color:red'>fi;</span></font>
<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thfill
(1.06cm,1.06cm)--(0,.2cm)--(-1.06cm,1.06cm)--(-.2cm,0)--(-1.06cm,-1.06cm)--(0,-.2cm)--(1.06cm,-1.06cm)--(.2cm,0)--cycle;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thfill (-.2cm,.2cm)--(0,2cm)--(0,0)--cycle;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thfill (.2cm,-.2cm)--(0,-2cm)--(0,0)--cycle;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thfill (.2cm,.2cm)--(2cm,0)--(0,0)--cycle;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thfill (-.2cm,-.2cm)--(-2cm,0)--(0,0)--cycle;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thfill (.2cm,.2cm)--(-0,2cm)--(0,0)--cycle withcolor 1white;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thfill (.2cm,-.2cm)--(2cm,0)--(0,0)--cycle withcolor 1white;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thfill (-.2cm,-.2cm)--(0,-2cm)--(0,0)--cycle withcolor 1white;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thfill (-.2cm,.2cm)--(-2cm,0)--(0,0)--cycle withcolor
1white;
<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
pickup pencircle scaled .2;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw (-.2cm,.2cm)--(0,2cm)--(.2cm,.2cm)--(2cm,0cm)--(.2cm,-.2cm)--(0,-2cm)--(-.2cm,-.2cm)--(-2cm,0)--cycle;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thfill fullcircle scaled .56cm withcolor 1white;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
pickup pencircle scaled .1;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw (.28cm,0)..(0,.28cm)..(-.28cm,0)..(0,-.28cm)..cycle;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
pickup pencircle scaled .4;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw (.2cm,0)..(0,.2cm)..(-.2cm,0)..(0,-.2cm)..cycle;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
<font color=red><span style='color:red'>if (MagDecl = 0): label.bot(btex $Nmag$
etex, (0,2.6cm)); else: </span></font>label.bot(btex $N$ etex, (0,2.6cm)); <font
color=red><span style='color:red'>fi;</span></font><o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
label.lft(btex $E$ etex, (2.6cm,0));<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
label.rt(btex $W$ etex, (-2.6cm,0));<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
label.top(btex $S$ etex, (0,-2.6cm));<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
);<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>
thdraw tmp_pic scaled valscal rotatedaround(origin, -rot);<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>enddef;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Calibri><span lang=DE style='font-size:
11.0pt;font-family:Calibri'>//dirk<o:p></o:p></span></font></p>
</div>
</body>
</html>