Modify Action

PCL Examples > XY Plot Functions > Modify Action

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX''">XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX''">

Modify Action

This section contains examples of some of the functions used to implement the “Modify” actions.


xy_axis_assign_method_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function xy_axis_assign_method_get()

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

#                      creates a window. Later it gets the labels

#                      assignment method. Finally it changes the

#                      assignment method 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 xy_axis_assign_method_get()

#  has the following arguments:

#  xy_axis_assign_method_get

#     (  axis_name,

#        method )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

STRING   s_method[20]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "X1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the labels assignment method.

i_return_value =                                 @

   xy_axis_assign_method_get                     @

      (  s_axis_name,                            @

         s_method )

dump i_return_value

dump s_method

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

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

sf_pause()

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

#  Set the labels assignment method.

IF  ( s_method == "semiauto" ) THEN

   s_method    = "automatic"

ELSE

   s_method    = "semiauto"

ENDIF

i_return_value =                                 @

   xy_axis_assign_method_set                     @

      (  s_axis_name,                            @

         s_method )

dump i_return_value

dump s_method

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

#  Reset the value.

s_method       = ""

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

#  Get the labels assignment method.

i_return_value =                                 @

   xy_axis_assign_method_get                     @

      (  s_axis_name,                            @

         s_method )

dump i_return_value

dump s_method

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


xy_axis_assign_method_set	()

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

#                      function xy_axis_assign_method_set()

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

#                      creates a window. Later it gets the labels

#                      assignment method. Finally it changes the

#                      assignment method 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 xy_axis_assign_method_set()

#  has the following arguments:

#  xy_axis_assign_method_set

#     (  axis_name,

#        method )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

STRING   s_method[20]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "X1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the labels assignment method.

i_return_value =                                 @

   xy_axis_assign_method_get                     @

      (  s_axis_name,                            @

         s_method )

dump i_return_value

dump s_method

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

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

sf_pause()

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

#  Set the labels assignment method.

IF( s_method == "semiauto" ) THEN

   s_method    = "automatic"

ElSE

   s_method    = "semiauto"

ENDIF

i_return_value =                                 @

   xy_axis_assign_method_set                     @

      (  s_axis_name,                            @

         s_method )

dump i_return_value

dump s_method

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

#  Reset the value.

s_method       = ""

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

#  Get the labels assignment method.

i_return_value =                                 @

   xy_axis_assign_method_get                     @

      (  s_axis_name,                            @

         s_method )

dump i_return_value

dump s_method

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


xy_axis_color_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function xy_axis_color_get()

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

#                      creates a window. Later it gets the color

#                      of the x axis. Finally it sets the color

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

#  has the following arguments:

#  xy_axis_color_get

#     (  axis_name,

#        color_index )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

INTEGER  i_color_index

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "X1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the axis color.

i_return_value =                                 @

   xy_axis_color_get                             @

      (  s_axis_name,                            @

         i_color_index )

dump i_return_value

dump i_color_index

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

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

sf_pause()

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

#  Set the axis color.

IF( i_color_index == 2 ) THEN

   i_color_index = 3

ELSE

   i_color_index = 2

ENDIF

i_return_value   =                               @

   xy_axis_color_set                             @

      (  s_axis_name,                            @

         i_color_index )

dump i_return_value

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

#  Reset the value.

i_color_index    = 0

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

#  Get the axis color.

i_return_value =                                 @

   xy_axis_color_get                             @

      (  s_axis_name,                            @

         i_color_index )

dump i_return_value

dump i_color_index

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


xy_axis_color_set	()

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

#                      function xy_axis_color_set()

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

#                      creates a window. Later it gets the color

#                      of the x axis. Finally it sets the color

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

#  has the following arguments:

#  xy_axis_color_set

#     (  axis_name,

#        color_index )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

INTEGER  i_color_index

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "X1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the axis color.

i_return_value =                                 @

   xy_axis_color_get                             @

      (  s_axis_name,                            @

         i_color_index )

dump i_return_value

dump i_color_index

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

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

sf_pause()

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

#  Set the axis color.

IF( i_color_index == 2 ) THEN

   i_color_index  = 3

ELSE

   i_color_index  = 2

ENDIF

i_return_value    =                              @

   xy_axis_color_set                             @

      (  s_axis_name,                            @

         i_color_index )

dump i_return_value

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

#  Reset the value.

i_color_index     = 0

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

#  Get the axis color.

i_return_value    =                              @

   xy_axis_color_get                             @

      (  s_axis_name,                            @

         i_color_index )

dump i_return_value

dump i_color_index

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


xy_axis_display_labels_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function xy_axis_display_labels_get()

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

#                      creates a window. Later it gets the display

#                      label flag. Finally it changes the display

#                      flag 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 xy_axis_display_labels_get()

#  has the following arguments:

#  xy_axis_display_labels_get

#     (  axis_name,

#        label_flag )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

LOGICAL  l_label_flag_c

STRING   s_axis_name[32]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Get the display label flag.

s_axis_name    = "X1"

i_return_value =                                 @

   xy_axis_display_labels_get                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

dump l_label_flag

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

#  Session file paused press ’Resume’ to continue

sf_pause()

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

#  Set the display label flags.

IF( l_label_flag = TRUE ) THEN

   l_label_flag = FALSE

ELSE

   l_label_flag = TRUE

ENDIF

i_return_value  =                                @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

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

#  Reset the value

l_label_flag    = TRUE

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

#  Get the display label flag.

i_return_value  =                                @

   xy_axis_display_labels_get                    @

      (  s_axis_name,                            @

         l_label_flag_c )

dump i_return_value

dump l_label_flag_c

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


xy_axis_display_labels_set	()

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

#                      function xy_axis_display_labels_set()

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

#                      creates a window. Later it gets the display

#                      label flag. Finally it changes the display

#                      flag 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 xy_axis_display_labels_set()

#  has the following arguments:

#  xy_axis_display_labels_set

#     (  axis_name,

#        label_flag )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

LOGICAL  l_label_flag_c

STRING   s_axis_name[32]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Get the display label flag.

s_axis_name    = "X1"

i_return_value =                                 @

   xy_axis_display_labels_get                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

dump l_label_flag

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

#  Session file paused press ’Resume’ to continue

sf_pause()

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

#  Set the display label flags.

IF( l_label_flag = TRUE ) THEN

   l_label_flag = FALSE

ELSE

   l_label_flag = TRUE

ENDIF

i_return_value  =                                @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

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

#  Reset the value

l_label_flag_c  = TRUE

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

#  Get the display label flag.

i_return_value  =                                @

   xy_axis_display_labels_get                    @

      (  s_axis_name,                            @

         l_label_flag_c )

dump i_return_value

dump l_label_flag_c

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


xy_axis_display_title_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function xy_axis_display_title_get()

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

#                      creates a window. Later  it gets the title

#                      display flag. Finally it sets the title

#                      display flag 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 xy_axis_display_title_get()

#  has the following arguments:

#  xy_axis_display_title_get

#     (  axis_name,

#        title_flag )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

LOGICAL  l_title_flag

LOGICAL  l_title_flag_c

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "X1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the display title flag.

i_return_value =                                 @

   xy_axis_display_title_get                     @

      (  s_axis_name,                            @

         l_title_flag )

dump i_return_value

dump l_title_flag

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

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

sf_pause()

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

#  Set the display title flag.

IF( l_title_flag == TRUE ) THEN

   l_title_flag = FALSE

ELSE

   l_title_flag = TRUE

ENDIF

i_return_value  =                                @

   xy_axis_display_title_set                     @

      (  s_axis_name,                            @

         l_title_flag )

dump i_return_value

#  Get the display title flag.

i_return_value  =                                @

   xy_axis_display_title_get                     @

      (  s_axis_name,                            @

         l_title_flag_c )

dump i_return_value

dump l_title_flag_c

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


xy_axis_display_title_set	()

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

#                      function xy_axis_display_title_set()

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

#                      creates a window. Later  it gets the title

#                      display flag. Finally it sets the title

#                      display flag 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 xy_axis_display_title_set()

#  has the following arguments:

#  xy_axis_display_title_set

#     (  axis_name,

#        title_flag )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

LOGICAL  l_title_flag

LOGICAL  l_title_flag_c

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "X1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the display title flag.

i_return_value =                                 @

   xy_axis_display_title_get                     @

      (  s_axis_name,                            @

         l_title_flag )

dump i_return_value

dump l_title_flag

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

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

sf_pause()

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

#  Set the display title flag.

IF( l_title_flag == TRUE ) THEN

   l_title_flag = FALSE

ELSE

   l_title_flag = TRUE

ENDIF

i_return_value  =                                @

   xy_axis_display_title_set                     @

      (  s_axis_name,                            @

         l_title_flag )

dump i_return_value

#  Get the display title flag.

i_return_value  =                                @

   xy_axis_display_title_get                     @

      (  s_axis_name,                            @

         l_title_flag_c )

dump i_return_value

dump l_title_flag_c

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


xy_axis_grid_display_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function xy_axis_grid_display_get()

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

#                      creates a window. Later it gets the grid

#                      display type. Finally it sets the grid display

#                      type 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 xy_axis_grid_display_get()

#  has the following arguments:

#  xy_axis_grid_display_get

#     (  axis_name,

#        grid_type )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

STRING   s_axis_name[32]

STRING   s_grid_type[32]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Get the grid display type.

s_axis_name    = "X1"

i_return_value =                                 @

   xy_axis_grid_display_get                      @

      (  s_axis_name,                            @

         s_grid_type )

dump i_return_value

dump s_grid_type

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

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

sf_pause()

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

#  Set the grid display type.

IF( s_grid_type == "None" ) THEN

   s_grid_type = "primarysecondary"

ELSE

   s_grid_type = "None"

ENDIF

i_return_value =                                 @

   xy_axis_grid_display_set                      @

      (  s_axis_name,                            @

         s_grid_type )

dump i_return_value

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

#  Reset the value

s_grid_type    = ""

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

#  Get the grid display type.

i_return_value =                                 @

   xy_axis_grid_display_get                      @

      (  s_axis_name,                            @

         s_grid_type )

dump i_return_value

dump s_grid_type

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


xy_axis_grid_display_set	()

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

#                      function xy_axis_grid_display_set()

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

#                      creates a window. Later it gets the grid

#                      display type. Finally it sets the grid display

#                      type 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 xy_axis_grid_display_set()

#  has the following arguments:

#  xy_axis_grid_display_set

#     (  axis_name,

#        grid_type )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

STRING   s_axis_name[32]

STRING   s_grid_type[32]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Get the grid display type.

s_axis_name    = "X1"

i_return_value =                                 @

   xy_axis_grid_display_get                      @

      (  s_axis_name,                            @

         s_grid_type )

dump i_return_value

dump s_grid_type

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

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

sf_pause()

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

#  Set the grid display type.

IF( s_grid_type == "None" ) THEN

   s_grid_type = "primarysecondary"

ELSE

   s_grid_type = "None"

ENDIF

i_return_value =                                 @

   xy_axis_grid_display_set                      @

      (  s_axis_name,                            @

         s_grid_type )

dump i_return_value

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

#  Reset the value

s_grid_type    = ""

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

#  Get the grid display type.

i_return_value =                                 @

   xy_axis_grid_display_get                      @

      (  s_axis_name,                            @

         s_grid_type )

dump i_return_value

dump s_grid_type

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


xy_axis_grid_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function xy_axis_grid_get()

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

#                      creates a window. Later it gets the gridline

#                      attributes. Finally it sets the gridline

#                      attributes 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 xy_axis_grid_get()

#  has the following arguments:

#  xy_axis_grid_get

#     (  axis_name,

#        prim_sec,

#        curvestyle,

#        thickness,

#        color_index )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

STRING   s_axis_name[32]

STRING   s_prim_sec[32]

STRING   s_grid_type[32]

STRING   s_curvestyle[32]

INTEGER  i_thickness

INTEGER  i_color_index

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the grid display type.

s_axis_name    = "X1"

s_grid_type    = "PrimarySecondary"

i_return_value =                                 @

   xy_axis_grid_display_set                      @

      (  s_axis_name,                            @

         s_grid_type )

dump i_return_value

#  Get the grid line attributes.

s_prim_sec = "primary"

i_return_value =                                 @

   xy_axis_grid_get                              @

      (  s_axis_name,                            @

         s_prim_sec,                             @

         s_curvestyle,                           @

         i_thickness,                            @

         i_color_index )

dump i_return_value

dump s_curvestyle

dump i_thickness

dump i_color_index

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

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

sf_pause()

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

#  Set the grid line attributes.

IF ( s_curvestyle == "Dotted" ) THEN

   s_curvestyle  = "Solid"

ELSE

   s_curvestyle  = "Dotted"

ENDIF

IF ( i_thickness == 6 ) THEN

   i_thickness   = 2

ELSE

   i_thickness   = 6

ENDIF

IF ( i_color_index == 2 ) THEN

   i_color_index =  3

ELSE

   i_color_index =  2

ENDIF

i_return_value   =                               @

   xy_axis_grid_set                              @

      (  s_axis_name,                            @

         s_prim_sec,                             @

         s_curvestyle,                           @

         i_thickness,                            @

         i_color_index )

dump i_return_value

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

#  Reset the value.

s_curvestyle    = ""

i_thickness     = 0

i_color_index   = 0

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

#  Get the grid line attributes.

i_return_value =                                 @

   xy_axis_grid_get                              @

      (  s_axis_name,                            @

         s_prim_sec,                             @

         s_curvestyle,                           @

         i_thickness,                            @

         i_color_index )

dump i_return_value

dump s_curvestyle

dump i_thickness

dump i_color_index

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


xy_axis_grid_set	()

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

#                      function xy_axis_grid_set()

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

#                      creates a window. Later it gets the gridline

#                      attributes. Finally it sets the gridline

#                      attributes 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 xy_axis_grid_set()

#  has the following arguments:

#  xy_axis_grid_set

#     (  axis_name,

#        prim_sec,

#        curvestyle,

#        thickness,

#        color_index )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

STRING   s_axis_name[32]

STRING   s_prim_sec[32]

STRING   s_grid_type[32]

STRING   s_curvestyle[32]

INTEGER  i_thickness

INTEGER  i_color_index

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the grid display type.

s_axis_name    = "X1"

s_grid_type    = "PrimarySecondary"

i_return_value =                                 @

   xy_axis_grid_display_set                      @

      (  s_axis_name,                            @

         s_grid_type )

dump i_return_value

#  Get the grid line attributes.

s_prim_sec = "primary"

i_return_value =                                 @

   xy_axis_grid_get                              @

      (  s_axis_name,                            @

         s_prim_sec,                             @

         s_curvestyle,                           @

         i_thickness,                            @

         i_color_index )

dump i_return_value

dump s_curvestyle

dump i_thickness

dump i_color_index

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

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

sf_pause()

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

#  Set the grid line attributes.

IF ( s_curvestyle == "Dotted" ) THEN

   s_curvestyle  = "Solid"

ELSE

   s_curvestyle  = "Dotted"

ENDIF

IF ( i_thickness == 6 ) THEN

   i_thickness   = 2

ELSE

   i_thickness   = 6

ENDIF

IF ( i_color_index == 2 ) THEN

   i_color_index =  3

ELSE

   i_color_index =  2

ENDIF

i_return_value   =                               @

   xy_axis_grid_set                              @

      (  s_axis_name,                            @

         s_prim_sec,                             @

         s_curvestyle,                           @

         i_thickness,                            @

         i_color_index )

dump i_return_value

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

#  Reset the value.

s_curvestyle    = ""

i_thickness     = 0

i_color_index   = 0

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

#  Get the grid line attributes.

i_return_value =                                 @

   xy_axis_grid_get                              @

      (  s_axis_name,                            @

         s_prim_sec,                             @

         s_curvestyle,                           @

         i_thickness,                            @

         i_color_index )

dump i_return_value

dump s_curvestyle

dump i_thickness

dump i_color_index

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


xy_axis_label_color_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function xy_axis_label_color_get()

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

#                      creates a window. Later it gets the color

#                      of the label for a specified axis. Finally

#                      it sets the color of the label 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 xy_axis_label_color_get()

#  has the following arguments:

#  xy_axis_label_color_get

#     (  axis_name,

#        label_color )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

INTEGER  i_label_color

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "X1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the label color.

i_return_value =                                 @

   xy_axis_label_color_get                       @

      (  s_axis_name,                            @

         i_label_color )

dump i_return_value

dump i_label_color

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

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

sf_pause()

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

#  Set the label color.

IF ( i_label_color == 7 )THEN

   i_label_color   = 3

ELSE

   i_label_color   = 2

ENDIF

i_return_value     =                             @

   xy_axis_label_color_set                       @

      (  s_axis_name,                            @

         i_label_color )

dump i_return_value

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

#  Reset the value.

i_label_color       = 0

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

#  Get the label color.

i_return_value      =                            @

   xy_axis_label_color_get                       @

      (  s_axis_name,                            @

         i_label_color )

dump i_return_value

dump i_label_color

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


xy_axis_label_color_set	()

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

#                      function xy_axis_label_color_set()

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

#                      creates a window. Later it gets the color

#                      of the label for a specified axis. Finally

#                      it sets the color of the label 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 xy_axis_label_color_set()

#  has the following arguments:

#  xy_axis_label_color_set

#     (  axis_name,

#        label_color )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

INTEGER  i_label_color

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "X1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the label color.

i_return_value =                                 @

   xy_axis_label_color_get                       @

      (  s_axis_name,                            @

         i_label_color )

dump i_return_value

dump i_label_color

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

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

sf_pause()

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

#  Set the label color.

IF ( i_label_color == 2 )THEN

   i_label_color   = 3

ELSE

   i_label_color   = 2

ENDIF

i_return_value     =                             @

   xy_axis_label_color_set                       @

      (  s_axis_name,                            @

         i_label_color )

dump i_return_value

#  Reset the value.

