\documentclass[11pt]{article}
\input fig4tex.tex
\begin{document}

% 1. Definition of characteristic points

%\figinit{1cm,orthogonal}
\figinit{1cm,realistic}

\def\ray{2}
\def\hau{4.8}
\def\lcap{.3}
\def\haui{2.3}
\def\ang{45}
\def\angi{20}
\def\angii{25}

%Anneaux.
\figpt 1:(0,0,0)
\figpt 2:(0,-\ray,0)
\figvectC 0 (0,0,1)
\figptrot 3:=2/1,\ang,0/
\figptrot 4:=2/1,\angi,0/
\figptrot 5:=2/1,\angii,0/
\figpttra 6:=4/\lcap,0/
\figpttra 7:=5/\lcap,0/
\figpttra 8:=4/-\lcap,0/
\figpttra 9:=5/-\lcap,0/
\figvectC 0 (0,0,1)
\figptstra 11=1,2,3,4,5,6,7,8,9/-\hau,0/

\figptsrot 22=2,3,4,5,6,7,8,9/1,\ang,0/
\figptsrot 32=12,13,14,15,16,17,18,19/11,\ang,0/

\figptsrot 42=22,23,24,25,26,27,28,29/1,\ang,0/
\figptsrot 52=32,33,34,35,36,37,38,39/11,\ang,0/

\figptsrot 62=42,43,44,45,46,47,48,49/1,\ang,0/
\figptsrot 72=52,53,54,55,56,57,58,59/11,\ang,0/

\figptsrot 82=62,63,64,65,66,67,68,69/1,\ang,0/
\figptsrot 92=72,73,74,75,76,77,78,79/11,\ang,0/

\figptsrot 102=82,83,84,85,86,87,88,89/1,\ang,0/
\figptsrot 112=92,93,94,95,96,97,98,99/11,\ang,0/

\figptsrot 122=102,103,104,105,106,107,108,109/1,\ang,0/
\figptsrot 132=112,113,114,115,116,117,118,119/11,\ang,0/

\figptsrot 142=122,123,124,125,126,127,128,129/1,\ang,0/
\figptsrot 152=132,133,134,135,136,137,138,139/11,\ang,0/

%Branches.
\figvectC 0 (0,0,1)
\figptstra 160=2,22,42,62,82,102,122,142/-\haui,0/
\figptstra 170=12,32,52,72,92,112,132,152/\haui,0/
\figvectC 0 (0,1,0)
\figptstra 180=160,161,162,163,164,165,166,167/-\lcap,0/
\figptstra 190=160,161,162,163,164,165,166,167/\lcap,0/
\figptstra 200=170,171,172,173,174,175,176,177/-\lcap,0/
\figptstra 210=170,171,172,173,174,175,176,177/\lcap,0/

% 2. Creation of the graphical file

%\figsetview(2)
\figset proj(psi=-1,theta=15)
\psbeginfig{}

%Anneau du haut.
\pssetwidth{1}
\psarccircP 1;\ray[2,4,4]
\psarccircP 1;\ray[5,3,3]
\psline[6,8]
\psline[7,9]

\psarccircP 1;\ray[22,24,24]
\psarccircP 1;\ray[25,23,23]
\psline[26,28]
\psline[27,29]

\psarccircP 1;\ray[42,44,44]
\psarccircP 1;\ray[45,43,43]
\psline[46,48]
\psline[47,49]

\psarccircP 1;\ray[62,64,64]
\psarccircP 1;\ray[65,63,63]
\psline[66,68]
\psline[67,69]
\pssetwidth{\defaultwidth}

\psarccircP 1;\ray[82,84,84]
\psarccircP 1;\ray[85,83,83]
\psline[86,88]
\psline[87,89]

\psarccircP 1;\ray[102,104,104]
\psarccircP 1;\ray[105,103,103]
\psline[106,108]
\psline[107,109]

\psarccircP 1;\ray[122,124,124]
\psarccircP 1;\ray[125,123,123]
\psline[126,128]
\psline[127,129]

\psarccircP 1;\ray[142,144,144]
\psarccircP 1;\ray[145,143,143]
\psline[146,148]
\psline[147,149]

%Brins verticaux.
\pssetwidth{1}
\psline[2,160]
\psline[22,161]
\psline[42,162]
\psline[62,163]
\psline[82,164]
\pssetwidth{\defaultwidth}
\psline[102,165]
\psline[122,166]
\psline[142,167]

\pssetwidth{1}
\psline[12,170]
\psline[32,171]
\psline[52,172]
\psline[72,173]
\psline[92,174]
\pssetwidth{\defaultwidth}
\psline[112,175]
\psline[132,176]
\psline[152,177]

\pssetwidth{1}
\psline[180,190]
\psline[181,191]
\psline[182,192]
\psline[183,193]
\psline[184,194]
\pssetwidth{\defaultwidth}
\psline[185,195]
\psline[186,196]
\psline[187,197]

\pssetwidth{1}
\psline[200,210]
\psline[201,211]
\psline[202,212]
\psline[203,213]
\psline[204,214]
\pssetwidth{\defaultwidth}
\psline[205,215]
\psline[206,216]
\psline[207,217]

%Anneau du bas.
\pssetwidth{1}
\psarccircP 11;\ray[12,14,14]
\psarccircP 11;\ray[15,13,13]
\psline[16,18]
\psline[17,19]

\psarccircP 11;\ray[32,34,34]
\psarccircP 11;\ray[35,33,33]
\psline[36,38]
\psline[37,39]

\psarccircP 11;\ray[52,54,54]
\psarccircP 11;\ray[55,53,53]
\psline[56,58]
\psline[57,59]

\psarccircP 11;\ray[72,74,74]
\psarccircP 11;\ray[75,73,73]
\psline[76,78]
\psline[77,79]
\pssetwidth{\defaultwidth}

\psarccircP 11;\ray[92,94,94]
\psarccircP 11;\ray[95,93,93]
\psline[96,98]
\psline[97,99]

\psarccircP 11;\ray[112,114,114]
\psarccircP 11;\ray[115,113,113]
\psline[116,118]
\psline[117,119]

\psarccircP 11;\ray[132,134,134]
\psarccircP 11;\ray[135,133,133]
\psline[136,138]
\psline[137,139]

\psarccircP 11;\ray[152,154,154]
\psarccircP 11;\ray[155,153,153]
\psline[156,158]
\psline[157,159]

\psendfig

% 3. Writing text on the figure

\figvisu{\figBoxA}{{\sc Fig. 1}\ --\ L'antenne cage d'oiseau}{}
\box\figBoxA
\end{document}