; book p.321

(require "data/tutorial")
(require "functions/rotatecoordaxis")

(flet ((width (c) (first (send c :size))))
  (let* ((w (spin-plot (list hardness tensile-strength abrasion-loss)))
         (c0 (send spin-rotate-control-proto :new 0))
         (c1 (send spin-rotate-control-proto :new 1))
         (c2 (send spin-rotate-control-proto :new 2)))
    (send w :add-overlay c0)
    (send w :add-overlay c1)
    (send w :add-overlay c2)
    (let ((width (max (mapcar #'width (list c0 c1 c2))))
          (height (second (send c0 :size)))
          (margin (send w :margin)))
       (send c1 :location (list 0 height))
       (send c2 :location (list 0 (* 2 height)))
       (send w :margin width 0 0 (fourth margin)))))