1.1 --- a/src/net/kryshen/indyvon/demo.clj	Thu Apr 25 04:01:33 2013 +0400
     1.2 +++ b/src/net/kryshen/indyvon/demo.clj	Thu Apr 03 20:26:35 2014 +0400
     1.3 @@ -1,5 +1,5 @@
     1.4  ;;
     1.5 -;; Copyright 2010, 2011, 2012 Mikhail Kryshen <mikhail@kryshen.net>
     1.6 +;; Copyright 2010-2014 Mikhail Kryshen <mikhail@kryshen.net>
     1.7  ;;
     1.8  ;; This file is part of Indyvon.
     1.9  ;;
    1.10 @@ -52,9 +52,10 @@
    1.11      (:mouse-released _ (repaint))
    1.12      (:mouse-clicked _ (apply callback args))))
    1.13  
    1.14 -(defn combine-colors [^Color color1 ^Color color2 c]
    1.15 +(defn combine-colors
    1.16    "Returns color between color1 and color2. When c (0 <= c <= 1.0) is
    1.17     closer to 0 the returned сolor is closer to color1."
    1.18 +  [^Color color1 ^Color color2 c]
    1.19    (case c
    1.20      0.0 color1
    1.21      1.0 color2