[Fluxus] some help for a newbie

[fra]

Hello All,
i am trying this little (and trivial) experiment

(clear)

(define faccia
        (with-state
                (texture (load-texture "TheFace01black.png"))
                (rotate (vector 270 0 0))
                (scale (vector 1 0.1 1))
                (build-cylinder 100 12)))

(define (animate)
        (with-primitive faccia
                (rotate (vector 0 0 1))))

(every-frame (animate))


I would like to have a cylinder with a minimal height, something like a
discus or a coin). If i use the above file without (every-frame),
i.e static, all is ok, but when i animate the draw, the height of the
cylinder seems to increase (no more a coin but a 'real' cylinder).
What i am wrong?

Thanks,
ciao,
francesco.