[Therion] Caver on the map...

2020-12-13 Thread 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...


cavers.pdf
Description: Adobe PDF document
___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion


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

2020-12-07 Thread Juraj Halama
Logic of the plan partion of Vajsablova map:

It is very simple. Indivual layers around whole black cave contour are just
previews below with offsets (and *color preview-below 0*).

To show interconnections between layers itself and individual layers to the
cave contour is a little bit more difficult.

I used very simple scraps contained just one "double point":





*scrap plan_1-6 -projection plan -scale [-128 -1989 1689 -1989 0.0 0.0
46.1518 0.0 m]  point 0.0 0.0 station -name 1.6@vajsablova -subtype fixed
point 0.0 0.0 map-connectionendscrap*
Then I created maps for each of them:



*map plan_con_1-6  plan_1-6endmap*

The I created maps for showing interconnections between layers (example for
two maps):




*map plan_con_1-6_1-6  plan_con_1-6  plan_con_1-6 [12.5 0 m] noneendmap*




*map plan_con_2-1_2-1  plan_con_2-1  plan_con_2-1 [0 15 m] noneendmap*

And finally I created whole map with "just interconnections maps" on the
top and individual layers (with the same offsets ofcourse):














*map plan  plan_con_1-0 [0 17.5 m] none  plan_con_1-6_1-6 [-12.5 17.5 m]
none  plan_con_2-1_2-1 [-12.5 2.5 m] none  plan_con_2-11_2-11 [-12.5 -10 m]
none  plan_con_2-13_2-13 [-12.5 -25 m] none  plan_con_2-17_2-17 [-12.5 -45
m] none  plan_stara [0 17.5 m] below  plan_prezident [-12.5 17.5 m] below
plan_pod-prezidentom [-12.5 2.5 m] below  plan_podavania [-12.5 -10 m]
below  plan_zabudnuta [-12.5 -25 m] below  plan_zabia_vytrvalost_170 [-12.5
-45 m] belowendmap*

The first point is different, because it has not interconnecton to the
other (higher) level but just to the cave contour...

The offsets used for showing interconnections between layers are manualy
computed as diferences between layers to the contour ofsetts:















*map plan_con_1-6_1-6  plan_con_1-6  plan_con_1-6 [Ax-Bx Ay-By m]
noneendmapmap plan_con_2-1_2-1  plan_con_2-1  plan_con_2-1 [Bx-Cx By-Cy m]
noneendmapmap plan  plan_con_1-0 [Ax Ay m] none  plan_con_1-6_1-6 [Bx By m]
none  plan_con_2-1_2-1 [Cx Cy m] none  ...*

Yes it is posible to do it different ways, but this by this way you can see
part of survey line pointing to stations which are not on the partial maps
also...

Juraj Halama
___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion