Math function

[maahee]

(setq vertpt-1 (polar vertpt-f  (+ (* pi 1.5) (angle p1 p2)) 0.04))

(setq fwpt-3 (polar fwpt  (+ (* pi 0.5) (angle p1 p2)) 0.04))

(setq vertpt-2 (polar vertpt-1 (+ (angle vertpt-f fwpt) (Acos (/ 0.04 (distance vertpt-f fwpt))) ( * pi 1.5)) 0.04))

(setq fwpt-3 (polar fwpt-3 (+ (angle vertpt-f fwpt) (Acos (/ 0.04 (distance vertpt-f fwpt))) ( * pi 0.5)) 0.04))

(command "line" vertpt-1 fwpt-4 fwpt-3 vertpt-2 "c")

Error : No function definition: Acos

[Steven P]

Yup, we get COS and SIN, and have to make up the rest, search arccos, acos or suimilar

[Lee Mac]

You're welcome to use my implementation from here.

[maahee]

Thank for suggestions