load(draw); n:100; with_slider_draw( t,makelist(i,i,0,n)*2*%pi/n, xrange = [-2,2], yrange = [-2,2], head_length=0.1, dimensions=[500,500], parametric(sin(phi),cos(phi),phi,0,2*%pi), vector([0,0],[sin(t),cos(t)]), vector([sin(t),cos(t)],[cos(t),-sin(t)]), color=red, vector([sin(t),cos(t)],[-sin(t),-cos(t)]));