Plot Tool Query Functions

PCL Examples > Results Postprocessing Functions > Plot Tool Query Functions

This section contains examples of some of the functions used to retrieve information regarding currently defined plot tools.


res_display_get_ntools	()

#  Purpose          :  This file provides an example of two calls to

#                      the function res_display_get_ntools()

#                      This session file opens the database "spool.db"

#                      This function is then called to get the number

#                      of tools defined. A fringe plot tool is created

#                      and this function is called again to get the

#                      number of tools defined.

#                      Before running this session file run spool.ses

#                      and create result file spool.op2 as per the

#                      instructions given in it. Import this result

#                      file spool.op2 into spool.db. For instructions

#                      see file spool.ses

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function res_display_get_ntools()

#  has the following arguments:

#  res_display_get_ntools

#     (  plot_type )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_plot_type[32]

INTEGER  i_return_value

#---------------------------------------------------------------------

# Opens the file spool.db

uil_file_open.go ("spool.db")

#---------------------------------------------------------------------

# Get the number of tools defined

s_plot_type    = ""

i_return_value =                                 @

   res_display_get_ntools                        @

      (  s_plot_type )

dump i_return_value

#---------------------------------------------------------------------

# Create a fringe plot tool

i_return_value =                                 @

   res_display_fringe_create                     @

      (  "new_plot_tool", "FreeFaces", 0, [""],  @

         12, [ "Range:Fri_default_Fringe",       @

         "RangeOverwrite:ON",                    @

         "FringeStyle:Discrete/Smooth",          @

         "Shade:None",                           @

         "ElemEdge:FreeEdge,Green,Solid,1",      @

         "Shrink:0", "TitleDisplay:ON",          @

         "MinMaxDisplay:ON", "ValueDisplay:OFF", @

         "Filter:None", "ScaleFactor:1.",        @

         "LabelStyle:Exponential, 12, White, 3"], TRUE )

dump i_return_value

#---------------------------------------------------------------------

# Get the number of tools defined

i_return_value =                                 @

   res_display_get_ntools                        @

      (  s_plot_type )

dump i_return_value

#---------------------------------------------------------------------


res_display_get_nposted_tools	()

#  Purpose          :  This file provides an example of two calls to

#                      the function res_display_get_nposted_tools()

#                      This session file opens the database "spool.db"

#                      A fringe plot tool is created and this function

#                      is called to get the number of posted tools.

#                      The fringe plot is then posted to the viewport

#                      and this function is called again to get the

#                      number of posted tools.

#                      Before running this session file run spool.ses

#                      and create result file spool.op2 as per the

#                      instructions given in it. Import this result

#                      file spool.op2 into spool.db. For instructions

#                      see file spool.ses

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function res_display_get_nposted_tools()

#  has the following arguments:

#  res_display_get_nposted_tools

#     (  plot_type,

#        view_id )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_plot_type[32]

INTEGER  i_view_id

INTEGER  i_return_value

#---------------------------------------------------------------------

# Opens the file spool.db

uil_file_open.go ("spool.db")

#---------------------------------------------------------------------

# Create a fringe plot tool

i_return_value =                                 @

   res_display_fringe_create                     @

      (  "new_plot_tool", "FreeFaces", 0, [""],  @

         12, [ "Range:Fri_default_Fringe",       @

         "RangeOverwrite:ON",                    @

         "FringeStyle:Discrete/Smooth",          @

         "Shade:None",                           @

         "ElemEdge:FreeEdge,Green,Solid,1",      @

         "Shrink:0", "TitleDisplay:ON",          @

         "MinMaxDisplay:ON", "ValueDisplay:OFF", @

         "Filter:None", "ScaleFactor:1.",        @

         "LabelStyle:Exponential, 12, White, 3"], TRUE )

dump i_return_value

#---------------------------------------------------------------------

# Get the number of posted tools

s_plot_type    = ""

i_view_id      = 0

