% converts matrix to the file deleteme.eps
% draws a box around it and puts on tick marks
% labels axes as "physical ``X'' dimension", "physical ``Y'' dimension"
%
% saves toner by taking negative
%
% mat2eps_xy(A)                     % takes abs value, inverts, scales 0..255
%
% returns nothing

function dummy_mat2eps_xy(A)

disp('assuming the matrix is Real real REAL')
img = 255 - scaler2(A);
img = flipud(img).';    % flipud is for postscript being upside down
                        % transpose is because .mat is not TV order
save deleteme_mat2eps_xy img
!/grad/steve/matc/mat2eps_xy deleteme_mat2eps_xy.mat deleteme.eps
delete deleteme_mat2eps_xy.mat

disp('created file "deleteme.eps"')

