/usr/share/octave/site/m/octave-epstk/eimgread.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 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | %%NAME
%% eimgread - read image-file
%%
%%SYNOPSIS
%% [image,colormap]=eimgread(imageFileName)
%%
%%PARAMETER(S)
%% imageFileName name of JPEG- or PPM-file
%% image image matrix
%% if colormap used then
%% image is filled with indices of colormap
%% else
%% image is filled with RGB values
%% (value=R*2^16+G*2^8+B and R,G,B are integer of 0:255)
%% that's a very fast way
%% colormap color table
%%
% written by stefan.mueller@fhr.fraunhofer.de (C) 2010
function [image,colormap]=eimgread(imageFileName)
if nargin>1
eusage('[image,colormap]=eimgread(imageFileName)');
end
eglobpar;
if exist('ePath')
if isempty(ePath)
einit;
end
else
einit;
end
if nargin<1
imageFileName=[ePath 'default.ppm'];
end
jpgpos=findstr(imageFileName,'.jpg');
ppmpos=findstr(imageFileName,'.ppm');
if length(jpgpos)
tempFileName='imgread.ppm';
dpi=ejpg2eps(imageFileName,'imgread.eps');
tempFileName=ebitmap(3,dpi,tempFileName,'imgread.eps');
elseif length(ppmpos)
tempFileName=imageFileName;
end
if nargout==2
[image colormap]=eppmread(tempFileName);
else
image=eppmread(tempFileName);
end
if length(jpgpos)
delete(tempFileName);
delete('imgread.eps');
end
|