%
% File:   sprint.m
% Date:   04-Oct-03
% Author: I. Chuang <ichuang@mit.edu>
%
% Print small version of current plot, handy for pasting into lab notebook
%
% Works under Athena
%
% Usage:   sprint
%
% Outputs plot to current postscript printer
% Note: only works with postscript printers!

[s,x] = unix('date +"%d%b%y-%H%M%S"');
dt = x(1:end-1);

cmd = sprintf('print -dpsc /tmp/%s.ps',dt);
eval(cmd);

cmd = sprintf('(echo \"%%!\\n0.4 0.4 scale\\n\"; cat /tmp/%s.ps)|lpr',dt);
unix(cmd);