Function: solar-arctan

solar-arctan is a byte-compiled function defined in solar.el.gz.

Signature

(solar-arctan X QUAD)

Documentation

Arctangent of X in quadrant QUAD.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/solar.el.gz
(defun solar-arctan (x quad)
  "Arctangent of X in quadrant QUAD."
  (let ((deg (radians-to-degrees (atan x))))
    (cond ((= quad 2) (+ deg 180))
          ((= quad 3) (+ deg 180))
          ((= quad 4) (+ deg 360))
          (t          deg))))