  COMMAND SMOOTHSG
-----------------------------------------------------------------
    Purpose: Smooth a subgroup of an object using a very complicated
             and slow algorithm which produces incredible results.

             SCALE specifies the scale-factor of the spline-tangents,
             a higher value results in a higher bend of the
             interpolated curves.

      Usage: SMOOTHSG(<objectID>,<subgroup>,[<scale>])
   Examples: smoothsg(1,lip)
             smoothsg(1,ball,1.4)
      Notes: 1. There is a limit of 72 faces (subgroup) for
                unregistered users
             2. This procedure was designed to work with the following
                settings:
                 SPLINETYPE=CATMULLROM
                 SPLINEENDS=OPEN
                 SPLINESUBDIV=20
