encoding  utf-8
source xx_xxx_buildup_20080815_PK.th

 select xx_xxx_plan@xx_xxx_buildup
 export map  -o xx_xxx_plan.pdf   -projection plan -layout xx_xxx_layout_plan
 unselect xx_xxx_plan@xx_xxx_buildup
 
 select xx_xxx_extended@xx_xxx_buildup
 export map  -o xx_xxx_extended.pdf   -projection extended -layout xx_xxx_layout_extended
 unselect xx_xxx_extended@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