<html><body><div><div class="page" title="Page 66"><div class="layoutArea"><div class="column"><p><span style="font-size: 12.000000pt; font-family: 'LMRoman12'; font-weight: bold;" data-mce-style="font-size: 12.000000pt; font-family: 'LMRoman12'; font-weight: bold;"><a href="https://www.tug.org/docs/metapost/mpman.pdf">https://www.tug.org/docs/metapost/mpman.pdf</a></span></p><p><span style="font-size: 12.000000pt; font-family: 'LMRoman12'; font-weight: bold;" data-mce-style="font-size: 12.000000pt; font-family: 'LMRoman12'; font-weight: bold;"><br data-mce-bogus="1"></span></p><p><span style="font-size: 12.000000pt; font-family: 'LMRoman12'; font-weight: bold;" data-mce-style="font-size: 12.000000pt; font-family: 'LMRoman12'; font-weight: bold;">pge 65.</span></p><p><span style="font-size: 12.000000pt; font-family: 'LMRoman12'; font-weight: bold;" data-mce-style="font-size: 12.000000pt; font-family: 'LMRoman12'; font-weight: bold;"><br data-mce-bogus="1"></span></p><p><span style="font-size: 12.000000pt; font-family: 'LMRoman12'; font-weight: bold;" data-mce-style="font-size: 12.000000pt; font-family: 'LMRoman12'; font-weight: bold;">14.1 Customizing Run-Time Behavior </span></p><p><span style="font-size: 10.000000pt; font-family: 'LMRoman10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMRoman10';">MetaPost knows and obeys a number of internal variables that have no direct impact on drawing commands, but can be used to customize the way the MetaPost compiler processes input files. The following paragraphs describe those variables (in no particular order). </span></p><p><span style="font-size: 10.000000pt; font-family: 'LMRoman10'; font-weight: bold;" data-mce-style="font-size: 10.000000pt; font-family: 'LMRoman10'; font-weight: bold;">Date and Time </span><span style="font-size: 10.000000pt; font-family: 'LMRoman10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMRoman10';">MetaPost provides a number of internal numeric variables that store the date and time a job was started, i.e., the MetaPost executable was called on the command-line. Variables </span><span style="font-size: 10.000000pt; font-family: 'LMMono10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMMono10';">year</span><span style="font-size: 10.000000pt; font-family: 'LMRoman10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMRoman10';">, </span><span style="font-size: 10.000000pt; font-family: 'LMMono10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMMono10';">month</span><span style="font-size: 10.000000pt; font-family: 'LMRoman10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMRoman10';">, </span><span style="font-size: 10.000000pt; font-family: 'LMMono10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMMono10';">day</span><span style="font-size: 10.000000pt; font-family: 'LMRoman10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMRoman10';">, </span><span style="font-size: 10.000000pt; font-family: 'LMMono10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMMono10';">hour</span><span style="font-size: 10.000000pt; font-family: 'LMRoman10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMRoman10';">, and </span><span style="font-size: 10.000000pt; font-family: 'LMMono10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMMono10';">minute </span><span style="font-size: 10.000000pt; font-family: 'LMRoman10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMRoman10';">should be self-explanatory. Variable </span><span style="font-size: 10.000000pt; font-family: 'LMMono10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMMono10';">time </span><span style="font-size: 10.000000pt; font-family: 'LMRoman10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMRoman10';">returns the number of minutes past midnight, since the job was started, i.e., </span><span style="font-size: 10.000000pt; font-family: 'LMMono10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMMono10';">time </span><span style="font-size: 10.000000pt; font-family: 'LMRoman10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMRoman10';">= 60 </span><span style="font-size: 10.000000pt; font-family: 'LMMathSymbols10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMMathSymbols10';">* </span><span style="font-size: 10.000000pt; font-family: 'LMMono10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMMono10';">hour </span><span style="font-size: 10.000000pt; font-family: 'LMRoman10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMRoman10';">+ </span><span style="font-size: 10.000000pt; font-family: 'LMMono10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMMono10';">minute</span><span style="font-size: 10.000000pt; font-family: 'LMRoman10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMRoman10';">.</span></p><p><span style="font-size: 10.000000pt; font-family: 'LMRoman10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMRoman10';"><br data-mce-bogus="1"></span></p><p><span style="font-size: 10.000000pt; font-family: 'LMRoman10';" data-mce-style="font-size: 10.000000pt; font-family: 'LMRoman10';">m.</span></p></div></div></div></div><div><br>On Jun 27, 2016, at 11:15 AM, Bruce <bruce@tomo.co.nz> wrote:<br><br></div><div><blockquote type="cite"><div class="msg-quote" lang="EN-US" link="blue" vlink="purple"><div class="Section1"><p class="MsoNormal"><span size="2" color="navy" face="Arial" data-mce-style="color: navy; font-family: Arial; font-size: small;" style="color: navy; font-family: Arial; font-size: small;"><span style="font-size: 10.0pt; font-family: Arial; color: navy;" data-mce-style="font-size: 10.0pt; font-family: Arial; color: navy;">Dirk</span></span></p><p class="MsoNormal"><span size="2" color="navy" face="Arial" data-mce-style="color: navy; font-family: Arial; font-size: small;" style="color: navy; font-family: Arial; font-size: small;"><span style="font-size: 10.0pt; font-family: Arial; color: navy;" data-mce-style="font-size: 10.0pt; font-family: Arial; color: navy;">I have posted this on the wiki, but not tested.</span></span></p><p class="MsoNormal"><span size="2" color="navy" face="Arial" data-mce-style="color: navy; font-family: Arial; font-size: small;" style="color: navy; font-family: Arial; font-size: small;"><span style="font-size: 10.0pt; font-family: Arial; color: navy;" data-mce-style="font-size: 10.0pt; font-family: Arial; color: navy;"><a href="http://therion.speleo.sk/wiki/doku.php/metapost#special_symbol_examples" data-mce-href="http://therion.speleo.sk/wiki/doku.php/metapost#special_symbol_examples">http://therion.speleo.sk/wiki/doku.php/metapost#special_symbol_examples</a></span></span></p><p class="MsoNormal"><span size="2" color="navy" face="Arial" data-mce-style="color: navy; font-family: Arial; font-size: small;" style="color: navy; font-family: Arial; font-size: small;"><span style="font-size: 10.0pt; font-family: Arial; color: navy;" data-mce-style="font-size: 10.0pt; font-family: Arial; color: navy;"> </span></span></p><p class="MsoNormal"><span size="2" color="navy" face="Arial" data-mce-style="color: navy; font-family: Arial; font-size: small;" style="color: navy; font-family: Arial; font-size: small;"><span style="font-size: 10.0pt; font-family: Arial; color: navy;" data-mce-style="font-size: 10.0pt; font-family: Arial; color: navy;">Bruce</span></span></p><p class="MsoNormal"><span size="2" color="navy" face="Arial" data-mce-style="color: navy; font-family: Arial; font-size: small;" style="color: navy; font-family: Arial; font-size: small;"><span style="font-size: 10.0pt; font-family: Arial; color: navy;" data-mce-style="font-size: 10.0pt; font-family: Arial; color: navy;"> </span></span></p><div><div class="MsoNormal" align="center" style="text-align: center;" data-mce-style="text-align: center;"><span size="3" face="Times New Roman" data-mce-style="font-family: 'Times New Roman'; font-size: medium;" style="font-family: 'Times New Roman'; font-size: medium;"><span style="font-size: 12.0pt;" data-mce-style="font-size: 12.0pt;"><hr size="2" width="100%" align="center"></span></span></div><p class="MsoNormal"><b><span size="2" face="Tahoma" data-mce-style="font-family: Tahoma; font-size: small;" style="font-family: Tahoma; font-size: small;"><span style="font-size: 10.0pt; font-family: Tahoma; font-weight: bold;" data-mce-style="font-size: 10.0pt; font-family: Tahoma; font-weight: bold;">From:</span></span></b><span size="2" face="Tahoma" data-mce-style="font-family: Tahoma; font-size: small;" style="font-family: Tahoma; font-size: small;"><span style="font-size: 10.0pt; font-family: Tahoma;" data-mce-style="font-size: 10.0pt; font-family: Tahoma;"> Dirk Peinelt [mailto:dirk.peinelt@t-online.de] <br> <b><span style="font-weight: bold;" data-mce-style="font-weight: bold;">Sent:</span></b> Thursday, 9 June 2016 7:35 a.m.<br> <b><span style="font-weight: bold;" data-mce-style="font-weight: bold;">To:</span></b> 'Martin Sluka'; Bruce Mutton<br> <b><span style="font-weight: bold;" data-mce-style="font-weight: bold;">Subject:</span></b> AW: [Therion] Therion Digest, Vol 126, Issue 7</span></span></p></div><p class="MsoNormal"><span size="3" face="Times New Roman" data-mce-style="font-family: 'Times New Roman'; font-size: medium;" style="font-family: 'Times New Roman'; font-size: medium;"><span style="font-size: 12.0pt;" data-mce-style="font-size: 12.0pt;"> </span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;">Hi Martin, Bruce,</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;">the definition may be published to the wiki. </span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;">I’dont know if the code is effective. (I’ve not used the A-D Pens.)</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> </span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;">I combine this compass rose with a creation date in the map-header (/currentdate).</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;">A date variable is not present in metapost.</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> </span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;">If the CS is not set, the declination is Zero.</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;">Also if the declination is Zero, the northarrow is a Nmag arrow:</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;">North grid/true rotate the whole plan with the north arrow. (merid. Conv.?)</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> </span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;">A small change… (I hope i am not mistaken.)</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> </span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> </span></span></p><p class="MsoNormal"><span size="3" face="Times New Roman" data-mce-style="font-family: 'Times New Roman'; font-size: medium;" style="font-family: 'Times New Roman'; font-size: medium;"><span lang="DE" style="font-size: 12.0pt;" data-mce-style="font-size: 12.0pt;"></span></span></p><div><span size="3" face="Times New Roman" data-mce-style="font-family: 'Times New Roman'; font-size: medium;" style="font-family: 'Times New Roman'; font-size: medium;"><image001.jpg></span></div><div><span size="3" face="Times New Roman" data-mce-style="font-family: 'Times New Roman'; font-size: medium;" style="font-family: 'Times New Roman'; font-size: medium;"><image003.jpg></span></div><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"></span></span><p></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> </span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;">def s_northarrow (expr rot) =</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> valscal=1.2; % scale your north arrow here</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> decl:=MagDecl; </span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> T:=identity;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> picture tmp_pic;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> tmp_pic = image (</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> pickup pencircle scaled .3;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thfill fullcircle scaled 4cm withcolor 1white;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thdraw fullcircle scaled 3.1cm;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thdraw fullcircle scaled 4.05cm;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> pickup pencircle scaled .1;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thdraw fullcircle scaled 3cm;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thdraw fullcircle scaled 4cm;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> pickup pencircle scaled .2;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thdraw (dir(45)*2.025cm)--(dir(45)*3.7cm);</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thdraw (dir(135)*2.025cm)--(dir(135)*3.7cm);</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thdraw (dir(225)*2.025cm)--(dir(225)*3.7cm);</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thdraw (dir(315)*2.025cm)--(dir(315)*3.7cm);</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> pickup pencircle scaled .1;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> for whereto=0 step 15 until 345:</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thdraw dir(whereto)*.65cm--dir(whereto)*.9cm;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thdraw dir(whereto)*1.4cm--dir(whereto)*1.5cm;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> endfor;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> for whereto=0 step 5 until 355:</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thdraw dir(whereto)*.65cm--dir(whereto)*.8cm;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thdraw dir(whereto)*1.45cm--dir(whereto)*1.5cm;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> endfor; </span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> for whereto=0 step 1 until 359:</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thdraw dir(whereto)*1.94cm--dir(whereto)*2cm;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> endfor; </span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> pickup pencircle scaled 1;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thdraw fullcircle scaled 1cm;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thdraw fullcircle scaled 1.1cm;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thdraw fullcircle scaled 1.3cm withpen pencircle scaled .3;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> vald=90-decl;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> texrot=0-decl;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> drawarrow(dir(vald)*-2cm--dir(vald)*2cm) withpen pencircle scaled .2;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> <span color="red" data-mce-style="color: red;" style="color: red;"><span style="color: red;" data-mce-style="color: red;">if (MagDecl <> 0): </span></span>thdraw image(label.top(btex $mg$ etex, (0,0)) scaled .5 rotated texrot;) shifted (dir(vald)*2.04cm); <span color="red" data-mce-style="color: red;" style="color: red;"><span style="color: red;" data-mce-style="color: red;">fi;</span></span> </span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-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;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thfill (-.2cm,.2cm)--(0,2cm)--(0,0)--cycle;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thfill (.2cm,-.2cm)--(0,-2cm)--(0,0)--cycle;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thfill (.2cm,.2cm)--(2cm,0)--(0,0)--cycle;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thfill (-.2cm,-.2cm)--(-2cm,0)--(0,0)--cycle;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thfill (.2cm,.2cm)--(-0,2cm)--(0,0)--cycle withcolor 1white;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thfill (.2cm,-.2cm)--(2cm,0)--(0,0)--cycle withcolor 1white;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thfill (-.2cm,-.2cm)--(0,-2cm)--(0,0)--cycle withcolor 1white;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thfill (-.2cm,.2cm)--(-2cm,0)--(0,0)--cycle withcolor 1white; </span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> pickup pencircle scaled .2;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-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;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thfill fullcircle scaled .56cm withcolor 1white;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> pickup pencircle scaled .1;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thdraw (.28cm,0)..(0,.28cm)..(-.28cm,0)..(0,-.28cm)..cycle;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> pickup pencircle scaled .4;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thdraw (.2cm,0)..(0,.2cm)..(-.2cm,0)..(0,-.2cm)..cycle;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> <span color="red" data-mce-style="color: red;" style="color: red;"><span style="color: red;" data-mce-style="color: red;">if (MagDecl = 0): label.bot(btex $Nmag$ etex, (0,2.6cm)); else: </span></span>label.bot(btex $N$ etex, (0,2.6cm)); <span color="red" data-mce-style="color: red;" style="color: red;"><span style="color: red;" data-mce-style="color: red;">fi;</span></span></span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> label.lft(btex $E$ etex, (2.6cm,0));</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> label.rt(btex $W$ etex, (-2.6cm,0));</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> label.top(btex $S$ etex, (0,-2.6cm));</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> );</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> thdraw tmp_pic scaled valscal rotatedaround(origin, -rot);</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;">enddef;</span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> </span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;"> </span></span></p><p class="MsoNormal"><span size="2" face="Calibri" data-mce-style="font-family: Calibri; font-size: small;" style="font-family: Calibri; font-size: small;"><span lang="DE" style="font-size: 11.0pt; font-family: Calibri;" data-mce-style="font-size: 11.0pt; font-family: Calibri;">//dirk</span></span></p></div><div class="_stretch"><span class="body-text-content">_______________________________________________<br>Therion mailing list<br><a href="mailto:Therion@speleo.sk" data-mce-href="mailto:Therion@speleo.sk">Therion@speleo.sk</a><br><a href="http://mailman.speleo.sk/mailman/listinfo/therion" data-mce-href="http://mailman.speleo.sk/mailman/listinfo/therion">http://mailman.speleo.sk/mailman/listinfo/therion</a><br></span></div><div><image001.jpg></div><div><image003.jpg></div><style class="existing-message-styles" type="text/css">.msg-quote a:link {}
.msg-quote span.msohyperlink {}
.msg-quote a:visited {}
.msg-quote span.msohyperlinkfollowed {}
.msg-quote p.msonormal, li.msonormal, div.msonormal {margin: 0cm 0cm 0.0001pt; font-size: 12pt; font-family: 'Times New Roman';}
.msg-quote a:link, span.msohyperlink {color: blue; text-decoration: underline;}
.msg-quote a:visited, span.msohyperlinkfollowed {color: purple; text-decoration: underline;}
.msg-quote p.msonormal0, li.msonormal0, div.msonormal0 {margin-right: 0cm; margin-left: 0cm; font-size: 12pt; font-family: 'Times New Roman';}
.msg-quote span.emailstyle19 {font-family: Calibri; color: windowtext;}
.msg-quote span.emailstyle20 {font-family: Calibri; color: windowtext;}
.msg-quote span.emailstyle21 {font-family: Arial; color: navy;}
.msg-quote @page Section1 {size: 612pt 792pt; margin: 70.85pt 70.85pt 2cm;}
.msg-quote div.section1 {page: Section1;}
</style></div></blockquote></div></body></html>