Circle Packing Animation in GNU Emacs
Here's an implementation of circle packing algorithm by Wang et. el. in Elisp. Front chain is the set of circles on the periphery. These are shown as connected by red line in the animation. (require 'graph-pack) (defstruct point x y r) ;; Define a point (setq p (make-point :x 17 :y 0 :r 16)) ;; Define a list of points (setq points (list p1 p2)) ;; Image is an SVG image. This is used for drawing the animation (optional). The return value is the front chain. This can be further used to generate a circumscribing circle. (graph-pack points image) ;; Get circumscribing circle (setq p (graph-enclose (graph-pack children))) Bubble Graph You can pass a hierarchical tree of points to generate a bubble graph. Only radii of leaf nodes are mandatory. title and fill parameters are used if provided. ;; For drawing additional point attributes are required. Hence this definition is different from above. Properties old-x and old-y are used internally. (de...