/*
 *  CLOCK.C	simple clock program
 */

#include <local/typedefs.h>

short Params[] = {
    'ST','RT', 0, 0,
    'NW','  ', 0, 8, -1, 10, 40, 20,
    'TE','XT', 0,16, 'HI','\0T','ES','T.', 0, 0, 0, 0,
    'EN','D ', 0, 0
};

#define WPOSX	8
#define WPOSY	9
#define WWIDTH	10
#define WHEIGHT 11

APTR IntuitionBase;
APTR GfxBase;

NW Nw = {
    0, 0, 0, 0, 0, 0,
    CLOSEWINDOW|REFRESHWINDOW|ACTIVEWINDOW|INACTIVEWINDOW,
    SIMPLE_REFRESH|WINDOWCLOSE|BACKDROP|RMBTRAP,
    NULL, NULL, (ubyte *)"", NULL, NULL, 4, 4, -1, -1, WBENCHSCREEN
};

short Sin[60+15] = {
      0,  27,  53,  79, 104, 128, 150, 171, 190, 207, 222, 234, 243, 250, 255,
    256, 255, 250, 243, 234, 222, 207, 190, 171, 150, 128, 104,  79,  53,  27,
      0, -27, -53, -79,-104,-128,-150,-171,-190,-207,-222,-234,-243,-250,-255,
   -256,-255,-250,-243,-234,-222,-207,-190,-171,-150,-128,-104, -79, -53, -27,
      0,  27,  53,  79, 104, 128, 150, 171, 190, 207, 222, 234, 243, 250, 255
};

#define Cos (Sin+15)

_main(ac, av)
char *av[];
{
    IOT  Iot;	    /*	timer request,	1 second internals  */
    SCR  Scr;
    WIN  *Win;
    PORT TPort;     /*	port for timer request		    */
    long TMask;
    long WMask;
    long error = 20;
    char notdone = 1;

    bzero(&Iot, sizeof(Iot));
    bzero(&TPort, sizeof(TPort));

    if (!(IntuitionBase = OpenLibrary("intuition.library", 0)))
	goto dieilib;
    if (!(GfxBase = OpenLibrary("graphics.library", 0)))
	goto dieglib;
    if (OpenDevice("timer.device", UNIT_VBLANK, &Iot, 0))
	goto diedev;
    if (!GetScreenData(&Scr, sizeof(Scr), WBENCHSCREEN, NULL))
	goto diewin;

    Nw.Width  = Params[WWIDTH];
    Nw.Height = Params[WHEIGHT];
    Nw.LeftEdge = Params[WPOSX];
    Nw.TopEdge	= Params[WPOSY];
    if (Nw.Width <= 0)
	Nw.Width += Scr.Width;
    if (Nw.Height <= 0)
	Nw.Height += Scr.Height;
    if (Nw.LeftEdge < 0)
	Nw.LeftEdge += Scr.Width - Nw.Width;
    if (Nw.TopEdge < 0)
	Nw.TopEdge  += Scr.Height- Nw.Height;
    if (Nw.LeftEdge < 0 || Nw.TopEdge < 0 || Nw.LeftEdge + Nw.Width > Scr.Width || Nw.TopEdge + Nw.Height > Scr.Height) {
	Nw.LeftEdge = Nw.TopEdge = 0;
	Nw.Width = 64;
	Nw.Height= 32;
    }

    if (!(Win = OpenWindow(&Nw)))
	goto diewin;

    ShowTitle(Win->WScreen, 0);

    TPort.mp_Node.ln_Type = NT_MSGPORT;
    TPort.mp_SigTask = FindTask(NULL);
    TPort.mp_SigBit = AllocSignal(-1);
    TPort.mp_Flags  = PA_SIGNAL;
    NewList(&TPort.mp_MsgList);

    Iot.tr_node.io_Message.mn_ReplyPort = &TPort;
    Iot.tr_node.io_Message.mn_Node.ln_Type = NT_MESSAGE;
    Iot.tr_node.io_Command = TR_ADDREQUEST;
    Iot.tr_time.tv_secs = 1;
    Iot.tr_time.tv_micro= 0;
    SendIO(&Iot);

    TMask = 1 << TPort.mp_SigBit;
    WMask = 1 << Win->UserPort->mp_SigBit;

    error = 0;
    while (notdone) {
	register long mask = Wait(TMask|WMask);
	if (mask & TMask) {
	    register short secs;
	    WaitIO(&Iot);
	    secs = UpdateWindow(Win);
	    Iot.tr_time.tv_secs = 65 - secs;
	    Iot.tr_time.tv_micro= 0;
	    Iot.tr_node.io_Message.mn_Node.ln_Type = NT_MESSAGE;
	    SendIO(&Iot);
	}
	if (mask & WMask) {
	    register IMESS *im;
	    while (im = GetMsg(Win->UserPort)) {
		switch(im->Class) {
		case CLOSEWINDOW:
		    notdone = 0;
		    break;
		case REFRESHWINDOW:
		    BeginRefresh(Win);
		    EndRefresh(Win);
		case ACTIVEWINDOW:
		case INACTIVEWINDOW:
		    UpdateWindow(Win);
		    break;
		}
		ReplyMsg(im);
	    }
	}
    }
    AbortIO(&Iot);
    WaitIO(&Iot);
    FreeSignal(TPort.mp_SigBit);

    CloseWindow(Win);
diewin:
    CloseDevice(&Iot);
diedev:
    CloseLibrary(GfxBase);
dieglib:
    CloseLibrary(IntuitionBase);
dieilib:
    _exit(error);
}

