diff options
author | Boutade <thegoofist@protonmail.com> | 2019-10-18 19:37:41 -0500 |
---|---|---|
committer | Boutade <thegoofist@protonmail.com> | 2019-10-18 19:37:41 -0500 |
commit | b07a726868d66306fcb392dfb4f5cfb43e2b235c (patch) | |
tree | e1b2dd986a14b59c9e6093b885ec4a14f74cd458 /the-price-of-a-cup-of-coffee.lisp | |
parent | 1af868e62bc346659d4e04b9b8ddf4a560e38bd1 (diff) |
cleanup
Diffstat (limited to 'the-price-of-a-cup-of-coffee.lisp')
-rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index 3ea2ba9..f506ada 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -110,18 +110,6 @@ (stressed-out-sequence))) -;; TODO - REIMPLEMENT TO WORK WITH *TWEENS* -;; (defun drink-coffee () -;; (let ((now (sdl2:get-ticks)) -;; (dur 1750) -;; (ease #'cubic-in-out)) -;; (setf *coffee-break-tween* -;; (as-group -;; (animate *cold-meter* 'percent 0.0 :start now :rounding nil :duration dur -;; :ease ease) -;; (animate *stress-meter* 'percent (* 0.4 (percent *stress-meter*)) -;; :start now :rounding nil :duration dur -;; :ease ease))))) (defun get-sick () (unless (sick-p *nance*) |