#

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

#                      function pref_geometry_get_v1()

#

#                      In this example a new database is opened and

#                      default geometric preference values in the 

#                      database is got. 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_geometry_get_v1() has the following arguments:

#  pref_geometry_get_v1

#     (  hpat_parametrization,

#        nurbs_acceleration,

#        geometry_convention )

#

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

#  Variable Declarations

LOGICAL  l_hpat_parametrization

LOGICAL  l_nurbs_acceleration

LOGICAL  l_geometry_convention

INTEGER  i_return_value

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

#  Create a new database and set the preferences

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

$? YES  36000002

#  Get the default geometric preference values in the database.

i_return_value =                                 @

   pref_geometry_get_v1                          @

      (  l_hpat_parametrization,                 @

         l_nurbs_acceleration,                   @

         l_geometry_convention )

dump i_return_value

#  The geometric preference values are

dump  l_hpat_parametrization

dump  l_nurbs_acceleration

dump  l_geometry_convention

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

#  Set a different geometric preference values.

#

IF (l_hpat_parametrization  ==  TRUE) THEN

   l_hpat_parametrization = FALSE

ELSE

   l_hpat_parametrization = TRUE

END IF

IF (l_nurbs_acceleration  ==  TRUE) THEN

   l_nurbs_acceleration = FALSE

ELSE

   l_nurbs_acceleration = TRUE

END IF

IF (l_geometry_convention ==  TRUE) THEN

   l_geometry_convention = FALSE

ELSE

   l_geometry_convention = TRUE

END IF

i_return_value =                                 @

   pref_geometry_set_v1                          @

      (  l_hpat_parametrization,                 @

         l_nurbs_acceleration,                   @

         l_geometry_convention )

dump i_return_value

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

#  Get the geometric preference values in the database again.

i_return_value =                                 @

   pref_geometry_get_v1                          @

      (  l_hpat_parametrization,                 @

         l_nurbs_acceleration,                   @

         l_geometry_convention )

dump i_return_value

#  The geometric preference values are

dump  l_hpat_parametrization

dump  l_nurbs_acceleration

dump  l_geometry_convention

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

#

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

#                      function pref_geometry_set_v1()

#

#                      In this example a new database is opened and

#                      default geometric preference values in the

#                      database is got. 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_geometry_set_v1() has the following arguments:

#  pref_geometry_set_v1

#     (  hpat_parametrization,

#        nurbs_acceleration,

#        geometry_convention )

#

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

#  Variable Declarations

LOGICAL  l_hpat_parametrization

LOGICAL  l_nurbs_acceleration

LOGICAL  l_geometry_convention

INTEGER  i_return_value

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

#  Create a new database and set the preferences

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

$? YES  36000002

#  Get the default geometric preference values in the database.

i_return_value =                                 @

   pref_geometry_get_v1                          @

      (  l_hpat_parametrization,                 @

         l_nurbs_acceleration,                   @

         l_geometry_convention )

dump i_return_value

#  The geometric preference values are

dump  l_hpat_parametrization

dump  l_nurbs_acceleration

dump  l_geometry_convention

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

#  Set a different geometric preference values.

#

IF (l_hpat_parametrization  ==  TRUE) THEN

   l_hpat_parametrization = FALSE

ELSE

   l_hpat_parametrization = TRUE

END IF

IF (l_nurbs_acceleration  ==  TRUE) THEN

   l_nurbs_acceleration = FALSE

ELSE

   l_nurbs_acceleration = TRUE

END IF

IF (l_geometry_convention ==  TRUE) THEN

   l_geometry_convention = FALSE

ELSE

   l_geometry_convention = TRUE

END IF

i_return_value =                                 @

   pref_geometry_set_v1                          @

      (  l_hpat_parametrization,                 @

         l_nurbs_acceleration,                   @

         l_geometry_convention )

dump i_return_value

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

#  Get the geometric preference values in the database again.

i_return_value =                                 @

   pref_geometry_get_v1                          @

      (  l_hpat_parametrization,                 @

         l_nurbs_acceleration,                   @

         l_geometry_convention )

dump i_return_value

#  The geometric preference values are

dump  l_hpat_parametrization

dump  l_nurbs_acceleration

dump  l_geometry_convention

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