home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / lisp / mcl / 1344 < prev    next >
Encoding:
Internet Message Format  |  1992-08-31  |  1.4 KB
  1. Path: sparky!uunet!news.uiowa.edu!hobbes.physics.uiowa.edu!zaphod.mps.ohio-state.edu!uakari.primate.wisc.edu!ames!data.nas.nasa.gov!taligent!apple!cambridge.apple.com!bill@cambridge.apple.com
  2. From: bill@cambridge.apple.com (Bill St. Clair)
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: Re: Whiter Whites?
  5. Message-ID: <9208311547.AA14193@cambridge.apple.com>
  6. Date: 31 Aug 92 16:51:50 GMT
  7. Sender: info-mcl-request@cambridge.apple.com
  8. Lines: 18
  9. Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
  10. Full-Name: Bill St. Clair
  11. Original-To: korcuska@aristotle.ils.nwu.edu (Michael &)
  12. Original-Cc: info-mcl
  13.  
  14. >Perhaps this has been discussed before.  If so, sorry...
  15. >
  16. >I was using the following code (sort of) the other day to draw white text over
  17. >a colored background:
  18. >
  19. >(with-fore-color *white-color*
  20. >  (with-cstrs ((s "A String"))
  21. >    (#_TextBox s (length "A String") r #.#$teJustCenter))) ; where r is a Rect
  22. >
  23. >Much to my suprise the text is not white if the monitor is set to 4 bits deep
  24. >or less.  Why? Well, from the AppleDoc for MCL:
  25.  
  26. Guillaume Cartier reported this problem just last week. Oliver Steele
  27. suggested that scaling by 257 instead of 256 when mapping from 8 to
  28. 16 bit color components fixes the problem. I have a patch for MCL's
  29. MAKE-COLOR, COLOR-RED, COLOR-GREEN, & COLOR-BLUE functions that makes
  30. this change. It will be part of patch 2 for MCL 2.0 (patch 1 will be
  31. available soon). I'll send it to anyone who asks for "color-components-patch".
  32.