How do you get power (and data?) through the various rotating axes?

Option ANGLE DEGREES
FRAMEBUFFER CREATE
FRAMEBUFFER WRITE F
RX=MM.HRes: RY=MM.VRes: CX=RX/2: CY=RY/2
Umin=-180: Umax=180: Ustep=15
Vmin= -90: Vmax= 90: Vstep=15
SCALE=CY-CY/10

Do
 For S=0 To 12 Step 3
 CLS
   For V= Vmin To Vmax Step Vstep
   For U= Umin To Umax Step Ustep
     U=U+S
       X=Cos(U)*Cos(V)
       Y=Sin(U)*Cos(V)
       Z=Sin(V)
     U=U-S
     C=Rnd*&hFFFFFF
     Plot_XY
     If Inkey$ <> "" Then End
   Next U: Next V
   FRAMEBUFFER COPY F,N,B
 Next S
Loop

Sub Plot_XY
 X=SCALE*X: Y=SCALE*Y: Z=SCALE*Z
 Y=Y/4
 X1=X-Y+CX: Y1=Z-Y+CY
 If y<0 Then
   Circle X1,Y1,2,,,C,C
 Else
   Pixel X1,Y1
 EndIf
End Sub