is there somebody able to TRANSLATE the COMMENTS of 3d_lib ?
Because I am not able, for instance,
to understand
what
this (and all the others) function does :
; Рассчет центрального угла дуги
;-------------------------------
;Параметры
; Pn, Pk, Pc - начальная, конечная и центральная точки дуги
; WNorm - вектор нормали к плоскости дуги
; Возвращает центральный угол дуги в радианах
(defun 3d_arcnkc_ang (Pn Pk Pc WNorm / Ang Pc_)
(setq WNorm (3d_ort WNorm)
Pc_ (trans Pc 0 WNorm)
Ang (- (angle Pc_ (trans Pk 0 WNorm)) (angle Pc_ (trans Pn 0 WNorm)))
)
(if (or (< (abs Ang) $Dopusk) (equal (abs Ang) 2Pi $Dopusk)) (setq Ang 0.0))
(if (minusp Ang) (+ Ang 2Pi) Ang)
)