i_label_color      = 0

#  Get the label color.

i_return_value     =                             @

   xy_axis_label_color_get                       @

      (  s_axis_name,                            @

         i_label_color )

dump i_return_value

dump i_label_color

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


xy_axis_label_format_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function xy_axis_label_format_get()

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

#                      creates a window. Later it gets the label

#                      format for a specified axis. Finally it sets

#                      the label format 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 xy_axis_label_format_get()

#  has the following arguments:

#  xy_axis_label_format_get

#     (  axis_name,

#        label_format )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

STRING   s_label_format[32]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "Y1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the label format.

i_return_value =                                 @

   xy_axis_label_format_get                      @

      (  s_axis_name,                            @

         s_label_format )

dump i_return_value

dump s_label_format

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

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

sf_pause()

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

#  Set the label format.

IF ( s_label_format == "fixed" ) THEN

   s_label_format   = "exponential"

ELSE

   s_label_format   = "fixed"

ENDIF

i_return_value      =                            @

   xy_axis_label_format_set                      @

      (  s_axis_name,                            @

         s_label_format )

dump i_return_value

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

#  Reset the value.

s_label_format      = ""

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

#  Get the label format.

i_return_value      =                            @

   xy_axis_label_format_get                      @

      (  s_axis_name,                            @

         s_label_format )

dump i_return_value

dump s_label_format

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


xy_axis_label_format_set	()

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

#                      function xy_axis_label_format_set()

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

#                      creates a window. Later it gets the label

#                      format for a specified axis. Finally it sets

#                      the label format 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 xy_axis_label_format_set()

#  has the following arguments:

#  xy_axis_label_format_set

#     (  axis_name,

#        label_format )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

STRING   s_label_format[32]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "Y1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the label format.

i_return_value =                                 @

   xy_axis_label_format_get                      @

      (  s_axis_name,                            @

         s_label_format )

dump i_return_value

dump s_label_format

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

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

sf_pause()

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

#  Set the label format.

IF ( s_label_format == "fixed" ) THEN

   s_label_format   = "exponential"

ELSE

   s_label_format   = "fixed"

ENDIF

i_return_value      =                            @

   xy_axis_label_format_set                      @

      (  s_axis_name,                            @

         s_label_format )

dump i_return_value

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

#  Reset the value.

s_label_format      = ""

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

#  Get the label format.

i_return_value      =                            @

   xy_axis_label_format_get                      @

      (  s_axis_name,                            @

         s_label_format )

dump i_return_value

dump s_label_format

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


xy_axis_label_type_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function xy_axis_label_type_get()

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

#                      creates a window. Later it gets the axis label

#                      type. Finally it changes the axis label type

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

#  has the following arguments:

#  xy_axis_label_type_get

#     (  axis_name,

#        label_type )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

STRING   s_label_type[32]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "X1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the label type.

i_return_value =                                 @

   xy_axis_label_type_get                        @

      (  s_axis_name,                            @

         s_label_type )

dump i_return_value

dump s_label_type

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

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

sf_pause()

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

#  Set the label type.

IF ( s_label_type == "linear" ) THEN

   s_label_type   = "logarithmic"

ELSE

   s_label_type   = "linear"

ENDIF

i_return_value    =                              @

   xy_axis_label_type_set                        @

      (  s_axis_name,                            @

         s_label_type )

dump i_return_value

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

#  Reset the value.

s_label_type      = ""

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

#  Get the label type.

i_return_value    =                              @

   xy_axis_label_type_get                        @

      (  s_axis_name,                            @

         s_label_type )

dump i_return_value

dump s_label_type

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


xy_axis_label_type_set	()

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

#                      function xy_axis_label_type_set()

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

#                      creates a window. Later it gets the axis label

#                      type. Finally it changes the axis label type

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

#  has the following arguments:

#  xy_axis_label_type_set

#     (  axis_name,

#        label_type )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

STRING   s_label_type[32]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "X1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the label type.

i_return_value =                                 @

   xy_axis_label_type_get                        @

      (  s_axis_name,                            @

         s_label_type )

dump i_return_value

dump s_label_type

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

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

sf_pause()

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

#  Set the label type.

IF ( s_label_type == "linear" ) THEN

   s_label_type   = "logarithmic"

ELSE

   s_label_type   = "linear"

ENDIF

i_return_value    =                              @

   xy_axis_label_type_set                        @

      (  s_axis_name,                            @

         s_label_type )

dump i_return_value

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

#  Reset the value.

s_label_type      = ""

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

#  Get the label type.

i_return_value    =                              @

   xy_axis_label_type_get                        @

      (  s_axis_name,                            @

         s_label_type )

dump i_return_value

dump s_label_type

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


xy_axis_labels_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function xy_axis_labels_get()

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

#                      creates a window. Later it sets the labels

#                      assignment method to "range" and gets the

#                      labels. Finally it sets the labels 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 xy_axis_labels_get()

#  has the following arguments:

#  xy_axis_labels_get

#     (  axis_name,

#        labels )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_method[32]

STRING   s_axis_name[32]

REAL     ra_labels(2)

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "X1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Set the labels assignment method.

s_method       = "range"

i_return_value =                                 @

   xy_axis_assign_method_set                     @

      (  s_axis_name,                            @

         s_method )

dump i_return_value

#  Get the labels for the X axis.

i_return_value =                                 @

   xy_axis_labels_get                            @

      (  s_axis_name,                            @

         ra_labels )

dump i_return_value

dump ra_labels

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

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

sf_pause()

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

#  Set the labels for the X axis.

ra_labels(1)      = 1.0

IF ( ra_labels(2) == 10.0 ) THEN

   ra_labels(2)   = 20.0

ELSE

   ra_labels(2)   = 10.0

ENDIF

i_return_value    =                              @

   xy_axis_labels_set                            @

      (  s_axis_name,                            @

         ra_labels )

dump i_return_value

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

#  Reset the Values.

ra_labels(1)      = 0.0

ra_labels(2)      = 0.0

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

#  Get the labels for the X axis.

i_return_value    =                              @

   xy_axis_labels_get                            @

      (  s_axis_name,                            @

         ra_labels )

dump i_return_value

dump ra_labels

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


xy_axis_labels_get_count	()

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

#                      the function xy_axis_labels_get_count()

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

#                      creates a window. Later it sets the labels

#                      assignment method to "range" and gets the

#                      number of labels defined. Finally it sets the

#                      label assignment method to "manual" and gets

#                      the number of defined labels 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 xy_axis_labels_get_count()

#  has the following arguments:

#  xy_axis_labels_get_count

#     (  axis_name,

#        nlabels )

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

#  Variable Declarations

STRING   s_axis_name[32]

INTEGER  i_nlabels

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Set the display label flags to TRUE

s_axis_name    = "X1"

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name, TRUE )

dump i_return_value

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

#  Set the labels assignment method

i_return_value =                                 @

   xy_axis_assign_method_set                     @

      (  s_axis_name, "range" )

dump i_return_value

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

#   Get the number of labels defined for the X axis

i_return_value =                                 @

   xy_axis_labels_get_count                      @

      (  s_axis_name,                            @

         i_nlabels )

dump i_return_value

dump i_nlabels

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

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

sf_pause()

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

#  Set the labels assignment method

i_return_value =                                 @

   xy_axis_assign_method_set                     @

      (  s_axis_name, "manual" )

dump i_return_value

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

#  Reset the value.

i_nlabels = 0

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

#   Get the number of labels defined for the X axis

i_return_value =                                 @

   xy_axis_labels_get_count                      @

      (  s_axis_name,                            @

         i_nlabels )

dump i_return_value

dump i_nlabels

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


xy_axis_labels_set	()

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

#                      function xy_axis_labels_set()

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

#                      creates a window. Later it sets the labels

#                      assignment method to "range" and gets the

#                      labels. Finally it sets the labels 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 xy_axis_labels_set()

#  has the following arguments:

#  xy_axis_labels_set

#     (  axis_name,

#        labels )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_method[32]

STRING   s_axis_name[32]

REAL     ra_labels(2)

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "X1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Set the labels assignment method.

s_method       = "range"

i_return_value =                                 @

   xy_axis_assign_method_set                     @

      (  s_axis_name,                            @

         s_method )

dump i_return_value

#  Get the labels for the X axis.

i_return_value =                                 @

   xy_axis_labels_get                            @

      (  s_axis_name,                            @

         ra_labels )

dump i_return_value

dump ra_labels

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

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

sf_pause()

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

#  Set the labels for the X axis.

ra_labels(1)      = 1.0

IF ( ra_labels(2) == 10.0 ) THEN

   ra_labels(2)   = 20.0

ELSE

   ra_labels(2)   = 10.0

ENDIF

i_return_value    =                              @

   xy_axis_labels_set                            @

      (  s_axis_name,                            @

         ra_labels )

dump i_return_value

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

#  Reset the Values.

ra_labels(1)      = 0.0

ra_labels(2)      = 0.0

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

#  Get the labels for the X axis.

i_return_value    =                              @

   xy_axis_labels_get                            @

      (  s_axis_name,                            @

         ra_labels )

dump i_return_value

dump ra_labels

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


xy_axis_linestyle_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function xy_axis_linestyle_get()

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

#                      creates a window. Later it gets the axis

#                      curve style. Finally it changes the axis

#                      curve style 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 xy_axis_linestyle_get()

#  has the following arguments:

#  xy_axis_linestyle_get

#     (  axis_name,

#        curve_style )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

STRING   s_axis_name[32]

STRING   s_curve_style[30]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Get the axis curve style.

s_axis_name    = "X1"

i_return_value =                                 @

   xy_axis_linestyle_get                         @

      (  s_axis_name,                            @

         s_curve_style )

dump i_return_value

dump s_curve_style

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

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

sf_pause()

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

#  Set the axis curve style.

IF ( s_curve_style == "solid" ) THEN

   s_curve_style   = "dotted"

ELSE

   s_curve_style   = "solid"

ENDIF

i_return_value     =                             @

   xy_axis_linestyle_set                         @

      (  s_axis_name,                            @

         s_curve_style )

dump i_return_value

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

#  Reset the value.

s_curve_style = ""

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

#  Get the axis curve style.

i_return_value     =                             @

   xy_axis_linestyle_get                         @

      (  s_axis_name,                            @

         s_curve_style )

dump i_return_value

dump s_curve_style

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


xy_axis_linestyle_set	()

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

#                      function xy_axis_linestyle_set()

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

#                      creates a window. Later it gets the axis

#                      curve style. Finally it changes the axis

#                      curve style 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 xy_axis_linestyle_set()

#  has the following arguments:

#  xy_axis_linestyle_set

#     (  axis_name,

#        curve_style )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

STRING   s_axis_name[32]

STRING   s_curve_style[30]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Get the axis curve style.

s_axis_name    = "X1"

i_return_value =                                 @

   xy_axis_linestyle_get                         @

      (  s_axis_name,                            @

         s_curve_style )

dump i_return_value

dump s_curve_style

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

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

sf_pause()

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

#  Set the axis curve style.

IF ( s_curve_style == "solid" ) THEN

   s_curve_style   = "dotted"

ELSE

   s_curve_style   = "solid"

ENDIF

i_return_value     =                             @

   xy_axis_linestyle_set                         @

      (  s_axis_name,                            @

         s_curve_style )

dump i_return_value

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

#  Reset the value.

s_curve_style = ""

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

#  Get the axis curve style.

i_return_value     =                             @

   xy_axis_linestyle_get                         @

      (  s_axis_name,                            @

         s_curve_style )

dump i_return_value

dump s_curve_style

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


xy_axis_location_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function xy_axis_location_get()

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

#                      creates a window. Later it gets the display

#                      location of the axis. Finally it changes the

#                      display location of the axis 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 xy_axis_location_get()

#  has the following arguments:

#  xy_axis_location_get

#     (  axis_name,

#        display_location )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

STRING   s_axis_name[32]

STRING   s_display_location[16]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Get the location of the axis.

s_axis_name    = "X1"

i_return_value =                                 @

   xy_axis_location_get                          @

      (  s_axis_name,                            @

         s_display_location )

dump i_return_value

dump s_display_location

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

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

sf_pause()

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

#  Set the location of the axis.

IF( s_display_location == "bottom" ) THEN

   s_display_location  = "topbottom"

ELSE

   s_display_location  = "bottom"

ENDIF

i_return_value         =                         @

   xy_axis_location_set                          @

      (  s_axis_name,                            @

         s_display_location )

dump i_return_value

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

#  Reset the value.

s_display_location     = ""

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

#  Get the location of the axis.

i_return_value         =                         @

   xy_axis_location_get                          @

      (  s_axis_name,                            @

         s_display_location )

dump i_return_value

dump s_display_location

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


xy_axis_location_set	()

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

#                      function xy_axis_location_set()

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

#                      creates a window. Later it gets the display

#                      location of the axis. Finally it changes the

#                      display location of the axis 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 xy_axis_location_set()

#  has the following arguments:

#  xy_axis_location_set

#     (  axis_name,

#        display_location )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

STRING   s_axis_name[32]

STRING   s_display_location[16]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Get the location of the axis.

s_axis_name    = "X1"

i_return_value =                                 @

   xy_axis_location_get                          @

      (  s_axis_name,                            @

         s_display_location )

dump i_return_value

dump s_display_location

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

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

sf_pause()

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

#  Set the location of the axis.

IF( s_display_location == "bottom" ) THEN

   s_display_location  = "topbottom"

ELSE

   s_display_location  = "bottom"

ENDIF

i_return_value         =                         @

   xy_axis_location_set                          @

      (  s_axis_name,                            @

         s_display_location )

dump i_return_value

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

#  Reset the value.

s_display_location     = ""

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

#  Get the location of the axis.

i_return_value         =                         @

   xy_axis_location_get                          @

      (  s_axis_name,                            @

         s_display_location )

dump i_return_value

dump s_display_location

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


xy_axis_nvalues_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function xy_axis_nvalues_get()

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

#                      creates a window. Later it gets the number

#                      of values for the specified axis. Finally

#                      it sets the number of values 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 xy_axis_nvalues_get()

#  has the following arguments:

#  xy_axis_nvalues_get

#     (  axis_name,

#        num_vals )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

INTEGER  i_num_vals

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "Y1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the number of values for the specified axis.

i_return_value =                                 @

   xy_axis_nvalues_get                           @

      (  s_axis_name,                            @

         i_num_vals )

dump i_return_value

dump i_num_vals

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

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

sf_pause()

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

#  Set the number of values for the specified axis.

IF ( i_num_vals == 7 ) THEN

   i_num_vals   = 12

ELSE

   i_num_vals   = 7

ENDIF

i_return_value  =                                @

   xy_axis_nvalues_set                           @

      (  s_axis_name,                            @

         i_num_vals )

dump i_return_value

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

# Reset the value.

i_num_vals      = 0

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

#  Get the number of values for the specified axis.

i_return_value  =                                @

   xy_axis_nvalues_get                           @

      (  s_axis_name,                            @

         i_num_vals )

dump i_return_value

dump i_num_vals

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


xy_axis_nvalues_set	()

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

#                      function xy_axis_nvalues_set()

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

#                      creates a window. Later it gets the number

#                      of values for the specified axis. Finally

#                      it sets the number of values 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 xy_axis_nvalues_set()

#  has the following arguments:

#  xy_axis_nvalues_set

#     (  axis_name,

#        num_vals )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

INTEGER  i_num_vals

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "Y1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the number of values for the specified axis.

i_return_value =                                 @

   xy_axis_nvalues_get                           @

      (  s_axis_name,                            @

         i_num_vals )

dump i_return_value

dump i_num_vals

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

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

sf_pause()

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

#  Set the number of values for the specified axis.

IF ( i_num_vals == 7 ) THEN

   i_num_vals   = 12

ELSE

   i_num_vals   = 7

ENDIF

i_return_value  =                                @

   xy_axis_nvalues_set                           @

      (  s_axis_name,                            @

         i_num_vals )

dump i_return_value

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

# Reset the value.

i_num_vals      = 0

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

#  Get the number of values for the specified axis.

i_return_value  =                                @

   xy_axis_nvalues_get                           @

      (  s_axis_name,                            @

         i_num_vals )

dump i_return_value

dump i_num_vals

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


xy_axis_sig_digits_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function xy_axis_sig_digits_get()

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

#                      creates a window. Later it gets the number of

#                      significant digits. Finally it sets the number

#                      of significant digits 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 xy_axis_sig_digits_get()

#  has the following arguments:

#  xy_axis_sig_digits_get

#     (  axis_name,

#        sig_digits )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

INTEGER  i_sig_digits

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "Y1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the number of significant digits.

i_return_value =                                 @

   xy_axis_sig_digits_get                        @

      (  s_axis_name,                            @

         i_sig_digits )

dump i_return_value

dump i_sig_digits

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

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

sf_pause()

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

#  Set the number of significant digits.

IF ( i_sig_digits == 3 ) THEN

   i_sig_digits   = 5

ELSE

   i_sig_digits   = 3

ENDIF

i_return_value    =                              @

   xy_axis_sig_digits_set                        @

      (  s_axis_name,                            @

         i_sig_digits )

dump i_return_value

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

#  Reset the value

i_sig_digits      = 0

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

#  Get the number of significant digits.

i_return_value    =                              @

   xy_axis_sig_digits_get                        @

      (  s_axis_name,                            @

         i_sig_digits )

dump i_return_value

dump i_sig_digits

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


xy_axis_sig_digits_set	()

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

#                      function xy_axis_sig_digits_set()

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

#                      creates a window. Later it gets the number of

#                      significant digits. Finally it sets the number

#                      of significant digits 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 xy_axis_sig_digits_set()

#  has the following arguments:

#  xy_axis_sig_digits_set

#     (  axis_name,

#        sig_digits )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

INTEGER  i_sig_digits

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "Y1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the number of significant digits.

