Commit d464818c authored by Glenn Morris's avatar Glenn Morris

* lisp/calculator.el (calculator-funcall):

* lisp/textmodes/artist.el (artist-spray-random-points):
Use standard degree/radian conversion utilities.
parent d13f8874
......@@ -1203,10 +1203,10 @@ arguments."
;; f is an expression
(let ((TX (and X (calculator-truncate X)))
(TY (and Y (calculator-truncate Y)))
(DX (if (and X calculator-deg) (/ (* X pi) 180) X))
(DX (if (and X calculator-deg) (degrees-to-radians X) X))
(L calculator-saved-list)
(fF `(calculator-funcall ',f x y))
(fD `(if calculator-deg (/ (* x 180) float-pi) x)))
(fD `(if calculator-deg (* radians-to-degrees x) x)))
(eval `(cl-flet ((F (&optional x y) ,fF) (D (x) ,fD))
(let ((X ,X) (Y ,Y) (DX ,DX) (TX ,TX) (TY ,TY) (L ',L))
,f))
......
......@@ -2958,7 +2958,7 @@ Blanks in the rendered text overwrite any text in the buffer."
Returns a list of points. Each point is on the form (X1 . Y1)."
(let ((points))
(while (> n 0)
(let* ((angle (* (random 359) (/ float-pi 180)))
(let* ((angle (degrees-to-radians (random 359)))
(dist (random radius))
(point (cons (round (* dist (cos angle)))
(round (* dist (sin angle))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment