#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))