Club Amiga de Montreal - CAM/CAM_CD_1.iso/files/283.lha/DMouse_v1.20/src/blanker.c

C/C++ Source or Header | 1989-09-07 | 4.5 KB | 237 lines

/*
 *  BLANKER.C
 *
 *  Example external screen blanker for DMouse.
 */

#include <local/typedefs.h>
#include <local/ipc.h>
#include <local/xmisc.h>

#ifdef LATTICE
#include <dos.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

int __stdargs CXBRK(void);

__stdargs    /*  bug in lcr.lib  */
CXBRK()
{
    return(0);
}

#else
extern int Enable_Abort;    /*    CLI break enable    */
#endif


#define RATE    1000000

typedef struct IORequest IORequest;

static SCR *Scr;
static TA   Ta = {  (ubyte *)"topaz.font", 8 };
static NS   Ns = {  0, 0, 320, -1, 1, -1, -1, 0, CUSTOMSCREEN|SCREENQUIET, &Ta
;

static IOT Iot;
static char Ioip;
static char *TStr = "Blank";
static char *TSpa = "     ";
static long TLen = 5;

void main ARGS((int, char **));
void screenon ARGS((void));
void screenoff ARGS((void));
void screengraphics ARGS((void));
long myrand ARGS((void));

void
main(ac,av)
char **av;
{
    PORT *dmport;
    PORT *ipport;
    PORT *tp;
    IORequest    AddReq;
    IORequest    RemReq;
    char foo;    /*  dummy   */
    char notdone = 1;

#ifndef LATTICE
    Enable_Abort = 0;
#endif

    tp       = CreatePort(NULL, 0);
    ipport = CreatePort(NULL, 0);

    AddReq.io_Message.mn_ReplyPort = ipport;
    AddReq.io_Command = 0x84;
    AddReq.io_Unit = (struct Unit *)&foo;
    AddReq.io_Flags = 0x0C;    /* %1100 (screen blanker, no mouse blanker) */

    RemReq.io_Message.mn_ReplyPort = ipport;
    RemReq.io_Command = 0x85;
    RemReq.io_Unit = (struct Unit *)&foo;

    if (openlibs(INTUITION_LIB|GRAPHICS_LIB) == 0)
    goto fail;
    if (OpenDevice("timer.device", UNIT_VBLANK, &Iot, 0)) {
    Write(Output(), "Unable to open timer.device\n", 28);
    goto fail;
    }
    Iot.tr_node.io_Message.mn_ReplyPort = tp;
    Iot.tr_node.io_Command = TR_ADDREQUEST;

    SetSignal(0, SIGBREAKF_CTRL_C);
    Forbid();
    if (dmport = FindPort("DMouse.ipc"))
    PutMsg(dmport, &AddReq.io_Message);
    Permit();
    if (dmport == NULL) {
    puts("DMouse not running or <V1.20");
    goto fail;
    }

    while (notdone) {
    long mask = (1 << tp->mp_SigBit) | (1 << ipport->mp_SigBit) | SIGBREAKF_CTRL_C

    mask = Wait(mask);

    if (mask & SIGBREAKF_CTRL_C) {
        notdone = 0;
    }
    if ((mask & (1 << tp->mp_SigBit)) && Scr && Ioip && CheckIO(&Iot)) {
        WaitIO(&Iot);
        Iot.tr_time.tv_secs  = RATE / 1000000;
        Iot.tr_time.tv_micro = RATE % 1000000;
        SendIO(&Iot);
        screengraphics();
    }
    if (mask & (1 << ipport->mp_SigBit)) {
        IORequest *ior;
        while (ior = (IORequest *)GetMsg(ipport)) {
        if (ior->io_Message.mn_Node.ln_Type == NT_REPLYMSG) {   /* my AddHand req */
            notdone = 0;
            continue;
        }
        switch(ior->io_Command) {
        case 0x80:
        case 0x81:
            break;
        case 0x82:
            screenon();
            break;
        case 0x83:
            screenoff();
            break;
        case 0x86:
            notdone = 0;
            break;
        }
        ReplyMsg(&ior->io_Message);
        }
    }
    }
    PutMsg(dmport, &RemReq.io_Message);
    WaitMsg(&RemReq);
    {
    register IORequest *ior = NULL;
    while (ior != &AddReq) {    /*  last msg will be AddReq */
        WaitPort(ipport);
        ior = (IORequest *)GetMsg(ipport);
        if (ior->io_Message.mn_Node.ln_Type == NT_MESSAGE)
        ReplyMsg(&ior->io_Message);
    }
    }
fail:
    if (Ioip) {
    AbortIO(&Iot);
    WaitIO(&Iot);
    }
    if (Iot.tr_node.io_Device)
    CloseDevice(&Iot);
    if (tp)
    DeletePort(tp);
    if (ipport)
    DeletePort(ipport);
    closelibs(-1);
}

void
screenoff()
{
    if (Scr)
    ScreenToFront(Scr);
    else if (Scr = OpenScreen(&Ns)) {
    if (!Ioip) {
        Iot.tr_time.tv_secs  = 3;
        Iot.tr_time.tv_micro = 0;
        SendIO(&Iot);
        Ioip = 1;
    }
    }
}

void
screenon()
{
    if (Scr)
    CloseScreen(Scr);
    Scr = NULL;
    if (Ioip) {
    AbortIO(&Iot);
    WaitIO(&Iot);
    Ioip = 0;
    }
}

/*
 *  Simple Stupid
 *
 *  Warning:  Note that no clipping is done when using the screen's
 *          rastport, all rendering must be IN BOUNDS!
 */

void
screengraphics()
{
    static short oldx, oldy;
    short x, y;

    x = (myrand() & 4095) % (Scr->Width - TextLength(&Scr->RastPort, TStr, TLen
 - 8);
    y = (myrand() & 4095) % (Scr->Height- Scr->RastPort.TxHeight - Scr->RastPor
.TxBaseline - 8);
    if (x < 0 || y < 0)
    return;
    y += Scr->RastPort.TxBaseline + 4;

    SetAPen(&Scr->RastPort, 0);
    Move(&Scr->RastPort, oldx, oldy);
    Text(&Scr->RastPort, TSpa, TLen);

    oldx = x;
    oldy = y;
    SetRGB4(&Scr->ViewPort, 1, myrand()&15, myrand()&15, myrand()&15);

    SetAPen(&Scr->RastPort, 1);
    Move(&Scr->RastPort, oldx, oldy);
    Text(&Scr->RastPort, TStr, TLen);
}


long
myrand()
{
    static long rv = 34987;
    rv = (rv * 13 + 1) ^ (rv >> 13);
    return(rv);
}