#

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

#                      function pref_fem_get()

#

#                      In this example a new database is opened and

#                      default finite element model minimum angle 

#                      value is got from the database. Then it is 

#                      changed and got again.

#

#                      This file can be run by starting a session of

#                      Patran, and running this session file

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

#                      menus on the menu bar.

#

#  The function pref_fem_get() has the following arguments:

#  pref_fem_get

#     (  minimum_angle )

#

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

#  Variable Declarations

REAL     r_minimum_angle

INTEGER  i_return_value

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

#  Create a new database and set the preferences

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

$? YES  36000002

#  Get the default finite element model minimum angle value.

#

i_return_value =                                 @

   pref_fem_get                                  @

      (  r_minimum_angle )

dump i_return_value

#  The minimum angle is 

dump r_minimum_angle

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

#  Set a different value of minimum angle.

r_minimum_angle = 29

i_return_value =                                 @

   pref_fem_set                                  @

      (  r_minimum_angle )

dump i_return_value

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

#  Get the default finite element model minimum angle value.

#

i_return_value =                                 @

   pref_fem_get                                  @

      (  r_minimum_angle )

dump i_return_value

#  The minimum angle is 

dump r_minimum_angle

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

#

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

#                      function pref_fem_set()

#

#                      In this example a new database is opened and

#                      default finite element model minimum angle

#                      value is got from the database. Then it is

#                      changed and got again.

#

#                      This file can be run by starting a session of

#                      Patran, and running this session file

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

#                      menus on the menu bar.

#

#  The function pref_fem_set() has the following arguments:

#  pref_fem_set

#     (  minimum_angle )

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

#  Variable Declarations

REAL     r_minimum_angle

INTEGER  i_return_value

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

#  Create a new database and set the preferences

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

$? YES  36000002

#  Get the default finite element model minimum angle value.

#

i_return_value =                                 @

   pref_fem_get                                  @

      (  r_minimum_angle )

dump i_return_value

#  The minimum angle is 

dump r_minimum_angle

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

#  Set a different value of minimum angle.

r_minimum_angle = 29

i_return_value =                                 @

   pref_fem_set                                  @

      (  r_minimum_angle )

dump i_return_value

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

#  Get the default finite element model minimum angle value.

#

i_return_value =                                 @

   pref_fem_get                                  @

      (  r_minimum_angle )

dump i_return_value

#  The minimum angle is 

dump r_minimum_angle

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