/usr/share/octave/site/m/octave-epstk/eimg2txt.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 | %%NAME
%% eimg2txt - converts image to ascii-image
%%
%%SYNOPSIS
%% txt=eimg2txt(image,colormap)
%%
%%PARAMETER(S)
%% txt string of image
%% image index-matrix
%% colormap color table
%%
% written by stefan.mueller@fhr.fraunhofer.de (C) 2010
function txt= eimg2txt (image,colormap)
if (nargin ~= 2)
eusage('txt = eimg2txt(image,colormap)');
end
if colormap(1,1)<0
[image colormap]=ergb2idx(image);
end
txtTab=['NBW8OUGX0woscvx+!~"-,' char(39) '` '];
[rows cols]=size(image);
lumen=reshape(colormap(image,1)+...
colormap(image,2)+...
colormap(image,3),rows,cols);
lumen=reshape([lumen;lumen],rows,2*cols);
maxL=max(max(lumen));minL=min(min(lumen));
lumen=(lumen-minL)/(maxL-minL+eps);
txt=txtTab(fix(lumen*length(txtTab))+1);
|