deco-test.rkt
#lang racket

(require racket/draw
         (prefix-in deco- "sections/delta-color.rkt"))

(define white (make-color 255 255 255))
(define black (make-color 0 0 0))

(define d (deco-subtract black white))
(define e (deco-divide d 7))
(define c1 (deco-add white e))