Display Menu

PCL Examples > Basic Functions > Display Menu

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX''">XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX''">

Display Menu

This section contains examples of functions that are used to control the values stored in the database that govern what and how geometric and finite element model entities are displayed in a viewport.


ga_display_autosubdivconst_get	()

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

#                      function ga_display_autosubdivconst_get()

#                      In this example the field.db is opened and

#                      displacement fringe results are posted. Then

#                      this function is called to get the tolerance

#                      value used in setting the ranges for spectrums.

#                      Then the function

#                      ga_display_autosubdivconst_set() is called to

#                      set a different value to tolerance and this

#                      function is called for the second time to get

#                      the tolerance value.

#                      Before running this session file run field.ses

#                      to create field.db

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

#  has the following arguments:

#  ga_display_autosubdivconst_get

#     (  display_name,

#        tolerance )

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

#  Variable Declarations

STRING   s_display_name[32]

REAL     r_tolerance

INTEGER  i_return_value

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

#  Open "field.db"

uil_file_open.go( "field.db" )

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Plot the displacement fringes

i_return_value = res_init_fringe_plot(  )

dump i_return_value

i_return_value = res_create_fringe_plot_rec3( 1, 2, 1, 1, 1, 1, @

   0, 0, 1., "", 1, 2, 3, 23, 1, 1, 0., 30, 0, 1 )

dump i_return_value

i_return_value = res_make_fringe_plot( 1, [1], [1], [""], [0.], @

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

   " (VEC-MAG) -MSC.Nastran" ] )

dump i_return_value

i_return_value = res_deinit_fringe_plot(  )

dump i_return_value

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

#  Get the tolerance value of the ranges spectrums

s_display_name="general"

i_return_value =                                                @

   ga_display_autosubdivconst_get                               @

      (  s_display_name,                                        @

         r_tolerance )

dump i_return_value

dump r_tolerance

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

#  Set the tolerance value for spectrum

i_return_value =                                                @

   ga_display_autosubdivconst_set                               @

      (  s_display_name,                                        @

         0.0001 )

dump i_return_value

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

#  Get the tolerance value of the ranges spectrums

i_return_value =                                                @

   ga_display_autosubdivconst_get                               @

      (  s_display_name,                                        @

         r_tolerance )

dump i_return_value

dump r_tolerance

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


ga_display_autosubdivconst_set	()

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

#                      function ga_display_autosubdivconst_set()

#                      In this example the field.db is opened and

#                      displacement fringe results are posted. Then

#                      the function ga_display_autosubdivconst_get()

#                      is called to get the tolerance value of the

#                      spectrum range. Then this function is called

#                      to set a new value for the tolerance and

#                      ga_display_autosubdivconst_get() is again

#                      called to get the tolerance value.

#                      Before running this session file run field.ses

#                      to create field.db

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

#  has the following arguments:

#  ga_display_autosubdivconst_set

#     (  display_name,

#        tolerance )

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

#  Variable Declarations

STRING   s_display_name[32]

REAL     r_tolerance

INTEGER  i_return_value

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

#  Open "field.db"

uil_file_open.go( "field.db" )

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Plot the displacement fringes

i_return_value = res_init_fringe_plot(  )

dump i_return_value

i_return_value = res_create_fringe_plot_rec3( 1, 2, 1, 1, 1, 1, @

   0, 0, 1., "", 1, 2, 3, 23, 1, 1, 0., 30, 0, 1 )

dump i_return_value

i_return_value = res_make_fringe_plot( 1, [1], [1], [""], [0.], @

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

   " (VEC-MAG) -MSC.Nastran" ] )

dump i_return_value

i_return_value = res_deinit_fringe_plot(  )

dump i_return_value

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

#  Get the tolerance value of the ranges spectrums

i_return_value =                                                @

   ga_display_autosubdivconst_get                               @

      (  "general",                                             @

         r_tolerance )

dump i_return_value

dump r_tolerance

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

#  Set the tolerance value for spectrum

r_tolerance = 0.0001

i_return_value =                                                @

   ga_display_autosubdivconst_set                               @

      (  s_display_name,                                        @

         r_tolerance )

dump i_return_value

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

#  Reset the variable equal to 0.0

r_tolerance = 0.0

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

#  Get the tolerance value of the ranges spectrums

i_return_value =                                                @

   ga_display_autosubdivconst_get                               @

      (  "general",                                             @

         r_tolerance )

dump i_return_value

dump r_tolerance

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


ga_display_autosubdivide_get	()

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

#                      the function ga_display_autosubdivide_get()

#                      In this example field.db is opened and the

#                      displacement fringe results are posted. Then

#                      this function is called to get the status of

#                      the autosubdivide flag. Then the

#                      autosubdivide flag is changed using the

#                      function ga_display_autosubdivide_set(). This

#                      function is called for the second time to get

#                      the status of the autosubdivide flag.

#                      Before running this session file run field.ses

#                      to create field.db

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

#  has the following arguments:

#  ga_display_autosubdivide_get

#     (  display_name,

#        autosubdivide_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_autosubdivide_status

INTEGER  i_return_value

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

#  Open "field.db"

uil_file_open.go( "field.db" )

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Plot the displacement fringes

i_return_value = res_init_fringe_plot(  )

dump i_return_value

i_return_value = res_create_fringe_plot_rec3( 1, 2, 1, 1, 1, 1, @

   0, 0, 1., "", 1, 2, 3, 23, 1, 1, 0., 30, 0, 1 )

dump i_return_value

i_return_value = res_make_fringe_plot( 1, [1], [1], [""], [0.], @

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

   " (VEC-MAG) -MSC.Nastran" ] )

dump i_return_value

i_return_value = res_deinit_fringe_plot(  )

dump i_return_value

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

#  Get the status of the autosubdivide flag

s_display_name = "general"

i_return_value =                                                @

   ga_display_autosubdivide_get                                 @

      (  s_display_name,                                        @

         i_autosubdivide_status )

dump i_return_value

dump i_autosubdivide_status

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

#  Set the status of the autosubdivide flag

i_return_value =                                                @

   ga_display_autosubdivide_set                                 @

      (  s_display_name, 1 )

dump i_return_value

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

#  Get the status of the autosubdivide flag

i_return_value =                                                @

   ga_display_autosubdivide_get                                 @

      (  s_display_name,                                        @

         i_autosubdivide_status )

dump i_return_value

dump i_autosubdivide_status

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


ga_display_autosubdivide_set	()

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

#                      function ga_display_autosubdivide_set()

#                      In this example field.db is opened and the

#                      displacement fringe results are posted. Then

#                      the function ga_display_autosubdivide_get()

#                      is called to get the status of the

#                      autosubdivide flag. Then the autosubdivide

#                      flag is changed using this function. The

#                      change is verified by getting the

#                      autosubdivide flag in the end.

#                      Before running this session file run field.ses

#                      to create field.db

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

#  has the following arguments:

#  ga_display_autosubdivide_set

#     (  display_name,

#        autosubdivide_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_autosubdivide_status

INTEGER  i_return_value

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

#  Open "field.db"

uil_file_open.go( "field.db" )

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Plot the displacement fringes

i_return_value = res_init_fringe_plot(  )

dump i_return_value

i_return_value = res_create_fringe_plot_rec3( 1, 2, 1, 1, 1, 1, @

   0, 0, 1., "", 1, 2, 3, 23, 1, 1, 0., 30, 0, 1 )

dump i_return_value

i_return_value = res_make_fringe_plot( 1, [1], [1], [""], [0.], @

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

   " (VEC-MAG) -MSC.Nastran" ] )

dump i_return_value

i_return_value = res_deinit_fringe_plot(  )

dump i_return_value

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

#  Get the status of the autosubdivide flag

i_return_value =                                                @

   ga_display_autosubdivide_get                                 @

      (  "general",                                             @

         i_autosubdivide_status )

dump i_return_value

dump i_autosubdivide_status

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

#  Set the status of the autosubdivide flag

s_display_name         = "general"

i_autosubdivide_status = 1

i_return_value =                                                @

   ga_display_autosubdivide_set                                 @

      (  s_display_name,                                        @

         i_autosubdivide_status )

dump i_return_value

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

#  Reset the variable equal to zero

i_autosubdivide_status = 0

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

#  Get the status of the autosubdivide flag

i_return_value =                                                @

   ga_display_autosubdivide_get                                 @

      (  "general",                                             @

         i_autosubdivide_status )

dump i_return_value

dump i_autosubdivide_status

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


ga_display_backfacing_get	()

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

#                      the function ga_display_backfacing_get()

#                      This session file will open a new database by

#                      name ’new.db’. Function

#                      ’ga_display_backfacing_get’ will be called to

#                      get the back facing status. The status will

#                      then be set by using function

#                      ’ga_display_backfacing_set’. Then the function

#                      ’ga_display_backfacing_get’ will be called and

#                      status will be read 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 ga_display_backfacing_get()

#  has the following arguments:

#  ga_display_backfacing_get

#     (  display_name,

#        backface_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_backface_status

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Calling function to get the back facing status.

s_display_name = "general"

i_return_value =                                 @

   ga_display_backfacing_get                     @

      (  s_display_name,                         @

         i_backface_status )

dump i_return_value

dump i_backface_status

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

#  Calling function to set the back facing status.

IF ( i_backface_status == 0)THEN

   i_backface_status = 1

ELSE

   i_backface_status = 0

ENDIF

i_return_value =                                 @

   ga_display_backfacing_set                     @

      (  s_display_name,                         @

         i_backface_status )

dump i_return_value

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

#  Calling function to get the back facing status.

i_return_value =                                 @

   ga_display_backfacing_get                     @

      (  s_display_name,                         @

         i_backface_status )

dump i_return_value

dump i_backface_status

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


ga_display_backfacing_set	()

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

#                      function ga_display_backfacing_set()

#                      This session file will open a new database by

#                      name ’new.db’. Function

#                      ’ga_display_backfacing_get’ will be called to

#                      get the back facing status. The status will

#                      then be set by using function

#                      ’ga_display_backfacing_set’. Then the function

#                      ’ga_display_backfacing_get’ will be called and

#                      status will be read 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 ga_display_backfacing_set()

#  has the following arguments:

#  ga_display_backfacing_set

#     (  display_name,

#        backface_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_backface_status

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Calling function to get the back facing status.

s_display_name = "general"

i_return_value =                                 @

   ga_display_backfacing_get                     @

      (  s_display_name,                         @

         i_backface_status )

dump i_return_value

dump i_backface_status

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

#  Calling function to set the back facing status.

IF ( i_backface_status == 0)THEN

   i_backface_status = 1

ELSE

   i_backface_status = 0

ENDIF

i_return_value =                                 @

   ga_display_backfacing_set                     @

      (  s_display_name,                         @

         i_backface_status )

dump i_return_value

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

#  Calling function to get the back facing status.

i_return_value =                                 @

   ga_display_backfacing_get                     @

      (  s_display_name,                         @

         i_backface_status )

dump i_return_value

dump i_backface_status

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


ga_display_bumpmap_get	()

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

#                      the function ga_display_bumpmap_get()

#                      This session file will create a new database by

#                      name ’new.db’ and create a surface. The surface

#                      will be meshed and the bump map value will be

#                      get by using function ’ga_display_bumpmap_get’.

#                      The bump map value will be set by using

#                      function ’ga_display_bumpmap_set’ and the bump

#                      map value will be get 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 ga_display_bumpmap_get()

#  has the following arguments:

#  ga_display_bumpmap_get

#     (  display_name,

#        bumpmap_id,

#        bump_map_number )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_bumpmap_id

INTEGER  i_bump_map_number

INTEGER  i_return_value

STRING   sv_asm_line_3point_crtd_ids[VIRTUAL]

STRING   sv_sgm_sweep_surface_e_crtd_ids[VIRTUAL]

INTEGER  i_fem_create_num_nodes

INTEGER  i_fem_create_num_elems

STRING   sv_fem_create_nodes_created[VIRTUAL]

STRING   sv_fem_create_elems_created[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a surface by extruding a curve and mesh it.

i_return_value =                                 @

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

      "[1 -0.5 0]", "[1.5 0.25 0]", 1, 0.5,      @

      sv_asm_line_3point_crtd_ids )

dump i_return_value

i_return_value =                                 @

   sgm_const_surface_extrude( "1", "<0 0 01>",1.,@

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

      sv_sgm_sweep_surface_e_crtd_ids )

dump i_return_value

i_return_value =                                 @

   fem_create_mesh_surf_2( "IsoMesh", 0,         @

      "Surface 1 ", 1, [0.5], "Quad8", "1", "1"  @

      ,"Coord 0","Coord 0",i_fem_create_num_nodes@

      , i_fem_create_num_elems,                  @

      sv_fem_create_nodes_created, sv_fem_create_elems_created )

dump i_return_value

i_return_value = ga_view_aa_set( 30., 0., -15. )

dump i_return_value

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

#  Calling function to get the bump map number.

s_display_name = "general"

i_return_value =                                 @

   ga_display_bumpmap_get                        @

      (  s_display_name,                         @

         i_bumpmap_id,                           @

         i_bump_map_number )

dump i_return_value, i_bumpmap_id, i_bump_map_number

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

#  Calling function to set the bump map number.

i_bump_map_number = 30

i_return_value =                                 @

   ga_display_bumpmap_set                        @

      (  s_display_name,                         @

         i_bumpmap_id,                           @

         i_bump_map_number )

dump i_return_value

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

#  Calling function to get the bump map number.

i_return_value =                                 @

   ga_display_bumpmap_get                        @

      (  s_display_name,                         @

         i_bumpmap_id,                           @

         i_bump_map_number )

dump i_return_value, i_bumpmap_id, i_bump_map_number

sys_free_string(sv_asm_line_3point_crtd_ids)

sys_free_string(sv_sgm_sweep_surface_e_crtd_ids)

sys_free_string(sv_fem_create_nodes_created)

sys_free_string(sv_fem_create_elems_created)

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


ga_display_bumpmap_set	()

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

#                      function ga_display_bumpmap_set()

#                      This session file will create a new database by

#                      name ’new.db’ and create a surface. The surface

#                      will be meshed and the bump map value will be

#                      get by using function ’ga_display_bumpmap_get’.

#                      The bump map value will be set by using

#                      function ’ga_display_bumpmap_set’ and the bump

#                      map value will be get 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 ga_display_bumpmap_set()

#  has the following arguments:

#  ga_display_bumpmap_set

#     (  display_name,

#        bumpmap_id,

#        bump_map_number )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_bumpmap_id

INTEGER  i_bump_map_number

INTEGER  i_return_value

STRING   sv_asm_line_3point_crtd_ids[VIRTUAL]

STRING   sv_sgm_sweep_surface_e_crtd_ids[VIRTUAL]

INTEGER  i_fem_create_num_nodes

INTEGER  i_fem_create_num_elems

STRING   sv_fem_create_nodes_created[VIRTUAL]

STRING   sv_fem_create_elems_created[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a surface by extruding a curve and mesh it.

i_return_value =                                 @

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

      "[1 -0.5 0]", "[1.5 0.25 0]", 1, 0.5,      @

      sv_asm_line_3point_crtd_ids )

dump i_return_value

i_return_value =                                 @

   sgm_const_surface_extrude( "1", "<0 0 01>",1.,@

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

      sv_sgm_sweep_surface_e_crtd_ids )

dump i_return_value

i_return_value =                                 @

   fem_create_mesh_surf_2( "IsoMesh", 0,         @

      "Surface 1 ", 1, [0.5], "Quad8", "1", "1"  @

      ,"Coord 0","Coord 0",i_fem_create_num_nodes@

      , i_fem_create_num_elems,                  @

      sv_fem_create_nodes_created, sv_fem_create_elems_created )

dump i_return_value

i_return_value = ga_view_aa_set( 30., 0., -15. )

dump i_return_value

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

#  Calling function to get the bump map number.

s_display_name = "general"

i_return_value =                                 @

   ga_display_bumpmap_get                        @

      (  s_display_name,                         @

         i_bumpmap_id,                           @

         i_bump_map_number )

dump i_return_value, i_bumpmap_id, i_bump_map_number

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

#  Calling function to set the bump map number.

i_bump_map_number = 30

i_return_value =                                 @

   ga_display_bumpmap_set                        @

      (  s_display_name,                         @

         i_bumpmap_id,                           @

         i_bump_map_number )

dump i_return_value

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

#  Calling function to get the bump map number.

i_return_value =                                 @

   ga_display_bumpmap_get                        @

      (  s_display_name,                         @

         i_bumpmap_id,                           @

         i_bump_map_number )

dump i_return_value, i_bumpmap_id, i_bump_map_number

sys_free_string(sv_asm_line_3point_crtd_ids)

sys_free_string(sv_sgm_sweep_surface_e_crtd_ids)

sys_free_string(sv_fem_create_nodes_created)

sys_free_string(sv_fem_create_elems_created)

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


ga_display_contour_lblspcng_get	()

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

#                      the function ga_display_contour_lblspcng_get()

#                      This session file will open a database

#                      ’spool.db’ and will plot contours for

#                      fillet_pressure load set. The label spacing for

#                      contours will be get. The label spacing will be

#                      set and get again after resuming from pause.

#                      Before running this session file run spool.ses

#                      to create spool.db

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

#  has the following arguments:

#  ga_display_contour_lblspcng_get

#     (  display_name,

#        label_spacing )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_label_spacing

INTEGER  i_return_value

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

#  Open the database "spool.db"

uil_file_open.go("spool.db")

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

#  Displaying contours for ’fillet_pressure’ load set.

i_return_value =                                 @

   loadsbcs_plot_contours( "Pressure", 0.,       @

      "Bot Surf Pressure", "Resultant",          @

      [ "fillet_pressure"], ["fem_model"] )

dump i_return_value

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

#  Calling function to get the label spacing.

s_display_name = "general"

i_return_value =                                 @

   ga_display_contour_lblspcng_get               @

      (  s_display_name,                         @

         i_label_spacing )

dump i_return_value, i_label_spacing

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

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

sf_pause()

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

#  Calling function to set the label spacing.

i_label_spacing = 30

i_return_value =                                 @

   ga_display_contour_lblspcng_set               @

      (  s_display_name,                         @

         i_label_spacing )

dump i_return_value

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

