[Fluxus] getting wire-colour

[gabor papp]

>   Oops, I take that back; the pdata seems to only hold the colour there would
> be (non-transparent black) if vertcols had been set. I'm now a bit lost on
> how we'd get such colours at all.
if you use (hint-vertcols) you can do this. (colour) and (wire-colour) 
cannot be get as far as i know, only pdata.

(clear)

(define p (build-cube))

(with-primitive p
     (hint-none)
     (hint-wire)
     (hint-vertcols)
     (backfacecull 0)
     (pdata-map!
         (λ (c) #(1 0 0))
         "c"))

(every-frame
     (with-primitive p
         (pdata-map!
             (λ (c) (vector (vr c) (vg c) (vb c) (* .99 (va c))))
             "c")))

best,
gabpr