OPTI 'REST' '../2_RESOLUTION/RESULTS.sauv';
REST;

OPTI 'TRAC' 'PS';
REPETER POUR ((DIME (TAB1 . MODES)) - 2);
	OPTI 'FTRA' (CHAI 'MODE' &POUR '.ps');
	LIST &POUR;
	LIST TAB1 . MODES . (&POUR);
	DEF = DEFO VO TAB1 . MODES . (&POUR) . DEFORMEE_MODALE 10. 'ROUG';
	TR = TRAC DEF 'FACE';
FIN POUR;
FIN;