10 lines
225 B
Scheme
10 lines
225 B
Scheme
(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)))))) |