[Therion] RES: Two scraps, one river...
Paul Karoshi
riza at sbox.tugraz.at
Fri Dec 19 17:37:50 CET 2008
Hello,
here I send you my examples.
I hope this will help you. Feel free to ask if there are still questions.
Greetings, Paul
Quoting Fabio Kok Geribello <fabio at geribello.com.br>:
> Hi Paul,
>
> Thank you for your response, I tried but still couldn’t get a good
> result. Could you please send me an example...
>
> Fabio
>
> -----Mensagem original-----
> De: therion-bounces at speleo.sk [mailto:therion-bounces at speleo.sk] Em
> nome de Paul Karoshi
> Enviada em: quarta-feira, 17 de dezembro de 2008 09:01
> Para: List for Therion users
> Assunto: Re: [Therion] Two scraps, one river...
>
> Hi,
>
> what you can do:
>
> just connect the borders. Therefor you have to draw the area with
> several borders but thats no problem.
>
> So: area_scrap1 consists of border_1, border_2 and border_3
> area_scrap2 consists of border_4, border_5 ans border_6
>
> then use
> join border_1 border_4
> join border_2 border_3
> in your .th-file
>
> If you still got questions i will send you an .th2 as example
>
>
> Paul
>
>
>
>
>
>
> Quoting Fabio Kok Geribello <fabio at geribello.com.br>:
>
>> Hi all,
>>
>>
>>
>> We´re using Therion to produce maps for many caves in Brazil but I´m having
>> some poor results wen I have to join scraps with intersecting areas….
>>
>>
>>
>> I know that Therion is only able to join lines so how do I represent a
>> river, for exemple that spreads between two or more scraps?
>>
>>
>>
>> Usualy there is a gap appearing due to the scraps adjustments…
>>
>>
>>
>> Is there any trick to solve that?
>>
>>
>>
>> Thank you,
>>
>> Fabio
>>
>>
>>
>>
>
>
>
> _______________________________________________
> Therion mailing list
> Therion at speleo.sk
> http://mailman.speleo.sk/mailman/listinfo/therion
>
> _______________________________________________
> Therion mailing list
> Therion at speleo.sk
> http://mailman.speleo.sk/mailman/listinfo/therion
>
-------------- next part --------------
encoding utf-8
survey xx_xxx_buildup -title "xx_xxx_buildup"
input xx_xxx_data_20080815_PK.th
input xx_xxx_sketch_20080815_PK.th2
centreline
#equate
endcentreline
join wall_11 wall_21
join wall_12 wall_22
join border_11 border_21
join border_12 border_22
map xx_xxx_plan -title "xx_xxx Plan- and Extended View"
xx_xxx_scrap_plan_1
break
xx_xxx_scrap_plan_2
endmap
map xx_xxx_extended -title "xx_xxx Extended View" -projection extended
xx_xxx_scrap_extended
endmap
endsurvey
-------------- next part --------------
encoding utf-8
survey xx_xxx_data -title "xx_xxx_data"
centreline
#team ""
#team ""
#team ""
#team ""
#date 2007.9.2
units compass clino degrees
data normal from to length clino compass
12 13 8 -27 355
13 14 3.9 -54 300
13 15 3 0 50
14 16 12 -68 355
16 17 12.4 -90 0
17 18 3.3 -10 285
18 19 9.2 -90 0
extend start 12
extend right 13
endcentreline
endsurvey
-------------- next part --------------
encoding utf-8
##XTHERION## xth_me_area_adjust 147.0 -462.0 587.25 9.75
##XTHERION## xth_me_area_zoom_to 400
scrap xx_xxx_scrap_extended -projection extended -scale [0 0 1600 0 0.0 0.0 40.64 0.0 m]
point 458.0 -119.5 station -name 15 at xx_xxx_data
endscrap
scrap xx_xxx_scrap_plan_1 -projection plan -scale [0 0 1600 0 0.0 0.0 40.64 0.0 m]
point 439.75 -209.0 station -name 15 at xx_xxx_data
line wall -id wall_22
428.5 -304.5
424.75 -297.5 408.25 -263.0 410.5 -255.0
412.75 -247.0 450.5 -219.25 454.0 -213.25
457.5 -207.25 447.0 -205.0 439.75 -209.0
432.5 -213.0 414.0 -230.5 405.75 -232.25
397.5 -234.0 380.5 -236.75 374.25 -228.5
endline
line border -id l48-345--223
368.5 -228.25
362.25 -220.25
333.5 -225.75
334.25 -237.25
endline
area water
l48-345--223
border_21
border_22
endarea
line border -id border_22
411.25 -241.25
406.25 -239.5 401.0 -238.25 396.0 -238.25
370.5 -238.25 368.5 -228.25 368.5 -228.25
smooth off
endline
line border -id border_21
334.25 -237.25
340.0 -244.5
340.0 -244.5 345.54 -246.26 352.25 -248.5
358.25 -250.5 364.03 -247.48 366.5 -247.0
376.75 -245.0 385.75 -241.75 388.25 -247.25
390.75 -252.75 392.5 -265.75 392.5 -265.75
smooth off
403.0 -264.25
411.25 -241.25
endline
line wall -subtype invisible
374.25 -228.5
350.5 -227.5
331.5 -238.75
endline
line wall -id wall_21
331.5 -238.75
333.25 -248.5 349.25 -258.75 356.25 -255.75
363.25 -252.75 381.25 -246.25 383.5 -251.25
385.75 -256.25 391.0 -293.25 387.25 -301.75
endline
point 350.5 -227.5 station -name 14 at xx_xxx_data
point 401.5 -247.0 station -name 13 at xx_xxx_data
point 402.75 -332.75 station -name 12 at xx_xxx_data
endscrap
scrap xx_xxx_scrap_plan_2 -projection plan -scale [0 0 1600 0 0.0 0.0 40.64 0.0 m]
point 347.5 -142.75 station -name 16 at xx_xxx_data
line border
endline
line wall -subtype invisible
373.0 -206.25
350.75 -208.5
321.25 -210.75
endline
line wall -id wall_11
306.25 -202.25
309.0 -197.5 305.75 -200.0 308.0 -191.25
310.25 -182.5 306.25 -165.25 317.0 -156.0
327.75 -146.75 339.5 -143.25 346.0 -149.25
352.5 -155.25 346.75 -167.0 344.25 -169.25
341.75 -171.5 319.25 -203.75 321.25 -210.75
endline
line wall -id wall_12
373.0 -206.25
373.85 -200.3 371.75 -179.5 381.0 -176.5
390.25 -173.5 386.0 -175.0 380.0 -169.0
374.0 -163.0 355.0 -152.0 353.75 -144.75
352.5 -137.5 358.5 -134.25 349.0 -131.75
339.5 -129.25 326.75 -123.5 317.5 -130.0
308.25 -136.5 307.0 -150.75 304.5 -154.25
302.0 -157.75 308.25 -152.5 290.0 -169.0
271.75 -185.5 275.25 -191.75 278.75 -195.5
282.25 -199.25 303.5 -210.5 306.25 -202.25
endline
point 305.5 -161.5 station -name 18 at xx_xxx_data
point 347.5 -139.25 station -name 17 at xx_xxx_data
point 350.75 -208.5 station -name 14 at xx_xxx_data
line border -id border_11
350.5 -171.0
350.5 -171.0 330.75 -198.75 332.0 -209.5
endline
area water
l51-337--215
border_11
border_12
endarea
line border -id l51-337--215
332.0 -209.5
333.0 -216.25
364.75 -212.75
363.25 -207.25
endline
line border -id border_12
363.25 -207.25
363.5 -199.25 369.5 -171.5 369.5 -171.5
smooth off
355.75 -159.25
350.5 -171.0
endline
endscrap
-------------- next part --------------
encoding utf-8
source xx_xxx_buildup_20080815_PK.th
select xx_xxx_plan at xx_xxx_buildup
export map -o xx_xxx_plan.pdf -projection plan -layout xx_xxx_layout_plan
unselect xx_xxx_plan at xx_xxx_buildup
select xx_xxx_extended at xx_xxx_buildup
export map -o xx_xxx_extended.pdf -projection extended -layout xx_xxx_layout_extended
unselect xx_xxx_extended at xx_xxx_buildup
#############################################################
layout xx_xxx_layout_extended
map-header 0 0 off
#base-scale 1 50
scale 1 100
language en
statistics topo-length off
statistics explo-length off
legend off
layers off
statistics explo off
statistics topo off
statistics carto off
statistics copyright off
statistics explo-length off
statistics topo-length off
debug station-names
symbol-set UIS
symbol-assign line contour SKBB
symbol-assign point station:temporary SKBB
#debug on
#Dichte der Blockfelder
code metapost
def a_blocks (expr p) =
T:=identity;
pickup PenC;
path q, qq; q = bbox p;
picture tmp_pic;
uu := .5max(u, (xpart urcorner q - xpart llcorner q)/100, (ypart urcorner q - ypart llcorner q)/100);
tmp_pic := image(
for i = xpart llcorner q step 1.0uu until xpart urcorner q:
for j = ypart llcorner q step 1.0uu until ypart urcorner q:
qq := punked (((-.5uu,-.5uu)--(.5uu,-.5uu)--(.5uu,.5uu)--(-.5uu,.5uu)--cycle)
randomized (uu/2))
rotated uniformdeviate(360)
shifted ((i,j) randomized 1.0uu);
if xpart (p intersectiontimes qq) < 0:
thclean qq;
thdraw qq;
fi;
endfor;
endfor;
);
clip tmp_pic to p;
draw tmp_pic;
enddef;
endlayout
#############################################################
layout xx_xxx_layout_plan
map-image 0 130 sw xx_xxx_extended.pdf
#map-image -40 200 center Logo_hb.jpg
#base-scale 1 50
scale 1 100
map-header 0 0 se
#debug station-names
color map-bg 100
transparency on
opacity 70
language en
#statistics topo-length on
statistics explo-length on
legend on
legend-width 15 cm
#layers off
legend-columns 2
#statistics explo off
#statistics topo on
#statistics carto off
#statistics copyright off
#statistics explo-length on
#statistics topo-length off
debug station-names
symbol-set UIS
#Einzelne UIS Symbole durch Symbole aus anderen Normen ersetzen
symbol-assign line contour SKBB
symbol-assign point station:temporary SKBB
#debug on
#Dichte der Blockfelder
code metapost
def a_blocks (expr p) =
T:=identity;
pickup PenC;
path q, qq; q = bbox p;
picture tmp_pic;
uu := 0.5max(u, (xpart urcorner q - xpart llcorner q)/100, (ypart urcorner q - ypart llcorner q)/100);
tmp_pic := image(
for i = xpart llcorner q step 1.0uu until xpart urcorner q:
for j = ypart llcorner q step 1.0uu until ypart urcorner q:
qq := punked (((-.5uu,-.5uu)--(.5uu,-.5uu)--(.5uu,.5uu)--(-.5uu,.5uu)--cycle)
randomized (uu/2))
rotated uniformdeviate(360)
shifted ((i,j) randomized 1.0uu);
if xpart (p intersectiontimes qq) < 0:
thclean qq;
thdraw qq;
fi;
endfor;
endfor;
);
clip tmp_pic to p;
draw tmp_pic;
enddef;
endlayout
More information about the Therion
mailing list