[Therion-cs] Vypocet delky jeskyne
Martin Sluka
martinsluka na mac.com
Středa Únor 1 11:26:12 CET 2012
Tuná to všetko je:
code tex-map
\legendwidth=20cm
#\legendtextcolor={\color[0 0 100]}
\legendtextsize={\size[16]}
\legendtextheadersize={\size[40]}
\legendcontent={%
\hsize=\legendwidth
\color[0 0 0]\the\legendtextcolor
% \ifnortharrow\vbox to 0pt{\line{\hfil\northarrow}\vss}\fi
\edef\tmp{\the\cavename} \ifx\tmp\empty \else
{\the\legendtextheadersize\the\cavename}\vskip1cm
\fi
% \ifscalebar\scalebar\vskip1cm\fi
{\rightskip=0pt plus 3em\parskip=3bp
\edef\tmp{\the\comment} \ifx\tmp\empty \else
{\the\legendtextsize\the\comment} \par\medskip
\fi
\everypar{\hangindent=2em\hangafter=1}
\edef\tmp{\the\cavelength} \ifx\tmp\empty \else
{\the\legendtextsize\si\the\cavelengthtitle: \ss\the\cavelength
\par}
\fi
\edef\tmp{\the\cavedepth} \ifx\tmp\empty \else
{\the\legendtextsize\si\the\cavedepthtitle: \ss\the\cavedepth
\par}
\fi
\edef\tmp{\the\exploteam} \ifx\tmp\empty \else
{\the\legendtextsize\si\the\explotitle:
\ss\the\exploteam\quad\si\the\explodate\par}
\fi
\edef\tmp{\the\topoteam} \ifx\tmp\empty \else
{\the\legendtextsize\si\the\topotitle:
\ss\the\topoteam\quad\si\the\topodate\par}
\fi
\edef\tmp{\the\cartoteam} \ifx\tmp\empty \else
{\the\legendtextsize\si\the\cartotitle:
\ss\the\cartoteam\quad\si\the\cartodate\par}
\fi
\edef\tmp{\the\copyrights} \ifx\tmp\empty \else
{\the\legendtextsize\ss\the\copyrights\par}
\fi
}
\formattedlegend
\color[0 0 0]
}
\def\maplayout{
\legendbox{75}{65}{NW}{\the\legendcontent}
\legendbox{18.95}{90}{N}{\northarrow}
\legendbox{18.95}{80}{N}{\scalebar}
}
code metapost
#Thomas Holder North Arrow 2
def s_northarrow (expr rot) =
begingroup
interim defaultscale:=0.7; % scale your north arrow here
T:=identity scaled defaultscale rotated -rot;
interim linecap:=squared;
interim linejoin:=rounded;
thfill (-.5cm,-.1cm)--(0,2.5cm)--(.5cm,-.1cm)--cycle;
pickup pencircle scaled (0.08cm * defaultscale);
thdraw (0,0)--(0,-2.5cm);
pickup pencircle scaled (0.16cm * defaultscale);
p:=(0.4cm,0.6cm);
thdraw ((p--(p yscaled -1)--(p xscaled -1)--(p scaled -1))
shifted (0,-1.0cm));
label.rt(thTEX("mg") scaled 1.6, (.6cm,-1.6cm)) transformed T;
endgroup;
enddef;
#Thomas Holder merítko 2
def s_scalebar (expr l, units, txt) =
begingroup
interim warningcheck:=0;
tmpl:=l / Scale * cm * units / 2;
tmpx:=l / Scale * cm * units / 5;
tmph:=5bp; % bar height
endgroup;
pickup PenC;
#Adjusted to make lines not stick out: 0.25*u/10,0 is half
thickness of PenC
draw (-tmpl+0.25*u/10,0)--(tmpl-0.25*u/10,0);
draw (tmpl-0.25*u/10,-tmph)--(-tmpl+0.25*u/10,-tmph);
p:=(0,0)--(tmpx,0)--(tmpx,-tmph)--(0,-tmph)--cycle;
for i:=-2.5 step 2 until 2:
fill p shifted (i * tmpx,0);
endfor;
begingroup
interim labeloffset:=3.5bp;
for i:=0 step (l/5) until (l-1):
tmpx:=tmpl * (i * 2 / l - 1);
label.bot(thTEX(decimal (i)),(tmpx,-tmph));
endfor;
label.bot(thTEX(decimal (l) & "\thinspace" & txt),(tmpl,-tmph));
label.top(thTEX("Generované merítko 1 : " & decimal
(Scale*100)),(0,0));
endgroup;
enddef;
endcode
#enddef;
endlayout
On 1.2.2012, at 10:36, herich na speleodd.sk wrote:
> ak z jedného survey nie je použitý ani jeden bod v th2, v 2d mape
> nie je dĺžka zarátaná. V table (html) je ale dĺžka už
> celková, všetkých survey.
> Iný prípad som nezaznamenal.
> Ja som sa chcel opýtať, ak chcem __úplne vyhodiť legendu___,
> prípadne zachovať len mierku a strelku, je na to nejaký nástroj ?
> Lebo budem potrebovať na DJS zložitú legendu v niekoľkých
> stĺpcoch, čiastkovými dĺžkami apod. Vložím teda pdf z
> Photoshopu s legendou. Tiež napr. je problém s automatickou
> legendou ak názov jaskyne je dlhší, lebo sa prekrýva so strelkou
> severu.
> ďakujem
>
>
>
> Citát Stacho Mudrak <s.m na group-s.sk>:
>
>> Tento pripad moze nastat, ak sa nejake polygony nenachadzaju v
>> mape. Teda
>> ak tam chybaju nejake body z celkoveho polygonu. Ale udaj o dlzke
>> sa da
>> prepisat v layoute tusim nejak takto:
>>
>> code tex-map
>> \cavelength{123\thinspace{}m}
>> endcode
>>
>> S.
>>
>> On 31 January 2012 20:43, Luděk Vlk <l.vlk na chromservis.cz> wrote:
>>
>>> Dobnry vecer,****
>>>
>>> ** **
>>>
>>> Jak Therion pocita v 2D zobrazeni (při exportu do PDF) delku
>>> jeskyne. Ve
>>> statistice jeskyni (HTML) mi vychazi delka o 19 m delsi a nemohu se
>>> dopocitat, kde rozdil vznika.****
>>>
>>> ** **
>>>
>>> S pozdravem****
>>>
>>> Ludek Vlk****
>>>
>>> _______________________________________________
>>> Therion-cs mailing list
>>> Therion-cs na speleo.sk
>>> http://mailman.speleo.sk/mailman/listinfo/therion-cs
>>>
>>>
>>
>
>
> _______________________________________________
> Therion-cs mailing list
> Therion-cs na speleo.sk
> http://mailman.speleo.sk/mailman/listinfo/therion-cs
More information about the Therion-cs
mailing list