find-color in color-database<%>
Finds a color by name (character case is ignored). If no color is
found for the name, #f is returned.
( -> send a-color-database find-color color-name)color% object or #f
color-name : string
See
color-database<%> for the list of color names.