%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Glass Clock by Michael Powers (powers.henr801m@xerox.com)
% Copyright (C) 1988 Xerox Corp.
% Ported to tNt 2.0 by Don Hopkins.
%
% Back end disclaimer:
%
% This program is provided free for unrestricted use and
% redistribution provided that this header is included.
% No author (that be me), company (that be Xerox), or
% distributor (that be me again) accepts
% liability for any problems, lost revenue, or damages.
%
% Misc disclaimer:
%
% The postscript isn't pretty, the clock face isn't pretty,
% and the author isn't pretty.
%
% glass.cps
%   just run it through cps to generate glass.h
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
cdef ps_createclock()

(news-tape/utilities/clocks/glass/tntglass.ps) LoadFile not {
#include "tntglass.ps"
} if

cdef ps_update(hour,min,sec,flag)
    flag 0 ne /showseconds window send
    hour min sec /settime window send

cdef ps_showseconds(flag)
    flag 0 ne /showseconds window send
    /updateshape window send

cdef ps_settime(hour,min,sec)
    hour min sec /settime window send

cdef ps_changetime(hour,min,sec)
    hour min sec /changetime window send