[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