anchor.diff:    (make-color** interface level level level))
   
   
  -(defmethod make-gray (level)
  +(defun make-gray (level)
     ;;; These use a 0-255 scale for component levels
     (make-gray* (default-interface) level))
   
  
positive.code:   (values))
  
  
  (defmethod process-parameters (&rest args)
    (apply #'process-parameters* *default-interface* args)
    (values))
  
  
negative.code:                 (round (* blue scale))))
  
  
  (defun make-scaled-color (red green blue scale)
    (make-scaled-color* (default-interface) red green blue scale))
  
    
  