[Therion] Caver on the map...

[Juraj Halama]

Two new point symbols: walking and climbing man in scale on the map...

picture u_man_c_pic;
u_man_c_pic := image (
  draw (0cm, -0cm) -- (-8cm, 27cm) -- (-36cm, 55cm) -- (-50cm, 99cm)
withpen pencircle scaled 16cm;
  draw (27cm, 48cm) -- (0, 64cm) -- (-29cm, 61cm) -- (-38cm, 102cm)
 withpen pencircle scaled 16cm;
  draw (-65cm, 48cm) -- (-75cm, 75cm) -- (-53cm, 106cm) -- (0, 106cm)
withpen pencircle scaled 14cm;
  draw (-44cm, 130cm) withpen pencircle scaled 27cm withcolor black;
) shifted (20cm, -67cm);

picture u_man_w_pic;
u_man_w_pic := image (
  draw (0, 0) -- (7.5cm, 36cm) -- (0cm, 69cm) -- (9cm, 99cm) withpen
pencircle scaled 16cm;
  draw (42cm, 9cm) -- (37.5cm, 42cm) -- (13.5cm, 69cm) -- (30cm, 102cm)
withpen pencircle scaled 16cm;
  draw (21.5cm, 100.5cm) -- (6.6cm, 69cm) withpen pencircle scaled 16cm;
  draw (-24cm, 75cm) -- (-13.5cm, 102cm) -- (9cm, 112.5cm) -- (30cm, 108cm)
-- (51cm, 87cm) -- (75cm, 93cm) withpen pencircle scaled 14cm;
  draw (30cm, 132cm) withpen pencircle scaled 27cm withcolor black;
) shifted (-20cm, -70cm);

def p_u_man_c (expr P, R, S, A) =
  U := (60cm, 85cm) scaled (0.01 / Scale);
  T:=identity aligned A rotated R scaled S shifted P;
  thdraw u_man_c_pic scaled (0.01 / Scale);
enddef;

def p_u_man_w (expr P, R, S, A) =
  U := (60cm, 80cm) scaled (0.01 / Scale);
  T:=identity aligned A rotated R scaled S shifted P;
  thdraw u_man_w_pic scaled (0.01 / Scale);
enddef;

def p_u_man_c_legend =
  draw u_man_c_pic scaled (u / 175cm) shifted ((.5, .5) inscale);
enddef;

def p_u_man_w_legend =
  draw u_man_w_pic scaled (u / 175cm) shifted ((.5, .5) inscale);
enddef;



text en "point u:man_w" "caver (walking)"
text en "point u:man_c" "caver (climbing)"

Notes:
Use "-align top" for proper alignment of the walking man when his point is
on the groung.
Climbing one has center where the rope should go on the harness...
The scale on the map and in the legend is matching just for 1:500...
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mailman.speleo.sk/pipermail/therion/attachments/20201213/8b3a0b8c/attachment.htm>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: cavers.pdf
Type: application/pdf
Size: 7532 bytes
Desc: not available
URL: <http://mailman.speleo.sk/pipermail/therion/attachments/20201213/8b3a0b8c/attachment.pdf>