i_return_value =                                 @

   xy_axis_sig_digits_get                        @

      (  s_axis_name,                            @

         i_sig_digits )

dump i_return_value

dump i_sig_digits

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

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

sf_pause()

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

#  Set the number of significant digits.

IF ( i_sig_digits == 3 ) THEN

   i_sig_digits   = 5

ELSE

   i_sig_digits   = 3

ENDIF

i_return_value    =                              @

   xy_axis_sig_digits_set                        @

      (  s_axis_name,                            @

         i_sig_digits )

dump i_return_value

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

#  Reset the value

i_sig_digits      = 0

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

#  Get the number of significant digits.

i_return_value    =                              @

   xy_axis_sig_digits_get                        @

      (  s_axis_name,                            @

         i_sig_digits )

dump i_return_value

dump i_sig_digits

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


xy_axis_thickness_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function xy_axis_thickness_get()

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

#                      creates a window. Later it gets the axis

#                      thickness. Finally it sets the axis thickness

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

#  has the following arguments:

#  xy_axis_thickness_get

#     (  axis_name,

#        thickness )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

STRING   s_axis_name[32]

INTEGER  i_thickness

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Get the axis thickness.

s_axis_name    = "X1"

i_return_value =                                 @

   xy_axis_thickness_get                         @

      (  s_axis_name,                            @

         i_thickness )

dump i_return_value

dump i_thickness

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

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

sf_pause()

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

#  Set the axis thickness.

IF ( i_thickness == 1 ) THEN

   i_thickness   = 5

ELSE

   i_thickness   = 1

ENDIF

i_return_value   =                               @

   xy_axis_thickness_set                         @

      (  s_axis_name,                            @

         i_thickness )

dump i_return_value

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

#  Reset the value.

i_thickness      = 0

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

#  Get the axis thickness.

i_return_value  =                                @

   xy_axis_thickness_get                         @

      (  s_axis_name,                            @

         i_thickness )

dump i_return_value

dump i_thickness

#---------------------------------------------------------------------e


xy_axis_thickness_set	()

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

#                      function xy_axis_thickness_set()

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

#                      creates a window. Later it gets the axis

#                      thickness. Finally it sets the axis thickness

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

#  has the following arguments:

#  xy_axis_thickness_set

#     (  axis_name,

#        thickness )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

STRING   s_axis_name[32]

INTEGER  i_thickness

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Get the axis thickness.

s_axis_name    = "X1"

i_return_value =                                 @

   xy_axis_thickness_get                         @

      (  s_axis_name,                            @

         i_thickness )

dump i_return_value

dump i_thickness

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

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

sf_pause()

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

#  Set the axis thickness.

IF ( i_thickness == 1 ) THEN

   i_thickness   = 5

ELSE

   i_thickness   = 1

ENDIF

i_return_value   =                               @

   xy_axis_thickness_set                         @

      (  s_axis_name,                            @

         i_thickness )

dump i_return_value

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

#  Reset the value.

i_thickness      = 0

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

#  Get the axis thickness.

i_return_value   =                               @

   xy_axis_thickness_get                         @

      (  s_axis_name,                            @

         i_thickness )

dump i_return_value

dump i_thickness

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


xy_axis_tic_display_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function xy_axis_tic_display_get()

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

#                      creates a window. Later it gets the ticmark

#                      display type. Finally it changes the ticmark

#                      display and gets the type 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 xy_axis_tic_display_get()

#  has the following arguments:

#  xy_axis_tic_display_get

#     (  axis_name,

#        ticmark_type )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

STRING   s_ticmark_type[32]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "X1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the ticmark display type.

i_return_value =                                 @

   xy_axis_tic_display_get                       @

      (  s_axis_name,                            @

         s_ticmark_type )

dump i_return_value

dump s_ticmark_type

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

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

sf_pause()

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

#  Set the ticmark display type.

IF ( s_ticmark_type == "primary" ) THEN

   s_ticmark_type   = "primarysecondary"

ELSE

   s_ticmark_type   = "primary"

ENDIF

i_return_value      =                            @

   xy_axis_tic_display_set                       @

      (  s_axis_name,                            @

         s_ticmark_type )

dump i_return_value

dump s_ticmark_type

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

#  Reset the value.

s_ticmark_type      = ""

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

#  Get the ticmark display type.

i_return_value      =                            @

   xy_axis_tic_display_get                       @

      (  s_axis_name,                            @

         s_ticmark_type )

dump i_return_value

dump s_ticmark_type

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


xy_axis_tic_display_set	()

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

#                      function xy_axis_tic_display_set()

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

#                      creates a window. Later it gets the ticmark

#                      display type. Finally it changes the ticmark

#                      display and gets the type 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 xy_axis_tic_display_set()

#  has the following arguments:

#  xy_axis_tic_display_set

#     (  axis_name,

#        ticmark_type )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

STRING   s_ticmark_type[32]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "X1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the ticmark display type.

i_return_value =                                 @

   xy_axis_tic_display_get                       @

      (  s_axis_name,                            @

         s_ticmark_type )

dump i_return_value

dump s_ticmark_type

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

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

sf_pause()

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

#  Set the ticmark display type.

IF ( s_ticmark_type == "primary" ) THEN

   s_ticmark_type   = "primarysecondary"

ELSE

   s_ticmark_type   = "primary"

ENDIF

i_return_value      =                            @

   xy_axis_tic_display_set                       @

      (  s_axis_name,                            @

         s_ticmark_type )

dump i_return_value

dump s_ticmark_type

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

#  Reset the value.

s_ticmark_type      = ""

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

#  Get the ticmark display type.

i_return_value      =                            @

   xy_axis_tic_display_get                       @

      (  s_axis_name,                            @

         s_ticmark_type )

dump i_return_value

dump s_ticmark_type

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


xy_axis_tic_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function xy_axis_tic_get()

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

#                      creates a window. Later it gets the ticmark

#                      attributes. Finally it sets the ticmark

#                      attributes and gets them 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 xy_axis_tic_get()

#  has the following arguments:

#  xy_axis_tic_get

#     (  axis_name,

#        prim_sec,

#        location,

#        thickness,

#        color_index )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

STRING   s_prim_sec[32]

STRING   s_location[32]

INTEGER  i_thickness

INTEGER  i_color_index

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "X1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the ticmark attributes.

s_prim_sec     = "primary"

i_return_value =                                 @

   xy_axis_tic_get                               @

      (  s_axis_name,                            @

         s_prim_sec,                             @

         s_location,                             @

         i_thickness,                            @

         i_color_index )

dump i_return_value

dump s_location

dump i_thickness

dump i_color_index

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

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

sf_pause()

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

#  Set the ticmark attributes.

IF ( s_location  == "outside" ) THEN

   s_location    = "inside"

ELSE

   s_location    = "outside"

ENDIF

IF ( i_thickness == 5 ) THEN

   i_thickness   = 1

ELSE

   i_thickness   = 5

ENDIF

IF ( i_color_index == 2 ) THEN

   i_color_index = 1

ELSE

   i_color_index = 2

ENDIF

i_return_value   =                               @

   xy_axis_tic_set                               @

      (  s_axis_name,                            @

         s_prim_sec,                             @

         s_location,                             @

         i_thickness,                            @

         i_color_index )

dump i_return_value

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

#  Reset the value.

s_location       = ""

i_thickness      = 0

i_color_index    = 0

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

#  Get the ticmark attributes.

i_return_value   =                               @

   xy_axis_tic_get                               @

      (  s_axis_name,                            @

         s_prim_sec,                             @

         s_location,                             @

         i_thickness,                            @

         i_color_index )

dump i_return_value

dump s_location

dump i_thickness

dump i_color_index

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


xy_axis_tic_numsec_get	()

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

#                      function xy_axis_tic_numsec_get()

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

#                      creates a window. Later it gets the number

#                      of secondary ticmarks. Finally it sets the

#                      number of secondary ticmarks 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 xy_axis_tic_numsec_get()

#  has the following arguments:

#  xy_axis_tic_numsec_get

#     (  axis_name,

#        num )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

STRING   s_ticmark_type[32]

STRING   s_axis_name[32]

INTEGER  i_num

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the ticmark display type.

s_axis_name    = "X1"

s_ticmark_type = "secondary"

i_return_value =                                 @

   xy_axis_tic_display_set                       @

      (  s_axis_name,                            @

         s_ticmark_type )

dump i_return_value

#  Get the number of secondary ticmarks.

i_return_value =                                 @

   xy_axis_tic_numsec_get                        @

      (  s_axis_name,                            @

         i_num )

dump i_return_value

dump i_num

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

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

sf_pause()

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

#  Set the number of secondary ticmarks.

IF     ( i_num == 4 ) THEN

   i_num       = 12

ELSE

   i_num       = 4

ENDIF

i_return_value =                                 @

   xy_axis_tic_numsec_set                        @

      (  s_axis_name,                            @

         i_num )

dump i_return_value

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

#  Reset the value.

i_num          = 0

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

#  Get the number of secondary ticmarks.

i_return_value =                                 @

   xy_axis_tic_numsec_get                        @

      (  s_axis_name,                            @

         i_num )

dump i_return_value

dump i_num

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


xy_axis_tic_numsec_set	()

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

#                      function xy_axis_tic_numsec_set()

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

#                      creates a window. Later it gets the number

#                      of secondary ticmarks. Finally it sets the

#                      number of secondary ticmarks 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 xy_axis_tic_numsec_set()

#  has the following arguments:

#  xy_axis_tic_numsec_set

#     (  axis_name,

#        num )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

STRING   s_ticmark_type[32]

STRING   s_axis_name[32]

INTEGER  i_num

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the ticmark display type.

s_axis_name    = "X1"

s_ticmark_type = "secondary"

i_return_value =                                 @

   xy_axis_tic_display_set                       @

      (  s_axis_name,                            @

         s_ticmark_type )

dump i_return_value

#  Get the number of secondary ticmarks.

i_return_value =                                 @

   xy_axis_tic_numsec_get                        @

      (  s_axis_name,                            @

         i_num )

dump i_return_value

dump i_num

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

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

sf_pause()

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

#  Set the number of secondary ticmarks.

IF     ( i_num == 4 ) THEN

   i_num       = 12

ELSE

   i_num       = 4

ENDIF

i_return_value =                                 @

   xy_axis_tic_numsec_set                        @

      (  s_axis_name,                            @

         i_num )

dump i_return_value

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

#  Reset the value.

i_num          = 0

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

#  Get the number of secondary ticmarks.

i_return_value =                                 @

   xy_axis_tic_numsec_get                        @

      (  s_axis_name,                            @

         i_num )

dump i_return_value

dump i_num

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


xy_axis_tic_set	()

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

#                      function xy_axis_tic_set()

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

#                      creates a window. Later it gets the ticmark

#                      attributes. Finally it sets the ticmark

#                      attributes and gets them 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 xy_axis_tic_set()

#  has the following arguments:

#  xy_axis_tic_set

#     (  axis_name,

#        prim_sec,

#        location,

#        thickness,

#        color_index )

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

#  Variable Declarations

STRING   s_window_name[32]

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

INTEGER  i_nwindows

LOGICAL  l_label_flag

STRING   s_axis_name[32]

STRING   s_prim_sec[32]

STRING   s_location[32]

INTEGER  i_thickness

INTEGER  i_color_index

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a new window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display label flags.

s_axis_name    = "X1"

l_label_flag   = TRUE

i_return_value =                                 @

   xy_axis_display_labels_set                    @

      (  s_axis_name,                            @

         l_label_flag )

dump i_return_value

#  Get the ticmark attributes.

s_prim_sec     = "primary"

i_return_value =                                 @

   xy_axis_tic_get                               @

      (  s_axis_name,                            @

         s_prim_sec,                             @

         s_location,                             @

         i_thickness,                            @

         i_color_index )

dump i_return_value

dump s_location

dump i_thickness

dump i_color_index

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

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

sf_pause()

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

#  Set the ticmark attributes.

IF   ( s_location  == "outside" ) THEN

   s_location      = "inside"

ELSE

   s_location      = "outside"

ENDIF

IF ( i_thickness   == 4 ) THEN

   i_thickness     = 1

ELSE

   i_thickness     = 4

ENDIF

IF ( i_color_index == 2 ) THEN

   i_color_index   = 1

ELSE

   i_color_index   = 2

ENDIF

i_return_value     =                             @

   xy_axis_tic_set                               @

      (  s_axis_name,                            @

         s_prim_sec,                             @

         s_location,                             @

         i_thickness,                            @

         i_color_index )

dump i_return_value

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

#  Reset the value.

s_location         = ""

i_thickness        = 0

i_color_index      = 0

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

#  Get the ticmark attributes.

i_return_value     =                             @

   xy_axis_tic_get                               @

      (  s_axis_name,                            @

         s_prim_sec,                             @

         s_location,                             @

         i_thickness,                            @

         i_color_index )

dump i_return_value

dump s_location

dump i_thickness

dump i_color_index

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


xy_axis_title_get	()

#  Purpose          :  This file provides an example of two calls

#                      to the function xy_axis_title_get()

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

#                      creates a window. Later it gets the title

#                      attributes for a specified axis. finally it

#                      sets the title attributes 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 xy_axis_title_get()

#  has the following arguments:

#  xy_axis_title_get

#     (  axis_name,

#        title,

#        font_size,

#        title_color )

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

#  Variable Declarations

STRING   s_axis_name[32]

STRING   s_title[256]

INTEGER  i_font_size

INTEGER  i_title_color

INTEGER  i_return_value

STRING   s_window_name[32]

LOGICAL  l_axis_title_flag

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a xy window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display flag for axis title.

s_axis_name       = "X1"

l_axis_title_flag = TRUE

i_return_value    =                              @

   xy_axis_display_title_set                     @

      (  s_axis_name,                            @

         l_axis_title_flag )

dump i_return_value

#   Get the title attributes.

i_return_value    =                              @

   xy_axis_title_get                             @

      (  s_axis_name,                            @

         s_title,                                @

         i_font_size,                            @

         i_title_color )

dump i_return_value

dump s_title

dump i_font_size

dump i_title_color

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

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

sf_pause()

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

#   Set the title attributes.

s_title            = "Pressure"

IF   ( i_font_size == 8 ) THEN

   i_font_size     = 12

ELSE

   i_font_size     = 8

ENDIF

IF ( i_title_color == 7 ) THEN

   i_title_color   = 1

ELSE

   i_title_color   = 7

ENDIF

i_return_value     =                             @

   xy_axis_title_set                             @

      (  s_axis_name,                            @

         s_title,                                @

         i_font_size,                            @

         i_title_color )

dump i_return_value

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

#  Reset the value.

i_font_size        = 0

i_title_color      = 0

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

#   Get the title attributes.

i_return_value     =                             @

   xy_axis_title_get                             @

      (  s_axis_name,                            @

         s_title,                                @

         i_font_size,                            @

         i_title_color )

dump i_return_value

dump s_title

dump i_font_size

dump i_title_color

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


xy_axis_title_set	()

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

#                      function xy_axis_title_set()

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

#                      creates a window. Later it gets the title

#                      attributes for a specified axis. finally it

#                      sets the title attributes 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 xy_axis_title_set()

#  has the following arguments:

#  xy_axis_title_set

#     (  axis_name,

#        title,

#        font_size,

#        title_color )

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

#  Variable Declarations

STRING   s_axis_name[32]

STRING   s_title[256]

INTEGER  i_font_size

INTEGER  i_title_color

INTEGER  i_return_value

STRING   s_window_name[32]

LOGICAL  l_axis_title_flag

REAL     r_x_location

REAL     r_y_location

REAL     r_width

REAL     r_height

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a xy window.

s_window_name  = "XY_Window"

r_x_location   = 2.5

r_y_location   = 3.5

r_width        = 5.0

r_height       = 5.0

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name,                          @

         r_x_location,                           @

         r_y_location,                           @

         r_width,                                @

         r_height )

dump i_return_value

#  Set the display flag for axis title.

s_axis_name       = "X1"

l_axis_title_flag = TRUE

i_return_value    =                              @

   xy_axis_display_title_set                     @

      (  s_axis_name,                            @

         l_axis_title_flag )

dump i_return_value

#   Get the title attributes.

i_return_value    =                              @

   xy_axis_title_get                             @

      (  s_axis_name,                            @

         s_title,                                @

         i_font_size,                            @

         i_title_color )

dump i_return_value

dump s_title

dump i_font_size

dump i_title_color

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

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

sf_pause()

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

#   Set the title attributes.

s_title            = "Pressure"

IF   ( i_font_size == 8 ) THEN

   i_font_size     = 12

ELSE

   i_font_size     = 8

ENDIF

IF ( i_title_color == 7 ) THEN

   i_title_color   = 1

ELSE

   i_title_color   = 7

ENDIF

i_return_value     =                             @

   xy_axis_title_set                             @

      (  s_axis_name,                            @

         s_title,                                @

         i_font_size,                            @

         i_title_color )

dump i_return_value

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

#  Reset the value.

i_font_size       = 0

i_title_color     = 0

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

#   Get the title attributes.

i_return_value    =                              @

   xy_axis_title_get                             @

      (  s_axis_name,                            @

         s_title,                                @

         i_font_size,                            @

         i_title_color )

dump i_return_value

dump s_title

dump i_font_size

dump i_title_color

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


xy_curve_color_get	()

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

#                      the function xy_curve_color_get()

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

#                      creates a window and a curve in it. Later it

#                      gets the color of the curve. Finally it sets

#                      the color 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 xy_curve_color_get()

#  has the following arguments:

#  xy_curve_color_get

#     (  curve_name,

#        color_index )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_color_index

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_color_index  = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_color_index )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#  Get the curve color.

i_return_value =                                 @

   xy_curve_color_get                            @

      (  s_curve_name,                           @

         i_color_index )

dump i_return_value

dump i_color_index

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

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

sf_pause()

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

#  Set the curve color.

i_color_index = 2

