VERA window panning demo

[svenvandevelde]

This program is written using kickc of Jesper Gravgaard. I'm helping him to create a framework encapsulating the CX16 vera in order to be able to quickly create graphical effects for games.

This is a short demo and I hope you like it.

This program uses the keyboard to progress through the program!

So be sure to run this from the desktop, since the emulator on mobile phones do not have a keyboard!

This code now displays the character set on layer 0, while the default terminal is working with the VERA layer 1.

So, the raster interrupt implementation allows to type on the terminal, while the screen on layer 0 is scrolling in the background :-).

Background transparency in 1 bit per pixel text mode in 16x16 color mode is achieved by ensuring that the background of both layer 1 and layer 2 are black. 

You can experiment with this while typing on the terminal, changing colors, while the scroll on layer 0 is working in the background ...

 

The demo also illustrates the progress I've been making with the vera encapsulation functions.

// Example program for the Commander X16.
// Demonstrates the usage of the VERA layer 0 and 1.

// Author: Sven Van de Velde

// The default layer of the CX16 is layer 1.
// The CX16 starts in tile map mode, 1BPP in 16 color mode, and uses 8x8 tiles.
// The map base is address 0x00000 in VERA VRAM, the tile map is address 0x0F800.

#include <veralib.h>
#include <printf.h>
#include <6502.h>

void main() {

    textcolor(WHITE);
    bgcolor(BLACK);
    clrscr();

    // Now we set the tile map width and height.
    vera_set_layer_mapbase(0,0x80); // Set the map base to address 0x10000 in VERA VRAM!
    vera_set_layer_config(0, vera_get_layer_config(1));
    vera_set_layer_tilebase(0, vera_get_layer_tilebase(1));
    vera_set_layer_map_width_128(0);
    vera_set_layer_map_height_128(0);
    dword tilebase = vera_get_layer_tilebase_address(0);

    screenlayer(0);
    scroll(0); // Scrolling on conio is deactivated, so conio will output beyond the borders of the visible screen.
    textcolor(WHITE);
    bgcolor(GREEN);

    draw_characters(tilebase);

    // Enable VSYNC IRQ (also set line bit 8 to 0)
    SEI();
    *KERNEL_IRQ = &irq_vsync;
    *VERA_IEN = VERA_VSYNC;
    CLI();

    vera_show_layer(0);
    while(!kbhit());

    vera_hide_layer(0);
    textcolor(GREY);
    bgcolor(GREEN);
    draw_characters(tilebase);
    vera_show_layer(0);

    screenlayer(1);

    textcolor(WHITE);
    bgcolor(BLACK);
    printf("\n\nthis demo displays the design of the standard x16 commander\n");
    printf("character set on the vera layer 0. it's the character set i grew up with :-).\n");
    printf("\nthe smooth scrolling is implemented by manipulating the scrolling \n");
    printf("registers of layer 0. at each raster line interrupt, \n");
    printf("the x and y scrolling registers are manipulated. the cx16 terminal \n");
    printf("works on layer 1. when layer 0 is enabled with the scrolling, \n");
    printf("it gives a nice background effect. this technique can be used to implement\n");
    printf("smooth scrolling backgrounds using tile layouts in games or demos.\n");

    textcolor(YELLOW);
    printf("\npress a key to continue ...");

    while(!kbhit());

    screenlayer(0);
    vera_hide_layer(0);
    textcolor(DARK_GREY);
    bgcolor(BLACK);
    draw_characters(tilebase);
    vera_show_layer(0);

    screenlayer(1);
    gotoxy(0,20);

}

void draw_characters(dword tilebase) {
    dword tilecolumn = tilebase;
    dword tilerow = tilebase;
    clrscr();

    for(byte y:0..15) {
        tilerow = tilebase;
        for(byte r:0..7) {
            tilecolumn = tilerow;
            for(byte x:0..15) {
                vera_vram_address0(tilecolumn,VERA_INC_0);
                byte data = *VERA_DATA0;
                byte bit = data;
                for(byte b:8..1) {
                    bit = (data >> (b-1)) & $1;
                    printf("%c", (char)((bit)?'*':'.'));
                }
                tilecolumn += 8;
                printf("");
            }
            //printf("\n");
            tilerow += 1;
        }
        tilebase += 8*16;
    }
}

// X sine index
volatile int scroll_x = 0;
volatile int scroll_y = 0;
volatile int delta_x = 2;
volatile int delta_y = 0;
volatile int speed = 2;

// VSYNC Interrupt Routine
__interrupt(rom_sys_cx16) void irq_vsync() {


    scroll_x += delta_x;
    scroll_y += delta_y;

    if( scroll_x>(128*8-80*8)) {
        delta_x = 0;
        delta_y = speed;
        scroll_x = (128*8-80*8);
    }
    if( scroll_y>(128*8-60*8)) {
        delta_x = -speed;
        delta_y = 0;
        scroll_y = (128*8-60*8);
    }
    if(scroll_x<0) {
        delta_x = 0;
        delta_y = -speed;
        scroll_x = 0;
    }
    if(scroll_y<0) {
        delta_x = speed;
        delta_y = 0;
        scroll_y = 0;
   }

    vera_set_layer_horizontal_scroll(0,(word)scroll_x);
    vera_set_layer_vertical_scroll(0,(word)scroll_y);

    // Reset the VSYNC interrupt
    *VERA_ISR = VERA_VSYNC;
    // Exit CX16 KERNAL IRQ
    asm {
        // soft exit (keep kernal running)
        jmp $e034
    }
}