 	    "beaked whale"
 	    ])
 
+(def max-weight 172) ;; metric tons
+(def max-length 32.9) ;; metres
+
 (defn rnd [seq] (nth seq (rand-int (count seq))))
 
 ;; IDEAS

 whales
 (let [num-whales 1000
       time (System/currentTimeMillis)
       #^Creator creator (.getCreator whale-metadata)]
   (for [id (range time (+ time num-whales))]
     (.create
      creator
      (into-array Object 
		  [id
		   0
		   (rnd types)
		   (/ (rand-int 3290) 100)	       ;; 32.9 metres
		   (/ (rand-int 172) 100)]))))) ;; 172 metric tons

;;----------------------------------------


;; attributes...
;;----------------------------------------

(def longer-whales-weight (do-transform "weight" longer-whales :time :version :weight))
(insert *metamodel* longer-whales-weight)

(def heavier-whales-length (do-transform "length" heavier-whales :time :version :length))
(insert *metamodel* heavier-whales-length)

;;----------------------------------------
;; try a transformation on top of a filtration
