 	[conexp.fca.lattices :only (base-set order)])
   (:use [clojure.contrib.graph :only (directed-graph, dependency-list, remove-loops)]))
 
-(ns-doc "Basic namespace for lattice layouts.")
+(ns-doc "Layered lattice layouts.")
 
 
 ;;; Simple Layered Layout

		(map #(vector % number)
		     (iterate inc start)))))

(defn simple-layered-layout
  "Simple layered layout for lattice visualization."
  [lattice]

				(map layer-coordinates
				     (iterate inc 0)
				     (layers lattice))))]
    (make-layout positions (edges lattice))))

;;;


nil
