<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;" class=""><div><span style="font-family: Calibri; font-size: 11pt;" class="">With day generated (blue):</span></div><div><span style="font-family: Calibri; font-size: 11pt;" class=""><br class=""></span></div><div><span style="font-family: Calibri; font-size: 11pt;" class="">m.s.</span></div><div><span style="font-family: Calibri; font-size: 11pt;" class=""><br class=""></span></div><div><span style="font-family: Calibri; font-size: 11pt;" class="">def s_northarrow (expr rot) =</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> valscal=1.2; % scale your north arrow here</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> decl:=MagDecl;</span> <br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> T:=identity;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> picture tmp_pic;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> tmp_pic = image (</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> pickup pencircle scaled .3;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thfill fullcircle scaled 4cm withcolor 1white;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw fullcircle scaled 3.1cm;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw fullcircle scaled 4.05cm;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> pickup pencircle scaled .1;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw fullcircle scaled 3cm;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw fullcircle scaled 4cm;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> pickup pencircle scaled .2;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw (dir(45)*2.025cm)--(dir(45)*3.7cm);</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw (dir(135)*2.025cm)--(dir(135)*3.7cm);</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw (dir(225)*2.025cm)--(dir(225)*3.7cm);</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw (dir(315)*2.025cm)--(dir(315)*3.7cm);</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> pickup pencircle scaled .1;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> for whereto=0 step 15 until 345:</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw dir(whereto)*.65cm--dir(whereto)*.9cm;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw dir(whereto)*1.4cm--dir(whereto)*1.5cm;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> endfor;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> for whereto=0 step 5 until 355:</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw dir(whereto)*.65cm--dir(whereto)*.8cm;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw dir(whereto)*1.45cm--dir(whereto)*1.5cm;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> endfor;</span> <br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> for whereto=0 step 1 until 359:</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw dir(whereto)*1.94cm--dir(whereto)*2cm;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> endfor;</span> <br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> pickup pencircle scaled 1;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw fullcircle scaled 1cm;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw fullcircle scaled 1.1cm;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw fullcircle scaled 1.3cm withpen pencircle scaled .3;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> vald=90-decl;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> texrot=0-decl;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> drawarrow(dir(vald)*-2cm--dir(vald)*2cm) withpen pencircle scaled .2;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> </span> <span data-mce-style="color: red;" class="" style="font-family: Calibri; font-size: 11pt; color: red;"><span data-mce-style="color: red;" class="">if (MagDecl <> 0): </span></span></div><div><font style="font-size: 14px;" color="#0056d6" face="Times" class=""> <span class="Apple-tab-span" style="white-space: pre;"> </span>string z;</font></div><div><font color="#0056d6" style="font-size: 14px;" face="Times" class=""> <span class="Apple-tab-span" style="white-space:pre"> </span>z = ("mg " & (decimal day) & ". " & (decimal month) & ". " & (decimal year));</font></div><div><font color="#0056d6" style="font-size: 14px;" face="Times" class=""> <span class="Apple-tab-span" style="white-space: pre;"> </span>thdraw image(label.urt( z infont "ptmr8r", (0,0)) scaled .5 rotated texrot;) shifted (dir(vald)*2.04cm);</font></div><div> <span class="Apple-tab-span" style="white-space:pre"> </span><span data-mce-style="color: red;" class="" style="font-family: Calibri; font-size: 11pt; color: red;"><span data-mce-style="color: red;" class="">fi;</span></span><span style="font-family: Calibri; font-size: 11pt;" class=""> </span> </div><div><span style="font-family: Calibri; font-size: 11pt;" class=""> 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;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thfill (-.2cm,.2cm)--(0,2cm)--(0,0)--cycle;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thfill (.2cm,-.2cm)--(0,-2cm)--(0,0)--cycle;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thfill (.2cm,.2cm)--(2cm,0)--(0,0)--cycle;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thfill (-.2cm,-.2cm)--(-2cm,0)--(0,0)--cycle;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thfill (.2cm,.2cm)--(-0,2cm)--(0,0)--cycle withcolor 1white;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thfill (.2cm,-.2cm)--(2cm,0)--(0,0)--cycle withcolor 1white;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thfill (-.2cm,-.2cm)--(0,-2cm)--(0,0)--cycle withcolor 1white;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thfill (-.2cm,.2cm)--(-2cm,0)--(0,0)--cycle withcolor 1white; </span> <br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> pickup pencircle scaled .2;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw (-.2cm,.2cm)--(0,2cm)--(.2cm,.2cm)--(2cm,0cm)--(.2cm,-.2cm)--(0,-2cm)--(-.2cm,-.2cm)--(-2cm,0)--cycle;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thfill fullcircle scaled .56cm withcolor 1white;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> pickup pencircle scaled .1;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw (.28cm,0)..(0,.28cm)..(-.28cm,0)..(0,-.28cm)..cycle;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> pickup pencircle scaled .4;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw (.2cm,0)..(0,.2cm)..(-.2cm,0)..(0,-.2cm)..cycle;</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> </span> <span data-mce-style="color: red;" class="" style="font-family: Calibri; font-size: 11pt; color: red;"><span data-mce-style="color: red;" class="">if (MagDecl = 0): label.bot(btex $Nmag$ etex, (0,2.6cm)); else: </span></span><span style="font-family: Calibri; font-size: 11pt;" class="">label.bot(btex $N$ etex, (0,2.6cm));</span> <span data-mce-style="color: red;" class="" style="font-family: Calibri; font-size: 11pt; color: red;"><span data-mce-style="color: red;" class="">fi;</span></span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> label.lft(btex $E$ etex, (2.6cm,0));</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> label.rt(btex $W$ etex, (-2.6cm,0));</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> label.top(btex $S$ etex, (0,-2.6cm));</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> );</span><br class=""><span style="font-family: Calibri; font-size: 11pt;" class=""> thdraw tmp_pic scaled valscal rotatedaround(origin, -rot);</span><br class=""><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class=""><div class=""><div class=""><div class=""><div style="font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: auto; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px; -webkit-text-stroke-width: 0px;" class=""><div class="msg-quote" lang="EN-US" link="blue" vlink="purple"><div class="Section1" style="page: Section1;"><div style="margin: 0cm 0cm 0.0001pt; font-size: 12pt; font-family: 'Times New Roman';" class=""><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;" class=""><span lang="DE" data-mce-style="font-size: 11.0pt; font-family: Calibri;" style="font-size: 11pt; font-family: Calibri;" class="">enddef;</span></span></div></div></div></div></div></div></div></div></div><br class=""></body></html>