Draw representative patches for a sail rotated by cone/clock angles

Since version 7.
------------------------------------------------------------------------
See also Cone, NewFig, Unit, OrbRate, RVFromKepler, ConeClockPatches
------------------------------------------------------------------------

Contents

Get a few points around the orbit
Select some cone angles and a frame
Draw different cone angles
Now for a constant cone angle plot different clock angles

%-------------------------------------------------------------------------------
%	  Copyright (c) 2009 Princeton Satellite Systems, Inc.
%   All rights reserved.
%-------------------------------------------------------------------------------

Get a few points around the orbit

%----------------------------------
el0     = [42241;0;0;0;0;0];
nu      = linspace(0,2*pi,9);
nu      = nu(1:8);
[rP,vP] = RVFromKepler(el0,nu/OrbRate(el0(1)));
uS      = -Unit(rP);

Select some cone angles and a frame

%------------------------------------
cone  = linspace(0,pi/4,8);
frame = 2;

Draw different cone angles

%---------------------------
h = NewFig('Patches for different cone angles');
ConeClockPatches(cone,zeros(size(cone)),rP,vP,uS,frame,h)
axis equal
grid on
view(45,40)

Now for a constant cone angle plot different clock angles

%----------------------------------------------------------
cone  = pi/6*ones(1,8);
clock = linspace(0,2*pi,9);
clock = clock(1:8);
h = NewFig('Patches for different clock angles');
ConeClockPatches(cone,clock,rP,vP,uS,frame,h)
axis equal
grid on
view(45,40)

%--------------------------------------
% PSS internal file version information
%--------------------------------------