/usr/share/octave/site/m/octave-epstk/eellipxy.m is in octave-epstk 2.4-3.
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 37 38 39 40 41 | %eellipxy ( epsFile , x , y , width , height , lineWidth, color, dash, rotation)
% written by stefan.mueller@fhr.fraunhofer.de (C) 2010
function eellipxy(epsFile,x,y,width,height,lineWidth,color,dash,rotation)
if (nargin~=9)
eusage('eellipxy(epsFile,x,y,width,height,lineWidth,color,dash,rotation)');
end
if max(size(dash))==1
width=width-lineWidth;
height=height-lineWidth;
fprintf(epsFile,'gsave\n');
if dash>0
fprintf(epsFile,'[%1.2f %1.2f] 0 setdash\n',dash,dash);
end
fprintf(epsFile,'%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,'%1.2f rotate\n',rotation);
fprintf(epsFile,'1 %1.2f %1.2f div scale\n',height,width);
fprintf(epsFile,'newpath 0 0 %1.2f 0 360 arc closepath\n',width/2);
fprintf(epsFile,'1 %1.2f %1.2f div scale\n',width,height);
fprintf(epsFile,'%1.2f setlinewidth\n',lineWidth);
if dash<0
fprintf(epsFile,'fill\n');
else
fprintf(epsFile,'stroke\n');
end
fprintf(epsFile,'grestore\n');
else
width=width-2*lineWidth;
height=height-2*lineWidth;
fprintf(epsFile,'gsave\n');
fprintf(epsFile,'%1.2f %1.2f translate\n',x,y);
fprintf(epsFile,'%1.2f rotate\n',rotation);
fprintf(epsFile,'1 %1.2f %1.2f div scale\n',height,width);
fprintf(epsFile,'newpath 0 0 %1.2f 0 360 arc closepath clip\n',width/2);
fprintf(epsFile,'1 %1.2f %1.2f div scale\n',width,height);
eimagexy(epsFile,dash,color,-width/2,-height/2,...
width,height);
fprintf(epsFile,'grestore\n');
end
|