3D Animated Plot of Points after Rotation to Principal Components

> samples :=animationSamples:
display3d(seq(plotPoints([Q],theta+i*(360/samples),phi+i*(720/samples),BOXED),i=0..(samples-1)),insequence=true);