/usr/share/octave/site/m/octave-epstk/epolplos.m is in octave-epstk 2.4-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | %epolplos ( epsFile,x,y,alpha,radia,dash,color)
% written by stefan.mueller@fhr.fraunhofer.de (C) 2010
function epolplos ( epsFile,x,y,alpha,radia,dash,color)
if (nargin~=7)
eusage('epolplos(epsFile,x,y,alpha,radia,dash,color)');
end
deg2rad=pi/180;
rad2deg=180/pi;
[alpha idx]=sort(alpha);
radia=radia(idx);
[alpha radia]=edecipol(alpha*deg2rad,radia);
alpha=alpha*rad2deg;
nData=size(alpha,2)*2;
xradia=[alpha; radia];
xradia=reshape(xradia,1,nData);
dataStart=1;
while dataStart<nData
dataEnd=dataStart+47999;
if dataEnd>nData
dataEnd=nData;
end
array=sprintf('%1.2f ',xradia(dataStart:dataEnd));
fprintf(epsFile,'/plotdata[%s] def\n',array);
fprintf(epsFile,'currentrgbcolor %1.2f %1.2f %1.2f setrgbcolor\n',...
color(1),color(2),color(3));
fprintf(epsFile,'%1.2f %1.2f translate\n',x,y);
fprintf(epsFile,'0 2 plotdata length 2 sub\n');
fprintf(epsFile,'{ dup 1 add plotdata exch get\n');
fprintf(epsFile,'exch plotdata exch get\n');
fprintf(epsFile,'dup rotate exch dup 0 translate %s\n',dash);
fprintf(epsFile,'neg 0 translate neg rotate} for\n');
fprintf(epsFile,'%1.2f %1.2f translate\n',-x,-y);
fprintf(epsFile,'setrgbcolor\n');
dataStart=dataEnd+1;
end
|