i_return_value =                                 @

   xy_curve_color_set                            @

      (  s_curve_name,                           @

         i_color_index )

dump i_return_value

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

#  Reset the value.

i_color_index = 0

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

#  Get the curve color.

i_return_value =                                 @

   xy_curve_color_get                            @

      (  s_curve_name,                           @

         i_color_index )

dump i_return_value

dump i_color_index

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


xy_curve_color_set	()

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

#                      function xy_curve_color_set()

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

#                      creates a window and a curve in it. Later it

#                      gets the color of the curve. Finally it sets

#                      the color 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 xy_curve_color_set()

#  has the following arguments:

#  xy_curve_color_set

#     (  curve_name,

#        color_index )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_color_index

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_color_index  = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_color_index )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#  Get the curve color.

i_return_value =                                 @

   xy_curve_color_get                            @

      (  s_curve_name,                           @

         i_color_index )

dump i_return_value

dump i_color_index

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

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

sf_pause()

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

#  Set the curve color.

i_color_index = 2

i_return_value =                                 @

   xy_curve_color_set                            @

      (  s_curve_name,                           @

         i_color_index )

dump i_return_value

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

#  Reset the value.

i_color_index = 0

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

#  Get the curve color.

i_return_value =                                 @

   xy_curve_color_get                            @

      (  s_curve_name,                           @

         i_color_index )

dump i_return_value

dump i_color_index

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


xy_curve_display_symbol_get	()

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

#                      the function xy_curve_display_symbol_get()

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

#                      creates a window and a curve in it. Later it

#                      gets the display symbol flag for the curve.

#                      Finally it sets the display symbol flag 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 xy_curve_display_symbol_get()

#  has the following arguments:

#  xy_curve_display_symbol_get

#     (  curve_name,

#        symbol_flag )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

LOGICAL  l_symbol_flag

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#  Get the display symbol flag

i_return_value =                                 @

   xy_curve_display_symbol_get                   @

      (  s_curve_name,                           @

         l_symbol_flag )

dump i_return_value

dump l_symbol_flag

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

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

sf_pause()

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

#  Set the display symbol flag

IF( l_symbol_flag == TRUE ) THEN

   l_symbol_flag = FALSE

ELSE

   l_symbol_flag = TRUE

ENDIF

i_return_value =                                 @

   xy_curve_display_symbol_set                   @

      (  s_curve_name,                           @

         l_symbol_flag )

dump i_return_value

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

#  Get the display symbol flag

i_return_value =                                 @

   xy_curve_display_symbol_get                   @

      (  s_curve_name,                           @

         l_symbol_flag )

dump i_return_value

dump l_symbol_flag

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


xy_curve_display_symbol_set	()

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

#                      function xy_curve_display_symbol_set()

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

#                      creates a window and a curve in it. Later it

#                      gets the display symbol flag for the curve.

#                      Finally it sets the display symbol flag 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 xy_curve_display_symbol_set()

#  has the following arguments:

#  xy_curve_display_symbol_set

#     (  curve_name,

#        symbol_flag )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

LOGICAL  l_symbol_flag

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#  Get the display symbol flag

i_return_value =                                 @

   xy_curve_display_symbol_get                   @

      (  s_curve_name,                           @

         l_symbol_flag )

dump i_return_value

dump l_symbol_flag

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

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

sf_pause()

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

#  Set the display symbol flag

IF( l_symbol_flag == TRUE ) THEN

   l_symbol_flag = FALSE

ELSE

   l_symbol_flag = TRUE

ENDIF

i_return_value =                                 @

   xy_curve_display_symbol_set                   @

      (  s_curve_name,                           @

         l_symbol_flag )

dump i_return_value

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

#  Get the display symbol flag

i_return_value =                                 @

   xy_curve_display_symbol_get                   @

      (  s_curve_name,                           @

         l_symbol_flag )

dump i_return_value

dump l_symbol_flag

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


xy_curve_endpt_get	()

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

#                      the function xy_curve_endpt_get()

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

#                      creates a window and a curve in it. Later it

#                      gets the last data point to be displayed in the

#                      curve. Finally it sets the last data point to

#                      be displayed 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 xy_curve_endpt_get()

#  has the following arguments:

#  xy_curve_endpt_get

#     (  curve_name,

#        end_point )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

INTEGER  i_end_point

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#  Get the last data point to be displayed in the curve

i_return_value =                                 @

   xy_curve_endpt_get                            @

      (  s_curve_name,                           @

         i_end_point )

dump i_return_value

dump i_end_point

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

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

sf_pause()

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

#  Set the last data point to be displayed

IF ( i_end_point == 4 ) THEN

   i_end_point = 5

ELSE

   i_end_point = 4

ENDIF

i_return_value =                                 @

   xy_curve_endpt_set                            @

      (  s_curve_name,                           @

         i_end_point )

dump i_return_value

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

#  Reset the value.

i_end_point = 0

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

#  Get the last data point to be displayed

i_return_value =                                 @

   xy_curve_endpt_get                            @

      (  s_curve_name,                           @

         i_end_point )

dump i_return_value

dump i_end_point

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


xy_curve_endpt_set	()

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

#                      function xy_curve_endpt_set()

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

#                      creates a window and a curve in it. Later it

#                      gets the last data point to be displayed in the

#                      curve. Finally it sets the last data point to

#                      be displayed 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 xy_curve_endpt_set()

#  has the following arguments:

#  xy_curve_endpt_set

#     (  curve_name,

#        end_point )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

INTEGER  i_end_point

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#  Get the last data point to be displayed in the curve

i_return_value =                                 @

   xy_curve_endpt_get                            @

      (  s_curve_name,                           @

         i_end_point )

dump i_return_value

dump i_end_point

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

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

sf_pause()

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

#  Set the last data point to be displayed

IF ( i_end_point == 4 ) THEN

   i_end_point = 5

ELSE

   i_end_point = 4

ENDIF

i_return_value =                                 @

   xy_curve_endpt_set                            @

      (  s_curve_name,                           @

         i_end_point )

dump i_return_value

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

#  Reset the value.

i_end_point = 0

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

#  Get the last data point to be displayed

i_return_value =                                 @

   xy_curve_endpt_get                            @

      (  s_curve_name,                           @

         i_end_point )

dump i_return_value

dump i_end_point

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


xy_curve_freq_get	()

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

#                      the function xy_curve_freq_get()

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

#                      creates a window and a curve in it. Later it

#                      gets the frequency of data points for the curve

#                      Finally it sets the frequency 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 xy_curve_freq_get()

#  has the following arguments:

#  xy_curve_freq_get

#     (  curve_name,

#        frequency )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

INTEGER  i_frequency

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 6., 9., 5.]   )

dump i_return_value

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

#  Get the frequency of data points for the curve

i_return_value =                                 @

   xy_curve_freq_get                             @

      (  s_curve_name,                           @

         i_frequency )

dump i_return_value

dump i_frequency

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

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

sf_pause()

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

#  Set the frequency of data points

IF ( i_frequency == 2 ) THEN

   i_frequency = 1

ELSE

   i_frequency = 2

ENDIF

i_return_value =                                 @

   xy_curve_freq_set                             @

      (  s_curve_name,                           @

         i_frequency )

dump i_return_value

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

#  Reset the value.

i_frequency = 0

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

#  Get the frequency of data points

i_return_value =                                 @

   xy_curve_freq_get                             @

      (  s_curve_name,                           @

         i_frequency )

dump i_return_value

dump i_frequency

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


xy_curve_freq_set	()

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

#                      function xy_curve_freq_set()

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

#                      creates a window and a curve in it. Later it

#                      gets the frequency of data points for the curve

#                      Finally it sets the frequency 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 xy_curve_freq_set()

#  has the following arguments:

#  xy_curve_freq_set

#     (  curve_name,

#        frequency )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

INTEGER  i_frequency

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 6., 9., 5.]   )

dump i_return_value

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

#  Get the frequency of data points for the curve

i_return_value =                                 @

   xy_curve_freq_get                             @

      (  s_curve_name,                           @

         i_frequency )

dump i_return_value

dump i_frequency

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

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

sf_pause()

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

#  Set the frequency of data points

IF ( i_frequency == 2 ) THEN

   i_frequency = 1

ELSE

   i_frequency = 2

ENDIF

i_return_value =                                 @

   xy_curve_freq_set                             @

      (  s_curve_name,                           @

         i_frequency )

dump i_return_value

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

#  Reset the value.

i_frequency = 0

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

#  Get the frequency of data points

i_return_value =                                 @

   xy_curve_freq_get                             @

      (  s_curve_name,                           @

         i_frequency )

dump i_return_value

dump i_frequency

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


xy_curve_func_get	()

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

#                      the function xy_curve_func_get()

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

#                      creates a window and a curve in it. Later it

#                      gets the curve fit function. Finally it sets

#                      the curve fit function 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 xy_curve_func_get()

#  has the following arguments:

#  xy_curve_func_get

#     (  curve_name,

#        func )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

STRING   s_func[30]

INTEGER  i_text_color

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#  Get the curve fit function

i_return_value =                                 @

   xy_curve_func_get                             @

      (  s_curve_name,                           @

         s_func )

dump i_return_value

dump s_func

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

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

sf_pause()

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

#  Set the curve fit function

IF( s_func == "Linear" ) THEN

   s_func = "Spline"

ELSE

   s_func = "Linear"

ENDIF

i_return_value =                                 @

   xy_curve_func_set                             @

      (  s_curve_name,                           @

         s_func      )

dump i_return_value

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

#  Reset the value

s_func = ""

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

#  Get the curve fit function

i_return_value =                                 @

   xy_curve_func_get                             @

      (  s_curve_name,                           @

         s_func      )

dump i_return_value

dump s_func

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


xy_curve_func_set	()

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

#                      function xy_curve_func_set()

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

#                      creates a window and a curve in it. Later it

#                      gets the curve fit function. Finally it sets

#                      the curve fit function 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 xy_curve_func_set()

#  has the following arguments:

#  xy_curve_func_set

#     (  curve_name,

#        func )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

STRING   s_func[30]

INTEGER  i_text_color

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#  Get the curve fit function

i_return_value =                                 @

   xy_curve_func_get                             @

      (  s_curve_name,                           @

         s_func )

dump i_return_value

dump s_func

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

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

sf_pause()

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

#  Set the curve fit function

IF( s_func == "Linear" ) THEN

   s_func = "Spline"

ELSE

   s_func = "Linear"

ENDIF

i_return_value =                                 @

   xy_curve_func_set                             @

      (  s_curve_name,                           @

         s_func      )

dump i_return_value

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

#  Reset the value

s_func = ""

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

#  Get the curve fit function

i_return_value =                                 @

   xy_curve_func_get                             @

      (  s_curve_name,                           @

         s_func      )

dump i_return_value

dump s_func

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


xy_curve_linestyle_get	()

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

#                      the function xy_curve_linestyle_get()

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

#                      creates a window and a curve in it. Later it

#                      gets the linestyle for the curve. Finally it

#                      sets the linestyle 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 xy_curve_linestyle_get()

#  has the following arguments:

#  xy_curve_linestyle_get

#     (  curve_name,

#        curve_style )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

STRING   s_curve_style[32]

INTEGER  i_text_color

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#  Get the linestyle for the curve

i_return_value =                                 @

   xy_curve_linestyle_get                        @

      (  s_curve_name,                           @

         s_curve_style )

dump i_return_value

dump s_curve_style

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

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

sf_pause()

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

#  Set the linestyle for the curve

IF( s_curve_style == "Solid" ) THEN

   s_curve_style = "Dotted"

ELSE

   s_curve_style = "Solid"

ENDIF

i_return_value =                                 @

   xy_curve_linestyle_set                        @

      (  s_curve_name,                           @

         s_curve_style      )

dump i_return_value

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

#  Reset the value

s_curve_style = ""

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

#  Get the linestyle for the curve

i_return_value =                                 @

   xy_curve_linestyle_get                        @

      (  s_curve_name,                           @

         s_curve_style      )

dump i_return_value

dump s_curve_style

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


xy_curve_linestyle_set	()

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

#                      function xy_curve_linestyle_set()

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

#                      creates a window and a curve in it. Later it

#                      gets the linestyle for the curve. Finally it

#                      sets the linestyle 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 xy_curve_linestyle_set()

#  has the following arguments:

#  xy_curve_linestyle_set

#     (  curve_name,

#        curve_style )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

STRING   s_curve_style[32]

INTEGER  i_text_color

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#  Get the linestyle for the curve

i_return_value =                                 @

   xy_curve_linestyle_get                        @

      (  s_curve_name,                           @

         s_curve_style )

dump i_return_value

dump s_curve_style

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

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

sf_pause()

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

#  Set the linestyle for the curve

IF( s_curve_style == "Solid" ) THEN

   s_curve_style = "Dotted"

ELSE

   s_curve_style = "Solid"

ENDIF

i_return_value =                                 @

   xy_curve_linestyle_set                        @

      (  s_curve_name,                           @

         s_curve_style      )

dump i_return_value

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

#  Reset the value

s_curve_style = ""

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

#  Get the linestyle for the curve

i_return_value =                                 @

   xy_curve_linestyle_get                        @

      (  s_curve_name,                           @

         s_curve_style      )

dump i_return_value

dump s_curve_style

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


xy_curve_nlppc_get	()

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

#                      the function xy_curve_nlppc_get()

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

#                      creates a window and a curve in it. Later it

#                      gets the number of curves per parametric cubic

#                      for the curve. Finally it sets the number of

#                      curves per parametric cubic 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 xy_curve_nlppc_get()

#  has the following arguments:

#  xy_curve_nlppc_get

#     (  curve_name,

#        value )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

STRING   s_func[30]

INTEGER  i_text_color

INTEGER  i_value

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Set the curve fit function

s_func = "LeastSquares"

i_return_value =                                 @

   xy_curve_func_set                             @

      (  s_curve_name,                           @

         s_func      )

dump i_return_value

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

#  Set the number of parametric cubic curves for more prominent change

#  in the XY window

i_return_value =                                 @

   xy_curve_num_pc_set                           @

      (  s_curve_name, 4 )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#  Get the number of curves per parametric cubic

i_return_value =                                 @

   xy_curve_nlppc_get                            @

      (  s_curve_name,                           @

         i_value )

dump i_return_value

dump i_value

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

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

sf_pause()

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

#  Set the number of curves per parametric cubic

IF ( i_value < 3 ) THEN

   i_value = 100

ELSE

   i_value = 2

ENDIF

i_return_value =                                 @

   xy_curve_nlppc_set                            @

      (  s_curve_name,                           @

         i_value )

dump i_return_value

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

#  Reset the value.

i_value = 0

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

#  Get the number of curves per parametric cubic

i_return_value =                                 @

   xy_curve_nlppc_get                            @

      (  s_curve_name,                           @

         i_value )

dump i_return_value

dump i_value

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


xy_curve_nlppc_set	()

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

#                      function xy_curve_nlppc_set()

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

#                      creates a window and a curve in it. Later it

#                      gets the number of curves per parametric cubic

#                      for the curve. Finally it sets the number of

#                      curves per parametric cubic 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 xy_curve_nlppc_set()

#  has the following arguments:

#  xy_curve_nlppc_set

#     (  curve_name,

#        value )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

STRING   s_func[30]

INTEGER  i_text_color

INTEGER  i_value

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Set the curve fit function

s_func = "LeastSquares"

i_return_value =                                 @

   xy_curve_func_set                             @

      (  s_curve_name,                           @

         s_func      )

dump i_return_value

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

#  Set the number of parametric cubic curves for more prominent change

#  in the XY window

i_return_value =                                 @

   xy_curve_num_pc_set                           @

      (  s_curve_name, 4 )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#  Get the number of curves per parametric cubic

i_return_value =                                 @

   xy_curve_nlppc_get                            @

      (  s_curve_name,                           @

         i_value )

dump i_return_value

dump i_value

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

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

sf_pause()

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

#  Set the number of curves per parametric cubic

IF ( i_value < 3 ) THEN

   i_value = 100

ELSE

   i_value = 2

ENDIF

i_return_value =                                 @

   xy_curve_nlppc_set                            @

      (  s_curve_name,                           @

         i_value )

dump i_return_value

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

#  Reset the value.

i_value = 0

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

#  Get the number of curves per parametric cubic

i_return_value =                                 @

   xy_curve_nlppc_get                            @

      (  s_curve_name,                           @

         i_value )

dump i_return_value

dump i_value

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


xy_curve_num_pc_get	()

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

#                      the function xy_curve_num_pc_get()

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

#                      creates a window and a curve in it. Later it

#                      gets the number of parametric cubic curves.

#                      Finally it sets the number of parametric cubic

#                      curves 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 xy_curve_num_pc_get()

#  has the following arguments:

#  xy_curve_num_pc_get

#     (  curve_name,

#        value )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

STRING   s_func[30]

INTEGER  i_text_color

INTEGER  i_value

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Set the curve fit function

s_func = "LeastSquares"

i_return_value =                                 @

   xy_curve_func_set                             @

      (  s_curve_name,                           @

         s_func      )

dump i_return_value

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

#  Set the number of curves per parametric cubic for more prominent

#  change in the XY window

i_return_value =                                 @

   xy_curve_nlppc_set                            @

      (  s_curve_name, 2 )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#  Get the number of parametric cubic curves

i_return_value =                                 @

   xy_curve_num_pc_get                           @

      (  s_curve_name,                           @

         i_value )

dump i_return_value

dump i_value

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

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

sf_pause()

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

#  Set the number of parametric cubic curves

IF ( i_value < 7 ) THEN

   i_value = 90

ELSE

   i_value = 4

ENDIF

i_return_value =                                 @

   xy_curve_num_pc_set                           @

      (  s_curve_name,                           @

         i_value )

dump i_return_value

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

#  Reset the value.

i_value = 0

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

#  Get the number of parametric cubic curves

i_return_value =                                 @

   xy_curve_num_pc_get                           @

      (  s_curve_name,                           @

         i_value )

