#lang scribble/doc
@(require "common.ss")

@defclass/title[color% object% ()]{

A color is an object representing a red-green-blue (RGB) combination
 of primary colors plus an ``alpha'' for opacity. Each red, green, or
 blue component of the color is an exact integer in the range 0 to
 255, inclusive, and the alpha value is a real number between 0 and 1,
 inclusive.  For example, (0, 0, 0, 1.0) is solid black, (255, 255,
 255, 1.0) is solid white, (255, 0, 0, 1.0) is solid red, and (255, 0,
 0, 0.5) is translucent red.

See @scheme[color-database<%>] for information about obtaining a color
object using a color name.


@defconstructor*/make[(()
                       ([red (integer-in 0 255)]
                        [green (integer-in 0 255)]
                        [blue (integer-in 0 255)]
                        [alpha (real-in 0 1) 1.0])
                       ([color-name string?]))]{

Creates a new color with the given RGB values and alpha, or matching
 the given color name (using ``black'' if no color is given or if the
 name is not recognized). See @scheme[color-database<%>] for more
 information on color names.

}

@defmethod[(alpha)
           (real-in 0 1)]{

Returns the alpha component (i.e., opacity) of the color.

}

@defmethod[(blue)
           (integer-in 0 255)]{

Returns the blue component of the color.

}

@defmethod[(copy-from [src (is-a?/c color%)])
           (is-a?/c color%)]{

Copies the RGB values of another color object to this one, returning
 this object as the result.

}

@defmethod[(green)
           (integer-in 0 255)]{

Returns the green component of the color.

}

@defmethod[(ok?)
           boolean?]{

Returns @scheme[#t] if the color object is valid.

}

@defmethod[(red)
           (integer-in 0 255)]{

Returns the red component of the color.

}

@defmethod[(set [red (integer-in 0 255)]
                [green (integer-in 0 255)]
                [blue (integer-in 0 255)]
                [alpha (real-in 0 1) 1.0])
           void?]{

Sets the four (red, green, blue, and alpha) component values of the color.
}}