[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.