; book p.52

(require "data/tutorial")

(def h (histogram abrasion-loss))
(dolist (i (order hardness))
        (send h :point-selected i t)
        (pause 10)
        (send h :point-selected i nil))