######################################################################
#
# Macro Name    : g:/mining/surpac/survey/ug/prince/trisolren.tcl
#
# Version       : Surpac Vision V5.0-J
#
# Creation Date : Fri Sep 24 16:59:51 2004
#
# Description   : 
#
######################################################################

set status [ SclFunction "CLEAR SCREEN" {} ]

set status [ SclFunction "DRAW OBJECTS" {
  frm00089={
    {
      range1="1"
      range2="1"
      range3=""
      ifld_num="d1"
      textalignment="<"
      legend_location="no legend"
      layer_name="main graphics layer"
    }
  }
}]

set status [ SclFunction "TRISOLATION RENUMBER" {
  select_triangle={
    {
      winx=""
      winy=""
      objectx=""
      objecty=""
      objectz=""
    }
  }
  frm00453={
    {
      newobj="1465"
      newtrisol="1"
    }
  }
}]

set status [ SclFunction "CLEAR SCREEN" {} ]

set status [ SclFunction "DRAW OBJECTS" {
  frm00089={
    {
      range1="1"
      range2="2"
      range3=""
      ifld_num="d1"
      textalignment="<"
      legend_location="no legend"
      layer_name="main graphics layer"
    }
  }
}]

set status [ SclFunction "TRISOLATION RENUMBER" {
  select_triangle={
    {
      winx=""
      winy=""
      objectx=""
      objecty=""
      objectz=""
    }
  }
  frm00453={
    {
      newobj="1465"
      newtrisol="1"
    }
  }
}]

set status [ SclFunction "NEIGHBOURS AND VALIDATE OBJECT" {
  frm00659={
    {
      ob_num="1465"
      location="valid"
      rid="1"
      col_selfint="cyan"
      col_dup="yellow"
      col_touch="orange"
    }
  }
  frm00121={
    {
      _action="apply"
    }
  }
}]

