Tip = Rhino([0,0,0,0],[0;0;0;1]);

for i=0:360
    Q = i*pi/180;
    Pt = Rhino([Q,0,0,0],Tip);
    Tip = [Tip, Pt];
end


for i=0:360
    Q = i*pi/180;
    Pt = Rhino([0,Q,0,-Q],Tip);
    Tip = [Tip, Pt];
end


for i=0:360
    Q = i*pi/180;
    Pt = Rhino([0,0,Q,-Q],Tip);
    Tip = [Tip, Pt];
end