i_return_value =                                 @

   res_display_get_nposted_tools                 @

      (  s_plot_type,                            @

         i_view_id )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

# Post the fringe plot to the viewport

i_return_value =                                 @

   res_data_load_dbresult                        @

      (  0, "Nodal", "Scalar", "SPOOL_LOADS",    @

         "Static Subcase", "Stress Tensor", "",  @

         "At Z1", "VONM", "AsIs",                @

         "DeriveAverage", "All", "ShapeFunc", "", 0. )

dump i_return_value

i_return_value =                                 @

   res_data_title                                @

      (  0, "Nodal", "Scalar", 1, ["SPOOL_LOADS, @

         Static Subcase, Stress Tensor, - von Mises, At Z1"] )

dump i_return_value

i_return_value =                                 @

   res_display_fringe_post                       @

      ( "new_plot_tool", 0, "Nodal", TRUE, TRUE )

dump i_return_value

#---------------------------------------------------------------------

# Get the number of posted tools

i_return_value =                                 @

   res_display_get_nposted_tools                 @

      (  s_plot_type,                            @

         i_view_id )

dump i_return_value

#---------------------------------------------------------------------


res_display_get_posted_tools	()

#  Purpose          :  This file provides an example of two calls to

#                      the function res_display_get_posted_tools()

#                      This session file opens the database "spool.db"

#                      A fringe plot tool is created and this function

#                      is called to get the names and types of posted

#                      tools. The fringe plot is then posted to the

#                      viewport and this function is called again to

#                      get the names and types of posted tools.

#                      Before running this session file run spool.ses

#                      and create result file spool.op2 as per the

#                      instructions given in it. Import this result

#                      file spool.op2 into spool.db. For instructions

#                      see file spool.ses

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function res_display_get_posted_tools()

#  has the following arguments:

#  res_display_get_posted_tools

#     (  plot_type,

#        view_id,

#        tools,

#        types )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_plot_type[32]

INTEGER  i_view_id

STRING   sav_tools[32](VIRTUAL)

STRING   sav_types[32](VIRTUAL)

INTEGER  i_return_value

#---------------------------------------------------------------------

# Opens the file spool.db

uil_file_open.go ("spool.db")

#---------------------------------------------------------------------

# Create a fringe plot tool

i_return_value =                                 @

   res_display_fringe_create                     @

      (  "new_plot_tool", "FreeFaces", 0, [""],  @

         12, [ "Range:Fri_default_Fringe",       @

         "RangeOverwrite:ON",                    @

         "FringeStyle:Discrete/Smooth",          @

         "Shade:None",                           @

         "ElemEdge:FreeEdge,Green,Solid,1",      @

         "Shrink:0", "TitleDisplay:ON",          @

         "MinMaxDisplay:ON", "ValueDisplay:OFF", @

         "Filter:None", "ScaleFactor:1.",        @

         "LabelStyle:Exponential, 12, White, 3"], TRUE )

dump i_return_value

#---------------------------------------------------------------------

# Get the names and types of the posted tools

s_plot_type    = ""

i_view_id      = 0

i_return_value =                                 @

   res_display_get_posted_tools                  @

      (  s_plot_type,                            @

         i_view_id,                              @

         sav_tools,                              @

         sav_types )

dump i_return_value

dump sav_tools

dump sav_types

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

# Post the fringe plot to the viewport

i_return_value =                                 @

   res_data_load_dbresult                        @

      (  0, "Nodal", "Scalar", "SPOOL_LOADS",    @

         "Static Subcase", "Stress Tensor", "",  @

         "At Z1", "VONM", "AsIs",                @

         "DeriveAverage", "All", "ShapeFunc", "", 0. )

dump i_return_value

i_return_value =                                 @

   res_data_title                                @

      (  0, "Nodal", "Scalar", 1, ["SPOOL_LOADS, @

         Static Subcase, Stress Tensor, - von Mises, At Z1"] )

dump i_return_value

i_return_value =                                 @

   res_display_fringe_post                       @

      ( "new_plot_tool", 0, "Nodal", TRUE, TRUE )

dump i_return_value

#---------------------------------------------------------------------

# Get the names and types of the posted tools

s_plot_type    = ""

i_view_id      = 0

i_return_value =                                 @

   res_display_get_posted_tools                  @

      (  s_plot_type,                            @

         i_view_id,                              @

         sav_tools,                              @

         sav_types )

dump i_return_value

dump sav_tools

dump sav_types

sys_free_array(sav_tools)

sys_free_array(sav_types)

#---------------------------------------------------------------------


res_display_get_color_id	()

#  Purpose          :  This file provides an example of a call to the

#                      function res_display_get_color_id()

#                      This session file creates a new database by the

#                      name "new.db". A line is created. This function

#                      is then called to get color identifier for the

#                      input color string. Line color is finally

#                      changed using the color identifier obtained.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function res_display_get_color_id()

#  has the following arguments:

#  res_display_get_color_id

#     (  color_str,

#        color_id )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_color_str[32]

INTEGER  i_color_id

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a line

curve_color(3)

i_return_value =                                 @

   asm_const_line_xyz                            @

      ( "1", "<1 0 0>", "[0 0 0]", "Coord 0", sv_created_ids)

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Get color identifier for the input color string "Green"

s_color_str = "Green"

i_return_value =                                 @

   res_display_get_color_id                      @

      (  s_color_str,                            @

         i_color_id )

dump i_return_value

dump i_color_id

#---------------------------------------------------------------------

#  Change color of the line to "Green" using the obtained color id

curve_color (i_color_id)

sys_free_string(sv_created_ids)

#---------------------------------------------------------------------


res_display_get_color_str	()

#  Purpose          :  This file provides an example of a call to the

#                      function res_display_get_color_str()

#                      This session file creates a new database by the

#                      name "new.db". A line is created. This function

#                      is then called to get color string for the

#                      input color identifier. Line color is also

#                      changed using the same input color identifier.

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function res_display_get_color_str()

#  has the following arguments:

#  res_display_get_color_str

#     (  color_id,

#        color_str )

#---------------------------------------------------------------------

#  Variable Declarations

INTEGER  i_color_id

STRING   s_color_str[32]

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a line

curve_color(3)

i_return_value =                                 @

   asm_const_line_xyz                            @

      ( "1", "<1 0 0>", "[0 0 0]", "Coord 0", sv_created_ids)

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Get color string for the input color identifier

i_color_id = 2

i_return_value =                                 @

   res_display_get_color_str                     @

      (  i_color_id,                             @

         s_color_str )

dump i_return_value

dump s_color_str

#---------------------------------------------------------------------

#  Change color of the line using the same color id

curve_color (i_color_id)

sys_free_string(sv_created_ids)

#---------------------------------------------------------------------


res_display_get_tool_size	()

#  Purpose          :  This file provides an example of a call to the

#                      function res_display_get_tool_size()

#                      This session file opens the database "spool.db"

#                      A fringe plot tool is created and posted. This

#                      function is then called to get the size of the

#                      targets and attributes for this plot tool.

#                      Before running this session file run spool.ses

#                      and create result file spool.op2 as per the

#                      instructions given in it. Import this result

#                      file spool.op2 into spool.db. For instructions

#                      see file spool.ses

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function res_display_get_tool_size()

#  has the following arguments:

#  res_display_get_tool_size

#     (  plot_type,

#        plot_name,

#        ntargets,

#        target_length,

#        nattribs )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_plot_type[32]

STRING   s_plot_name[32]

INTEGER  i_ntargets

INTEGER  i_target_length

INTEGER  i_nattribs

INTEGER  i_return_value

#---------------------------------------------------------------------

# Opens the file spool.db

uil_file_open.go ("spool.db")

#---------------------------------------------------------------------

# Create a fringe plot tool and post it to the viewport

i_return_value =                                 @

   res_data_load_dbresult                        @

      (  0, "Nodal", "Scalar", "SPOOL_LOADS",    @

         "Static Subcase", "Stress Tensor", "",  @

         "At Z1", "VONM", "AsIs",                @

         "DeriveAverage", "All", "ShapeFunc", "", 0. )

dump i_return_value

i_return_value =                                 @

   res_data_title                                @

      (  0, "Nodal", "Scalar", 1, ["SPOOL_LOADS, @

         Static Subcase, Stress Tensor, - von Mises, At Z1"] )

dump i_return_value

i_return_value =                                 @

   res_display_fringe_create                     @

      (  "new_plot_tool", "FreeFaces", 0, [""],  @

         12, [ "Range:Fri_default_Fringe",       @

         "RangeOverwrite:ON",                    @

         "FringeStyle:Discrete/Smooth",          @

         "Shade:None",                           @

         "ElemEdge:FreeEdge,Green,Solid,1",      @

         "Shrink:0", "TitleDisplay:ON",          @

         "MinMaxDisplay:ON", "ValueDisplay:OFF", @

         "Filter:None", "ScaleFactor:1.",        @

         "LabelStyle:Exponential, 12, White, 3"], TRUE )

dump i_return_value

i_return_value =                                 @

   res_display_fringe_post                       @

      (  "new_plot_tool", 0, "Nodal", TRUE, TRUE )

dump i_return_value

#---------------------------------------------------------------------

#  Get size of the targets and attributes for the plot tool

s_plot_type = "Fringe"

s_plot_name = "new_plot_tool"

i_return_value =                                 @

   res_display_get_tool_size                     @

      (  s_plot_type,                            @

         s_plot_name,                            @

         i_ntargets,                             @

         i_target_length,                        @

         i_nattribs )

dump i_return_value

dump i_ntargets

dump i_target_length

dump i_nattribs

#---------------------------------------------------------------------


res_display_get_tool	()

#  Purpose          :  This file provides an example of a call to the

#                      function res_display_get_tool()

#                      This session file opens the database "spool.db"

#                      A fringe plot tool is created. Size of the

#                      targets and attributes for this plot tool is

#                      obtained. This function is then called to get

#                      the definition of the plot tool.

#                      Before running this session file run spool.ses

#                      and create result file spool.op2 as per the

#                      instructions given in it. Import this result

#                      file spool.op2 into spool.db. For instructions

#                      see file spool.ses

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function res_display_get_tool()

#  has the following arguments:

#  res_display_get_tool

#     (  plot_type,

#        plot_name,

#        ent_type,

#        ntargets,

#        targets,

#        nattribs,

#        attributes,

#        deformed_flag )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_plot_type[32]

STRING   s_plot_name[32]

STRING   s_ent_type[32]

INTEGER  i_ntargets

STRING   sav_targets[128](VIRTUAL)

INTEGER  i_nattribs

STRING   sav_attributes[128](VIRTUAL)

LOGICAL  l_deformed_flag

INTEGER  i_target_length

INTEGER  i_return_value

#---------------------------------------------------------------------

# Opens the file spool.db

uil_file_open.go ("spool.db")

#---------------------------------------------------------------------

# Create a fringe plot tool and post it to the viewport

i_return_value =                                 @

   res_data_load_dbresult                        @

      (  0, "Nodal", "Scalar", "SPOOL_LOADS",    @

         "Static Subcase", "Stress Tensor", "",  @

         "At Z1", "VONM", "AsIs",                @

         "DeriveAverage", "All", "ShapeFunc", "", 0. )

dump i_return_value

i_return_value =                                 @

   res_data_title                                @

      (  0, "Nodal", "Scalar", 1, ["SPOOL_LOADS, @

         Static Subcase, Stress Tensor, - von Mises, At Z1"] )

dump i_return_value

i_return_value =                                 @

   res_display_fringe_create                     @

      (  "new_plot_tool", "FreeFaces", 0, [""],  @

         12, [ "Range:Fri_default_Fringe",       @

         "RangeOverwrite:ON",                    @

         "FringeStyle:Discrete/Smooth",          @

         "Shade:None",                           @

         "ElemEdge:FreeEdge,Green,Solid,1",      @

         "Shrink:0", "TitleDisplay:ON",          @

         "MinMaxDisplay:ON", "ValueDisplay:OFF", @

         "Filter:None", "ScaleFactor:1.",        @

         "LabelStyle:Exponential, 12, White, 3"], TRUE )

dump i_return_value

i_return_value =                                 @

   res_display_fringe_post                       @

      (  "new_plot_tool", 0, "Nodal", TRUE, TRUE )

dump i_return_value

#---------------------------------------------------------------------

#  Get size of the targets and attributes for the specified plot tool

s_plot_type = "Fringe"

s_plot_name = "new_plot_tool"

i_return_value =                                 @

   res_display_get_tool_size                     @

      (  s_plot_type,                            @

         s_plot_name,                            @

         i_ntargets,                             @

         i_target_length,                        @

         i_nattribs )

dump i_return_value

dump i_ntargets

dump i_nattribs

#---------------------------------------------------------------------

#  Allocate memory for the arrays and reset the values

IF( i_ntargets > 0 ) THEN

   sys_allocate_array( sav_targets, 1, i_ntargets)

ENDIF

IF( i_nattribs > 0 ) THEN

   sys_allocate_array( sav_attributes, 1, i_nattribs)

ENDIF

i_ntargets = 100

i_nattribs = 100

#---------------------------------------------------------------------

#  Get the definition for the specified plot tool

i_return_value =                                 @

   res_display_get_tool                          @

      (  s_plot_type,                            @

         s_plot_name,                            @

         s_ent_type,                             @

         i_ntargets,                             @

         sav_targets,                            @

         i_nattribs,                             @

         sav_attributes,                         @

         l_deformed_flag )

dump i_return_value

dump s_ent_type

dump i_ntargets

dump sav_targets

dump i_nattribs

dump sav_attributes

dump l_deformed_flag

sys_free_array(sav_targets)

sys_free_array(sav_attributes)

#---------------------------------------------------------------------


res_display_get_graph	()

#  Purpose          :  This file provides an example of a call to the

#                      function res_display_get_graph()

#                      This session file opens the database "spool.db"

#                      A graph plot tool is created. This function

#                      is then called twice to get the definition of

#                      this graph plot tool.

#                      Before running this session file run spool.ses

#                      and create result file spool.op2 as per the

#                      instructions given in it. Import this result

#                      file spool.op2 into spool.db. For instructions

#                      see file spool.ses

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function res_display_get_graph()

#  has the following arguments:

#  res_display_get_graph

#     (  plot_name,

#        graph_type,

#        entity_type,

#        ntargets,

#        targets,

#        nattribs,

#        attributes )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_plot_name[32]

STRING   s_graph_type[32]

STRING   s_entity_type[32]

INTEGER  i_ntargets

STRING   saa_targets[64](10)

INTEGER  i_nattribs

STRING   saa_attributes[64](20)

INTEGER  i_return_value

#---------------------------------------------------------------------

# Opens the file spool.db

uil_file_open.go ("spool.db")

#---------------------------------------------------------------------

# Create and post a graph plot tool

i_return_value =                                 @

   res_data_load_dbresult                        @

      (  0, "Nodal", "Scalar", "SPOOL_LOADS",    @

         "Static Subcase", "Displacements",      @

         "Translational", "(NON-LAYERED)", "MAG",@

         "AsIs", "", "", "", "", 0. )

dump i_return_value

i_return_value =                                 @

   res_data_title                                @

      (  0, "Nodal", "Scalar", 1,                @

         ["Displacements, Translational, MAG"] )

dump i_return_value

i_return_value =                                 @

   res_data_load_dbresult                        @

      (  -1, "Nodal", "Scalar", "SPOOL_LOADS",   @

         "Static Subcase", "Stress Tensor", "",  @

         "At Z1", "VONM", "AsIs", "", "", "", "", 0. )

dump i_return_value

i_return_value =                                 @

   res_data_title                                @

      (  -1, "Nodal", "Scalar", 1, ["Stress Tensor, VONM"] )

dump i_return_value

i_return_value =                                 @

   res_display_graph_create                      @

      (  "new_graph_plot_tool", "DataData",      @

         "Nodes", 1, ["NO:Node 1:100"],          @

         13, ["curveFitMethod:Linear",           @

         "curveStyle:Solid", "symbolDisplay:OFF",@

         "xAxisLabelDisplay:ON",                 @

         "xAxisLabel:Stress",                    @

         "xAxisScale:Linear",                    @

         "xAxisLabelFormat:Integer, 9, White, 0",@

         "yAxisLabelDisplay:ON",                 @

         "yAxisLabel:Displacement",              @

         "yAxisScale:Linear",                    @

         "yAxisLabelFormat:Fixed, 9, White, 2",  @

         "ScaleFactor:1.", "Filter:None", "", ""] )

dump i_return_value

i_return_value =                                 @

   res_display_graph_post                        @

      (  "new_graph_plot_tool", "Nodal", 0, -1,  @

         "Results Graph", FALSE )

dump i_return_value

#---------------------------------------------------------------------

#  Get the definition for the specified graph plot tool

s_plot_name = "new_graph_plot_tool"

i_return_value =                                 @

   res_display_get_graph                         @

      (  s_plot_name,                            @

         s_graph_type,                           @

         s_entity_type,                          @

         i_ntargets,                             @

         saa_targets,                            @

         i_nattribs,                             @

         saa_attributes )

dump i_return_value

dump s_graph_type

dump s_entity_type

dump i_ntargets

dump saa_targets

dump i_nattribs

dump saa_attributes

#---------------------------------------------------------------------


res_display_count_tools	()

#  Purpose          :  This file provides an example of two calls to

#                      the function res_display_count_tools()

#                      This session file opens the database "spool.db"

#                      A fringe plot tool is created and this function

#                      is called to get the number of unposted tools.

#                      Fringe plot is then posted to the viewport and

#                      this function is called again to get the number

#                      unposted tools.

#                      Before running this session file run spool.ses

#                      and create result file spool.op2 as per the

#                      instructions given in it. Import this result

#                      file spool.op2 into spool.db. For instructions

#                      see file spool.ses

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function res_display_count_tools()

#  has the following arguments:

#  res_display_count_tools

#     (  plot_type,

#        status )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_plot_type[32]

INTEGER  i_status

INTEGER  i_return_value

#---------------------------------------------------------------------

# Opens the file spool.db

uil_file_open.go ("spool.db")

#---------------------------------------------------------------------

# Create a fringe plot tool

i_return_value =                                 @

   res_data_load_dbresult                        @

      (  0, "Nodal", "Scalar", "SPOOL_LOADS",    @

         "Static Subcase", "Stress Tensor", "",  @

         "At Z1", "VONM", "AsIs",                @

         "DeriveAverage", "All", "ShapeFunc", "", 0. )

dump i_return_value

i_return_value =                                 @

   res_display_fringe_create                     @

      (  "new_plot_tool", "FreeFaces", 0, [""],  @

         12, [ "Range:Fri_default_Fringe",       @

         "RangeOverwrite:ON",                    @

         "FringeStyle:Discrete/Smooth",          @

         "Shade:None",                           @

         "ElemEdge:FreeEdge,Green,Solid,1",      @

         "Shrink:0", "TitleDisplay:ON",          @

         "MinMaxDisplay:ON", "ValueDisplay:OFF", @

         "Filter:None", "ScaleFactor:1.",        @

         "LabelStyle:Exponential, 12, White, 3"], TRUE )

dump i_return_value

#---------------------------------------------------------------------

# Get the number of unposted tools

s_plot_type    = ""

i_status       = 0

i_return_value =                                 @

   res_display_count_tools                       @

      (  s_plot_type,                            @

         i_status )

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

# Post the fringe plot to the viewport

i_return_value =                                 @

   res_display_fringe_post                       @

      ( "new_plot_tool", 0, "Nodal", TRUE, TRUE )

dump i_return_value

#---------------------------------------------------------------------

# Get the number of unposted tools

i_status       = 0

i_return_value =                                 @

   res_display_count_tools                       @

      (  s_plot_type,                            @

         i_status )

dump i_return_value

#---------------------------------------------------------------------


res_display_get_tool_data	()

#  Purpose          :  This file provides an example of a call to the

#                      function res_display_get_tool_data()

#                      This session file opens the database "spool.db"

#                      A fringe plot tool is created and posted. This

#                      function is then called to get the location and

#                      type of data associated with the plot tool.

#                      Before running this session file run spool.ses

#                      and create result file spool.op2 as per the

#                      instructions given in it. Import this result

#                      file spool.op2 into spool.db. For instructions

#                      see file spool.ses

#                      This file can be run by starting a session of

#                      Patran, and running this session file

#                      through the "File","Session","Play" pulldown

#                      menus on the menu bar.

#  The function res_display_get_tool_data()

#  has the following arguments:

#  res_display_get_tool_data

#     (  plot_type,

#        plot_name,

#        location,

#        type )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_plot_type[32]

STRING   s_plot_name[32]

STRING   s_location[32]

STRING   s_type[32]

INTEGER  i_return_value

#---------------------------------------------------------------------

# Opens the file spool.db

uil_file_open.go ("spool.db")

#---------------------------------------------------------------------

# Create a fringe plot tool and post it to the viewport

i_return_value =                                 @

   res_data_load_dbresult                        @

      (  0, "Nodal", "Scalar", "SPOOL_LOADS",    @

         "Static Subcase", "Stress Tensor", "",  @

         "At Z1", "VONM", "AsIs",                @

         "DeriveAverage", "All", "ShapeFunc", "", 0. )

dump i_return_value

i_return_value =                                 @

   res_data_title                                @

      (  0, "Nodal", "Scalar", 1, ["SPOOL_LOADS, @

         Static Subcase, Stress Tensor, - von Mises, At Z1"] )

dump i_return_value

i_return_value =                                 @

   res_display_fringe_create                     @

      (  "new_plot_tool", "FreeFaces", 0, [""],  @

         12, [ "Range:Fri_default_Fringe",       @

         "RangeOverwrite:ON",                    @

         "FringeStyle:Discrete/Smooth",          @

         "Shade:None",                           @

         "ElemEdge:FreeEdge,Green,Solid,1",      @

         "Shrink:0", "TitleDisplay:ON",          @

         "MinMaxDisplay:ON", "ValueDisplay:OFF", @

         "Filter:None", "ScaleFactor:1.",        @

         "LabelStyle:Exponential, 12, White, 3"], TRUE )

dump i_return_value

i_return_value =                                 @

   res_display_fringe_post                       @

      (  "new_plot_tool", 0, "Nodal", TRUE, TRUE )

dump i_return_value

#---------------------------------------------------------------------

#  Get the location and type of data associated with the plot tool

s_plot_type = "Fringe"

s_plot_name = "new_plot_tool"

i_return_value =                                 @

   res_display_get_tool_data                     @

      (  s_plot_type,                            @

         s_plot_name,                            @

         s_location,                             @

         s_type )

dump i_return_value

dump s_location

dump s_type

#---------------------------------------------------------------------