[elpa] externals/xpm ebaa1a4 16/37: [xpm int] Add abstraction: form

[Stefan Monnier]

branch: externals/xpm
commit ebaa1a4089638693cadd09be1811c3070a768254
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>

    [xpm int] Add abstraction: form
    
    * packages/xpm/flower.el (flower form): New internal func.
---
 flower.el | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/flower.el b/flower.el
index 5621d81..81af726 100644
--- a/flower.el
+++ b/flower.el
@@ -54,20 +54,16 @@
                           (lambda (θ) (cos (* τ θ)))))
          (n-mag-fns (length mag-fns)))
     (cl-flet
-        ((random-mag-fn () (aref mag-fns (random n-mag-fns))))
+        ((random-mag-fn () (aref mag-fns (random n-mag-fns)))
+         (form (fn &rest args) (apply fn half half (random 42) args)))
       (let* ((x-mag-fn (random-mag-fn))
              (y-mag-fn (random-mag-fn))
              (form (if again
                        (get 'flower 'form)
                      (delete-dups
                       (if (zerop (random 5))
-                          (let ((one (xpm-m2z-circle
-                                      half half
-                                      (random 42)))
-                                (two (xpm-m2z-ellipse
-                                      half half
-                                      (random 42)
-                                      (random 42))))
+                          (let ((one (form 'xpm-m2z-circle))
+                                (two (form 'xpm-m2z-ellipse (random 42))))
                             (append one two))
                         (cl-loop
                          for θ below τ by 0.003