[Therion] Vertical scalebar created by Juraj Halama added to wiki

[Martin Sluka]

From Juraj:

It is not a regular point due to its size, but all the features of points are working...

def p_u_symbol_plan (expr pos,theta,sc,al) =
    U := (-3.25u, 3.25u);
    T := identity aligned al rotated theta scaled sc shifted pos;
    pickup PenB;
    q := ((-3.26u, -.95u) -- (1.74u, -.95u) -- (2.8u, .82u) -- (-1.49u, .82u) -- cycle);
    thfill q withcolor .85;
    thdraw q;
    q := ((-.175u, .5u) -- (0u, 0u) -- (.175u, .5u) .. (0u, .45u) .. cycle);
    thfill q withcolor .5green;
    thdraw q withcolor .5green;
    thdraw (0u, 0u) -- (0u, 2.31u) withcolor .5green; 
enddef;

def p_u_symbol_extend (expr pos,theta,sc,al) =
    U := (-2.5u, 2.5u);
    T := identity aligned al rotated theta scaled sc shifted pos;
    pickup PenB;
    q := ((-2.346u, -2.480u) -- (-.48u, -2.116u) -- (-.48u, 1.573u) -- (-2.346u, 1.354u) -- cycle);
    thfill q withcolor .85;
    q := ((-1.551u, -2.878u) -- (1.438u, -.766u) -- (1.438u, 2.388u) -- (-1.551u, 1.118u) -- cycle);
    thfill q withcolor .75;
    thdraw q;
    thdraw (-.48u, -2.116u) -- (-.48u, 1.573u) dashed evenly;
    q := ((.446u, -1.461u) -- (2.120u, -1.094u) -- (2.120u, 2.184u) -- (.446u, 1.965u) -- cycle);
    thfill q withcolor .85;
    thdraw (.446u, -1.461u) -- (.446u, 1.965u) dashed evenly;
    q := ((-.175u, .5u) -- (0u, 0u) -- (.175u, .5u) .. (0u, .45u) .. cycle) rotated -90;
    thfill q withcolor .5green;
    thdraw q withcolor .5green;
    thdraw (0u, 0u) -- (2.31u, 0u) withcolor .5green; 
enddef;

...and do not forget to remove it from legend:

text sk "point u:symbol_plan" ""
text sk "point u:symbol_extend" ""


> 1. 12. 2020 v 21:15, alastair gott <alastairgott at hotmail.com>:
> 
> Hi Martin,
> 
> Do you have the meta post for the plan and elevation symbols? They look great!
> 
> <image.png>
> 
> 
> thanks,
> Al
> From: Therion <therion-bounces at speleo.sk <mailto:therion-bounces at speleo.sk>> on behalf of Martin Sluka via Therion <therion at speleo.sk <mailto:therion at speleo.sk>>
> Sent: 01 December 2020 15:41
> To: List for Therion users <therion at speleo.sk <mailto:therion at speleo.sk>>
> Cc: Martin Sluka <martinsluka at me.com <mailto:martinsluka at me.com>>
> Subject: Re: [Therion] Vertical scalebar created by Juraj Halama added to wiki
>  
> 
> 
>> 29. 11. 2020 v 23:15, Bruce Mutton <bruce at tomo.co.nz <mailto:bruce at tomo.co.nz>>:
>> 
>> Has this been compiled entirely with Therion, or has it been post processed with the likes of Illustrator or Inkscape?
> 
> As I may say, entirely in Therion with some editing of Metapost and TeX. Logos were created in some other programs.
> 
> Juraj Halama is not in front of his computer now, he will answer you later.
> 
> Martin
> _______________________________________________
> Therion mailing list
> Therion at speleo.sk <mailto:Therion at speleo.sk>
> https://mailman.speleo.sk/listinfo/therion <https://mailman.speleo.sk/listinfo/therion>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mailman.speleo.sk/pipermail/therion/attachments/20201211/1c42f19f/attachment.htm>