Disassemble Actions

PCL Examples > Geometry Functions > Disassemble Actions

Disassemble Actions

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


sgm_disassemble_chain	()

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

#                      function sgm_disassemble_chain()

#                      In this illustration, a new database is opened

#                      2 lines are created. Then  the two curves are

#                      joined to create a chain of curves. Finally

#                      the function is called to disassemble the two

#                      curves.

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

#  has the following arguments:

#  sgm_disassemble_chain

#     (  curve_list,

#        delete_orig )

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

#  Variable Declarations

STRING   s_curve_list[128]

LOGICAL  l_delete_orig

INTEGER  i_return_value

STRING   sv_asm_create_line_xyz_creat_id[VIRTUAL]

INTEGER  i_sgm_create_curve_cha_seg_id

STRING   sv_sgm_create_curve_ch_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the curves

curve_label(TRUE)

#  Create 2 curves

i_return_value =                                 @

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

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

      sv_asm_create_line_xyz_creat_id )

dump i_return_value

#  Create a chain of curve using Curve 1 2. Delete the original

#  curves.

i_return_value =                                 @

   sgm_create_curve_chain_v1( "", "Curve 1 2 ",  @

      TRUE, i_sgm_create_curve_cha_seg_id,       @

      sv_sgm_create_curve_ch_creat_id )

$? YES 38000217

dump i_return_value

#  Observe the Curve 3. It is a chain.

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

sf_pause()

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

#  Disassemble the Curve 3 into Curve 4 & 5. Delete the Curve 3.

s_curve_list = "Curve 3"

l_delete_orig = TRUE

i_return_value =                                 @

   sgm_disassemble_chain                         @

      (  s_curve_list,                           @

         l_delete_orig )

$? YES 38000217

dump i_return_value

sys_free_string( sv_asm_create_line_xyz_creat_id )

sys_free_string( sv_sgm_create_curve_ch_creat_id )

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


sgm_disassemble_tsurf	()

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

#                      function sgm_disassemble_tsurf()

#                      In this illustration, a new database is opened.

#                      A trimmed surface is created. The function is

#                      called to disassemble the trimmed surface into

#                      its parent surface and edge curves.

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

#  has the following arguments:

#  sgm_disassemble_tsurf

#     (  surface_list,

#        delete_orig )

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

#  Variable Declarations

STRING   s_surface_list[128]

LOGICAL  l_delete_orig

INTEGER  i_return_value

STRING   s_output_ids[128]

STRING   s_curveo_list[128]

STRING   s_curvei_list[128]

STRING   s_surface[128]

LOGICAL  l_delete_ocurve

LOGICAL  l_delete_icurve

LOGICAL  l_delete_surf

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_sgm_create_curve_aut_segt_id

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

STRING   sv_asm_create_grid_xyz_creat_id[VIRTUAL]

STRING   sv_asm_line_2point_creat_id[VIRTUAL]

STRING   sv_sgm_create_curve_2d_creat_id[VIRTUAL]

STRING   sv_sgm_creat_cur_creat_curve_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the surfaces and curves.

surface_label(TRUE)

curve_label(TRUE)

#  Create a patch.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

#  Create 4 points.

i_return_value =                                 @

   asm_const_grid_xyz( "", "[5 0 0] [0 5 0] "//  @

      "[5 10 0][10 5 0]",                        @

      "Coord 0", sv_asm_create_grid_xyz_creat_id )

dump i_return_value

#  Create 4 curves.

i_return_value =                                 @

   asm_const_line_2point( "", "Point 5:8 ",      @

      "Point 6 7 8 5", 0, "", 50., 1,            @

      sv_asm_line_2point_creat_id )

dump i_return_value

#  Create a circular curve.

i_return_value =                                 @

   sgm_const_curve_2d_circle_v1( "", 1, 1.,      @

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

      sv_sgm_create_curve_2d_creat_id )

dump i_return_value

#  Convert the Curve 1:4 into a chain curve.

i_return_value =                                 @

   sgm_create_curve_chain_v1( "10",              @

   " Curve 1:4", TRUE,                           @

   i_sgm_create_curve_aut_segt_id,               @

   sv_sgm_creat_cur_creat_curve_id )

$? YES 38000217

#  Observe the curves and the surface.

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

sf_pause()

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

#  Call the function to create a trimmed surface inside Surface 1

#  with Curve 10 as outer boundary trim curve and Curve 5 as inner

#  boundary trim curve.

s_output_ids = "2"

s_curveo_list = "Curve 10"

s_curvei_list = "Curve 5"

s_surface = "Surface 1"

l_delete_ocurve = TRUE

l_delete_icurve = TRUE

l_delete_surf = TRUE

i_return_value =                                 @

   sgm_create_surface_trimmed                    @

      (  s_output_ids,                           @

         s_curveo_list,                          @

         s_curvei_list,                          @

         s_surface,                              @

         l_delete_ocurve,                        @

         l_delete_icurve,                        @

         l_delete_surf,                          @

         sv_created_ids )

$? YES 38000217

$? YES 38000217

$? YES 38000219

dump i_return_value

#  Created surface is

dump sv_created_ids

#  Observe the trimmed surface created.

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

sf_pause()

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

#  Call the function to disassemble the trimmed surface into its

#  parent surface.

s_surface_list = "Surface 2"

l_delete_orig = TRUE

i_return_value =                                 @

   sgm_disassemble_tsurf                         @

      (  s_surface_list,                         @

         l_delete_orig )

$? YES 38000219

dump i_return_value

sys_free_string( sv_created_ids )

sys_free_string( sv_asm_create_patch_xy_creat_id )

sys_free_string( sv_asm_create_grid_xyz_creat_id )

sys_free_string( sv_asm_line_2point_creat_id )

sys_free_string( sv_sgm_create_curve_2d_creat_id )

sys_free_string( sv_sgm_creat_cur_creat_curve_id )

#  Press "Refresh Graphics" radio button to repaint the graphics

#  window.

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


sgm_disassemble_solid	()

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

#                      function sgm_disassemble_solid()

#                      In this illustration, a new database is opened.

#                      A solid is created. Then the function is called

#                      to disassemble the solid into its subordinate

#                      surface faces.

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

#  has the following arguments:

#  sgm_disassemble_solid

#     (  solid_list,

#        delete_orig,

#        crtd_lab )

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

#  Variable Declarations

STRING   s_solid_list[128]

LOGICAL  l_delete_orig

STRING   sv_crtd_lab[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_create_hpat_xyz_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the surfaces and solids.

surface_label(TRUE)

solid_label(TRUE)

i_return_value =                                 @

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

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

      sv_asm_create_hpat_xyz_creat_id )

dump i_return_value

#  Change the view

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

#  Observe the solid created.

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

sf_pause()

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

#  Call the function to disassemble the solid into its subordinate

#  surface faces.

s_solid_list = " Solid 1"

l_delete_orig = TRUE

i_return_value =                                 @

   sgm_disassemble_solid                         @

      (  s_solid_list,                           @

         l_delete_orig,                          @

         sv_crtd_lab )

dump i_return_value

#  The surfaces created

dump sv_crtd_lab

sys_free_string( sv_crtd_lab )

sys_free_string( sv_asm_create_hpat_xyz_creat_id )

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

Associate Actions

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


sgm_associate_point_curve	()

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

#                      function sgm_associate_point_curve()

#                      This illustration opens a new database and

#                      creates 3 points in it. Using Point 1 and 2,

#                      it creates a line. Finally the function is

#                      called to associate Point 3 to Curve 1.

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

#  has the following arguments:

#  sgm_associate_point_curve

#     (  point_list,

#        curve_list,

#        joined_list )

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

#  Variable Declarations

STRING   s_point_list[128]

STRING   s_curve_list[128]

STRING   sv_joined_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_line_2point_created_id[VIRTUAL]

STRING   sv_asm_create_grid_xyz_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of Curves and Points.

curve_label(TRUE)

point_label(TRUE)

#  Create 3 points.

i_return_value =                                 @

   asm_const_grid_xyz                            @

      ( "", "[0 0 0][10 0 0][5 0 0]",            @

        "Coord 0",                               @

        sv_asm_create_grid_xyz_creat_id )

dump i_return_value

#  Create a line between Point 1 and 2.

i_return_value =                                 @

   asm_const_line_2point( "", "Point 1",         @

      "Point 2", 0, "", 50., 1,                  @

      sv_asm_line_2point_created_id )

dump i_return_value

#  Observe the Curve 1 and Point 3 on it. Note that Point 3 is not

#  associated to the Curve 1.

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

sf_pause()

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

#  Call the function to associate Point 3 to Curve 1.

s_point_list = "Point 3"

s_curve_list = "Curve 1"

i_return_value =                                 @

   sgm_associate_point_curve                     @

      (  s_point_list,                           @

         s_curve_list,                           @

         sv_joined_list )

dump i_return_value

#  Joined entities are

dump sv_joined_list

sys_free_string( sv_joined_list )

sys_free_string( sv_asm_line_2point_created_id )

sys_free_string( sv_asm_create_grid_xyz_creat_id )

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


sgm_associate_point_surface	()

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

#                      function sgm_associate_point_surface()

#                      This illustration opens a new database and

#                      creates a Patch in it. Four points are created

#                      on that patch. Function is called to associate

#                      the points to the patch.

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

#  has the following arguments:

#  sgm_associate_point_surface

#     (  point_list,

#        surface_list,

#        joined_list )

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

#  Variable Declarations

STRING   s_point_list[128]

STRING   s_surface_list[128]

STRING   sv_joined_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_create_grid_xyz_creat_id[VIRTUAL]

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of Points and Surfaces.

point_label(TRUE)

surface_label(TRUE)

#  Create a Patch.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

#  Create 4 points.

i_return_value =                                 @

   asm_const_grid_xyz                            @

      ( "", "[5 0 0][10 5 0][0 5 0][5 10 0]",    @

        "Coord 0",                               @

        sv_asm_create_grid_xyz_creat_id )

dump i_return_value

#  Observe the Patch and the Points.

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

sf_pause()

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

#  Call the function to associate Point 5:8 to Surface 1.

s_point_list = "Point 5:8"

s_surface_list = "Surface 1"

i_return_value =                                 @

   sgm_associate_point_surface                   @

      (  s_point_list,                           @

         s_surface_list,                         @

         sv_joined_list )

dump i_return_value

#  List of joined entities

dump sv_joined_list

sys_free_string( sv_joined_list )

sys_free_string( sv_asm_create_grid_xyz_creat_id )

sys_free_string( sv_asm_create_patch_xy_creat_id )

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


sgm_associate_curve_curve	()

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

#                      function sgm_associate_curve_curve()

#                      This illustration opens a new database and

#                      creates two curves in it. Then it calls the

#                      function to associate Curve 1 to Curve 2.

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

#  has the following arguments:

#  sgm_associate_curve_curve

#     (  curve_list1,

#        curve_list2,

#        joined_list )

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

#  Variable Declarations

STRING   s_curve_list1[128]

STRING   s_curve_list2[128]

STRING   sv_joined_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_create_line_xyz_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the curve labels.

curve_label(TRUE)

#  Create 2 Curves

i_return_value =                                 @

   asm_const_line_xyz( "", "<5 0 0><10 0 0>",    @

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

      sv_asm_create_line_xyz_creat_id )

dump i_return_value

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

#  Associate Curve 1 to Curve 2.

s_curve_list1 = "Curve 1"

s_curve_list2 = "Curve 2"

i_return_value =                                 @

   sgm_associate_curve_curve                     @

      (  s_curve_list1,                          @

         s_curve_list2,                          @

         sv_joined_list )

dump i_return_value

#  Joined curves are

dump sv_joined_list

sys_free_string( sv_joined_list )

sys_free_string( sv_asm_create_line_xyz_creat_id )

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


sgm_associate_curve_surface	()

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

#                      function sgm_associate_curve_surface()

#                      This illustration opens a new database and

#                      creates a Curve and a Surface in it. Then it

#                      calls the function to associate Curve 1 to

#                      Surface 1.

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

#  has the following arguments:

#  sgm_associate_curve_surface

#     (  curve_list,

#        surface_list,

#        joined_list )

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

#  Variable Declarations

STRING   s_curve_list[128]

STRING   s_surface_list[128]

STRING   sv_joined_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_create_line_xyz_creat_id[VIRTUAL]

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of Curves and Surfaces.

curve_label(TRUE)

surface_label(TRUE)

#  Create a Curve.

i_return_value =                                 @

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

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

      sv_asm_create_line_xyz_creat_id )

dump i_return_value

#  Create a Patch.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

#  Observe the Patch and the Curve.

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

sf_pause()

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

#  Call the function to associate Curve 1 to Surface 1.

s_curve_list = " Curve 1"

s_surface_list = " Surface 1 "

i_return_value =                                 @

   sgm_associate_curve_surface                   @

      (  s_curve_list,                           @

         s_surface_list,                         @

         sv_joined_list )

dump i_return_value

#  Joined entities.

dump sv_joined_list

sys_free_string( sv_joined_list )

sys_free_string( sv_asm_create_line_xyz_creat_id )

sys_free_string( sv_asm_create_patch_xy_creat_id )

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

Disassociate Actions

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


sgm_disassociate_point	()

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

#                      function sgm_disassociate_point()

#                      This illustration opens a new database and

#                      creates a patch in it. It calls the function

#                      to disassociate the 4 Points associated with

#                      the patch created.

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

#  has the following arguments:

#  sgm_disassociate_point

#     (  point_list,

#        entity_list )

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

#  Variable Declarations

STRING   s_point_list[128]

STRING   sv_entity_list[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of Surfaces and Points.

surface_label(TRUE)

point_label(TRUE)

#  Create a Patch.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

#  Observe the patch created. When Patch is created in XYZ method,

#  4 points also created and associated with the patch.

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

sf_pause()

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

#  Call the function to disassociate the Point 1:4 from the Surface 1.

s_point_list = "Point 1:4"

i_return_value =                                 @

   sgm_disassociate_point                        @

      (  s_point_list,                           @

         sv_entity_list )

dump i_return_value

#  List of disassociated entities

dump sv_entity_list

sys_free_string( sv_entity_list )

sys_free_string( sv_asm_create_patch_xy_creat_id )

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


sgm_disassociate_curve	()

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

#                      function sgm_disassociate_curve()

#                      This illustration opens a new database and

#                      creates a curve and a patch in it. It

#                      associates the curve to the patch. Finally

#                      it calls the function to disassociate the

#                      curve from the patch.

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

#  has the following arguments:

#  sgm_disassociate_curve

#     (  curve_list,

#        entity_list )

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

#  Variable Declarations

STRING   s_curve_list[128]

STRING   sv_entity_list[VIRTUAL]

INTEGER  i_return_value

STRING   s_curve_list[128]

STRING   s_surface_list[128]

STRING   sv_joined_list[VIRTUAL]

STRING   sv_asm_create_line_xyz_creat_id[VIRTUAL]

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of Surfaces and Curves.

surface_label(TRUE)

curve_label(TRUE)

#  Create a Curve.

i_return_value =                                 @

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

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

      sv_asm_create_line_xyz_creat_id )

dump i_return_value

#  Create a Patch.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

#  Associate Curve 1 to Surface 1.

s_curve_list = " Curve 1"

s_surface_list = " Surface 1 "

i_return_value =                                 @

   sgm_associate_curve_surface                   @

      (  s_curve_list,                           @

         s_surface_list,                         @

         sv_joined_list )

dump i_return_value

#  Observe that Curve 1 is associated to Surface 1.

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

sf_pause()

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

#  Call the function to disassociate the Curve 1 from the Surface 1.

s_curve_list = "Curve 1"

i_return_value =                                 @

   sgm_disassociate_curve                        @

      (  s_curve_list,                           @

         sv_entity_list )

dump i_return_value

#  List of the disassociated entities

dump sv_entity_list

sys_free_string( sv_joined_list )

sys_free_string( sv_entity_list )

sys_free_string( sv_asm_create_line_xyz_creat_id )

sys_free_string( sv_asm_create_patch_xy_creat_id )

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


sgm_disassociate_surface	()

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

#                      function sgm_disassociate_surface()

#                      This illustration opens a new database and

#                      creates one curve and Surface in it. It

#                      associates the curve to the surface. Finally

#                      it calls the function to disassociate the

#                      the Surface.

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

#  has the following arguments:

#  sgm_disassociate_surface

#     (  surface_list,

#        entity_list )

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

#  Variable Declarations

STRING   s_surface_list[128]

STRING   sv_entity_list[VIRTUAL]

INTEGER  i_return_value

STRING   s_curve_list[128]

STRING   s_surface_list[128]

STRING   sv_joined_list[VIRTUAL]

STRING   sv_asm_create_line_xyz_creat_id[VIRTUAL]

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of Curves and Surfaces.

curve_label(TRUE)

surface_label(TRUE)

#  Create a Curve.

i_return_value =                                 @

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

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

      sv_asm_create_line_xyz_creat_id )

dump i_return_value

#  Create a Patch.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

#  Call the function to associate Curve 1 to Surface 1.

s_curve_list = " Curve 1"

s_surface_list = " Surface 1 "

i_return_value =                                 @

   sgm_associate_curve_surface                   @

      (  s_curve_list,                           @

         s_surface_list,                         @

         sv_joined_list )

dump i_return_value

#  Observe that the Curve 1 is associated to Surface 1.

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

sf_pause()

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

#  Call the function to disassociate the Surface 1.

s_surface_list = "Surface 1"

i_return_value =                                 @

   sgm_disassociate_surface                      @

      (  s_surface_list,                         @

         sv_entity_list )

dump i_return_value

#  List of the disassociated entities

dump sv_entity_list

sys_free_string( sv_entity_list )

sys_free_string( sv_joined_list )

sys_free_string( sv_asm_create_line_xyz_creat_id )

sys_free_string( sv_asm_create_patch_xy_creat_id )

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

Sweep Actions

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


asm_sweep_hpat_arc	()

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

#                      function asm_sweep_hpat_arc()

#                      This illustration opens a new database and

#                      creates a Surface in it. Then the Surface is

#                      swept to create the hpat.

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

#  has the following arguments:

#  asm_sweep_hpat_arc

#     (  hpat_labels,

#        axis,

#        angle,

#        offset,

#        coord_frame,

#        num_hpats,

#        surface_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_hpat_labels[128]

STRING   s_axis[128]

REAL     r_angle

REAL     r_offset

STRING   s_coord_frame[128]

INTEGER  i_num_hpats

STRING   s_surface_list[128]

