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 <alastairg...@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-boun...@speleo.sk <mailto:therion-boun...@speleo.sk>>
> on behalf of Martin Sluka via Therion <therion@speleo.sk
> <mailto:therion@speleo.sk>>
> Sent: 01 December 2020 15:41
> To: List for Therion users <therion@speleo.sk <mailto:therion@speleo.sk>>
> Cc: Martin Sluka <martinsl...@me.com <mailto:martinsl...@me.com>>
> Subject: Re: [Therion] Vertical scalebar created by Juraj Halama added to wiki
>
>
>
>> 29. 11. 2020 v 23:15, Bruce Mutton <br...@tomo.co.nz
>> <mailto:br...@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@speleo.sk <mailto:Therion@speleo.sk>
> https://mailman.speleo.sk/listinfo/therion
> <https://mailman.speleo.sk/listinfo/therion>
_______________________________________________
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion
