nes-proj/backyard/platform/c64/apps/ssfire.c

164 lines
4.5 KiB
C

/*
* Copyright (c) 2002-2004, Adam Dunkels.
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above
* copyright notice, this list of conditions and the following
* disclaimer in the documentation and/or other materials provided
* with the distribution.
* 3. The name of the author may not be used to endorse or promote
* products derived from this software without specific prior
* written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS
* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*
* This file is part of the Contiki desktop environment
*
* $Id: ssfire.c,v 1.1 2007/05/23 23:11:24 oliverschmidt Exp $
*
*/
#include <stdlib.h>
#include "ctk/ctk.h"
#include "ctk/ctk-draw.h"
#include "ctk/ctk-mouse.h"
#include "contiki.h"
#include "sys/loader.h"
PROCESS(ssfire_process, "Fire screensaver");
static unsigned char flames[8*17];
static const unsigned char flamecolors[16] =
{COLOR_BLACK, COLOR_BLACK, COLOR_BLACK, COLOR_RED,
COLOR_LIGHTRED, COLOR_YELLOW, COLOR_WHITE, COLOR_WHITE,
COLOR_WHITE, COLOR_WHITE, COLOR_WHITE, COLOR_WHITE,
COLOR_WHITE, COLOR_WHITE, COLOR_WHITE, COLOR_WHITE};
/*---------------------------------------------------------------------------*/
static void
fire_init(void)
{
unsigned char *ptr, *cptr;
/* Fill screen with inverted spaces. */
cptr = COLOR_RAM;
for(ptr = (unsigned char *)0x0400;
ptr != (unsigned char *)0x07e8;
++ptr) {
*ptr = 0xa0;
*cptr++ = 0x00;
}
SID.v3.freq = 0xffff;
SID.v3.ctrl = 0x80;
SID.amp = 0;
VIC.ctrl1 = 0x1b; /* $D011 */
VIC.addr = 0x17; /* $D018 */
VIC.ctrl2 = 0xc8; /* $D016 */
VIC.bordercolor = 0x00; /* $D020 */
VIC.bgcolor0 = 0x00; /* $D021 */
CIA2.pra = 0x03; /* $DD00 */
}
/*---------------------------------------------------------------------------*/
#pragma optimize(push, off)
static void
fire_burn(void)
{
/* Calculate new flames. */
asm("ldy #$00");
loop1:
asm("lda %v+7,y", flames);
asm("clc");
asm("adc %v+8,y", flames);
asm("adc %v+9,y", flames);
asm("adc %v+16,y", flames);
asm("lsr");
asm("lsr");
asm("sta %v,y", flames);
asm("iny");
asm("cpy #(8*15)");
asm("bne %g", loop1);
/* Fill last line with pseudo-random data from noise generator on
voice 3. */
asm("ldy #$05");
loop2:
asm("ldx #$20");
delay:
asm("dex");
asm("bne %g", delay);
asm("lda $D41B");
asm("and #$0F");
asm("sta %v+8*15+1,y", flames);
asm("dey");
asm("bpl %g", loop2);
}
#pragma optimize(pop)
/*---------------------------------------------------------------------------*/
static unsigned char *flameptr, *colorptr1, *colorptr2;
static unsigned char x, y;
static void
pollhandler(void)
{
if(ctk_mode_get() == CTK_MODE_SCREENSAVER) {
fire_burn();
/* Display flames on screen. */
flameptr = flames;
colorptr1 = COLOR_RAM + 40*10;
colorptr2 = colorptr1 + 0x20;
for(y = 0; y < 15; ++y) {
for(x = 0; x < 8; ++x) {
colorptr1[x] = colorptr2[x] = flamecolors[flameptr[x]];
}
colorptr1 += 0x28;
colorptr2 += 0x28;
flameptr += 8;
}
}
}
/*---------------------------------------------------------------------------*/
PROCESS_THREAD(ssfire_process, ev, data)
{
PROCESS_POLLHANDLER(pollhandler());
PROCESS_BEGIN();
ctk_mode_set(CTK_MODE_SCREENSAVER);
ctk_mouse_hide();
fire_init();
PROCESS_WAIT_EVENT_UNTIL(ev == ctk_signal_screensaver_stop ||
ev == PROCESS_EVENT_EXIT);
ctk_draw_init();
ctk_desktop_redraw(NULL);
PROCESS_END();
}
/*---------------------------------------------------------------------------*/