Re: color graphics in MCL

[push@mit.edu (Pushpinder Singh)]

In article <gi01-260994183208@ibamac.gte.com>, gi01@gte.com (Glenn Iba) wrote:

> (setf mywin (make-instance 'window :window-title "mywin"))
> 
> (with-focused-view mywin
>     (with-fore-color *orange-color*
>       (paint-rect mywin 0 0 120 120)))
> 
> The result looks identical if I use *red-color* instead of *orange-color*.
> 
> Glenn

Open your window this way instead:

(setf mywin (make-instance 'window :window-title "mywin"
                                   :color-p t))

The slot color-p needs to be true if you want to use more than just the
primary colors (don't ask me why...)  Now orange should look like orange.

-push