#  Calling function to get the label spacing.

i_return_value =                                 @

   ga_display_contour_lblspcng_get               @

      (  s_display_name,                         @

         i_label_spacing )

dump i_return_value, i_label_spacing

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


ga_display_contour_lblspcng_set	()

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

#                      function ga_display_contour_lblspcng_set()

#                      This session file will open a database

#                      ’spool.db’ and will plot contours for

#                      fillet_pressure load set. The label spacing for

#                      contours will be get. The label spacing will be

#                      set and get again after resuming from pause.

#                      Before running this session file run spool.ses

#                      to create spool.db

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

#  has the following arguments:

#  ga_display_contour_lblspcng_set

#     (  display_name,

#        label_spacing )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_label_spacing

INTEGER  i_return_value

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

#  Open the database "spool.db"

uil_file_open.go("spool.db")

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

#  Displaying contours for ’fillet_pressure’ load set.

i_return_value =                                 @

   loadsbcs_plot_contours( "Pressure", 0.,       @

      "Bot Surf Pressure", "Resultant",          @

      [ "fillet_pressure"], ["fem_model"] )

dump i_return_value

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

#  Calling function to get the label spacing.

s_display_name = "general"

i_return_value =                                 @

   ga_display_contour_lblspcng_get               @

      (  s_display_name,                         @

         i_label_spacing )

dump i_return_value, i_label_spacing

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

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

sf_pause()

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

#  Calling function to set the label spacing.

i_label_spacing = 30

i_return_value =                                 @

   ga_display_contour_lblspcng_set               @

      (  s_display_name,                         @

         i_label_spacing )

dump i_return_value

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

#  Calling function to get the label spacing.

i_return_value =                                 @

   ga_display_contour_lblspcng_get               @

      (  s_display_name,                         @

         i_label_spacing )

dump i_return_value, i_label_spacing

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


ga_display_create	()

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

#                      function ga_display_create()

#                      This file opens a new database "new.db" and

#                      gets the named display property names. Later

#                      it creates a new named display property name

#                      and gets the list. Finally it deletes the named

#                      display property name and gets the list of

#                      named display property names.

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

#  has the following arguments:

#  ga_display_create

#     (  display_name )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sa_display_list[32](4)

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  s_display_name = "new_display_property"

s_display_name = "new_display_property"

i_return_value =                                 @

   ga_display_displays_get                       @

      (  sa_display_list )

dump i_return_value

#  The list of display property names.

dump sa_display_list

#  Reset the list.

sa_display_list(1) = ""

sa_display_list(2) = ""

sa_display_list(3) = ""

sa_display_list(4) = ""

#  Create the named display property.

i_return_value =                                 @

   ga_display_create                             @

      (  s_display_name )

dump i_return_value

i_return_value =                                 @

   ga_display_displays_get                       @

      (  sa_display_list )

dump i_return_value

#  The list of display property names.

dump sa_display_list

#  Reset the list.

sa_display_list(1) = ""

sa_display_list(2) = ""

sa_display_list(3) = ""

sa_display_list(4) = ""

#  Delete the named display property.

i_return_value =                                 @

   ga_display_delete                             @

      (  s_display_name )

dump i_return_value

i_return_value =                                 @

   ga_display_displays_get                       @

      (  sa_display_list )

dump i_return_value

#  The list of display property names.

dump sa_display_list

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


ga_display_deform_scale_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_deform_scale_get()

#                      This file opens the existing database

#                      "spool.db" and reads the deformation results.

#                      It then gets the deformation scale for the

#                      named display property. Finally it sets the

#                      deformation scale and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db. Follow the instructions in

#                      spool.ses and create spool.op2 and spool.jbr.

#                      Finally copy the file  "spool_res_deform.ses"

#                      to the current working directory.

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

#  has the following arguments:

#  ga_display_deform_scale_get

#     (  display_name,

#        deformation_scale )

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

#  Variable Declarations

STRING   s_display_name[32]

REAL     r_deformation_scale

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results

sf_play("spool_res_deform.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Get the deformation scale.

i_return_value =                                 @

   ga_display_deform_scale_get                   @

      (  s_display_name,                         @

         r_deformation_scale )

dump i_return_value

dump r_deformation_scale

#  Set the deformation scale.

IF (r_deformation_scale == 0.1 ) THEN

   r_deformation_scale = 0.9

ELSE

   r_deformation_scale = 0.1

ENDIF

#  Note the change of deformation on the viewport.

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

sf_pause()

i_return_value =                                 @

   ga_display_deform_scale_set                   @

      (  s_display_name,                         @

         r_deformation_scale )

dump i_return_value

#  Reset the value.

r_deformation_scale = 0.0

#  Get the deformation scale.

i_return_value =                                 @

   ga_display_deform_scale_get                   @

      (  s_display_name,                         @

         r_deformation_scale )

dump i_return_value

dump r_deformation_scale

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


ga_display_deform_scale_set	()

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

#                      function ga_display_deform_scale_set()

#                      This file opens the existing database

#                      "spool.db" and reads the deformation results.

#                      It then gets the deformation scale for the

#                      named display property. Finally it sets the

#                      deformation scale and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db. Follow the instructions in

#                      spool.ses and create spool.op2 and spool.jbr.

#                      Finally copy the file  "spool_res_deform.ses"

#                      to the current working directory.

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

#  has the following arguments:

#  ga_display_deform_scale_set

#     (  display_name,

#        deformation_scale )

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

#  Variable Declarations

STRING   s_display_name[32]

REAL     r_deformation_scale

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results

sf_play("spool_res_deform.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Get the deformation scale.

i_return_value =                                 @

   ga_display_deform_scale_get                   @

      (  s_display_name,                         @

         r_deformation_scale )

dump i_return_value

dump r_deformation_scale

#  Set the deformation scale.

IF (r_deformation_scale == 0.1 ) THEN

   r_deformation_scale = 0.9

ELSE

   r_deformation_scale = 0.1

ENDIF

#  Note the change of deformation on the viewport.

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

sf_pause()

i_return_value =                                 @

   ga_display_deform_scale_set                   @

      (  s_display_name,                         @

         r_deformation_scale )

dump i_return_value

#  Reset the value.

r_deformation_scale = 0.0

#  Get the deformation scale.

i_return_value =                                 @

   ga_display_deform_scale_get                   @

      (  s_display_name,                         @

         r_deformation_scale )

dump i_return_value

dump r_deformation_scale

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


ga_display_deform_scalintrp_get	()

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

#                      the function ga_display_deform_scalintrp_get()

#                      This file opens a existing database "spool.db"

#                      and reads in the deformation results. Later

#                      it gets the interpretation value for the

#                      deformed entity scale. Finally it changes the

#                      interpretation value and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db. Follow the instructions in

#                      spool.ses and create spool.op2 and spool.jbr.

#                      Finally copy the file  "spool_res_deform.ses"

#                      to the current working directory.

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

#  has the following arguments:

#  ga_display_deform_scalintrp_get

#     (  display_name,

#        interpretation )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   s_interpretation[32]

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_deform.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Get the interpretation value.

i_return_value =                                 @

   ga_display_deform_scalintrp_get               @

      (  s_display_name,                         @

         s_interpretation )

dump i_return_value

dump s_interpretation

#  Set the interpretation value.

IF (s_interpretation == "VALUE" ) THEN

   s_interpretation = "PERCENTAGE"

ELSE

   s_interpretation = "VALUE"

ENDIF

#  Note the change of deformation on the viewport.

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

sf_pause()

i_return_value =                                 @

   ga_display_deform_scalintrp_set               @

      (  s_display_name,                         @

         s_interpretation )

dump i_return_value

#  Reset the value.

s_interpretation = ""

#  Get the interpretation value.

i_return_value =                                 @

   ga_display_deform_scalintrp_get               @

      (  s_display_name,                         @

         s_interpretation )

dump i_return_value

dump s_interpretation

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


ga_display_deform_scalintrp_set	()

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

#                      function ga_display_deform_scalintrp_set()

#                      This file opens a existing database "spool.db"

#                      and reads in the deformation results. Later

#                      it gets the interpretation value for the

#                      deformed entity scale. Finally it changes the

#                      interpretation value and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db. Follow the instructions in

#                      spool.ses and create spool.op2 and spool.jbr.

#                      Finally copy the file  "spool_res_deform.ses"

#                      to the current working directory.

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

#  has the following arguments:

#  ga_display_deform_scalintrp_set

#     (  display_name,

#        interpretation )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   s_interpretation[32]

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_deform.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Get the interpretation value.

i_return_value =                                 @

   ga_display_deform_scalintrp_get               @

      (  s_display_name,                         @

         s_interpretation )

dump i_return_value

dump s_interpretation

#  Set the interpretation value.

IF (s_interpretation == "VALUE" ) THEN

   s_interpretation = "PERCENTAGE"

ELSE

   s_interpretation = "VALUE"

ENDIF

#  Note the change of deformation on the viewport.

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

sf_pause()

i_return_value =                                 @

   ga_display_deform_scalintrp_set               @

      (  s_display_name,                         @

         s_interpretation )

dump i_return_value

#  Reset the value.

s_interpretation = ""

#  Get the interpretation value.

i_return_value =                                 @

   ga_display_deform_scalintrp_get               @

      (  s_display_name,                         @

         s_interpretation )

dump i_return_value

dump s_interpretation

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


ga_display_delete	()

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

#                      function ga_display_delete()

#                      This file opens a new database "new.db" and

#                      gets the named display property names .Later

#                      it creates a new named display property name

#                      and gets the list. Finally it deletes the named

#                      display property name and gets the list of

#                      named display property names.

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

#  has the following arguments:

#  ga_display_delete

#     (  display_name )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sa_display_list[32](4)

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  s_display_name = "new_display_property"

s_display_name = "new_display_property"

i_return_value =                                 @

   ga_display_displays_get                       @

      (  sa_display_list )

dump i_return_value

#  The list of display property names.

dump sa_display_list

#  Reset the list.

sa_display_list(1) = ""

sa_display_list(2) = ""

sa_display_list(3) = ""

sa_display_list(4) = ""

#  Create the named display property.

i_return_value =                                 @

   ga_display_create                             @

      (  s_display_name )

dump i_return_value

i_return_value =                                 @

   ga_display_displays_get                       @

      (  sa_display_list )

dump i_return_value

#  The list of display property names.

dump sa_display_list

#  Reset the list.

sa_display_list(1) = ""

sa_display_list(2) = ""

sa_display_list(3) = ""

sa_display_list(4) = ""

#  Delete the named display property.

i_return_value =                                 @

   ga_display_delete                             @

      (  s_display_name )

dump i_return_value

i_return_value =                                 @

   ga_display_displays_get                       @

      (  sa_display_list )

dump i_return_value

#  The list of display property names.

dump sa_display_list

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


ga_display_diffuse_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_diffuse_get()

#                      This file opens a new database "new.db" and

#                      creates a surface and renders it. Later it

#                      sets the texture to rough appearance. Then

#                      it gets the diffuse reflectance value. Finally

#                      it sets the diffuse reflectance value and gets

#                      it.

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

#  has the following arguments:

#  ga_display_diffuse_get

#     (  display_name,

#        diffuse_reflectance )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

REAL     r_diffuse_reflectance

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface and render it.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

renderstyle("shaded/smooth")

#  s_display_name = "general"

s_display_name = "general"

#  Set the texture.

i_return_value =                                 @

   ga_display_texture_set                        @

      (  s_display_name,                         @

         1.0 )

dump i_return_value

#  Get the diffuse reflectance value.

i_return_value =                                 @

   ga_display_diffuse_get                        @

      (  s_display_name,                         @

         r_diffuse_reflectance )

dump i_return_value

dump r_diffuse_reflectance

#  Note the change on the viewport.

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

sf_pause()

#  Set the diffuse reflectance value.

IF ( r_diffuse_reflectance  == 1.0) THEN

   r_diffuse_reflectance = 0.0

ELSE

   r_diffuse_reflectance = 1.0

ENDIF

i_return_value =                                 @

   ga_display_diffuse_set                        @

      (  s_display_name,                         @

         r_diffuse_reflectance )

dump i_return_value

#  Reset the value.

r_diffuse_reflectance = 100.0

#  Get the diffuse reflectance value.

i_return_value =                                 @

   ga_display_diffuse_get                        @

      (  s_display_name,                         @

         r_diffuse_reflectance )

dump i_return_value

dump r_diffuse_reflectance

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_diffuse_set	()

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

#                      function ga_display_diffuse_set()

#                      This file opens a new database "new.db" and

#                      creates a surface and renders it. Later it

#                      sets the texture to rough appearance. Then

#                      it gets the diffuse reflectance value. Finally

#                      it sets the diffuse reflectance value and gets

#                      it.

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

#  has the following arguments:

#  ga_display_diffuse_set

#     (  display_name,

#        diffuse_reflectance )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

REAL     r_diffuse_reflectance

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface and render it.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

renderstyle("shaded/smooth")

#  s_display_name = "general"

s_display_name = "general"

#  Set the texture.

i_return_value =                                 @

   ga_display_texture_set                        @

      (  s_display_name,                         @

         1.0 )

dump i_return_value

#  Get the diffuse reflectance value.

i_return_value =                                 @

   ga_display_diffuse_get                        @

      (  s_display_name,                         @

         r_diffuse_reflectance )

dump i_return_value

dump r_diffuse_reflectance

#  Note the change on the viewport.

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

sf_pause()

#  Set the diffuse reflectance value.

IF ( r_diffuse_reflectance  == 1.0) THEN

   r_diffuse_reflectance = 0.0

ELSE

   r_diffuse_reflectance = 1.0

ENDIF

i_return_value =                                 @

   ga_display_diffuse_set                        @

      (  s_display_name,                         @

         r_diffuse_reflectance )

dump i_return_value

#  Reset the value.

r_diffuse_reflectance = 100.0

#  Get the diffuse reflectance value.

i_return_value =                                 @

   ga_display_diffuse_get                        @

      (  s_display_name,                         @

         r_diffuse_reflectance )

dump i_return_value

dump r_diffuse_reflectance

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_displays_get	()

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

#                      function ga_display_displays_get()

#                      This file opens a new database "new.db" and

#                      gets the list of the all the defined named

#                      display properties. The new database contains

#                      "general" and "simple" as the two default

#                      display names.

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

#  has the following arguments:

#  ga_display_displays_get

#     (  display_list )

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

#  Variable Declarations

STRING   sa_display_list[32](4)

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

i_return_value =                                 @

   ga_display_displays_get                       @

      (  sa_display_list )

dump i_return_value

#  The List of display property names are

dump sa_display_list

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


ga_display_edgecolor_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_edgecolor_get()

#                      This file opens a new database "new.db" and

#                      creates a surface, shades it and gets the

#                      edge color. Later it sets the edge color and

#                      then again gets it.

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

#  has the following arguments:

#  ga_display_edgecolor_get

#     (  display_name,

#        color_index )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_color_index

INTEGER  i_edge_status

INTEGER  i_edge_color

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

renderstyle("shaded/smooth")

#  s_display_name = "general"

s_display_name = "general"

#  Set the edgedisplay.

i_edge_status = 1

i_return_value =                                 @

   ga_display_showedges_set                      @

      (  s_display_name,                         @

         i_edge_status )

dump i_return_value

#  Get the edge color.

i_return_value =                                 @

   ga_display_edgecolor_get                      @

      (  s_display_name,                         @

         i_color_index )

dump i_return_value

dump i_color_index

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

sf_pause()

#  Set the edge color.

IF ( i_color_index == 5 ) THEN

   i_color_index = 1

ELSE

   i_color_index = 5

END IF

i_return_value =                                 @

   ga_display_edgecolor_set                      @

      (  s_display_name,                         @

         i_color_index )

dump i_return_value

i_color_index = 0

#  Get the edge color.

i_return_value =                                 @

   ga_display_edgecolor_get                      @

      (  s_display_name,                         @

         i_color_index )

dump i_return_value

dump i_color_index

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_edgecolor_set	()

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

#                      function ga_display_edgecolor_set()

#                      This file opens a new database "new.db" and

#                      creates a surface, shades it and gets the

#                      edge color. Later it sets the edge color and

#                      then again gets it.

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

#  has the following arguments:

#  ga_display_edgecolor_set

#     (  display_name,

#        color_index )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_color_index

INTEGER  i_edge_status

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

renderstyle("shaded/smooth")

#  s_display_name = "general"

s_display_name = "general"

#  Set the edgedisplay.

i_edge_status = 1

i_return_value =                                 @

   ga_display_showedges_set                      @

      (  s_display_name,                         @

         i_edge_status )

dump i_return_value

#  Get the edge color.

i_return_value =                                 @

   ga_display_edgecolor_get                      @

      (  s_display_name,                         @

         i_color_index )

dump i_return_value

dump i_color_index

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

sf_pause()

#  Set the edge color.

IF ( i_color_index == 5 ) THEN

   i_color_index = 1

ELSE

   i_color_index = 5

END IF

i_return_value =                                 @

   ga_display_edgecolor_set                      @

      (  s_display_name,                         @

         i_color_index )

dump i_return_value

#  Reset the value.

i_color_index = 0

#  Get the edge color.

i_return_value =                                 @

   ga_display_edgecolor_get                      @

      (  s_display_name,                         @

         i_color_index )

dump i_return_value

dump i_color_index

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_exist_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_exist_get()

#                      This file opens a new database "new.db" and

#                      gets the existance status for an existing

#                      and a non existing display name.

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

#  has the following arguments:

#  ga_display_exist_get

#     (  display_name,

#        display_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_display_status

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  s_display_name = "general"

s_display_name = "general"

#   Check for existing display name.

i_return_value =                                 @

   ga_display_exist_get                          @

      (  s_display_name,                         @

         i_display_status )

dump i_return_value

#  The existance status is

dump i_display_status

#  s_display_name = "non_existant_display"

s_display_name = "non_existant_display"

#   Check for non existing display name.

i_return_value =                                 @

   ga_display_exist_get                          @

      (  s_display_name,                         @

         i_display_status )

dump i_return_value

#  The existance status is

dump i_display_status

#  Note that the error occured during the second call to the

#  due to non existance of the specified display property name.

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


ga_display_freefem_get	()

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

#                      function ga_display_freefem_get()

#                      This file open a new database "new.db" and

#                      creates a surface and meshes it. Later it

#                      gets the style for FEM display. Finally it

#                      sets the style for FEM display and gets it.

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

#  has the following arguments:

#  ga_display_freefem_get

#     (  display_name,

#        style )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_fem_create_mesh_surfa_num_no

INTEGER  i_fem_create_mesh_surfa_num_el

STRING   sv_fem_create_mesh_s_nodes[VIRTUAL]

STRING   sv_fem_create_mesh_s_elems[VIRTUAL]

INTEGER  i_style

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface and mesh it.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

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_num_no,            @

      i_fem_create_mesh_surfa_num_el,            @

      sv_fem_create_mesh_s_nodes,                @

      sv_fem_create_mesh_s_elems)

dump i_return_value

#  s_display_name = "general"

s_display_name = "general"

#  Get the  style for free fem display.

i_return_value =                                 @

   ga_display_freefem_get                        @

      (  s_display_name,                         @

         i_style )

dump i_return_value

dump i_style

#  Note the change of display on the viewport.

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

sf_pause()

#  Set the  style for free fem display.

IF (i_style == 1 ) THEN

   i_style = 0

ELSE

   i_style = 1

ENDIF

i_return_value =                                 @

   ga_display_freefem_set                        @

      (  s_display_name,                         @

         i_style )

dump i_return_value

#  Reset the value.

i_style = 100

#  Get the  style for free fem display.

i_return_value =                                 @

   ga_display_freefem_get                        @

      (  s_display_name,                         @

         i_style )

dump i_return_value

dump i_style

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

SYS_FREE_STRING(sv_fem_create_mesh_s_nodes)

SYS_FREE_STRING(sv_fem_create_mesh_s_elems)

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


ga_display_freefem_set	()

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

#                      function ga_display_freefem_set()

#                      This file open a new database "new.db" and

#                      creates a surface and meshes it. Later it

#                      gets the style for FEM display. Finally it

#                      sets the style for FEM display and gets it.

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

#  has the following arguments:

#  ga_display_freefem_set

#     (  display_name,

#        style )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_fem_create_mesh_surfa_num_no

INTEGER  i_fem_create_mesh_surfa_num_el

STRING   sv_fem_create_mesh_s_nodes[VIRTUAL]

STRING   sv_fem_create_mesh_s_elems[VIRTUAL]

INTEGER  i_style

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface and mesh it.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

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_num_no,            @

      i_fem_create_mesh_surfa_num_el,            @

      sv_fem_create_mesh_s_nodes,                @

      sv_fem_create_mesh_s_elems)

