/usr/share/octave/site/m/octave-epstk/eframe.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 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 | %%NAME
%% eframe - draw frame
%%
%%SYNOPSIS
%% eframe(xPos,yPos,width,height[,lineWidth[,dash[,color
%% [,rotation[,cornerRadius]]]]])
%%
%%PARAMETER(S)
%% xPos x-Position of sw-corner of frame
%% yPos y-Position of sw-corner of frame
%% width width of frame
%% height height of frame
%% lineWidth linewidth of frame
%% default: lineWidth=eLineWidth
%% dash if a scalar and
%% dash=0 solid frame,
%% dash>0 dash length
%% dash<0 fill frame with color
%% default: dash=eLineDash
%% if a vector with size 1xn, then dash describes
%% a dash combination [space lineLength1 lineLength2 ...]
%% if a matrix and color=-1
%% dash is the image of frame and filled with RGB values
%% (value=R*2^16+G*2^8+B and R,G,B are integer of 0:255)
%% if a matrix and color is a colormap
%% dash is the image of frame
%% and filled with indices of colormap
%% if a string then dash is filename of a JPEG-file
%% color if dash>=0 vector of frame color ([r g b])
%% if dash<0 vector of background color
%% if dash a matrix then colormap of image or -1
%% default: dash=eLineColor
%% rotation rotation of frame (in deg)
%% cornerRadius radius of rounded corner
%% default: 0=no rounded corner
%%
%%GLOBAL PARAMETER(S)
%% eLineWidth
%% eLineDash
%% eLineColor
% written by stefan.mueller@fhr.fraunhofer.de (C) 2012
function eframe (xPos,yPos,width,height,lineWidth,dash,color,rotation,cornerRadius)
if nargin<4 || nargin>9
eusage('eframe(xPos,yPos,width,height[,lineWidth[,dash[,color[,rotation[,cornerRadius]]]]])');
end
eglobpar;
if nargin<9
cornerRadius=0;
end
if nargin<8
rotation=0;
end
if nargin<7
color=eLineColor;
end
if nargin<6
dash=eLineDash;
end
if nargin<5
lineWidth=eLineWidth;
end
if cornerRadius>0
erectrc(eFile,xPos*eFac,yPos*eFac,width*eFac,height*eFac,...
lineWidth*eFac,color,dash,rotation,cornerRadius*eFac);
else
erect(eFile,xPos*eFac,yPos*eFac,width*eFac,height*eFac,...
lineWidth*eFac,color,dash,rotation);
end
|