Arguments

tinEname  (ename or vla-object)  the TinSurface entity to be modified
fromPnt  (2d/3d point list)  the point to be moved to the new location
toPnt  (2d/3d point list)  the new location of the point

Return

T or NIL

Example

(tin:movepoint  tin '(10 80 5) '(10 70 5))  T

Remarks

the fromPnt must be a real definition point of the TinSurface (within geometric tolerance)

when modifying a large number of points in the TinSurface, it is suggested to place a database transaction around that code :

(vle-start-transaction)
(while .... )  ;; moving many points
(vle-end-transaction)

this will significantly improve the overall performance (as database + display updates are delayed untio the transaction is ended)

see (tin:movepoints) function