pt1 - given distance

[Mack Attack]

If I have pt1 defined how do I come up with a new point a given distance from that point? this is what I tried and it failed

(SETQ pt1 (GETPOINT "\nPick first point:"))
(SETQ pt4 (- pt1 0.25))

All help is appreciated

 

[Mark Propst]

(setq pt4 (polar pt1 ang dist))

 

[Mack Attack]

Thank you that was what I needed