Message from discussion Stupid binary clock
The group you are posting to is a Usenet group
. Messages posted to this group will make your email address visible to anyone on the Internet.
Your reply message has not been sent.
Your post was successful
From: Bulent Murtezaoglu <b...@acm.org>
Date: Tue, 27 Sep 2005 03:39:30 +0300
Local: Mon, Sep 26 2005 8:39 pm
Subject: Re: Stupid binary clock
>>>>> "ES" == Emre Sevinc <em...
ES> BTW, having "circle-shaped" LEDs would look much nicer I guess
ES> (similar to what we see at ThinkGeek watches and clocks). ;-)
Not only does he get tech support, Emre also gets his wishes tonight.
Here's the little hack he got:
(let ((quadric-ht (make-hash-table :test #'equal)))
(defun draw-led (x y on/off)
(flet ((make-led (x y)
(let ((tl (gethash (list x y) quadric-ht)))
(if tl tl
(setf (gethash (list x y) quadric-ht)
(gl:color-3f 0f0 (if on/off 1f0 0.5f0) 0f0)
(gl:translate-f (float x) (float y) 0.0)
(glu:partial-disk (make-led x y) 0.0d0 (float *led-size* 0.0d0) 32 1 0.0d0 360.0d0)
Dunno how this fits in with the rest of the code, but it seems to work
OK. (There doesn't seem to be a glu:disk in my cl-sdl. That's how partial
disk got in there.)
You must Sign in
before you can post messages.
You do not have the permission required to post.