[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
animated color fading
- To: email@example.com
- Subject: animated color fading
- From: firstname.lastname@example.org (Arnoud Verdwaald)
- Date: Mon, 18 Jul 1994 13:18:06 GMT
- Newsgroups: comp.lang.lisp.mcl
- Organization: Special Education
- Sender: email@example.com (News owner)
I'd like to be able to let individual words in a text gradually disappear.
I could of course 'turn off' pixels, but I was hoping for a nicer
solution, in which the intensity gradually decays (if you have a copy of
Think Reference, you can watch a good example of what I mean: the
information in about dialog gradually darkens; I need this process
The best I could come up with was to increase the color components with
#'make-color in a loop, and overwrite as below...
(defun test ()
(let ((win (make-instance 'window
:view-position (make-point 380 225)
:view-font '("Helvetica" 48)
:view-size (make-point 250 250)
(dotimes (n 650)
(#_MoveTo 50 125)
(with-fore-color (make-color (* 100 n) (* 100 n) (* 100 n))
(grafport-write-string "bye" 0 3))))))
I suspect that the palette manager bothers me, for the (black) color
'faints' stepwise. Perhaps I need to poke the palette with #_AnimateEntry?
Anyway, I appreciate anyone's comment on how this is supposed to be done.
Dept. of Special Education
University of Nijmegen, e-mail: firstname.lastname@example.org
Postbus 9104, telephone: +31 80 612691
6500 HE Nijmegen, fax: +31 80 615938
THE NETHERLANDS (EUROPE).