whalesong/image/private/color.rkt
2011-07-06 21:28:11 -04:00

7 lines
148 B
Racket

#lang s-exp "../../lang/base.rkt"
(provide [struct-out color])
(define-struct color (red green blue alpha)
#:extra-constructor-name make-color)