(clear)
(show-axis 1)
(clear-colour 0.5)
(hint-wire)
(define p (build-ribbon 2))

(every-frame 
    (with-primitive p
        (pdata-set! "p" 1 
            (vtransform-rot (vector 0 0 1) (minverse (get-camera-transform))))))