function scapax4(x,y,sca,t,scav,xymx,tinta)
%function scapax4(x,y,sca,t,plot scale,xymax,tinta)
%
% function to draw a scale for the principal axis plots at (x,y),
% with magnitude 'sca' and with text 't'.
%
%                   Julio Candela VII/93.

 pltpax4(x,y,sca,0,scav,xymx,0,tinta);
 text(x-.03,y-.03,t); 
