/*
File: LCDVIEW.C

Methods for Class: cpview  (Superclass: win).

Main client window
*/

#include <lcdtest.g>
#include <hwim.g>
#include <gate.g>
#include <hwim.h>
#include <olib.h>
#include <fonts.h>
#include <p_file.h>
#include <lcdview.g>
#include <lcdtest.rsg>

#define FONT_DEF        FONT_ID_MONO_8x8
#define CHARBUFFSIZE    64

GLREF_D PR_GATE     *DatGate;
GLREF_D WSERV_SPEC  *wserv_channel;
GLREF_D PR_LCDVIEW   *DatApp3;   /* Main Client Window   */

LOCAL_C VOID lSetDisplayInfo(LCD_DISP_INFO * pLinfo)
    {
    G_FONT_INFO finfo;

        gFontInfo(pLinfo->textfont,G_STY_MONO,&finfo);
        pLinfo->numwidth = finfo.numeric_width;
        pLinfo->textheight = finfo.height;
        pLinfo->textascent = finfo.ascent;
        pLinfo->lineheight = finfo.height + 2;
        pLinfo->lineascent = finfo.ascent + 2;
        pLinfo->scrlines = wserv_channel->conn.info.pixels.y
                                                        /pLinfo->lineheight;
        pLinfo->scrwidth = wserv_channel->conn.info.pixels.x;
    }

LOCAL_C VOID lSetGCTemp(UWORD fid, UWORD style)
/* Sets font and style    */
    {
    G_GC g_gc;

    g_gc.font = fid;
    g_gc.style = (BYTE)style;
    gSetGC(WS_TEMPORARY_GC,G_GC_MASK_FONT|G_GC_MASK_STYLE,&g_gc);
    }

LOCAL_C VOID lFillCharBuff(PR_LCDVIEW *const self, TEXT *pTxt, INT size)
    {
    INT jj;

    for(jj = 0; jj < size; ++jj, ++pTxt)
        {
        *pTxt = self->lcdview.letter;
        ++self->lcdview.letter;
        if(self->lcdview.letter > 'Z')
            self->lcdview.letter = 'A';
        }
    }

LOCAL_C VOID lDrawPatternHHH(PR_LCDVIEW *const self)
    {
    P_RECT rect0;
    P_RECT rect1;
    TEXT xBuff[CHARBUFFSIZE];
    INT row;
    INT chars;
    UINT width;

    p_bfil(&xBuff[0],sizeof(xBuff),'H');

    /* Set font and style    */
    lSetGCTemp(self->lcdview.dinfo.textfont,G_STY_MONO);
    rect1 = rect0 = *((P_RECT*)&self->lcdview.extent);
    gClrRect(&rect1,G_TRMODE_CLR);
    width = self->lcdview.dinfo.scrwidth;
    chars = gTextCount(self->lcdview.dinfo.textfont,G_STY_MONO,
                                    &xBuff[0],sizeof(xBuff),&width);

    rect0.tl.y = 25;
    ++rect0.tl.x;
    --rect0.br.x;
    for(row = 0; row < 5; ++row)
        {
        rect0.br.y = rect0.tl.y + self->lcdview.dinfo.lineheight;
        gPrintBoxText(&rect0,self->lcdview.dinfo.lineascent,
                        G_TEXT_ALIGN_LEFT,0,&xBuff[0],chars);
        rect0.tl.y += 10;
        }

    gDrawBox(&rect1);
    }

LOCAL_C VOID lDrawPatternOnOff(PR_LCDVIEW *const self)
    {   /* Alternate pixels On/Off  */
    gFillPattern((P_RECT*)&self->lcdview.extent,
                                    WS_BITMAP_GREY,G_TRMODE_REPL);
    }

LOCAL_C VOID lDrawPatternON(PR_LCDVIEW *const self)
    {   /* All pixels ON    */
    gClrRect((P_RECT*)&self->lcdview.extent,G_TRMODE_SET);
    }

LOCAL_C VOID lDrawPatternOFF(PR_LCDVIEW *const self)
    {   /* All pixels OFF    */
    gClrRect((P_RECT*)&self->lcdview.extent,G_TRMODE_CLR);
    }

LOCAL_C VOID lDrawPatternGrey(PR_LCDVIEW *const self)
    {
    INT row;
    P_RECT rect0;
    G_GC g_gc;

    gClrRect((P_RECT*)&self->lcdview.extent,G_TRMODE_CLR);
    g_gc.flags = G_GC_FLAG_GREY_PLANE;
    gSetGC(WS_TEMPORARY_GC,G_GC_MASK_GREY,&g_gc);
    rect0 = *((P_RECT*)&self->lcdview.extent);
    rect0.tl.y = self->lcdview.offset % (self->lcdview.dinfo.lineheight+1);
    for(row = 0; row < self->lcdview.dinfo.scrlines; ++row)
        {
        rect0.br.y = rect0.tl.y + self->lcdview.dinfo.lineheight;
        gClrRect(&rect0,row%2? G_TRMODE_SET: G_TRMODE_CLR);
        rect0.tl.y += self->lcdview.dinfo.lineheight;
        }
    gClrRect(&rect0,G_TRMODE_CLR);
    g_gc.flags = 0;
    gSetGC(WS_TEMPORARY_GC,G_GC_MASK_GREY,&g_gc);
    }

