Graphics Preferences

PCL Examples > Preference Functions > Graphics Preferences

This section contains examples of some of the functions used to govern some of the preferences used to control how graphics are displayed to the user.


bar_elem_color	()

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

#                      the function bar_elem_color()

#                      This illustration opens a new database and

#                      creates two nodes in it. Then it creates a bar

#                      element and changes its colour.

#                      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 bar_elem_color() has the following arguments:

#  bar_elem_color

#     (  color_value )

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

#  Variable Declarations

INTEGER  i_color_value

INTEGER  i_return_value

STRING   sv_asm_create_grid_xyz_creat_id[VIRTUAL]

STRING   sv_fem_create_node__nodes_creat[VIRTUAL]

STRING   sv_fem_create_elemen_elem_creat[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Create two points

i_return_value =                                 @

   asm_const_grid_xyz( "",                       @

   "[0 0 0][10 0 0]", "Coord 0",                 @

   sv_asm_create_grid_xyz_creat_id )

dump i_return_value

#  Create two nodes

i_return_value =                                 @

   fem_create_nodes( "Coord 0", "Coord 0",       @

      TRUE, "1", "Point 1 2 ",                   @

      sv_fem_create_node__nodes_creat )

dump i_return_value

#  Show the label of bar element

bar_elem_label(TRUE)

#  Create a beam element

i_return_value =                                 @

   fem_create_elems( "Bar ", "Bar2",             @

      "1", "Standard",                           @

      TRUE, "Node 2 ", "Node 1 ",                @

      "", "", "", "", "", "",                    @

      sv_fem_create_elemen_elem_creat )

dump i_return_value

#  Set the colour of the beam element to Red

i_color_value = 1

bar_elem_color                                   @

   (  i_color_value )

#  Observe the colour.

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

sf_pause()

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

#  Set the colour of the beam element to BLUE

i_color_value = 4

bar_elem_color                                   @

   (  i_color_value )

sys_free_string( sv_asm_create_grid_xyz_creat_id )

sys_free_string( sv_fem_create_node__nodes_creat )

sys_free_string( sv_fem_create_elemen_elem_creat )

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


bar_elem_label	()

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

#                      the function bar_elem_label()

#                      This illustration opens a new database and

#                      creates two nodes in it. Then it creates a bar

#                      element and sets its label on and off.

#                      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 bar_elem_label() has the following arguments:

#  bar_elem_label

#     (  label_status )

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

#  Variable Declarations

LOGICAL  l_label_status

INTEGER  i_return_value

STRING   sv_asm_create_grid_xyz_creat_id[VIRTUAL]

STRING   sv_fem_create_node__nodes_creat[VIRTUAL]

STRING   sv_fem_create_elemen_elem_creat[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Create two points

i_return_value =                                 @

   asm_const_grid_xyz( "",                       @

   "[0 0 0][10 0 0]", "Coord 0",                 @

   sv_asm_create_grid_xyz_creat_id )

dump i_return_value

#  Create two nodes

i_return_value =                                 @

   fem_create_nodes( "Coord 0", "Coord 0",       @

      TRUE, "1", "Point 1 2 ",                   @

      sv_fem_create_node__nodes_creat )

dump i_return_value

#  Create a beam element

i_return_value =                                 @

   fem_create_elems( "Bar ", "Bar2",             @

      "1", "Standard",                           @

      TRUE, "Node 2 ", "Node 1 ",                @

      "", "", "", "", "", "",                    @

      sv_fem_create_elemen_elem_creat )

dump i_return_value

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

#  Set the label of the beam element.

l_label_status = TRUE

bar_elem_label                                   @

   (  l_label_status )

#  Observe the label.

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

sf_pause()

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

#  Set off the label of the beam element.

l_label_status = FALSE

bar_elem_label                                   @

   (  l_label_status )

sys_free_string( sv_asm_create_grid_xyz_creat_id )

sys_free_string( sv_fem_create_node__nodes_creat )

sys_free_string( sv_fem_create_elemen_elem_creat )

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


body_color	()

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

#                      function body_color()

#                      This illustration opens a new database and

#                      creates a B-Rep solid in it. It changes its

#                      colour to Red and then Blue.

#                      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 body_color() has the following arguments:

#  body_color

#     (  colour_value )

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

#  Variable Declarations

INTEGER  i_colour_value

INTEGER  i_return_value

LOGICAL  l_label_status

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

STRING   sv_sgm_create_solid_br_creat_id[VIRTUAL]

STRING   sv_asm_delete_any_deleted_ids[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Create 6 patches.

i_return_value =                                 @

   asm_const_patch_xyz( "", "<1 1 0><1 0 1>"//   @

      "<0 1 1><0 1 1><1 0 1><1 1 0>",            @

      "[0 0 0][0 0 0][0 0 0][1 0 0]" //          @

      "[0 1 0][0 0 1]", "Coord 0",               @

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

i_return_value =                                 @

   sgm_construct_solid_brep( "1", "Surface 1:6", @

      FALSE, sv_sgm_create_solid_br_creat_id )

dump i_return_value

#  Set the view

i_return_value =                                 @

   ga_view_aa_set                                @

      (  -67., 0., -34. )

dump i_return_value

#  Set the body label ON

l_label_status = TRUE

i_return_value =                                 @

   body_label                                    @

      (  l_label_status )

dump i_return_value

# Delete the Surfaces

i_return_value =                                 @

   asm_delete_surface( "Surface 1:6 ",           @

      sv_asm_delete_any_deleted_ids )

dump i_return_value

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

sf_pause()

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

#  Set the body colour to Red (Colour value = 1)

i_colour_value = 1

i_return_value =                                 @

   body_color                                    @

      (  i_colour_value )

dump i_return_value

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

sf_pause()

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

#  Set the body colour to BLUE (Colour value = 4)

i_colour_value = 4

i_return_value =                                 @

   body_color                                    @

      (  i_colour_value )

dump i_return_value

sys_free_string( sv_asm_create_patch_xy_creat_id )

sys_free_string( sv_sgm_create_solid_br_creat_id )

sys_free_string( sv_asm_delete_any_deleted_ids )

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


body_label	()

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

#                      function body_label()

#                      This illustration opens a new database and

#                      creates a B-Rep solid in it. It changes its

#                      label ON and OFF.

#                      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 body_label() has the following arguments:

#  body_label

#     (  label_status )

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

#  Variable Declarations

LOGICAL  l_label_status

INTEGER  i_return_value

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

STRING   sv_sgm_create_solid_br_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Create 6 patches.

i_return_value =                                 @

   asm_const_patch_xyz( "", "<1 1 0><1 0 1>"//   @

      "<0 1 1><0 1 1><1 0 1><1 1 0>",            @

      "[0 0 0][0 0 0][0 0 0][1 0 0]" //          @

      "[0 1 0][0 0 1]", "Coord 0",               @

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

i_return_value =                                 @

   sgm_construct_solid_brep( "1", "Surface 1:6", @

      FALSE, sv_sgm_create_solid_br_creat_id )

dump i_return_value

#  Set the view

i_return_value =                                 @

   ga_view_aa_set                                @

      (  -67., 0., -34. )

dump i_return_value

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

sf_pause()

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

#  Set the body label ON

l_label_status = TRUE

i_return_value =                                 @

   body_label                                    @

      (  l_label_status )

dump i_return_value

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

sf_pause()

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

#  Set the body label OFF

l_label_status = FALSE

i_return_value =                                 @

   body_label                                    @

      (  l_label_status )

dump i_return_value

sys_free_string( sv_asm_create_patch_xy_creat_id )

sys_free_string( sv_sgm_create_solid_br_creat_id )

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


curve_color	()

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

#                      the function curve_color()

#                      This illustration opens a new database and

#                      creates a Curve in it. Then the colour  of

#                      the Curve is changed.

#                      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 curve_color() has the following arguments:

#  curve_color

#     (  color_value )

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

#  Variable Declarations

INTEGER  i_color_value

INTEGER  i_return_value

STRING   sv_asm_create_line_xyz_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the Curves

curve_label(TRUE)

#  Create a line

i_return_value =                                 @

   asm_const_line_xyz( "1", "<1 0 0>",           @

   "[0 0 0]", "Coord 0",                         @

   sv_asm_create_line_xyz_creat_id )

dump i_return_value

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

#  Set the curve colour to Red

i_color_value = 1

curve_color                                      @

   (  i_color_value )

#  Observe the colour.

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

sf_pause()

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

# Set the Curve colour to Green

i_color_value = 11

curve_color                                      @

   (  i_color_value )

sys_free_string( sv_asm_create_line_xyz_creat_id )

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


curve_label	()

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

#                      the function curve_label()

#                      This illustration opens a new database and

#                      creates a Curve in it. Then the label  of

#                      the Curve is set on and off.

#                      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 curve_label() has the following arguments:

#  curve_label

#     (  label_status )

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

#  Variable Declarations

LOGICAL  l_label_status

INTEGER  i_return_value

STRING   sv_asm_create_line_xyz_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Create a line

i_return_value =                                 @

   asm_const_line_xyz( "1", "<1 0 0>",           @

   "[0 0 0]", "Coord 0",                         @

   sv_asm_create_line_xyz_creat_id )

dump i_return_value

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

#  Set the curve label

l_label_status = TRUE

curve_label                                      @

   (  l_label_status )

#  Observe the colour.

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

sf_pause()

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

#  Set OFF the curve label

l_label_status = FALSE

curve_label                                      @

   (  l_label_status )

sys_free_string( sv_asm_create_line_xyz_creat_id )

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


display_deformations	()

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

#                      function display_deformations()

#                      In this example a field.db is opened and the

#                      deform plot is initialized. Then the function

#                      is called to switch off the deform plot.

#                      Before running this session file run field.ses

#                      to create field.db. Follow the instruction in

#                      the field.ses file for analysis.

#                      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 display_deformation()

#  has the following arguments:

#  display_deformations

#     (  label_status )

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

#  Variable Declarations

LOGICAL  l_label_status

INTEGER  i_return_value

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

#  Open the database "field.db"

uil_file_open.go("field.db")

#  Set the view

i_return_value =                                                @

   ga_view_aa_set                                               @

      (  -67., 0., -34. )

dump i_return_value

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

#  Initialize for deform plot.

i_return_value =                                                @

   res_init_deform_plot(  )

dump i_return_value

i_return_value =                                                @

   res_create_deform_plot_rec2( 1, 2, 1, 3,                     @

      [27, 28, 29, 0, 0, 0], 1, 1, 0., 8,                       @

      0, 1, 0, [0., 0., 0.] )

dump i_return_value

i_return_value =                                                @

   res_make_deform_plot( 1, [1], [1], [""], [0.], [             @

      "Default, Static Subcase: Displacements,"//               @

      " Translational -MSC.Nastran"] )

dump i_return_value

i_return_value =                                                @

   res_deinit_deform_plot(  )

dump i_return_value

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

sf_pause()

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

#  Switch off the display of deformation

l_label_status = FALSE

i_return_value =                                                @

   display_deformations                                         @

      (  l_label_status )

dump i_return_value

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


display_fa_vectors	()

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

#                      function display_fa_vectors()

#                      In this example a new database is opened and

#                      a patch is created. An LBC is created over the

#                      patch. Then the function is called to switch

#                      off the display of functional assignment

#                      vectors. Again, the vectors are displayed.

#                      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 display_fa_vectors() has the following arguments:

#  display_fa_vectors

#     (  label_status )

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

#  Variable Declarations

LOGICAL  l_label_status

INTEGER  i_return_value

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

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

#  Create a new database and set the preferences

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

$? YES  36000002

#  Set the view

i_return_value =                                                @

   ga_view_aa_set                                               @

      (  -67., 0., -34. )

dump i_return_value

#  Create a Patch.

i_return_value =                                                @

   asm_const_patch_xyz( "1", "<1 1 0>", "[0 0 0]", "Coord 0",   @

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

#  Create a LBC.

i_return_value =                                                @

   loadsbcs_create( "New", "Displacement", "Nodal", "",         @

      "Static", ["Surface 1"],                                  @

      "Geometry", "Coord 0", 1.,                                @

      ["<  0 0 0   >", "<  0 0 0   >"], ["", ""] )

dump i_return_value

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

sf_pause()

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

#  Switch OFF the display of functional assignment vectors.

l_label_status = FALSE

i_return_value =                                                @

   display_fa_vectors                                           @

      (  l_label_status )

dump i_return_value

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

sf_pause()

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

#  Switch ON the display of functional assignment vectors.

l_label_status = TRUE

i_return_value =                                                @

   display_fa_vectors                                           @

      (  l_label_status )

dump i_return_value

sys_free_string( sv_asm_create_patch_xy_creat_id )

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


display_result_vectors	()

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

#                      function display_result_vectors()

#                      In this example a field.db is opened and the

#                      vector plot is initialized. Then the function

#                      is called to switch off the vector plot.

#                      Before running this session file run field.ses

#                      to create field.db. Follow the instruction in

#                      the field.ses file for analysis.

#                      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 display_result_vectors()

#  has the following arguments:

#  display_result_vectors

#     (  label_status )

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

#  Variable Declarations

LOGICAL  l_label_status

INTEGER  i_return_value

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

#  Open the database "field.db"

uil_file_open.go("field.db")

#  Set the view

i_return_value =                                                @

   ga_view_aa_set                                               @

      (  -67., 0., -34. )

dump i_return_value

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

#  Create Vector plot with default options

i_return_value =                                                @

   ga_range_create( "vector_range", 15 )

dump i_return_value

i_return_value =                                                @

   ga_viewport_range_set( "", "vector_range" )

dump i_return_value

i_return_value =                                                @

   res_init_vector_plot(  )

dump i_return_value

i_return_value =                                                @

   res_create_vector_plot_rec( 1, 2, 3,                         @

      [27, 28, 29, 0, 0, 0], [1, 1, 1], 1, 1,                   @

      0, 0, 1, 0., 2, 1, 1, 1 )

dump i_return_value

i_return_value =                                                @

   res_make_vector_plot( 1, [1], [2], [""], [0.], [             @

      "Default, Static Subcase: Displacements,"//               @

      " Translational -MSC.Nastran"] )

dump i_return_value

i_return_value =                                                @

   res_deinit_vector_plot(  )

dump i_return_value

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

sf_pause()

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

#  Switch the vector plot OFF.

l_label_status = FALSE

i_return_value =                                                @

   display_result_vectors                                       @

      (  l_label_status )

dump i_return_value

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


hex_elem_color	()

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

#                      function hex_elem_color()

#                      This illustration opens a new database and

#                      creates a hyperpatch in it.It creates mesh seed

#                      and meshes with Hexagonal elements. Later it

#                      sets its clour to Red and Blue.

#                      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 hex_elem_color() has the following arguments:

#  hex_elem_color

#     (  color_value )

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

#  Variable Declarations

INTEGER  i_color_value

INTEGER  i_return_value

STRING   sv_asm_create_hpat_xyz_creat_id[VIRTUAL]

INTEGER  i_fem_create_mesh_solid_nu_node

INTEGER  i_fem_create_mesh_solid_nu_elem

STRING   sv_fem_create_mesh_s_node_creat[VIRTUAL]

STRING   sv_fem_create_mesh_s_elem_creat[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

i_return_value =                                 @

   asm_const_hpat_xyz( "1", "<1 1 1>",           @

      "[0 0 0]", "Coord 0",                      @

      sv_asm_create_hpat_xyz_creat_id )

dump i_return_value

#  Set the view

i_return_value =                                 @

   ga_view_aa_set                                @

      (  -67., 0., -34. )

dump i_return_value

ui_exec_function( "mesh_seed_display_mgr", "init" )

i_return_value =                                 @

   mesh_seed_create( "Solid 1.1.3 1.1.4"//       @

      " 1.2.1 1.2.2 1.1.1 1.1.2 1.2.3 1.4.1 1"// @

      ".4.3 1.2.4 1.3.1 1.3.3 ", 1, 2, 0., 0., 0. )

dump i_return_value

i_return_value =                                 @

   fem_create_mesh_sol_3( "IsoMesh", 0,          @

      "Solid 1 ", 1, [0.1], "Hex8", "1", "1",    @

      "Coord 0", "Coord 0",                      @

      i_fem_create_mesh_solid_nu_node,           @

      i_fem_create_mesh_solid_nu_elem,           @

      sv_fem_create_mesh_s_node_creat,           @

      sv_fem_create_mesh_s_elem_creat )

dump i_return_value

#  Set the labels of the hexagonal elements ON

i_return_value =                                 @

   hex_elem_label                                @

      (  TRUE )

dump i_return_value

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

sf_pause()

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

#  Set the colour of the hexagonal elements to Red (Colour value = 1)

i_color_value = 1

i_return_value =                                 @

   hex_elem_color                                @

      (  i_color_value )

dump i_return_value

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

sf_pause()

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

#  Set the colour of the hexagonal elements to Blue (Colour value = 4)

i_color_value = 4

i_return_value =                                 @

   hex_elem_color                                @

      (  i_color_value )

dump i_return_value

sys_free_string( sv_asm_create_hpat_xyz_creat_id )

sys_free_string( sv_fem_create_mesh_s_node_creat )

sys_free_string( sv_fem_create_mesh_s_elem_creat )

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


hex_elem_label	()

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

#                      function hex_elem_label()

#                      This illustration opens a new database and

#                      creates a hyperpatch in it.It creates mesh seed

#                      and meshes with Hexagonal elements. Later it

#                      sets its label ON and OFF.

#                      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 hex_elem_label() has the following arguments:

#  hex_elem_label

#     (  label_status )

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

#  Variable Declarations

LOGICAL  l_label_status

INTEGER  i_return_value

STRING   sv_asm_create_hpat_xyz_creat_id[VIRTUAL]

INTEGER  i_fem_create_mesh_solid_nu_node

INTEGER  i_fem_create_mesh_solid_nu_elem

STRING   sv_fem_create_mesh_s_node_creat[VIRTUAL]

STRING   sv_fem_create_mesh_s_elem_creat[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

i_return_value =                                 @

   asm_const_hpat_xyz( "1", "<1 1 1>",           @

      "[0 0 0]", "Coord 0",                      @

      sv_asm_create_hpat_xyz_creat_id )

dump i_return_value

#  Set the view

i_return_value =                                 @

   ga_view_aa_set                                @

      (  -67., 0., -34. )

dump i_return_value

ui_exec_function( "mesh_seed_display_mgr", "init" )

i_return_value =                                 @

   mesh_seed_create( "Solid 1.1.3 1.1.4"//       @

      " 1.2.1 1.2.2 1.1.1 1.1.2 1.2.3 1.4.1 1"// @

      ".4.3 1.2.4 1.3.1 1.3.3 ", 1, 2, 0., 0., 0. )

dump i_return_value

i_return_value =                                 @

   fem_create_mesh_sol_3( "IsoMesh", 0,          @

      "Solid 1 ", 1, [0.1], "Hex8", "1", "1",    @

      "Coord 0", "Coord 0",                      @

      i_fem_create_mesh_solid_nu_node,           @

      i_fem_create_mesh_solid_nu_elem,           @

      sv_fem_create_mesh_s_node_creat,           @

      sv_fem_create_mesh_s_elem_creat )

dump i_return_value

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

sf_pause()

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

#  Set the labels of the hexagonal elements ON

l_label_status = TRUE

i_return_value =                                 @

   hex_elem_label                                @

      (  l_label_status )

dump i_return_value

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

sf_pause()

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

#  Set the labels of the hexagonal elements OFF

l_label_status = FALSE

i_return_value =                                 @

   hex_elem_label                                @

      (  l_label_status )

dump i_return_value

sys_free_string( sv_asm_create_hpat_xyz_creat_id )

sys_free_string( sv_fem_create_mesh_s_node_creat )

sys_free_string( sv_fem_create_mesh_s_elem_creat )

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


mpc_color	()

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

#                      function mpc_color()

#                      In this example a mpc.db is opened and the

#                      the colour of the MPCs present in the database

#                      is changed to Red and then Blue.

#                      Before running this session file run mpc.ses

#                      to create mpc.db. The mpc.db contains one MPC.

#                      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 mpc_color() has the following arguments:

#  mpc_color

#     (  color_value )

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

#  Variable Declarations

INTEGER  i_color_value

INTEGER  i_return_value

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

#  Open the database "mpc.db"

uil_file_open.go("mpc.db")

#  Set the label of the MPCs ON.

i_return_value =                                 @

   mpc_label                                     @

      (  TRUE )

dump i_return_value

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

sf_pause()

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

#  Set the colour of MPC to Red (Colour value 1)

i_color_value = 1

i_return_value =                                 @

   mpc_color                                     @

      (  i_color_value )

dump i_return_value

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

sf_pause()

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

#  Set the colour of MPC to Blue (Colour value 4)

i_color_value = 4

i_return_value =                                 @

   mpc_color                                     @

      (  i_color_value )

dump i_return_value

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


mpc_label	()

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

#                      function mpc_label()

#                      In this example a mpc.db is opened and the

#                      the label of the MPCs present in the database

#                      is set ON and OFF.

#                      Before running this session file run mpc.ses

#                      to create mpc.db. The mpc.db contains one MPC.

#                      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 mpc_label() has the following arguments:

#  mpc_label

#     (  label_status )

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

#  Variable Declarations

LOGICAL  l_label_status

INTEGER  i_return_value

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

#  Open the database "mpc.db"

uil_file_open.go("mpc.db")

#  Set the label of the MPCs ON.

l_label_status = TRUE

i_return_value =                                 @

   mpc_label                                     @

      (  l_label_status )

dump i_return_value

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

sf_pause()

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

#  Set the label of the MPCs OFF.

l_label_status = FALSE

i_return_value =                                 @

   mpc_label                                     @

      (  l_label_status )

dump i_return_value

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


node_color	()

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

#                      the function node_color()

#                      This illustration opens a new database and

#                      creates a Point in it. Then it creates a node

#                      on it and changes its colour.

#                      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 node_color() has the following arguments:

#  node_color

#     (  color_value )

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

#  Variable Declarations

INTEGER  i_color_value

INTEGER  i_return_value

STRING   sv_asm_create_grid_xyz_creat_id[VIRTUAL]

STRING   sv_fem_create_nodes__node_creat[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the nodes.

node_label(TRUE)

i_return_value =                                 @

   asm_const_grid_xyz( "1", "[0 0 0]",           @

      "Coord 0",                                 @

      sv_asm_create_grid_xyz_creat_id )

dump i_return_value

#  Create a node

i_return_value =                                 @

   fem_create_nodes( "Coord 0", "Coord 0",       @

      TRUE, "1", "Point 1 ",                     @

      sv_fem_create_nodes__node_creat )

dump i_return_value

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

#  Set the colour of node to Red

i_color_value = 1

node_color                                       @

   (  i_color_value )

#  Observe the colour.

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

sf_pause()

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

#  Set the colour of node to Blue

i_color_value = 4

node_color                                       @

   (  i_color_value )

sys_free_string( sv_asm_create_grid_xyz_creat_id )

sys_free_string( sv_fem_create_nodes__node_creat )

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


node_label	()

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

#                      the function node_label()

#                      This illustration opens a new database and

#                      creates a Point in it. Then it creates a node

#                      on the point and changes its label on and off.

#                      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 node_label() has the following arguments:

#  node_label

#     (  label_status )

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

#  Variable Declarations

LOGICAL  l_label_status

INTEGER  i_return_value

STRING   sv_asm_create_grid_xyz_creat_id[VIRTUAL]

STRING   sv_fem_create_nodes__node_creat[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

i_return_value =                                 @

   asm_const_grid_xyz( "1", "[0 0 0]",           @

      "Coord 0",                                 @

      sv_asm_create_grid_xyz_creat_id )

dump i_return_value

#  Create a node

i_return_value =                                 @

   fem_create_nodes( "Coord 0", "Coord 0",       @

      TRUE, "1", "Point 1 ",                     @

      sv_fem_create_nodes__node_creat )

dump i_return_value

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

#  Set the label of node.

l_label_status = TRUE

node_label                                       @

   (  l_label_status )

#  Observe the label.

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

sf_pause()

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

#  Set OFF, the label of node.

l_label_status = FALSE

node_label                                       @

   (  l_label_status )

sys_free_string( sv_asm_create_grid_xyz_creat_id )

sys_free_string( sv_fem_create_nodes__node_creat )

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


point_elem_color	()

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

#                      the function point_elem_color()

#                      This illustration opens a new database and

#                      creates a Point in it. Then it creates a point

#                      element and changes its colour.

#                      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 point_elem_color() has the following arguments:

#  point_elem_color

#     (  color_value )

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

#  Variable Declarations

INTEGER  i_color_value

INTEGER  i_return_value

STRING   sv_asm_create_grid_xyz_creat_id[VIRTUAL]

STRING   sv_fem_create_nodes__node_creat[VIRTUAL]

STRING   sv_fem_create_elemen_elem_creat[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the point elements.

point_elem_label(TRUE)

i_return_value =                                 @

   asm_const_grid_xyz( "1", "[0 0 0]",           @

      "Coord 0",                                 @

      sv_asm_create_grid_xyz_creat_id )

dump i_return_value

#  Create a node

i_return_value =                                 @

   fem_create_nodes( "Coord 0", "Coord 0",       @

      TRUE, "1", "Point 1 ",                     @

      sv_fem_create_nodes__node_creat )

dump i_return_value

#  Create a point element

i_return_value =                                 @

   fem_create_elems( "Point ", "Point",          @

      "1", "Standard", TRUE, "Node 1 ",          @

      "", "",  "", "", "", "", "",               @

      sv_fem_create_elemen_elem_creat )

dump i_return_value

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

#  Set the colour of point element to Red

i_color_value = 1

point_elem_color                                 @

   (  i_color_value )

#  Observe the colour.

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

sf_pause()

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

#  Set the colour of point element to Blue

i_color_value = 4

point_elem_color                                 @

   (  i_color_value )

sys_free_string( sv_asm_create_grid_xyz_creat_id )

sys_free_string( sv_fem_create_nodes__node_creat )

sys_free_string( sv_fem_create_elemen_elem_creat )

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


point_color	()

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

#                      the function point_color()

#                      This illustration opens a new database and

#                      creates a Point in it. Then the colour  of

#                      the point is changed.

#                      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 point_color() has the following arguments:

#  point_color

#     (  color_value )

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

#  Variable Declarations

INTEGER  i_color_value

INTEGER  i_return_value

STRING   sv_asm_create_grid_xyz_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the points

point_label(TRUE)

i_return_value =                                 @

   asm_const_grid_xyz( "1", "[0 0 0]",           @

      "Coord 0",                                 @

      sv_asm_create_grid_xyz_creat_id )

dump i_return_value

#  Set the point color to Red

i_color_value = 1

point_color                                      @

   (  i_color_value )

#  Observe the colour.

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

sf_pause()

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

# Set the point color to Green

i_color_value = 11

point_color                                      @

   (  i_color_value )

sys_free_string( sv_asm_create_grid_xyz_creat_id )

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


point_elem_label	()

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

#                      the function point_elem_label()

#                      This illustration opens a new database and

#                      creates a Point in it. Then it creates a point

#                      element and changes its label on and off.

#                      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 point_elem_label() has the following arguments:

#  point_elem_label

#     (  label_status )

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

#  Variable Declarations

LOGICAL  l_label_status

INTEGER  i_return_value

STRING   sv_asm_create_grid_xyz_creat_id[VIRTUAL]

STRING   sv_fem_create_nodes__node_creat[VIRTUAL]

STRING   sv_fem_create_elemen_elem_creat[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

i_return_value =                                 @

   asm_const_grid_xyz( "1", "[0 0 0]",           @

      "Coord 0",                                 @

      sv_asm_create_grid_xyz_creat_id )

dump i_return_value

#  Create a node

i_return_value =                                 @

   fem_create_nodes( "Coord 0", "Coord 0",       @

      TRUE, "1", "Point 1 ",                     @

      sv_fem_create_nodes__node_creat )

dump i_return_value

#  Create a point element

i_return_value =                                 @

   fem_create_elems( "Point ", "Point",          @

      "1", "Standard", TRUE, "Node 1 ",          @

      "", "",  "", "", "", "", "",               @

      sv_fem_create_elemen_elem_creat )

dump i_return_value

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

#  Set the label of the point element.

l_label_status = TRUE

point_elem_label                                 @

   (  l_label_status )

#  Observe the label.

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

sf_pause()

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

#  Set OFF, the label of the point element.

l_label_status = FALSE

point_elem_label                                 @

   (  l_label_status )

sys_free_string( sv_asm_create_grid_xyz_creat_id )

sys_free_string( sv_fem_create_nodes__node_creat )

sys_free_string( sv_fem_create_elemen_elem_creat )

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


point_label	()

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

#                      the function point_label()

#                      This illustration opens a new database and

#                      creates a Point in it. Then the label  of

#                      the point is changed.

#                      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 point_label() has the following arguments:

#  point_label

#     (  label_status )

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

#  Variable Declarations

LOGICAL  l_label_status

INTEGER  i_return_value

STRING   sv_asm_create_grid_xyz_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

i_return_value =                                 @

   asm_const_grid_xyz( "1", "[0 0 0]",           @

      "Coord 0",                                 @

      sv_asm_create_grid_xyz_creat_id )

dump i_return_value

#  Show the labels of the points

l_label_status = TRUE

point_label                                      @

   (  l_label_status )

#  Observe the label.

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

sf_pause()

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

#  Erase the labels of points

l_label_status = FALSE

point_label                                      @

   (  l_label_status )

sys_free_string( sv_asm_create_grid_xyz_creat_id )

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


pref_graphics_set	()

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

#                      function pref_graphics_set()

#                      This function gets the graphic preference

#                      parameters. This file opens a new database

#                      "new.db" and creates a point and node.

#                      Then it gets the graphic preference

#                      parameters.Later it changes the preference

#                      for grid size and node size and finally gets

#                      the graphic preference again.

#                      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 pref_graphics_set() has the following arguments:

#  pref_graphics_set

#     (  disp_meth,

#        p_color,

#        s_color,

#        e_color,

#        extend,

#        fit_view,

#        center,

#        hard_rend,

#        anti_alias,

#        td_vector,

#        rt_display,

#        s_light,

#        p_marker,

#        s_marker,

#        m_color,

#        m_size,

#        gm_size,

#        nm_size,

#        l_format,

#        nsigd )

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

#  Variable Declarations

INTEGER  i_disp_meth

INTEGER  i_p_color

INTEGER  i_s_color

INTEGER  i_e_color

LOGICAL  l_extend

LOGICAL  l_fit_view

LOGICAL  l_center

LOGICAL  l_hard_rend

LOGICAL  l_anti_alias

LOGICAL  l_td_vector

LOGICAL  l_rt_display

LOGICAL  l_s_light

INTEGER  i_p_marker

INTEGER  i_s_marker

INTEGER  i_m_color

INTEGER  i_m_size

INTEGER  i_gm_size

INTEGER  i_nm_size

INTEGER  i_l_format

INTEGER  i_nsigd

LOGICAL  l_set_flag(20)

STRING   sv_asm_create_grid_xyz_created[VIRTUAL]

STRING   sv_fem_create_nodes_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a Point and Node.

i_return_value =                                  @

   asm_const_grid_xyz( "1", "[0 0 0]", "Coord 0", @

      sv_asm_create_grid_xyz_created )

dump i_return_value

i_return_value =                                  @

   fem_create_nodes( "Coord 0", "Coord 0", TRUE,  @

      "1", " [0 0 0]",                            @

      sv_fem_create_nodes_created )

dump i_return_value

i_return_value =                                  @

   pref_graphics_get                              @

      (  i_disp_meth,                             @

         i_p_color,                               @

         i_s_color,                               @

         i_e_color,                               @

         l_extend,                                @

         l_fit_view,                              @

         l_center,                                @

         l_hard_rend,                             @

         l_anti_alias,                            @

         l_td_vector,                             @

         l_rt_display,                            @

         l_s_light,                               @

         i_p_marker,                              @

         i_s_marker,                              @

         i_m_color,                               @

         i_m_size,                                @

         i_gm_size,                               @

         i_nm_size,                               @

         i_l_format,                              @

         i_nsigd )

dump i_return_value

#  Display method is

dump  i_disp_meth

#  Primary color is

dump  i_p_color

#  Secondary color is

dump  i_s_color

#  Error color is

dump  i_e_color

#  Autoextend Flag is

dump  l_extend

#  Autofitview Flag is

dump  l_fit_view

#  Autocenter Flag is

dump  l_center

#  Hardware rendering Flag is

dump  l_hard_rend

#  Anti-Alias flag is

dump  l_anti_alias

#  3-D vector Display Flag is

dump  l_td_vector

#  Result Title Display Flag is

dump  l_rt_display

#  Symmetric Light Flag is

dump  l_s_light

#  Primary marker is

dump  i_p_marker

#  Secondary marker is

dump  i_s_marker

#  Marker color is

dump  i_m_color

#  Marker size is

dump  i_m_size

#  Grid marker size is

dump  i_gm_size

#  Node marker size is

dump  i_nm_size

#  Results label format is

dump  i_l_format

#  Number of significant results digits are

dump  i_nsigd

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

sf_pause()

l_set_flag(17) = TRUE

l_set_flag(18) = TRUE

i_gm_size = 25

i_nm_size = 50

i_return_value =                                  @

   pref_graphics_set                              @

      (  l_set_flag,                              @

         i_disp_meth,                             @

         i_p_color,                               @

         i_s_color,                               @

         i_e_color,                               @

         l_extend,                                @

         l_fit_view,                              @

         l_center,                                @

         l_hard_rend,                             @

         l_anti_alias,                            @

         l_td_vector,                             @

         l_rt_display,                            @

         l_s_light,                               @

         i_p_marker,                              @

         i_s_marker,                              @

         i_m_color,                               @

         i_m_size,                                @

         i_gm_size,                               @

         i_nm_size,                               @

         i_l_format,                              @

         i_nsigd )

dump i_return_value

#  Reset the values

i_gm_size = 0

i_nm_size = 0

i_return_value =                                  @

   pref_graphics_get                              @

      (  i_disp_meth,                             @

         i_p_color,                               @

         i_s_color,                               @

         i_e_color,                               @

         l_extend,                                @

         l_fit_view,                              @

         l_center,                                @

         l_hard_rend,                             @

         l_anti_alias,                            @

         l_td_vector,                             @

         l_rt_display,                            @

         l_s_light,                               @

         i_p_marker,                              @

         i_s_marker,                              @

         i_m_color,                               @

         i_m_size,                                @

         i_gm_size,                               @

         i_nm_size,                               @

         i_l_format,                              @

         i_nsigd )

dump i_return_value

#  Grid marker size is

dump  i_gm_size

#  Node marker size is

dump  i_nm_size

SYS_FREE_STRING( sv_asm_create_grid_xyz_created )

SYS_FREE_STRING( sv_fem_create_nodes_created )

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


quad_elem_color	()

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

#                      function quad_elem_color()

#                      This illustration opens a new database and

#                      creates a patch in it. It creates mesh seed

#                      and meshes with quad elements. Later it

#                      sets the colour of the quad elements Red and

#                      then Blue.

#                      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 quad_elem_color() has the following arguments:

#  quad_elem_color

#     (  color_value )

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

#  Variable Declarations

INTEGER  i_color_value

INTEGER  i_return_value

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

INTEGER  i_fem_create_mesh_surfa_nu_node

INTEGER  i_fem_create_mesh_surfa_nu_elem

STRING   sv_fem_create_mesh_s_node_creat[VIRTUAL]

STRING   sv_fem_create_mesh_s_elem_creat[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

i_return_value =                                 @

   asm_const_patch_xyz( "1", "<1 1 0>",          @

      "[0 0 0]", "Coord 0",                      @

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

#  Set the view

i_return_value =                                 @

   ga_view_aa_set                                @

      (  -67., 0., -34. )

dump i_return_value

ui_exec_function( "mesh_seed_display_mgr", "init" )

i_return_value =                                 @

   mesh_seed_create( "Surface 1.1 1.2 1.3 1.4 ", @

      1, 2, 0., 0., 0. )

dump i_return_value

i_return_value =                                 @

   fem_create_mesh_surf_2( "IsoMesh", 0,         @

      "Surface 1 ", 1, [0.1], "Quad4", "1",      @

      "1", "Coord 0", "Coord 0",                 @

      i_fem_create_mesh_surfa_nu_node,           @

      i_fem_create_mesh_surfa_nu_elem,           @

      sv_fem_create_mesh_s_node_creat,           @

      sv_fem_create_mesh_s_elem_creat )

dump i_return_value

#  Set the labels of the Quad elements ON

i_return_value =                                 @

   quad_elem_label                               @

      (  TRUE )

dump i_return_value

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

sf_pause()

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

#  Set the colour of the quad element to Red (Colour value = 1)

i_color_value = 1

i_return_value =                                 @

   quad_elem_color                               @

      (  i_color_value )

dump i_return_value

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

sf_pause()

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

#  Set the colour of the quad element to Blue (Colour value = 4)

i_color_value = 4

i_return_value =                                 @

   quad_elem_color                               @

      (  i_color_value )

dump i_return_value

sys_free_string( sv_asm_create_patch_xy_creat_id )

sys_free_string( sv_fem_create_mesh_s_node_creat )

sys_free_string( sv_fem_create_mesh_s_elem_creat )

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


quad_elem_label	()

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

#                      function quad_elem_label()

#                      This illustration opens a new database and

#                      creates a patch in it. It creates mesh seed

#                      and meshes with quad elements. Later it

#                      sets its label ON and OFF.

#                      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 quad_elem_label() has the following arguments:

#  quad_elem_label

#     (  label_status )

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

#  Variable Declarations

LOGICAL  l_label_status

INTEGER  i_return_value

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

INTEGER  i_fem_create_mesh_surfa_nu_node

INTEGER  i_fem_create_mesh_surfa_nu_elem

STRING   sv_fem_create_mesh_s_node_creat[VIRTUAL]

STRING   sv_fem_create_mesh_s_elem_creat[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

i_return_value =                                 @

   asm_const_patch_xyz( "1", "<1 1 0>",          @

      "[0 0 0]", "Coord 0",                      @

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

#  Set the view

i_return_value =                                 @

   ga_view_aa_set                                @

      (  -67., 0., -34. )

dump i_return_value

ui_exec_function( "mesh_seed_display_mgr", "init" )

i_return_value =                                 @

   mesh_seed_create( "Surface 1.1 1.2 1.3 1.4 ", @

      1, 2, 0., 0., 0. )

dump i_return_value

i_return_value =                                 @

   fem_create_mesh_surf_2( "IsoMesh", 0,         @

      "Surface 1 ", 1, [0.1], "Quad4", "1",      @

      "1", "Coord 0", "Coord 0",                 @

      i_fem_create_mesh_surfa_nu_node,           @

      i_fem_create_mesh_surfa_nu_elem,           @

      sv_fem_create_mesh_s_node_creat,           @

      sv_fem_create_mesh_s_elem_creat )

dump i_return_value

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

sf_pause()

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

#  Set the labels of the Quad elements ON

l_label_status = TRUE

i_return_value =                                 @

   quad_elem_label                               @

      (  l_label_status )

dump i_return_value

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

sf_pause()

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

#  Set the labels of the Quad elements OFF

l_label_status = FALSE

i_return_value =                                 @

   quad_elem_label                               @

      (  l_label_status )

dump i_return_value

sys_free_string( sv_asm_create_patch_xy_creat_id )

sys_free_string( sv_fem_create_mesh_s_node_creat )

sys_free_string( sv_fem_create_mesh_s_elem_creat )

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


renderstyle	()

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

#                      function renderstyle()

#                      This illustration opens a new database and

#                      creates a solid in it. It then shades it .

#                      Then render style is changed to "Hidden Line"

#                      and finally "Shaded flat"

#                      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 renderstyle() has the following arguments:

#  renderstyle

#     (  style )

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

#  Variable Declarations

STRING   s_style[128]

INTEGER  i_return_value

STRING   sv_asm_create_hpat_xyz_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Set the view

i_return_value =                                 @

   ga_view_aa_set                                @

      (  -67., 0., -34. )

dump i_return_value

i_return_value =                                 @

   asm_const_hpat_xyz( "1", "<1 1 1>",           @

      "[0 0 0]", "Coord 0",                      @

      sv_asm_create_hpat_xyz_creat_id )

dump i_return_value

#  Shade the solid

uil_toolbar.shaded_smooth(  )

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

sf_pause()

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

#  Change the Renderstyle to "Hidden Line"

s_style = "Hidden Line"

i_return_value =                                 @

   renderstyle                                   @

      (  s_style )

dump i_return_value

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

sf_pause()

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

#  Change the Renderstyle to "Shaded/Flat"

s_style = "Shaded/Flat"

i_return_value =                                 @

   renderstyle                                   @

      (  s_style )

dump i_return_value

sys_free_string( sv_asm_create_hpat_xyz_creat_id )

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


shade_color	()

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

#                      function shade_color()

#                      This illustration opens a new database and

#                      creates a solid in it. It then shades it in

#                      different colours.

#                      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 shade_color() has the following arguments:

#  shade_color

#     (  color_value )

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

#  Variable Declarations

INTEGER  i_color_value

INTEGER  i_return_value

STRING   sv_asm_create_hpat_xyz_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Set the view

i_return_value =                                 @

   ga_view_aa_set                                @

      (  -67., 0., -34. )

dump i_return_value

i_return_value =                                 @

   asm_const_hpat_xyz( "1", "<1 1 1>",           @

      "[0 0 0]", "Coord 0",                      @

      sv_asm_create_hpat_xyz_creat_id )

dump i_return_value

#  Shade the solid

uil_toolbar.shaded_smooth(  )

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

sf_pause()

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

#  Set the shade color to Red (Colour value = 1)

i_color_value = 1

i_return_value =                                 @

   shade_color                                   @

      (  i_color_value )

dump i_return_value

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

sf_pause()

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

#  Set the shade color to Blue (Colour value = 4)

i_color_value = 4

i_return_value =                                 @

   shade_color                                   @

      (  i_color_value )

dump i_return_value

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

sf_pause()

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

#  Set the shade color to Cyan (Colour value = 14)

i_color_value = 14

i_return_value =                                 @

   shade_color                                   @

      (  i_color_value )

dump i_return_value

sys_free_string( sv_asm_create_hpat_xyz_creat_id )

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


solid_color	()

#  Purpose          :  This file provides an example of 2 calls to the

#                      function solid_color()

#                      In this example a new database is opened and

#                      a solid is created. Then the function is called

#                      to change the colour of solid to Red and then

#                      Blue.

#                      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 solid_color() has the following arguments:

#  solid_color

#     (  color_value )

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

#  Variable Declarations

INTEGER  i_color_value

INTEGER  i_return_value

STRING   sv_asm_create_hpat_xyz_creat_id[VIRTUAL]

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

#  Create a new database and set the preferences

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

$? YES  36000002

#  Set the view

i_return_value =                                                @

   ga_view_aa_set                                               @

      (  -67., 0., -34. )

dump i_return_value

i_return_value =                                                @

   asm_const_hpat_xyz( "1", "<1 1 1>", "[0 0 0]", "Coord 0",    @

      sv_asm_create_hpat_xyz_creat_id )

dump i_return_value

#  Set the solid label ON

solid_label( TRUE )

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

sf_pause()

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

#  Set the solid colour to Red (Colour value = 1)

i_color_value = 1

solid_color (  i_color_value )

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

sf_pause()

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

#  Set the solid colour to Blue (Colour value = 4)

i_color_value = 4

solid_color (  i_color_value )

sys_free_string( sv_asm_create_hpat_xyz_creat_id )

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


solid_label	()

#  Purpose          :  This file provides an example of 2 calls to the

#                      function solid_label()

#                      In this example a new database is opened and

#                      a solid is created. Then the function is called

#                      to set the solid label to ON and OFF.

#                      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 solid_label() has the following arguments:

#  solid_label

#     (  label_value )

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

#  Variable Declarations

LOGICAL  l_label_value

INTEGER  i_return_value

STRING   sv_asm_create_hpat_xyz_creat_id[VIRTUAL]

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

#  Create a new database and set the preferences

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

$? YES  36000002

#  Set the view

i_return_value =                                                @

   ga_view_aa_set                                               @

      (  -67., 0., -34. )

dump i_return_value

i_return_value =                                                @

   asm_const_hpat_xyz( "1", "<1 1 1>", "[0 0 0]", "Coord 0",    @

      sv_asm_create_hpat_xyz_creat_id )

dump i_return_value

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

sf_pause()

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

#  Set the solid label ON

l_label_value = TRUE

solid_label (  l_label_value )

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

sf_pause()

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

#  Set the solid label OFF

l_label_value = FALSE

solid_label (  l_label_value )

sys_free_string( sv_asm_create_hpat_xyz_creat_id )

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


surface_color	()

#  Purpose          :  This file provides an example of 2 calls to the

#                      function surface_color()

#                      In this example a new database is opened and

#                      a surface is created. Then the function is

#                      called to change the colour of surface to Red

#                      and then Blue.

#                      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 surface_color() has the following arguments:

#  surface_color

#     (  color_value )

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

#  Variable Declarations

INTEGER  i_color_value

INTEGER  i_return_value

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

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

#  Create a new database and set the preferences

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

$? YES  36000002

#  Set the view.

i_return_value =                                                @

   ga_view_aa_set                                               @

      (  -67., 0., -34. )

dump i_return_value

#  Create a Patch

i_return_value =                                                @

   asm_const_patch_xyz( "1", "<1 1 0>", "[0 0 0]", "Coord 0",   @

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

#  Set the surface label ON

surface_label (  TRUE )

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

sf_pause()

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

#  Set the colour of the surface to Red.

i_color_value = 1

surface_color (  i_color_value )

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

sf_pause()

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

#  Set the colour of the surface to Blue.

i_color_value = 4

surface_color (  i_color_value )

sys_free_string( sv_asm_create_patch_xy_creat_id )

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


surface_label	()

#  Purpose          :  This file provides an example of 2 calls to the

#                      function surface_label()

#                      In this example a new database is opened and

#                      a surface is created. Then the function is

#                      called to set the surface label ON and OFF.

#                      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 surface_label() has the following arguments:

#  surface_label

#     (  label_status )

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

#  Variable Declarations

LOGICAL  l_label_status

INTEGER  i_return_value

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

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

#  Create a new database and set the preferences

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

$? YES  36000002

#  Set the view.

i_return_value =                                                @

   ga_view_aa_set                                               @

      (  -67., 0., -34. )

dump i_return_value

#  Create a Patch

i_return_value =                                                @

   asm_const_patch_xyz( "1", "<1 1 0>", "[0 0 0]", "Coord 0",   @

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

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

sf_pause()

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

#  Set the surface label ON

l_label_status = TRUE

surface_label (  l_label_status )

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

sf_pause()

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

#  Set the surface label OFF

l_label_status = FALSE

surface_label (  l_label_status )

sys_free_string( sv_asm_create_patch_xy_creat_id )

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


tet_elem_color	()

#  Purpose          :  This file provides an example of 2 calls to the

#                      function tet_elem_color()

#                      In this example a new database is opened and

#                      a solid is created. A tetrahedral element is

#                      created inside the solid.Then the function is

#                      called to change the colour of element to Red

#                      and then Blue.

#                      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 tet_elem_color() has the following arguments:

#  tet_elem_color

#     (  color_value )

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

#  Variable Declarations

INTEGER  i_color_value

INTEGER  i_return_value

STRING   sv_asm_create_hpat_xyz_creat_id[VIRTUAL]

STRING   sv_fem_create_elemen_elem_creat[VIRTUAL]

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

#  Create a new database and set the preferences

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

$? YES  36000002

#  Set the view

i_return_value =                                                @

   ga_view_aa_set                                               @

      (  -67., 0., -34. )

dump i_return_value

i_return_value =                                                @

   asm_const_hpat_xyz( "1", "<1 1 1>", "[0 0 0]", "Coord 0",    @

      sv_asm_create_hpat_xyz_creat_id )

dump i_return_value

i_return_value =                                                @

   fem_create_elems( "Tet ", "Tet4", "1", "Standard",           @

      TRUE, "Point 1 ", "Point 3 ", "Point 8 ",                 @

      "Point 4 ", "", "", "", "",                               @

      sv_fem_create_elemen_elem_creat )

dump i_return_value

#  Set the tetrahedral element label ON

tet_elem_label (  TRUE )

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

sf_pause()

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

#  Set the colour of Tetrahedral element to Red.

i_color_value = 1

tet_elem_color (  i_color_value )

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

sf_pause()

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

#  Set the colour of Tetrahedral element to Blue.

i_color_value = 4

tet_elem_color (  i_color_value )

sys_free_string( sv_asm_create_hpat_xyz_creat_id )

sys_free_string( sv_fem_create_elemen_elem_creat )

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


tet_elem_label	()

#  Purpose          :  This file provides an example of 2 calls to the

#                      function tet_elem_label()

#                      In this example a new database is opened and

#                      a solid is created. A tetrahedral element is

#                      created inside the solid.Then the function is

#                      called to set the label of tetrahedral element

#                      ON and OFF

#                      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 tet_elem_label() has the following arguments:

#  tet_elem_label

#     (  label_status )

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

#  Variable Declarations

LOGICAL  l_label_status

INTEGER  i_return_value

STRING   sv_asm_create_hpat_xyz_creat_id[VIRTUAL]

STRING   sv_fem_create_elemen_elem_creat[VIRTUAL]

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

#  Create a new database and set the preferences

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

$? YES  36000002

#  Set the view

i_return_value =                                                @

   ga_view_aa_set                                               @

      (  -67., 0., -34. )

dump i_return_value

i_return_value =                                                @

   asm_const_hpat_xyz( "1", "<1 1 1>", "[0 0 0]", "Coord 0",    @

      sv_asm_create_hpat_xyz_creat_id )

dump i_return_value

i_return_value =                                                @

   fem_create_elems( "Tet ", "Tet4", "1", "Standard",           @

      TRUE, "Point 1 ", "Point 3 ", "Point 8 ",                 @

      "Point 4 ", "", "", "", "",                               @

      sv_fem_create_elemen_elem_creat )

dump i_return_value

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

sf_pause()

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

#  Set the tetrahedral element label ON

l_label_status = TRUE

tet_elem_label (  l_label_status )

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

sf_pause()

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

#  Set the tetrahedral element label OFF

l_label_status = FALSE

tet_elem_label (  l_label_status )

dump i_return_value

sys_free_string( sv_asm_create_hpat_xyz_creat_id )

sys_free_string( sv_fem_create_elemen_elem_creat )

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


tri_elem_color	()

#  Purpose          :  This file provides an example of 2 calls to the

#                      function tri_elem_color()

#                      In this example a new database is opened and

#                      a surface is created. A triangular element is

#                      created inside the surface.Then the function is

#                      called to change the colour of element to Red

#                      and then Blue.

#                      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 tri_elem_color() has the following arguments:

#  tri_elem_color

#     (  color_value )

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

#  Variable Declarations

INTEGER  i_color_value

INTEGER  i_return_value

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

STRING   sv_fem_create_elemen_elem_creat[VIRTUAL]

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

#  Create a new database and set the preferences

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

$? YES  36000002

#  Set the view

i_return_value =                                                @

   ga_view_aa_set                                               @

      (  -67., 0., -34. )

dump i_return_value

#  Create a Patch.

i_return_value =                                                @

   asm_const_patch_xyz( "1", "<1 1 0>", "[0 0 0]", "Coord 0",   @

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

#  Create a Tria element.

i_return_value =                                                @

   fem_create_elems( "Tri ", "Tria3", "1", "Standard",          @

      TRUE, "Point 1 ", "Point 4 ", "Point 3 ", "",             @

      "", "", "", "", sv_fem_create_elemen_elem_creat )

dump i_return_value

#  Set the Triangular element label ON

tri_elem_label (  TRUE )

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

sf_pause()

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

#  Set the colour of the Triangular element to Red.

i_color_value = 1

tri_elem_color (  i_color_value )

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

sf_pause()

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

#  Set the colour of the Triangular element to Blue.

i_color_value = 4

tri_elem_color (  i_color_value )

sys_free_string( sv_asm_create_patch_xy_creat_id )

sys_free_string( sv_fem_create_elemen_elem_creat )

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


tri_elem_label	()

#  Purpose          :  This file provides an example of 2 calls to the

#                      function tri_elem_label()

#                      In this example a new database is opened and

#                      a surface is created. A triangular element is

#                      created inside the surface.Then the function is

#                      called to set the label of Triangular element

#                      ON and OFF

#                      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 tri_elem_label() has the following arguments:

#  tri_elem_label

#     (  label_status )

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

#  Variable Declarations

LOGICAL  l_label_status

INTEGER  i_return_value

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

STRING   sv_fem_create_elemen_elem_creat[VIRTUAL]

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

#  Create a new database and set the preferences

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

$? YES  36000002

#  Set the view

i_return_value =                                                @

   ga_view_aa_set                                               @

      (  -67., 0., -34. )

dump i_return_value

#  Create a Patch.

i_return_value =                                                @

   asm_const_patch_xyz( "1", "<1 1 0>", "[0 0 0]", "Coord 0",   @

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

#  Create a Tria element.

i_return_value =                                                @

   fem_create_elems( "Tri ", "Tria3", "1", "Standard",          @

      TRUE, "Point 1 ", "Point 4 ", "Point 3 ", "",             @

      "", "", "", "", sv_fem_create_elemen_elem_creat )

dump i_return_value

#  Set the colour of the Triangular element to Red(Colour value 1).

tri_elem_color (  1 )

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

sf_pause()

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

#  Set the Triangular element label ON

l_label_status = TRUE

tri_elem_label (  l_label_status )

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

sf_pause()

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

#  Set the Triangular element label OFF

l_label_status = FALSE

tri_elem_label (  l_label_status )

sys_free_string( sv_asm_create_patch_xy_creat_id )

sys_free_string( sv_fem_create_elemen_elem_creat )

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


trim_surface_color	()

#  Purpose          :  This file provides an example of 2 calls to the

#                      function trim_surface_color()

#                      In this example a new database is opened and

#                      2 surfaces are created. One surface is trimmed

#                      from other to create a new trimmed surface.

#                      Then the colour of that surface is changed to

#                      Red and then Blue.

#                      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 trim_surface_color() has the following arguments:

#  trim_surface_color

#     (  color_value )

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

#  Variable Declarations

INTEGER  i_color_value

INTEGER  i_return_value

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

INTEGER  i_sgm_creat_curv_aut_segment_id

STRING   sv_sgm_create_cur_creat_curv_id[VIRTUAL]

STRING   sv_sgm_surfac_trimmed__creat_id[VIRTUAL]

STRING   sv_asm_delete_surface_delet_ids[VIRTUAL]

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

#  Create a new database and set the preferences

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

$? YES  36000002

#  Create two patches.

i_return_value =                                 @

   asm_const_patch_xyz( "", "<1 1 0><0.5 0.5 0>",@

      "[0 0 0][0.25 0.25 0]", "Coord 0",         @

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

#  Create chain curve

i_return_value =                                 @

   sgm_create_curve_chain_v1( "1",               @

      " Surface 1.2 Surface 1.3 Surface 1.4"//   @

      " Surface 1.1", TRUE,                      @

      i_sgm_creat_curv_aut_segment_id,           @

      sv_sgm_create_cur_creat_curv_id )

dump i_return_value

#  Create chain curve

i_return_value =                                 @

   sgm_create_curve_chain_v1( "2",               @

      " Surface 2.2 Surface 2.3 Surface 2.4"//   @

      " Surface 2.1", TRUE,                      @

      i_sgm_creat_curv_aut_segment_id,           @

      sv_sgm_create_cur_creat_curv_id )

dump i_return_value

#  Create trimmed surface

i_return_value =                                 @

   sgm_create_surface_trimmed_v1( "3",           @

      "Curve 1 ", "Curve 2 ", "Surface 1",       @

      TRUE, TRUE, TRUE, TRUE,                    @

      sv_sgm_surfac_trimmed__creat_id )

$? YES 38000217

$? YES 38000217

$? YES 38000219

dump i_return_value

#  Delete old surface

i_return_value =                                 @

   asm_delete_surface( "Surface 2 ",             @

      sv_asm_delete_surface_delet_ids )

dump i_return_value

#  Set the trimmed surface label ON

trim_surface_label (  TRUE )

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

sf_pause()

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

#  Set the colour of Trimmed surface to RED.

i_color_value = 1

trim_surface_color (  i_color_value )

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

sf_pause()

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

#  Set the colour of Trimmed surface to BLUE.

i_color_value = 4

trim_surface_color (  i_color_value )

sys_free_string( sv_asm_create_patch_xy_creat_id )

sys_free_string( sv_sgm_create_cur_creat_curv_id )

sys_free_string( sv_sgm_surfac_trimmed__creat_id )

sys_free_string( sv_asm_delete_surface_delet_ids )

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


trim_surface_label	()

#  Purpose          :  This file provides an example of 2 calls to the

#                      function trim_surface_label()

#                      In this example a new database is opened and

#                      2 surfaces are created. One surface is trimmed

#                      from other to create a new trimmed surface.

#                      Then the label of that  surface is switched

#                      ON and OFF.

#                      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 trim_surface_label() has the following arguments:

#  trim_surface_label

#     (  label_status )

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

#  Variable Declarations

LOGICAL  l_label_status

INTEGER  i_return_value

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

INTEGER  i_sgm_creat_curv_aut_segment_id

STRING   sv_sgm_create_cur_creat_curv_id[VIRTUAL]

STRING   sv_sgm_surfac_trimmed__creat_id[VIRTUAL]

STRING   sv_asm_delete_surface_delet_ids[VIRTUAL]

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

#  Create a new database and set the preferences

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

$? YES  36000002

#  Create two patches.

i_return_value =                                 @

   asm_const_patch_xyz( "", "<1 1 0><0.5 0.5 0>",@

      "[0 0 0][0.25 0.25 0]", "Coord 0",         @

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

#  Create a chain curve

i_return_value =                                 @

   sgm_create_curve_chain_v1( "1",               @

      " Surface 1.2 Surface 1.3 Surface 1.4"//   @

      " Surface 1.1", TRUE,                      @

      i_sgm_creat_curv_aut_segment_id,           @

      sv_sgm_create_cur_creat_curv_id )

dump i_return_value

#  Create a chain curve

i_return_value =                                 @

   sgm_create_curve_chain_v1( "2",               @

      " Surface 2.2 Surface 2.3 Surface 2.4"//   @

      " Surface 2.1", TRUE,                      @

      i_sgm_creat_curv_aut_segment_id,           @

      sv_sgm_create_cur_creat_curv_id )

dump i_return_value

#  Create trimmed surface

i_return_value =                                 @

   sgm_create_surface_trimmed_v1( "3",           @

      "Curve 1 ", "Curve 2 ", "Surface 1",       @

      TRUE, TRUE, TRUE, TRUE,                    @

      sv_sgm_surfac_trimmed__creat_id )

$? YES 38000217

$? YES 38000217

$? YES 38000219

dump i_return_value

#  Delete old surface

i_return_value =                                 @

   asm_delete_surface( "Surface 2 ",             @

      sv_asm_delete_surface_delet_ids )

dump i_return_value

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

sf_pause()

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

#  Set the trimmed surface label ON

l_label_status = TRUE

trim_surface_label (  l_label_status )

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

sf_pause()

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

#  Set the trimmed surface label OFF

l_label_status = FALSE

trim_surface_label (  l_label_status )

sys_free_string( sv_asm_create_patch_xy_creat_id )

sys_free_string( sv_sgm_create_cur_creat_curv_id )

sys_free_string( sv_sgm_surfac_trimmed__creat_id )

sys_free_string( sv_asm_delete_surface_delet_ids )

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


wedge_elem_color	()

#  Purpose          :  This file provides an example of 2 calls to the

#                      function wedge_elem_color()

#                      In this example a new database is opened and

#                      a solid is created. A wedge element is created

#                      over the solid. Then the function is called

#                      to change the colour of wedge to Blue and then

#                      Red.

#                      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 wedge_elem_color() has the following arguments:

#  wedge_elem_color

#     (  color_value )

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

#  Variable Declarations

INTEGER  i_color_value

INTEGER  i_return_value

STRING   sv_asm_create_hpat_xyz_creat_id[VIRTUAL]

STRING   sv_fem_create_elemen_elem_creat[VIRTUAL]

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

#  Create a new database and set the preferences

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

$? YES  36000002

#  Set the view

i_return_value =                                                @

   ga_view_aa_set                                               @

      (  -67., 0., -34. )

dump i_return_value

i_return_value =                                                @

   asm_const_hpat_xyz( "1", "<1 1 1>", "[0 0 0]", "Coord 0",    @

      sv_asm_create_hpat_xyz_creat_id )

dump i_return_value

i_return_value =                                                @

   fem_create_elems( "Wed ", "Wedge6", "1",                     @

      "Standard", TRUE, "Point 1 ",                             @

      "Point 4 ", "Point 3 ", "Point 5 ", "Point 8 ",           @

      "Point 7 ", "", "",                                       @

      sv_fem_create_elemen_elem_creat )

dump i_return_value

#  Set the wedge element label ON

wedge_elem_label (  TRUE )

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

sf_pause()

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

#  Set the colour of Wedge Element to Blue.

i_color_value = 4

wedge_elem_color (  i_color_value )

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

sf_pause()

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

#  Set the colour of Wedge Element to Red.

i_color_value = 1

wedge_elem_color (  i_color_value )

sys_free_string( sv_asm_create_hpat_xyz_creat_id )

sys_free_string( sv_fem_create_elemen_elem_creat )

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


wedge_elem_label	()

#  Purpose          :  This file provides an example of 2 calls to the

#                      function wedge_elem_label()

#                      In this example a new database is opened and

#                      a solid is created. A wedge element is created

#                      over the solid. Then the function is called

#                      to set the label of Wedge element ON and OFF.

#                      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 wedge_elem_label() has the following arguments:

#  wedge_elem_label

#     (  label_status )

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

#  Variable Declarations

LOGICAL  l_label_status

INTEGER  i_return_value

STRING   sv_asm_create_hpat_xyz_creat_id[VIRTUAL]

STRING   sv_fem_create_elemen_elem_creat[VIRTUAL]

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

#  Create a new database and set the preferences

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

$? YES  36000002

#  Set the view

i_return_value =                                                @

   ga_view_aa_set                                               @

      (  -67., 0., -34. )

dump i_return_value

i_return_value =                                                @

   asm_const_hpat_xyz( "1", "<1 1 1>", "[0 0 0]", "Coord 0",    @

      sv_asm_create_hpat_xyz_creat_id )

dump i_return_value

i_return_value =                                                @

   fem_create_elems( "Wed ", "Wedge6", "1",                     @

      "Standard", TRUE, "Point 1 ",                             @

      "Point 4 ", "Point 3 ", "Point 5 ", "Point 8 ",           @

      "Point 7 ", "", "",                                       @

      sv_fem_create_elemen_elem_creat )

dump i_return_value

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

sf_pause()

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

#  Set the wedge element label ON

l_label_status = TRUE

wedge_elem_label (  l_label_status )

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

sf_pause()

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

#  Set the wedge element label OFF

l_label_status = FALSE

wedge_elem_label (  l_label_status )

sys_free_string( sv_asm_create_hpat_xyz_creat_id )

sys_free_string( sv_fem_create_elemen_elem_creat )

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