STMove: Function to Move a geometry object in SQL Server Spatial

 USE [GISDB] -- Change this to your database
 GO
 -- Function: Move
 --
 -- Delete if Exists
 --
 IF EXISTS (SELECT *
              FROM sysobjects
             WHERE id = object_id (N'[dbo].[STMove]')
               AND xtype IN (N'FN', N'IF', N'TF')
 )
 BEGIN
   DROP FUNCTION  [dbo].[STMove];
   PRINT 'Dropped [dbo].[STMove] ...';
 END;
 GO
 -- Create
 --
 CREATE FUNCTION [dbo].[STMove]
 (
   @p_geometry geometry,
   @p_dX       FLOAT,
   @p_dY       FLOAT,
   @p_dZ       FLOAT,
   @p_dM       FLOAT,
   @p_round_xy INT = 3,
   @p_round_zm INT = 2
 )
 RETURNS geometry
 BEGIN
   DECLARE
      @v_coord          INT = 0,
      @v_rows           INT = 0,
      @v_wkt            VARCHAR(MAX) = '',
      @v_token          VARCHAR(MAX),
      @v_delim          VARCHAR(MAX),
      @v_geometry       geometry,
      @v_x              FLOAT = 0.0,
      @v_y              FLOAT = 0.0,
      @v_z              FLOAT = NULL,
      @v_m              FLOAT = NULL;
   BEGIN
     IF ( @p_geometry IS NULL )
       RETURN NULL;
     IF ( @p_dX IS NULL AND @p_dY IS NULL AND @p_dZ IS NULL AND @p_dM IS NULL )
        RETURN CAST('One of deltas X,Y,Z and M must not be NULL.' AS VARCHAR(MAX)); -- geometry);
     SET @v_coord = 0;
     SET @v_rows  = 0;
     DECLARE Tokens CURSOR FAST_FORWARD FOR
       SELECT t.token, t.separator
         FROM dbo.Tokenizer(@p_geometry.AsTextZM(),' ,()') AS t;
     OPEN Tokens;
     FETCH NEXT FROM Tokens INTO @v_token, @v_delim;
     WHILE @@FETCH_STATUS = 0
     BEGIN
        IF ( @v_token IS NULL )  -- double delimiter
        BEGIN
           SET @v_wkt = @v_wkt + @v_delim
        END
        ELSE
        BEGIN
           IF ( @v_token NOT LIKE '[-0-9]%' )
           BEGIN
              SET @v_wkt = @v_wkt + @v_token + LTRIM(@v_delim)
           END
           ELSE -- @v_token LIKE '[0-9]%' )
           BEGIN
              SET @v_coord = @v_coord + 1;
              IF ( @v_coord = 1 ) SET @v_x = CAST(@v_token AS FLOAT)
              IF ( @v_coord = 2 ) SET @v_y = CAST(@v_token AS FLOAT)
              IF ( @v_coord = 3 ) SET @v_z = CAST(@v_token AS FLOAT)
              IF ( @v_coord = 4 ) SET @v_m = CAST(@v_token AS FLOAT)
              IF ( @v_delim IN (',',')') )
              BEGIN
                 SET @v_wkt = @v_wkt +
                    LTRIM(STR(round(@v_x + @p_dX, @p_round_x),24,@p_round_x)) + ' ' +
                    LTRIM(STR(round(@v_y + @p_dY, @p_round_y),24,@p_round_y)) +
                    CASE WHEN @v_z IS NULL THEN '' ELSE ' ' + LTRIM(STR(round(@v_z + @p_dZ, @p_round_z),24,@p_round_z)) END +
                    CASE WHEN @v_m IS NULL THEN '' ELSE ' ' + LTRIM(STR(round(@v_m + @p_dM, @p_round_m),24,@p_round_m)) END + @v_delim;
                 SET @v_coord = 0;
              END;
            END;
        END;
        FETCH NEXT FROM Tokens INTO @v_token, @v_delim;
     END;
     CLOSE Tokens
     DEALLOCATE Tokens
     SET @v_geometry = geometry::STGeomFromText(@v_wkt,@p_geometry.STSrid);
     RETURN @v_geometry;
   END
 END
 GO

 SELECT geometry::STGeomFromText('POINT(0 0 0)',0).STBuffer(0.5) AS geom
 UNION ALL
 SELECT dbo.STMove(geometry::STGeomFromText('POINT(0 0 0)',0),a.IntValue,b.IntValue,0,NULL,3,3,2,2).STBuffer(0.2) AS geom
   FROM dbo.generate_series(0,10,1) a
        CROSS apply
        dbo.generate_series(1,9,1) b;

 SELECT dbo.STMove(geometry::STGeomFromText('LINESTRING(0 0, 10 0)',0),5,a.IntValue,NULL,NULL,3,3,2,2).STBuffer(0.05) AS geom
   FROM dbo.generate_series(0,10,1) a;

 SELECT '' AS name, geometry::STGeomFromText('POLYGON((1 1, 1 6, 11 6, 11 1, 1 1))',0) AS geom
 UNION ALL
 SELECT 'Move 10,10' AS name, dbo.STMove(geometry::STGeomFromText('POLYGON((1 1, 1 6, 11 6, 11 1, 1 1))',0),10.0,10.0,NULL,NULL,3,3,2,2) AS geom;

 SELECT geometry::STGeomFromText('CURVEPOLYGON(COMPOUNDCURVE(CIRCULARSTRING(9.962 -0.872,10.1 0,9.962 0.872),(9.962 0.872,0 0,9.962 -0.872)))',0).STCurveToLine() AS geom
 UNION ALL
 SELECT dbo.STMove(geometry::STGeomFromText('CURVEPOLYGON(COMPOUNDCURVE(CIRCULARSTRING(9.962 -0.872,10.1 0,9.962 0.872),(9.962 0.872,0 0,9.962 -0.872)))',0),3,3,NULL,NULL,3,3,2,2).STCurveToLine() AS geom;