LOCAL_C VOID lDrawPatternChars(PR_LCDVIEW *const self)
    {
    P_RECT rect0;
    TEXT xBuff[CHARBUFFSIZE];
    INT row;
    INT chars;
    UINT width;

    /* Set font and style    */
    lSetGCTemp(self->lcdview.dinfo.textfont,G_STY_MONO);
    p_bcpy(&rect0,&self->lcdview.extent,sizeof(rect0));
    gClrRect(&rect0,G_TRMODE_CLR);
    for(row = 0; row < self->lcdview.dinfo.scrlines; ++row)
        {
        rect0.br.y = rect0.tl.y + self->lcdview.dinfo.lineheight;
        lFillCharBuff(self,&xBuff[0],sizeof(xBuff));
        width = self->lcdview.dinfo.scrwidth;
        chars = gTextCount(self->lcdview.dinfo.textfont,G_STY_MONO,
                                    &xBuff[0],sizeof(xBuff),&width);
        self->lcdview.letter = xBuff[chars];
        gPrintBoxText(&rect0,self->lcdview.dinfo.lineascent,
                        G_TEXT_ALIGN_LEFT,0,&xBuff[0],chars);
        rect0.tl.y += self->lcdview.dinfo.lineheight;
        }
    }

LOCAL_C VOID SetPattern(PR_LCDVIEW *const self, VOID(*func)(PR_LCDVIEW *))
    {
    self->lcdview.funct = (VOID(*)(VOID*))func;
    }

#pragma METHOD_CALL

METHOD VOID lcdview_wn_init(PR_LCDVIEW *const self)
    {
    W_WINDATA wd;

    wd.background = W_WIN_BACK_CLR|W_WIN_BACK_GREY_CLR;
    wd.flags = 0;
    wd.extent.tl.x = wd.extent.tl.y = 0;
    wd.extent.width = wserv_channel->conn.info.pixels.x;
    wd.extent.height = wserv_channel->conn.info.pixels.y;
    self->lcdview.extent = wd.extent;
    p_send5(self,O_WN_CONNECT,NULL_D,W_WIN_ALL_FLAGS|W_WIN_EXTENT|W_WIN_BACKGROUND,&wd);
    wStatusWindow(W_STATUS_WINDOW_OFF);
    wsSetList(W_STATUS_WINDOW_ICON,NULL_D,0);

    self->lcdview.letter = 'A';
    self->lcdview.dinfo.textfont = FONT_DEF;
    lSetDisplayInfo(&self->lcdview.dinfo);
    SetPattern(self,lDrawPatternHHH);
    }

METHOD VOID lcdview_wn_draw(PR_LCDVIEW *const self)
    {
    (*self->lcdview.funct)(self);
    if(self->lcdview.status & LCD_STAT_INVERSE)
            gInvObloid(&self->lcdview.extent);
    }

METHOD INT lcdview_wn_key(PR_LCDVIEW *const self,UINT key,UINT mod)
    {
    switch(key)
        {
        case '0':
            gCreateTempGC0(self->win.id);
            gInvObloid(&self->lcdview.extent);
            self->lcdview.status ^= LCD_STAT_INVERSE;
            gFreeTempGC();
            return WN_KEY_NO_CHANGE;
        case '1':
            SetPattern(self,lDrawPatternHHH);
            break; /* to WN_DODRAW  */
        case '2':
            SetPattern(self,lDrawPatternOnOff);
            break; /* to WN_DODRAW  */
        case '3':
            SetPattern(self,lDrawPatternON);
            break; /* to WN_DODRAW  */
        case '4':
            SetPattern(self,lDrawPatternOFF);
            break; /* to WN_DODRAW  */
        case '5':
            SetPattern(self,lDrawPatternGrey);
            break; /* to WN_DODRAW  */
        case '6':
            SetPattern(self,lDrawPatternChars);
            break; /* to WN_DODRAW  */
        case W_KEY_UP:
            ++self->lcdview.offset;
            break; /* to WN_DODRAW  */
        case W_KEY_DOWN:
            --self->lcdview.offset;
            break; /* to WN_DODRAW  */
        case W_KEY_HOME:
            self->lcdview.offset = 0;
            break; /* to WN_DODRAW  */
        case W_KEY_END:
            self->lcdview.offset = self->lcdview.dinfo.lineheight;
            break; /* to WN_DODRAW  */
        default:
            return WN_KEY_NO_CHANGE;
        }   /* End switch() */
    p_send2(self,O_WN_DODRAW);
    return WN_KEY_NO_CHANGE;
    }