/*
 *  ０.５ドットスクロールサンプル
 *
 *  注）setscrn.obj, gra.obj io.objをリンクしてください
 */

#include <stdio.h>
#include <fmc.h>        /* KYBD */
#include <egb.h>

extern CRTC(),screenterm(),EGB_singleLine();
void leftHalfScroll(),waitVsync();

void main()
{
        unsigned int  ky,enc;
        int     i,c;
        char    egbwork[1536];

        struct {
                short int x,y,num;
                char moji[31];
                } title = {0,16,31,"０.５ドットスクロールサンプル "};

        KYB_init();
        KYB_clic(1);

        EGB_init(egbwork,1536);
        EGB_resolution(egbwork,0,10);
        EGB_resolution(egbwork,1,10);
        EGB_displayPage(egbwork,1,3);

        EGB_writePage(egbwork,1);
        EGB_color(egbwork,1,0x8000);
        EGB_color(egbwork,0,0x7fff);
        EGB_clearScreen(egbwork);
        EGB_displayStart(egbwork,1,0,0);
        EGB_displayStart(egbwork,2,2,2);
        EGB_displayStart(egbwork,3,320,240);
        EGB_sjisString(egbwork,(char *)&title);

        for (i=0; i<320; i=i+4 ) {
                EGB_singleLine(egbwork,i,120,i,239);
        }

        EGB_writePage(egbwork,0); 
        EGB_displayStart(egbwork,1,0,0);
        EGB_displayStart(egbwork,2,2,2);
        EGB_displayStart(egbwork,3,320,240);

        c = 0;
        for (i=0; i<320; i++ ) {
                EGB_color(egbwork,0,c);
                EGB_singleLine(egbwork,i,0,i,239);
                c = c + 25;
        }

        ky = 0xffff;
        while (ky != 13) {  /* retで終了 */ 
                ky = 0xffff;
                leftHalfScroll(egbwork);
                while (ky == 0xffff)    ky = KYB_read(1,&enc);
        }

        screenterm(egbwork);
}


/*
 *      0.5ドットスクロールルーチン
 *
 */

#define fa0  17
#define haj0 18

void leftHalfScroll(char *gwork)
{
        static int cnt = 0;

        /* fa0の初期値（画面左上） */
        static int fa0Data = 0;

        /* haj0の初期値（この値は画面モードによって異なる。赤本参照） */
        static int haj0Data = 0x8a;


        if (cnt == 0 || cnt == 4) {
                waitVsync(gwork);
                CRTC(fa0,fa0Data);
                CRTC(haj0,haj0Data);
                fa0Data++; 
                if (fa0Data == 256) fa0Data = 0;
                        /* fa0Data > 255だと Y方向に+1dotずれるので戻す */
                cnt = 1;
        } else {
                waitVsync(gwork);
                CRTC(haj0,haj0Data - cnt);
                cnt++ ;
        }
}

void waitVsync(char *gwork)
{
        int par = 0;
        EGB_palette(gwork, 1, (char *)&par);
}