dump i_return_value

#  s_display_name = "general"

s_display_name = "general"

#  Get the  style for free fem display.

i_return_value =                                 @

   ga_display_freefem_get                        @

      (  s_display_name,                         @

         i_style )

dump i_return_value

dump i_style

#  Note the change of display on the viewport.

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

sf_pause()

#  Set the  style for free fem display.

IF (i_style == 1 ) THEN

   i_style = 0

ELSE

   i_style = 1

ENDIF

i_return_value =                                 @

   ga_display_freefem_set                        @

      (  s_display_name,                         @

         i_style )

dump i_return_value

#  Reset the value.

i_style = 100

#  Get the  style for free fem display.

i_return_value =                                 @

   ga_display_freefem_get                        @

      (  s_display_name,                         @

         i_style )

dump i_return_value

dump i_style

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

SYS_FREE_STRING(sv_fem_create_mesh_s_nodes)

SYS_FREE_STRING(sv_fem_create_mesh_s_elems)

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


ga_display_gloss_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_gloss_get()

#                      This file opens a new database "new.db" and

#                      creates a surface and renders it. Later it

#                      sets the texture to rough appearance. Then

#                      it gets the amount of glossiness. Finally it

#                      sets the amount of glossiness and gets it.

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

#  has the following arguments:

#  ga_display_gloss_get

#     (  display_name,

#        gloss_value )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

REAL     r_gloss_value

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface and render it.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

renderstyle("shaded/smooth")

#  s_display_name = "general"

s_display_name = "general"

#  Set the texture.

i_return_value =                                 @

   ga_display_texture_set                        @

      (  s_display_name,                         @

         1.0 )

dump i_return_value

#  Get the amount of glossiness.

i_return_value =                                 @

   ga_display_gloss_get                          @

      (  s_display_name,                         @

         r_gloss_value )

dump i_return_value

dump r_gloss_value

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

sf_pause()

#  Set the amount of glossiness.

IF ( r_gloss_value  == 1.0) THEN

   r_gloss_value = 0.0

ELSE

   r_gloss_value = 1.0

ENDIF

i_return_value =                                 @

   ga_display_gloss_set                          @

      (  s_display_name,                         @

         r_gloss_value )

dump i_return_value

#  Reset the value.

r_gloss_value = 100.0

#  Get the amount of glossiness.

i_return_value =                                 @

   ga_display_gloss_get                          @

      (  s_display_name,                         @

         r_gloss_value )

dump i_return_value

dump r_gloss_value

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_gloss_set	()

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

#                      function ga_display_gloss_set()

#                      This file opens a new database "new.db" and

#                      creates a surface and renders it. Later it

#                      sets the texture to rough appearance. Then

#                      it gets the amount of glossiness. Finally it

#                      sets the amount of glossiness and gets it.

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

#  has the following arguments:

#  ga_display_gloss_set

#     (  display_name,

#        gloss_value )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

REAL     r_gloss_value

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface and render it.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

renderstyle("shaded/smooth")

#  s_display_name = "general"

s_display_name = "general"

#  Set the texture.

i_return_value =                                 @

   ga_display_texture_set                        @

      (  s_display_name,                         @

         1.0 )

dump i_return_value

#  Get the amount of glossiness.

i_return_value =                                 @

   ga_display_gloss_get                          @

      (  s_display_name,                         @

         r_gloss_value )

dump i_return_value

dump r_gloss_value

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

sf_pause()

#  Set the amount of glossiness.

IF ( r_gloss_value  == 1.0) THEN

   r_gloss_value = 0.0

ELSE

   r_gloss_value = 1.0

ENDIF

i_return_value =                                 @

   ga_display_gloss_set                          @

      (  s_display_name,                         @

         r_gloss_value )

dump i_return_value

#  Reset the value.

r_gloss_value = 100.0

#  Get the amount of glossiness.

i_return_value =                                 @

   ga_display_gloss_get                          @

      (  s_display_name,                         @

         r_gloss_value )

dump i_return_value

dump r_gloss_value

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_gravitation_get	()

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

#                      the function ga_display_gravitation_get()

#                      This session file will open database ’spool.db’

#                      The gravitation status will be get. After a

#                      pause the gravitation status will be set to

#                      other value and get again.

#                      Before running this session file run spool.ses

#                      to create spool.db

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

#  has the following arguments:

#  ga_display_gravitation_get

#     (  display_name,

#        gravity_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_gravity_status

INTEGER  i_return_value

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

#  Open the database "spool.db"

uil_file_open.go("spool.db")

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

#  Calling function to get the gravitation status.

s_display_name = "general"

i_return_value =                                 @

   ga_display_gravitation_get                    @

      (  s_display_name,                         @

         i_gravity_status )

dump i_return_value, i_gravity_status

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

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

sf_pause()

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

#  Calling function to set the gravitation status.

i_gravity_status = 30

i_return_value =                                 @

   ga_display_gravitation_set                    @

      (  s_display_name,                         @

         i_gravity_status )

dump i_return_value

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

#  Calling function to get the gravitation status.

i_return_value =                                 @

   ga_display_gravitation_get                    @

      (  s_display_name,                         @

         i_gravity_status )

dump i_return_value, i_gravity_status

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


ga_display_gravitation_set	()

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

#                      function ga_display_gravitation_set()

#                      This session file will open database ’spool.db’

#                      The gravitation status will be get. After a

#                      pause the gravitation status will be set to

#                      other value and get again.

#                      Before running this session file run spool.ses

#                      to create spool.db

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

#  has the following arguments:

#  ga_display_gravitation_set

#     (  display_name,

#        gravity_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_gravity_status

INTEGER  i_return_value

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

#  Open the database "spool.db"

uil_file_open.go("spool.db")

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

#  Calling function to get the gravitation status.

s_display_name = "general"

i_return_value =                                 @

   ga_display_gravitation_get                    @

      (  s_display_name,                         @

         i_gravity_status )

dump i_return_value, i_gravity_status

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

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

sf_pause()

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

#  Calling function to set the gravitation status.

i_gravity_status = 30

i_return_value =                                 @

   ga_display_gravitation_set                    @

      (  s_display_name,                         @

         i_gravity_status )

dump i_return_value

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

#  Calling function to get the gravitation status.

i_return_value =                                 @

   ga_display_gravitation_get                    @

      (  s_display_name,                         @

         i_gravity_status )

dump i_return_value, i_gravity_status

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


ga_display_hilight_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_hilight_get()

#                      This file opens a new database "new.db" and

#                      creates a surface, renders it and sets the

#                      texture to rough appearance. Later it  get the

#                      value used to control specular reflections.

#                      Finally it sets the value and gets it again.

#                      The specular reflections values available

#                      are 200,50,5 and 12.

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

#  has the following arguments:

#  ga_display_hilight_get

#     (  display_name,

#        specular_value )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_specular_value

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface and render it.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

renderstyle( "shaded/smooth")

#  s_display_name = "general"

s_display_name = "general"

#  Set the texture.

i_return_value =                                 @

   ga_display_texture_set                        @

      (  s_display_name,                         @

         1.0 )

dump i_return_value

#  Get the value used to control specular reflections.

i_return_value =                                 @

   ga_display_hilight_get                        @

      (  s_display_name,                         @

         i_specular_value )

dump i_return_value

dump i_specular_value

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

sf_pause()

#  Set the value used to control specular reflections.

IF (i_specular_value == 12 ) THEN

   i_specular_value = 50

ELSE

   i_specular_value = 12

ENDIF

i_return_value =                                 @

   ga_display_hilight_set                        @

      (  s_display_name,                         @

         i_specular_value )

dump i_return_value

#  Reset the value.

i_specular_value = 0

#  Get the value used to control specular reflections.

i_return_value =                                 @

   ga_display_hilight_get                        @

      (  s_display_name,                         @

         i_specular_value )

dump i_return_value

dump i_specular_value

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_hilight_set	()

#  Purpose          :  This file provides an example of a call

#                      to the function ga_display_hilight_set()

#                      This file opens a new database "new.db" and

#                      creates a surface, renders it and sets the

#                      texture to rough appearance. Later it gets the

#                      value used to control specular reflections.

#                      Finally it sets the value and gets it again.

#                      The specular reflections values available

#                      are 200,50,5 and 12.

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

#  has the following arguments:

#  ga_display_hilight_set

#     (  display_name,

#        specular_value )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_specular_value

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface and render it.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

renderstyle( "shaded/smooth")

#  s_display_name = "general"

s_display_name = "general"

#  Set the texture.

i_return_value =                                 @

   ga_display_texture_set                        @

      (  s_display_name,                         @

         1.0 )

dump i_return_value

#  Get the value used to control specular reflections.

i_return_value =                                 @

   ga_display_hilight_get                        @

      (  s_display_name,                         @

         i_specular_value )

dump i_return_value

dump i_specular_value

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

sf_pause()

#  Set the value used to control specular reflections.

IF (i_specular_value == 12 ) THEN

   i_specular_value = 50

ELSE

   i_specular_value = 12

ENDIF

i_return_value =                                 @

   ga_display_hilight_set                        @

      (  s_display_name,                         @

         i_specular_value )

dump i_return_value

#  Reset the value.

i_specular_value = 0

#  Get the value used to control specular reflections.

i_return_value =                                 @

   ga_display_hilight_get                        @

      (  s_display_name,                         @

         i_specular_value )

dump i_return_value

dump i_specular_value

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_labelcolor_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_labelcolor_get()

#                      This file opens a new database "new.db" and

#                      creates a surface, renders it and turns on the

#                      surface and point labels. Later it gets the

#                      label color. Finally it sets the label color

#                      and gets it.

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

#  has the following arguments:

#  ga_display_labelcolor_get

#     (  display_name,

#        label_color )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_label_color

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface,render it and set on the point and surface labels.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

renderstyle("shaded/smooth")

point_label( TRUE )

surface_label( TRUE )

#  s_display_name = "general"

s_display_name = "general"

#  Get the display label color.

i_return_value =                                 @

   ga_display_labelcolor_get                     @

      (  s_display_name,                         @

         i_label_color )

dump i_return_value

dump i_label_color

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

sf_pause()

#  Set the display label color.

IF (i_label_color == 1 ) THEN

   i_label_color= 3

ELSE

   i_label_color = 1

ENDIF

i_return_value =                                 @

   ga_display_labelcolor_set                     @

      (  s_display_name,                         @

         i_label_color )

dump i_return_value

#  Reset the value.

i_label_color = 0

#  Get the display label color.

i_return_value =                                 @

   ga_display_labelcolor_get                     @

      (  s_display_name,                         @

         i_label_color )

dump i_return_value

dump i_label_color

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_labelcolor_set	()

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

#                      function ga_display_labelcolor_set()

#                      This file opens a new database "new.db" and

#                      creates a surface, renders it and turns on the

#                      surface and point labels. Later it gets the

#                      label color. Finally it sets the label color

#                      gets it.

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

#  has the following arguments:

#  ga_display_labelcolor_set

#     (  display_name,

#        label_color )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_label_color

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface,render it and set on the point and surface labels.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

renderstyle("shaded/smooth")

point_label( TRUE )

surface_label( TRUE )

#  s_display_name = "general"

s_display_name = "general"

#  Get the display label color.

i_return_value =                                 @

   ga_display_labelcolor_get                     @

      (  s_display_name,                         @

         i_label_color )

dump i_return_value

dump i_label_color

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

sf_pause()

#  Set the display label color.

IF (i_label_color == 1 ) THEN

   i_label_color = 3

ELSE

   i_label_color = 1

ENDIF

i_return_value =                                 @

   ga_display_labelcolor_set                     @

      (  s_display_name,                         @

         i_label_color )

dump i_return_value

#  Reset the value.

i_label_color = 0

#  Get the display label color.

i_return_value =                                 @

   ga_display_labelcolor_get                     @

      (  s_display_name,                         @

         i_label_color )

dump i_return_value

dump i_label_color

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_lines_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_lines_get()

#                      This file opens a new database "new.db" and

#                      creates a surface and gets  the number of

#                      visualization lines. Later it sets the number

#                      of visualization lines and gets it 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 ga_display_lines_get()

#  has the following arguments:

#  ga_display_lines_get

#     (  display_name,

#        line_number )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_line_number

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

#  s_display_name = "general"

s_display_name = "general"

#  Get the number of visualization lines.

i_return_value =                                 @

   ga_display_lines_get                          @

      (  s_display_name,                         @

         i_line_number )

dump i_return_value

dump i_line_number

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

sf_pause()

#  Set the number of visualization lines.

IF (i_line_number == 1 ) THEN

   i_line_number = 2

ELSE

   i_line_number = 1

ENDIF

i_return_value =                                 @

   ga_display_lines_set                          @

      (  s_display_name,                         @

         i_line_number )

dump i_return_value

#  Reset the value

i_line_number = 0

#  Get the number of visualization lines.

i_return_value =                                 @

   ga_display_lines_get                          @

      (  s_display_name,                         @

         i_line_number )

dump i_return_value

dump i_line_number

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_lines_set	()

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

#                      function ga_display_lines_set()

#                      This file opens a new database "new.db" and

#                      creates a surface and gets  the number of

#                      visualization lines. Later it sets the number

#                      of visualization lines and gets it 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 ga_display_lines_set()

#  has the following arguments:

#  ga_display_lines_set

#     (  display_name,

#        line_number )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_line_number

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

#  s_display_name = "general"

s_display_name = "general"

#  Get the number of visualization lines.

i_return_value =                                 @

   ga_display_lines_get                          @

      (  s_display_name,                         @

         i_line_number )

dump i_return_value

dump i_line_number

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

sf_pause()

#  Set the number of visualization lines.

IF (i_line_number == 1 ) THEN

   i_line_number = 2

ELSE

   i_line_number = 1

ENDIF

i_return_value =                                 @

   ga_display_lines_set                          @

      (  s_display_name,                         @

         i_line_number )

dump i_return_value

#  Reset the value

i_line_number = 0

#  Get the number of visualization lines.

i_return_value =                                 @

   ga_display_lines_get                          @

      (  s_display_name,                         @

         i_line_number )

dump i_return_value

dump i_line_number

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_linestyle_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_linestyle_get()

#                      This file opens a new database "new.db" and

#                      creates a line and gets  the linestyle for

#                      the named display property. Later it sets the

#                      linestyle for the named display property and

#                      gets it.

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

#  has the following arguments:

#  ga_display_linestyle_get

#     (  display_name,

#        line_style )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   s_line_style[32]

STRING   sv_asm_line_2point_created_ids[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a line.

i_return_value =                                 @

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

   "[1 1 1 ]", 0, "", 50., 1, sv_asm_line_2point_created_ids )

dump i_return_value

#  s_display_name = "general"

s_display_name = "general"

#  Get the linestyle for named display property.

i_return_value =                                 @

   ga_display_linestyle_get                      @

      (  s_display_name,                         @

         s_line_style )

dump i_return_value

dump s_line_style

#  Set the linestyle for named display property.

IF (s_line_style == "SOLID" ) THEN

   s_line_style = "DASHED"

ELSE

   s_line_style = "SOLID"

ENDIF

i_return_value =                                 @

   ga_display_linestyle_set                      @

      (  s_display_name,                         @

         s_line_style )

dump i_return_value

#  Reset the value

s_line_style = ""

#  Get the linestyle for named display property.

i_return_value =                                 @

   ga_display_linestyle_get                      @

      (  s_display_name,                         @

         s_line_style )

dump i_return_value

dump s_line_style

sys_free_string(sv_asm_line_2point_created_ids)

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


ga_display_linestyle_set	()

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

#                      function ga_display_linestyle_set()

#                      This file opens a new database "new.db" and

#                      creates a line and gets  the linestyle for

#                      the named display property. Later it sets the