/*
 *  Update the window
 *
 *  (1) RectFill
 *  (2) minute and hour hands
 */

UpdateWindow(win)
register WIN *win;
{
    register RP *rp = win->RPort;
    DATESTAMP DS;
    short minutes;
    short hours;
    short radiusx, radiusy;
    short centerx, centery;

    DateStamp(&DS);
    minutes = DS.ds_Minute % 60;
    hours   = (DS.ds_Minute / 12) % 60;     /*  0 to 59 (partial hours indicator)   */
    radiusx = (win->Width - 2) >> 1;
    radiusy = (win->Height- 2) >> 1;
    centerx = 1 + radiusx;
    centery = 1 + radiusy;
    SetAPen(rp, 0);
    RectFill(rp, 0, 0, win->Width - 1, win->Height - 1);
    SetAPen(rp, 1);
    {
	register short i;
	for (i = 0; i < 60; i += 5) {
	    Move(rp, centerx + ((radiusx * Sin[i]) >> 8), centery + ((radiusy * -Cos[i]) >> 8));
	    Draw(rp, centerx + ((radiusx * Sin[i]) >> 8), centery + ((radiusy * -Cos[i]) >> 8));
	}
    }
    radiusx -= 2;
    radiusy -= 2;

    SetAPen(rp, 3);                 /*  minutes */
    Move(rp, centerx, centery);
    Draw(rp, centerx + ((radiusx * Sin[minutes]) >> 8), centery + ((radiusy * -Cos[minutes]) >> 8));
    SetAPen(rp, 2);                 /*  hours   */
    Move(rp, centerx, centery);
    Draw(rp, centerx + ((radiusx * Sin[hours]) / 384), centery + ((radiusy * -Cos[hours]) / 384));
    return(DS.ds_Tick / 50 % 60);  /*  seconds */
}

#asm

	    ; bzero(buf, bytes)
	    ;	    4sp   8sp
	    ;
	    ;	SIMPLE STUPID BZERO .. I don't even use DBF (don't want to
	    ;				have to think at this time of night)

_bzero:
	    moveq.l #0,D1
	    move.l  4(sp),A0
	    move.l  8(sp),D0
	    beq     bze
bz1	    move.b  D1,(A0)+
	    subq.l  #1,D0
	    bne     bz1
bze	    rts


#endasm