+(define (view-priority-set! view priority)
+ ((record-modifier view-type 'priority) view priority)
+ (set! activated-views (sort-views activated-views)))
+
+(define* (run-views #:optional (views activated-views))
+ (cond ((not (null? views))
+ ; controllers go here
+ (draw-meshes (hash-map->list (lambda (k v) v) (view-meshes (cdar views))))
+ (run-views (cdr views)))))
+
+(define (draw-meshes meshes)