#                      linestyle for the named display property and

#                      gets it.

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

#  has the following arguments:

#  ga_display_linestyle_set

#     (  display_name,

#        line_style )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   s_line_style[32]

STRING   sv_asm_line_2point_created_ids[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a line.

i_return_value =                                 @

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

   "[1 1 1 ]", 0, "", 50., 1, sv_asm_line_2point_created_ids )

dump i_return_value

#  s_display_name = "general"

s_display_name = "general"

#  Get the linestyle for named display property.

i_return_value =                                 @

   ga_display_linestyle_get                      @

      (  s_display_name,                         @

         s_line_style )

dump i_return_value

dump s_line_style

#  Set the linestyle for named display property.

IF (s_line_style == "SOLID" ) THEN

   s_line_style = "DASHED"

ELSE

   s_line_style = "SOLID"

ENDIF

i_return_value =                                 @

   ga_display_linestyle_set                      @

      (  s_display_name,                         @

         s_line_style )

dump i_return_value

#  Reset the value

s_line_style = ""

#  Get the linestyle for named display property.

i_return_value =                                 @

   ga_display_linestyle_get                      @

      (  s_display_name,                         @

         s_line_style )

dump i_return_value

dump s_line_style

sys_free_string(sv_asm_line_2point_created_ids)

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


ga_display_linewidth_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_linewidth_get()

#                      This file opens a new database "new.db" and

#                      creates a surface and gets  the line width for

#                      named display property. Later it sets the line

#                      width for the named display property and

#                      gets it.

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

#  has the following arguments:

#  ga_display_linewidth_get

#     (  display_name,

#        line_width )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_line_width

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface.

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

  "Coord 0",sv_asm_create_patch_xy_created)

#  s_display_name = "general"

s_display_name = "general"

#  Get the line width for the named display property.

i_return_value =                                 @

   ga_display_linewidth_get                      @

      (  s_display_name,                         @

         i_line_width )

dump i_return_value

dump i_line_width

#  Set the line width for the named display property.

IF (i_line_width == 1 ) THEN

   i_line_width = 5

ELSE

   i_line_width = 1

ENDIF

i_return_value =                                 @

   ga_display_linewidth_set                      @

      (  s_display_name,                         @

         i_line_width )

dump i_return_value

#  Reset the value

i_line_width = 0

#  Get the line width for the named display property.

i_return_value =                                 @

   ga_display_linewidth_get                      @

      (  s_display_name,                         @

         i_line_width )

dump i_return_value

dump i_line_width

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_linewidth_set	()

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

#                      function ga_display_linewidth_set()

#                      This file opens a new database "new.db" and

#                      creates a surface and gets  the line width for

#                      named display property. Later it sets the line

#                      width for the named display property and

#                      gets it.

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

#  has the following arguments:

#  ga_display_linewidth_set

#     (  display_name,

#        line_width )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_line_width

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface.

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

  "Coord 0",sv_asm_create_patch_xy_created)

#  s_display_name = "general"

s_display_name = "general"

#  Get the line width for the named display property.

i_return_value =                                 @

   ga_display_linewidth_get                      @

      (  s_display_name,                         @

         i_line_width )

dump i_return_value

dump i_line_width

#  Set the line width for the named display property.

IF (i_line_width == 1 ) THEN

   i_line_width = 5

ELSE

   i_line_width = 1

ENDIF

i_return_value =                                 @

   ga_display_linewidth_set                      @

      (  s_display_name,                         @

         i_line_width )

dump i_return_value

#  Reset the value

i_line_width = 0

#  Get the line width for the named display property.

i_return_value =                                 @

   ga_display_linewidth_get                      @

      (  s_display_name,                         @

         i_line_width )

dump i_return_value

dump i_line_width

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_ndisplays_get	()

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

#                      function ga_display_ndisplays_get()

#                      This file opens a new database "new.db" and

#                      counts the number of named display property

#                      lists. Later it gets the names of the display

#                      properties.

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

#  has the following arguments:

#  ga_display_ndisplays_get

#     (  number_of_displays )

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

#  Variable Declarations

INTEGER  i_number_of_displays

INTEGER  i_return_value

STRING   sv_display_list[32](VIRTUAL)

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Get the number of named display  property.

i_return_value =                                 @

   ga_display_ndisplays_get                      @

      (  i_number_of_displays )

dump i_return_value

dump i_number_of_displays

SYS_ALLOCATE_ARRAY(sv_display_list,1,i_number_of_displays)

#  Get the named display  property.

i_return_value =                                 @

   ga_display_displays_get                       @

      (  sv_display_list )

dump i_return_value

dump sv_display_list

SYS_FREE_ARRAY(sv_display_list)

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


ga_display_nlspc_get	()

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

#                      the function ga_display_nlspc_get()

#                      This file opens a new database "new.db" and

#                      creates a curve. Later it gets the number

#                      of segments per curve. Finally it sets the

#                      number of segments per curve and gets it.

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

#  has the following arguments:

#  ga_display_nlspc_get

#     (  display_name,

#        number_of_segments )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_sgm_create_curve_2d_crtd_ids[VIRTUAL]

INTEGER  i_number_of_segments

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a surface.

i_return_value =                                 @

   sgm_const_curve_2d_circle_v1( "2", 1, 1.,     @

      "Coord 0.3", "", "[0 0 0]", TRUE,          @

      sv_sgm_create_curve_2d_crtd_ids )

dump i_return_value

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

#  Get the number of line segments per curve.

s_display_name = "general"

i_return_value =                                 @

   ga_display_nlspc_get                          @

      (  s_display_name,                         @

         i_number_of_segments )

dump i_return_value

dump i_number_of_segments

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

#  Note the change on the viewport.

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

sf_pause()

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

#  Set the number of line segments per curve.

IF (i_number_of_segments == 0 ) THEN

   i_number_of_segments = 3

ELSE

   i_number_of_segments = 0

ENDIF

i_return_value =                                 @

   ga_display_nlspc_set                          @

      (  s_display_name,                         @

         i_number_of_segments )

dump i_return_value

#  Reset the value

i_number_of_segments = 100

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

#  Get the number of line segments per curve.

i_return_value =                                 @

   ga_display_nlspc_get                          @

      (  s_display_name,                         @

         i_number_of_segments )

dump i_return_value

dump i_number_of_segments

sys_free_string(sv_sgm_create_curve_2d_crtd_ids)

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


ga_display_nlspc_set	()

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

#                      function ga_display_nlspc_set()

#                      This file opens a new database "new.db" and

#                      creates a curve. Later it gets the number

#                      of segments per curve. Finally it sets the

#                      number of segments per curve and gets it.

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

#  has the following arguments:

#  ga_display_nlspc_set

#     (  display_name,

#        number_of_segments )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_sgm_create_curve_2d_crtd_ids[VIRTUAL]

INTEGER  i_number_of_segments

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a surface.

i_return_value =                                 @

   sgm_const_curve_2d_circle_v1( "2", 1, 1.,     @

      "Coord 0.3", "", "[0 0 0]", TRUE,          @

      sv_sgm_create_curve_2d_crtd_ids )

dump i_return_value

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

#  Get the number of line segments per curve.

s_display_name = "general"

i_return_value =                                 @

   ga_display_nlspc_get                          @

      (  s_display_name,                         @

         i_number_of_segments )

dump i_return_value

dump i_number_of_segments

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

#  Note the change on the viewport.

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

sf_pause()

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

#  Set the number of line segments per curve.

IF (i_number_of_segments == 0 ) THEN

   i_number_of_segments = 3

ELSE

   i_number_of_segments = 0

ENDIF

i_return_value =                                 @

   ga_display_nlspc_set                          @

      (  s_display_name,                         @

         i_number_of_segments )

dump i_return_value

#  Reset the value

i_number_of_segments = 100

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

#  Get the number of line segments per curve.

i_return_value =                                 @

   ga_display_nlspc_get                          @

      (  s_display_name,                         @

         i_number_of_segments )

dump i_return_value

dump i_number_of_segments

sys_free_string(sv_sgm_create_curve_2d_crtd_ids)

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


ga_display_nspe_get	()

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

#                      the function ga_display_nspe_get()

#                      This file opens a new database "new.db" and

#                      creates a surface and meshes it. Later it gets

#                      the number of segments per edge. Finally it

#                      sets the number of segments per edge and

#                      gets it.

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

#  has the following arguments:

#  ga_display_nspe_get

#     (  display_name,

#        number_of_segments )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_number_of_segments

INTEGER  i_return_value

INTEGER  i_fem_create_num_nodes

INTEGER  i_fem_create_num_elems

STRING   sv_fem_create_nodes_created[VIRTUAL]

STRING   sv_fem_create_elems_created[VIRTUAL]

STRING   sv_asm_line_3point_crtd_ids[VIRTUAL]

STRING   sv_sgm_sweep_surface_e_crtd_ids[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a surface by extruding a curve and mesh it.

i_return_value =                                 @

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

      "[1 -0.5 0]", "[1.5 0.25 0]", 1, 0.5,      @

      sv_asm_line_3point_crtd_ids )

dump i_return_value

i_return_value =                                 @

   sgm_const_surface_extrude( "1", "<0 0 01>",1.,@

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

      sv_sgm_sweep_surface_e_crtd_ids )

dump i_return_value

i_return_value =                                 @

   fem_create_mesh_surf_2( "IsoMesh", 0,         @

      "Surface 1 ", 1, [0.5], "Quad8", "1", "1"  @

      ,"Coord 0","Coord 0",i_fem_create_num_nodes@

      , i_fem_create_num_elems,                  @

      sv_fem_create_nodes_created, sv_fem_create_elems_created )

dump i_return_value

i_return_value = ga_view_aa_set( 30., 0., -15. )

dump i_return_value

node_label( TRUE )

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

#  Get the number of line segments per edge.

s_display_name = "general"

i_return_value =                                 @

   ga_display_nspe_get                           @

      (  s_display_name,                         @

         i_number_of_segments )

dump i_return_value

dump i_number_of_segments

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

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

sf_pause()

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

#  Set the number of line segments per edge.

IF (i_number_of_segments == 0 ) THEN

   i_number_of_segments = 10

ELSE

   i_number_of_segments = 0

ENDIF

i_return_value =                                 @

   ga_display_nspe_set                           @

      (  s_display_name,                         @

         i_number_of_segments )

dump i_return_value

#  Reset the value

i_number_of_segments = 100

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

#  Get the number of line segments per edge.

i_return_value =                                 @

   ga_display_nspe_get                           @

      (  s_display_name,                         @

         i_number_of_segments )

dump i_return_value

dump i_number_of_segments

sys_free_string(sv_fem_create_nodes_created)

sys_free_string(sv_fem_create_elems_created)

sys_free_string(sv_asm_line_3point_crtd_ids)

sys_free_string(sv_sgm_sweep_surface_e_crtd_ids)

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


ga_display_nspe_set	()

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

#                      function ga_display_nspe_set()

#                      This file opens a new database "new.db" and

#                      creates a surface and meshes it. Later it gets

#                      the number of segments per edge. Finally it

#                      sets the number of segments per edge and

#                      gets it.

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

#  has the following arguments:

#  ga_display_nspe_set

#     (  display_name,

#        number_of_segments )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_number_of_segments

INTEGER  i_return_value

INTEGER  i_fem_create_num_nodes

INTEGER  i_fem_create_num_elems

STRING   sv_fem_create_nodes_created[VIRTUAL]

STRING   sv_fem_create_elems_created[VIRTUAL]

STRING   sv_asm_line_3point_crtd_ids[VIRTUAL]

STRING   sv_sgm_sweep_surface_e_crtd_ids[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a surface by extruding a curve and mesh it.

i_return_value =                                 @

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

      "[1 -0.5 0]", "[1.5 0.25 0]", 1, 0.5,      @

      sv_asm_line_3point_crtd_ids )

dump i_return_value

i_return_value =                                 @

   sgm_const_surface_extrude( "1", "<0 0 01>",1.,@

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

      sv_sgm_sweep_surface_e_crtd_ids )

dump i_return_value

i_return_value =                                 @

   fem_create_mesh_surf_2( "IsoMesh", 0,         @

      "Surface 1 ", 1, [0.5], "Quad8", "1", "1"  @

      ,"Coord 0","Coord 0",i_fem_create_num_nodes@

      , i_fem_create_num_elems,                  @

      sv_fem_create_nodes_created, sv_fem_create_elems_created )

dump i_return_value

i_return_value = ga_view_aa_set( 30., 0., -15. )

dump i_return_value

node_label( TRUE )

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

#  Get the number of line segments per edge.

s_display_name = "general"

i_return_value =                                 @

   ga_display_nspe_get                           @

      (  s_display_name,                         @

         i_number_of_segments )

dump i_return_value

dump i_number_of_segments

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

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

sf_pause()

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

#  Set the number of line segments per edge.

IF (i_number_of_segments == 0 ) THEN

   i_number_of_segments = 10

ELSE

   i_number_of_segments = 0

ENDIF

i_return_value =                                 @

   ga_display_nspe_set                           @

      (  s_display_name,                         @

         i_number_of_segments )

dump i_return_value

#  Reset the value

i_number_of_segments = 100

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

#  Get the number of line segments per edge.

i_return_value =                                 @

   ga_display_nspe_get                           @

      (  s_display_name,                         @

         i_number_of_segments )

dump i_return_value

dump i_number_of_segments

sys_free_string(sv_fem_create_nodes_created)

sys_free_string(sv_fem_create_elems_created)

sys_free_string(sv_asm_line_3point_crtd_ids)

sys_free_string(sv_sgm_sweep_surface_e_crtd_ids)

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


ga_display_offsets_get	()

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

#                      the function ga_display_offsets_get()

#                      This session file will create a new database by

#                      name ’new.db’ and create a curve. Properties

#                      will be applied to the curve by using a dummy

#                      material and a beam section. The value of

#                      offset status will be twice changed and the

#                      vector plot of element offset will be taken.

#                      The offset status will be get.

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

#  has the following arguments:

#  ga_display_offsets_get

#     (  display_name,

#        offset_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_offset_status

INTEGER  i_return_value

STRING   sv_asm_line_2point_crtd_ids[VIRTUAL]

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_nodes_created[VIRTUAL]

