Newsgroups: comp.lang.lisp.mcl
Path: cantaloupe.srv.cs.cmu.edu!das-news2.harvard.edu!news2.near.net!bloom-beacon.mit.edu!news.starnet.net!wupost!howland.reston.ans.net!vixen.cso.uiuc.edu!uchinews!tango.uchicago.edu!mcdougal
From: Tom McDougal <mcdougal@cs.uchicago.edu>
Subject: Re: Color in MCL
X-Nntp-Posting-Host: tango.uchicago.edu
Content-Type: text/plain; charset=ISO-8859-1
Message-ID: <D8spC2.CLn@midway.uchicago.edu>
X-Xxmessage-Id: <ABE135BE32010B33@tango.uchicago.edu>
X-Xxdate: Thu, 18 May 1995 22:34:54 GMT
Sender: news@midway.uchicago.edu (News Administrator)
Content-Transfer-Encoding: 8bit
Organization: Univ. of Chicago Computer Science
X-Newsreader: Nuntius 2.0.3_68K
References: <1995May18.153220.44823@yogi.urz.unibas.ch>
Mime-Version: 1.0
Date: Thu, 18 May 1995 22:33:37 GMT
Lines: 26

In article <1995May18.153220.44823@yogi.urz.unibas.ch> Dieter Holz,
dieter@ifi.wwz.unibas.ch writes:
>I want to draw some colored lines in a MCL window in :PatXor Mode, but I
>get only black lines.


:PatXor is not defined for color.  What should happen for drawing
red over green?  What about red over pink?

When I have wanted to do this I have usually drawn the red and then
redrawn whatever I might have blotted out:

(without-interrupts 
 (draw-red-stuff)
 (redraw-background-stuff))

Feel free to use this code. :-)

Good luck.

-- 
Tom McDougal    University of Chicago Artificial Intelligence
     mailto:mcdougal@cs.uchicago.edu 
     http://cs-www.uchicago.edu/~mcdougal
     fax: (312) 702-7108
     PP-RH
