encoding  utf-8


source topo1.th

select topo1-map_plan@topo1
#select topo1-map_section@topo1

export map -proj plan -o topo1-plan.pdf \
 -layout local


#export map -proj extended -o topo1-section.pdf \
# -layout local
 

layout local

    scale 1 100
    scale-bar 20 m
    map-comment "Масштаб 1:100"
	
    # base-scale 1 200 #(<размер изображения> <реальный размер> оптический зум карты с фактором (scale/base-scale))
    
    #покрасить альтитудой (comment out this for b&w PDFs or for single colour filled passages)
    #color map-fg altitude # scrap map
	
    #Заливка ходов одним цветом (comment out this for b&w PDFs or for colour by altitude)
    color map-fg [97 86 38] # бледно-желтый
	
    #Заливка фона карты цветом (comment these out for white background, or include one for background colour)
    #color map-bg [75 75 75] # светло-серый
    
    legend on
    
    language ru
	
    map-comment "Copyright 2017 Клуб Спелеологов МГУ"
    
    #настройка сетки
    north grid
    grid-size 10 10 10 m	
    grid bottom
    grid-coords border
    
    rotate 0
    
    map-header 0 100 se
    map-header-bg on
    
      
	# Заголовок          
code tex-map
  
		\edef\temp{\the\cavename}   % название пещеры из данных Therion
		\edef\nostring{}            % пустая строка
		\ifx\temp\nostring          % проверка: если название пещеры пустое
			% если пустое, то присвоить cavename для описания всех выбранных maps  вместе
			\cavename={Пещера Фантазия} 		
		\else % если НЕ пустое, сохранить значение из данных therion, либо переназначить название отсюда
		\fi
	% Задать значение "club" для добавления строчки в заголовок
	%\newtoks\club \club={Клуб спелеологов МГУ}
	
     \def\maplayout{
      \legendbox{5}{90}{NW}{
        \legendwidth 30 cm
        \the\legendcontent
        }
      \legendbox{35}{80}{NW}{
        \legendwidth 32 cm
        \legendtextsize={\size[20]}
        \hsize=\legendwidth
        \input th_legend
        }
      %\legendbox{05}{40}{NW}{
       % \legendwidth 65 cm
       % \legendtextsize={\size[20]}
       % \hsize=\legendwidth
       % \input th_legendcolor
       % }
      \legendbox{35}{90}{NW}{\northarrow}
        }               
endcode 
    
code metapost
    
    	# Болеее интересная стрелка на север!
	def s_northarrow (expr rot) =
		begingroup
			interim defaultscale:=1; % изменить размер указания на север через этот параметр
			T:=identity scaled defaultscale rotated -rot;
			interim linecap:=squared;
			interim linejoin:=rounded;
			thfill (-.5cm,-.1cm)--(0,2.5cm)--(.5cm,-.1cm)--cycle;
			pickup pencircle scaled (0.08cm * defaultscale);
			thdraw (0,0)--(0,-2.5cm);
			pickup pencircle scaled (0.16cm * defaultscale);
			p:=(0.4cm,0.6cm);
			thdraw ((p--(p yscaled -1)--(p xscaled -1)--(p scaled -1)) shifted (0,-1.0cm));
			label.rt(thTEX("mg") scaled 1.6, (.6cm,-1.6cm)) transformed T;
		endgroup;
	enddef; 
    
     	# Измененная масштабная линейка
	def s_scalebar (expr l, units, txt) =
		begingroup
			interim warningcheck:=0;
			tmpl:=l / Scale * cm * units / 2;
			tmpx:=l / Scale * cm * units / 5;
			tmph:=5bp; % bar height
		endgroup;
		pickup PenC;
		draw (-tmpl,0)--(tmpl,0)--(tmpl,-tmph)--(-tmpl,-tmph)--cycle;
		p:=(0,0)--(tmpx,0)--(tmpx,-tmph)--(0,-tmph)--cycle;
		for i:=-2.5 step 2 until 2:
			fill p shifted (i * tmpx,0);
		endfor;
		begingroup
			interim labeloffset:=3.5bp;
			for i:=0 step (l/5) until (l-1):
				tmpx:=tmpl * (i * 2 / l - 1);
			label.bot(thTEX(decimal (i)),(tmpx,-tmph));
			endfor;
			label.bot(thTEX(decimal (l) & "\thinspace" & txt),(tmpl,-tmph));
			% To write the scale "1:scale"; Comment it ?
			 label.top(thTEX(" Scale 1 : " & decimal (Scale*100)),(0,0));
		endgroup;
	enddef; 
	
endcode
    
    
endlayout
