\begin{pspicture}(-7,-2.5)(7,3)
\psset{linewidth=0.5\pslinewidth,
       viewpoint=100 30 20,Decran=100,SphericalCoor}
\codejps{% alpha beta r h
%
/pie1 { 
   0 30 2 1 newpie  dup (Gray) outputcolors
} def
/pie2 { 
   30 90 2 1 newpie dup (Yellow) outputcolors
} def
/pie3 { 
   90 120 2 1 newpie dup (CadetBlue) outputcolors
} def
/pie4 { 
   120 160 2 1 newpie dup (Green) outputcolors
} def
/pie5 { 
   160 180 2 1 newpie dup (Orange) outputcolors
} def
/pie6 { 
   180 220 2 1 newpie dup (Red) outputcolors
} def
mark pie1 pie2 pie3 pie4 pie5 pie6 drawpieset
}
\end{pspicture}