\input fig4tex.tex
%%%%%%%%%%%%
% pts caracteristiques
%%%%%%%%%%%%%
\figinit{1truecm}
%
% pointe
\figpt 1:(0,0)\figpt 2:(12,0)\figpt 3:(0,10)\figpt 4:(12,10)
%
\figpt 5:(2,2)\figpt 6:(6,2)\figpt 7:(8,0)\figpt 8:(10,2)
\figpt 9:(8,4)\figpt 10:(4,8)\figpt 11:(4,4)\figpt 12:(12,8)
\figvectC 0(1,0)\figvectC 13(0,1)
\figptstra 20 = 1,20,21,22,23,24,25,26,27,28,29,30 /1, 0/
\figptstra 40 = 1,20,21,22,23,24,25,26,27,28,29,30,31 /1, 13/ %%%%%%%%
\figptstra 60 = 1,20,21,22,23,24,25,26,27,28,29,30,31 /2, 13/ %%%%%%
\figptstra 80 = 1,20,21,22,23,24,25,26,27,28,29,30,31 /3, 13/ %%%%%%%%
\figptstra 100 = 1,20,21,22,23,24,25,26,27,28,29,30,31 /4, 13/ %%%%%%%
\figptstra 120 = 1,20,21,22,23,24,25,26,27,28,29,30,31 /5, 13/ %%%%%%%
\figptstra 140 = 1,20,21,22,23,24,25,26,27,28,29,30,31 /6, 13/ %%%%%%%
\figptstra 160 = 1,20,21,22,23,24,25,26,27,28,29,30,31 /7, 13/ %%%%%%%
\figptstra 180 = 1,20,21,22,23,24,25,26,27,28,29,30,31 /8, 13/ %%%%%%%
\figptstra 200 = 1,20,21,22,23,24,25,26,27,28,29,30,31 /9, 13/ %%%%%%%
\figptstra 220 = 1,20,21,22,23,24,25,26,27,28,29,30,31 /10, 13/ %%%%%%%%%%%%%%
% fichier graphical
%%%%%%%%%%%%%%%%
\psbeginfig{}
\psset(width=1)
\psline[5,6,7,8,9,10,11,9,6]\psline[5,11]\psline[9,12]
\psendfig
%%%%%%%%%%%%%
% writing
%%%%%%%%%%%%%
\figvisu{\figBoxA}{}{
\figwritesw 5:$G$(0.1)
\figwritew 11:$F$(0.1)
\figwrites 6:$A$(0.1)
\figwrites 7:$B$(0.1)
\figwritee 8:$C$(0.1)
\figwritee 9:$D$(0.1)
\figwritene 10:$E$(0.1)
\figsetmark{$\bullet$}
\figwritep [1,20,21,22,23,24,25,26,27,28,29,30,31]
\figwritep [40,41,42,43,44,45,46,47,48,49,50,51,52]
\figwritep [60,61,62,63,64,65,66,67,68,69,70,71,72]
\figwritep [80,81,82,83,84,85,86,87,88,89,90,91,92]
\figwritep [100,101,102,103,104,105,106,107,108,109,110,111,112]
\figwritep [120,121,122,123,124,125,126,127,128,129,130,131,132]
\figwritep [140,141,142,143,144,145,146,147,148,149,150,151,152]
\figwritep [160,161,162,163,164,165,166,167,168,169,170,171,172]
\figwritep [180,181,182,183,184,185,186,187,188,189,190,191,192]
\figwritep [200,201,202,203,204,205,206,207,208,209,210,211,212]
\figwritep [220,221,222,223,224,225,226,227,228,229,230,231,232]
}
\centerline{\box\figBoxA}
\bye