/usr/share/octave/site/m/octave-epstk/echrcode.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 | eopen('chrcode.eps');
eglobpar;
%titel
etext('Character Codes',eWinWidth/2,230,10,0);
%text character
eTextFont=1;
eTextFontSize=4;
xValue=5;
yValue=210;
lineStep=-4.5;
etext('Character codes of font 1-12 and 14-31 call by octal value',xValue,yValue);
yValue=yValue+lineStep;
eTextFontSize=3;
for i=0:254
c=sprintf(' \\134%o=',i);
s=sprintf('\\%o',i);
if rem(i,15)==0
yValue=yValue+lineStep;
xValue=5;
end
etext(c,xValue,yValue,eTextFontSize,1);
etext(s,0,0,eTextFontSize,1);
xValue=xValue+11;
end
yValue=yValue+lineStep;
yValue=yValue+lineStep;
yValue=yValue+lineStep;
eTextFontSize=4;
xValue=5;
etext('Character Codes of font 13 call by octal value',xValue,yValue);
yValue=yValue+lineStep;
eTextFontSize=3;
for i=0:254
c=sprintf(' \\134%o=',i);
s=sprintf('\\%o',i);
if rem(i,15)==0
yValue=yValue+lineStep;
xValue=5;
end
etext(c,xValue,yValue,eTextFontSize,1);
etext(s,0,0,eTextFontSize,1,13);
xValue=xValue+11;
end
eclose;
ebbox(5);
eview;
|