STRING   sv_created_labels[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the surfaces and solids.

surface_label(TRUE)

solid_label(TRUE)

#  Create a patch.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

#  Change the view.

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

#  Observe the surface created.

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

sf_pause()

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

#  Call the function to sweep the Surface 1 about Coord 0.2 to create

#  a hpat.

s_hpat_labels = "1"

s_axis = "Coord 0.2"

r_angle = 90.0

r_offset = 0.0

s_coord_frame = "Coord 0"

i_num_hpats = 1

s_surface_list = "Surface 1"

i_return_value =                                 @

   asm_sweep_hpat_arc                            @

      (  s_hpat_labels,                          @

         s_axis,                                 @

         r_angle,                                @

         r_offset,                               @

         s_coord_frame,                          @

         i_num_hpats,                            @

         s_surface_list,                         @

         sv_created_labels )

dump i_return_value

#  Labels of the hpats created

dump sv_created_labels

sys_free_string( sv_created_labels )

sys_free_string( sv_asm_create_patch_xy_creat_id )

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


asm_sweep_hpat_extrude	()

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

#                      the function asm_sweep_hpat_extrude()

#                      This illustration opens a new database and

#                      creates a Surface in it. Then the Surface is

#                      extruded to create the hpat.

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

#  has the following arguments:

#  asm_sweep_hpat_extrude

#     (  hpat_labels,

#        delta,

#        scaleu,

#        scalev,

#        angle,

#        origin,

#        coord_frame,

#        num_hpats,

#        patch_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_hpat_labels[128]

STRING   s_delta[128]

REAL     r_scaleu

REAL     r_scalev

REAL     r_angle

STRING   s_origin[128]

STRING   s_coord_frame[128]

INTEGER  i_num_hpats

STRING   s_patch_list[128]

STRING   sv_created_labels[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the surfaces and solids.

surface_label(TRUE)

solid_label(TRUE)

#  Create a patch.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

#  Change the view.

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

#  Observe the surface created.

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

sf_pause()

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

#  Call the function to create hyperpatch by extruding Surface 1.

s_hpat_labels = ""

s_delta = "<0 0 10>"

r_scaleu = 1.0

r_scalev = 1.0

r_angle = 0.0

s_origin = "[0 0 0]"

s_coord_frame = "Coord 0"

i_num_hpats = 1

s_patch_list = "Surface 1"

i_return_value =                                 @

   asm_sweep_hpat_extrude                        @

      (  s_hpat_labels,                          @

         s_delta,                                @

         r_scaleu,                               @

         r_scalev,                               @

         r_angle,                                @

         s_origin,                               @

         s_coord_frame,                          @

         i_num_hpats,                            @

         s_patch_list,                           @

         sv_created_labels )

dump i_return_value

#  Labels of the created hyperpatch

dump sv_created_labels

#  Observe the hpat created.

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

sf_pause()

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

#  Call the function to create hyperpatch by extruding Surface 1 with

#  scaling and rotation.

s_hpat_labels = ""

s_delta = "<0 0 -10>"

r_scaleu = 0.5

r_scalev = 0.5

r_angle = 30.0

s_origin = "[5 5 0]"

s_coord_frame = "Coord 0"

i_num_hpats = 1

s_patch_list = "Surface 1"

i_return_value =                                 @

   asm_sweep_hpat_extrude                        @

      (  s_hpat_labels,                          @

         s_delta,                                @

         r_scaleu,                               @

         r_scalev,                               @

         r_angle,                                @

         s_origin,                               @

         s_coord_frame,                          @

         i_num_hpats,                            @

         s_patch_list,                           @

         sv_created_labels )

dump i_return_value

#  Labels of the created hyperpatch

dump sv_created_labels

sys_free_string( sv_asm_create_patch_xy_creat_id )

sys_free_string( sv_created_labels )

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


asm_sweep_hpat_glide	()

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

#                      function asm_sweep_hpat_glide()

#                      This illustration opens a new database and

#                      creates a Surface and a line in it. Then the

#                      Surface is glided to create the hpat.

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

#  has the following arguments:

#  asm_sweep_hpat_glide

#     (  hpat_labels,

#        scale,

#        glide_option,

#        director_line,

#        base_patch,

#        created_labels )

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

#  Variable Declarations

STRING   s_hpat_labels[128]

REAL     r_scale

INTEGER  i_glide_option

STRING   s_director_line[128]

STRING   s_base_patch[128]

STRING   sv_created_labels[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

STRING   sv_asm_create_line_xyz_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the curves, surfaces and solids.

curve_label(TRUE)

surface_label(TRUE)

solid_label(TRUE)

#  Create a patch.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

i_return_value =                                 @

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

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

      sv_asm_create_line_xyz_creat_id )

#  Change the view.

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

#  Observe the surface and line created.

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

sf_pause()

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

#  Call the function to create the hyperpatch by gliding Surface 1

#  along  Line 1.

s_hpat_labels = ""

r_scale = 1.0

i_glide_option = 0

s_director_line = "Line 1"

s_base_patch = "Surface 1"

i_return_value =                                 @

   asm_sweep_hpat_glide                          @

      (  s_hpat_labels,                          @

         r_scale,                                @

         i_glide_option,                         @

         s_director_line,                        @

         s_base_patch,                           @

         sv_created_labels )

dump i_return_value

#  Label of the hyperpatch created

dump sv_created_labels

sys_free_string( sv_created_labels )

sys_free_string( sv_asm_create_patch_xy_creat_id )

sys_free_string( sv_asm_create_line_xyz_creat_id )

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


asm_sweep_hpat_normal	()

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

#                      the function asm_sweep_hpat_normal()

#                      This illustration opens a new database and

#                      creates a Surface in it. Then hyperpatch is

#                      created with the various thickness.

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

#  has the following arguments:

#  asm_sweep_hpat_normal

#     (  hpat_labels,

#        thickness1,

#        thickness2,

#        thickness3,

#        thickness4,

#        num_patch,

#        flip,

#        surface_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_hpat_labels[128]

STRING   s_thickness1[128]

STRING   s_thickness2[128]

STRING   s_thickness3[128]

STRING   s_thickness4[128]

INTEGER  i_num_patch

LOGICAL  l_flip

STRING   s_surface_list[128]

STRING   sv_created_labels[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the  surfaces and solids.

surface_label(TRUE)

solid_label(TRUE)

#  Create a patch.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

#  Change the view.

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

#  Observe the surface created.

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

sf_pause()

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

#  Call the function to create a hyperpatch with varying thickness and

#  flip is set to FALSE.

s_hpat_labels = ""

s_thickness1 = "1.0"

s_thickness2 = "2.0"

s_thickness3 = "3.0"

s_thickness4 = "4.0"

i_num_patch = 1

l_flip = FALSE

s_surface_list = "Surface 1"

i_return_value =                                 @

   asm_sweep_hpat_normal                         @

      (  s_hpat_labels,                          @

         s_thickness1,                           @

         s_thickness2,                           @

         s_thickness3,                           @

         s_thickness4,                           @

         i_num_patch,                            @

         l_flip,                                 @

         s_surface_list,                         @

         sv_created_labels )

dump i_return_value

#  Label of the hyperpatch created

dump sv_created_labels

#  Observe the hpat created.

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

sf_pause()

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

#  Call the function to create a hyperpatch with varying thickness

#  with flip is set to TRUE.

s_thickness1 = "4.0"

s_thickness2 = "3.0"

s_thickness3 = "2.0"

s_thickness4 = "1.0"

l_flip = TRUE

i_return_value =                                 @

   asm_sweep_hpat_normal                         @

      (  s_hpat_labels,                          @

         s_thickness1,                           @

         s_thickness2,                           @

         s_thickness3,                           @

         s_thickness4,                           @

         i_num_patch,                            @

         l_flip,                                 @

         s_surface_list,                         @

         sv_created_labels )

dump i_return_value

#  Label of the hyperpatch created

dump sv_created_labels

sys_free_string( sv_created_labels )

sys_free_string( sv_asm_create_patch_xy_creat_id )

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


asm_sweep_line_arc	()

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

#                      function asm_sweep_line_arc()

#                      This illustration opens a new database and

#                      creates a point in it. Then the point is

#                      arced to create a line.

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

#  has the following arguments:

#  asm_sweep_line_arc

#     (  line_labels,

#        axis,

#        angle,

#        offset,

#        coord_frame,

#        num_lines,

#        point_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_line_labels[128]

STRING   s_axis[128]

REAL     r_angle

REAL     r_offset

STRING   s_coord_frame[128]

INTEGER  i_num_lines

STRING   s_point_list[128]

STRING   sv_created_labels[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_create_grid_xyz_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the curves.

curve_label(TRUE)

#  Change the view.

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

#  Create a point.

i_return_value =                                 @

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

      "Coord 0",                                 @

      sv_asm_create_grid_xyz_creat_id )

dump i_return_value

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

#  Call the function to create 2 lines by arcing the point 1

s_line_labels = ""

s_axis = "Coord 0.3"

r_angle = 180.0

r_offset = 0.0

s_coord_frame = "Coord 0"

i_num_lines = 2

s_point_list = "Point 1"

i_return_value =                                 @

   asm_sweep_line_arc                            @

      (  s_line_labels,                          @

         s_axis,                                 @

         r_angle,                                @

         r_offset,                               @

         s_coord_frame,                          @

         i_num_lines,                            @

         s_point_list,                           @

         sv_created_labels )

dump i_return_value

#  Labels of the lines created

dump sv_created_labels

sys_free_string( sv_created_labels )

sys_free_string( sv_asm_create_grid_xyz_creat_id )

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


asm_sweep_line_involute	()

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

#                      the function asm_sweep_line_involute()

#                      This illustration opens a new database and

#                      creates a line by involute option with angle

#                      method. Again it calls the function to create

#                      another line using involute option with radii

#                      method.

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

#  has the following arguments:

#  asm_sweep_line_involute

#     (  line_labels,

#        axis,

#        option,

#        scalar1,

#        scalar2,

#        num_lines,

#        coord_frame,

#        point_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_line_labels[128]

STRING   s_axis[128]

INTEGER  i_option

REAL     r_scalar1

REAL     r_scalar2

INTEGER  i_num_lines

STRING   s_coord_frame[128]

STRING   s_point_list[128]

STRING   sv_created_labels[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the curves.

curve_label(TRUE)

#  Change the view.

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

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

#  Call the function to create a line by involute option with angle

#  method.

s_line_labels = ""

s_axis = "Coord 0.3"

i_option = 0

r_scalar1 = 360.0

r_scalar2 = 0.0

i_num_lines = 1

s_coord_frame = "Coord 0"

s_point_list = "[10 0 0]"

i_return_value =                                 @

   asm_sweep_line_involute                       @

      (  s_line_labels,                          @

         s_axis,                                 @

         i_option,                               @

         r_scalar1,                              @

         r_scalar2,                              @

         i_num_lines,                            @

         s_coord_frame,                          @

         s_point_list,                           @

         sv_created_labels )

dump i_return_value

#  Created Curve

dump sv_created_labels

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

sf_pause()

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

#  Call the function to create a line by involute option with radii

#  method.

s_line_labels = ""

s_axis = "Coord 0.3"

i_option = 1

r_scalar1 = 5.0

r_scalar2 = 120.0

i_num_lines = 1

s_coord_frame = "Coord 0"

s_point_list = "[10 0 0]"

i_return_value =                                 @

   asm_sweep_line_involute                       @

      (  s_line_labels,                          @

         s_axis,                                 @

         i_option,                               @

         r_scalar1,                              @

         r_scalar2,                              @

         i_num_lines,                            @

         s_coord_frame,                          @

         s_point_list,                           @

         sv_created_labels )

dump i_return_value

#  Created Curve

dump sv_created_labels

sys_free_string( sv_created_labels )

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


asm_sweep_patch_arc	()

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

#                      function asm_sweep_patch_arc()

#                      This illustration opens a new database and

#                      creates a line in it. Then that line is

#                      arced to create two patches.

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

#  asm_sweep_patch_arc

#     (  patch_labels,

#        axis,

#        angle,

#        offset,

#        coord_frame,

#        num_patch,

#        curve_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_patch_labels[128]

STRING   s_axis[128]

REAL     r_angle

REAL     r_offset

STRING   s_coord_frame[128]

INTEGER  i_num_patch

STRING   s_curve_list[128]

STRING   sv_created_labels[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_create_line_xyz_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the curves and surfaces.

curve_label(TRUE)

surface_label(TRUE)

#  Change the view.

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

#  Create a Line

i_return_value =                                 @

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

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

      sv_asm_create_line_xyz_creat_id )

dump i_return_value

#  Observe the line created.

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

sf_pause()

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

#  Call the function to arc the line to create two patches.

s_patch_labels = ""

s_axis = "Coord 0.3"

r_angle = 180.0

r_offset = 0.0

s_coord_frame = "Coord 0"

i_num_patch = 2

s_curve_list = "Curve 1"

i_return_value =                                 @

   asm_sweep_patch_arc                           @

      (  s_patch_labels,                         @

         s_axis,                                 @

         r_angle,                                @

         r_offset,                               @

         s_coord_frame,                          @

         i_num_patch,                            @

         s_curve_list,                           @

         sv_created_labels )

dump i_return_value

#  Labels of the created patches.

dump sv_created_labels

sys_free_string( sv_created_labels )

sys_free_string( sv_asm_create_line_xyz_creat_id )

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


asm_sweep_patch_extrude	()

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

#                      function asm_sweep_patch_extrude()

#                      This illustration opens a new database and

#                      creates a Line in it. Then the line is

#                      extruded to create the patch.

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

#  has the following arguments:

#  asm_sweep_patch_extrude

#     (  patch_labels,

#        delta,

#        scale,

#        angle,

#        origin,

#        coord_frame,

#        num_patches,

#        curve_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_patch_labels[128]

STRING   s_delta[128]

REAL     r_scale

REAL     r_angle

STRING   s_origin[128]

STRING   s_coord_frame[128]

INTEGER  i_num_patches

STRING   s_curve_list[128]

STRING   sv_created_labels[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_create_line_xyz_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the curves and surfaces.

curve_label(TRUE)

surface_label(TRUE)

#  Change the view.

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

#  Create a Line

i_return_value =                                 @

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

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

      sv_asm_create_line_xyz_creat_id )

dump i_return_value

#  Observe the surface created.

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

sf_pause()

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

#  Call the function to create a patch by extruding Line 1.

s_patch_labels = ""

s_delta = "<0 0 10>"

r_scale = 1.0

r_angle = 0.0

s_origin = "[0 0 0]"

s_coord_frame = "Coord 0"

i_num_patches = 1

s_curve_list = "Curve 1"

i_return_value =                                 @

   asm_sweep_patch_extrude                       @

      (  s_patch_labels,                         @

         s_delta,                                @

         r_scale,                                @

         r_angle,                                @

         s_origin,                               @

         s_coord_frame,                          @

         i_num_patches,                          @

         s_curve_list,                           @

         sv_created_labels )

dump i_return_value

#  Labels of the created patches.

dump sv_created_labels

sys_free_string( sv_created_labels )

sys_free_string( sv_asm_create_line_xyz_creat_id )

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


asm_sweep_patch_glide	()

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

#                      function asm_sweep_patch_glide()

#                      This illustration opens a new database and

#                      creates two Curves in it. Then one Curve is

#                      glided  along the other to create the patch.

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

#  has the following arguments:

#  asm_sweep_patch_glide

#     (  patch_labels,

#        scale,

#        glide_option,

#        director_line,

#        base_line,

#        created_labels )

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

#  Variable Declarations

STRING   s_patch_labels[128]

REAL     r_scale

INTEGER  i_glide_option

STRING   s_director_line[128]

STRING   s_base_line[128]

STRING   sv_created_labels[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_create_line_xyz_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the curves, surfaces.

curve_label(TRUE)

surface_label(TRUE)

#  Create a line

i_return_value =                                 @

   asm_const_line_xyz( "", "< 3 4 0 >< 0 5 10>", @

      "[3 0 0][5 5 0]", "Coord 0",               @

      sv_asm_create_line_xyz_creat_id )

dump i_return_value

#  Change the view.

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

#  Observe the line created.

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

sf_pause()

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

#  Call the function to create a patch by gliding Curve 1 along

#  Curve 2.

s_patch_labels = ""

r_scale = 1.0

i_glide_option = 0

s_director_line = "Curve 2"

s_base_line = "Curve 1"

i_return_value =                                 @

   asm_sweep_patch_glide                         @

      (  s_patch_labels,                         @

         r_scale,                                @

         i_glide_option,                         @

         s_director_line,                        @

         s_base_line,                            @

         sv_created_labels )

dump i_return_value

#  Label of the patch created

dump sv_created_labels

sys_free_string( sv_created_labels )

sys_free_string( sv_asm_create_line_xyz_creat_id )

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


asm_sweep_patch_normal	()

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

#                      function asm_sweep_patch_normal()

#                      This illustration opens a new database and

#                      creates a  line in it. Then the function is

#                      called to create a patch normal to the line

#                      created.

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

#  has the following arguments:

#  asm_sweep_patch_normal

#     (  patch_labels,

#        thickness1,

#        thickness2,

#        origin,

#        num_patch,

#        flip,

#        curve_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_patch_labels[128]

STRING   s_thickness1[128]

STRING   s_thickness2[128]

STRING   s_origin[128]

INTEGER  i_num_patch

LOGICAL  l_flip

STRING   s_curve_list[128]

STRING   sv_created_labels[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_create_line_xyz_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the  surfaces and curves.

surface_label(TRUE)

curve_label(TRUE)

#  Create a line

i_return_value =                                 @

   asm_const_line_xyz( "", "< 10 5 0>",          @

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

      sv_asm_create_line_xyz_creat_id )

dump i_return_value

#  Change the view.

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

#  Observe the curve created.

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

sf_pause()

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

#  Call the function to create a patch with varying thickness and

#  flip is set to TRUE.

s_patch_labels = ""

s_thickness1 = "10.0"

s_thickness2 = "20.0"

s_origin = "[0 0 0]"

i_num_patch = 1

l_flip = TRUE

s_curve_list = "Curve 1"

i_return_value =                                 @

   asm_sweep_patch_normal                        @

      (  s_patch_labels,                         @

         s_thickness1,                           @

         s_thickness2,                           @

         s_origin,                               @

         i_num_patch,                            @

         l_flip,                                 @

         s_curve_list,                           @

         sv_created_labels )

dump i_return_value

#  Label of the patch created

dump sv_created_labels

sys_free_string( sv_created_labels )

sys_free_string( sv_asm_create_line_xyz_creat_id )

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

Transform Actions

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


asm_transform_cord_rotate	()

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

#                      function asm_transform_cord_rotate()

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

#                      creates a coordinate frame with label = 8

#                      by rotating the reference coordinate frame

#                      by 45 degrees about the "[0 0 0][1 1 1]" axis.

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

#  has the following arguments:

#  asm_transform_cord_rotate

#     (  output_labels,

#        axis,

#        angle,

#        offset,

#        coord_frame,

#        nrepeat,

#        delete_orig,

#        coord_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_output_labels[32]

STRING   s_axis[32]

REAL     r_angle

REAL     r_offset

STRING   s_coord_frame[32]

INTEGER  i_nrepeat

LOGICAL  l_delete_orig

STRING   s_coord_list[32]

STRING   sv_created_labels[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

s_output_labels ="8"

s_axis          = "{[0 0 0] [1 1 1]}"

r_angle         = 45.0

r_offset        = 0.0

s_coord_frame   = "coord 0"

i_nrepeat       = 1

l_delete_orig   = FALSE

s_coord_list    = "coord 0"

i_return_value =                                 @

   asm_transform_cord_rotate                     @

      (  s_output_labels,                        @

         s_axis,                                 @

         r_angle,                                @

         r_offset,                               @

         s_coord_frame,                          @

         i_nrepeat,                              @

         l_delete_orig,                          @

         s_coord_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

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


asm_transform_cord_translate	()

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

#                      function asm_transform_cord_translate()

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

#                      creates two coordinate frames with label = 8

#                      and 9 by translating the reference coordinate

#                      frame.

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

#  has the following arguments:

#  asm_transform_cord_translate

#     (  output_labels,

#        delta,

#        coord_frame,

#        nrepeat,

#        delete_orig,

#        coord_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_output_labels[32]

STRING   s_delta[32]

STRING   s_coord_frame[32]

INTEGER  i_nrepeat

LOGICAL  l_delete_orig

STRING   s_coord_list[32]

STRING   sv_created_labels[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

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

s_output_labels = "8 9"

s_delta         = "<0.5 0 0>"

s_coord_frame   = "coord 0"

i_nrepeat       = 2

l_delete_orig   = FALSE

s_coord_list    = "coord 0"

i_return_value =                                 @

   asm_transform_cord_translate                  @

      (  s_output_labels,                        @

         s_delta,                                @

         s_coord_frame,                          @

         i_nrepeat,                              @

         l_delete_orig,                          @

         s_coord_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

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


asm_transform_curve_vsum	()

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

#                      function asm_transform_curve_vsum()

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

#                      creates 4 curves to form a circle and 4 lines

#                      normal to the circle. Later it creates 4 curves

#                      by vector summing the four curves and lines.

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

#  has the following arguments:

#  asm_transform_curve_vsum

#     (  curve_ids,

#        origin_1,

#        origin_2,

#        scales_1,

#        scales_2,

#        curve_list1,

#        curve_list2,

#        created_ids )

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

#  Variable Declarations

STRING   s_curve_ids[32]

STRING   s_origin_1[32]

STRING   s_origin_2[32]

REAL     ra_scales_1(3)

REAL     ra_scales_2(3)

STRING   s_curve_list1[32]

STRING   s_curve_list2[32]

STRING   sv_created_ids[VIRTUAL]

STRING   sv_sgm_create_curve_2d_created[VIRTUAL]

STRING   sv_asm_line_2point_created_ids[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

s_curve_ids = "9"

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

curve_label(TRUE)

#  Create 4 curves and 4 lines.

i_return_value =                                 @

   sgm_const_curve_2d_arcangles_v1( "1", 1., 0., @

      90., "Coord 0.2", "[0 0 0]", TRUE,         @

      sv_sgm_create_curve_2d_created )

dump i_return_value

i_return_value =                                 @

   sgm_const_curve_2d_arcangles_v1( "2", 1.,90., @

      180., "Coord 0.2", "[0 0 0]", TRUE,        @

      sv_sgm_create_curve_2d_created )

dump i_return_value

i_return_value =                                 @

   sgm_const_curve_2d_arcangles_v1( "3", 1.,180.,@

      270., "Coord 0.2", "[0 0 0]", TRUE,        @

      sv_sgm_create_curve_2d_created )

dump i_return_value

i_return_value =                                 @

   sgm_const_curve_2d_arcangles_v1( "4", 1.,270.,@

      360., "Coord 0.2", "[0 0 0]", TRUE,        @

      sv_sgm_create_curve_2d_created )

dump i_return_value

i_return_value =                                 @

   asm_const_line_2point( "5",                   @

      "[0 0 0][0 0.2 0][0 0.4 0][0 0.6 0]",      @

      "[0 0.2 0][0 0.4 0][0 0.6 0][0 0.8 0]",    @

      0, "", 50., 1,                             @

      sv_asm_line_2point_created_ids )

dump i_return_value

#  Transform the two set of curves.

s_origin_1    = "[0 0 0]"

s_origin_2    = "[0 0 0]"

ra_scales_1   = [ 1.0 1.0 1.0 ]

ra_scales_2   = [ 1.0 1.0 1.0 ]

s_curve_list1 = "curve 1:4"

s_curve_list2 = "curve 5:8"

i_return_value =                                 @

   asm_transform_curve_vsum                      @

      (  s_curve_ids,                            @

         s_origin_1,                             @

         s_origin_2,                             @

         ra_scales_1,                            @

         ra_scales_2,                            @

         s_curve_list1,                          @

         s_curve_list2,                          @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_sgm_create_curve_2d_created)

sys_free_string(sv_asm_line_2point_created_ids)

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


asm_transform_grid_mcord	()

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

#                      function asm_transform_grid_mcord()

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

#                      creates four points. Later it creates a

#                      coordinate frame with label = 100. Finally it

#                      transforms the points from the reference

#                      coordinate frame to the created coordinate

#                      frame.

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

#  has the following arguments:

#  asm_transform_grid_mcord

#     (  point_labels,

#        coord_frame_1,

#        coord_frame_2,

#        delete_orig,

#        point_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_point_labels[32]

STRING   s_coord_frame_1[32]

STRING   s_coord_frame_2[32]

LOGICAL  l_delete_orig

STRING   s_point_list[32]

STRING   sv_created_labels[VIRTUAL]

STRING   sv_asm_create_cord_3po_created[VIRTUAL]

STRING   sv_asm_create_grid_xyz_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

point_label(TRUE)

#  Create 4 point with labels 1,2,3  and 4.

i_return_value =                                 @

   asm_const_grid_xyz( "1",                      @

      "[.5 .5 0.][1. .5 0.][1.5 .5 0.][2. .5 0.]"@

      ,"coord 0",sv_asm_create_grid_xyz_created)

dump i_return_value

#  Create a coordinate with label = 100.

i_return_value =                                 @

   asm_const_coord_3point( "100", "Coord 0", 1,  @

      "[1  1 1]", "[1 1 2]", "[2 1 1]",          @

      sv_asm_create_cord_3po_created )

dump i_return_value

s_point_labels  = "8 9 10 11"

s_coord_frame_1 = "coord 0"

s_coord_frame_2 = "coord 100"

l_delete_orig   = FALSE

s_point_list    = "point 1:4"

#  Transform the points.

i_return_value =                                 @

   asm_transform_grid_mcord                      @

      (  s_point_labels,                         @

         s_coord_frame_1,                        @

         s_coord_frame_2,                        @

         l_delete_orig,                          @

         s_point_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

sys_free_string(sv_asm_create_cord_3po_created)

sys_free_string(sv_asm_create_grid_xyz_created)

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


asm_transform_grid_mirror	()

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

#                      function asm_transform_grid_mirror()

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

#                      creates 4 points. Later it transforms these

#                      points by mirroring them about a particular

#                      plane.

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

#  has the following arguments:

#  asm_transform_grid_mirror

#     (  point_labels,

#        plane,

#        offset,

#        delete_orig,

#        point_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_point_labels[32]

STRING   s_plane[32]

REAL     r_offset

LOGICAL  l_delete_orig

STRING   s_point_list[32]

STRING   sv_created_labels[VIRTUAL]

STRING   sv_asm_create_grid_xyz_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

point_label(TRUE)

#  Create 4 point with labels 1,2,3  and 4.

i_return_value =                                 @

   asm_const_grid_xyz( "1", "[.5 .5 0.]"//       @

      "[1. 1. 0.][1.2 1.5 0.][.7 2. 0.]"         @

      ,"coord 0",sv_asm_create_grid_xyz_created)

dump i_return_value

s_point_labels = "8 9 10 11"

s_plane        = "coord 0.1"

r_offset       = 0.0

l_delete_orig  = FALSE

s_point_list   = "point 1:4"

#  Transform the points.

i_return_value =                                 @

   asm_transform_grid_mirror                     @

      (  s_point_labels,                         @

         s_plane,                                @

         r_offset,                               @

         l_delete_orig,                          @

         s_point_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

sys_free_string(sv_asm_create_grid_xyz_created)

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


asm_transform_grid_mscale	()

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

#                      function asm_transform_grid_mscale()

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

#                      creates 5 points. Later it transforms these

#                      points by rotation and translation.

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

#  has the following arguments:

#  asm_transform_grid_mscale

#     (  point_labels,

#        coord_frame,

#        origin,

#        translation,

#        rotation_matrix,

#        delete_orig,

#        point_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_point_labels[32]

STRING   s_coord_frame[32]

STRING   s_origin[32]

STRING   s_translation[32]

REAL     raa_rotation_matrix(3,3) = [-1, 0, 0, 0, 1, 0, 0, 0, 1]

LOGICAL  l_delete_orig

STRING   s_point_list[32]

STRING   sv_created_labels[VIRTUAL]

STRING   sv_asm_create_grid_xyz_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

point_label(TRUE)

#  Create 5 point with labels 1,2,3 4 and 5.

i_return_value =                                 @

   asm_const_grid_xyz( "1",                      @

      "[0.2 0.5 0.][1.0 1.0 0.][1.2 1.5 0.]",    @

      "coord 0",sv_asm_create_grid_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_grid_xyz( "4",                      @

      "[0.9 1.7 0.][0.5 2.0 0.]",                @

      "coord 0",sv_asm_create_grid_xyz_created)

dump i_return_value

s_point_labels = "8 9 10 11 12"

s_coord_frame  = "coord 0"

s_origin       = "[0 0 0]"

s_translation  = "<3 0 0>"

l_delete_orig  = FALSE

s_point_list   = "point 1:5"

#  Transform the points.

i_return_value =                                 @

   asm_transform_grid_mscale                     @

      (  s_point_labels,                         @

         s_coord_frame,                          @

         s_origin,                               @

         s_translation,                          @

         raa_rotation_matrix,                    @

         l_delete_orig,                          @

         s_point_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

sys_free_string(sv_asm_create_grid_xyz_created)

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


asm_transform_grid_pivot	()

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

#                      function asm_transform_grid_pivot()

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

#                      creates 4 points. Later it pivots these

#                      points about origin.

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

#  has the following arguments:

#  asm_transform_grid_pivot

#     (  point_labels,

#        pivot_point_1,

#        pivot_point_2,

#        pivot_point_3,

#        delete_orig,

#        point_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_point_labels[32]

STRING   s_pivot_point_1[32]

STRING   s_pivot_point_2[32]

STRING   s_pivot_point_3[32]

LOGICAL  l_delete_orig

STRING   s_point_list[32]

STRING   sv_created_labels[VIRTUAL]

STRING   sv_asm_create_grid_xyz_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

point_label(TRUE)

#  Create 4 point with labels 100,200,3 and 4.

i_return_value =                                 @

   asm_const_grid_xyz( "100","[0.5 0.5 0.]",     @

      "coord 0",sv_asm_create_grid_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_grid_xyz( "200","[0.7 1.0 0.]",     @

      "coord 0",sv_asm_create_grid_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_grid_xyz( "3 4",                    @

      "[1.5 1.5 0.][2.0 2.0 0.]",                @

      "coord 0",sv_asm_create_grid_xyz_created)

dump i_return_value

s_point_labels  = "8 9"

s_pivot_point_1 = "[0 0 0]"

s_pivot_point_2 = "point 100"

s_pivot_point_3 = "point 200"

l_delete_orig   = FALSE

s_point_list    = "point 3 4"

#  Transform the points.

i_return_value =                                 @

   asm_transform_grid_pivot                      @

      (  s_point_labels,                         @

         s_pivot_point_1,                        @

         s_pivot_point_2,                        @

         s_pivot_point_3,                        @

         l_delete_orig,                          @

         s_point_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

sys_free_string(sv_asm_create_grid_xyz_created)

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


asm_transform_grid_position	()

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

#                      function asm_transform_grid_position()

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

#                      creates 2 points. Later it transforms these

#                      points by position transformation.

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

#  has the following arguments:

#  asm_transform_grid_position

#     (  point_labels,

#        point_1,

#        point_2,

#        point_3,

#        point_4,

#        point_5,

#        point_6,

#        delete_orig,

#        point_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_point_labels[32]

STRING   s_point_1[32]

STRING   s_point_2[32]

STRING   s_point_3[32]

STRING   s_point_4[32]

STRING   s_point_5[32]

STRING   s_point_6[32]

LOGICAL  l_delete_orig

STRING   s_point_list[32]

STRING   sv_created_labels[VIRTUAL]

STRING   sv_asm_create_grid_xyz_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

point_label(TRUE)

#  Create 2 point with labels 100 and 200.

i_return_value =                                 @

   asm_const_grid_xyz( "100 200",                @

      "[0.5 0.5 0.][0.7 1.0 0.]",                @

      "coord 0",sv_asm_create_grid_xyz_created)

dump i_return_value

s_point_labels = "8 9"

s_point_1      = "[0 0 0]"

s_point_2      = "[0 1 0]"

s_point_3      = "[1 0 0]"

s_point_4      = "[-1 1 0]"

s_point_5      = "[-2 1 0]"

s_point_6      = "[-1 2 0]"

l_delete_orig  = FALSE

s_point_list   = "point 100 200 "

#  Transform the points.

i_return_value =                                 @

   asm_transform_grid_position                   @

      (  s_point_labels,                         @

         s_point_1,                              @

         s_point_2,                              @

         s_point_3,                              @

         s_point_4,                              @

         s_point_5,                              @

         s_point_6,                              @

         l_delete_orig,                          @

         s_point_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

sys_free_string(sv_asm_create_grid_xyz_created)

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


asm_transform_grid_rotate	()

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

#                      function asm_transform_grid_rotate()

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

#                      creates 2 points. Later it transforms these

#                      points by 30 degrees with a initial offset

#                      angle of 60 degrees and repeating the operation

#                      four times about the z axis.

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

#  has the following arguments:

#  asm_transform_grid_rotate

#     (  point_labels,

#        axis,

#        angle,

#        offset,

#        coord_frame,

#        nrepeat,

#        delete_orig,

#        point_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_point_labels[32]

STRING   s_axis[32]

REAL     r_angle

REAL     r_offset

STRING   s_coord_frame[32]

INTEGER  i_nrepeat

LOGICAL  l_delete_orig

STRING   s_point_list[32]

STRING   sv_created_labels[VIRTUAL]

STRING   sv_asm_create_grid_xyz_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

point_label(TRUE)

#  Create 2 point with labels 100 and 200.

i_return_value =                                 @

   asm_const_grid_xyz( "100 200",                @

      "[0.5 0.5 0.][0.7 1.0 0.]",                @

      "coord 0",sv_asm_create_grid_xyz_created)

dump i_return_value

s_point_labels = "8 9 10 11 12 13 14 15"

s_axis         = "coord 0.3"

r_angle        = 60.0

r_offset       = 30.0

s_coord_frame  = "coord 0"

i_nrepeat      = 4

l_delete_orig  = FALSE

s_point_list   = "point 100 200 "

#  Transform the points.

i_return_value =                                 @

   asm_transform_grid_rotate                     @

      (  s_point_labels,                         @

         s_axis,                                 @

         r_angle,                                @

         r_offset,                               @

         s_coord_frame,                          @

         i_nrepeat,                              @

         l_delete_orig,                          @

         s_point_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

sys_free_string(sv_asm_create_grid_xyz_created)

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


asm_transform_grid_scale	()

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

#                      function asm_transform_grid_scale()

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

#                      creates 4 points. Later it transforms these

#                      points by scaling them in the x and y

#                      direction, with [ 0 0 0 ] as the origin.

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

#  has the following arguments:

#  asm_transform_grid_scale

#     (  point_labels,

#        origin,

#        scale,

#        coord_frame,

#        nrepeat,

#        trans_type,

#        delete_orig,

#        point_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_point_labels[32]

STRING   s_origin[32]

REAL     ra_scale(3)

STRING   s_coord_frame[32]

INTEGER  i_num_repeat

LOGICAL  l_trans_type

LOGICAL  l_delete_orig

STRING   s_point_list[32]

STRING   sv_created_labels[VIRTUAL]

STRING   sv_asm_create_grid_xyz_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

point_label(TRUE)

#  Create 4 point with labels 100 and 200.

i_return_value =                                 @

   asm_const_grid_xyz( "100 200",                @

      "[.5 .5 0.][-.5 .5 0.]",                   @

      "coord 0",sv_asm_create_grid_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_grid_xyz( "300 400",                @

      "[-.5 -.5 0.][.5 -.5 0.]",                 @

      "coord 0",sv_asm_create_grid_xyz_created)

dump i_return_value

s_point_labels = "8 9 10 11 12 13 14 15"

s_origin       = "[0 0 0]"

ra_scale(1)    = 2

ra_scale(2)    = 2

ra_scale(3)    = 1

s_coord_frame  = "coord 0"

i_num_repeat   = 2

l_trans_type   = FALSE

l_delete_orig  = FALSE

s_point_list   = "point 100 200 300 400 "

#  Transform the points.

i_return_value =                                 @

   asm_transform_grid_scale                      @

      (  s_point_labels,                         @

         s_origin,                               @

         ra_scale,                               @

         s_coord_frame,                          @

         i_num_repeat,                           @

         l_trans_type,                           @

         l_delete_orig,                          @

         s_point_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

sys_free_string(sv_asm_create_grid_xyz_created)

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


asm_transform_grid_translate	()

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

#                      function asm_transform_grid_translate()

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

#                      creates 4 points. Later it transforms these

#                      points using curvilinear coordinate frame,

#                      translating radially by 2 units.

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

#  has the following arguments:

#  asm_transform_grid_translate

#     (  point_labels,

#        delta,

#        coord_frame,

#        nrepeat,

#        trans_type,

#        delete_orig,

#        point_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_point_labels[32]

STRING   s_delta[32]

STRING   s_coord_frame[32]

INTEGER  i_num_repeat

LOGICAL  l_trans_type

LOGICAL  l_delete_orig

STRING   s_point_list[32]

STRING   sv_created_labels[VIRTUAL]

STRING   sv_asm_create_grid_xyz_created[VIRTUAL]

STRING   sv_asm_create_cord_3po_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

point_label(TRUE)

#  Create 4 point with labels 100 and 200.

i_return_value =                                 @

   asm_const_grid_xyz( "100 200",                @

      "[0.75 0.75 0.][1.0 0.5 0.]",              @

      "coord 0",sv_asm_create_grid_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_grid_xyz( "300 400",                @

      "[-0.75 0.75 0.][-1.0 0.5 0.]",            @

      "coord 0",sv_asm_create_grid_xyz_created)

dump i_return_value

#  Create a cylindrical coordinate system.

i_return_value =                                 @

   asm_const_coord_3point( "1", "Coord 0", 2,    @

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

      sv_asm_create_cord_3po_created )

dump i_return_value

s_point_labels = "8 9 10 11 12 13 14 15"

s_delta        = "<3 0 0>"

s_coord_frame  = "coord 1"

i_num_repeat   = 2

l_trans_type   = TRUE

l_delete_orig  = FALSE

s_point_list   = "point 100 200 300 400 "

#  Transform the points.

i_return_value =                                 @

   asm_transform_grid_translate                  @

      (  s_point_labels,                         @

         s_delta,                                @

         s_coord_frame,                          @

         i_num_repeat,                           @

         l_trans_type,                           @

         l_delete_orig,                          @

         s_point_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

sys_free_string(sv_asm_create_grid_xyz_created)

sys_free_string(sv_asm_create_cord_3po_created)

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


asm_transform_grid_vsum	()

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

#                      function asm_transform_grid_vsum()

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

#                      creates 4 points. Later it creates grids

#                      by performing vector sum of two existing

#                      set of points.

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

#  has the following arguments:

#  asm_transform_grid_vsum

#     (  point_labels,

#        origin_1,

#        origin_2,

#        scale_1,

#        scale_2,

#        point_list1,

#        point_list2,

#        created_labels )

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

#  Variable Declarations

STRING   s_point_labels[32]

STRING   s_origin_1[32]

STRING   s_origin_2[32]

REAL     ra_scale_1(3)

REAL     ra_scale_2(3)

STRING   s_point_list1[32]

STRING   s_point_list2[32]

STRING   sv_created_labels[VIRTUAL]

STRING   sv_asm_create_grid_xyz_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

point_label(TRUE)

#  Create 4 point with labels 100,200,300 and 400.

i_return_value =                                 @

   asm_const_grid_xyz( "100 200",                @

      "[0.75 0.75 0.][1.0 0.5 0.]",              @

      "coord 0",sv_asm_create_grid_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_grid_xyz( "300 400",                @

      "[0.75 2.5 0.][1.0 1.5 0.]",               @

      "coord 0",sv_asm_create_grid_xyz_created)

dump i_return_value

s_point_labels = "8 9"

s_origin_1     = "[0 0 0]"

s_origin_2     = "[0 0 0]"

ra_scale_1(1)  = 1

ra_scale_1(2)  = 1

ra_scale_1(3)  = 1

ra_scale_2(1)  = 2

ra_scale_2(2)  = 2

ra_scale_2(3)  = 2

s_point_list1  = "point 100 200"

s_point_list2  = "point 300 400"

#  Transform the points.

i_return_value =                                 @

   asm_transform_grid_vsum                       @

      (  s_point_labels,                         @

         s_origin_1,                             @

         s_origin_2,                             @

         ra_scale_1,                             @

         ra_scale_2,                             @

         s_point_list1,                          @

         s_point_list2,                          @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

sys_free_string(sv_asm_create_grid_xyz_created)

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


asm_transform_line_mirror	()

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

#                      function asm_transform_line_mirror()

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

#                      creates two curves. Later it transforms these

#                      curves by mirroring them about a plane.

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

#  has the following arguments:

#  asm_transform_line_mirror

#     (  line_labels,

#        plane,

#        offset,

#        reverse,

#        delete_orig,

#        curve_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_line_labels[32]

STRING   s_plane[32]

REAL     r_offset

LOGICAL  l_reverse

LOGICAL  l_delete_orig

STRING   s_curve_list[32]

STRING   sv_created_labels[VIRTUAL]

STRING   sv_asm_line_3point_created_ids[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

curve_label(TRUE)

#  Create two curves.

i_return_value =                                 @

   asm_const_line_3point( "1", "[0.0 0.8 0.0]",  @

      "[0.6 1.0 0]", "[0 0 0]", 1, 0.5,          @

      sv_asm_line_3point_created_ids )

dump i_return_value

i_return_value =                                 @

   asm_const_line_3point( "2", "[0.0 0.7 0.0]",  @

      "[0.5 0.9 0]", "[0 0.1 0]", 1, 0.5,        @

      sv_asm_line_3point_created_ids )

dump i_return_value

s_line_labels = "8 9"

s_plane       = "coord 0.1"

r_offset      = 0.0

l_reverse     = FALSE

l_delete_orig = FALSE

s_curve_list  = "curve 1 2"

#  Transform the curves.

i_return_value =                                 @

   asm_transform_line_mirror                     @

      (  s_line_labels,                          @

         s_plane,                                @

         r_offset,                               @

         l_reverse,                              @

         l_delete_orig,                          @

         s_curve_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

sys_free_string(sv_asm_line_3point_created_ids)

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


asm_transform_patch_mirror	()

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

#                      function asm_transform_patch_mirror()

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

#                      creates two surfaces. Later it transforms these

#                      surfaces by mirroring them about a plane.

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

#  has the following arguments:

#  asm_transform_patch_mirror

#     (  patch_labels,

#        plane,

#        offset,

#        reverse,

#        delete_orig,

#        surface_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_patch_labels[32]

STRING   s_plane[32]

REAL     r_offset

LOGICAL  l_reverse

LOGICAL  l_delete_orig

STRING   s_surface_list[32]

STRING   sv_created_labels[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

surface_label(TRUE)

i_return_value =                                 @

   ga_view_aa_set(24.,-34.,0.)

dump i_return_value

#  Create two surfaces.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_created )

dump i_return_value

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_created )

dump i_return_value

s_patch_labels = "8 9"

s_plane        = "coord 0.1"

r_offset       = 0.0

l_reverse      = FALSE

l_delete_orig  = FALSE

s_surface_list = "surface 1 2"

#  Transform the surface.

i_return_value =                                 @

   asm_transform_patch_mirror                    @

      (  s_patch_labels,                         @

         s_plane,                                @

         r_offset,                               @

         l_reverse,                              @

         l_delete_orig,                          @

         s_surface_list,                         @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

sys_free_string(sv_asm_create_patch_xy_created)

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


sgm_transform_mcord	()

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

#                      the function sgm_transform_mcord()

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

#                      creates a curve and surface. Later it creates

#                      a coordinate frame with label = 1. Finally it

#                      transforms the surface and curve from the

#                      reference coordinate frame to the created

#                      coordinate frame.

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

#  has the following arguments:

#  sgm_transform_mcord

#     (  entity_labels,

#        entity_type,

#        coord_frame_1,

#        coord_frame_2,

#        delete_orig,

#        curve_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_entity_labels[32]

STRING   s_entity_type[32]

STRING   s_coord_frame_1[32]

STRING   s_coord_frame_2[32]

LOGICAL  l_delete_orig

STRING   s_curve_list[32]

STRING   sv_created_labels[VIRTUAL]

STRING   sv_asm_line_2point_created_ids[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

STRING   sv_asm_create_cord_3po_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

surface_label(TRUE)

curve_label(TRUE)

#  Create a surface with label 100.

i_return_value =                                 @

   asm_const_patch_xyz( "100", "<0.8 0.8 0>",    @

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

      sv_asm_create_patch_xy_created )

dump i_return_value

#  Create a line with label 300.

i_return_value =                                 @

   asm_const_line_2point( "300", "[0.2 0.2 0]",  @

      "[1.0 0.5 0.]", 0, "", 50., 1,             @

      sv_asm_line_2point_created_ids )

dump i_return_value

#  Create a coordinate with label = 1.

i_return_value =                                 @

   asm_const_coord_3point( "1", "Coord 0", 1,    @

      "[1  1 1]", "[1 1 2]", "[2 1 1]",          @

      sv_asm_create_cord_3po_created )

dump i_return_value

s_entity_labels = "8"

s_coord_frame_1 = "coord 0"

s_coord_frame_2 = "coord 1"

l_delete_orig   = FALSE

s_curve_list    = "surface 100"

s_entity_type   = "surface"

#  Transform the surface.

i_return_value =                                 @

   sgm_transform_mcord                           @

      (  s_entity_labels,                        @

         s_entity_type,                          @

         s_coord_frame_1,                        @

         s_coord_frame_2,                        @

         l_delete_orig,                          @

         s_curve_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

s_curve_list  = "curve 300"

s_entity_type = "curve"

#  Transform the curve.

i_return_value =                                 @

   sgm_transform_mcord                           @

      (  s_entity_labels,                        @

         s_entity_type,                          @

         s_coord_frame_1,                        @

         s_coord_frame_2,                        @

         l_delete_orig,                          @

         s_curve_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

sys_free_string(sv_asm_line_2point_created_ids)

sys_free_string(sv_asm_create_patch_xy_created)

sys_free_string(sv_asm_create_cord_3po_created)

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


sgm_transform_mirror	()

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

#                      the function sgm_transform_mirror()

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

#                      creates two surfaces and two curves. Later it

#                      transforms these surfaces and curves by

#                      mirroring them about a plane.

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

#  has the following arguments:

#  sgm_transform_mirror

#     (  entity_labels,

#        entity_type,

#        plane,

#        offset,

#        reverse,

#        delete_orig,

#        curve_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_entity_labels[32]

STRING   s_entity_type[32]

STRING   s_plane[32]

REAL     r_offset

LOGICAL  l_reverse

LOGICAL  l_delete_orig

STRING   s_curve_list[128]

STRING   sv_created_labels[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

STRING   sv_asm_line_3point_created_ids[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

surface_label(TRUE)

curve_label(TRUE)

i_return_value =                                 @

   ga_view_aa_set(24.,-34.,0.)

dump i_return_value

#  Create two surfaces.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_created )

dump i_return_value

#  Create two curves.

i_return_value =                                 @

   asm_const_line_3point( "1", "[0.0 0.8 0.0]",  @

      "[0.6 1.0 0]", "[0 0 0]", 1, 0.5,          @

      sv_asm_line_3point_created_ids )

dump i_return_value

i_return_value =                                 @

   asm_const_line_3point( "2", "[0.0 0.7 0.0]",  @

      "[0.5 0.9 0]", "[0 0.1 0]", 1, 0.5,        @

      sv_asm_line_3point_created_ids )

dump i_return_value

s_entity_labels = "8 9"

s_plane         = "coord 0.1"

r_offset        = 0.0

l_reverse       = FALSE

l_delete_orig   = FALSE

s_curve_list    = "surface 1 2"

s_entity_type   = "surface"

#  Transform the surface.

i_return_value =                                 @

   sgm_transform_mirror                          @

      (  s_entity_labels,                        @

         s_entity_type,                          @

         s_plane,                                @

         r_offset,                               @

         l_reverse,                              @

         l_delete_orig,                          @

         s_curve_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

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

s_curve_list  = "curve 1 2"

s_entity_type = "curve"

#  Transform the curves.

i_return_value =                                 @

   sgm_transform_mirror                          @

      (  s_entity_labels,                        @

         s_entity_type,                          @

         s_plane,                                @

         r_offset,                               @

         l_reverse,                              @

         l_delete_orig,                          @

         s_curve_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

sys_free_string(sv_asm_create_patch_xy_created)

sys_free_string(sv_asm_line_3point_created_ids)

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


sgm_transform_pivot	()

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

#                      the function sgm_transform_pivot()

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

#                      creates a surface and curve.Later it transforms

#                      these surface and curve by pivoting method.

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

#  has the following arguments:

#  sgm_transform_pivot

#     (  entity_labels,

#        entity_type,

#        pivot_point_1,

#        pivot_point_2,

#        pivot_point_3,

#        delete_orig,

#        curve_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_entity_labels[32]

STRING   s_entity_type[32]

STRING   s_pivot_point_1[32]

STRING   s_pivot_point_2[32]

STRING   s_pivot_point_3[32]

LOGICAL  l_delete_orig

STRING   s_curve_list[32]

STRING   sv_created_labels[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

STRING   sv_asm_line_2point_created_ids[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

surface_label(TRUE)

curve_label(TRUE)

#  Create a surface with label 100.

i_return_value =                                 @

   asm_const_patch_xyz( "100", "<0.8 0.8 0>",    @

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

      sv_asm_create_patch_xy_created )

dump i_return_value

#  Create a line with label 300.

i_return_value =                                 @

   asm_const_line_2point( "300", "[0.2 0.2 0]",  @

      "[1.0 0.5 0.]", 0, "", 50., 1,             @

      sv_asm_line_2point_created_ids )

dump i_return_value

s_entity_labels = "8"

s_pivot_point_1 = "[0 0 0]"

s_pivot_point_2 = "[1 1 1]"

s_pivot_point_3 = "[-1 1 1]"

l_delete_orig   = FALSE

s_curve_list    = "surface 100"

s_entity_type   = "surface"

#  Transform the surface.

i_return_value =                                 @

   sgm_transform_pivot                           @

      (  s_entity_labels,                        @

         s_entity_type,                          @

         s_pivot_point_1,                        @

         s_pivot_point_2,                        @

         s_pivot_point_3,                        @

         l_delete_orig,                          @

         s_curve_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

s_curve_list  = "curve 300"

s_entity_type = "curve"

#  Transform the curve.

i_return_value =                                 @

   sgm_transform_pivot                           @

      (  s_entity_labels,                        @

         s_entity_type,                          @

         s_pivot_point_1,                        @

         s_pivot_point_2,                        @

         s_pivot_point_3,                        @

         l_delete_orig,                          @

         s_curve_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

sys_free_string(sv_asm_create_patch_xy_created)

sys_free_string(sv_asm_line_2point_created_ids)

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


sgm_transform_position	()

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

#                      function sgm_transform_position()

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

#                      creates a surface and a curve. Later it

#                      transforms these surface and curve by position

#                      transformation.

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

#  has the following arguments:

#  sgm_transform_position

#     (  entity_labels,

#        entity_type,

#        point_1,

#        point_2,

#        point_3,

#        point_4,

#        point_5,

#        point_6,

#        delete_orig,

#        curve_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_entity_labels[32]

STRING   s_entity_type[32]

STRING   s_point_1[32]

STRING   s_point_2[32]

STRING   s_point_3[32]

STRING   s_point_4[32]

STRING   s_point_5[32]

STRING   s_point_6[32]

LOGICAL  l_delete_orig

STRING   s_curve_list[32]

STRING   sv_created_labels[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

STRING   sv_asm_line_2point_created_ids[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

curve_label(TRUE)

surface_label(TRUE)

#  Create a surface with label 100.

i_return_value =                                 @

   asm_const_patch_xyz( "100", "<0.8 0.8 0>",    @

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

      sv_asm_create_patch_xy_created )

dump i_return_value

#  Create a line with label 300.

i_return_value =                                 @

   asm_const_line_2point( "300", "[0.2 0.2 0]",  @

      "[1.0 0.5 0.]", 0, "", 50., 1,             @

      sv_asm_line_2point_created_ids )

dump i_return_value

s_entity_labels = "8"

s_point_1       = "[0 0 0]"

s_point_2       = "[0 1 0]"

s_point_3       = "[1 0 0]"

s_point_4       = "[-1 1 0]"

s_point_5       = "[-2 1 0]"

s_point_6       = "[-1 2 0]"

l_delete_orig   = FALSE

s_curve_list    = "surface 100 "

s_entity_type   = "surface"

#  Transform the surface.

i_return_value =                                 @

   sgm_transform_position                        @

      (  s_entity_labels,                        @

         s_entity_type,                          @

         s_point_1,                              @

         s_point_2,                              @

         s_point_3,                              @

         s_point_4,                              @

         s_point_5,                              @

         s_point_6,                              @

         l_delete_orig,                          @

         s_curve_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

s_curve_list  = "curve 300 "

s_entity_type = "curve"

#  Transform the curve.

i_return_value =                                 @

   sgm_transform_position                        @

      (  s_entity_labels,                        @

         s_entity_type,                          @

         s_point_1,                              @

         s_point_2,                              @

         s_point_3,                              @

         s_point_4,                              @

         s_point_5,                              @

         s_point_6,                              @

         l_delete_orig,                          @

         s_curve_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

sys_free_string(sv_asm_create_patch_xy_created)

sys_free_string(sv_asm_line_2point_created_ids)

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


sgm_transform_rotate	()

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

#                      the function sgm_transform_rotate()

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

#                      creates a curve and a surface. Later it

#                      transforms these surface and curve by 30

#                      degrees with a initial offset angle of 60

#                      degrees and repeating the operation four times

#                      about the z axis.

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

#  has the following arguments:

#  sgm_transform_rotate

#     (  entity_labels,

#        entity_type,

#        axis,

#        angle,

#        offset,

#        coord_frame,

#        nrepeat,

#        delete_orig,

#        curve_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_entity_labels[32]

STRING   s_entity_type[32]

STRING   s_axis[32]

REAL     r_angle

REAL     r_offset

STRING   s_coord_frame[32]

INTEGER  i_num_repeat

LOGICAL  l_delete_orig

STRING   s_curve_list[32]

STRING   sv_created_labels[VIRTUAL]

STRING   sv_asm_create_grid_xyz_created[VIRTUAL]

STRING   sv_asm_line_2point_created_ids[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

surface_label(TRUE)

curve_label(TRUE)

#  Create a surface with label 100.

i_return_value =                                 @

   asm_const_patch_xyz( "100", "<0.8 0.8 0>",    @

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

      sv_asm_create_patch_xy_created )

dump i_return_value

#  Create a line with label 300.

i_return_value =                                 @

   asm_const_line_2point( "300", "[0.2 0.2 0]",  @

      "[1.0 0.5 0.]", 0, "", 50., 1,             @

      sv_asm_line_2point_created_ids )

dump i_return_value

s_entity_labels = "8 9 10 11"

s_axis          = "coord 0.3"

r_angle         = 60.0

r_offset        = 30.0

s_coord_frame   = "coord 0"

i_num_repeat    = 4

l_delete_orig   = FALSE

s_curve_list    = "surface 100"

s_entity_type   = "surface"

#  Transform the points.

i_return_value =                                 @

   sgm_transform_rotate                          @

      (  s_entity_labels,                        @

         s_entity_type,                          @

         s_axis,                                 @

         r_angle,                                @

         r_offset,                               @

         s_coord_frame,                          @

         i_num_repeat,                           @

         l_delete_orig,                          @

         s_curve_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

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

s_curve_list  = "curve 300 "

s_entity_type = "curve"

#  Transform the curve.

i_return_value =                                 @

   sgm_transform_rotate                          @

      (  s_entity_labels,                        @

         s_entity_type,                          @

         s_axis,                                 @

         r_angle,                                @

         r_offset,                               @

         s_coord_frame,                          @

         i_num_repeat,                           @

         l_delete_orig,                          @

         s_curve_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

sys_free_string(sv_asm_create_grid_xyz_created)

sys_free_string(sv_asm_line_2point_created_ids)

sys_free_string(sv_asm_create_patch_xy_created)

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


sgm_transform_scale	()

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

#                      function sgm_transform_scale()

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

#                      creates curve and surface. Later it transforms

#                      these curve and surface by scaling them in the

#                      x and y direction, with [0 0 0] as the origin.

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

#  has the following arguments:

#  sgm_transform_scale

#     (  entity_labels,

#        entity_type,

#        scale,

#        origin,

#        coord_frame,

#        nrepeat,

#        delete_orig,

#        curve_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_entity_labels[32]

STRING   s_entity_type[32]

REAL     ra_scale(3)

STRING   s_origin[32]

STRING   s_coord_frame[32]

INTEGER  i_num_repeat

LOGICAL  l_delete_orig

STRING   s_curve_list[32]

STRING   sv_created_labels[VIRTUAL]

STRING   sv_asm_line_2point_created_ids[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

curve_label(TRUE)

surface_label(TRUE)

#  Create a surface with label 100.

i_return_value =                                 @

   asm_const_patch_xyz( "100", "<0.8 0.8 0>",    @

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

      sv_asm_create_patch_xy_created )

dump i_return_value

#  Create a line with label 300.

i_return_value =                                 @

   asm_const_line_2point( "300", "[0.2 0.2 0]",  @

      "[1.0 0.5 0.]", 0, "", 50., 1,             @

      sv_asm_line_2point_created_ids )

dump i_return_value

s_entity_labels =  "8 9"

s_origin        = "[0 0 0]"

ra_scale(1)     = 2

ra_scale(2)     = 2

ra_scale(3)     = 1

s_coord_frame   = "coord 0"

i_num_repeat    = 2

l_delete_orig   = FALSE

s_curve_list    = "surface 100"

s_entity_type   = "surface"

#  Transform the surface.

i_return_value =                                 @

   sgm_transform_scale                           @

      (  s_entity_labels,                        @

         s_entity_type,                          @

         ra_scale,                               @

         s_origin,                               @

         s_coord_frame,                          @

         i_num_repeat,                           @

         l_delete_orig,                          @

         s_curve_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

s_curve_list  = "curve 300"

s_entity_type = "curve"

#  Transform the curve.

i_return_value =                                 @

   sgm_transform_scale                           @

      (  s_entity_labels,                        @

         s_entity_type,                          @

         ra_scale,                               @

         s_origin,                               @

         s_coord_frame,                          @

         i_num_repeat,                           @

         l_delete_orig,                          @

         s_curve_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

sys_free_string(sv_asm_line_2point_created_ids)

sys_free_string(sv_asm_create_patch_xy_created)

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


asm_transform_solid_vsum	()

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

#                      function asm_transform_solid_vsum()

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

#                      creates 2 solids. Later it creates a solid

#                      by vector summing the 2 solids.

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

#  has the following arguments:

#  asm_transform_solid_vsum

#     (  solid_ids,

#        origin_1,

#        origin_2,

#        scales_1,

#        scales_2,

#        solid_list1,

#        solid_list2,

#        created_ids )

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

#  Variable Declarations

STRING   s_solid_ids[32]

STRING   s_origin_1[32]

STRING   s_origin_2[32]

REAL     ra_scales_1(3)

REAL     ra_scales_2(3)

STRING   s_solid_list1[32]

STRING   s_solid_list2[32]

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_create_hpat_xyz_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

i_return_value =                                 @

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

dump i_return_value

solid_label(TRUE)

#  Create two solids.

i_return_value =                                 @

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

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

      sv_asm_create_hpat_xyz_created )

dump i_return_value

i_return_value =                                 @

   asm_const_hpat_xyz( "2", "<0.5 0.5 0.5>",     @

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

      sv_asm_create_hpat_xyz_created )

dump i_return_value

#  Transform the solids.

s_solid_ids   = "8"

s_origin_1    = "[0 0 0]"

s_origin_2    = "[0 0 0]"

ra_scales_1   = [ 2.0 2.0 2.0 ]

ra_scales_2   = [ 2.0 2.0 2.0 ]

s_solid_list1 = "solid 1"

s_solid_list2 = "solid 2"

i_return_value =                                 @

   asm_transform_solid_vsum                      @

      (  s_solid_ids,                            @

         s_origin_1,                             @

         s_origin_2,                             @

         ra_scales_1,                            @

         ra_scales_2,                            @

         s_solid_list1,                          @

         s_solid_list2,                          @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_create_hpat_xyz_created)

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


asm_transform_surface_vsum	()

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

#                      function asm_transform_surface_vsum()

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

#                      creates 2 surfaces. Later it creates a surface

#                      by vector summing the 2 surfaces.

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

#  has the following arguments:

#  asm_transform_surface_vsum

#     (  surface_ids,

#        origin_1,

#        origin_2,

#        scales_1,

#        scales_2,

#        surface_list1,

#        surface_list2,

#        created_ids )

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

#  Variable Declarations

STRING   s_surface_ids[32]

STRING   s_origin_1[32]

STRING   s_origin_2[32]

REAL     ra_scales_1(3)

REAL     ra_scales_2(3)

STRING   s_surface_list1[32]

STRING   s_surface_list2[32]

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

i_return_value =                                 @

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

dump i_return_value

surface_label(TRUE)

#  Create two surfaces.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_created )

dump i_return_value

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_created )

dump i_return_value

#  Transform the surfaces.

s_surface_ids   = "8"

s_origin_1      = "[0 0 0]"

s_origin_2      = "[0 0 0]"

ra_scales_1     = [ 1.0 1.0 1.0 ]

ra_scales_2     = [ 1.0 1.0 1.0 ]

s_surface_list1 = "surface 1"

s_surface_list2 = "surface 2"

i_return_value =                                 @

   asm_transform_surface_vsum                    @

      (  s_surface_ids,                          @

         s_origin_1,                             @

         s_origin_2,                             @

         ra_scales_1,                            @

         ra_scales_2,                            @

         s_surface_list1,                        @

         s_surface_list2,                        @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_create_patch_xy_created)

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


sgm_transform_translate	()

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

#                      function sgm_transform_translate()

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

#                      creates a curve and surface. Later it

#                      transforms these surface and curve using

#                      curvilinear coordinate frame,translating

#                      radially by 2 units.

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

#  has the following arguments:

#  sgm_transform_translate

#     (  entity_labels,

#        entity_type,

#        delta,

#        coord_frame,

#        nrepeat,

#        delete_orig,

#        curve_list,

#        created_labels )

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

#  Variable Declarations

STRING   s_entity_labels[32]

STRING   s_entity_type[32]

STRING   s_delta[32]

STRING   s_coord_frame[32]

INTEGER  i_num_repeat

LOGICAL  l_delete_orig

STRING   s_curve_list[32]

STRING   sv_created_labels[VIRTUAL]

STRING   sv_asm_line_2point_created_ids[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

STRING   sv_asm_create_cord_3po_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

curve_label(TRUE)

surface_label(TRUE)

#  Create a surface with label 100.

i_return_value =                                 @

   asm_const_patch_xyz( "100", "<0.8 0.8 0>",    @

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

      sv_asm_create_patch_xy_created )

dump i_return_value

#  Create a line with label 300.

i_return_value =                                 @

   asm_const_line_2point( "300", "[0.2 0.2 0]",  @

      "[1.0 0.5 0.]", 0, "", 50., 1,             @

      sv_asm_line_2point_created_ids )

dump i_return_value

#  Create a cylindrical coordinate system.

i_return_value =                                 @

   asm_const_coord_3point( "1", "Coord 0", 2,    @

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

      sv_asm_create_cord_3po_created )

dump i_return_value

s_entity_labels = "8 9"

s_delta         = "<3 3 0>"

s_coord_frame   = "coord 1"

i_num_repeat    = 2

l_delete_orig   = FALSE

s_curve_list    = "surface 100"

s_entity_type   = "surface"

#  Transform the surface.

i_return_value =                                 @

   sgm_transform_translate                       @

      (  s_entity_labels,                        @

         s_entity_type,                          @

         s_delta,                                @

         s_coord_frame,                          @

         i_num_repeat,                           @

         l_delete_orig,                          @

         s_curve_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

s_curve_list  = "curve 300"

s_entity_type = "curve"

#  Transform the curve.

i_return_value =                                 @

   sgm_transform_translate                       @

      (  s_entity_labels,                        @

         s_entity_type,                          @

         s_delta,                                @

         s_coord_frame,                          @

         i_num_repeat,                           @

         l_delete_orig,                          @

         s_curve_list,                           @

         sv_created_labels )

dump i_return_value

dump sv_created_labels

sys_free_string(sv_created_labels)

sys_free_string(sv_asm_line_2point_created_ids)

sys_free_string(sv_asm_create_patch_xy_created)

sys_free_string(sv_asm_create_cord_3po_created)

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

Edit Actions

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


asm_edit_curve_blend	()

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

#                      function asm_edit_curve_blend()

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

#                      creates five lines. Later it blends the curves

#                      such that first derivative continuity is

#                      enforced at the boundaries.

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

#  has the following arguments:

#  asm_edit_curve_blend

#     (  curve_ids,

#        weights,

#        curve_list,

#        delete_orig,

#        created_ids )

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

#  Variable Declarations

STRING   s_curve_ids[32]

STRING   s_weights[32]

STRING   s_curve_list[32]

LOGICAL  l_delete_orig

STRING   sv_asm_create_line_xyz_created[VIRTUAL]

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

s_curve_ids = "#"

#  Create five lines with sharp edges.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "2", "<1 0 0>", "[1 1 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "3", "<1 -1 0>","[2 1 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "4", "<1 0 0>", "[3 0 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "5", "<1 1 0>", "[4 0 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

s_weights = "1e-6 1.0 1.0 1e6"

s_curve_list = "curve 1:5"

l_delete_orig = FALSE

i_return_value =                                 @

   asm_edit_curve_blend                          @

      (  s_curve_ids,                            @

         s_weights,                              @

         s_curve_list,                           @

         l_delete_orig,                          @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_create_line_xyz_created)

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


asm_edit_curve_merge	()

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

#                      function asm_edit_curve_merge()

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

#                      creates five lines. Later it merges the curves

#                      to three cubic curves.

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

#  has the following arguments:

#  asm_edit_curve_merge

#     (  curve_ids,

#        curve_list,

#        ncurves,

#        geotol,

#        niterations,

#        delete_orig,

#        created_ids )

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

#  Variable Declarations

STRING   s_curve_ids[32]

STRING   s_curve_list[32]

INTEGER  i_ncurves

REAL     r_geotol

INTEGER  i_niterations

LOGICAL  l_delete_orig

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_create_line_xyz_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

s_curve_ids = "#"

curve_label(TRUE)

#  Create five curves.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "2", "<1 0 0>", "[1 1 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "3", "<1 -1 0>","[2 1 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "4", "<1 0 0>", "[3 0 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "5", "<1 1 0>", "[4 0 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

s_curve_list = "curve 1:5"

i_ncurves = 3

r_geotol = 0.005

i_niterations = 0

l_delete_orig = FALSE

i_return_value =                                 @

   asm_edit_curve_merge                          @

      (  s_curve_ids,                            @

         s_curve_list,                           @

         i_ncurves,                              @

         r_geotol,                               @

         i_niterations,                          @

         l_delete_orig,                          @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_create_line_xyz_created)

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


asm_edit_solid_blend	()

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

#                      function asm_edit_solid_blend()

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

#                      creates three solids. Later it blends the

#                      solids such that first derivative continuity

#                      is enforced at the boundaries.

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

#  has the following arguments:

#  asm_edit_solid_blend

#     (  solid_ids,

#        weights,

#        solid_list,

#        delete_orig,

#        created_ids )

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

#  Variable Declarations

STRING   s_solid_ids[32]

STRING   s_weights[32]

STRING   s_solid_list[32]

LOGICAL  l_delete_orig

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_create_hpat_xyz_created[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

STRING   sv_sgm_solid_2surface_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

solid_label(TRUE)

s_solid_ids = "#"

i_return_value =                                 @

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

dump i_return_value

#  Create three surfaces.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

i_return_value =                                 @

   asm_const_patch_xyz( "4","<0 .2 1>","[3 0 0]",@

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

i_return_value =                                 @

   sgm_const_solid_2surface_v1( "1", TRUE,       @

      "Surface 1 ", "Surface 2 ",                @

      sv_sgm_solid_2surface_created)

dump i_return_value

i_return_value =                                 @

   sgm_const_solid_2surface_v1( "2", TRUE,       @

      "Surface 2 ", "Surface 3 ",                @

      sv_sgm_solid_2surface_created)

dump i_return_value

i_return_value =                                 @

   sgm_const_solid_2surface_v1( "3", TRUE,       @

      "Surface 3 ", "Surface 4 ",                @

      sv_sgm_solid_2surface_created)

dump i_return_value

s_weights = "1 "

s_solid_list = "solid 1:3"

l_delete_orig = TRUE

#  Blend the solids.

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

sf_pause()

i_return_value =                                 @

   asm_edit_solid_blend                          @

      (  s_solid_ids,                            @

         s_weights,                              @

         s_solid_list,                           @

         l_delete_orig,                          @

         sv_created_ids )

$? YES 38000221

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_create_hpat_xyz_created)

sys_free_string(sv_asm_create_patch_xy_created)

sys_free_string(sv_sgm_solid_2surface_created)

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


asm_edit_surface_blend	()

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

#                      function asm_edit_surface_blend()

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

#                      creates three surfaces. Later it blends the

#                      surfaces such that first derivative continuity

#                      is enforced at the boundaries.

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

#  has the following arguments:

#  asm_edit_surface_blend

#     (  surface_ids,

#        edge_list,

#        weights,

#        surface_list,

#        delete_orig,

#        created_ids )

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

#  Variable Declarations

STRING   s_surface_ids[32]

STRING   s_edge_list[32]

STRING   s_weights[32]

STRING   s_surface_list[32]

LOGICAL  l_delete_orig

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

STRING   sv_sgm_surface_2curve_created[VIRTUAL]

STRING   sv_asm_create_line_xyz_created[VIRTUAL]

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

surface_label(TRUE)

i_return_value =                                 @

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

dump i_return_value

s_surface_ids = "#"

#  Create three surfaces.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_created )

dump i_return_value

i_return_value =                                 @

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

      "[2 3 0]", "Coord 0",                      @

      sv_asm_create_line_xyz_created )

dump i_return_value

i_return_value =                                 @

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

      "[7 2 0]", "Coord 0",                      @

      sv_asm_create_line_xyz_created )

dump i_return_value

i_return_value =                                 @

   sgm_const_surface_2curve( "2", "surface 1.2 ",@

      "Curve 1 ",sv_sgm_surface_2curve_created )

dump i_return_value

i_return_value =                                 @

   sgm_const_surface_2curve( "3", "Curve 1 ",    @

      "Curve 2 ",sv_sgm_surface_2curve_created )

dump i_return_value

s_weights = "1e-6 0.8 0.5"

s_edge_list = "Surface 1.2 2.2 3.2"

s_surface_list = "surface 1:3"

l_delete_orig = FALSE

#  Blend the surfaces.

i_return_value =                                 @

   asm_edit_surface_blend                        @

      (  s_surface_ids,                          @

         s_edge_list,                            @

         s_weights,                              @

         s_surface_list,                         @

         l_delete_orig,                          @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_create_patch_xy_created)

sys_free_string(sv_asm_create_line_xyz_created)

sys_free_string(sv_sgm_surface_2curve_created)

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


asm_edit_hpat_blend	()

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

#                      function asm_edit_hpat_blend()

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

#                      creates a three hpats. Later it blends the

#                      hpats such that the first derivative continuity

#                      is enforced across surface boundaries between

#                      adjacent hpats.

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

#  has the following arguments:

#  asm_edit_hpat_blend

#     (  hpat_ids,

#        weights,

#        hpat_list,

#        delete_orig,

#        created_ids )

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

#  Variable Declarations

STRING   s_hpat_ids[32] = "#"

STRING   s_weights[32]

STRING   s_hpat_list[32]

LOGICAL  l_delete_orig

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_create_hpat_xyz_created[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

STRING   sv_sgm_solid_2surface_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

solid_label(TRUE)

i_return_value =                                 @

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

dump i_return_value

s_hpat_ids = "#"

#  Create three solid surfaces.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

i_return_value =                                 @

   asm_const_patch_xyz( "4","<0 .2 1>","[3 0 0]",@

      "Coord 0",sv_asm_create_patch_xy_created)

dump i_return_value

i_return_value =                                 @

   sgm_const_solid_2surface_v1( "1", TRUE,       @

      "Surface 1 ", "Surface 2 ",                @

      sv_sgm_solid_2surface_created)

dump i_return_value

i_return_value =                                 @

   sgm_const_solid_2surface_v1( "2", TRUE,       @

      "Surface 2 ", "Surface 3 ",                @

      sv_sgm_solid_2surface_created)

dump i_return_value

i_return_value =                                 @

   sgm_const_solid_2surface_v1( "3", TRUE,       @

      "Surface 3 ", "Surface 4 ",                @

      sv_sgm_solid_2surface_created)

dump i_return_value

s_weights = "1 "

s_hpat_list = "solid 1:3"

l_delete_orig = TRUE

#  Blend the solids.

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

sf_pause()

#  Blend the surfaces.

i_return_value =                                 @

   asm_edit_hpat_blend                           @

      (  s_hpat_ids,                             @

         s_weights,                              @

         s_hpat_list,                            @

         l_delete_orig,                          @

         sv_created_ids )

$? YES 1000031

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_create_hpat_xyz_created)

sys_free_string(sv_asm_create_patch_xy_created)

sys_free_string(sv_sgm_solid_2surface_created)

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


asm_edit_hpat_break	()

#  Purpose          :  This file provides an example of three calls

#                      to the function asm_edit_hpat_break()

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

#                      creates a solid,a surface intersecting the

#                      solid and a curve on one of the surfaces.

#                      Later it breaks the solid by using break type

#                      surface,curve and parametric position.

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

#  has the following arguments:

#  asm_edit_hpat_break

#     (  hpat_ids,

#        break_type,

#        break_entity_list,

#        param_pos,

#        delete_orig,

#        solid_list,

#        created_ids )

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

#  Variable Declarations

STRING   s_hpat_ids[32] = "8"

INTEGER  i_break_type

STRING   s_break_entity_list[32]

REAL     ra_param_pos(3)

LOGICAL  l_delete_orig

STRING   s_solid_list[32]

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

STRING   sv_sgm_solid_2surface_created[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

STRING   sv_asm_line_2point_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

i_return_value =                                 @

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

dump i_return_value

solid_label(TRUE)

s_hpat_ids = "8"

#  Create a solid ,surface and a curve.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_created )

dump i_return_value

i_return_value =                                 @

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

      "[0.5 2 0]", "Coord 0",                    @

      sv_asm_create_patch_xy_created )

dump i_return_value

i_return_value =                                 @

   sgm_const_solid_2surface_v1( "1", TRUE,       @

      "Surface 1 ", "Surface 2 ",                @

      sv_sgm_solid_2surface_created )

dump i_return_value

i_return_value =                                 @

   asm_const_patch_xyz( "3", "<-2.5 0 -2.5>",    @

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

      sv_asm_create_patch_xy_created )

dump i_return_value

i_return_value =                                 @

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

      "Point 7 ", 0, "", 50., 1,                 @

      sv_asm_line_2point_created )

dump i_return_value

l_delete_orig  = FALSE

#  Break the hpat with break type surface.

i_break_type = 3

s_break_entity_list = "surface 3"

s_solid_list = "solid 1"

i_return_value =                                 @

   asm_edit_hpat_break                           @

      (  s_hpat_ids,                             @

         i_break_type,                           @

         s_break_entity_list,                    @

         ra_param_pos,                           @

         l_delete_orig,                          @

         s_solid_list,                           @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

#  Break the hpat with break type curve.

s_hpat_ids = "100"

i_break_type = 2

s_break_entity_list = "curve 1"

s_solid_list = "solid 8"

i_return_value =                                 @

   asm_edit_hpat_break                           @

      (  s_hpat_ids,                             @

         i_break_type,                           @

         s_break_entity_list,                    @

         ra_param_pos,                           @

         l_delete_orig,                          @

         s_solid_list,                           @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

#  Break the hpat with break type parametric position.

s_hpat_ids = "200"

i_break_type = 0

s_solid_list = "solid 9"

ra_param_pos(1) = 0.0

ra_param_pos(2) = 0.0

ra_param_pos(3) = 0.5

i_return_value =                                 @

   asm_edit_hpat_break                           @

      (  s_hpat_ids,                             @

         i_break_type,                           @

         s_break_entity_list,                    @

         ra_param_pos,                           @

         l_delete_orig,                          @

         s_solid_list,                           @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_create_patch_xy_created)

sys_free_string(sv_sgm_solid_2surface_created)

sys_free_string(sv_asm_create_patch_xy_created)

sys_free_string(sv_asm_line_2point_created)

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


asm_edit_hpat_reverse	()

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

#                      function asm_edit_hpat_reverse()

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

#                      creates a solid. Later it reverses the

#                      parametric directions of the solid using the

#                      above function.

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

#  has the following arguments:

#  asm_edit_hpat_reverse

#     (  hpat_list,

#        reversed_labels )

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

#  Variable Declarations

STRING   s_hpat_list[32]

STRING   sv_reversed_labels[VIRTUAL]

STRING   sv_asm_create_hpat_xyz_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

i_return_value =                                 @

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

dump i_return_value

i_return_value =                                 @

   ga_group_display_set("default_group","general")

dump i_return_value

i_return_value =                                 @

   ga_display_parametric_set("general",1)

dump i_return_value

#  Create a Solid.

i_return_value =                                 @

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

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

      sv_asm_create_hpat_xyz_created )

dump i_return_value

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

sf_pause()

#  Reverse the Solid.

s_hpat_list = "solid 1"

i_return_value =                                 @

   asm_edit_hpat_reverse                         @

      (  s_hpat_list,                            @

         sv_reversed_labels )

dump i_return_value

dump sv_reversed_labels

#  Note the change of parametric directions.

sys_free_string(sv_reversed_labels)

sys_free_string(sv_asm_create_hpat_xyz_created)

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


asm_edit_line_blend	()

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

#                      function asm_edit_line_blend()

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

#                      creates five lines. Later it blends the curves

#                      such that first derivative continuity is

#                      enforced at the boundaries.

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

#  has the following arguments:

#  asm_edit_line_blend

#     (  line_ids,

#        weights,

#        curve_list,

#        delete_orig,

#        created_ids )

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

#  Variable Declarations

STRING   s_line_ids[32]

STRING   s_weights[32]

STRING   s_curve_list[32]

LOGICAL  l_delete_orig

STRING   sv_asm_create_line_xyz_created[VIRTUAL]

STRING   sv_created_ids[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

curve_label(TRUE)

s_line_ids = "#"

#  Create five lines with sharp edges.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "2", "<1 0 0>", "[1 1 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "3", "<1 -1 0>","[2 1 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "4", "<1 0 0>", "[3 0 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "5", "<1 1 0>", "[4 0 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

s_weights = "1e-6 1.0 1.0 1e6"

s_curve_list = "curve 1:5"

l_delete_orig = FALSE

i_return_value =                                 @

   asm_edit_line_blend                           @

      (  s_line_ids,                             @

         s_weights,                              @

         s_curve_list,                           @

         l_delete_orig,                          @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_create_line_xyz_created)

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


asm_edit_line_merge	()

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

#                      function asm_edit_line_merge()

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

#                      creates five lines. Later it merges the lines

#                      to three lines curves.

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

#  has the following arguments:

#  asm_edit_line_merge

#     (  line_ids,

#        curve_list,

#        nlines,

#        geotol,

#        niterations,

#        delete_orig,

#        created_ids )

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

#  Variable Declarations

STRING   s_line_ids[32]

STRING   s_curve_list[32]

INTEGER  i_nlines

REAL     r_geotol

INTEGER  i_niterations

LOGICAL  l_delete_orig

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_create_line_xyz_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

s_line_ids = "#"

curve_label(TRUE)

#  Create five curves.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "2", "<1 0 0>", "[1 1 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "3", "<1 -1 0>","[2 1 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "4", "<1 0 0>", "[3 0 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "5", "<1 1 0>", "[4 0 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

s_curve_list = "curve 1:5"

i_nlines = 3

r_geotol = 0.005

i_niterations = 0

l_delete_orig = FALSE

i_return_value =                                 @

   asm_edit_line_merge                           @

      (  s_line_ids,                             @

         s_curve_list,                           @

         i_nlines,                               @

         r_geotol,                               @

         i_niterations,                          @

         l_delete_orig,                          @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_create_line_xyz_created)

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


asm_edit_patch_blend	()

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

#                      function asm_edit_patch_blend()

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

#                      creates three surfaces. Later it blends the

#                      surfaces such that first derivative continuity

#                      is enforced at the boundaries.

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

#  has the following arguments:

#  asm_edit_patch_blend

#     (  patch_ids,

#        weights,

#        surface_list,

#        delete_orig,

#        created_ids )

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

#  Variable Declarations

STRING   s_patch_ids[32]

STRING   s_edge_list[32]

STRING   s_weights[32]

STRING   s_surface_list[32]

LOGICAL  l_delete_orig

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

STRING   sv_sgm_surface_2curve_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

s_patch_ids = "#"

surface_label(TRUE)

i_return_value =                                 @

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

dump i_return_value

#  Create three surfaces.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_created )

dump i_return_value

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_created )

dump i_return_value

i_return_value =                                 @

   sgm_const_surface_2curve( "3", "surface 1.2", @

      "surface 2.4",sv_sgm_surface_2curve_created)

dump i_return_value

s_weights = "0.5"

s_edge_list = ""

s_surface_list = "surface 1:3"

l_delete_orig = TRUE

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

sf_pause()

#  Blend the surfaces.

i_return_value =                                 @

   asm_edit_patch_blend                          @

      (  s_patch_ids,                            @

         s_edge_list,                            @

         s_weights,                              @

         s_surface_list,                         @

         l_delete_orig,                          @

         sv_created_ids )

$? YES 1000030

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_create_patch_xy_created)

sys_free_string(sv_sgm_surface_2curve_created)

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


asm_edit_patch_break	()

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

#                      function asm_edit_patch_break()

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

#                      creates a surface. Later it breaks it by

#                      parametric option. Finally it breaks one

#                      of the divided surface by point option.

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

#  has the following arguments:

#  asm_edit_patch_break

#     (  patch_ids,

#        break_type,

#        break_entity_list,

#        param_pos,

#        delete_orig,

#        surface_list,

#        created_ids )

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

#  Variable Declarations

STRING   s_patch_ids[32]

INTEGER  i_break_type

STRING   s_break_entity_list[32]

REAL     ra_param_pos(2)

LOGICAL  l_delete_orig

STRING   s_surface_list[32]

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

surface_label(TRUE)

i_return_value =                                 @

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

dump i_return_value

s_patch_ids = "8"

#  Create surface.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_created )

dump i_return_value

l_delete_orig  = FALSE

#  Break the patch with break type parametric position.

i_break_type = 0

s_surface_list = "surface 1"

ra_param_pos(1) = 0.3

ra_param_pos(2) = 0.3

i_return_value =                                 @

   asm_edit_patch_break                          @

      (  s_patch_ids,                            @

         i_break_type,                           @

         s_break_entity_list,                    @

         ra_param_pos,                           @

         l_delete_orig,                          @

         s_surface_list,                         @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

#  Break the patch with break type point option.

s_patch_ids = "200"

i_break_type = 1

s_surface_list = "surface 8"

s_break_entity_list = "point 1"

i_return_value =                                 @

   asm_edit_patch_break                          @

      (  s_patch_ids,                            @

         i_break_type,                           @

         s_break_entity_list,                    @

         ra_param_pos,                           @

         l_delete_orig,                          @

         s_surface_list,                         @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_create_patch_xy_created)

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


sgm_edit_brep_break_plane	()

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

#                      function sgm_edit_brep_break_plane()

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

#                      creates a solid and a plane. Later it breaks

#                      the surface along the plane using the above

#                      function.

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

#  has the following arguments:

#  sgm_edit_brep_break_plane

#     (  solid_list,

#        plane_list,

#        delete_flag,

#        created_ids )

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

#  Variable Declarations

STRING   s_solid_list[32]

STRING   s_plane_list[32]

LOGICAL  l_delete_flag

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_create_hpat_xyz_created[VIRTUAL]

STRING   sv_sgm_create_plane_3p_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

solid_label(TRUE)

i_return_value =                                 @

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

dump i_return_value

#  Create a Solid.

i_return_value =                                 @

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

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

      sv_asm_create_hpat_xyz_created )

dump i_return_value

#  Create a Plane.

i_return_value =                                 @

   sgm_const_plane_3point( "1", "[0.5 0.5 0.5]", @

      "[0.85 0.25 0.25]", "[0.25 0.25 0.85]",    @

      sv_sgm_create_plane_3p_created )

dump i_return_value

s_solid_list = "solid 1"

s_plane_list = "plane 1"

l_delete_flag = FALSE

#  Break the solid with a plane.

i_return_value =                                 @

   sgm_edit_brep_break_plane                     @

      (  s_solid_list,                           @

         s_plane_list,                           @

         l_delete_flag,                          @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_create_hpat_xyz_created)

sys_free_string(sv_sgm_create_plane_3p_created)

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


sgm_edit_brep_break_surface	()

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

#                      function sgm_edit_brep_break_surface()

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

#                      creates a solid and a surface. Later it breaks

#                      the solid along the surface using the above

#                      function.

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

#  has the following arguments:

#  sgm_edit_brep_break_surface

#     (  solid_list,

#        surface_list,

#        delete_flag,

#        created_ids )

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

#  Variable Declarations

STRING   s_solid_list[32]

STRING   s_surface_list[32]

LOGICAL  l_delete_flag

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_create_hpat_xyz_created[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

i_return_value =                                 @

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

dump i_return_value

solid_label(TRUE)

#  Create a Solid.

i_return_value =                                 @

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

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

      sv_asm_create_hpat_xyz_created )

dump i_return_value

#  Create a Surface.

i_return_value =                                 @

   asm_const_patch_xyz( "1", "<1 1.5 1.2>",      @

      "[0.3 0 -0.5]", "Coord 0",                 @

      sv_asm_create_patch_xy_created )

dump i_return_value

s_solid_list = "solid 1"

s_surface_list = "surface 1"

l_delete_flag = FALSE

#  Break the solid with a surface.

i_return_value =                                 @

   sgm_edit_brep_break_surface                   @

      (  s_solid_list,                           @

         s_surface_list,                         @

         l_delete_flag,                          @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_create_hpat_xyz_created)

sys_free_string(sv_asm_create_patch_xy_created)

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


sgm_edit_curve_break_parametric	()

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

#                      function sgm_edit_curve_break_parametric()

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

#                      creates two circular curves. Later it breaks

#                      the curves at a parametric value of 0.4.

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

#  has the following arguments:

#  sgm_edit_curve_break_parametric

#     (  curve_ids,

#        c_pos,

#        curve_list,

#        delete_orig,

#        created_ids )

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

#  Variable Declarations

STRING   s_curve_ids[32]

REAL     r_c_pos

STRING   s_curve_list[32]

LOGICAL  l_delete_orig

STRING   sv_created_ids[VIRTUAL]

STRING   sv_sgm_create_curve_2d_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

curve_label(TRUE)

s_curve_ids = "#"

r_c_pos =  0.4

s_curve_list = "curve 1 2"

l_delete_orig = TRUE

#  Create two curves.

i_return_value =                                 @

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

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

      sv_sgm_create_curve_2d_created )

dump i_return_value

i_return_value =                                 @

   sgm_const_curve_2d_circle_v1( "2", 1, 0.7,    @

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

      sv_sgm_create_curve_2d_created )

dump i_return_value

#  Break the Curve.

i_return_value =                                 @

   sgm_edit_curve_break_parametric               @

      (  s_curve_ids,                            @

         r_c_pos,                                @

         s_curve_list,                           @

         l_delete_orig,                          @

         sv_created_ids )

$? YES 38000217

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_sgm_create_curve_2d_created)

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


sgm_edit_curve_break_plane	()

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

#                      function sgm_edit_curve_break_plane()

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

#                      creates two circular curves and a plane. Later

#                      it breaks the curves using the created plane.

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

#  has the following arguments:

#  sgm_edit_curve_break_plane

#     (  curve_ids,

#        plane_list,

#        curve_list,

#        delete_flag,

#        created_ids )

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

#  Variable Declarations

STRING   s_curve_ids[32]

STRING   s_plane_list[32]

STRING   s_curve_list[32]

LOGICAL  l_delete_flag

STRING   sv_created_ids[VIRTUAL]

STRING   sv_sgm_create_curve_2d_created[VIRTUAL]

STRING   sv_sgm_create_plane_3p_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

curve_label(TRUE)

s_curve_ids = "#"

#  Create two curves.

i_return_value =                                 @

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

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

      sv_sgm_create_curve_2d_created )

dump i_return_value

i_return_value =                                 @

   sgm_const_curve_2d_circle_v1( "2", 1, 0.7,    @

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

      sv_sgm_create_curve_2d_created )

dump i_return_value

#  Create  a Plane.

i_return_value =                                 @

   sgm_const_plane_3point( "1", "[0.2 0.2 0.2]", @

      "[0.85 0.25 0.25]", "[0.25 0.25 0.85]",    @

      sv_sgm_create_plane_3p_created )

dump i_return_value

s_plane_list = "plane 1"

s_curve_list = "curve 1 2"

l_delete_flag = TRUE

#  Break the Curve.

i_return_value =                                 @

   sgm_edit_curve_break_plane                    @

      (  s_curve_ids,                            @

         s_plane_list,                           @

         s_curve_list,                           @

         l_delete_flag,                          @

         sv_created_ids )

$? YESFORALL 38000217

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_sgm_create_plane_3p_created)

sys_free_string(sv_sgm_create_curve_2d_created)

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


sgm_edit_curve_break_point	()

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

#                      function sgm_edit_curve_break_point()

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

#                      creates two circular curves. Later it breaks

#                      the curves at two points.

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

#  has the following arguments:

#  sgm_edit_curve_break_point

#     (  curve_ids,

#        point_list,

#        curve_list,

#        delete_orig,

#        created_ids )

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

#  Variable Declarations

STRING   s_curve_ids[32]

STRING   s_point_list[32]

STRING   s_curve_list[32]

LOGICAL  l_delete_orig

STRING   sv_created_ids[VIRTUAL]

STRING   sv_sgm_create_curve_2d_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

curve_label(TRUE)

s_curve_ids = "#"

#  Create two curves.

i_return_value =                                 @

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

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

      sv_sgm_create_curve_2d_created )

dump i_return_value

i_return_value =                                 @

   sgm_const_curve_2d_circle_v1( "2", 1, 0.7,    @

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

      sv_sgm_create_curve_2d_created )

dump i_return_value

s_point_list = "[-1 0 0] [0.7 0 0]"

s_curve_list = "curve 1 2"

l_delete_orig = TRUE

#  Break the Curve.

i_return_value =                                 @

   sgm_edit_curve_break_point                    @

      (  s_curve_ids,                            @

         s_point_list,                           @

         s_curve_list,                           @

         l_delete_orig,                          @

         sv_created_ids )

$? YES 38000217

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_sgm_create_curve_2d_created)

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


sgm_edit_curve_disassemble	()

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

#                      function sgm_edit_curve_disassemble()

#                      In this illustration, a new database is opened

#                      2 lines are created. Then  the two curves are

#                      joined to create a chain of curves. Finally

#                      the function is called to disassemble the two

#                      curves.

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

#  has the following arguments:

#  sgm_edit_curve_disassemble

#     (  curve_list,

#        delete_original )

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

#  Variable Declarations

STRING   s_curve_list[32]

LOGICAL  l_delete_original

STRING   sv_asm_create_line_xyz_creat_id[VIRTUAL]

INTEGER  i_sgm_create_curve_cha_seg_id

STRING   sv_sgm_create_curve_ch_creat_id[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the curves

curve_label(TRUE)

#  Create 2 curves

i_return_value =                                 @

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

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

      sv_asm_create_line_xyz_creat_id )

dump i_return_value

#  Create a chain of curve using Curve 1 2. Delete the original

#  curves.

i_return_value =                                 @

   sgm_create_curve_chain_v1( "", "Curve 1 2 ",  @

      TRUE, i_sgm_create_curve_cha_seg_id,       @

      sv_sgm_create_curve_ch_creat_id )

$? YES 38000217

dump i_return_value

#  Observe the Curve 3. It is a chain.

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

sf_pause()

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

#  Disassemble the Curve 3 into Curve 4 & 5. Delete the Curve 3.

s_curve_list = "Curve 3"

l_delete_original = TRUE

i_return_value =                                 @

   sgm_edit_curve_disassemble                    @

      (  s_curve_list,                           @

         l_delete_original )

$? YES 38000217

dump i_return_value

sys_free_string( sv_asm_create_line_xyz_creat_id )

sys_free_string( sv_sgm_create_curve_ch_creat_id )

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


sgm_edit_curve_extend_1curve	()

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

#                      function sgm_edit_curve_extend_1curve()

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

#                      creates a semi circular curve. Later it

#                      extends the curve using the above function.

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

#  has the following arguments:

#  sgm_edit_curve_extend_1curve

#     (  curve_ids,

#        extend_type,

#        length_type,

#        curve_length,

#        curveextendpoint,

#        created_ids )

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

#  Variable Declarations

STRING   s_curve_ids[32]

INTEGER  i_extend_type

INTEGER  i_length_type

REAL     r_curve_length

STRING   s_curveextendpoint[256]

STRING   sv_created_ids[VIRTUAL]

STRING   sv_sgm_create_curve_2d_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

curve_label(TRUE)

s_curve_ids = "#"

#  Create a semi-circular curve.

i_return_value =                                       @

   sgm_const_curve_2d_arcangles_v1( "1", 1.,90.,       @

      270., "Coord 0.3", "[0 0 0]",                    @

      TRUE, sv_sgm_create_curve_2d_created )

dump i_return_value

i_extend_type = 2

i_length_type = 2

r_curve_length = 0.5

s_curveextendpoint = "Construct PointCurveUOnCurve     @

   (Evaluate Geometry (Point 1 )) (Evaluate Geo" //    @

   "metry (Curve 1 ))"

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

sf_pause()

#  Extend the curve

i_return_value =                                       @

   sgm_edit_curve_extend_1curve                        @

      (  s_curve_ids,                                  @

         i_extend_type,                                @

         i_length_type,                                @

         r_curve_length,                               @

         s_curveextendpoint,                           @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_sgm_create_curve_2d_created)

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


sgm_edit_curve_extend_2curve	()

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

#                      function sgm_edit_curve_extend_2curve()

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

#                      creates two curves. Later it extends the

#                      curves upto their intersection point.

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

#  has the following arguments:

#  sgm_edit_curve_extend_2curve

#     (  curve_ids,

#        curve1_list,

#        curve2_list,

#        created_ids )

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

#  Variable Declarations

STRING   s_curve_ids[32]

STRING   s_curve1_list[32]

STRING   s_curve2_list[32]

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_line_3point_created_ids[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

curve_label(TRUE)

s_curve_ids = "#"

#  Create two curves.

i_return_value =                                 @

   asm_const_line_3point( "1", "[0.5 0.8 0.0]",  @

      "[1.1 1.0 0]", "[0.5 0 0]", 1, 0.5,        @

      sv_asm_line_3point_created_ids )

dump i_return_value

i_return_value =                                 @

   asm_const_line_3point( "2", "[-0.5 0.8 0.0]", @

      "[-1.1 1.0 0]", "[-0.5 0 0]", 1, 0.5,      @

      sv_asm_line_3point_created_ids )

dump i_return_value

s_curve1_list = "curve 1"

s_curve2_list = "curve 2"

# Session file paused.Press resume to continue.

sf_pause()

#  Extend the two curves till their intersection point.

i_return_value =                                 @

   sgm_edit_curve_extend_2curve                  @

      (  s_curve_ids,                            @

         s_curve1_list,                          @

         s_curve2_list,                          @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_line_3point_created_ids)

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


sgm_edit_curve_extend_circle	()

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

#                      function sgm_edit_curve_extend_circle()

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

#                      creates a curve. Later it extends the curve

#                      by creating a full circle.

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

#  has the following arguments:

#  sgm_edit_curve_extend_circle

#     (  curve_ids,

#        curveextendpoint,

#        delete_orig,

#        created_ids )

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

#  Variable Declarations

STRING   s_curve_ids[32]

STRING   s_curveextendpoint[256]

LOGICAL  l_delete_orig

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_line_3point_created_ids[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

curve_label(TRUE)

s_curve_ids = "#"

#  Create a curve.

i_return_value =                                             @

   asm_const_line_3point( "1", "[0.5 0.8 0.0]",              @

      "[1.1 1.0 0]", "[0.5 0 0]", 1, 0.5,                    @

      sv_asm_line_3point_created_ids )

dump i_return_value

s_curveextendpoint = " Construct PointCurveUOnCurve(Evaluate @

   Geometry (Point 1 )) (Evaluate Geometry (Curve 1 ))"

l_delete_orig = FALSE

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

sf_pause()

# Extend the curve by creating a full circle.

i_return_value =                                             @

   sgm_edit_curve_extend_circle                              @

      (  s_curve_ids,                                        @

         s_curveextendpoint,                                 @

         l_delete_orig,                                      @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_line_3point_created_ids)

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


sgm_edit_curve_extend_points	()

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

#                      function sgm_edit_curve_extend_points()

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

#                      creates a curve and two points. Later it

#                      extends the curve through the created points.

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

#  has the following arguments:

#  sgm_edit_curve_extend_points

#     (  curve_ids,

#        curve,

#        point_list,

#        created_ids )

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

#  Variable Declarations

STRING   s_curve_ids[32]

STRING   s_curve[32]

STRING   s_point_list[32]

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_create_line_xyz_created[VIRTUAL]

STRING   sv_asm_create_grid_xyz_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a curve and two points.

i_return_value =                                   @

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

      "Coord 0", sv_asm_create_line_xyz_created )

dump i_return_value

i_return_value =                                   @

   asm_const_grid_xyz("3 4","[1.3 1.1 0][.8 .9 0]",@

      "Coord 0",sv_asm_create_grid_xyz_created )

dump i_return_value

s_curve = "curve 1"

s_point_list = "point 3 4 "

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

sf_pause()

#  Extend the curve.

i_return_value =                                   @

   sgm_edit_curve_extend_points                    @

      (  s_curve_ids,                              @

         s_curve,                                  @

         s_point_list,                             @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_create_line_xyz_created)

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


sgm_edit_curve_merge	()

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

#                      function sgm_edit_curve_merge()

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

#                      creates five lines. Later it merges the curves

#                      to three cubic curves.

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

#  has the following arguments:

#  sgm_edit_curve_merge

#     (  curve_ids,

#        curve_list,

#        num_curves,

#        merge_tol,

#        delete_original,

#        created_ids )

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

#  Variable Declarations

STRING   s_curve_ids[32]

STRING   s_curve_list[32]

INTEGER  i_num_curves

REAL     r_merge_tol

LOGICAL  l_delete_original

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_create_line_xyz_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

curve_label(TRUE)

s_curve_ids = "#"

#  Create five curves.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "2", "<1 0 0>", "[1 1 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "3", "<1 -1 0>","[2 1 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "4", "<1 0 0>", "[3 0 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

i_return_value =                                 @

   asm_const_line_xyz( "5", "<1 1 0>", "[4 0 0]",@

      "Coord 0",sv_asm_create_line_xyz_created)

dump i_return_value

s_curve_list = "curve 1:5"

i_num_curves = 3

r_merge_tol = 0.005

l_delete_original = FALSE

i_return_value =                                 @

   sgm_edit_curve_merge                          @

      (  s_curve_ids,                            @

         s_curve_list,                           @

         i_num_curves,                           @

         r_merge_tol,                            @

         l_delete_original,                      @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_create_line_xyz_created)

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


sgm_edit_curve_refit	()

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

#                      function sgm_edit_curve_refit()

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

#                      creates a curve. Later it refits this curve

#                      using the above function.

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

#  has the following arguments:

#  sgm_edit_curve_refit

#     (  curve_ids,

#        curve_list,

#        refit_method,

#        refit_tolerance,

#        ncurves,

#        delete_original,

#        created_ids )

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

#  Variable Declarations

STRING   s_curve_ids[32]

STRING   s_curve_list[32]

INTEGER  i_refit_method

REAL     r_refit_tolerance

INTEGER  i_ncurves

LOGICAL  l_delete_original

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_line_3point_created_ids[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

s_curve_ids = "8"

curve_label(TRUE)

#  Create a Curve.

i_return_value =                                 @

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

      "[0.5 0.5 0]", "[1 0.4 0]", 1, 0.5,        @

      sv_asm_line_3point_created_ids )

dump i_return_value

s_curve_list = "curve 1"

i_refit_method = 2

r_refit_tolerance = 0.005

i_ncurves = 2

l_delete_original = FALSE

#  Refit the curve.

i_return_value =                                 @

   sgm_edit_curve_refit                          @

      (  s_curve_ids,                            @

         s_curve_list,                           @

         i_refit_method,                         @

         r_refit_tolerance,                      @

         i_ncurves,                              @

         l_delete_original,                      @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_line_3point_created_ids)

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


sgm_edit_curve_reverse	()

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

#                      function sgm_edit_curve_reverse()

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

#                      creates a curve and sets the display for

#                      parametric direction. Later it reverses the

#                      parametric direction using the above function.

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

#  has the following arguments:

#  sgm_edit_curve_reverse

#     (  reverse_mesh,

#        curve_list,

#        reversed_ids )

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

#  Variable Declarations

LOGICAL  l_reverse_mesh

STRING   s_curve_list[32]

STRING   sv_reversed_ids[VIRTUAL]

STRING   sv_asm_line_3point_created_ids[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

i_return_value =                                 @

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

dump i_return_value

i_return_value =                                 @

   ga_group_display_set("default_group","general")

dump i_return_value

i_return_value =                                 @

   ga_display_parametric_set("general",1)

dump i_return_value

#  Create one curve.

i_return_value =                                 @

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

      "[0.5 0.5 0]", "[1.0 0.8 0]", 1, 0.5,      @

      sv_asm_line_3point_created_ids )

dump i_return_value

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

sf_pause()

#  Reverse the parameterization of the curve.

l_reverse_mesh = FALSE

s_curve_list = "curve 1"

i_return_value =                                 @

   sgm_edit_curve_reverse                        @

      (  l_reverse_mesh,                         @

         s_curve_list,                           @

         sv_reversed_ids )

dump i_return_value

dump sv_reversed_ids

sys_free_string(sv_reversed_ids)

sys_free_string(sv_asm_line_3point_created_ids )

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


sgm_edit_curve_trim_parametric	()

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

#                      function sgm_edit_curve_trim_parametric()

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

#                      creates a curve. Later it trims the curve

#                      at parametric position of 0.5.

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

#  has the following arguments:

#  sgm_edit_curve_trim_parametric

#     (  c_pos,

#        curve_trimpoint,

#        trimmed_ids )

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

#  Variable Declarations

REAL     r_c_pos

STRING   s_curve_trimpoint[256]

STRING   sv_trimmed_ids[VIRTUAL]

STRING   sv_asm_line_3point_created_ids[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a curve.

i_return_value =                                                @

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

      "[0.5 0.5 0]", "[1.0 0.0 0]", 1, 0.5,                     @

      sv_asm_line_3point_created_ids )

dump i_return_value

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

sf_pause()

r_c_pos = 0.5

s_curve_trimpoint = "Construct PointCurveUOnCurve (Evaluate" // @

" Geometry (Point 2 )) (Evaluate Geometry (Curve 1 ))"

#  Trim the curve.

i_return_value =                                                @

   sgm_edit_curve_trim_parametric                               @

      (  r_c_pos,                                               @

         s_curve_trimpoint,                                     @

         sv_trimmed_ids )

dump i_return_value

dump sv_trimmed_ids

sys_free_string(sv_trimmed_ids)

sys_free_string(sv_asm_line_3point_created_ids )

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


sgm_edit_curve_trim_point	()

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

#                      function sgm_edit_curve_trim_point()

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

#                      creates a curve. Later it trims the curve

#                      at a particular point.

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

#  has the following arguments:

#  sgm_edit_curve_trim_point

#     (  trimpoint,

#        curve_trimpoint,

#        trimmed_ids )

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

#  Variable Declarations

STRING   s_trimpoint[32]

STRING   s_curve_trimpoint[256]

STRING   sv_trimmed_ids[VIRTUAL]

STRING   sv_asm_line_3point_created_ids[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Create a curve.

i_return_value =                                                @

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

      "[0.5 0.5 0]", "[1.0 0.0 0]", 1, 0.5,                     @

      sv_asm_line_3point_created_ids )

dump i_return_value

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

sf_pause()

s_trimpoint = "[0.6 0.48 0]"

s_curve_trimpoint = "Construct PointCurveUOnCurve (Evaluate" // @

" Geometry (Point 2 )) (Evaluate Geometry (Curve 1 ))"

#  Trim the curve.

i_return_value =                                                @

   sgm_edit_curve_trim_point                                    @

      (  s_trimpoint,                                           @

         s_curve_trimpoint,                                     @

         sv_trimmed_ids )

dump i_return_value

dump sv_trimmed_ids

sys_free_string(sv_trimmed_ids)

sys_free_string(sv_asm_line_3point_created_ids )

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


sgm_edit_solid_break_v1	()

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

#                      function sgm_edit_solid_break_v1()

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

#                      creates a solid,a surface intersecting the

#                      solid and a curve on one of the surfaces.

#                      Later it breaks the solid by using break type

#                      surface,curve and parametric position.

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

#  has the following arguments:

#  sgm_edit_solid_break_v1

#     (  solid_ids,

#        break_type,

#        break_entity_list,

#        param_pos,

#        delete_orig,

#        solid_list,

#        created_ids )

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

#  Variable Declarations

STRING   s_solid_ids[32]

INTEGER  i_break_type

STRING   s_break_entity_list[32]

REAL     ra_param_pos(3)

LOGICAL  l_delete_orig

STRING   s_solid_list[32]

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

STRING   sv_sgm_solid_2surface_created[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

STRING   sv_asm_line_2point_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

i_return_value =                                 @

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

dump i_return_value

solid_label(TRUE)

s_solid_ids = "8"

#  Create a solid ,surface and a curve.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_created )

dump i_return_value

i_return_value =                                 @

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

      "[0.5 2 0]", "Coord 0",                    @

      sv_asm_create_patch_xy_created )

dump i_return_value

i_return_value =                                 @

   sgm_const_solid_2surface_v1( "1", TRUE,       @

      "Surface 1 ", "Surface 2 ",                @

      sv_sgm_solid_2surface_created )

dump i_return_value

i_return_value =                                 @

   asm_const_patch_xyz( "3", "<-2.5 0 -2.5>",    @

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

      sv_asm_create_patch_xy_created )

dump i_return_value

i_return_value =                                 @

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

      "Point 7 ", 0, "", 50., 1,                 @

      sv_asm_line_2point_created )

dump i_return_value

l_delete_orig  = FALSE

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

sf_pause()

#  Break the solid with break type surface.

i_break_type = 4

s_break_entity_list = "surface 3"

s_solid_list = "solid 1"

i_return_value =                                 @

   sgm_edit_solid_break_v1                       @

      (  s_solid_ids,                            @

         i_break_type,                           @

         s_break_entity_list,                    @

         ra_param_pos,                           @

         l_delete_orig,                          @

         s_solid_list,                           @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

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

sf_pause()

#  Break the solid with break type curve.

s_solid_ids = "100"

i_break_type = 3

s_break_entity_list = "curve 1"

s_solid_list = "solid 8"

i_return_value =                                 @

   sgm_edit_solid_break_v1                       @

      (  s_solid_ids,                            @

         i_break_type,                           @

         s_break_entity_list,                    @

         ra_param_pos,                           @

         l_delete_orig,                          @

         s_solid_list,                           @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

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

sf_pause()

#  Break the solid with break type parametric position.

s_solid_ids = "200"

i_break_type = 1

s_solid_list = "solid 9"

ra_param_pos(1) = 0.0

ra_param_pos(2) = 0.0

ra_param_pos(3) = 0.5

i_return_value =                                 @

   sgm_edit_solid_break_v1                       @

      (  s_solid_ids,                            @

         i_break_type,                           @

         s_break_entity_list,                    @

         ra_param_pos,                           @

         l_delete_orig,                          @

         s_solid_list,                           @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_create_patch_xy_created)

sys_free_string(sv_sgm_solid_2surface_created)

sys_free_string(sv_asm_create_patch_xy_created)

sys_free_string(sv_asm_line_2point_created)

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


sgm_edit_solid_disassemble	()

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

#                      function sgm_edit_solid_disassemble()

#                      In this illustration, a new database is opened.

#                      A solid is created. Then the function is called

#                      to disassemble the solid into its subordinate

#                      surface faces.

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

#  has the following arguments:

#  sgm_edit_solid_disassemble

#     (  solid_list,

#        delete_orig,

#        crtd_lab )

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

#  Variable Declarations

STRING   s_solid_list[32]

LOGICAL  l_delete_orig

STRING   sv_crtd_lab[VIRTUAL]

INTEGER  i_return_value

STRING   sv_asm_create_hpat_xyz_creat_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the surfaces and solids.

surface_label(TRUE)

solid_label(TRUE)

# Create a solid.

i_return_value =                                 @

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

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

      sv_asm_create_hpat_xyz_creat_id )

dump i_return_value

#  Change the view

i_return_value =                                 @

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

dump i_return_value

#  Observe the solid created.

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

sf_pause()

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

#  Call the function to disassemble the solid into its subordinate

#  surface faces.

s_solid_list = " Solid 1"

l_delete_orig = TRUE

i_return_value =                                 @

   sgm_edit_solid_disassemble                    @

      (  s_solid_list,                           @

         l_delete_orig,                          @

         sv_crtd_lab )

$? YES 38000221

dump i_return_value

#  The surfaces created

dump sv_crtd_lab

sys_free_string( sv_crtd_lab )

sys_free_string( sv_asm_create_hpat_xyz_creat_id )

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


sgm_edit_surface_break	()

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

#                      function sgm_edit_surface_break()

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

#                      creates a surface and a curve. Later it breaks

#                      it by parametric option. Then it breaks one

#                      of the divided surface by point option.Finally

#                      it breaks other divided surface by curve

#                      option.

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

#  has the following arguments:

#  sgm_edit_surface_break

#     (  surface_ids,

#        surface,

#        delete_orig,

#        break_method,

#        iuv,

#        uv,

#        point1,

#        point2,

#        curve,

#        created_ids )

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

#  Variable Declarations

STRING   s_surface_ids[32]

STRING   s_surface[32]

LOGICAL  l_delete_orig

INTEGER  i_break_method

INTEGER  i_iuv

REAL     r_uv

STRING   s_point1[32]

STRING   s_point2[32]

STRING   s_curve[32]

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

STRING   sv_asm_line_2point_created_ids[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

i_return_value =                                 @

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

dump i_return_value

surface_label(TRUE)

s_surface_ids = "8"

#  Create surface and a curve.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_created )

dump i_return_value

i_return_value =                                 @

   asm_const_line_2point( "1", "[-0.3 0.2 0.0]", @

      "[1.2 0.2 0.0]", 0, "", 50., 1,            @

      sv_asm_line_2point_created_ids )

dump i_return_value

l_delete_orig  = FALSE

#  Break the patch with break type parametric position.

s_surface =  "surface 1"

i_break_method = 1

i_iuv = 2

r_uv = 0.3

i_return_value =                                 @

   sgm_edit_surface_break                        @

      (  s_surface_ids,                          @

         s_surface,                              @

         l_delete_orig,                          @

         i_break_method,                         @

         i_iuv,                                  @

         r_uv,                                   @

         s_point1,                               @

         s_point2,                               @

         s_curve,                                @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

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

sf_pause()

#  Break the patch with break type point option.

s_surface_ids = "100"

s_surface =  "surface 9"

i_break_method = 2

s_point1 = "[0.0 0.7 0.0] "

s_point2 = "[1.0 0.9 0.0] "

i_return_value =                                 @

   sgm_edit_surface_break                        @

      (  s_surface_ids,                          @

         s_surface,                              @

         l_delete_orig,                          @

         i_break_method,                         @

         i_iuv,                                  @

         r_uv,                                   @

         s_point1,                               @

         s_point2,                               @

         s_curve,                                @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

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

sf_pause()

#  Break the patch with break type curve option.

s_surface_ids = "200"

s_surface =  "surface 8"

i_break_method = 3

s_curve = "curve 1"

i_return_value =                                 @

   sgm_edit_surface_break                        @

      (  s_surface_ids,                          @

         s_surface,                              @

         l_delete_orig,                          @

         i_break_method,                         @

         i_iuv,                                  @

         r_uv,                                   @

         s_point1,                               @

         s_point2,                               @

         s_curve,                                @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_create_patch_xy_created)

sys_free_string(sv_asm_line_2point_created_ids)

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


sgm_edit_surface_break_v1	()

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

#                      function sgm_edit_surface_break_v1()

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

#                      creates three surfaces and a curve. Later it

#                      breaks the two surfaces using the surface

#                      option. Later it breaks the divided surface

#                      using curve option

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

#  has the following arguments:

#  sgm_edit_surface_break_v1

#     (  surface_ids,

#        surface_list,

#        delete_orig,

#        break_type,

#        iuv

#        uv,

#        point1_list,

#        point2_list,

#        break_entity_list,

#        created_ids )

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

#  Variable Declarations

STRING   s_surface_ids[32]

STRING   s_surface_list[32]

LOGICAL  l_delete_orig

INTEGER  i_break_type

INTEGER  i_iuv

REAL     r_uv

STRING   s_point1_list[32]

STRING   s_point2_list[32]

STRING   s_break_entity_list[32]

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

STRING   sv_asm_line_2point_created_ids[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

i_return_value =                                 @

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

dump i_return_value

surface_label(TRUE)

s_surface_ids = "8"

#  Create surface and a curve.

i_return_value =                                 @

   asm_const_patch_xyz( "1 2 3",                 @

      "<1 1 0><1 1 0><3.0 0 2.2>",               @

      "[0 0 0][1.2 0 0][-0.2 0.6 0]", "Coord 0", @

      sv_asm_create_patch_xy_created )

dump i_return_value

i_return_value =                                 @

   asm_const_line_2point( "1", "[-0.3 0.2 0.0]", @

      "[2.5 0.2 0.0]", 0, "", 50., 1,            @

      sv_asm_line_2point_created_ids )

dump i_return_value

l_delete_orig  = TRUE

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

sf_pause()

#  Break the surface with break type surface option.

s_surface_list =  "surface 1 2"

i_break_type = 4

s_break_entity_list = "surface 3 3"

i_return_value =                                 @

   sgm_edit_surface_break_v1                     @

      (  s_surface_ids,                          @

         s_surface_list,                         @

         l_delete_orig,                          @

         i_break_type,                           @

         i_iuv,                                  @

         r_uv,                                   @

         s_point1_list,                          @

         s_point2_list,                          @

         s_break_entity_list,                    @

         sv_created_ids )

$? YES 38000219

dump i_return_value

dump sv_created_ids

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

sf_pause()

#  Break the surface with break type curve option.

s_surface_ids = "100"

s_surface_list =  "surface 8 10"

i_break_type = 3

s_break_entity_list = "curve 1 1"

i_return_value =                                 @

   sgm_edit_surface_break_v1                     @

      (  s_surface_ids,                          @

         s_surface_list,                         @

         l_delete_orig,                          @

         i_break_type,                           @

         i_iuv,                                  @

         r_uv,                                   @

         s_point1_list,                          @

         s_point2_list,                          @

         s_break_entity_list,                    @

         sv_created_ids )

$? YES 38000219

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_asm_create_patch_xy_created)

sys_free_string(sv_asm_line_2point_created_ids)

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


sgm_edit_surface_break_plane	()

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

#                      function sgm_edit_surface_break_plane()

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

#                      creates two surfaces and a plane. Later

#                      it breaks the surfaces using the created plane.

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

#  has the following arguments:

#  sgm_edit_surface_break_plane

#     (  surface_ids,

#        surface_list,

#        plane_list,

#        delete_flag,

#        created_ids )

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

#  Variable Declarations

STRING   s_surface_ids[32]

STRING   s_plane_list[32]

STRING   s_surface_list[32]

LOGICAL  l_delete_flag

STRING   sv_created_ids[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

STRING   sv_sgm_create_plane_3p_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

surface_label(TRUE)

s_surface_ids = "8"

#  Create two surfaces.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_created )

dump i_return_value

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_created )

dump i_return_value

#  Create  a Plane.

i_return_value =                                 @

   sgm_const_plane_3point( "1", "[0 0.2 0]",     @

      "[0.25 0.25 -0.25]", "[0.25 0.25 0.25]",   @

      sv_sgm_create_plane_3p_created )

dump i_return_value

s_plane_list = "plane 1 1"

s_surface_list = "surface 1 2"

l_delete_flag = TRUE

#  Break the surface.

i_return_value =                                 @

   sgm_edit_surface_break_plane                  @

      (  s_surface_ids,                          @

         s_surface_list,                         @

         s_plane_list,                           @

         l_delete_flag,                          @

         sv_created_ids )

$? YESFORALL 38000219

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_sgm_create_plane_3p_created)

sys_free_string(sv_asm_create_patch_xy_created)

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


sgm_edit_surface_disassemble	()

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

#                      function sgm_edit_surface_disassemble()

#                      In this illustration, a new database is opened.

#                      A trimmed surface is created. The function is

#                      called to disassemble the trimmed surface into

#                      its parent surface and edge curves.

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

#  has the following arguments:

#  sgm_edit_surface_disassemble

#     (  surface_list,

#        delete_orig )

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

#  Variable Declarations

STRING   s_surface_list[128]

LOGICAL  l_delete_orig

INTEGER  i_return_value

STRING   s_output_ids[128]

STRING   s_curveo_list[128]

STRING   s_curvei_list[128]

STRING   s_surface[128]

LOGICAL  l_delete_ocurve

LOGICAL  l_delete_icurve

LOGICAL  l_delete_surf

STRING   s_created_ids[128]

INTEGER  i_sgm_create_curve_aut_segt_id

STRING   sv_asm_create_patch_xy_creat_id[VIRTUAL]

STRING   sv_asm_create_grid_xyz_creat_id[VIRTUAL]

STRING   sv_asm_line_2point_creat_id[VIRTUAL]

STRING   sv_sgm_create_curve_2d_creat_id[VIRTUAL]

STRING   sv_sgm_creat_cur_creat_curve_id[VIRTUAL]

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

#  Open a new database

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

$? YES 36000002

#  Show the labels of the surfaces and curves.

surface_label(TRUE)

curve_label(TRUE)

#  Create a patch.

i_return_value =                                 @

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

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

      sv_asm_create_patch_xy_creat_id )

dump i_return_value

#  Create 4 points.

i_return_value =                                 @

   asm_const_grid_xyz( "", "[5 0 0] [0 5 0] "//  @

      "[5 10 0][10 5 0]",                        @

      "Coord 0", sv_asm_create_grid_xyz_creat_id )

dump i_return_value

#  Create 4 curves.

i_return_value =                                 @

   asm_const_line_2point( "", "Point 5:8 ",      @

      "Point 6 7 8 5", 0, "", 50., 1,            @

      sv_asm_line_2point_creat_id )

dump i_return_value

#  Create a circular curve.

i_return_value =                                 @

   sgm_const_curve_2d_circle_v1( "", 1, 1.,      @

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

      sv_sgm_create_curve_2d_creat_id )

dump i_return_value

#  Convert the Curve 1:4 into a chain curve.

i_return_value =                                 @

   sgm_create_curve_chain_v1( "10",              @

   " Curve 1:4", TRUE,                           @

   i_sgm_create_curve_aut_segt_id,               @

   sv_sgm_creat_cur_creat_curve_id )

$? YES 38000217

#  Observe the curves and the surface.

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

sf_pause()

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

#  Call the function to create a trimmed surface inside Surface 1

#  with Curve 10 as outer boundary trim curve and Curve 5 as inner

#  boundary trim curve.

s_output_ids = "2"

s_curveo_list = "Curve 10"

s_curvei_list = "Curve 5"

s_surface = "Surface 1"

l_delete_ocurve = TRUE

l_delete_icurve = TRUE

l_delete_surf = TRUE

i_return_value =                                 @

   sgm_create_surface_trimmed                    @

      (  s_output_ids,                           @

         s_curveo_list,                          @

         s_curvei_list,                          @

         s_surface,                              @

         l_delete_ocurve,                        @

         l_delete_icurve,                        @

         l_delete_surf,                          @

         s_created_ids )

$? YES 38000217

$? YES 38000217

$? YES 38000219

dump i_return_value

#  Created surface is

dump s_created_ids

#  Observe the trimmed surface created.

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

sf_pause()

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

#  Call the function to disassemble the trimmed surface into its

#  parent surface.

s_surface_list = "Surface 2"

l_delete_orig = TRUE

i_return_value =                                 @

   sgm_edit_surface_disassemble                  @

      (  s_surface_list,                         @

         l_delete_orig )

$? YES 38000219

dump i_return_value

sys_free_string( sv_asm_create_patch_xy_creat_id )

sys_free_string( sv_asm_create_grid_xyz_creat_id )

sys_free_string( sv_asm_line_2point_creat_id )

sys_free_string( sv_sgm_create_curve_2d_creat_id )

sys_free_string( sv_sgm_creat_cur_creat_curve_id )

#  Press "Refresh Graphics" radio button to repaint the graphics

#  window.

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


sgm_edit_surface_refit	()

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

#                      function sgm_edit_surface_refit()

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

#                      creates a surface. Later it refits the surface

#                      using the above function.

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

#  has the following arguments:

#  sgm_edit_surface_refit

#     (  curve_ids,

#        refit_to_nurbs,

#        refit_tolerance,

#        delete_original,

#        surface_list,

#        created_ids )

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

#  Variable Declarations

STRING   s_curve_ids[32]

LOGICAL  l_refit_to_nurbs

REAL     r_refit_tolerance

LOGICAL  l_delete_original

STRING   s_surface_list[32]

STRING   sv_created_ids[VIRTUAL]

STRING   sv_sgm_create_curve_2d_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

i_return_value =                                 @

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

dump i_return_value

surface_label(TRUE)

s_curve_ids = "#"

#  Create two surfaces.

i_return_value =                                 @

   sgm_const_curve_2d_arcangles_v1( "1", 1.,     @

      30., 150., "Coord 0.3", "[0 0 0]", FALSE , @

      sv_sgm_create_curve_2d_created )

dump i_return_value

i_return_value =                                 @

   sgm_const_surface_revolve("1","coord 0.1",90.,@

      0.,"coord 0","curve 1",sv_created_ids)

dump i_return_value

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

sf_pause()

s_surface_list = "surface 1"

l_refit_to_nurbs = FALSE

r_refit_tolerance = 0.005

l_delete_original = FALSE

#  Refit the curve.

i_return_value =                                 @

   sgm_edit_surface_refit                        @

      (  s_curve_ids,                            @

         l_refit_to_nurbs,                       @

         r_refit_tolerance,                      @

         l_delete_original,                      @

         s_surface_list,                         @

         sv_created_ids )

dump i_return_value

dump sv_created_ids

sys_free_string(sv_created_ids)

sys_free_string(sv_sgm_create_curve_2d_created)

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


sgm_edit_surface_reverse	()

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

#                      function sgm_edit_surface_reverse()

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

#                      creates a surface and sets the display for

#                      parametric direction. Later it reverses the

#                      parametric direction using the above function.

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

#  has the following arguments:

#  sgm_edit_surface_reverse

#     (  reverse_mesh,

#        surface_list,

#        reversed_ids )

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

#  Variable Declarations

LOGICAL  l_reverse_mesh

STRING   s_surface_list[32]

STRING   sv_reversed_ids[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

i_return_value =                                 @

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

dump i_return_value

i_return_value =                                 @

   ga_group_display_set("default_group","general")

dump i_return_value

i_return_value =                                 @

   ga_display_parametric_set("general",1)

dump i_return_value

#  Create a Surface.

i_return_value =                                 @

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

      "Coord 0",sv_asm_create_patch_xy_created )

dump i_return_value

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

sf_pause()

#  Reverse the  parameterization of the surface.

l_reverse_mesh = FALSE

s_surface_list = "surface 1"

i_return_value =                                 @

   sgm_edit_surface_reverse                      @

      (  l_reverse_mesh,                         @

         s_surface_list,                         @

         sv_reversed_ids )

dump i_return_value

dump sv_reversed_ids

sys_free_string(sv_reversed_ids)

sys_free_string(sv_asm_create_patch_xy_created)

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

 Delete Actions

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


asm_delete_coord	()

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

#                      function asm_delete_coord()

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

#                      creates two coordinate frames. Later it

#                      deletes these coordinates using the above

#                      function.

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

#  has the following arguments:

#  asm_delete_coord

#     (  coord_list,

#        deleted_coords )

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

#  Variable Declarations

STRING   s_coord_list[32]

STRING   sv_deleted_coords[VIRTUAL]

STRING   sv_asm_create_cord_3po_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

#  Creating two coordinate frames.

i_return_value =                                 @

   asm_const_coord_3point( "1", "Coord 0", 1,    @

      "[.3 .3 .3]", "[.3 .3 2]", "[2 .3 .3]",    @

      sv_asm_create_cord_3po_created )

dump i_return_value

i_return_value =                                 @

   asm_const_coord_3point( "2", "Coord 0", 2,    @

      "[.5 .5 .5]", "[.5 .5 2]","[2 .5 .5]"      @

      , sv_asm_create_cord_3po_created )

dump i_return_value

s_coord_list = "coord 1 2"

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

sf_pause()

#  Delete the coordinate frames.

i_return_value =                                 @

   asm_delete_coord                              @

      (  s_coord_list,                           @

         sv_deleted_coords )

dump i_return_value

dump sv_deleted_coords

sys_free_string(sv_deleted_coords)

sys_free_string(sv_asm_create_cord_3po_created)

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


asm_delete_curve	()

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

#                      function asm_delete_curve()

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

#                      creates two curves. Later it deletes these

#                      curves using the above function.

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

#  has the following arguments:

#  asm_delete_curve

#     (  curve_list,

#        deleted_curves )

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

#  Variable Declarations

STRING   s_curve_list[32]

STRING   sv_deleted_curves[VIRTUAL]

STRING   sv_sgm_create_curve_2d_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

curve_label(TRUE)

#  Creating two curves.

i_return_value =                                 @

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

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

      sv_sgm_create_curve_2d_created )

dump i_return_value

i_return_value =                                 @

   sgm_const_curve_2d_circle_v1( "2", 1, 0.8,    @

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

      sv_sgm_create_curve_2d_created )

dump i_return_value

s_curve_list = "curve 1 2"

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

sf_pause()

#  Delete the curves.

i_return_value =                                 @

   asm_delete_curve                              @

      (  s_curve_list,                           @

         sv_deleted_curves )

dump i_return_value

dump sv_deleted_curves

sys_free_string(sv_deleted_curves)

sys_free_string(sv_sgm_create_curve_2d_created)

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


asm_delete_grid	()

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

#                      function asm_delete_grid()

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

#                      creates two grids. Later it deletes these

#                      grids using the above function.

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

#  has the following arguments:

#  asm_delete_grid

#     (  point_list,

#        deleted_points )

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

#  Variable Declarations

STRING   s_point_list[32]

STRING   sv_deleted_points[VIRTUAL]

STRING   sv_asm_create_grid_xyz_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

point_label(TRUE)

#  Creating two grids.

i_return_value =                                 @

   asm_const_grid_xyz( "100", "[0.5 0.5 0]",     @

      "Coord 0", sv_asm_create_grid_xyz_created )

dump i_return_value

i_return_value =                                 @

   asm_const_grid_xyz( "200", "[0.7 0.7 0]",     @

      "Coord 0",sv_asm_create_grid_xyz_created )

dump i_return_value

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

sf_pause()

s_point_list = "point 100 200"

#  Delete the grids.

i_return_value =                                 @

   asm_delete_grid                               @

      (  s_point_list,                           @

         sv_deleted_points )

dump i_return_value

dump sv_deleted_points

sys_free_string(sv_deleted_points)

sys_free_string(sv_asm_create_grid_xyz_created)

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


asm_delete_hpat	()

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

#                      function asm_delete_hpat()

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

#                      creates two hpats. Later it deletes the hpats

#                      using the above function.

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

#  has the following arguments:

#  asm_delete_hpat

#     (  solid_list,

#        deleted_solids )

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

#  Variable Declarations

STRING   s_solid_list[32]

STRING   sv_deleted_solids[VIRTUAL]

STRING   sv_asm_create_hpat_xyz_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

solid_label(TRUE)

i_return_value =                                 @

   ga_view_aa_set(23.,-34.,0)

dump i_return_value

#  Create 2 hpats.

i_return_value =                                 @

   asm_const_hpat_xyz( "100", "<0.3 0.3 0.3>",   @

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

      sv_asm_create_hpat_xyz_created )

dump i_return_value

i_return_value =                                 @

   asm_const_hpat_xyz( "200", "<0.4 0.4 0.4>",   @

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

      sv_asm_create_hpat_xyz_created )

dump i_return_value

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

sf_pause()

s_solid_list = "solid 100 200"

#  Delete 2 hpats.

i_return_value =                                 @

   asm_delete_hpat                               @

      (  s_solid_list,                           @

         sv_deleted_solids )

dump i_return_value

dump sv_deleted_solids

sys_free_string( sv_deleted_solids )

sys_free_string( sv_asm_create_hpat_xyz_created )

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


asm_delete_line	()

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

#                      function asm_delete_line()

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

#                      creates two lines. Later it deletes these

#                      lines using the above function.

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

#  has the following arguments:

#  asm_delete_line

#     (  curve_list,

#        deleted_curves )

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

#  Variable Declarations

STRING   s_curve_list[32]

STRING   sv_deleted_curves[VIRTUAL]

STRING   sv_asm_line_3point_created[VIRTUAL]

INTEGER  i_return_value

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

#  Open a new database "new.db"

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

$? YES 36000002

curve_label(TRUE)

#  Creating two lines.

i_return_value =                                 @

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

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

      sv_asm_line_3point_created )

dump i_return_value

i_return_value =                                 @

   asm_const_line_3point( "2", "[0 0.7 0]",      @

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

      sv_asm_line_3point_created )

dump i_return_value

s_curve_list = "line 1 2"

#  Session file paused. Press "Resume" to continue..

sf_pause()

#  Delete the lines.

i_return_value =                                 @

   asm_delete_curve                              @

      (  s_curve_list,                           @

         sv_deleted_curves )

dump i_return_value

dump sv_deleted_curves

sys_free_string(sv_deleted_curves)

sys_free_string(sv_asm_line_3point_created)

#---------------------------------------------------------------------


asm_delete_patch	()

#  Purpose          :  This file provides an example of a call to the

#                      function asm_delete_patch()

#                      This file opens a new database "new.db" and

#                      and creates a two patches. Later it deletes

#                      the created patches.

#                      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 asm_delete_patch()

#  has the following arguments:

#  asm_delete_patch

#     (  surface_list,

#        deleted_surfaces )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_surface_list[32]

STRING   sv_deleted_surfaces[VIRTUAL]

STRING   sv_asm_create_patch_xy_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

surface_label(TRUE)

#  Create 2 patches.

i_return_value =                                 @

   asm_const_patch_xyz( "1", "<0.3 0.3 0>",      @

      "[0 0 0]", "Coord 0",                      @

      sv_asm_create_patch_xy_created )

dump i_return_value

i_return_value =                                 @

   asm_const_patch_xyz( "2", "<0.4 0.4 0>",      @

      "[0.3 0.3 0]", "Coord 0",                  @

      sv_asm_create_patch_xy_created )

dump i_return_value

#  Session file paused. Press "Resume" to continue..

sf_pause()

s_surface_list = "patch 1 2"

#  Delete the 2 patches.

i_return_value =                                 @

   asm_delete_patch                              @

      (  s_surface_list,                         @

         sv_deleted_surfaces )

dump i_return_value

dump sv_deleted_surfaces

sys_free_string(sv_deleted_surfaces)

sys_free_string(sv_asm_create_patch_xy_created)

#---------------------------------------------------------------------


asm_delete_plane	()

#  Purpose          :  This file provides an example of a call to the

#                      function asm_delete_plane()

#                      This file opens a new database "new.db" and

#                      creates two planes. Later it deletes the

#                      created planes.

#                      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 asm_delete_plane()

#  has the following arguments:

#  asm_delete_plane

#     (  plane_list,

#        deleted_planes )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_plane_list[32]

STRING   sv_deleted_planes[VIRTUAL]

STRING   sv_sgm_create_plane_3p_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#  Create two planes.

i_return_value =                                 @

   sgm_const_plane_3point( "1", "[0 0 0]",       @

      "[0.5 1 0]", "[1 0 0]",                    @

      sv_sgm_create_plane_3p_created )

dump i_return_value

i_return_value =                                 @

   sgm_const_plane_3point( "2", "[0.3 0.3 0]",   @

      "[2 2 2]", "[3 3 3]",                      @

      sv_sgm_create_plane_3p_created )

dump i_return_value

#  Session file paused. Press "Resume" to continue..

sf_pause()

s_plane_list = "plane 1 2"

#  Delete the planes.

i_return_value =                                 @

   asm_delete_plane                              @

      (  s_plane_list,                           @

         sv_deleted_planes )

dump i_return_value

dump sv_deleted_planes

sys_free_string(sv_deleted_planes)

sys_free_string(sv_sgm_create_plane_3p_created)

#---------------------------------------------------------------------


asm_delete_point	()

#  Purpose          :  This file provides an example of a call to the

#                      function asm_delete_point()

#                      This file opens a new database "new.db" and

#                      creates two points. Later it deletes these

#                      points using the above function.

#                      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 asm_delete_point()

#  has the following arguments:

#  asm_delete_point

#     (  point_list,

#        deleted_points )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_point_list[32]

STRING   sv_deleted_points[VIRTUAL]

STRING   sv_asm_create_grid_xyz_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

point_label(TRUE)

#  Creating two points.

i_return_value =                                 @

   asm_const_grid_xyz( "100", "[0.5 0.5 0]",     @

      "Coord 0", sv_asm_create_grid_xyz_created )

dump i_return_value

i_return_value =                                 @

   asm_const_grid_xyz( "200", "[0.7 0.7 0]",     @

      "Coord 0",sv_asm_create_grid_xyz_created )

dump i_return_value

#  Session file paused. Press "Resume" to continue..

sf_pause()

s_point_list = "point 100 200"

#  Delete the points.

i_return_value =                                 @

   asm_delete_point                              @

      (  s_point_list,                           @

         sv_deleted_points )

dump i_return_value

dump sv_deleted_points

sys_free_string(sv_deleted_points)

sys_free_string(sv_asm_create_grid_xyz_created)

#---------------------------------------------------------------------


asm_delete_solid	()

#  Purpose          :  This file provides an example of a call to the

#                      function asm_delete_solid()

#                      This file opens a new database "new.db" and

#                      creates two solids. Later it deletes the

#                      solids using the above function.

#                      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 asm_delete_solid()

#  has the following arguments:

#  asm_delete_solid

#     (  solid_list,

#        deleted_solids )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_solid_list[32]

STRING   sv_deleted_solids[VIRTUAL]

STRING   sv_sgm_create_surface_created[VIRTUAL]

STRING   sv_sgm_sweep_solid_rev_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

solid_label(TRUE)

#  Create two solids.

i_return_value =                                 @

   sgm_const_surface_vertex( "1", "[1 1 1]",     @

      "[2 1 1]", "[2 2  1]", "[1 2 1]",          @

      sv_sgm_create_surface_created )

dump i_return_value

i_return_value =                                 @

   sgm_const_solid_revolve( "1", "Coord 0.3",    @

      90., 0., "Coord 0", "Surface 1 ",          @

      sv_sgm_sweep_solid_rev_created )

dump i_return_value

i_return_value =                                 @

   sgm_const_solid_revolve( "2", "Coord 0.3",    @

      90., 180., "Coord 0", "Surface 1 ",        @

      sv_sgm_sweep_solid_rev_created )

dump i_return_value

#  Session file paused. Press "Resume" to continue..

sf_pause()

s_solid_list = "solid 1 2"

#  Delete the solids.

i_return_value =                                 @

   asm_delete_solid                              @

      (  s_solid_list,                           @

         sv_deleted_solids )

dump i_return_value

dump sv_deleted_solids

sys_free_string(sv_deleted_solids)

sys_free_string(sv_sgm_create_surface_created)

sys_free_string(sv_sgm_sweep_solid_rev_created)

#---------------------------------------------------------------------


asm_delete_surface	()

#  Purpose          :  This file provides an example of a call to the

#                      function asm_delete_surface()

#                      This file opens a new database "new.db" and

#                      and creates a two surfaces. Later it deletes

#                      the created surfaces.

#                      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 asm_delete_surface()

#  has the following arguments:

#  asm_delete_surface

#     (  surface_list,

#        deleted_surfaces )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_surface_list[32]

STRING   sv_deleted_surfaces[VIRTUAL]

STRING   sv_sgm_create_surface_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

surface_label(TRUE)

#  Create 2 surfaces.

i_return_value =                                 @

   sgm_const_surface_vertex( "1", "[1 1 1]",     @

      "[2 1 1]", "[2 2  1]", "[1 2 1]",          @

      sv_sgm_create_surface_created )

dump i_return_value

i_return_value =                                 @

   sgm_const_surface_vertex( "2", "[0 0 0]",     @

      "[1 0 0]", "[1 1  0]", "[0 1 0]",          @

      sv_sgm_create_surface_created )

dump i_return_value

#  Session file paused. Press "Resume" to continue..

sf_pause()

s_surface_list = "surface 1 2"

#  Delete the 2 surfaces.

i_return_value =                                 @

   asm_delete_surface                            @

      (  s_surface_list,                         @

         sv_deleted_surfaces )

dump i_return_value

dump sv_deleted_surfaces

sys_free_string(sv_deleted_surfaces)

sys_free_string(sv_sgm_create_surface_created)

#---------------------------------------------------------------------


asm_delete_vector	()

#  Purpose          :  This file provides an example of a call to the

#                      function asm_delete_vector()

#                      This file opens a new database "new.db" and

#                      creates two vectors. Later it deletes these

#                      vectors using the above function.

#                      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 asm_delete_vector()

#  has the following arguments:

#  asm_delete_vector

#     (  vector_list,

#        deleted_vectors )

#---------------------------------------------------------------------

#  Variable Declarations

STRING   s_vector_list[32]

STRING   sv_deleted_vectors[VIRTUAL]

STRING   sv_sgm_create_vector_m_created[VIRTUAL]

INTEGER  i_return_value

#---------------------------------------------------------------------

#  Open a new database "new.db"

uil_file_new.go("","new.db")

$? YES 36000002

#  Create two vectors.

i_return_value =                                 @

   sgm_const_vector_magnitude( "1", "2.0",       @

      "<1 0 0>", "[0 0 0]", "Coord 0",           @

      sv_sgm_create_vector_m_created )

dump i_return_value

i_return_value =                                 @

   sgm_const_vector_magnitude( "2", "4.0",       @

      "<2 2 2>", "[1 1 1]", "Coord 0",           @

      sv_sgm_create_vector_m_created )

dump i_return_value

#  Session file paused. Press "Resume" to continue..

sf_pause()

s_vector_list = "vector 1 2"

#  Delete the vectors.

i_return_value =                                 @

   asm_delete_vector                             @

      (  s_vector_list,                          @

         sv_deleted_vectors )

dump i_return_value

dump sv_deleted_vectors

sys_free_string(sv_deleted_vectors)

sys_free_string(sv_sgm_create_vector_m_created)

#---------------------------------------------------------------------