######################################################################
#
# Macro Name    : c:/documents and settings/all users/gemcom/surpac/61_beta_4/demo_data/tutorials/dtm_surfaces/test.tcl
#
# Version       : Surpac 6.1 Beta 4
#
# Creation Date : Tue Jul 01 14:24:14 2008
#
# Description   : 
#
######################################################################

set status [ SclFunction "EXIT GRAPHICS" {
  frm00108={
    {
      exit_mode="E"
    }
  }
}]

set status [ SclFunction "EXTRACT CONTOUR" {
  frm04949={
    {
      _action="display"
      indloc=""
      dtmfld="Z"
      cloc="contour1"
      conrng="45.561,255.561,10"
      index="N"
      dtmloc="pit1"
      ci="10"
      annloc=""
      deftype="I"
      ptrange=""
      conmin="45.561"
      trisolation_id="1"
      conmax="255.561"
      valind=""
      object_id="1"
      contval="N"
    }
  }
  frm00121=table { _action } {
    { "apply" }
    { "apply" }
    { "apply" }
  }
}]

set status [ SclFunction "RECALL ANY FILE" {
  file="pit1.dtm"
  mode="openInNewLayer"
}]

set status [ SclFunction "RECALL ANY FILE" {
  file="contour1.str"
  mode="openInNewLayer"
}]
puts ""
puts ""
puts "_08a_create_dtm_contours_file_based.tcl has finished"