dump i_return_value

dump i_value

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


xy_curve_num_pc_set	()

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

#                      function xy_curve_num_pc_set()

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

#                      creates a window and a curve in it. Later it

#                      gets the number of parametric cubic curves.

#                      Finally it sets the number of parametric cubic

#                      curves 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 xy_curve_num_pc_set()

#  has the following arguments:

#  xy_curve_num_pc_set

#     (  curve_name,

#        value )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

STRING   s_func[30]

INTEGER  i_text_color

INTEGER  i_value

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Set the curve fit function

s_func = "LeastSquares"

i_return_value =                                 @

   xy_curve_func_set                             @

      (  s_curve_name,                           @

         s_func      )

dump i_return_value

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

#  Set the number of curves per parametric cubic for more prominent

#  change in the XY window

i_return_value =                                 @

   xy_curve_nlppc_set                            @

      (  s_curve_name, 2 )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#  Get the number of parametric cubic curves

i_return_value =                                 @

   xy_curve_num_pc_get                           @

      (  s_curve_name,                           @

         i_value )

dump i_return_value

dump i_value

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

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

sf_pause()

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

#  Set the number of parametric cubic curves

IF ( i_value < 7 ) THEN

   i_value = 90

ELSE

   i_value = 4

ENDIF

i_return_value =                                 @

   xy_curve_num_pc_set                           @

      (  s_curve_name,                           @

         i_value )

dump i_return_value

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

#  Reset the value.

i_value = 0

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

#  Get the number of parametric cubic curves

i_return_value =                                 @

   xy_curve_num_pc_get                           @

      (  s_curve_name,                           @

         i_value )

dump i_return_value

dump i_value

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


xy_curve_rename	()

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

#                      function xy_curve_rename()

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

#                      creates a window and a curve in it. Later it

#                      gets the list of curves. Finally it renames the

#                      curve and gets the list of curves 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 xy_curve_rename()

#  has the following arguments:

#  xy_curve_rename

#     (  old_name,

#        new_name )

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

#  Variable Declarations

STRING   s_old_name[32]

STRING   s_new_name[32]

STRING   s_text[32]

STRING   sa_curve_list[32](1)

INTEGER  i_text_color

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_old_name     = "curve_name"

s_text         = "xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_old_name,                             @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Get the list of curves

i_return_value =                                 @

   xy_curve_list_get                             @

      (  sa_curve_list )

dump sa_curve_list

dump i_return_value

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

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

sf_pause()

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

#  Rename the curve

s_new_name = "new_curve_name"

i_return_value =                                 @

   xy_curve_rename                               @

      (  s_old_name,                             @

         s_new_name )

dump i_return_value

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

#  Get the list of curves

i_return_value =                                 @

   xy_curve_list_get                             @

      (  sa_curve_list )

dump sa_curve_list

dump i_return_value

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


xy_curve_startpt_get	()

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

#                      the function xy_curve_startpt_get()

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

#                      creates a window and a curve in it. Later it

#                      gets the first data point to be displayed in

#                      the curve. Finally it sets the first data point

#                      to be displayed 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 xy_curve_startpt_get()

#  has the following arguments:

#  xy_curve_startpt_get

#     (  curve_name,

#        start_point )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

INTEGER  i_start_point

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#  Get the first data point to be displayed in the curve

i_return_value =                                 @

   xy_curve_startpt_get                          @

      (  s_curve_name,                           @

         i_start_point )

dump i_return_value

dump i_start_point

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

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

sf_pause()

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

#  Set the first data point to be displayed

IF ( i_start_point == 2 ) THEN

   i_start_point = 1

ELSE

   i_start_point = 2

ENDIF

i_return_value =                                 @

   xy_curve_startpt_set                          @

      (  s_curve_name,                           @

         i_start_point )

dump i_return_value

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

#  Reset the value.

i_start_point = 0

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

#  Get the first data point to be displayed

i_return_value =                                 @

   xy_curve_startpt_get                          @

      (  s_curve_name,                           @

         i_start_point )

dump i_return_value

dump i_start_point

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


xy_curve_startpt_set	()

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

#                      function xy_curve_startpt_set()

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

#                      creates a window and a curve in it. Later it

#                      gets the first data point to be displayed in

#                      the curve. Finally it sets the first data point

#                      to be displayed 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 xy_curve_startpt_set()

#  has the following arguments:

#  xy_curve_startpt_set

#     (  curve_name,

#        start_point )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

INTEGER  i_start_point

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#  Get the first data point to be displayed in the curve

i_return_value =                                 @

   xy_curve_startpt_get                          @

      (  s_curve_name,                           @

         i_start_point )

dump i_return_value

dump i_start_point

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

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

sf_pause()

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

#  Set the first data point to be displayed

IF ( i_start_point == 2 ) THEN

   i_start_point = 1

ELSE

   i_start_point = 2

ENDIF

i_return_value =                                 @

   xy_curve_startpt_set                          @

      (  s_curve_name,                           @

         i_start_point )

dump i_return_value

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

#  Reset the value.

i_start_point = 0

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

#  Get the first data point to be displayed

i_return_value =                                 @

   xy_curve_startpt_get                          @

      (  s_curve_name,                           @

         i_start_point )

dump i_return_value

dump i_start_point

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


xy_curve_symbol_color_get	()

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

#                      the function xy_curve_symbol_color_get()

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

#                      creates a window and a curve in it. Later it

#                      gets the symbol color. Finally it sets the

#                      symbol color 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 xy_curve_symbol_color_get()

#  has the following arguments:

#  xy_curve_symbol_color_get

#     (  curve_name,

#        symbol_color )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

INTEGER  i_symbol_color

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#   Set the disply symbol flag to TRUE

i_return_value =                                 @

   xy_curve_display_symbol_set                   @

      (  s_curve_name, TRUE  )

dump i_return_value

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

#  Get the symbol color

i_return_value =                                 @

   xy_curve_symbol_color_get                     @

      (  s_curve_name,                           @

         i_symbol_color     )

dump i_return_value

dump i_symbol_color

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

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

sf_pause()

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

#  Set the symbol color

IF( i_symbol_color == 1 ) THEN

   i_symbol_color = 2

ELSE

   i_symbol_color = 1

ENDIF

i_return_value =                                 @

   xy_curve_symbol_color_set                     @

      (  s_curve_name,                           @

         i_symbol_color      )

dump i_return_value

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

#  Reset the value

i_symbol_color = 0

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

#  Get the symbol color

i_return_value =                                 @

   xy_curve_symbol_color_get                     @

      (  s_curve_name,                           @

         i_symbol_color      )

dump i_return_value

dump i_symbol_color

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


xy_curve_symbol_color_set	()

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

#                      function xy_curve_symbol_color_set()

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

#                      creates a window and a curve in it. Later it

#                      gets the symbol color. Finally it sets the

#                      symbol color 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 xy_curve_symbol_color_set()

#  has the following arguments:

#  xy_curve_symbol_color_set

#     (  curve_name,

#        symbol_color )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

INTEGER  i_symbol_color

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#   Set the disply symbol flag to TRUE

i_return_value =                                 @

   xy_curve_display_symbol_set                   @

      (  s_curve_name, TRUE  )

dump i_return_value

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

#  Get the symbol color

i_return_value =                                 @

   xy_curve_symbol_color_get                     @

      (  s_curve_name,                           @

         i_symbol_color     )

dump i_return_value

dump i_symbol_color

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

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

sf_pause()

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

#  Set the symbol color

IF( i_symbol_color == 1 ) THEN

   i_symbol_color = 2

ELSE

   i_symbol_color = 1

ENDIF

i_return_value =                                 @

   xy_curve_symbol_color_set                     @

      (  s_curve_name,                           @

         i_symbol_color      )

dump i_return_value

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

#  Reset the value

i_symbol_color = 0

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

#  Get the symbol color

i_return_value =                                 @

   xy_curve_symbol_color_get                     @

      (  s_curve_name,                           @

         i_symbol_color      )

dump i_return_value

dump i_symbol_color

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


xy_curve_symbol_get	()

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

#                      the function xy_curve_symbol_get()

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

#                      creates a window and a curve in it. Later it

#                      gets the symbol for the curve. Finally it sets

#                      the symbol 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 xy_curve_symbol_get()

#  has the following arguments:

#  xy_curve_symbol_get

#     (  curve_name,

#        symbol )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

STRING   s_symbol[30]

INTEGER  i_text_color

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#   Set the disply symbol flag to TRUE

i_return_value =                                 @

   xy_curve_display_symbol_set                   @

      (  s_curve_name, TRUE  )

dump i_return_value

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

#  Get the symbol for the curve

i_return_value =                                 @

   xy_curve_symbol_get                           @

      (  s_curve_name,                           @

         s_symbol     )

dump i_return_value

dump s_symbol

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

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

sf_pause()

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

#  Set the symbol for the curve

IF( s_symbol == "FillCircle" ) THEN

   s_symbol = "Fillsquare"

ELSE

   s_symbol = "FillCircle"

ENDIF

i_return_value =                                 @

   xy_curve_symbol_set                           @

      (  s_curve_name,                           @

         s_symbol      )

dump i_return_value

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

#  Reset the value

s_symbol = ""

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

#  Get the symbol for the curve

i_return_value =                                 @

   xy_curve_symbol_get                           @

      (  s_curve_name,                           @

         s_symbol      )

dump i_return_value

dump s_symbol

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


xy_curve_symbol_set	()

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

#                      function xy_curve_symbol_set()

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

#                      creates a window and a curve in it. Later it

#                      gets the symbol for the curve. Finally it sets

#                      the symbol 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 xy_curve_symbol_set()

#  has the following arguments:

#  xy_curve_symbol_set

#     (  curve_name,

#        symbol )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

STRING   s_symbol[30]

INTEGER  i_text_color

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#   Set the disply symbol flag to TRUE

i_return_value =                                 @

   xy_curve_display_symbol_set                   @

      (  s_curve_name, TRUE  )

dump i_return_value

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

#  Get the symbol for the curve

i_return_value =                                 @

   xy_curve_symbol_get                           @

      (  s_curve_name,                           @

         s_symbol     )

dump i_return_value

dump s_symbol

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

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

sf_pause()

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

#  Set the symbol for the curve

IF( s_symbol == "FillCircle" ) THEN

   s_symbol = "Fillsquare"

ELSE

   s_symbol = "FillCircle"

ENDIF

i_return_value =                                 @

   xy_curve_symbol_set                           @

      (  s_curve_name,                           @

         s_symbol      )

dump i_return_value

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

#  Reset the value

s_symbol = ""

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

#  Get the symbol for the curve

i_return_value =                                 @

   xy_curve_symbol_get                           @

      (  s_curve_name,                           @

         s_symbol      )

dump i_return_value

dump s_symbol

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


xy_curve_symbol_size_get	()

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

#                      the function xy_curve_symbol_size_get()

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

#                      creates a window and a curve in it. Later it

#                      gets the symbol size. Finally it sets the

#                      symbol size 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 xy_curve_symbol_size_get()

#  has the following arguments:

#  xy_curve_symbol_size_get

#     (  curve_name,

#        symbol_size )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

INTEGER  i_symbol_size

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#   Set the disply symbol flag to TRUE

i_return_value =                                 @

   xy_curve_display_symbol_set                   @

      (  s_curve_name, TRUE  )

dump i_return_value

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

#  Get the symbol size

i_return_value =                                 @

   xy_curve_symbol_size_get                      @

      (  s_curve_name,                           @

         i_symbol_size     )

dump i_return_value

dump i_symbol_size

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

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

sf_pause()

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

#  Set the symbol size

IF( i_symbol_size < 12 ) THEN

   i_symbol_size = 15

ELSE

   i_symbol_size = 10

ENDIF

i_return_value =                                 @

   xy_curve_symbol_size_set                      @

      (  s_curve_name,                           @

         i_symbol_size      )

dump i_return_value

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

#  Reset the value

i_symbol_size = 0

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

#  Get the symbol size

i_return_value =                                 @

   xy_curve_symbol_size_get                      @

      (  s_curve_name,                           @

         i_symbol_size      )

dump i_return_value

dump i_symbol_size

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


xy_curve_symbol_size_set	()

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

#                      function xy_curve_symbol_size_set()

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

#                      creates a window and a curve in it. Later it

#                      gets the symbol size. Finally it sets the

#                      symbol size 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 xy_curve_symbol_size_set()

#  has the following arguments:

#  xy_curve_symbol_size_set

#     (  curve_name,

#        symbol_size )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

INTEGER  i_symbol_size

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

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

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

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

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

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

#   Set the disply symbol flag to TRUE

i_return_value =                                 @

   xy_curve_display_symbol_set                   @

      (  s_curve_name, TRUE  )

dump i_return_value

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

#  Get the symbol size

i_return_value =                                 @

   xy_curve_symbol_size_get                      @

      (  s_curve_name,                           @

         i_symbol_size     )

dump i_return_value

dump i_symbol_size

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

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

sf_pause()

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

#  Set the symbol size

IF( i_symbol_size < 12 ) THEN

   i_symbol_size = 15

ELSE

   i_symbol_size = 10

ENDIF

i_return_value =                                 @

   xy_curve_symbol_size_set                      @

      (  s_curve_name,                           @

         i_symbol_size      )

dump i_return_value

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

#  Reset the value

i_symbol_size = 0

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

#  Get the symbol size

i_return_value =                                 @

   xy_curve_symbol_size_get                      @

      (  s_curve_name,                           @

         i_symbol_size      )

dump i_return_value

dump i_symbol_size

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


xy_curve_text_get	()

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

#                      the function xy_curve_text_get()

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

#                      creates a window and a curve in it. Later it

#                      gets the text attributes for the curve. Finally

#                      it sets the text attributes 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 xy_curve_text_get()

#  has the following arguments:

#  xy_curve_text_get

#     (  curve_name,

#        text,

#        text_color )

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

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display legend flag to TRUE

i_return_value =                                 @

   xy_legend_display_set                         @

      (  TRUE  )

dump i_return_value

#---------------------------------------------------------------------

#  Get the text attributes for the curve

i_return_value =                                 @

   xy_curve_text_get                             @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

dump s_text

dump i_text_color

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set new text attributes for the curve

s_text       = "old_xy_curve"

i_text_color = 2

i_return_value =                                 @

   xy_curve_text_set                             @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the values

s_text       = ""

i_text_color = 0

#---------------------------------------------------------------------

#  Get the text attributes for the curve

i_return_value =                                 @

   xy_curve_text_get                             @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

dump s_text

dump i_text_color

#---------------------------------------------------------------------


xy_curve_text_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_curve_text_set()

#                      This file opens a new database "new.db",

#                      creates a window and a curve in it. Later it

#                      gets the text attributes for the curve. Finally

#                      it sets the text attributes 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 xy_curve_text_set()

#  has the following arguments:

#  xy_curve_text_set

#     (  curve_name,

#        text,

#        text_color )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display legend flag to TRUE

i_return_value =                                 @

   xy_legend_display_set                         @

      (  TRUE  )

dump i_return_value

#---------------------------------------------------------------------

#  Get the text attributes for the curve

i_return_value =                                 @

   xy_curve_text_get                             @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

dump s_text

dump i_text_color

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set new text attributes for the curve

s_text       = "old_xy_curve"

i_text_color = 2

i_return_value =                                 @

   xy_curve_text_set                             @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the values

s_text       = ""

i_text_color = 0

#---------------------------------------------------------------------

#  Get the text attributes for the curve

i_return_value =                                 @

   xy_curve_text_get                             @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

dump s_text

dump i_text_color

#---------------------------------------------------------------------


xy_curve_thickness_get	()

#  Purpose          :  This file provides an example of two calls to

#                      the function xy_curve_thickness_get()

#                      This file opens a new database "new.db",

#                      creates a window and a curve in it. Later it

#                      gets the curve thickness. Finally it sets the

#                      curve thickness 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 xy_curve_thickness_get()

#  has the following arguments:

#  xy_curve_thickness_get

#     (  curve_name,

#        thickness )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

INTEGER  i_thickness

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Get the curve thickness

i_return_value =                                 @

   xy_curve_thickness_get                        @

      (  s_curve_name,                           @

         i_thickness     )

dump i_return_value

dump i_thickness

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the curve thickness

IF( i_thickness < 3 ) THEN

   i_thickness = 5

ELSE

   i_thickness = 1

ENDIF

i_return_value =                                 @

   xy_curve_thickness_set                        @

      (  s_curve_name,                           @

         i_thickness      )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value

i_thickness = 0

#---------------------------------------------------------------------

#  Get the curve thickness

i_return_value =                                 @

   xy_curve_thickness_get                        @

      (  s_curve_name,                           @

         i_thickness     )

dump i_return_value

dump i_thickness

#---------------------------------------------------------------------


xy_curve_thickness_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_curve_thickness_set()

#                      This file opens a new database "new.db",

#                      creates a window and a curve in it. Later it

#                      gets the curve thickness. Finally it sets the

#                      curve thickness 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 xy_curve_thickness_set()

#  has the following arguments:

#  xy_curve_thickness_set

#     (  curve_name,

#        thickness )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

INTEGER  i_thickness

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Get the curve thickness

i_return_value =                                 @

   xy_curve_thickness_get                        @

      (  s_curve_name,                           @

         i_thickness     )

dump i_return_value

dump i_thickness

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the curve thickness

IF( i_thickness < 3 ) THEN

   i_thickness = 5

ELSE

   i_thickness = 1

ENDIF

i_return_value =                                 @

   xy_curve_thickness_set                        @

      (  s_curve_name,                           @

         i_thickness      )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value

i_thickness = 0

#---------------------------------------------------------------------

#  Get the curve thickness

i_return_value =                                 @

   xy_curve_thickness_get                        @

      (  s_curve_name,                           @

         i_thickness     )

dump i_return_value

dump i_thickness

#---------------------------------------------------------------------


