[Fluxus] Question regarding (wire-colour)

[Dave Griffiths]

On Sun, 2007-10-28 at 10:12 +0100, gabor papp wrote:
> hi Gerry,
> 
> i used wire-colour and gh without problems with draw-cube. so, it should
> work. although Dave mentioned that nurbs were not honouring the
> wire-colour until a recent cvs version. maybe that's the problem...

Works here:

(clear)
(hint-wire)
(line-width 5)

(define (animate)
    (wire-colour (vector (sin (time)) (cos (* (time) 3)) 1))
    (draw-cube))

(every-frame (animate))

but also, wires can pick up vertex colours, so this is more fun:

(clear)
(hint-none)
(hint-wire)
(hint-vertcols)
(line-width 2)
(define o (build-sphere 20 20))

(define (bloom n)
    (cond ((not (zero? n))
        (pdata-set "c" n (vector 
            (sin (+ n (time))) 
            (cos (+ n (* 2.3 (time))))
            0))
        (bloom (- n 1)))))

(define (animate)
    (grab o)
    (bloom (pdata-size))
    (ungrab))