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