xy_curve_xdelta_get	()

#  Purpose          :  This file provides an example of two calls to

#                      the function xy_curve_xdelta_get()

#                      This file opens a new database "new.db",

#                      creates a window and a curve in it. Later it

#                      gets the value of X increment to be used if

#                      only Y data is given. Finally it sets the value

#                      of X increment 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 xy_curve_xdelta_get()

#  has the following arguments:

#  xy_curve_xdelta_get

#     (  curve_name,

#        xdelta )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

REAL     r_xdelta

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

#---------------------------------------------------------------------

#  Assign Y data to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, TRUE, 5,                  @

         [0., 0., 0., 0., 0.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Get the value of X increment for the curve

i_return_value =                                 @

   xy_curve_xdelta_get                           @

      (  s_curve_name,                           @

         r_xdelta )

dump i_return_value

dump r_xdelta

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the value of X increment

IF ( r_xdelta < 2. ) THEN

   r_xdelta = 3.

ELSE

   r_xdelta = 1.

ENDIF

i_return_value =                                 @

   xy_curve_xdelta_set                           @

      (  s_curve_name,                           @

         r_xdelta )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value.

r_xdelta = 0.

#---------------------------------------------------------------------

#  Get the value of X increment

i_return_value =                                 @

   xy_curve_xdelta_get                           @

      (  s_curve_name,                           @

         r_xdelta )

dump i_return_value

dump r_xdelta

#---------------------------------------------------------------------


xy_curve_xdelta_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_curve_xdelta_set()

#                      This file opens a new database "new.db",

#                      creates a window and a curve in it. Later it

#                      gets the value of X increment to be used if

#                      only Y data is given. Finally it sets the value

#                      of X increment 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 xy_curve_xdelta_set()

#  has the following arguments:

#  xy_curve_xdelta_set

#     (  curve_name,

#        xdelta )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

REAL     r_xdelta

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

#---------------------------------------------------------------------

#  Assign Y data to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, TRUE, 5,                  @

         [0., 0., 0., 0., 0.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Get the value of X increment for the curve

i_return_value =                                 @

   xy_curve_xdelta_get                           @

      (  s_curve_name,                           @

         r_xdelta )

dump i_return_value

dump r_xdelta

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the value of X increment

IF ( r_xdelta < 2. ) THEN

   r_xdelta = 3.

ELSE

   r_xdelta = 1.

ENDIF

i_return_value =                                 @

   xy_curve_xdelta_set                           @

      (  s_curve_name,                           @

         r_xdelta )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value.

r_xdelta = 0.

#---------------------------------------------------------------------

#  Get the value of X increment

i_return_value =                                 @

   xy_curve_xdelta_get                           @

      (  s_curve_name,                           @

         r_xdelta )

dump i_return_value

dump r_xdelta

#---------------------------------------------------------------------


xy_curve_xinit_get	()

#  Purpose          :  This file provides an example of two calls to

#                      the function xy_curve_xinit_get()

#                      This file opens a new database "new.db",

#                      creates a window and a curve in it. Later it

#                      gets the initial value of X to be used if only

#                      Y data is given. Finally it sets the initial

#                      value of X 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 xy_curve_xinit_get()

#  has the following arguments:

#  xy_curve_xinit_get

#     (  curve_name,

#        xinit )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

REAL     r_xinit

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

#---------------------------------------------------------------------

#  Assign Y data to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, TRUE, 5,                  @

         [0., 0., 0., 0., 0.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Get the initial value of X for the curve

i_return_value =                                 @

   xy_curve_xinit_get                            @

      (  s_curve_name,                           @

         r_xinit )

dump i_return_value

dump r_xinit

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the initial value of X

IF ( r_xinit < 5. ) THEN

   r_xinit = 8.

ELSE

   r_xinit = 2.

ENDIF

i_return_value =                                 @

   xy_curve_xinit_set                            @

      (  s_curve_name,                           @

         r_xinit )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value.

r_xinit = 0.

#---------------------------------------------------------------------

#  Get the initial value of X

i_return_value =                                 @

   xy_curve_xinit_get                            @

      (  s_curve_name,                           @

         r_xinit )

dump i_return_value

dump r_xinit

#---------------------------------------------------------------------


xy_curve_xinit_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_curve_xinit_set()

#                      This file opens a new database "new.db",

#                      creates a window and a curve in it. Later it

#                      gets the initial value of X to be used if only

#                      Y data is given. Finally it sets the initial

#                      value of X 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 xy_curve_xinit_set()

#  has the following arguments:

#  xy_curve_xinit_set

#     (  curve_name,

#        xinit )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

REAL     r_xinit

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

#---------------------------------------------------------------------

#  Assign Y data to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, TRUE, 5,                  @

         [0., 0., 0., 0., 0.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Get the initial value of X for the curve

i_return_value =                                 @

   xy_curve_xinit_get                            @

      (  s_curve_name,                           @

         r_xinit )

dump i_return_value

dump r_xinit

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the initial value of X

IF ( r_xinit < 5. ) THEN

   r_xinit = 8.

ELSE

   r_xinit = 2.

ENDIF

i_return_value =                                 @

   xy_curve_xinit_set                            @

      (  s_curve_name,                           @

         r_xinit )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value.

r_xinit = 0.

#---------------------------------------------------------------------

#  Get the initial value of X

i_return_value =                                 @

   xy_curve_xinit_get                            @

      (  s_curve_name,                           @

         r_xinit )

dump i_return_value

dump r_xinit

#---------------------------------------------------------------------


xy_curve_xscale_get	()

#  Purpose          :  This file provides an example of two calls to

#                      the function xy_curve_xscale_get()

#                      This file opens a new database "new.db",

#                      creates a window and a curve in it. Later it

#                      gets the X scale factor for the curve. Finally

#                      it sets the X scale factor 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 xy_curve_xscale_get()

#  has the following arguments:

#  xy_curve_xscale_get

#     (  curve_name,

#        xfactor )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

REAL     r_xfactor

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Get the X scale factor for the curve

i_return_value =                                 @

   xy_curve_xscale_get                           @

      (  s_curve_name,                           @

         r_xfactor     )

dump i_return_value

dump r_xfactor

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the X scale factor

IF( r_xfactor == 1. ) THEN

   r_xfactor = 3.

ELSE

   r_xfactor = 1.

ENDIF

i_return_value =                                 @

   xy_curve_xscale_set                           @

      (  s_curve_name,                           @

         r_xfactor      )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value

r_xfactor = 0.

#---------------------------------------------------------------------

#  Get the X scale factor

i_return_value =                                 @

   xy_curve_xscale_get                           @

      (  s_curve_name,                           @

         r_xfactor     )

dump i_return_value

dump r_xfactor

#---------------------------------------------------------------------


xy_curve_xscale_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_curve_xscale_set()

#                      This file opens a new database "new.db",

#                      creates a window and a curve in it. Later it

#                      gets the X scale factor for the curve. Finally

#                      it sets the X scale factor 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 xy_curve_xscale_set()

#  has the following arguments:

#  xy_curve_xscale_set

#     (  curve_name,

#        xfactor )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

REAL     r_xfactor

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Get the X scale factor for the curve

i_return_value =                                 @

   xy_curve_xscale_get                           @

      (  s_curve_name,                           @

         r_xfactor     )

dump i_return_value

dump r_xfactor

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the X scale factor

IF( r_xfactor == 1. ) THEN

   r_xfactor = 3.

ELSE

   r_xfactor = 1.

ENDIF

i_return_value =                                 @

   xy_curve_xscale_set                           @

      (  s_curve_name,                           @

         r_xfactor      )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value

r_xfactor = 0.

#---------------------------------------------------------------------

#  Get the X scale factor

i_return_value =                                 @

   xy_curve_xscale_get                           @

      (  s_curve_name,                           @

         r_xfactor     )

dump i_return_value

dump r_xfactor

#---------------------------------------------------------------------


xy_curve_yscale_get	()

#  Purpose          :  This file provides an example of two calls to

#                      the function xy_curve_yscale_get()

#                      This file opens a new database "new.db",

#                      creates a window and a curve in it. Later it

#                      gets the Y scale factor for the curve. Finally

#                      it sets the Y scale factor 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 xy_curve_yscale_get()

#  has the following arguments:

#  xy_curve_yscale_get

#     (  curve_name,

#        yfactor )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

REAL     r_yfactor

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Get the Y scale factor for the curve

i_return_value =                                 @

   xy_curve_yscale_get                           @

      (  s_curve_name,                           @

         r_yfactor     )

dump i_return_value

dump r_yfactor

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the Y scale factor

IF( r_yfactor == 1. ) THEN

   r_yfactor = 3.

ELSE

   r_yfactor = 1.

ENDIF

i_return_value =                                 @

   xy_curve_yscale_set                           @

      (  s_curve_name,                           @

         r_yfactor      )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value

r_yfactor = 0.

#---------------------------------------------------------------------

#  Get the Y scale factor

i_return_value =                                 @

   xy_curve_yscale_get                           @

      (  s_curve_name,                           @

         r_yfactor     )

dump i_return_value

dump r_yfactor

#---------------------------------------------------------------------


xy_curve_yscale_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_curve_yscale_set()

#                      This file opens a new database "new.db",

#                      creates a window and a curve in it. Later it

#                      gets the Y scale factor for the curve. Finally

#                      it sets the Y scale factor 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 xy_curve_yscale_set()

#  has the following arguments:

#  xy_curve_yscale_set

#     (  curve_name,

#        yfactor )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_curve_name[32]

STRING   s_text[32]

INTEGER  i_text_color

REAL     r_yfactor

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

s_curve_name   = "new_xy_curve"

s_text         = "new_xy_curve"

i_text_color   = 7

i_return_value =                                 @

   xy_curve_create                               @

      (  s_curve_name,                           @

         s_text,                                 @

         i_text_color )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  s_curve_name, FALSE, 5,                 @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Get the Y scale factor for the curve

i_return_value =                                 @

   xy_curve_yscale_get                           @

      (  s_curve_name,                           @

         r_yfactor     )

dump i_return_value

dump r_yfactor

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the Y scale factor

IF( r_yfactor == 1. ) THEN

   r_yfactor = 3.

ELSE

   r_yfactor = 1.

ENDIF

i_return_value =                                 @

   xy_curve_yscale_set                           @

      (  s_curve_name,                           @

         r_yfactor      )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value

r_yfactor = 0.

#---------------------------------------------------------------------

#  Get the Y scale factor

i_return_value =                                 @

   xy_curve_yscale_get                           @

      (  s_curve_name,                           @

         r_yfactor     )

dump i_return_value

dump r_yfactor

#---------------------------------------------------------------------


xy_legend_attrib_get	()

#  Purpose          :  This file provides an example of two calls to

#                      the function xy_legend_attrib_get()

#                      This file opens a new database "new.db",

#                      creates a window and a curve in it. Later it

#                      gets the legend attributes for the curve.

#                      Finally it sets the legend attributes and gets

#                      them 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 xy_legend_attrib_get()

#  has the following arguments:

#  xy_legend_attrib_get

#     (  location,

#        width,

#        height,

#        bgcolor )

#---------------------------------------------------------------------

#  Variable Declarations

REAL     ra_location(2)

REAL     r_width

REAL     r_height

INTEGER  i_bgcolor

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create a XY curve

i_return_value =                                 @

   xy_curve_create                               @

      (  "new_curve" , "new_curve" , 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  "new_curve", FALSE, 5,                  @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display legend flag to TRUE

i_return_value =                                 @

   xy_legend_display_set                         @

      (  TRUE  )

dump i_return_value

#---------------------------------------------------------------------

#  Get the legend attributes

i_return_value =                                 @

   xy_legend_attrib_get                          @

      (  ra_location,                            @

         r_width,                                @

         r_height,                               @

         i_bgcolor )

dump i_return_value

dump ra_location

dump r_width

dump r_height

dump i_bgcolor

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set new legend attributes

ra_location  = [0., 10.]

r_width      = 10.

r_height     = 10.

IF( i_bgcolor == 0 ) THEN

   i_bgcolor = 1

ELSE

   i_bgcolor = 0

ENDIF

i_return_value =                                 @

   xy_legend_attrib_set                          @

      (  ra_location,                            @

         r_width,                                @

         r_height,                               @

         i_bgcolor )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the values.

ra_location  = [0., 0.]

r_width      = 0.

r_height     = 0.

#---------------------------------------------------------------------

#  Get the legend attributes

i_return_value =                                 @

   xy_legend_attrib_get                          @

      (  ra_location,                            @

         r_width,                                @

         r_height,                               @

         i_bgcolor )

dump i_return_value

dump ra_location

dump r_width

dump r_height

dump i_bgcolor

#---------------------------------------------------------------------


xy_legend_attrib_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_legend_attrib_set()

#                      This file opens a new database "new.db",

#                      creates a window and a curve in it. Later it

#                      gets the legend attributes for the curve.

#                      Finally it sets the legend attributes and gets

#                      them 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 xy_legend_attrib_set()

#  has the following arguments:

#  xy_legend_attrib_set

#     (  location,

#        width,

#        height,

#        bgcolor )

#---------------------------------------------------------------------

#  Variable Declarations

REAL     ra_location(2)

REAL     r_width

REAL     r_height

INTEGER  i_bgcolor

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create a XY curve

i_return_value =                                 @

   xy_curve_create                               @

      (  "new_curve" , "new_curve" , 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  "new_curve", FALSE, 5,                  @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display legend flag to TRUE

i_return_value =                                 @

   xy_legend_display_set                         @

      (  TRUE  )

dump i_return_value

#---------------------------------------------------------------------

#  Get the legend attributes

i_return_value =                                 @

   xy_legend_attrib_get                          @

      (  ra_location,                            @

         r_width,                                @

         r_height,                               @

         i_bgcolor )

dump i_return_value

dump ra_location

dump r_width

dump r_height

dump i_bgcolor

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set new legend attributes

ra_location  = [0., 10.]

r_width      = 10.

r_height     = 10.

IF( i_bgcolor == 0 ) THEN

   i_bgcolor = 1

ELSE

   i_bgcolor = 0

ENDIF

i_return_value =                                 @

   xy_legend_attrib_set                          @

      (  ra_location,                            @

         r_width,                                @

         r_height,                               @

         i_bgcolor )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the values.

ra_location  = [0., 0.]

r_width      = 0.

r_height     = 0.

#---------------------------------------------------------------------

#  Get the legend attributes

i_return_value =                                 @

   xy_legend_attrib_get                          @

      (  ra_location,                            @

         r_width,                                @

         r_height,                               @

         i_bgcolor )

dump i_return_value

dump ra_location

dump r_width

dump r_height

dump i_bgcolor

#---------------------------------------------------------------------


xy_legend_border_get	()

#  Purpose          :  This file provides an example of two calls to

#                      the function xy_legend_border_get()

#                      This file opens a new database "new.db",

#                      creates a window and a curve in it. Later it

#                      gets the legend border attributes for the

#                      curve. Finally it sets the legend border

#                      attributes and gets them 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 xy_legend_border_get()

#  has the following arguments:

#  xy_legend_border_get

#     (  style,

#        border_color )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_style[30]

INTEGER  i_border_color

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create a XY curve

i_return_value =                                 @

   xy_curve_create                               @

      (  "new_curve" , "new_curve" , 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  "new_curve", FALSE, 5,                  @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display border flag to TRUE

i_return_value =                                 @

   xy_legend_display_border_set                  @

      (  TRUE  )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display legend flag to TRUE

i_return_value =                                 @

   xy_legend_display_set                         @

      (  TRUE  )

dump i_return_value

#---------------------------------------------------------------------

#  Get the legend border attributes

i_return_value =                                 @

   xy_legend_border_get                          @

      (  s_style,                                @

         i_border_color )

dump i_return_value

dump s_style

dump i_border_color

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set new legend border attributes

IF( s_style == "Solid" ) THEN

   s_style = "Dotted"

ELSE

   s_style = "Solid"

ENDIF

IF( i_border_color == 7 ) THEN

   i_border_color = 6

ELSE

   i_border_color = 7

ENDIF

i_return_value =                                 @

   xy_legend_border_set                          @

      (  s_style,                                @

         i_border_color )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the values.

s_style = ""

#---------------------------------------------------------------------

#  Get the legend border attributes

i_return_value =                                 @

   xy_legend_border_get                          @

      (  s_style,                                @

         i_border_color )

dump i_return_value

dump s_style

dump i_border_color

#---------------------------------------------------------------------


xy_legend_border_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_legend_border_set()

#                      This file opens a new database "new.db",

#                      creates a window and a curve in it. Later it

#                      gets the legend border attributes for the

#                      curve. Finally it sets the legend border

#                      attributes and gets them 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 xy_legend_border_set()

#  has the following arguments:

#  xy_legend_border_set

#     (  style,

#        border_color )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_style[30]

INTEGER  i_border_color

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create a XY curve

i_return_value =                                 @

   xy_curve_create                               @

      (  "new_curve" , "new_curve" , 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  "new_curve", FALSE, 5,                  @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display border flag to TRUE

i_return_value =                                 @

   xy_legend_display_border_set                  @

      (  TRUE  )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display legend flag to TRUE

i_return_value =                                 @

   xy_legend_display_set                         @

      (  TRUE  )

dump i_return_value

#---------------------------------------------------------------------

#  Get the legend border attributes

i_return_value =                                 @

   xy_legend_border_get                          @

      (  s_style,                                @

         i_border_color )

dump i_return_value

dump s_style

dump i_border_color

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set new legend border attributes

IF( s_style == "Solid" ) THEN

   s_style = "Dotted"

ELSE

   s_style = "Solid"

ENDIF

IF( i_border_color == 7 ) THEN

   i_border_color = 6

ELSE

   i_border_color = 7

ENDIF

i_return_value =                                 @

   xy_legend_border_set                          @

      (  s_style,                                @

         i_border_color )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the values.

s_style = ""

#---------------------------------------------------------------------

#  Get the legend border attributes

i_return_value =                                 @

   xy_legend_border_get                          @

      (  s_style,                                @

         i_border_color )

dump i_return_value

dump s_style

dump i_border_color

#---------------------------------------------------------------------


xy_legend_display_border_get	()

#  Purpose          :  This file provides an example of two calls to

#                      the function xy_legend_display_border_get()

#                      This file opens a new database "new.db" and

#                      creates a window and a curve in it. Later it

#                      gets the display border flag. Finally it sets

#                      the display border flag 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 xy_legend_display_border_get()

#  has the following arguments:

#  xy_legend_display_border_get

#     (  border_flag )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_border_flag

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

i_return_value =                                 @

   xy_curve_create                               @

      (  "new_curve" , "new_curve" , 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  "new_curve", FALSE, 5,                  @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display legend flag

i_return_value =                                 @

   xy_legend_display_set                         @

      (  TRUE  )

dump i_return_value

#---------------------------------------------------------------------

#  Get the display border flag

i_return_value =                                 @

   xy_legend_display_border_get                  @

      (  l_border_flag )

dump i_return_value

dump l_border_flag

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the display border flag

IF( l_border_flag == TRUE ) THEN

   l_border_flag = FALSE

ELSE

   l_border_flag = TRUE

ENDIF

i_return_value =                                 @

   xy_legend_display_border_set                  @

      (  l_border_flag )

dump i_return_value

#---------------------------------------------------------------------

#  Get the display border flag

i_return_value =                                 @

   xy_legend_display_border_get                  @

      (  l_border_flag )

dump i_return_value

dump l_border_flag

#---------------------------------------------------------------------


xy_legend_display_border_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_legend_display_border_set()

#                      This file opens a new database "new.db" and

#                      creates a window and a curve in it. Later it

#                      gets the display border flag. Finally it sets

#                      the display border flag 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 xy_legend_display_border_set()

#  has the following arguments:

#  xy_legend_display_border_set

#     (  border_flag )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_border_flag

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

i_return_value =                                 @

   xy_curve_create                               @

      (  "new_curve" , "new_curve" , 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  "new_curve", FALSE, 5,                  @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display legend flag

i_return_value =                                 @

   xy_legend_display_set                         @

      (  TRUE  )

dump i_return_value

#---------------------------------------------------------------------

#  Get the display border flag

i_return_value =                                 @

   xy_legend_display_border_get                  @

      (  l_border_flag )

dump i_return_value

dump l_border_flag

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the display border flag

IF( l_border_flag == TRUE ) THEN

   l_border_flag = FALSE

ELSE

   l_border_flag = TRUE

ENDIF

i_return_value =                                 @

   xy_legend_display_border_set                  @

      (  l_border_flag )

dump i_return_value

#---------------------------------------------------------------------

#  Get the display border flag

i_return_value =                                 @

   xy_legend_display_border_get                  @

      (  l_border_flag )

dump i_return_value

dump l_border_flag

#---------------------------------------------------------------------


xy_legend_display_get	()

#  Purpose          :  This file provides an example of two calls to

#                      the function xy_legend_display_get()

#                      This file opens a new database "new.db",

#                      creates a window and a curve in it. Later it

#                      gets the display legend flag. Finally it sets

#                      the display legend flag 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 xy_legend_display_get()

#  has the following arguments:

#  xy_legend_display_get

#     (  legend_flag )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_legend_flag

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create a XY curve

i_return_value =                                 @

   xy_curve_create                               @

      (  "new_curve" , "new_curve" , 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  "new_curve", FALSE, 5,                  @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Get the display legend flag

i_return_value =                                 @

   xy_legend_display_get                         @

      (  l_legend_flag )

dump i_return_value

dump l_legend_flag

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the display legend flag

IF( l_legend_flag == TRUE ) THEN

   l_legend_flag = FALSE

ELSE

   l_legend_flag = TRUE

ENDIF

i_return_value =                                 @

   xy_legend_display_set                         @

      (  l_legend_flag )

dump i_return_value

#---------------------------------------------------------------------

#  Get the display legend flag

i_return_value =                                 @

   xy_legend_display_get                         @

      (  l_legend_flag )

dump i_return_value

dump l_legend_flag

#---------------------------------------------------------------------


xy_legend_display_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_legend_display_set()

#                      This file opens a new database "new.db",

#                      creates a window and a curve in it. Later it

#                      gets the display legend flag. Finally it sets

#                      the display legend flag 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 xy_legend_display_set()

#  has the following arguments:

#  xy_legend_display_set

#     (  legend_flag )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_legend_flag

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create a XY curve

i_return_value =                                 @

   xy_curve_create                               @

      (  "new_curve" , "new_curve" , 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  "new_curve", FALSE, 5,                  @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Get the display legend flag

i_return_value =                                 @

   xy_legend_display_get                         @

      (  l_legend_flag )

dump i_return_value

dump l_legend_flag

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the display legend flag

IF( l_legend_flag == TRUE ) THEN

   l_legend_flag = FALSE

ELSE

   l_legend_flag = TRUE

ENDIF

i_return_value =                                 @

   xy_legend_display_set                         @

      (  l_legend_flag )

dump i_return_value

#---------------------------------------------------------------------

#  Get the display legend flag

i_return_value =                                 @

   xy_legend_display_get                         @

      (  l_legend_flag )

dump i_return_value

dump l_legend_flag

#---------------------------------------------------------------------


xy_legend_display_title_get	()

#  Purpose          :  This file provides an example of two calls to

#                      the function xy_legend_display_title_get()

#                      This file opens a new database "new.db" and

#                      creates a window and a curve in it. Later it

#                      gets the display title flag. Finally it sets

#                      the display title flag 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 xy_legend_display_title_get()

#  has the following arguments:

#  xy_legend_display_title_get

#     (  title_flag )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_title_flag

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

i_return_value =                                 @

   xy_curve_create                               @

      (  "new_curve" , "new_curve" , 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  "new_curve", FALSE, 5,                  @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display legend flag

i_return_value =                                 @

   xy_legend_display_set                         @

      (  TRUE  )

dump i_return_value

#---------------------------------------------------------------------

#  Get the display title flag

i_return_value =                                 @

   xy_legend_display_title_get                   @

      (  l_title_flag )

dump i_return_value

dump l_title_flag

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the display title flag

IF( l_title_flag == TRUE ) THEN

   l_title_flag = FALSE

ELSE

   l_title_flag = TRUE

ENDIF

i_return_value =                                 @

   xy_legend_display_title_set                   @

      (  l_title_flag )

dump i_return_value

#---------------------------------------------------------------------

#  Get the display title flag

i_return_value =                                 @

   xy_legend_display_title_get                   @

      (  l_title_flag )

dump i_return_value

dump l_title_flag

#---------------------------------------------------------------------


xy_legend_display_title_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_legend_display_title_set()

#                      This file opens a new database "new.db" and

#                      creates a window and a curve in it. Later it

#                      gets the display title flag. Finally it sets

#                      the display title flag 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 xy_legend_display_title_set()

#  has the following arguments:

#  xy_legend_display_title_set

#     (  title_flag )

#---------------------------------------------------------------------

#  Variable Declarations

LOGICAL  l_title_flag

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

i_return_value =                                 @

   xy_curve_create                               @

      (  "new_curve" , "new_curve" , 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  "new_curve", FALSE, 5,                  @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display legend flag

i_return_value =                                 @

   xy_legend_display_set                         @

      (  TRUE  )

dump i_return_value

#---------------------------------------------------------------------

#  Get the display title flag

i_return_value =                                 @

   xy_legend_display_title_get                   @

      (  l_title_flag )

dump i_return_value

dump l_title_flag

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the display title flag

IF( l_title_flag == TRUE ) THEN

   l_title_flag = FALSE

ELSE

   l_title_flag = TRUE

ENDIF

i_return_value =                                 @

   xy_legend_display_title_set                   @

      (  l_title_flag )

dump i_return_value

#---------------------------------------------------------------------

#  Get the display title flag

i_return_value =                                 @

   xy_legend_display_title_get                   @

      (  l_title_flag )

dump i_return_value

dump l_title_flag

#---------------------------------------------------------------------


xy_legend_text_get	()

#  Purpose          :  This file provides an example of two calls to

#                      the function xy_legend_text_get()

#                      This file opens a new database "new.db",

#                      creates a window and a curve in it. Later it

#                      gets the legend text attributes for the curve.

#                      Finally it sets the legend text attributes and

#                      gets them 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 xy_legend_text_get()

#  has the following arguments:

#  xy_legend_text_get

#     (  text,

#        text_color )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_text[256]

INTEGER  i_text_color

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create a XY curve

i_return_value =                                 @

   xy_curve_create                               @

      (  "new_curve" , "new_curve" , 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  "new_curve", FALSE, 5,                  @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display title flag to TRUE

i_return_value =                                 @

   xy_legend_display_title_set                   @

      (  TRUE  )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display legend flag to TRUE

i_return_value =                                 @

   xy_legend_display_set                         @

      (  TRUE  )

dump i_return_value

#---------------------------------------------------------------------

#  Get the legend text attributes

i_return_value =                                 @

   xy_legend_text_get                            @

      (  s_text,                                 @

         i_text_color )

dump i_return_value

dump s_text

dump i_text_color

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set new legend text attributes

s_text = "Sample"

IF( i_text_color == 7 ) THEN

   i_text_color = 6

ELSE

   i_text_color = 7

ENDIF

i_return_value =                                 @

   xy_legend_text_set                            @

      (  s_text,                                 @

         i_text_color )

dump i_return_value

#---------------------------------------------------------------------

#  Get the legend text attributes

i_return_value =                                 @

   xy_legend_text_get                            @

      (  s_text,                                 @

         i_text_color )

dump i_return_value

dump s_text

dump i_text_color

#---------------------------------------------------------------------


xy_legend_text_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_legend_text_set()

#                      This file opens a new database "new.db",

#                      creates a window and a curve in it. Later it

#                      gets the legend text attributes for the curve.

#                      Finally it sets the legend text attributes and

#                      gets them 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 xy_legend_text_set()

#  has the following arguments:

#  xy_legend_text_set

#     (  text,

#        text_color )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_text[256]

INTEGER  i_text_color

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create a XY curve

i_return_value =                                 @

   xy_curve_create                               @

      (  "new_curve" , "new_curve" , 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  "new_curve", FALSE, 5,                  @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display title flag to TRUE

i_return_value =                                 @

   xy_legend_display_title_set                   @

      (  TRUE  )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display legend flag to TRUE

i_return_value =                                 @

   xy_legend_display_set                         @

      (  TRUE  )

dump i_return_value

#---------------------------------------------------------------------

#  Get the legend text attributes

i_return_value =                                 @

   xy_legend_text_get                            @

      (  s_text,                                 @

         i_text_color )

dump i_return_value

dump s_text

dump i_text_color

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set new legend text attributes

s_text = "Sample"

IF( i_text_color == 7 ) THEN

   i_text_color = 6

ELSE

   i_text_color = 7

ENDIF

i_return_value =                                 @

   xy_legend_text_set                            @

      (  s_text,                                 @

         i_text_color )

dump i_return_value

#---------------------------------------------------------------------

#  Get the legend text attributes

i_return_value =                                 @

   xy_legend_text_get                            @

      (  s_text,                                 @

         i_text_color )

dump i_return_value

dump s_text

dump i_text_color

#---------------------------------------------------------------------


xy_title_current_set	()

#  Purpose          :  This file provides an example of two calls to

#                      the function xy_title_current_set()

#                      This file opens a new database "new.db",

#                      creates a window and two titles in it. Later it

#                      sets first title as current and verifies by

#                      getting it. Finally it sets the second title as

#                      current 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 xy_title_current_set()

#  has the following arguments:

#  xy_title_current_set

#     (  title_name )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_title_name[256]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create a XY curve

i_return_value =                                 @

   xy_curve_create                               @

      (  "new_curve" , "new_curve" , 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  "new_curve", FALSE, 5,                  @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Create two titles

i_return_value =                                 @

   xy_title_create                               @

      (  "title_one", "T1", 12, [60., 50.], 7 )

dump i_return_value

i_return_value =                                 @

   xy_title_create                               @

      (  "title_two", "T2", 12, [77., 50.], 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Set the first title as current

s_title_name = "title_one"

i_return_value =                                 @

   xy_title_current_set                          @

      ( s_title_name )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value

s_title_name = ""

#---------------------------------------------------------------------

#  Get the current title

i_return_value =                                 @

   xy_title_current_get                          @

      ( s_title_name )

dump i_return_value

dump s_title_name

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the second title as current

s_title_name = "title_two"

i_return_value =                                 @

   xy_title_current_set                          @

      ( s_title_name )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value

s_title_name = ""

#---------------------------------------------------------------------

#  Get the current title

i_return_value =                                 @

   xy_title_current_get                          @

      ( s_title_name )

dump i_return_value

dump s_title_name

#---------------------------------------------------------------------


xy_title_font_get	()

#  Purpose          :  This file provides an example of two calls to

#                      the function xy_title_font_get()

#                      This file opens a new database "new.db",

#                      creates a window, a curve and a title in it.

#                      Later it gets the title font size. Finally it

#                      sets the title font size 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 xy_title_font_get()

#  has the following arguments:

#  xy_title_font_get

#     (  title_name,

#        font_size )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_title_name[256]

INTEGER  i_font_size

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

i_return_value =                                 @

   xy_curve_create                               @

      (  "new_xy_curve", "new_xy_curve", 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  "new_xy_curve", FALSE, 5,               @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Create a title

s_title_name     = "new_title_name"

i_return_value =                                 @

   xy_title_create                               @

      (  s_title_name, "T", 10, [77., 50.], 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Get the title font size

i_return_value =                                 @

   xy_title_font_get                             @

      (  s_title_name,                           @

         i_font_size )

dump i_return_value

dump i_font_size

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the title font size

i_font_size = 16

i_return_value =                                 @

   xy_title_font_set                             @

      (  s_title_name,                           @

         i_font_size )

dump i_return_value

#---------------------------------------------------------------------

#  Get the title font size

i_return_value =                                 @

   xy_title_font_get                             @

      (  s_title_name,                           @

         i_font_size )

dump i_return_value

dump i_font_size

#---------------------------------------------------------------------


xy_title_font_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_title_font_set()

#                      This file opens a new database "new.db",

#                      creates a window, a curve and a title in it.

#                      Later it gets the title font size. Finally it

#                      sets the title font size 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 xy_title_font_set()

#  has the following arguments:

#  xy_title_font_set

#     (  title_name,

#        font_size )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_title_name[256]

INTEGER  i_font_size

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

i_return_value =                                 @

   xy_curve_create                               @

      (  "new_xy_curve", "new_xy_curve", 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  "new_xy_curve", FALSE, 5,               @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Create a title

s_title_name     = "new_title_name"

i_return_value =                                 @

   xy_title_create                               @

      (  s_title_name, "T", 10, [77., 50.], 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Get the title font size

i_return_value =                                 @

   xy_title_font_get                             @

      (  s_title_name,                           @

         i_font_size )

dump i_return_value

dump i_font_size

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the title font size

i_font_size = 16

i_return_value =                                 @

   xy_title_font_set                             @

      (  s_title_name,                           @

         i_font_size )

dump i_return_value

#---------------------------------------------------------------------

#  Get the title font size

i_return_value =                                 @

   xy_title_font_get                             @

      (  s_title_name,                           @

         i_font_size )

dump i_return_value

dump i_font_size

#---------------------------------------------------------------------


xy_title_rename	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_title_rename()

#                      This file opens a new database "new.db",

#                      creates a window and a title in it. Later it

#                      gets the list of titles. Finally it renames the

#                      title and gets the list 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 xy_title_rename()

#  has the following arguments:

#  xy_title_rename

#     (  old_name,

#        new_name )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_old_name[256]

STRING   s_new_name[256]

STRING   sa_title_list[256](1)

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create a XY curve

i_return_value =                                 @

   xy_curve_create                               @

      (  "new_curve" , "new_curve" , 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  "new_curve", FALSE, 5,                  @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Create a title

s_old_name     = "title_name"

i_return_value =                                 @

   xy_title_create                               @

      (  s_old_name, "T", 10, [60., 50.], 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Get the list of titles

i_return_value =                                 @

   xy_title_list_get                             @

      (  sa_title_list )

dump sa_title_list

dump i_return_value

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Rename the title

s_new_name = "new_title_name"

i_return_value =                                 @

   xy_title_rename                               @

      (  s_old_name,                             @

         s_new_name )

dump i_return_value

#---------------------------------------------------------------------

#  Get the list of titles

i_return_value =                                 @

   xy_title_list_get                             @

      (  sa_title_list )

dump sa_title_list

dump i_return_value

#---------------------------------------------------------------------


xy_title_text_get	()

#  Purpose          :  This file provides an example of two calls to

#                      the function xy_title_text_get()

#                      This file opens a new database "new.db",

#                      creates a window, a curve and a title in it.

#                      Later it gets the text attributes for the title

#                      Finally it sets the title text attributes and

#                      gets them 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 xy_title_text_get()

#  has the following arguments:

#  xy_title_text_get

#     (  title_name,

#        text,

#        location,

#        text_color )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_title_name[256]

STRING   s_text[256]

REAL     ra_location(2)

INTEGER  i_text_color

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

i_return_value =                                 @

   xy_curve_create                               @

      (  "new_xy_curve", "new_xy_curve", 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  "new_xy_curve", FALSE, 5,               @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Create a title

s_title_name     = "new_title_name"

i_return_value =                                 @

   xy_title_create                               @

      (  s_title_name, "T", 10, [77., 50.], 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Get the title text attributes

i_return_value =                                 @

   xy_title_text_get                             @

      (  s_title_name,                           @

         s_text,                                 @

         ra_location,                            @

         i_text_color )

dump i_return_value

dump s_text

dump ra_location

dump i_text_color

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the title text attributes

s_text        = "N"

ra_location   = [30., 65.]

i_text_color  = 6

i_return_value =                                 @

   xy_title_text_set                             @

      (  s_title_name,                           @

         s_text,                                 @

         ra_location,                            @

         i_text_color )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the values.

s_text        = ""

ra_location   = [0., 0.]

i_text_color  = 0

#---------------------------------------------------------------------

#  Get the title text attributes

i_return_value =                                 @

   xy_title_text_get                             @

      (  s_title_name,                           @

         s_text,                                 @

         ra_location,                            @

         i_text_color )

dump i_return_value

dump s_text

dump ra_location

dump i_text_color

#---------------------------------------------------------------------


xy_title_text_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_title_text_set()

#                      This file opens a new database "new.db",

#                      creates a window, a curve and a title in it.

#                      Later it gets the text attributes for the title

#                      Finally it sets the title text attributes and

#                      gets them 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 xy_title_text_set()

#  has the following arguments:

#  xy_title_text_set

#     (  title_name,

#        text,

#        location,

#        text_color )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_title_name[256]

STRING   s_text[256]

REAL     ra_location(2)

INTEGER  i_text_color

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

i_return_value =                                 @

   xy_window_create                              @

      (  "new_xy_window", 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Create XY curve

i_return_value =                                 @

   xy_curve_create                               @

      (  "new_xy_curve", "new_xy_curve", 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Assign data points to the curve

i_return_value =                                 @

   xy_curve_data_set                             @

      (  "new_xy_curve", FALSE, 5,               @

         [1., 3., 6., 8., 9.],                   @

         [2., 8., 4., 9., 5.]   )

dump i_return_value

#---------------------------------------------------------------------

#  Create a title

s_title_name     = "new_title_name"

i_return_value =                                 @

   xy_title_create                               @

      (  s_title_name, "T", 10, [77., 50.], 7 )

dump i_return_value

#---------------------------------------------------------------------

#  Get the title text attributes

i_return_value =                                 @

   xy_title_text_get                             @

      (  s_title_name,                           @

         s_text,                                 @

         ra_location,                            @

         i_text_color )

dump i_return_value

dump s_text

dump ra_location

dump i_text_color

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the title text attributes

s_text        = "N"

ra_location   = [30., 65.]

i_text_color  = 6

i_return_value =                                 @

   xy_title_text_set                             @

      (  s_title_name,                           @

         s_text,                                 @

         ra_location,                            @

         i_text_color )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the values.

s_text        = ""

ra_location   = [0., 0.]

i_text_color  = 0

#---------------------------------------------------------------------

#  Get the title text attributes

i_return_value =                                 @

   xy_title_text_get                             @

      (  s_title_name,                           @

         s_text,                                 @

         ra_location,                            @

         i_text_color )

dump i_return_value

dump s_text

dump ra_location

dump i_text_color

#---------------------------------------------------------------------


xy_window_background_color_get	()

#  Purpose          :  This file provides an example of two calls to

#                      the function xy_window_background_color_get()

#                      This file opens a new database "new.db" and

#                      creates a window in it. Later it gets the

#                      graph background color for the window. Finally

#                      it sets the graph background color 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 xy_window_background_color_get()

#  has the following arguments:

#  xy_window_background_color_get

#     (  window_name,

#        bgcolor )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_window_name[32]

INTEGER  i_bgcolor

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

s_window_name  = "new_xy_window"

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name, 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Get the graph background color for the window

i_return_value =                                 @

   xy_window_background_color_get                @

      (  s_window_name,                          @

         i_bgcolor )

dump i_return_value

dump i_bgcolor

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the graph background color

IF( i_bgcolor == 0 ) THEN

   i_bgcolor = 8

ELSE

   i_bgcolor = 0

ENDIF

i_return_value =                                 @

   xy_window_background_color_set                @

      (  s_window_name,                          @

         i_bgcolor )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value

i_bgcolor = 0

#---------------------------------------------------------------------

#  Get the graph background color

i_return_value =                                 @

   xy_window_background_color_get                @

      (  s_window_name,                          @

         i_bgcolor )

dump i_return_value

dump i_bgcolor

#---------------------------------------------------------------------


xy_window_background_color_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_window_background_color_set()

#                      This file opens a new database "new.db" and

#                      creates a window in it. Later it gets the

#                      graph background color for the window. Finally

#                      it sets the graph background color 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 xy_window_background_color_set()

#  has the following arguments:

#  xy_window_background_color_set

#     (  window_name,

#        bgcolor )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_window_name[32]

INTEGER  i_bgcolor

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

s_window_name  = "new_xy_window"

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name, 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Get the graph background color for the window

i_return_value =                                 @

   xy_window_background_color_get                @

      (  s_window_name,                          @

         i_bgcolor )

dump i_return_value

dump i_bgcolor

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the graph background color

IF( i_bgcolor == 0 ) THEN

   i_bgcolor = 8

ELSE

   i_bgcolor = 0

ENDIF

i_return_value =                                 @

   xy_window_background_color_set                @

      (  s_window_name,                          @

         i_bgcolor )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value

i_bgcolor = 0

#---------------------------------------------------------------------

#  Get the graph background color

i_return_value =                                 @

   xy_window_background_color_get                @

      (  s_window_name,                          @

         i_bgcolor )

dump i_return_value

dump i_bgcolor

#---------------------------------------------------------------------


xy_window_border_color_get	()

#  Purpose          :  This file provides an example of two calls to

#                      the function xy_window_border_color_get()

#                      This file opens a new database "new.db" and

#                      creates a window in it. Later it gets the

#                      display border color for the window. Finally it

#                      sets the display border color 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 xy_window_border_color_get()

#  has the following arguments:

#  xy_window_border_color_get

#     (  window_name,

#        border_color )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_window_name[32]

INTEGER  i_border_color

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

s_window_name  = "new_xy_window"

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name, 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display graph border flag to TRUE

i_return_value =                                 @

   xy_window_display_border_set                  @

      (  s_window_name, TRUE )

dump i_return_value

#---------------------------------------------------------------------

#  Get the display border color for the window

i_return_value =                                 @

   xy_window_border_color_get                    @

      (  s_window_name,                          @

         i_border_color )

dump i_return_value

dump i_border_color

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue.

sf_pause()

#---------------------------------------------------------------------

#  Set the display border color

IF( i_border_color == 7 ) THEN

   i_border_color = 6

ELSE

   i_border_color = 7

ENDIF

i_return_value =                                 @

   xy_window_border_color_set                    @

      (  s_window_name,                          @

         i_border_color )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value

i_border_color = 0

#---------------------------------------------------------------------

#  Get the display border color

i_return_value =                                 @

   xy_window_border_color_get                    @

      (  s_window_name,                          @

         i_border_color )

dump i_return_value

dump i_border_color

#---------------------------------------------------------------------


xy_window_border_color_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_window_border_color_set()

#                      This file opens a new database "new.db" and

#                      creates a window in it. Later it gets the

#                      display border color for the window. Finally it

#                      sets the display border color 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 xy_window_border_color_set()

#  has the following arguments:

#  xy_window_border_color_set

#     (  window_name,

#        border_color )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_window_name[32]

INTEGER  i_border_color

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

s_window_name  = "new_xy_window"

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name, 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display graph border flag to TRUE

i_return_value =                                 @

   xy_window_display_border_set                  @

      (  s_window_name, TRUE )

dump i_return_value

#---------------------------------------------------------------------

#  Get the display border color for the window

i_return_value =                                 @

   xy_window_border_color_get                    @

      (  s_window_name,                          @

         i_border_color )

dump i_return_value

dump i_border_color

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the display border color

IF( i_border_color == 7 ) THEN

   i_border_color = 6

ELSE

   i_border_color = 7

ENDIF

i_return_value =                                 @

   xy_window_border_color_set                    @

      (  s_window_name,                          @

         i_border_color )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value

i_border_color = 0

#---------------------------------------------------------------------

#  Get the display border color

i_return_value =                                 @

   xy_window_border_color_get                    @

      (  s_window_name,                          @

         i_border_color )

dump i_return_value

dump i_border_color

#---------------------------------------------------------------------


xy_window_border_linestyle_get	()

#  Purpose          :  This file provides an example of two calls to

#                      the function xy_window_border_linestyle_get()

#                      This file opens a new database "new.db" and

#                      creates a window in it. Later it gets the

#                      border curve style for the window. Finally it

#                      sets the border curve style 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 xy_window_border_linestyle_get()

#  has the following arguments:

#  xy_window_border_linestyle_get

#     (  window_name,

#        curve_style )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_window_name[32]

STRING   s_curve_style[32]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

s_window_name  = "new_xy_window"

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name, 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display graph border flag to TRUE

i_return_value =                                 @

   xy_window_display_border_set                  @

      (  s_window_name, TRUE )

dump i_return_value

#---------------------------------------------------------------------

#  Get the border curve style for the window

i_return_value =                                 @

   xy_window_border_linestyle_get                @

      (  s_window_name,                          @

         s_curve_style )

dump i_return_value

dump s_curve_style

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the border curve style for the window

IF( s_curve_style == "Solid" ) THEN

   s_curve_style = "Dotted"

ELSE

   s_curve_style = "Solid"

ENDIF

i_return_value =                                 @

   xy_window_border_linestyle_set                @

      (  s_window_name,                          @

         s_curve_style )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value

s_curve_style = ""

#---------------------------------------------------------------------

#  Get the border curve style for the window

i_return_value =                                 @

   xy_window_border_linestyle_get                @

      (  s_window_name,                          @

         s_curve_style )

dump i_return_value

dump s_curve_style

#---------------------------------------------------------------------


xy_window_border_linestyle_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_window_border_linestyle_set()

#                      This file opens a new database "new.db" and

#                      creates a window in it. Later it gets the

#                      border curve style for the window. Finally it

#                      sets the border curve style 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 xy_window_border_linestyle_set()

#  has the following arguments:

#  xy_window_border_linestyle_set

#     (  window_name,

#        curve_style )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_window_name[32]

STRING   s_curve_style[32]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

s_window_name  = "new_xy_window"

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name, 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display graph border flag to TRUE

i_return_value =                                 @

   xy_window_display_border_set                  @

      (  s_window_name, TRUE )

dump i_return_value

#---------------------------------------------------------------------

#  Get the border curve style for the window

i_return_value =                                 @

   xy_window_border_linestyle_get                @

      (  s_window_name,                          @

         s_curve_style )

dump i_return_value

dump s_curve_style

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the border curve style for the window

IF( s_curve_style == "Solid" ) THEN

   s_curve_style = "Dotted"

ELSE

   s_curve_style = "Solid"

ENDIF

i_return_value =                                 @

   xy_window_border_linestyle_set                @

      (  s_window_name,                          @

         s_curve_style )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value

s_curve_style = ""

#---------------------------------------------------------------------

#  Get the border curve style for the window

i_return_value =                                 @

   xy_window_border_linestyle_get                @

      (  s_window_name,                          @

         s_curve_style )

dump i_return_value

dump s_curve_style

#---------------------------------------------------------------------


xy_window_border_thickness_get	()

#  Purpose          :  This file provides an example of two calls to

#                      the function xy_window_border_thickness_get()

#                      This file opens a new database "new.db" and

#                      creates a window in it. Later it gets the

#                      border thickness for the window. Finally it

#                      sets the border thickness 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 xy_window_border_thickness_get()

#  has the following arguments:

#  xy_window_border_thickness_get

#     (  window_name,

#        thickness )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_window_name[32]

INTEGER  i_thickness

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

s_window_name  = "new_xy_window"

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name, 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display graph border flag to TRUE

i_return_value =                                 @

   xy_window_display_border_set                  @

      (  s_window_name, TRUE )

dump i_return_value

#---------------------------------------------------------------------

#  Get the border thickness for the window

i_return_value =                                 @

   xy_window_border_thickness_get                @

      (  s_window_name,                          @

         i_thickness )

dump i_return_value

dump i_thickness

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the border thickness

IF( i_thickness == 1 ) THEN

   i_thickness = 3

ELSE

   i_thickness = 1

ENDIF

i_return_value =                                 @

   xy_window_border_thickness_set                @

      (  s_window_name,                          @

         i_thickness )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value

i_thickness = 0

#---------------------------------------------------------------------

#  Get the display border color

i_return_value =                                 @

   xy_window_border_thickness_get                @

      (  s_window_name,                          @

         i_thickness )

dump i_return_value

dump i_thickness

#---------------------------------------------------------------------


xy_window_border_thickness_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_window_border_thickness_set()

#                      This file opens a new database "new.db" and

#                      creates a window in it. Later it gets the

#                      border thickness for the window. Finally it

#                      sets the border thickness 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 xy_window_border_thickness_set()

#  has the following arguments:

#  xy_window_border_thickness_set

#     (  window_name,

#        thickness )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_window_name[32]

INTEGER  i_thickness

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

s_window_name  = "new_xy_window"

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name, 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Set the display graph border flag to TRUE

i_return_value =                                 @

   xy_window_display_border_set                  @

      (  s_window_name, TRUE )

dump i_return_value

#---------------------------------------------------------------------

#  Get the border thickness for the window

i_return_value =                                 @

   xy_window_border_thickness_get                @

      (  s_window_name,                          @

         i_thickness )

dump i_return_value

dump i_thickness

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the border thickness

IF( i_thickness == 1 ) THEN

   i_thickness = 3

ELSE

   i_thickness = 1

ENDIF

i_return_value =                                 @

   xy_window_border_thickness_set                @

      (  s_window_name,                          @

         i_thickness )

dump i_return_value

#---------------------------------------------------------------------

#  Reset the value

i_thickness = 0

#---------------------------------------------------------------------

#  Get the display border color

i_return_value =                                 @

   xy_window_border_thickness_get                @

      (  s_window_name,                          @

         i_thickness )

dump i_return_value

dump i_thickness

#---------------------------------------------------------------------


xy_window_display_border_get	()

#  Purpose          :  This file provides an example of two calls to

#                      the function xy_window_display_border_get()

#                      This file opens a new database "new.db" and

#                      creates a window in it. Later it gets the

#                      display graph border flag for the curve.

#                      Finally it sets the display graph border flag

#                      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 xy_window_display_border_get()

#  has the following arguments:

#  xy_window_display_border_get

#     (  window_name,

#        border_flag )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_window_name[32]

LOGICAL  l_border_flag

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

s_window_name  = "new_xy_window"

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name, 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Get the display graph border flag

i_return_value =                                 @

   xy_window_display_border_get                  @

      (  s_window_name,                          @

         l_border_flag )

dump i_return_value

dump l_border_flag

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the display graph border flag

IF( l_border_flag == TRUE ) THEN

   l_border_flag = FALSE

ELSE

   l_border_flag = TRUE

ENDIF

i_return_value =                                 @

   xy_window_display_border_set                  @

      (  s_window_name,                          @

         l_border_flag )

dump i_return_value

#---------------------------------------------------------------------

#  Get the display graph border flag

i_return_value =                                 @

   xy_window_display_border_get                  @

      (  s_window_name,                          @

         l_border_flag )

dump i_return_value

dump l_border_flag

#---------------------------------------------------------------------


xy_window_display_border_set	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_window_display_border_set()

#                      This file opens a new database "new.db" and

#                      creates a window in it. Later it gets the

#                      display graph border flag for the curve.

#                      Finally it sets the display graph border flag

#                      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 xy_window_display_border_set()

#  has the following arguments:

#  xy_window_display_border_set

#     (  window_name,

#        border_flag )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_window_name[32]

LOGICAL  l_border_flag

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create a new XY window

s_window_name  = "new_xy_window"

i_return_value =                                 @

   xy_window_create                              @

      (  s_window_name, 2.5, 3.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Get the display graph border flag

i_return_value =                                 @

   xy_window_display_border_get                  @

      (  s_window_name,                          @

         l_border_flag )

dump i_return_value

dump l_border_flag

#---------------------------------------------------------------------

#  Session file paused. Press "Resume" to continue..

sf_pause()

#---------------------------------------------------------------------

#  Set the display graph border flag

IF( l_border_flag == TRUE ) THEN

   l_border_flag = FALSE

ELSE

   l_border_flag = TRUE

ENDIF

i_return_value =                                 @

   xy_window_display_border_set                  @

      (  s_window_name,                          @

         l_border_flag )

dump i_return_value

#---------------------------------------------------------------------

#  Get the display graph border flag

i_return_value =                                 @

   xy_window_display_border_get                  @

      (  s_window_name,                          @

         l_border_flag )

dump i_return_value

dump l_border_flag

#---------------------------------------------------------------------


xy_window_id_get	()

#  Purpose          :  This file provides an example of a call to the

#                      function xy_window_id_get()

#                      This file opens a new database "new.db" and

#                      creates two windows in it. Later it gets the

#                      IDs of these windows.

#                      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 xy_window_id_get()

#  has the following arguments:

#  xy_window_id_get

#     (  window_name,

#        window_id )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_window_name[32]

INTEGER  i_window_id

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#---------------------------------------------------------------------

#  Create two XY windows

i_return_value =                                 @

   xy_window_create                              @

      (  "xy_window_one", 2.5, 3.5, 5., 5. )

dump i_return_value

i_return_value =                                 @

   xy_window_create                              @

      (  "xy_window_two", 3.5, 4.5, 5., 5. )

dump i_return_value

#---------------------------------------------------------------------

#  Get the ID of the first window

s_window_name  = "xy_window_one"

i_return_value =                                 @

   xy_window_id_get                              @

      (  s_window_name,                          @

         i_window_id )

dump i_return_value

dump i_window_id

#---------------------------------------------------------------------

#  Get the ID of the second window

s_window_name  = "xy_window_two"

i_return_value =                                 @

   xy_window_id_get                              @

      (  s_window_name,                          @

         i_window_id )

dump i_return_value

dump i_window_id

#---------------------------------------------------------------------