[Therion] Output map Scale

[Bruce Mutton]

Thanks S, 
Worked first try!

By experiment, I think if I use base-scale, (and consequently enlarge the
printed image after output) then somewhere I need to substitute base-scale
for scale in the code below, but my attempts at editing it failed.

Regards
Bruce

-----Original Message-----
From: therion-bounces at speleo.sk [mailto:therion-bounces at speleo.sk] On Behalf
Of Stacho Mudrak
Sent: Wednesday, 30 January 2008 4:13 a.m.
To: therion at speleo.sk
Subject: Re: [Therion] Output map Scale

All you need to do is to redefine legend metapost macro. Example - derived
from
basic scalebar definiton (just add it to your layout):

code metapost
def s_scalebar (expr l, units, txt) =
 begingroup
  interim warningcheck:=0;
  tmpl:=l / Scale * cm * units / 2;
 endgroup;
 pickup PenC;
 draw (-tmpl,0)--(tmpl,0);
 draw (-tmpl,0)--(-tmpl,2bp);
 draw (tmpl,0)--(tmpl,2bp);
 begingroup
  interim labeloffset:=2bp;
  label.top(thTEX(decimal (l) & "\thinspace" & txt),origin);
  label.top(thTEX("1\thinspace:\thinspace" & decimal (Scale) & "00"), origin
+
(0,12bp));
 endgroup
enddef;    
endcode

Regards, S.

Quoting Bruce Mutton <bruce.mutton at paradise.net.nz>:

> Can Therion output the scale of the map as drawn, in text?  (I'd like to
> display this as say 1:1000, as well as the scalebar)
> 
> Thanks
> 
> Bruce
> 
>  
> 
> 


_______________________________________________
Therion mailing list
Therion at speleo.sk
http://www.speleo.sk/mailman/listinfo/therion