encoding  utf-8
source AllieSpringCave.th
input ../TherionMasterFiles/CustomSymbolsCode.txt

# This layout is for the main 2D map, all on one page
layout basics
	units imperial
	scale-bar 50 feet
	page-numbers on
	north true
	rotate 0
	symbol-color group centerline [0 80 0]
	symbol-color area water [0 0 100]
	map-comment "A compass and tape survey of Allie Spring Cave (PUL-317), Pulaski County, Missouri"
	statistics explo all
	legend on
	map-header 3 65 w
	symbol-set UIS


# Section for PDF properties
	doc-author "Bill Gee"
	doc-title "Map of Allie Spring Cave (PUL-317)"
	doc-subject "Plan map of Allie Spring Cave (PUL-317)"

# Section for map photos

# Add in the elevations maps
# Entrance passage profile
#   map-image 0 -3 nw AllieSpringCaveElev1.pdf
   
# D side passage profile
#   map-image 8 41 sw AllieSpringCaveElev2.pdf
   
# C side passage profile
#   map-image 24 5 sw AllieSpringCaveElev3.pdf
   
# B side passage profile - Main cave passage
#   map-image 20 100 sw AllieSpringCaveElev4.pdf
   
# B side passage profile part two
#   map-image 20 93 sw AllieSpringCaveElev5.pdf

# Bring in the custom symbols
  copy CustomSymbols

# Reassign names 
  symbol-assign point gradient AMER
  symbol-assign point stalagmite AMER
  symbol-assign point stalactite AMER
  symbol-assign point pillar AMER
  symbol-assign point popcorn AMER
  
endlayout

layout mainmapnocolor
  copy basics
  symbol-show group centerline
  debug station-names
  scale 1 200
  color map-fg [100 86 66]
  
# Change the size of the legend
code metapost
   tmpscale=1.8;
   def draw_legend_box =
       % Next line controls size of symbol in each symbol table box
        currentpicture := currentpicture scaled tmpscale;
        % Next line controls size of symbol table box background
        clip currentpicture to unitsquare inscale xscaled tmpscale yscaled tmpscale;
        drawoptions();
        pickup PenB;
        % I think the next line controls the size of each symbol table box
        draw unitsquare inscale xscaled tmpscale yscaled tmpscale;
    enddef;
 
    %clear the background of the larger legend boxes   
    def clean_legend_box =
        unfill unitsquare inscale xscaled tmpscale yscaled tmpscale;
    enddef;
   
    %change the value of inscale to fill the legend boxes
    def inscale =
        xscaled (legend_scale*tmpscale) yscaled (0.618*legend_scale*tmpscale)
    enddef;
endcode
 
code tex-map
  \def\maplayout{
    \legendbox{3}{65}{W}{
      \def\txtsize{40}  % Define the default text size
      \legendwidth=50 cm
      \legendtextsectionsize={\size[\txtsize]}
      \legendtextsize={\size[\txtsize]}
      \legendtextheadersize={\size[80]}
      \hsize=\legendwidth
      \the\legendcontent={\size[\txtsize]}
      \the\legendtextsize\ss\ Map generated on \the\currentdate\medskip
      \the\legendtextsize\ss\ Therion version \the\thversion
      }
  }
endcode 
#end of TeX code to change legend size
endlayout

layout mainmapwithcolor
  copy basics
  symbol-show group centerline
  debug station-names
  scale 1 200
  color map-fg altitude
endlayout

layout mainmapprint
  copy basics
  scale 1 800
  debug off
  symbol-hide group centerline
  color map-fg [100 86 66]

# Change the size of the legend
code metapost
   tmpscale=1.3;
   def draw_legend_box =
       % Next line controls size of symbol in each symbol table box
        currentpicture := currentpicture scaled tmpscale;
        % Next line controls size of symbol table box background
        clip currentpicture to unitsquare inscale xscaled tmpscale yscaled tmpscale;
        drawoptions();
        pickup PenB;
        % I think the next line controls the size of each symbol table box
        draw unitsquare inscale xscaled tmpscale yscaled tmpscale;
    enddef;
 
    %clear the background of the larger legend boxes   
    def clean_legend_box =
        unfill unitsquare inscale xscaled tmpscale yscaled tmpscale;
    enddef;
   
    %change the value of inscale to fill the legend boxes
    def inscale =
        xscaled (legend_scale*tmpscale) yscaled (0.618*legend_scale*tmpscale)
    enddef;
endcode
 
code tex-map
  \def\maplayout{
    \legendbox{3}{65}{W}{
      \def\txtsize{16}  % Define the default text size
      \legendwidth=20 cm
      \legendtextsectionsize={\size[\txtsize]}
      \legendtextsize={\size[\txtsize]}
      \legendtextheadersize={\size[40]}
      \hsize=\legendwidth
      \the\legendcontent={\size[\txtsize]}
      \the\legendtextsize\ss\ Map generated on \the\currentdate\medskip
      \the\legendtextsize\ss\ Therion version \the\thversion
      }
  }
endcode 
#end of TeX code to change legend size
  
endlayout  

# Change the legend callouts
  text en_US "point u:stalagmaflat_AMER" "stalagmaflat"
  text en_US "line u:dripline_AMER" "dripline"
  text en_US "point u:pendant" "pendant"
  text en_US "point u:stromatolite" "stromatolite"
  
# Now list all the map files to be created.

# The main plan map
export map -proj plan -layout mainmapnocolor -o AllieSpringCave.pdf

# The main map for printing
export map -proj plan -layout mainmapprint -o AllieSpringCavePrint.pdf

# Main plan map with elevations colorized
export map -proj plan -layout mainmapwithcolor -o AllieSpringCaveColored.pdf

# Create an atlas map
# export atlas -proj plan -layout mainmapnocolor -o AllieSpringCaveAtlas.pdf

# create a centerline map using XVI format
# export map -proj plan -fmt xvi -o AllieSpringCave.xvi

# Create a 3d map for use with Loch
# export model -fmt loch -o AllieSpringCave.lox

# Create a 3d map for use with Survex/Aven
# export model -fmt 3d -o AllieSpringCave.3d

# Create a KML file for Google Earth
# export map -proj plan -fmt kml -output AllieSpringCave.kml