[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: color graphics in MCL

At  6:32 PM 9/26/94 -0600, Glenn Iba wrote:
>In using the built in colors (e.g. *red-color*, *orange-color*)
>I find that some pairs of colors are indistinguishable on
>my monitor (specifically red = orange, and blue = purple).
>This happens both at home (Quadra 660av, NEC 3V monitor) and
>at work (Mac IIfx, NEC MultiSync 6FGp).
>Here's the kind of code I'm running, in case it yields a clue
>to the problem:
>(setf mywin (make-instance 'window :window-title "mywin"))
>(with-focused-view mywin
>    (with-fore-color *orange-color*
>      (paint-rect mywin 0 0 120 120)))

This is a FAQ. The default window can display only the 8 original
QuickDraw colors. You need to create a Color QuickDraw window by
passing a true value for the :color-p initarg to window:

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