STRING   sv_elems_created[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a curve.

i_return_value =                                 @

   asm_const_line_2point( "1", "[ 1 3 0 ] ", "[ 5@

      7 0 ] ", 0, "", 50., 1, sv_asm_line_2point_crtd_ids )

dump i_return_value

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

#  Meshing the curve with a single element.

i_return_value =                                 @

   fem_create_mesh_curv( "Curve 1 ", 10., "Bar2",@

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

      , i_num_elems, sv_nodes_created, sv_elems_created )

dump i_return_value

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

#  Create a beam section and assign property to the curve.

i_return_value =                                 @

   beam_section_create( "bm", "I", ["1",".5",".5",".1",".1",".1"] )

dump i_return_value

i_return_value =                                 @

   elementprops_create( "Ibeam", 11, 2, 42, 1, 1,@

      20, [13, 6, 4042, 4043, 2047, 2048, 1, 10, @

      11, 4026, 1026, 4044, 4045, 4037, 4047,    @

      4048, 4050, 4051, 4053, 4054, 4056, 4057,  @

      4061], [5, 2, 2, 2, 4, 4, 1, 1, 1, 1, 1, 1,@

      1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 6],          @

      ["m:dummy", "<1 1 1>", "<0.2 0. 0.2>",     @

      "<0.5 0. 0.5>", "", "", " 0.18000001",     @

      " 0.024600001", " 0.0021500001", " 0.",    @

      " 0.00063333334", " 0.44444445",           @

      " 0.55555558", "", " 0.5", " 0.25", " -0.5"@

      , " 0.25", " -0.5", " -0.25", " 0.5", " -0.25", ""], "Curve 1" )

dump i_return_value

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

#  Calling function to set the offset status.

i_offset_status = 1

s_display_name  = "general"

i_return_value =                                 @

   ga_display_offsets_set                        @

      (  s_display_name,                         @

         i_offset_status )

dump i_return_value

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

#  Calling function to display the offset specified.

i_return_value =                                 @

   elementprops_show( "Offset @ Node 1",         @

      "Vector Plot", ["default_group"] )

dump i_return_value

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

#  Calling function to set the offset status.

i_offset_status = 0

i_return_value =                                 @

   ga_display_offsets_set                        @

      (  s_display_name,                         @

         i_offset_status )

dump i_return_value

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

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

sf_pause()

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

#  Calling function to display the offset specified.

i_return_value =                                 @

   elementprops_show( "Offset @ Node 1",         @

      "Vector Plot", ["default_group"] )

dump i_return_value

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

#  Calling function to get the offset status.

i_return_value =                                 @

   ga_display_offsets_get                        @

      (  s_display_name,                         @

         i_offset_status )

dump i_return_value, i_offset_status

sys_free_string(sv_asm_line_2point_crtd_ids)

sys_free_string(sv_nodes_created)

sys_free_string(sv_elems_created)

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


ga_display_offsets_set	()

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

#                      the function ga_display_offsets_set()

#                      This session file will create a new database by

#                      name ’new.db’ and create a curve. Properties

#                      will be applied to the curve by using a dummy

#                      material and a beam section. The value of

#                      offset status will be twice changed and the

#                      vector plot of element offset will be taken.

#                      The offset status will be get.

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

#  has the following arguments:

#  ga_display_offsets_set

#     (  display_name,

#        offset_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_offset_status

INTEGER  i_return_value

STRING   sv_asm_line_2point_crtd_ids[VIRTUAL]

INTEGER  i_num_nodes

INTEGER  i_num_elems

STRING   sv_nodes_created[VIRTUAL]

STRING   sv_elems_created[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a curve.

i_return_value =                                 @

   asm_const_line_2point( "1", "[ 1 3 0 ] ", "[ 5@

      7 0 ] ", 0, "", 50., 1, sv_asm_line_2point_crtd_ids )

dump i_return_value

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

#  Meshing the curve with a single element.

i_return_value =                                 @

   fem_create_mesh_curv( "Curve 1 ", 10., "Bar2",@

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

      , i_num_elems, sv_nodes_created, sv_elems_created )

dump i_return_value

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

#  Create a beam section and assign property to the curve.

i_return_value =                                 @

   beam_section_create( "bm", "I", ["1",".5",".5",".1",".1",".1"] )

dump i_return_value

i_return_value =                                 @

   elementprops_create( "Ibeam", 11, 2, 42, 1, 1,@

      20, [13, 6, 4042, 4043, 2047, 2048, 1, 10, @

      11, 4026, 1026, 4044, 4045, 4037, 4047,    @

      4048, 4050, 4051, 4053, 4054, 4056, 4057,  @

      4061], [5, 2, 2, 2, 4, 4, 1, 1, 1, 1, 1, 1,@

      1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 6],          @

      ["m:dummy", "<1 1 1>", "<0.2 0. 0.2>",     @

      "<0.5 0. 0.5>", "", "", " 0.18000001",     @

      " 0.024600001", " 0.0021500001", " 0.",    @

      " 0.00063333334", " 0.44444445",           @

      " 0.55555558", "", " 0.5", " 0.25", " -0.5"@

      , " 0.25", " -0.5", " -0.25", " 0.5", " -0.25", ""], "Curve 1" )

dump i_return_value

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

#  Calling function to set the offset status.

i_offset_status = 1

s_display_name  = "general"

i_return_value =                                 @

   ga_display_offsets_set                        @

      (  s_display_name,                         @

         i_offset_status )

dump i_return_value

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

#  Calling function to display the offset specified.

i_return_value =                                 @

   elementprops_show( "Offset @ Node 1",         @

      "Vector Plot", ["default_group"] )

dump i_return_value

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

#  Calling function to set the offset status.

i_offset_status = 0

i_return_value =                                 @

   ga_display_offsets_set                        @

      (  s_display_name,                         @

         i_offset_status )

dump i_return_value

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

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

sf_pause()

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

#  Calling function to display the offset specified.

i_return_value =                                 @

   elementprops_show( "Offset @ Node 1",         @

      "Vector Plot", ["default_group"] )

dump i_return_value

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

#  Calling function to get the offset status.

i_return_value =                                 @

   ga_display_offsets_get                        @

      (  s_display_name,                         @

         i_offset_status )

dump i_return_value, i_offset_status

sys_free_string(sv_asm_line_2point_crtd_ids)

sys_free_string(sv_nodes_created)

sys_free_string(sv_elems_created)

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


ga_display_parametric_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_parametric_get()

#                      This file opens a new database "new.db" and

#                      creates a surface and gets the status for

#                      display of parametric directions. Later it

#                      sets the status for display of parametric

#                      directions and gets it 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 ga_display_parametric_get()

#  has the following arguments:

#  ga_display_parametric_get

#     (  display_name,

#        parametric_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_parametric_status

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

#  s_display_name = "general"

s_display_name = "general"

#  Get the status for display of parametric directions.

i_return_value =                                 @

   ga_display_parametric_get                     @

      (  s_display_name,                         @

         i_parametric_status )

dump i_return_value

dump i_parametric_status

#  Note the display of parametric directions on the viewport.

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

sf_pause()

#  Set the status for display of parametric directions.

IF (i_parametric_status == 0 ) THEN

   i_parametric_status = 1

ELSE

   i_parametric_status = 0

ENDIF

i_return_value =                                 @

   ga_display_parametric_set                     @

      (  s_display_name,                         @

         i_parametric_status )

dump i_return_value

#  Reset the value

i_parametric_status = 100

#  Get the status for display of parametric directions.

i_return_value =                                 @

   ga_display_parametric_get                     @

      (  s_display_name,                         @

         i_parametric_status )

dump i_return_value

dump i_parametric_status

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_parametric_set	()

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

#                      function ga_display_parametric_set()

#                      This file opens a new database "new.db" and

#                      creates a surface and gets the status for

#                      display of parametric directions. Later it

#                      sets the status for display of parametric

#                      directions and gets it 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 ga_display_parametric_set()

#  has the following arguments:

#  ga_display_parametric_set

#     (  display_name,

#        parametric_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_parametric_status

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

#  s_display_name = "general"

s_display_name = "general"

#  Get the status for display of parametric directions.

i_return_value =                                 @

   ga_display_parametric_get                     @

      (  s_display_name,                         @

         i_parametric_status )

dump i_return_value

dump i_parametric_status

#  Note the display of parametric directions on the viewport.

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

sf_pause()

#  Set the status for display of parametric directions.

IF (i_parametric_status == 0 ) THEN

   i_parametric_status = 1

ELSE

   i_parametric_status = 0

ENDIF

i_return_value =                                 @

   ga_display_parametric_set                     @

      (  s_display_name,                         @

         i_parametric_status )

dump i_return_value

#  Reset the value

i_parametric_status = 100

#  Get the status for display of parametric directions.

i_return_value =                                 @

   ga_display_parametric_get                     @

      (  s_display_name,                         @

         i_parametric_status )

dump i_return_value

dump i_parametric_status

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_rename	()

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

#                      function ga_display_rename()

#                      This file opens a new database "new.db" and

#                      gets the names of display property list. Later

#                      it renames the named display property "general"

#                      to "new_display_name" and again gets the names

#                      of display property list.

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

#  has the following arguments:

#  ga_display_rename

#     (  original_name,

#        new_name )

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

#  Variable Declarations

STRING   s_original_name[32]

STRING   s_new_name[32]

STRING   sa_display_list[32](4)

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  s_original_name = "general"

s_original_name = "general"

#  s_new_name = "new_display_name"

s_new_name = "new_display_name"

i_return_value =                                 @

   ga_display_displays_get                       @

      (   sa_display_list )

dump i_return_value

#  The list of named display properties (Before renaming).

dump sa_display_list

i_return_value =                                 @

   ga_display_rename                             @

      (  s_original_name,                        @

         s_new_name )

dump i_return_value

i_return_value =                                 @

   ga_display_displays_get                       @

      (   sa_display_list )

dump i_return_value

#  The list of named display properties (After renaming).

dump sa_display_list

#  Note the change of display property name

#  "general" to "new_display_name"

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


ga_display_result_label_get	()

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

#                      the function ga_display_result_label_get()

#                      In this example field.db is opened and

#                      displacement fringe results are posted. Then

#                      this function is called to get the status

#                      value for display of results labels. The

#                      result label status is changed using function

#                      ga_display_result_label_set() and this

#                      function is again called to get the status

#                      value for display of result labels.

#                      Before running this session file run field.ses

#                      to create field.db

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

#  has the following arguments:

#  ga_display_result_label_get

#     (  display_name,

#        result_label_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_result_label_status

INTEGER  i_return_value

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

#  Open "field.db"

uil_file_open.go( "field.db" )

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Plot the displacement fringes

i_return_value = res_init_fringe_plot(  )

dump i_return_value

i_return_value = res_create_fringe_plot_rec3( 1, 2, 1, 1, 1, 1, @

   0, 0, 1., "", 1, 2, 3, 23, 1, 1, 0., 30, 0, 1 )

dump i_return_value

i_return_value = res_make_fringe_plot( 1, [1], [1], [""], [0.], @

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

   " (VEC-MAG) -MSC.Nastran" ] )

dump i_return_value

i_return_value = res_deinit_fringe_plot(  )

dump i_return_value

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

#  Get the status value for display of results labels.

s_display_name          = "general"

i_return_value =                                                @

   ga_display_result_label_get                                  @

      (  s_display_name,                                        @

         i_result_label_status )

dump i_return_value

dump i_result_label_status

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

#  Set the status value for display of results labels.

i_return_value =                                                @

   ga_display_result_label_set                                  @

      (  s_display_name, 1 )

dump i_return_value

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

#  Get the status value for display of results labels.

i_return_value =                                                @

   ga_display_result_label_get                                  @

      (  s_display_name,                                        @

         i_result_label_status )

dump i_return_value

dump i_result_label_status

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


ga_display_result_label_set	()

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

#                      function ga_display_result_label_set()

#                      In this example field.db is opened and

#                      displacement fringe results are posted. Then

#                      the function ga_display_result_label_get() is

#                      called to get the status value for display of

#                      results labels. The result label status is

#                      changed using this function. The change in the

#                      result label status values is verified in the

#                      end.

#                      Before running this session file run field.ses

#                      to create field.db

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

#  has the following arguments:

#  ga_display_result_label_set

#     (  display_name,

#        result_label_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_result_label_status

INTEGER  i_return_value

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

#  Open "field.db"

uil_file_open.go( "field.db" )

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Plot the displacement fringes

i_return_value = res_init_fringe_plot(  )

dump i_return_value

i_return_value = res_create_fringe_plot_rec3( 1, 2, 1, 1, 1, 1, @

   0, 0, 1., "", 1, 2, 3, 23, 1, 1, 0., 30, 0, 1 )

dump i_return_value

i_return_value = res_make_fringe_plot( 1, [1], [1], [""], [0.], @

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

   " (VEC-MAG) -MSC.Nastran" ] )

dump i_return_value

i_return_value = res_deinit_fringe_plot(  )

dump i_return_value

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

#  Get the status value for display of results labels.

i_return_value =                                                @

   ga_display_result_label_get                                  @

      (  "general",                                             @

         i_result_label_status )

dump i_return_value

dump i_result_label_status

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

#  Set the status value for display of results labels.

s_display_name          = "general"

i_result_label_status = 1

i_return_value =                                                @

   ga_display_result_label_set                                  @

      (  s_display_name,                                        @

         i_result_label_status )

dump i_return_value

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

#  Reset the variable equal to 0

i_result_label_status = 0

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

#  Get the status value for display of results labels.

i_return_value =                                                @

   ga_display_result_label_get                                  @

      (  s_display_name,                                        @

         i_result_label_status )

dump i_return_value

dump i_result_label_status

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


ga_display_result_lblformat_get	()

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

#                      the function ga_display_result_lblformat_get()

#                      In this example field.db is opened and the

#                      displacement fringe results are posted. Then

#                      this function is called to get the format

#                      value of the result labels. The format value

#                      of result label is changed using function

#                      ga_display_result_lblformat_set() and this

#                      function is called again to get the format.

#                      Before running this session file run field.ses

#                      to create field.db

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

#  has the following arguments:

#  ga_display_result_lblformat_get

#     (  display_name,

#        label_format )

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

#  Variable Declarations

STRING   s_display_name[16]

STRING   s_label_format[16]

INTEGER  i_return_value

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

#  Open "field.db"

uil_file_open.go( "field.db" )

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Plot the displacement fringes

i_return_value = res_init_fringe_plot(  )

dump i_return_value

i_return_value = res_create_fringe_plot_rec3( 1, 2, 1, 1, 1, 1, @

   0, 0, 1., "", 1, 2, 3, 23, 1, 1, 0., 30, 0, 1 )

dump i_return_value

i_return_value = res_make_fringe_plot( 1, [1], [1], [""], [0.], @

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

   " (VEC-MAG) -MSC.Nastran" ] )

dump i_return_value

i_return_value = res_deinit_fringe_plot(  )

dump i_return_value

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

# Get the format value of the result labels

s_display_name = "general"

i_return_value =                                                @

   ga_display_result_lblformat_get                              @

      (  s_display_name,                                        @

         s_label_format )

dump i_return_value

dump s_label_format

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

# Set the format value of the result labels

i_return_value =                                                @

   ga_display_result_lblformat_set                              @

      (  s_display_name,                                        @

         "LETTER" )

dump i_return_value

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

# Get the format value of the result labels

i_return_value =                                                @

   ga_display_result_lblformat_get                              @

      (  s_display_name,                                        @

         s_label_format )

dump i_return_value

dump s_label_format

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


ga_display_result_lblformat_set	()

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

#                      function ga_display_result_lblformat_set()

#                      In this example field.db is opened and the

#                      displacement fringe results are posted. Then

#                      the function,ga_display_result_lblformat_get()

#                      is called to get the format value of the

#                      result labels. The format value of result

#                      label is changed using this function. The

#                      change in format is verified in the end.

#                      Before running this session file run field.ses

#                      to create field.db

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

#  has the following arguments:

#  ga_display_result_lblformat_set

#     (  display_name,

#        label_format )

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

#  Variable Declarations

STRING   s_display_name[16]

STRING   s_label_format[16]

INTEGER  i_return_value

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

#  Open "field.db"

uil_file_open.go( "field.db" )

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Plot the displacement fringes

i_return_value = res_init_fringe_plot(  )

dump i_return_value

i_return_value = res_create_fringe_plot_rec3( 1, 2, 1, 1, 1, 1, @

   0, 0, 1., "", 1, 2, 3, 23, 1, 1, 0., 30, 0, 1 )

dump i_return_value

i_return_value = res_make_fringe_plot( 1, [1], [1], [""], [0.], @

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

   " (VEC-MAG) -MSC.Nastran" ] )

dump i_return_value

i_return_value = res_deinit_fringe_plot(  )

dump i_return_value

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

# Get the format value of the result labels

i_return_value =                                                @

   ga_display_result_lblformat_get                              @

      (  "general",                                             @

         s_label_format )

dump i_return_value

dump s_label_format

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

# Set the format value of the result labels

s_display_name = "general"

s_label_format = "LETTER"

i_return_value =                                                @

   ga_display_result_lblformat_set                              @

      (  s_display_name,                                        @

         s_label_format )

dump i_return_value

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

# Resetting the variable to null string

s_label_format = ""

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

# Get the format value of the result labels

i_return_value =                                                @

   ga_display_result_lblformat_get                              @

      (  s_display_name,                                        @

         s_label_format )

dump i_return_value

dump s_label_format

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


ga_display_showedges_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_showedges_get()

#                      This file opens a new database "new.db" and

#                      creates a surface,shades it. Later it gets

#                      the status of showing edges. Finally it sets

#                      the status and gets it.

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

#  has the following arguments:

#  ga_display_showedges_get

#     (  display_name,

#        edge_status )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_edge_status

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  s_display_name = "general"

s_display_name = "general"

#  Create a surface.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

renderstyle("shaded/smooth")

#  Get the status for showing edge.

i_return_value =                                 @

   ga_display_showedges_get                      @

      (  s_display_name,                         @

         i_edge_status )

dump i_return_value

dump i_edge_status

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

sf_pause()

#  Set the status for showing edge.

IF (i_edge_status == 0 ) THEN

   i_edge_status = 1

ELSE

   i_edge_status = 0

ENDIF

i_return_value =                                 @

   ga_display_showedges_set                      @

      (  s_display_name,                         @

         i_edge_status )

dump i_return_value

#  Reset the value to some value.

i_edge_status = 100

#  Get the status for showing edge.

i_return_value =                                 @

   ga_display_showedges_get                      @

      (  s_display_name,                         @

         i_edge_status )

dump i_return_value

dump i_edge_status

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_showedges_set	()

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

#                      function ga_display_showedges_set()

#                      This file opens a new database "new.db" and

#                      creates a surface,shades it. Later it gets

#                      the status of showing edges. Finally it sets

#                      the status and gets it.

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

#  has the following arguments:

#  ga_display_showedges_set

#     (  display_name,

#        edge_status )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_edge_status

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  s_display_name = "general"

s_display_name = "general"

#  Create a surface.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

renderstyle("shaded/smooth")

#  Get the status for showing edge.

i_return_value =                                 @

   ga_display_showedges_get                      @

      (  s_display_name,                         @

         i_edge_status )

dump i_return_value

dump i_edge_status

#   Note the change in the edge.

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

sf_pause()

#  Set the status for showing edge.

IF (i_edge_status == 0 ) THEN

   i_edge_status = 1

ELSE

   i_edge_status = 0

ENDIF

i_return_value =                                 @

   ga_display_showedges_set                      @

      (  s_display_name,                         @

         i_edge_status )

dump i_return_value

#  Set the value to some value.

i_edge_status = 100

#  Get the status for showing edge.

i_return_value =                                 @

   ga_display_showedges_get                      @

      (  s_display_name,                         @

         i_edge_status )

dump i_return_value

dump i_edge_status

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_shrfem_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_shrfem_get()

#                      This file open a new database "new.db" and

#                      creates a surface and meshes it. Later it

#                      shrinks the fem entities.

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

#  has the following arguments:

#  ga_display_shrfem_get

#     (  display_name,

#        shrink_factor )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

REAL     r_shrink_factor

INTEGER  i_fem_create_mesh_surfa_num_no

INTEGER  i_fem_create_mesh_surfa_num_el

STRING   sv_fem_create_mesh_s_nodes[VIRTUAL]

STRING   sv_fem_create_mesh_s_elems[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface and mesh it.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

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_num_no,            @

      i_fem_create_mesh_surfa_num_el,            @

      sv_fem_create_mesh_s_nodes,                @

      sv_fem_create_mesh_s_elems)

dump i_return_value

#  s_display_name = "general"

s_display_name = "general"

i_return_value =                                 @

   ga_display_shrfem_get                         @

      (  s_display_name,                         @

         r_shrink_factor )

dump i_return_value

dump r_shrink_factor

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

sf_pause()

#  Set the shrink factor.

r_shrink_factor = 0.5

i_return_value =                                 @

   ga_display_shrfem_set                         @

      (  s_display_name,                         @

         r_shrink_factor )

dump i_return_value

#  Reset the value

r_shrink_factor = 100.0

i_return_value =                                 @

   ga_display_shrfem_get                         @

      (  s_display_name,                         @

         r_shrink_factor )

dump i_return_value

dump r_shrink_factor

SYS_FREE_STRING(sv_fem_create_mesh_s_nodes)

SYS_FREE_STRING(sv_fem_create_mesh_s_elems)

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_shrfem_set	()

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

#                      function ga_display_shrfem_set()

#                      This file open a new database "new.db" and

#                      creates a surface and meshes it. Later it

#                      shrinks the fem entities.

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

#  has the following arguments:

#  ga_display_shrfem_set

#     (  display_name,

#        shrink_factor )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

REAL     r_shrink_factor

INTEGER  i_fem_create_mesh_surfa_num_no

INTEGER  i_fem_create_mesh_surfa_num_el

STRING   sv_fem_create_mesh_s_nodes[VIRTUAL]

STRING   sv_fem_create_mesh_s_elems[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface and mesh it.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

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_num_no,            @

      i_fem_create_mesh_surfa_num_el,            @

      sv_fem_create_mesh_s_nodes,                @

      sv_fem_create_mesh_s_elems)

dump i_return_value

