[Therion] Output map Scale

[Stacho Mudrak]

Quoting Bruce Mutton <bruce.mutton at paradise.net.nz>:
> 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.

Use decimal(BaseScale) instead of decimal(Scale).

Regards, S.

> 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
> 
> _______________________________________________
> Therion mailing list
> Therion at speleo.sk
> http://www.speleo.sk/mailman/listinfo/therion
>