demons and stored procedures for the kbcad example - http://highorderdysfunctions.blogspot.com/2014/12/frame-language-knowledge-based-computer_9.html

clj-demonsandstoredprocedures.clj

(ns clj-fl-examples.demons
  (:require [clj-fl.core :refer :all]
            [clj-fl-examples.renderlib :refer :all]))

(defn render2dbu [f]
  (let [ims     (fget f :cof :value)
        namestr (fget f :name :value)]
    (drawcolorstring
     (list 0 0 255) namestr (fget f :sps :value))
    (dorun (map #((resolve (fget-ii % :render2d :proc)) %) ims))))

(defn render2dsu [f]
  (let [ims     (fget f :cof :value)
        namestr (fget f :name :value)]
    (drawcolorstring
     (list 0 0 255) namestr (fget f :sps :value))
    (dorun (map #((resolve (fget-ii % :render2d :proc)) %) ims))))

(defn render2dbe [f]
  (drawcolorline (fget-i f :color :value) 
                 (fget-i f :width :value) 
                 (fget f :sps :value)))