#  s_display_name = "general"

s_display_name = "general"

i_return_value =                                 @

   ga_display_shrfem_get                         @

      (  s_display_name,                         @

         r_shrink_factor )

dump i_return_value

dump r_shrink_factor

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

sf_pause()

#  Set the shrink factor.

r_shrink_factor = 0.5

i_return_value =                                 @

   ga_display_shrfem_set                         @

      (  s_display_name,                         @

         r_shrink_factor )

dump i_return_value

#  Reset the value

r_shrink_factor = 100.0

i_return_value =                                 @

   ga_display_shrfem_get                         @

      (  s_display_name,                         @

         r_shrink_factor )

dump i_return_value

dump r_shrink_factor

SYS_FREE_STRING(sv_fem_create_mesh_s_nodes)

SYS_FREE_STRING(sv_fem_create_mesh_s_elems)

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_silhouette_get	()

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

#                      the function ga_display_silhouette_get()

#                      In this example field.db database is opened and

#                      displacement deformation plot is posted. Then

#                      this function is called to get the status of

#                      the silhouette display. The status is changed

#                      and this function is called again for getting

#                      the status of the silhouette display.

#                      Before running this session file run field.ses

#                      to create field.db

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

#  has the following arguments:

#  ga_display_silhouette_get

#     (  display_name,

#        silhouette_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_silhouette_status

INTEGER  i_return_value

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

#  Open "field.db"

uil_file_open.go( "field.db" )

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Plot displacement deformation

i_return_value =  res_init_deform_plot(  )

dump i_return_value

