/usr/share/octave/site/m/octave-epstk/elines.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 42 43 44 45 46 47 48 49 50 51 52 53 | %%NAME
%% elines - draw lines
%%
%%SYNOPSIS
%% elines(xData,yData[,lineWidth[,dash[,color]]])
%%
%%PARAMETER(S)
%% xData matrix(2xn) of x0,x1-data of lines
%% yData matrix(2xn) of y0,y1-data of lines
%% lineWidth width of lines
%% default: lineWidth=eLineWidth
%% dash if dash=0 then draw solid lines
%% else value of dash is the distance of dashes
%% default: dash=eLineDash
%% if a vector with size 1xn, then dash describes
%% a dash combination [space lineLength1 lineLength2 ...]
%% color vector of line color ([r g b])
%% default: color=eLineColor
%%
%%GLOBAL PARAMETER(S)
%% eLineWidth
%% eLineDash
%% eLineColor
% written by stefan.mueller@fhr.fraunhofer.de (C) 2012
function elines (xData,yData,lineWidth,dash,color)
if nargin<2 || nargin>5
eusage('elines(xData,yData,[,lineWidth[,dash[,color]]])');
end
eglobpar;
if nargin<5
color=eLineColor;
end
if nargin<4
dash=eLineDash;
end
if nargin<3
lineWidth=eLineWidth;
end
[xr xc]=size(xData);
if xr>2
xData=xData';
xc=xr;
end
xData=reshape(xData,1,2*xc);
[yr yc]=size(yData);
if yr>2
yData=yData';
yc=yr;
end
yData=reshape(yData,1,2*yc);
exyline(eFile,0,0,xData*eFac,yData*eFac,...
color,dash*eFac,lineWidth*eFac);
|