Форумы GIS-Lab.info

Код: Выделить всё

PROCEDURE `CreateTrkLine`(nid INT)
BEGIN
  DECLARE done INT DEFAULT 0;
  DECLARE coup, i INT DEFAULT 0;
  DECLARE p1, p2, CrP point;
  DECLARE CrLn LineString;
  DECLARE Cur1 Cursor FOR
   SELECT p FROM `gpx_db`.`trkpt` WHERE trk_id=nid AND nseg=1;
  DECLARE Continue Handler FOR NOT found SET done = 1;
 
  OPEN Cur1;
  Repeat
   Fetch Cur1 INTO CrP;
    IF NOT Done THEN
     CASE i
      WHEN 0 THEN
       SET p1 = geomfromtext(concat('Point(', X(CrP), ' ', Y(CrP), ')'));
      WHEN 1 THEN
       SET CrLn = geometryfromtext(concat('LineString(',x(p1),' ',y(p1),',',x(CrP),' ',y(CrP),')'));
      ELSE
       SET CrLn = `LS_AddPoint`(CrLn, CrP);
     END CASE;
     SET i=i+1;
    END IF;
  Until done END Repeat;
  Close Cur1;
 
  UPDATE trk SET `trk_line`=CrLn WHERE id=nid;
END $$