Rotate Vector | .ms

delete objects
theV = normalize [5,0,10] --the vector to rotate, normalized to unit vector
theStep = 180 --the step by which you want to rotate --rotate from 0 to 360-theStep with step TheStep:
for a = 0 to 360-theStep by theStep do
(
  rm = rotateZMatrix a --create a rotation matrix from the value
  theRotV = theV * rm --transform the original vector using the matrix
  format "%: %\n" a theRotV --print the result to Listener
  c = cylinder() --create a cylinder
  c.dir = theRotV --orient along the vector to see what it looks like
)