i_return_value = res_create_deform_plot_rec2( 2, 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

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

#  Get the status on display of silhouettes

s_display_name = "general"

i_return_value =                                                @

   ga_display_silhouette_get                                    @

      (  s_display_name,                                        @

         i_silhouette_status )

dump i_return_value

dump i_silhouette_status

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

#  Set the status on display of silhouettes

i_return_value =                                                @

   ga_display_silhouette_set                                    @

      (  s_display_name,                                        @

1 )

dump i_return_value

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

#  Get the status on display of silhouettes

i_return_value =                                                @

   ga_display_silhouette_get                                    @

      (  s_display_name,                                        @

         i_silhouette_status )

dump i_return_value

dump i_silhouette_status

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


ga_display_silhouette_set	()

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

#                      function ga_display_silhouette_set()

#                      In this example field.db database is opened and

#                      displacement deformation plot is posted. Then

#                      the status of the silhouette display is get.

#                      The status will be changed using this function

#                      and the status of the silhouette display is get

#                      again.

#                      Before running this session file run field.ses

#                      to create field.db

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

#  has the following arguments:

#  ga_display_silhouette_set

#     (  display_name,

#        silhouette_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_silhouette_status

INTEGER  i_return_value

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

#  Open "field.db"

uil_file_open.go( "field.db" )

#  Set ISO-1 viewing

i_return_value = ga_view_aa_set( 23., -34., 0. )

dump i_return_value

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

#  Plot displacement deformation

i_return_value = res_init_deform_plot(  )

dump i_return_value

i_return_value = res_create_deform_plot_rec2( 2, 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

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

#  Get the status on display of silhouettes

s_display_name = "general"

i_return_value =                                                @

   ga_display_silhouette_get                                    @

      (  s_display_name,                                        @

         i_silhouette_status )

dump i_return_value

dump i_silhouette_status

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

#  Set the status on display of silhouettes

i_silhouette_status = 1

i_return_value =                                                @

   ga_display_silhouette_set                                    @

      (  s_display_name,                                        @

         i_silhouette_status )

dump i_return_value

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

#  Resetting the variable to 0

i_silhouette_status = 0

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

#  Get the status on display of silhouettes

i_return_value =                                                @

   ga_display_silhouette_get                                    @

      (  s_display_name,                                        @

         i_silhouette_status )

dump i_return_value

dump i_silhouette_status

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


ga_display_specular_get	()

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

#                      the function ga_display_specular_get()

#                      This file opens a new database "new.db" and

#                      creates a surface and renders it. Later it

#                      sets the texture to rough appearance. Then

#                      it gets the status of color used for shading

#                      of specular reflections. Finally it sets

#                      the status of color and gets it.

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

#  has the following arguments:

#  ga_display_specular_get

#     (  display_name,

#        color_value )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_color_value

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface and render it.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

renderstyle("shaded/smooth")

#  s_display_name = "general"

s_display_name = "general"

#  Set the texture.

i_return_value =                                 @

   ga_display_texture_set                        @

      (  s_display_name,                         @

         1.0 )

dump i_return_value

#  Get the value used to control the color used for shading of

#  specular reflections.

i_return_value =                                 @

   ga_display_specular_get                       @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

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

sf_pause()

#  Set the value used to control the color used for shading of

#  specular reflections.

IF ( i_color_value  == 1) THEN

   i_color_value = 2

ELSE

   i_color_value = 1

ENDIF

i_return_value =                                 @

   ga_display_specular_set                       @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

#  Reset the value.

i_color_value = 0

#  Get the value used to control the color used for shading of

#  specular reflections.

i_return_value =                                 @

   ga_display_specular_get                       @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_specular_set	()

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

#                      function ga_display_specular_set()

#                      This file opens a new database "new.db" and

#                      creates a surface and renders it. Later it

#                      sets the texture to rough appearance. Then

#                      it gets the status of color used for shading

#                      of specular reflections. Finally it sets

#                      the status of color and gets it.

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

#  has the following arguments:

#  ga_display_specular_set

#     (  display_name,

#        color_value )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_color_value

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface and render it.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

renderstyle("shaded/smooth")

#  s_display_name = "general"

s_display_name = "general"

#  Set the texture.

i_return_value =                                 @

   ga_display_texture_set                        @

      (  s_display_name,                         @

         1.0 )

dump i_return_value

#  Get the value used to control the color used for shading of

#  specular reflections.

i_return_value =                                 @

   ga_display_specular_get                       @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

#  Note the change on the viewport.

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

sf_pause()

#  Set the value used to control the color used for shading of

#  specular reflections.

IF ( i_color_value  == 1) THEN

   i_color_value = 2

ELSE

   i_color_value = 1

ENDIF

i_return_value =                                 @

   ga_display_specular_set                       @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

#  Reset the value.

i_color_value = 0

#  Get the value used to control the color used for shading of

#  specular reflections.

i_return_value =                                 @

   ga_display_specular_get                       @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_subdivision_get	()

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

#                      the function ga_display_subdivision_get()

#                      This session file will open a new database by

#                      name ’new.db’ and create a surface. The surface

#                      will be meshed using Quad8 elements and the

#                      subdivision tolerance will be read. After a

#                      pause the tolerance will be set and get 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 ga_display_subdivision_get()

#  has the following arguments:

#  ga_display_subdivision_get

#     (  display_name,

#        tolerance )

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

#  Variable Declarations

STRING   s_display_name[32]

REAL     r_tolerance

INTEGER  i_return_value

INTEGER  i_fem_create_num_nodes

INTEGER  i_fem_create_num_elems

STRING   sv_fem_create_nodes_created[VIRTUAL]

STRING   sv_fem_create_elems_created[VIRTUAL]

STRING   sv_asm_line_3point_crtd_ids[VIRTUAL]

STRING   sv_sgm_sweep_surface_e_crtd_ids[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a surface by extruding a curve and mesh it.

i_return_value =                                 @

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

      "[1 -0.5 0]", "[1.5 0.25 0]", 1, 0.5,      @

      sv_asm_line_3point_crtd_ids )

dump i_return_value

i_return_value =                                 @

   sgm_const_surface_extrude( "1", "<0 0 01>",1.,@

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

      sv_sgm_sweep_surface_e_crtd_ids )

dump i_return_value

i_return_value =                                 @

   fem_create_mesh_surf_2( "IsoMesh", 0,         @

      "Surface 1 ", 1, [0.5], "Quad8", "1", "1"  @

      ,"Coord 0","Coord 0",i_fem_create_num_nodes@

      , i_fem_create_num_elems,                  @

      sv_fem_create_nodes_created, sv_fem_create_elems_created )

dump i_return_value

i_return_value = ga_view_aa_set( 30., 0., -15. )

dump i_return_value

node_label( TRUE )

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

#  Calling function to get the subdivision tolerance.

s_display_name = "general"

i_return_value =                                 @

   ga_display_subdivision_get                    @

      (  s_display_name,                         @

         r_tolerance )

dump i_return_value, r_tolerance

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

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

sf_pause()

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

#  Calling function to set the subdivision tolerance.

r_tolerance = 0.005

i_return_value =                                 @

   ga_display_subdivision_set                    @

      (  s_display_name,                         @

         r_tolerance )

dump i_return_value

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

#  Calling function to get the subdivision tolerance.

i_return_value =                                 @

   ga_display_subdivision_get                    @

      (  s_display_name,                         @

         r_tolerance )

dump i_return_value, r_tolerance

sys_free_string(sv_fem_create_nodes_created)

sys_free_string(sv_fem_create_elems_created)

sys_free_string(sv_asm_line_3point_crtd_ids)

sys_free_string(sv_sgm_sweep_surface_e_crtd_ids)

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


ga_display_subdivision_set	()

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

#                      function ga_display_subdivision_set()

#                      This session file will open a new database by

#                      name ’new.db’ and create a surface. The surface

#                      will be meshed using Quad8 elements and the

#                      subdivision tolerance will be read. After a

#                      pause the tolerance will be set and get 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 ga_display_subdivision_set()

#  has the following arguments:

#  ga_display_subdivision_set

#     (  display_name,

#        tolerance )

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

#  Variable Declarations

STRING   s_display_name[32]

REAL     r_tolerance

INTEGER  i_return_value

INTEGER  i_fem_create_num_nodes

INTEGER  i_fem_create_num_elems

STRING   sv_fem_create_nodes_created[VIRTUAL]

STRING   sv_fem_create_elems_created[VIRTUAL]

STRING   sv_asm_line_3point_crtd_ids[VIRTUAL]

STRING   sv_sgm_sweep_surface_e_crtd_ids[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a surface by extruding a curve and mesh it.

i_return_value =                                 @

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

      "[1 -0.5 0]", "[1.5 0.25 0]", 1, 0.5,      @

      sv_asm_line_3point_crtd_ids )

dump i_return_value

i_return_value =                                 @

   sgm_const_surface_extrude( "1", "<0 0 01>",1.,@

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

      sv_sgm_sweep_surface_e_crtd_ids )

dump i_return_value

i_return_value =                                 @

   fem_create_mesh_surf_2( "IsoMesh", 0,         @

      "Surface 1 ", 1, [0.5], "Quad8", "1", "1"  @

      ,"Coord 0","Coord 0",i_fem_create_num_nodes@

      , i_fem_create_num_elems,                  @

      sv_fem_create_nodes_created, sv_fem_create_elems_created )

dump i_return_value

i_return_value = ga_view_aa_set( 30., 0., -15. )

dump i_return_value

node_label( TRUE )

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

#  Calling function to get the subdivision tolerance.

s_display_name = "general"

i_return_value =                                 @

   ga_display_subdivision_get                    @

      (  s_display_name,                         @

         r_tolerance )

dump i_return_value, r_tolerance

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

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

sf_pause()

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

#  Calling function to set the subdivision tolerance.

r_tolerance = 0.005

i_return_value =                                 @

   ga_display_subdivision_set                    @

      (  s_display_name,                         @

         r_tolerance )

dump i_return_value

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

#  Calling function to get the subdivision tolerance.

i_return_value =                                 @

   ga_display_subdivision_get                    @

      (  s_display_name,                         @

         r_tolerance )

dump i_return_value, r_tolerance

sys_free_string(sv_fem_create_nodes_created)

sys_free_string(sv_fem_create_elems_created)

sys_free_string(sv_asm_line_3point_crtd_ids)

sys_free_string(sv_sgm_sweep_surface_e_crtd_ids)

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


ga_display_texture_get	()

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

#                      the function ga_display_texture_get()

#                      This file opens a new database "new.db" and

#                      creates a surface and renders it. Later it

#                      gets the texture. Finally it sets the texture

#                      and gets it.

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

#  has the following arguments:

#  ga_display_texture_get

#     (  display_name,

#        texture_value )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

REAL     r_texture_value

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface and render it.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

renderstyle("shaded/smooth")

#  s_display_name = "general"

s_display_name = "general"

#  Get the texture value.

i_return_value =                                 @

   ga_display_texture_get                        @

      (  s_display_name,                         @

         r_texture_value )

dump i_return_value

dump r_texture_value

#  Note the change on the viewport.

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

sf_pause()

#  Set the texture value.

IF ( r_texture_value  == 1.0) THEN

   r_texture_value = 0.0

ELSE

   r_texture_value = 1.0

ENDIF

i_return_value =                                 @

   ga_display_texture_set                        @

      (  s_display_name,                         @

         r_texture_value )

dump i_return_value

#  Reset the value.

r_texture_value = 100.0

#  Get the texture value.

i_return_value =                                 @

   ga_display_texture_get                        @

      (  s_display_name,                         @

         r_texture_value )

dump i_return_value

dump r_texture_value

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_texture_set	()

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

#                      function ga_display_texture_set()

#                      This file opens a new database "new.db" and

#                      creates a surface and renders it. Later it

#                      gets the texture. Finally it sets the texture

#                      and gets it.

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

#  has the following arguments:

#  ga_display_texture_set

#     (  display_name,

#        texture_value )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

REAL     r_texture_value

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a surface and render it.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

renderstyle("shaded/smooth")

#  s_display_name = "general"

s_display_name = "general"

#  Get the texture value.

i_return_value =                                 @

   ga_display_texture_get                        @

      (  s_display_name,                         @

         r_texture_value )

dump i_return_value

dump r_texture_value

#  Note the change on the viewport.

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

sf_pause()

#  Set the texture value.

IF ( r_texture_value  == 1.0) THEN

   r_texture_value = 0.0

ELSE

   r_texture_value = 1.0

ENDIF

i_return_value =                                 @

   ga_display_texture_set                        @

      (  s_display_name,                         @

         r_texture_value )

dump i_return_value

#  Reset the value.

r_texture_value = 100.0

#  Get the texture value.

i_return_value =                                 @

   ga_display_texture_get                        @

      (  s_display_name,                         @

         r_texture_value )

dump i_return_value

dump r_texture_value

SYS_FREE_STRING(sv_asm_create_patch_xy_created)

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


ga_display_transparency_get	()

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

#                      the function ga_display_transparency_get()

#                      This session file will create a new database by

#                      name ’new.db’ and create a solid. The solid

#                      will be rendered with shaded style and the

#                      transparency value will be get. After a pause

#                      the transparency value will be set and get

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

#  has the following arguments:

#  ga_display_transparency_get

#     (  display_name,

#        transparency_value )

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

#  Variable Declarations

STRING   s_display_name[32]

REAL     r_transparency_value

INTEGER  i_return_value

STRING   sv_asm_create_hpat_xyz_crtd_ids[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Creating a hpat and rendering with smooth shade.

i_return_value =                                 @

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

      "Coord 0", sv_asm_create_hpat_xyz_crtd_ids )

dump i_return_value

i_return_value =                                 @

   renderstyle( "Shaded/Smooth" )

dump i_return_value

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

#  Calling function to read the transparency value.

s_display_name = "general"

i_return_value =                                 @

   ga_display_transparency_get                   @

      (  s_display_name,                         @

         r_transparency_value )

dump i_return_value, r_transparency_value

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

#  Calling function to set the transparency value.

r_transparency_value = 0.5

i_return_value =                                 @

   ga_display_transparency_set                   @

      (  s_display_name,                         @

         r_transparency_value )

dump i_return_value

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

#  Calling function to read the transparency value.

i_return_value =                                 @

   ga_display_transparency_get                   @

      (  s_display_name,                         @

         r_transparency_value )

dump i_return_value, r_transparency_value

sys_free_string(sv_asm_create_hpat_xyz_crtd_ids)

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


ga_display_transparency_set	()

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

#                      function ga_display_transparency_set()

#                      This session file will create a new database by

#                      name ’new.db’ and create a solid. The solid

#                      will be rendered with shaded style and the

#                      transparency value will be get. After a pause

#                      the transparency value will be set and get

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

#  has the following arguments:

#  ga_display_transparency_set

#     (  display_name,

#        transparency_value )

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

#  Variable Declarations

STRING   s_display_name[32]

REAL     r_transparency_value

INTEGER  i_return_value

STRING   sv_asm_create_hpat_xyz_crtd_ids[VIRTUAL]

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Creating a hpat and rendering with smooth shade.

i_return_value =                                 @

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

      "Coord 0", sv_asm_create_hpat_xyz_crtd_ids )

dump i_return_value

i_return_value =                                 @

   renderstyle( "Shaded/Smooth" )

dump i_return_value

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

#  Calling function to read the transparency value.

s_display_name = "general"

i_return_value =                                 @

   ga_display_transparency_get                   @

      (  s_display_name,                         @

         r_transparency_value )

dump i_return_value, r_transparency_value

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

#  Calling function to set the transparency value.

r_transparency_value = 0.5

i_return_value =                                 @

   ga_display_transparency_set                   @

      (  s_display_name,                         @

         r_transparency_value )

dump i_return_value

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

#  Calling function to read the transparency value.

i_return_value =                                 @

   ga_display_transparency_get                   @

      (  s_display_name,                         @

         r_transparency_value )

dump i_return_value, r_transparency_value

sys_free_string(sv_asm_create_hpat_xyz_crtd_ids)

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


ga_display_undeform_color_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_undeform_color_get()

#                      This file opens an existing database and reads

#                      in the results. Later it gets the color for

#                      display of undeformed entities. Finally it sets

#                      the color and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db. Follow the instructions in

#                      spool.ses and create spool.op2 and spool.jbr.

#                      Finally copy the file  "spool_res_deform.ses"

#                      to the current working directory.

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

#  has the following arguments:

#  ga_display_undeform_color_get

#     (  display_name,

#        color_value )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_color_value

INTEGER  i_return_value

INTEGER  i_flag

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_deform.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Set the undeform plot.

i_flag = 1

i_return_value =                                 @

   ga_display_undeform_set                       @

      (  s_display_name,                         @

         i_flag )

dump i_return_value

#  Get the color for display of undeformed entities.

i_return_value =                                 @

   ga_display_undeform_color_get                 @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

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

sf_pause()

#  Set the color for display of undeformed entities.

IF (i_color_value == 4 ) THEN

   i_color_value = 5

ELSE

   i_color_value = 4

ENDIF

i_return_value =                                 @

   ga_display_undeform_color_set                 @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

#  Reset the value

i_color_value = 0

#  Get the color for display of undeformed entities.

i_return_value =                                 @

   ga_display_undeform_color_get                 @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

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


ga_display_undeform_color_set	()

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

#                      function ga_display_undeform_color_set()

#                      This file opens an existing database and reads

#                      in the results. Later it gets the color for

#                      display of undeformed entities. Finally it sets

#                      the color and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db. Follow the instructions in

#                      spool.ses and create spool.op2 and spool.jbr.

#                      Finally copy the file  "spool_res_deform.ses"

#                      to the current working directory.

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

#  has the following arguments:

#  ga_display_undeform_color_set

#     (  display_name,

#        color_value )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_color_value

INTEGER  i_return_value

INTEGER  i_flag

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_deform.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Set the undeform plot.

i_flag = 1

i_return_value =                                 @

   ga_display_undeform_set                       @

      (  s_display_name,                         @

         i_flag )

dump i_return_value

#  Get the color for display of undeformed entities.

i_return_value =                                 @

   ga_display_undeform_color_get                 @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

#  Note the change of color on viewport.

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

sf_pause()

#  Set the color for display of undeformed entities.

IF (i_color_value == 4 ) THEN

   i_color_value = 5

ELSE

   i_color_value = 4

ENDIF

i_return_value =                                 @

   ga_display_undeform_color_set                 @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

#  Reset the value

i_color_value = 0

#  Get the color for display of undeformed entities.

i_return_value =                                 @

   ga_display_undeform_color_get                 @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

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


ga_display_undeform_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_undeform_get()

#                      This file opens an existing database and reads

#                      in the results. Later it gets the status for

#                      control of display of undeformed entities.

#                      Finally it sets  the status and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db. Follow the instructions in

#                      spool.ses and create spool.op2 and spool.jbr.

#                      Finally copy the file  "spool_res_deform.ses"

#                      to the current working directory.

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

#  has the following arguments:

#  ga_display_undeform_get

#     (  display_name,

#        undeform_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_undeform_status

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_deform.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Get the status for control of display of undeformed entities.

i_return_value =                                 @

   ga_display_undeform_get                       @

      (  s_display_name,                         @

         i_undeform_status )

dump i_return_value

dump i_undeform_status

#  Note the change on plot on the viewport.

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

sf_pause()

#  Set the status for control of display of undeformed entities.

IF (i_undeform_status == 0 ) THEN

   i_undeform_status = 1

ELSE

   i_undeform_status = 0

ENDIF

i_return_value =                                 @

   ga_display_undeform_set                       @

      (  s_display_name,                         @

         i_undeform_status )

dump i_return_value

#  Reset the value

i_undeform_status = 100

#  Get the status for control of display of undeformed entities.

i_return_value =                                 @

   ga_display_undeform_get                       @

      (  s_display_name,                         @

         i_undeform_status )

dump i_return_value

dump i_undeform_status

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


ga_display_undeform_set	()

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

#                      function ga_display_undeform_set()

#                      This file opens an existing database and reads

#                      in the results. Later it gets the status for

#                      control of display of undeformed entities.

#                      Finally it sets  the status and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db. Follow the instructions in

#                      spool.ses and create spool.op2 and spool.jbr.

#                      Finally copy the file  "spool_res_deform.ses"

#                      to the current working directory.

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

#  has the following arguments:

#  ga_display_undeform_set

#     (  display_name,

#        undeform_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_undeform_status

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_deform.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Get the status for control of display of undeformed entities.

i_return_value =                                 @

   ga_display_undeform_get                       @

      (  s_display_name,                         @

         i_undeform_status )

dump i_return_value

dump i_undeform_status

#  Note the change of plot on the viewport.

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

sf_pause()

#  Set the status for control of display of undeformed entities.

IF (i_undeform_status == 0 ) THEN

   i_undeform_status = 1

ELSE

   i_undeform_status = 0

ENDIF

i_return_value =                                 @

   ga_display_undeform_set                       @

      (  s_display_name,                         @

         i_undeform_status )

dump i_return_value

#  Reset the value

i_undeform_status = 100

#  Get the status for control of display of undeformed entities.

i_return_value =                                 @

   ga_display_undeform_get                       @

      (  s_display_name,                         @

         i_undeform_status )

dump i_return_value

dump i_undeform_status

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


ga_display_undeform_style_get	()

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

#                      the function ga_display_undeform_style_get()

#                      This file opens an existing database and reads

#                      in the results. Later it gets the style for

#                      display of lines that comprise undeformed

#                      entities. Finally it sets the style

#                      and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db.The file

#                      "spool_res_deform.ses" should be present in

#                      the current directory.

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

#  has the following arguments:

#  ga_display_undeform_style_get

#     (  display_name,

#        curve_style )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   s_curve_style[32]

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_deform.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Get the style for display of lines that

#   comprise undeformed entities.

i_return_value =                                 @

   ga_display_undeform_style_get                 @

      (  s_display_name,                         @

         s_curve_style )

dump i_return_value

dump s_curve_style

#  Set the style for display of lines that

#  comprise  undeformed entities.

IF (s_curve_style == "SOLID" ) THEN

   s_curve_style = "DASHED"

ELSE

   s_curve_style = "SOLID"

ENDIF

i_return_value =                                 @

   ga_display_undeform_style_set                 @

      (  s_display_name,                         @

         s_curve_style )

dump i_return_value

#  Reset the value

s_curve_style = ""

#  Get the style for display of lines that

#  comprise  undeformed entities.

i_return_value =                                 @

   ga_display_undeform_style_get                 @

      (  s_display_name,                         @

         s_curve_style )

dump i_return_value

dump s_curve_style

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


ga_display_undeform_style_set	()

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

#                      function ga_display_undeform_style_set()

#                      This file opens an existing database and reads

#                      in the results. Later it gets the style for

#                      display of lines that comprise undeformed

#                      entities. Finally it sets the style

#                      and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db.The file

#                      "spool_res_deform.ses" should be present in

#                      the current directory.

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

#  has the following arguments:

#  ga_display_undeform_style_set

#     (  display_name,

#        curve_style )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   s_curve_style[32]

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_deform.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Get the style for display of lines that

#   comprise undeformed entities.

i_return_value =                                 @

   ga_display_undeform_style_get                 @

      (  s_display_name,                         @

         s_curve_style )

dump i_return_value

dump s_curve_style

#  Set the style for display of lines that

#  comprise  undeformed entities.

IF (s_curve_style == "SOLID" ) THEN

   s_curve_style = "DASHED"

ELSE

   s_curve_style = "SOLID"

ENDIF

i_return_value =                                 @

   ga_display_undeform_style_set                 @

      (  s_display_name,                         @

         s_curve_style )

dump i_return_value

#  Reset the value

s_curve_style = ""

#  Get the style for display of lines that

#  comprise  undeformed entities.

i_return_value =                                 @

   ga_display_undeform_style_get                 @

      (  s_display_name,                         @

         s_curve_style )

dump i_return_value

dump s_curve_style

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


ga_display_vector_color_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_vector_color_get()

#                      This file opens an existing database "spool.db"

#                      and reads the results. Later it gets the vector

#                      color used for display. Finally it sets the

#                      vector color and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db. Follow the instructions in

#                      spool.ses and create spool.op2 and spool.jbr.

#                      Finally copy the file  "spool_res_vector.ses"

#                      to the current working directory.

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

#  has the following arguments:

#  ga_display_vector_color_get

#     (  display_name,

#        color_value )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_color_value

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_vector.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Set the color style.

i_return_value =                                 @

   ga_display_vector_colorstyl_set               @

      (  s_display_name,                         @

         "VALUE" )

dump i_return_value

#  Get the vector color.

i_return_value =                                 @

   ga_display_vector_color_get                   @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

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

sf_pause()

#  Set the vector color.

IF (i_color_value == 2) THEN

   i_color_value = 5

ELSE

   i_color_value = 2

ENDIF

i_return_value =                                 @

   ga_display_vector_color_set                   @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

#  Reset the value

i_color_value = 0

#  Get the vector color.

i_return_value =                                 @

   ga_display_vector_color_get                   @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

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


ga_display_vector_color_set	()

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

#                      function ga_display_vector_color_set()

#                      This file opens an existing database "spool.db"

#                      and reads the results. Later it gets the vector

#                      color used for display. Finally it sets the

#                      vector color and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db. Follow the instructions in

#                      spool.ses and create spool.op2 and spool.jbr.

#                      Finally copy the file  "spool_res_vector.ses"

#                      to the current working directory.

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

#  has the following arguments:

#  ga_display_vector_color_set

#     (  display_name,

#        color_value )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_color_value

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_vector.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Set the color style.

i_return_value =                                 @

   ga_display_vector_colorstyl_set               @

      (  s_display_name,                         @

         "VALUE" )

dump i_return_value

#  Get the vector color.

i_return_value =                                 @

   ga_display_vector_color_get                   @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

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

sf_pause()

#  Set the vector color.

IF (i_color_value == 2) THEN

   i_color_value = 5

ELSE

   i_color_value = 2

ENDIF

i_return_value =                                 @

   ga_display_vector_color_set                   @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

#  Reset the value

i_color_value = 0

#  Get the vector color.

i_return_value =                                 @

   ga_display_vector_color_get                   @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

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


ga_display_vector_colorstyl_get	()

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

#                      the function ga_display_vector_colorstyl_get()

#                      This file opens an existing database "spool.db"

#                      and reads in the results. It gets the style

#                      used to plot vectors. Later it sets the style

#                      and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db. Follow the instructions in

#                      spool.ses and create spool.op2 and spool.jbr.

#                      Finally copy the file  "spool_res_vector.ses"

#                      to the current working directory.

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

#  has the following arguments:

#  ga_display_vector_colorstyl_get

#     (  display_name,

#        vector_style )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   s_vector_style[32]

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_vector.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Get the vector color style.

i_return_value =                                 @

   ga_display_vector_colorstyl_get               @

      (  s_display_name,                         @

         s_vector_style )

dump i_return_value

dump s_vector_style

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

sf_pause()

#  Set the vector color style.

IF (s_vector_style == "VALUE") THEN

   s_vector_style = "COMPONENT"

ELSE

   s_vector_style = "VALUE"

ENDIF

i_return_value =                                 @

   ga_display_vector_colorstyl_set               @

      (  s_display_name,                         @

         s_vector_style )

dump i_return_value

#  Reset the value

s_vector_style = ""

#  Get the vector color style.

i_return_value =                                 @

   ga_display_vector_colorstyl_get               @

      (  s_display_name,                         @

         s_vector_style )

dump i_return_value

dump s_vector_style

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


ga_display_vector_colorstyl_set	()

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

#                      function ga_display_vector_colorstyl_set()

#                      This file opens an existing database "spool.db"

#                      and reads in the results. It gets the style

#                      used to plot vectors. Later it sets the style

#                      and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db. Follow the instructions in

#                      spool.ses and create spool.op2 and spool.jbr.

#                      Finally copy the file  "spool_res_vector.ses"

#                      to the current working directory.

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

#  has the following arguments:

#  ga_display_vector_colorstyl_set

#     (  display_name,

#        vector_style )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   s_vector_style[32]

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_vector.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Get the vector color style.

i_return_value =                                 @

   ga_display_vector_colorstyl_get               @

      (  s_display_name,                         @

         s_vector_style )

dump i_return_value

dump s_vector_style

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

sf_pause()

#  Set the vector color style.

IF (s_vector_style == "VALUE") THEN

   s_vector_style = "COMPONENT"

ELSE

   s_vector_style = "VALUE"

ENDIF

i_return_value =                                 @

   ga_display_vector_colorstyl_set               @

      (  s_display_name,                         @

         s_vector_style )

dump i_return_value

#  Reset the value

s_vector_style = ""

#  Get the vector color style.

i_return_value =                                 @

   ga_display_vector_colorstyl_get               @

      (  s_display_name,                         @

         s_vector_style )

dump i_return_value

dump s_vector_style

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


ga_display_vector_facolor_get	()

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

#                      the function ga_display_vector_facolor_get()

#                      This file opens an existing database "spool.db"

#                      and plots the applied loads. Later it gets the

#                      colors used to display the functional

#                      assignment vectors. Finally it sets the colors

#                      used for functional assignment vectors and gets

#                      it again.

#                      Before running this session file run spool.ses

#                      to create spool.db

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

#  has the following arguments:

#  ga_display_vector_facolor_get

#     (  display_name,

#        color_value )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  ia_color_value(5)

INTEGER  i_return_value

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

#  Open the database "spool.db".

uil_file_open.go("spool.db")

i_return_value =                                 @

   loadsbcs_plot_markers( ["400_psi"], ["default_group"] )

dump i_return_value

#  s_display_name = "general"

s_display_name = "general"

#  Get the colors used to display functional assignment vectors

i_return_value =                                 @

   ga_display_vector_facolor_get                 @

      (  s_display_name,                         @

         ia_color_value )

dump i_return_value

dump ia_color_value

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

sf_pause()

#  Set the colors used to display functional assignment vectors

ia_color_value = [ 2, 2, 2, 2, 2]

i_return_value =                                 @

   ga_display_vector_facolor_set                 @

      (  s_display_name,                         @

         ia_color_value )

dump i_return_value

#  Reset the values

ia_color_value = [ 0, 0, 0, 0, 0]

#  Get the colors used to display functional assignment vectors

i_return_value =                                 @

   ga_display_vector_facolor_get                 @

      (  s_display_name,                         @

         ia_color_value )

dump i_return_value

dump ia_color_value

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


ga_display_vector_facolor_set	()

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

#                      the function ga_display_vector_facolor_get()

#                      This file opens an existing database "spool.db"

#                      and plots the applied loads. Later it gets the

#                      colors used to display the functional

#                      assignment vectors. Finally it sets the colors

#                      used for functional assignment vectors and gets

#                      it again.

#                      Before running this session file run spool.ses

#                      to create spool.db

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

#  has the following arguments:

#  ga_display_vector_facolor_set

#     (  display_name,

#        color_value )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  ia_color_value(5)

INTEGER  i_return_value

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

#  Open the database "spool.db".

uil_file_open.go("spool.db")

i_return_value =                                 @

   loadsbcs_plot_markers( ["400_psi"], ["default_group"] )

dump i_return_value

#  s_display_name = "general"

s_display_name = "general"

#  Get the colors used to display functional assignment vectors

i_return_value =                                 @

   ga_display_vector_facolor_get                 @

      (  s_display_name,                         @

         ia_color_value )

dump i_return_value

dump ia_color_value

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

sf_pause()

#  Set the colors used to display functional assignment vectors

ia_color_value = [ 2, 2, 2, 2, 2]

i_return_value =                                 @

   ga_display_vector_facolor_set                 @

      (  s_display_name,                         @

         ia_color_value )

dump i_return_value

#  Reset the values

ia_color_value = [ 0, 0, 0, 0, 0]

#  Get the colors used to display functional assignment vectors

i_return_value =                                 @

   ga_display_vector_facolor_get                 @

      (  s_display_name,                         @

         ia_color_value )

dump i_return_value

dump ia_color_value

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


ga_display_vector_falabel_get	()

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

#                      the function ga_display_vector_falabel_get()

#                      This file opens an existing database "spool.db"

#                      and plots the applied loads. Later it gets the

#                      status for display of labels for functional

#                      assignments. Finally it sets the status and

#                      gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db

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

#  has the following arguments:

#  ga_display_vector_falabel_get

#     (  display_name,

#        label_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_label_status

INTEGER  i_return_value

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

#  Open the database "spool.db".

uil_file_open.go("spool.db")

i_return_value =                                 @

   loadsbcs_plot_markers( ["400_psi"],           @

                          ["default_group"] )

dump i_return_value

#  s_display_name = "general"

s_display_name = "general"

#  Get the status for display of label for

#  functional assignment vectors.

i_return_value =                                 @

   ga_display_vector_falabel_get                 @

      (  s_display_name,                         @

         i_label_status )

dump i_return_value

dump i_label_status

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

sf_pause()

#  Set the status for display of label for

#  functional assignment vectors.

IF (i_label_status == 0) THEN

   i_label_status = 1

ELSE

   i_label_status = 0

ENDIF

i_return_value =                                 @

   ga_display_vector_falabel_set                 @

      (  s_display_name,                         @

         i_label_status )

dump i_return_value

#  Reset the value

i_label_status = 100

#  Get the status for display of label for

#  functional assignment vectors.

i_return_value =                                 @

   ga_display_vector_falabel_get                 @

      (  s_display_name,                         @

         i_label_status )

dump i_return_value

dump i_label_status

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


ga_display_vector_falabel_set	()

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

#                      function ga_display_vector_falabel_set()

#                      This file opens an existing database "spool.db"

#                      and plots the applied loads. Later it gets the

#                      status for display of labels for functional

#                      assignments. Finally it sets the status and

#                      gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db

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

#  has the following arguments:

#  ga_display_vector_falabel_set

#     (  display_name,

#        label_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_label_status

INTEGER  i_return_value

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

#  Open the database "spool.db".

uil_file_open.go("spool.db")

i_return_value =                                 @

   loadsbcs_plot_markers( ["400_psi"],           @

                          ["default_group"] )

dump i_return_value

#  s_display_name = "general"

s_display_name = "general"

#  Get the status for display of label for

#  functional assignment vectors.

i_return_value =                                 @

   ga_display_vector_falabel_get                 @

      (  s_display_name,                         @

         i_label_status )

dump i_return_value

dump i_label_status

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

sf_pause()

#  Set the status for display of label for

#  functional assignment vectors.

IF (i_label_status == 0) THEN

   i_label_status = 1

ELSE

   i_label_status = 0

ENDIF

i_return_value =                                 @

   ga_display_vector_falabel_set                 @

      (  s_display_name,                         @

         i_label_status )

dump i_return_value

#  Reset the value

i_label_status = 100

#  Get the status for display of label for

#  functional assignment vectors.

i_return_value =                                 @

   ga_display_vector_falabel_get                 @

      (  s_display_name,                         @

         i_label_status )

dump i_return_value

dump i_label_status

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


ga_display_vector_length_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_vector_length_get()

#                      This file opens an existing database "spool.db"

#                      and reads the results. Later it gets the value

#                      used to control the length style of the plotted

#                      vectors. Finally it sets the value used  to

#                      control the length style of the plotted vectors

#                      and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db. Follow the instructions in

#                      spool.ses and create spool.op2 and spool.jbr.

#                      Finally copy the file  "spool_res_vector.ses"

#                      to the current working directory.

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

#  has the following arguments:

#  ga_display_vector_length_get

#     (  display_name,

#        vector_style )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   s_vector_style[32]

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_vector.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Get the length style of vector.

i_return_value =                                 @

   ga_display_vector_length_get                  @

      (  s_display_name,                         @

         s_vector_style )

dump i_return_value

dump s_vector_style

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

sf_pause()

#  Set the length style of vector.

IF (s_vector_style == "CONSTANT/SCREEN") THEN

   s_vector_style = "SCALED/SCREEN"

ELSE

   s_vector_style = "CONSTANT/SCREEN"

ENDIF

i_return_value =                                 @

   ga_display_vector_length_set                  @

      (  s_display_name,                         @

         s_vector_style )

dump i_return_value

#  Reset the value

s_vector_style = ""

#  Get the length style of vector.

i_return_value =                                 @

   ga_display_vector_length_get                  @

      (  s_display_name,                         @

         s_vector_style )

dump i_return_value

dump s_vector_style

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


ga_display_vector_length_set	()

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

#                      function ga_display_vector_length_set()

#                      This file opens an existing database "spool.db"

#                      and reads the results. Later it gets the value

#                      used to control the length style of the plotted

#                      vectors. Finally it sets the value used  to

#                      control the length style of the plotted vectors

#                      and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db. Follow the instructions in

#                      spool.ses and create spool.op2 and spool.jbr.

#                      Finally copy the file  "spool_res_vector.ses"

#                      to the current working directory.

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

#  has the following arguments:

#  ga_display_vector_length_set

#     (  display_name,

#        vector_style )

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

#  Variable Declarations

STRING   s_display_name[32]

STRING   s_vector_style[32]

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_vector.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Get the length style of vector.

i_return_value =                                 @

   ga_display_vector_length_get                  @

      (  s_display_name,                         @

         s_vector_style )

dump i_return_value

dump s_vector_style

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

sf_pause()

#  Set the length style of vector.

IF (s_vector_style == "CONSTANT/SCREEN") THEN

   s_vector_style = "SCALED/SCREEN"

ELSE

   s_vector_style = "CONSTANT/SCREEN"

ENDIF

i_return_value =                                 @

   ga_display_vector_length_set                  @

      (  s_display_name,                         @

         s_vector_style )

dump i_return_value

#  Reset the value

s_vector_style = ""

#  Get the length style of vector.

i_return_value =                                 @

   ga_display_vector_length_get                  @

      (  s_display_name,                         @

         s_vector_style )

dump i_return_value

dump s_vector_style

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


ga_display_vector_reslabel_get	()

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

#                      the function ga_display_vector_reslabel_get()

#                      This file opens an existing database "spool.db"

#                      and reads the results. Later it gets the status

#                      value used to control the display of labels on

#                      results vectors. Finally it sets the status

#                      value and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db. Follow the instructions in

#                      spool.ses and create spool.op2 and spool.jbr.

#                      Finally copy the file  "spool_res_vector.ses"

#                      to the current working directory.

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

#  has the following arguments:

#  ga_display_vector_reslabel_get

#     (  display_name,

#        label_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_label_status

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_vector.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Get the status value for display of labels on result vectors.

i_return_value =                                 @

   ga_display_vector_reslabel_get                @

      (  s_display_name,                         @

         i_label_status )

dump i_return_value

dump i_label_status

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

sf_pause()

#  Set the status value for display of labels on result vectors.

IF (i_label_status == 0) THEN

   i_label_status = 1

ELSE

   i_label_status = 0

ENDIF

i_return_value =                                 @

   ga_display_vector_reslabel_set                @

      (  s_display_name,                         @

         i_label_status )

dump i_return_value

#  Reset the value

i_label_status = 100

#  Get the status value for display of labels on result vectors.

i_return_value =                                 @

   ga_display_vector_reslabel_get                @

      (  s_display_name,                         @

         i_label_status )

dump i_return_value

dump i_label_status

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


ga_display_vector_reslabel_set	()

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

#                      function ga_display_vector_reslabel_set()

#                      This file opens an existing database "spool.db"

#                      and reads the results. Later it gets the status

#                      value used to control the display of labels on

#                      results vectors. Finally it sets the status

#                      value and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db. Follow the instructions in

#                      spool.ses and create spool.op2 and spool.jbr.

#                      Finally copy the file  "spool_res_vector.ses"

#                      to the current working directory.

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

#  has the following arguments:

#  ga_display_vector_reslabel_set

#     (  display_name,

#        label_status )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_label_status

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_vector.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Get the status value for display of labels on result vectors.

i_return_value =                                 @

   ga_display_vector_reslabel_get                @

      (  s_display_name,                         @

         i_label_status )

dump i_return_value

dump i_label_status

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

sf_pause()

#  Set the status value for display of labels on result vectors.

IF (i_label_status == 0) THEN

   i_label_status = 1

ELSE

   i_label_status = 0

ENDIF

i_return_value =                                 @

   ga_display_vector_reslabel_set                @

      (  s_display_name,                         @

         i_label_status )

dump i_return_value

#  Reset the value

i_label_status = 100

#  Get the status value for display of labels on result vectors.

i_return_value =                                 @

   ga_display_vector_reslabel_get                @

      (  s_display_name,                         @

         i_label_status )

dump i_return_value

dump i_label_status

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


ga_display_vector_scale_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_vector_scale_get()

#                      This file opens an existing database "spool.db"

#                      and reads the results. Later it gets the vector

#                      scale used for display. Finally it sets the

#                      vector scale and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db. Follow the instructions in

#                      spool.ses and create spool.op2 and spool.jbr.

#                      Finally copy the file  "spool_res_vector.ses"

#                      to the current working directory.

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

#  has the following arguments:

#  ga_display_vector_scale_get

#     (  display_name,

#        vector_scale )

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

#  Variable Declarations

STRING   s_display_name[32]

REAL     r_vector_scale

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_vector.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Get the vector scale.

i_return_value =                                 @

   ga_display_vector_scale_get                   @

      (  s_display_name,                         @

         r_vector_scale )

dump i_return_value

dump r_vector_scale

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

sf_pause()

#  Set the vector scale.

IF (r_vector_scale == 0.1) THEN

   r_vector_scale = 0.2

ELSE

   r_vector_scale = 0.1

ENDIF

i_return_value =                                 @

   ga_display_vector_scale_set                   @

      (  s_display_name,                         @

         r_vector_scale )

dump i_return_value

#  Reset the value

r_vector_scale = 0.0

#  Get the vector scale.

i_return_value =                                 @

   ga_display_vector_scale_get                   @

      (  s_display_name,                         @

         r_vector_scale )

dump i_return_value

dump r_vector_scale

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


ga_display_vector_scale_set	()

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

#                      function ga_display_vector_scale_set()

#                      This file opens an existing database "spool.db"

#                      and reads the results. Later it gets the vector

#                      scale used for display. Finally it sets the

#                      vector scale and gets it.

#                      Before running this session file run spool.ses

#                      to create spool.db. Follow the instructions in

#                      spool.ses and create spool.op2 and spool.jbr.

#                      Finally copy the file  "spool_res_vector.ses"

#                      to the current working directory.

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

#  has the following arguments:

#  ga_display_vector_scale_set

#     (  display_name,

#        vector_scale )

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

#  Variable Declarations

STRING   s_display_name[32]

REAL     r_vector_scale

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_vector.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Get the vector scale.

i_return_value =                                 @

   ga_display_vector_scale_get                   @

      (  s_display_name,                         @

         r_vector_scale )

dump i_return_value

dump r_vector_scale

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

sf_pause()

#  Set the vector scale.

IF (r_vector_scale == 0.1) THEN

   r_vector_scale = 0.2

ELSE

   r_vector_scale = 0.1

ENDIF

i_return_value =                                 @

   ga_display_vector_scale_set                   @

      (  s_display_name,                         @

         r_vector_scale )

dump i_return_value

#  Reset the value

r_vector_scale = 0.0

#  Get the vector scale.

i_return_value =                                 @

   ga_display_vector_scale_get                   @

      (  s_display_name,                         @

         r_vector_scale )

dump i_return_value

dump r_vector_scale

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


ga_display_vector1_color_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_vector1_color_get()

#                      This file opens an existing database "spool.db"

#                      and reads the results. Later it gets the first

#                      vector component color used for display.

#                      Finally it sets the vector color and gets it.

#                      When setting the first component color the

#                      other component colors are set to black.

#                      Before running this session file run spool.ses

#                      to create spool.db. The file

#                      "spool_res_tensor.ses" should be present in the

#                      current directory.

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

#  has the following arguments:

#  ga_display_vector1_color_get

#     (  display_name,

#        color_value )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_color_value

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_tensor.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Set the color style.

i_return_value =                                 @

   ga_display_vector_colorstyl_set               @

      (  s_display_name,                         @

         "COMPONENT" )

dump i_return_value

#  Get the vector color.

i_return_value =                                 @

   ga_display_vector1_color_get                  @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

#  Set the vector color black for component 2 and 3.

i_return_value =                                 @

   ga_display_vector2_color_set                  @

      (  s_display_name,                         @

0 )

i_return_value =                                 @

   ga_display_vector3_color_set                  @

      (  s_display_name,                         @

0 )

#  Note the change of vector color on the viewport.

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

sf_pause()

#  Set the vector color.

IF (i_color_value == 1) THEN

   i_color_value = 2

ELSE

   i_color_value = 1

ENDIF

i_return_value =                                 @

   ga_display_vector1_color_set                  @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

#  Reset the value

i_color_value = 0

#  Get the vector color.

i_return_value =                                 @

   ga_display_vector1_color_get                  @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

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


ga_display_vector1_color_set	()

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

#                      function ga_display_vector1_color_set()

#                      This file opens an existing database "spool.db"

#                      and reads the results. Later it gets the first

#                      vector component color used for display.

#                      Finally it sets the vector color and gets it.

#                      When setting the first component color the

#                      other component colors are set to black.

#                      Before running this session file run spool.ses

#                      to create spool.db. The file

#                      "spool_res_tensor.ses" should be present in the

#                      current directory.

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

#  has the following arguments:

#  ga_display_vector1_color_set

#     (  display_name,

#        color_value )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_color_value

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_tensor.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Set the color style.

i_return_value =                                 @

   ga_display_vector_colorstyl_set               @

      (  s_display_name,                         @

         "COMPONENT" )

dump i_return_value

#  Get the vector color.

i_return_value =                                 @

   ga_display_vector1_color_get                  @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

#  Set the vector color black for component 2 and 3.

i_return_value =                                 @

   ga_display_vector2_color_set                  @

      (  s_display_name,                         @

0 )

i_return_value =                                 @

   ga_display_vector3_color_set                  @

      (  s_display_name,                         @

0 )

#  Note the change of vector color on the viewport.

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

sf_pause()

#  Set the vector color.

IF (i_color_value == 1) THEN

   i_color_value = 2

ELSE

   i_color_value = 1

ENDIF

i_return_value =                                 @

   ga_display_vector1_color_set                  @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

#  Reset the value

i_color_value = 0

#  Get the vector color.

i_return_value =                                 @

   ga_display_vector1_color_get                  @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

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


ga_display_vector2_color_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_vector2_color_get()

#                      This file opens an existing database "spool.db"

#                      and reads the results. Later it gets the second

#                      vector component color used for display.

#                      Finally it sets the vector color and gets it.

#                      When setting the second component color the

#                      other component colors are set to black.

#                      Before running this session file run spool.ses

#                      to create spool.db.The file

#                      "spool_res_tensor.ses" should be present in the

#                      current directory.

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

#  has the following arguments:

#  ga_display_vector2_color_get

#     (  display_name,

#        color_value )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_color_value

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_tensor.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Set the color style.

i_return_value =                                 @

   ga_display_vector_colorstyl_set               @

      (  s_display_name,                         @

         "COMPONENT" )

dump i_return_value

#  Get the vector color.

i_return_value =                                 @

   ga_display_vector2_color_get                  @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

#  Set the vector color black for component 1 and 3.

i_return_value =                                 @

   ga_display_vector1_color_set                  @

      (  s_display_name,                         @

0 )

i_return_value =                                 @

   ga_display_vector3_color_set                  @

      (  s_display_name,                         @

0 )

#  Note the change of vector color on the viewport.

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

sf_pause()

#  Set the vector color.

IF (i_color_value == 1) THEN

   i_color_value = 2

ELSE

   i_color_value = 1

ENDIF

i_return_value =                                 @

   ga_display_vector2_color_set                  @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

#  Reset the value

i_color_value = 0

#  Get the vector color.

i_return_value =                                 @

   ga_display_vector2_color_get                  @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

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


ga_display_vector2_color_set	()

#  Purpose          :  This file provides an example of a call

#                      to the function ga_display_vector2_color_set()

#                      This file opens an existing database "spool.db"

#                      and reads the results. Later it gets the second

#                      vector component color used for display.

#                      Finally it sets the vector color and gets it.

#                      When setting the second component color the

#                      other component colors are set to black.

#                      Before running this session file run spool.ses

#                      to create spool.db.The file

#                      "spool_res_tensor.ses" should be present in the

#                      current directory.

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

#  has the following arguments:

#  ga_display_vector2_color_set

#     (  display_name,

#        color_value )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_color_value

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_tensor.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Set the color style.

i_return_value =                                 @

   ga_display_vector_colorstyl_set               @

      (  s_display_name,                         @

         "COMPONENT" )

dump i_return_value

#  Get the vector color.

i_return_value =                                 @

   ga_display_vector2_color_get                  @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

#  Set the vector color black for component 1 and 3.

i_return_value =                                 @

   ga_display_vector1_color_set                  @

      (  s_display_name,                         @

0 )

i_return_value =                                 @

   ga_display_vector3_color_set                  @

      (  s_display_name,                         @

0 )

#  Note the change of vector color on the viewport.

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

sf_pause()

#  Set the vector color.

IF (i_color_value == 1) THEN

   i_color_value = 2

ELSE

   i_color_value = 1

ENDIF

i_return_value =                                 @

   ga_display_vector2_color_set                  @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

#  Reset the value

i_color_value = 0

#  Get the vector color.

i_return_value =                                 @

   ga_display_vector2_color_get                  @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

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


ga_display_vector3_color_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function ga_display_vector3_color_get()

#                      This file opens an existing database "spool.db"

#                      and reads the results. Later it gets the third

#                      vector component color used for display.

#                      Finally it sets the vector color and gets it.

#                      When setting the third component color the

#                      other component colors are set to black.

#                      Before running this session file run spool.ses

#                      to create spool.db.The file

#                      "spool_res_tensor.ses" should be present in the

#                      current directory.

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

#  has the following arguments:

#  ga_display_vector3_color_get

#     (  display_name,

#        color_value )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_color_value

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_tensor.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Set the color style.

i_return_value =                                 @

   ga_display_vector_colorstyl_set               @

      (  s_display_name,                         @

         "COMPONENT" )

dump i_return_value

#  Get the vector color.

i_return_value =                                 @

   ga_display_vector3_color_get                  @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

#  Set the vector color black for component 1 and 2.

i_return_value =                                 @

   ga_display_vector1_color_set                  @

      (  s_display_name,                         @

0 )

i_return_value =                                 @

   ga_display_vector2_color_set                  @

      (  s_display_name,                         @

0 )

#  Note the change of vector color on the viewport.

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

sf_pause()

#  Set the vector color.

IF (i_color_value == 1) THEN

   i_color_value = 2

ELSE

   i_color_value = 1

ENDIF

i_return_value =                                 @

   ga_display_vector3_color_set                  @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

#  Reset the value

i_color_value = 0

#  Get the vector color.

i_return_value =                                 @

   ga_display_vector3_color_get                  @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

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


ga_display_vector3_color_set	()

#  Purpose          :  This file provides an example of a call

#                      to the function ga_display_vector3_color_set()

#                      This file opens an existing database "spool.db"

#                      and reads the results. Later it gets the third

#                      vector component color used for display.

#                      Finally it sets the vector color and gets it.

#                      When setting the third component color the

#                      other component colors are set to black.

#                      Before running this session file run spool.ses

#                      to create spool.db.The file

#                      "spool_res_tensor.ses" should be present in the

#                      current directory.

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

#  has the following arguments:

#  ga_display_vector3_color_set

#     (  display_name,

#        color_value )

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

#  Variable Declarations

STRING   s_display_name[32]

INTEGER  i_color_value

INTEGER  i_return_value

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

#  Open the database "spool.db" and read the results.

sf_play("spool_res_tensor.ses")

#  s_display_name = "general"

s_display_name = "general"

#  Set the color style.

i_return_value =                                 @

   ga_display_vector_colorstyl_set               @

      (  s_display_name,                         @

         "COMPONENT" )

dump i_return_value

#  Get the vector color.

i_return_value =                                 @

   ga_display_vector3_color_get                  @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

#  Set the vector color black for component 1 and 2.

i_return_value =                                 @

   ga_display_vector1_color_set                  @

      (  s_display_name,                         @

0 )

i_return_value =                                 @

   ga_display_vector2_color_set                  @

      (  s_display_name,                         @

0 )

#  Note the change of vector color on the viewport.

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

sf_pause()

#  Set the vector color.

IF (i_color_value == 1) THEN

   i_color_value = 2

ELSE

   i_color_value = 1

ENDIF

i_return_value =                                 @

   ga_display_vector3_color_set                  @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

#  Reset the value

i_color_value = 0

#  Get the vector color.

i_return_value =                                 @

   ga_display_vector3_color_get                  @

      (  s_display_name,                         @

         i_color_value )

dump i_return_value

dump i_color_value

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