(defvar *Laban-dimensions* nil)
(setf *Laban-dimensions* '(:support :level :direction :rotation :distance :flexion :curve :contact :address :inclin))


(defvar *LOL-ENVIRONNEMENT* nil)


(setf *gensym-counter* 1)

(defvar *wind-sit-back-color* 14592000)
(defvar *wind-sit-edit-color* 14605000)

(setq *wind-sit-back-color* *black-color*)



(defparameter *dimension-set* '((:support (w! No Yes))
                                (:direction (w! P 1 2 3 4 5 6 7 8))
                                (:level (w! b bm m mh h))
                                (:flexion (w! -2 -1 1 2 3 4 5 6))
                                (:distance (w! -2 -1 1 2 3))
                                (:curve (w! -2 -1 1 2 3))
                                (:rotation (w! -2 -1 1 2 3))
                                (:contact (w! t 1 2 3 4 5))
                                (:address (w! t 1 2 3 4 5))
                                (:inclin (w! -2 -1 1 2 3 4 5 6))
                                ))