encoding  utf-8

source

 
 survey example 

   centerline
 units length 1 meter
     date 2009.10.15@03:43:00.00
     walls off
     cs UTM15

# 

 sd length 0.08 meter        
  sd compass 3.0 degrees
  sd clino 1.5 degrees  
  data normal from to length compass clino left right up down

B004 B005 1.58496 128.5 43.5 0.1524 0.1524 0.1524 0.1524
B011 B012 6.30936 142.4 5.1 0.3048 0.3048 0.6096 0.9144
B004 B006 5.15112 57.5 76.0 0.9144 0.9144 0.9144 0.9144
B013 B014 0.4572 323.9 -0.45 0.3048 0.3048 0.6096 0.9144
B011.1 B011.2 0.4572 323.9 -0.01 0.3048 0.3048 0.6096 0.9144
B001 B003 3.048 146.1 -1.1 0.3048 0.3048 0.6096 0.9144
B011 B011.1 6.157 50.5 3.35 0.305 0.305 0.61 0.914
B004 B007 3.74904 54.9 -6.7 0.3048 0.3048 0.6096 0.9144
B001 B002 3.23088 314.1 -0.65 0.3048 0.3048 0.6096 0.9144
B007 B008 0.762 313.4 1.65 0.3048 0.3048 0.6096 0.9144
B013 B015 11.85672 53.4 -0.05 0.3048 0.3048 0.6096 0.9144
B009 B010 6.58368 305.6 1.35 0.3048 0.3048 0.36576 0.36576
B009 B011 0.51816 41.4 -14.15 0.3048 0.3048 0.6096 0.9144
B003 B004 12.10056 49.4 -4.75 0.3048 0.3048 0.6096 0.9144
B011.1 B013 6.15696 50.5 3.35 0.3048 0.3048 0.6096 0.9144
B007 B009 6.58368 51.5 0.05 0.3048 0.3048 0.6096 0.9144
      
   endcenterline


scrap example-11-18-th2

point 0 0 station -name B007
point 100 0 station -name B009
line wall -outline out -attr color "color col; col:=(.5,0,0);"
100  4.62962962962963
0  4.62962962962963
endline
line wall -outline out -attr color "color col; col:=(.5,0,0);" 
0  -4.62962962962963
100  -4.62962962962963
endline
endscrap

scrap example-11-19-th2

point 1 0 station -name B009
point 101 0 station -name B010
line wall -outline out -attr color "color col; col:=(.5,0,0);"
101  4.62962962962963
1  4.62962962962963
endline
line wall -outline out -attr color "color col; col:=(.5,0,0);"
1  -4.62962962962963
101  -4.62962962962963
endline
endscrap

endsurvey
endsource

layout moj
scale 1 50 
debug station-names
color map-fg scrap
color labels off
debug on
code metapost
  def l_survey_cave (expr p) =
    draw p withpen PenD withcolor (0.3,1,0.3);
  enddef;
endlayout

export map -projection plan -output cave_ms_B007_B009_B010_corrected.pdf -layout moj

