contiki/backyard/platform/c64/ctk/ctk-hires-service.c

926 lines
24 KiB
C

/*
* Copyright (c) 2002, 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 "ctk" console GUI toolkit for cc65
*
* $Id: ctk-hires-service.c,v 1.1 2007/05/23 23:11:27 oliverschmidt Exp $
*
*/
#include "contiki-version.h"
#include "ctk/ctk.h"
#include "ctk/ctk-draw.h"
#include "ctk/ctk-draw-service.h"
#include "ctk-hires.h"
#include "ctk-hires-asm.h"
#include "ctk-hires-theme.h"
#include <string.h>
#ifndef NULL
#define NULL (void *)0
#endif /* NULL */
#define SCREEN_HEIGHT 25
#define SCREEN_WIDTH 40
#define SCREENADDR 0xdc00
#define HIRESADDR 0xe000
static unsigned char lineptr;
unsigned char ctk_hires_cursx, ctk_hires_cursy;
unsigned char ctk_hires_reversed;
unsigned char ctk_hires_color;
unsigned char ctk_hires_underline;
/*static unsigned char cchar;
static unsigned char tmp01;
static unsigned char tmph, tmpl, tmpborder;
static unsigned char *tmpptr;*/
static unsigned char x, y, i;
/*static unsigned char h;*/
static unsigned char wfocus;
static unsigned char x1, y1, x2, y2;
struct ctk_hires_windowparams ctk_hires_windowparams;
unsigned char *ctk_hires_bitmapptr;
/*unsigned char ctk_draw_windowborder_height = 1;
unsigned char ctk_draw_windowborder_width = 1;
unsigned char ctk_draw_windowtitle_height = 1;*/
static void s_ctk_draw_clear(unsigned char y1, unsigned char y2);
/*-----------------------------------------------------------------------------------*/
/* Tables. */
unsigned short ctk_hires_yscreenaddr[25] =
{0 * SCREEN_WIDTH + SCREENADDR, 1 * SCREEN_WIDTH + SCREENADDR,
2 * SCREEN_WIDTH + SCREENADDR, 3 * SCREEN_WIDTH + SCREENADDR,
4 * SCREEN_WIDTH + SCREENADDR, 5 * SCREEN_WIDTH + SCREENADDR,
6 * SCREEN_WIDTH + SCREENADDR, 7 * SCREEN_WIDTH + SCREENADDR,
8 * SCREEN_WIDTH + SCREENADDR, 9 * SCREEN_WIDTH + SCREENADDR,
10 * SCREEN_WIDTH + SCREENADDR, 11 * SCREEN_WIDTH + SCREENADDR,
12 * SCREEN_WIDTH + SCREENADDR, 13 * SCREEN_WIDTH + SCREENADDR,
14 * SCREEN_WIDTH + SCREENADDR, 15 * SCREEN_WIDTH + SCREENADDR,
16 * SCREEN_WIDTH + SCREENADDR, 17 * SCREEN_WIDTH + SCREENADDR,
18 * SCREEN_WIDTH + SCREENADDR, 19 * SCREEN_WIDTH + SCREENADDR,
20 * SCREEN_WIDTH + SCREENADDR, 21 * SCREEN_WIDTH + SCREENADDR,
22 * SCREEN_WIDTH + SCREENADDR, 23 * SCREEN_WIDTH + SCREENADDR,
24 * SCREEN_WIDTH + SCREENADDR};
unsigned short ctk_hires_yhiresaddr[25] =
{0 * 320 + HIRESADDR, 1 * 320 + HIRESADDR,
2 * 320 + HIRESADDR, 3 * 320 + HIRESADDR,
4 * 320 + HIRESADDR, 5 * 320 + HIRESADDR,
6 * 320 + HIRESADDR, 7 * 320 + HIRESADDR,
8 * 320 + HIRESADDR, 9 * 320 + HIRESADDR,
10 * 320 + HIRESADDR, 11 * 320 + HIRESADDR,
12 * 320 + HIRESADDR, 13 * 320 + HIRESADDR,
14 * 320 + HIRESADDR, 15 * 320 + HIRESADDR,
16 * 320 + HIRESADDR, 17 * 320 + HIRESADDR,
18 * 320 + HIRESADDR, 19 * 320 + HIRESADDR,
20 * 320 + HIRESADDR, 21 * 320 + HIRESADDR,
22 * 320 + HIRESADDR, 23 * 320 + HIRESADDR,
24 * 320 + HIRESADDR};
extern struct ctk_hires_theme ctk_hires_theme;
struct ctk_hires_theme *ctk_hires_theme_ptr = &ctk_hires_theme;
/*-----------------------------------------------------------------------------------*/
#define hires_wherex() ctk_hires_cursx
#define hires_revers(c) ctk_hires_reversed = c
#define hires_color(c) ctk_hires_color = c
#define hires_underline(c) ctk_hires_underline = c
/*-----------------------------------------------------------------------------------*/
static void __fastcall__
hires_cvline(unsigned char length)
{
static unsigned char i;
for(i = 0; i < length; ++i) {
ctk_hires_cputc('|');
--ctk_hires_cursx;
++ctk_hires_cursy;
}
}
/*-----------------------------------------------------------------------------------*/
static void __fastcall__
hires_gotoxy(unsigned char x, unsigned char y)
{
ctk_hires_cursx = x;
ctk_hires_cursy = y;
}
/*-----------------------------------------------------------------------------------*/
static void __fastcall__
hires_cclearxy(unsigned char x, unsigned char y, unsigned char length)
{
hires_gotoxy(x, y);
ctk_hires_cclear(length);
}
/*-----------------------------------------------------------------------------------*/
static void __fastcall__
hires_chlinexy(unsigned char x, unsigned char y, unsigned char length)
{
hires_gotoxy(x, y);
ctk_hires_chline(length);
}
/*-----------------------------------------------------------------------------------*/
static void __fastcall__
hires_cvlinexy(unsigned char x, unsigned char y, unsigned char length)
{
hires_gotoxy(x, y);
hires_cvline(length);
}
/*-----------------------------------------------------------------------------------*/
static void __fastcall__
hires_cputcxy(unsigned char x, unsigned char y, char c)
{
hires_gotoxy(x, y);
ctk_hires_cputc(c);
}
/*-----------------------------------------------------------------------------------*/
#pragma optimize(push, off)
static void
clear_line(unsigned char line)
{
lineptr = line;
asm("lda %v", lineptr);
asm("asl");
asm("tax");
asm("lda %v,x", ctk_hires_yhiresaddr);
asm("sta ptr2");
asm("lda %v+1,x", ctk_hires_yhiresaddr);
asm("sta ptr2+1");
asm("lda %v,x", ctk_hires_yscreenaddr);
asm("sta ptr1");
asm("lda %v+1,x", ctk_hires_yscreenaddr);
asm("sta ptr1+1");
asm("sei");
asm("lda $01");
asm("pha");
asm("lda #$30");
asm("sta $01");
asm("ldy #39");
asm("ldx %v", lineptr);
asm("lda %v+%w,x", ctk_hires_theme,
offsetof(struct ctk_hires_theme, backgroundpatterncolors));
asm("clearlineloop1:");
asm("sta (ptr1),y");
asm("dey");
asm("bpl clearlineloop1");
asm("pla");
asm("sta $01");
asm("cli");
asm("lda %v", lineptr);
/* asm("and #7");*/
asm("asl");
asm("asl");
asm("asl");
asm("tax");
asm("ldy #0");
asm("clearlineloop2:");
asm("lda %v+%w+0,x", ctk_hires_theme,
offsetof(struct ctk_hires_theme, backgroundpattern));
asm("sta (ptr2),y");
asm("iny");
asm("lda %v+%w+1,x", ctk_hires_theme,
offsetof(struct ctk_hires_theme, backgroundpattern));
asm("sta (ptr2),y");
asm("iny");
asm("lda %v+%w+2,x", ctk_hires_theme,
offsetof(struct ctk_hires_theme, backgroundpattern));
asm("sta (ptr2),y");
asm("iny");
asm("lda %v+%w+3,x", ctk_hires_theme,
offsetof(struct ctk_hires_theme, backgroundpattern));
asm("sta (ptr2),y");
asm("iny");
asm("lda %v+%w+4,x", ctk_hires_theme,
offsetof(struct ctk_hires_theme, backgroundpattern));
asm("sta (ptr2),y");
asm("iny");
asm("lda %v+%w+5,x", ctk_hires_theme,
offsetof(struct ctk_hires_theme, backgroundpattern));
asm("sta (ptr2),y");
asm("iny");
asm("lda %v+%w+6,x", ctk_hires_theme,
offsetof(struct ctk_hires_theme, backgroundpattern));
asm("sta (ptr2),y");
asm("iny");
asm("lda %v+%w+7,x", ctk_hires_theme,
offsetof(struct ctk_hires_theme, backgroundpattern));
asm("sta (ptr2),y");
asm("iny");
asm("bne clearlineloop2");
asm("inc ptr2+1");
asm("ldy #0");
asm("clearlineloop3:");
asm("lda %v+%w+0,x", ctk_hires_theme,
offsetof(struct ctk_hires_theme, backgroundpattern));
asm("sta (ptr2),y");
asm("iny");
asm("lda %v+%w+1,x", ctk_hires_theme,
offsetof(struct ctk_hires_theme, backgroundpattern));
asm("sta (ptr2),y");
asm("iny");
asm("lda %v+%w+2,x", ctk_hires_theme,
offsetof(struct ctk_hires_theme, backgroundpattern));
asm("sta (ptr2),y");
asm("iny");
asm("lda %v+%w+3,x", ctk_hires_theme,
offsetof(struct ctk_hires_theme, backgroundpattern));
asm("sta (ptr2),y");
asm("iny");
asm("lda %v+%w+4,x", ctk_hires_theme,
offsetof(struct ctk_hires_theme, backgroundpattern));
asm("sta (ptr2),y");
asm("iny");
asm("lda %v+%w+5,x", ctk_hires_theme,
offsetof(struct ctk_hires_theme, backgroundpattern));
asm("sta (ptr2),y");
asm("iny");
asm("lda %v+%w+6,x", ctk_hires_theme,
offsetof(struct ctk_hires_theme, backgroundpattern));
asm("sta (ptr2),y");
asm("iny");
asm("lda %v+%w+7,x", ctk_hires_theme,
offsetof(struct ctk_hires_theme, backgroundpattern));
asm("sta (ptr2),y");
asm("iny");
asm("cpy #$40");
asm("bne clearlineloop3");
if(lineptr == 24) {
hires_color(ctk_hires_theme.backgroundpatterncolors[24]);
hires_gotoxy(0, 24);
ctk_hires_cputsn(CONTIKI_VERSION_STRING,
sizeof(CONTIKI_VERSION_STRING) - 1);
}
}
#pragma optimize(pop)
/*-----------------------------------------------------------------------------------*/
#pragma optimize(push, off)
static void
nmi2(void)
{
asm("pla");
asm("sta $01");
asm("pla");
asm("rti");
}
#pragma optimize(pop)
/*-----------------------------------------------------------------------------------*/
#pragma optimize(push, off)
static void
nmi(void)
{
asm("sei");
asm("pha");
asm("inc $d020");
asm("lda $01");
asm("pha");
asm("lda #$36");
asm("sta $01");
asm("lda #>_nmi2");
asm("pha");
asm("lda #<_nmi2");
asm("pha");
asm("php");
asm("jmp ($0318)");
nmi2();
}
#pragma optimize(pop)
/*-----------------------------------------------------------------------------------*/
#pragma optimize(push, off)
static void
setup_nmi(void)
{
asm("lda #<_nmi");
asm("sta $fffa");
asm("lda #>_nmi");
asm("sta $fffb");
return;
nmi();
}
#pragma optimize(pop)
/*-----------------------------------------------------------------------------------*/
#pragma optimize(push, off)
static void
s_ctk_draw_init(void)
{
unsigned char i, *ptr1, *ptr2;
setup_nmi();
/* Turn on hires mode, bank 0 ($c000 - $ffff) and $e000/$c000 for
hires/colors. */
VIC.ctrl1 = 0x3b; /* $D011 */
VIC.addr = 0x78; /* $D018 */
VIC.ctrl2 = 0xc8; /* $D016 */
CIA2.pra = 0x00; /* $DD00 */
VIC.bordercolor = ctk_hires_theme.bordercolor; /* $D020 */
VIC.bgcolor0 = ctk_hires_theme.screencolor; /* $D021 */
/* Fill color memory. */
asm("sei");
asm("lda $01");
asm("pha");
asm("lda #$30");
asm("sta $01");
asm("ldx #0");
asm("lda #$c0");
asm("fillcolorloop:");
asm("sta $dc00,x");
asm("sta $dd00,x");
asm("sta $de00,x");
asm("sta $df00,x");
asm("inx");
asm("bne fillcolorloop");
/* Setup sprite pointers */
asm("ldx #$fd");
asm("stx $dff8");
asm("inx");
asm("stx $dff9");
asm("pla");
asm("sta $01");
asm("cli");
/* Fill hires memory with 0. */
asm("lda $fd");
asm("pha");
asm("lda $fe");
asm("pha");
asm("lda #0");
asm("sta $fd");
asm("lda #$e0");
asm("sta $fe");
asm("ldy #0");
asm("lda #0");
asm("clrscrnloop:");
asm("lda #$55");
asm("sta ($fd),y");
asm("iny");
asm("lda #$aa");
asm("sta ($fd),y");
asm("iny");
asm("bne clrscrnloop");
asm("inc $fe");
asm("lda $fe");
asm("cmp #$ff");
asm("bne clrscrnloop");
asm("ldy #$00");
asm("clrscrnloop2:");
asm("lda #$55");
asm("sta $ff00,y");
asm("iny");
asm("lda #$aa");
asm("sta $ff00,y");
asm("iny");
asm("cpy #$40");
asm("bne clrscrnloop2");
asm("pla");
asm("sta $fe");
asm("pla");
asm("sta $fd");
s_ctk_draw_clear(0, SCREEN_HEIGHT);
/* Setup mouse pointer sprite. */
asm("lda %v+%w", ctk_hires_theme,
offsetof(struct ctk_hires_theme, pointermaskcolor));
asm("sta $d027");
asm("lda %v+%w", ctk_hires_theme,
offsetof(struct ctk_hires_theme, pointercolor));
asm("sta $d028");
ptr1 = ctk_hires_theme.pointer;
ptr2 = (unsigned char *)0xff40;
for(i = 0; i < 0x80; ++i) {
*ptr2++ = *ptr1++;
}
return;
}
#pragma optimize(pop)
/*-----------------------------------------------------------------------------------*/
static void __fastcall__
draw_widget(register struct ctk_widget *w,
unsigned char x, unsigned char y,
unsigned char clipy1, unsigned char clipy2,
unsigned char afocus)
{
static unsigned char xpos, ypos, xscroll;
static unsigned char i;
static char c;
static unsigned char len;
static unsigned char tmp;
static unsigned char yclipped;
static unsigned char focus;
char *text;
xpos = x + w->x;
ypos = y + w->y;
yclipped = 0;
if(ypos >= clipy1 && ypos < clipy2) {
yclipped = 1;
}
focus = afocus;
switch(w->type) {
case CTK_WIDGET_SEPARATOR:
hires_color(ctk_hires_theme.separatorcolors[focus]);
if(yclipped) {
hires_chlinexy(xpos, ypos, w->w);
}
break;
case CTK_WIDGET_LABEL:
hires_color(ctk_hires_theme.labelcolors[focus]);
text = w->widget.label.text;
for(i = 0; i < w->h; ++i) {
if(ypos >= clipy1 && ypos < clipy2) {
hires_gotoxy(xpos, ypos);
ctk_hires_cputsn(text, w->w);
tmp = w->w - (hires_wherex() - xpos);
if(tmp > 0) {
ctk_hires_cclear(tmp);
}
}
++ypos;
text += w->w;
}
break;
case CTK_WIDGET_BUTTON:
if(yclipped) {
hires_color(ctk_hires_theme.buttonleftcolors[focus]);
hires_gotoxy(xpos, ypos);
ctk_hires_draw_buttonleft();
hires_color(ctk_hires_theme.buttoncolors[focus]);
hires_gotoxy(xpos + 1, ypos);
ctk_hires_cputsn(w->widget.button.text, w->w);
hires_color(ctk_hires_theme.buttonrightcolors[focus]);
ctk_hires_draw_buttonright();
}
break;
case CTK_WIDGET_HYPERLINK:
if(yclipped) {
hires_color(ctk_hires_theme.hyperlinkcolors[focus]);
hires_underline(1);
hires_gotoxy(xpos, ypos);
ctk_hires_cputsn(w->widget.button.text, w->w);
hires_underline(0);
}
break;
case CTK_WIDGET_TEXTENTRY:
if(yclipped) {
hires_color(ctk_hires_theme.textentrycolors[focus]);
if((focus & CTK_FOCUS_WIDGET) &&
w->widget.textentry.state != CTK_TEXTENTRY_EDIT) {
hires_revers(1);
} else {
hires_revers(0);
}
xscroll = 0;
tmp = w->w - 1;
if(w->widget.textentry.xpos >= tmp) {
xscroll = w->widget.textentry.xpos - tmp;
}
text = w->widget.textentry.text;
if(w->widget.textentry.state == CTK_TEXTENTRY_EDIT) {
hires_revers(0);
hires_cputcxy(xpos, ypos, '>');
text += xscroll;
for(i = 0; i < w->w; ++i) {
c = *text;
if(i == w->widget.textentry.xpos - xscroll) {
hires_revers(1);
} else {
hires_revers(0);
}
if(c == 0) {
ctk_hires_cputc(' ');
} else {
ctk_hires_cputc(c);
}
hires_revers(0);
++text;
}
ctk_hires_cputc('<');
} else {
hires_cputcxy(xpos, ypos, '|');
/* hires_gotoxy(xpos + 1, ypos); */
ctk_hires_cputsn(text, w->w);
i = hires_wherex();
tmp = i - xpos - 1;
if(tmp < w->w) {
ctk_hires_cclear(w->w - tmp);
}
ctk_hires_cputc('|');
}
}
hires_revers(0);
break;
case CTK_WIDGET_ICON:
if(yclipped) {
hires_color(ctk_hires_theme.iconcolors[focus]);
x = xpos;
len = strlen(w->widget.icon.title);
if(x + len >= SCREEN_WIDTH) {
x = SCREEN_WIDTH - len;
}
tmp = ypos + 3;
if(tmp < clipy2) {
hires_gotoxy(x, tmp);
ctk_hires_cputsn(w->widget.icon.title, len);
}
hires_gotoxy(xpos, ypos);
if(w->widget.icon.bitmap != NULL) {
ctk_hires_bitmapptr = w->widget.icon.bitmap;
for(i = 0; i < 3; ++i) {
if(ypos >= clipy1 && ypos < clipy2) {
hires_gotoxy(xpos, ypos);
ctk_hires_draw_bitmapline(3);
}
ctk_hires_bitmapptr += 3 * 8;
++ypos;
}
/* draw_bitmap_icon(w->widget.icon.bitmap);*/
}
}
break;
case CTK_WIDGET_BITMAP:
hires_color(ctk_hires_theme.bitmapcolors[focus]);
ctk_hires_bitmapptr = w->widget.bitmap.bitmap;
for(i = 0; i < w->h; ++i) {
if(ypos >= clipy1 && ypos < clipy2) {
hires_gotoxy(xpos, ypos);
ctk_hires_draw_bitmapline(w->w);
}
ctk_hires_bitmapptr += w->w * 8;
++ypos;
}
break;
default:
break;
}
}
/*-----------------------------------------------------------------------------------*/
static void
s_ctk_draw_widget(struct ctk_widget *w,
unsigned char focus,
unsigned char clipy1,
unsigned char clipy2)
{
struct ctk_window *win = w->window;
unsigned char posx, posy;
posx = win->x + 1;
posy = win->y + 2;
if(w == win->focused) {
focus |= CTK_FOCUS_WIDGET;
}
draw_widget(w, posx, posy,
clipy1, clipy2,
focus);
}
/*-----------------------------------------------------------------------------------*/
static void
s_ctk_draw_clear_window(register struct ctk_window *window,
unsigned char focus,
unsigned char clipy1,
unsigned char clipy2)
{
static unsigned char h;
hires_color(ctk_hires_theme.windowcolors[focus]);
h = window->y + 2 + window->h;
/* Clear window contents. */
for(i = window->y + 2; i < h; ++i) {
if(i >= clipy1 && i <= clipy2) {
hires_cclearxy(window->x + 1, i, window->w);
}
}
}
/*-----------------------------------------------------------------------------------*/
static void
s_ctk_draw_window(register struct ctk_window *window,
unsigned char focus,
unsigned char clipy1, unsigned char clipy2,
unsigned char draw_borders)
{
register struct ctk_widget *w;
x = window->x;
y = window->y + 1;
++clipy2;
if(clipy2 <= y) {
return;
}
/* hires_color(ctk_hires_theme.windowcolors[focus+1]);*/
x1 = x + 1;
y1 = y + 1;
/* x2 = x1 + window->w;
y2 = y1 + window->h;*/
hires_gotoxy(x, y);
ctk_hires_windowparams.w = window->w;
ctk_hires_windowparams.h = window->h;
if(clipy1 < y) {
ctk_hires_windowparams.clipy1 = 0;
} else {
ctk_hires_windowparams.clipy1 = clipy1 - y;
}
ctk_hires_windowparams.clipy2 = clipy2 - y;
ctk_hires_windowparams.color1 = ctk_hires_theme.windowcolors[focus+1];
ctk_hires_windowparams.color2 = ctk_hires_theme.windowcolors[focus];
ctk_hires_windowparams.title = window->title;
ctk_hires_windowparams.titlelen = window->titlelen;
if(ctk_hires_windowparams.clipy1 < ctk_hires_windowparams.clipy2 &&
ctk_hires_windowparams.clipy2 > 0) {
ctk_hires_draw_windowborders();
}
/* Draw inactive widgets. */
for(w = window->inactive; w != NULL; w = w->next) {
draw_widget(w, x1, y1,
clipy1, clipy2,
focus);
}
/* Draw active widgets. */
for(w = window->active; w != NULL; w = w->next) {
wfocus = focus;
if(w == window->focused) {
wfocus |= CTK_FOCUS_WIDGET;
}
draw_widget(w, x1, y1,
clipy1, clipy2,
wfocus);
}
}
/*-----------------------------------------------------------------------------------*/
static void
s_ctk_draw_dialog(register struct ctk_window *dialog)
{
register struct ctk_widget *w;
hires_color(ctk_hires_theme.windowcolors[CTK_FOCUS_DIALOG]);
/* x = (SCREEN_WIDTH - dialog->w) / 2;
y = (SCREEN_HEIGHT - 1 - dialog->h) / 2; */
x = dialog->x;
y = dialog->y + 1;
x1 = x + 1;
y1 = y + 1;
x2 = x1 + dialog->w;
y2 = y1 + dialog->h;
/* Draw dialog frame. */
hires_cvlinexy(x, y1, dialog->h);
hires_cvlinexy(x2, y1, dialog->h);
hires_chlinexy(x1, y, dialog->w);
hires_chlinexy(x1, y2, dialog->w);
hires_cputcxy(x, y, CH_ULCORNER);
hires_cputcxy(x, y2, CH_LLCORNER);
hires_cputcxy(x2, y, CH_URCORNER);
hires_cputcxy(x2, y2, CH_LRCORNER);
/* Clear window contents. */
for(i = y1; i < y2; ++i) {
hires_cclearxy(x1, i, dialog->w);
}
/* Draw inactive widgets. */
for(w = dialog->inactive; w != NULL; w = w->next) {
draw_widget(w, x1, y1,
0, SCREEN_HEIGHT, CTK_FOCUS_DIALOG);
}
/* Draw active widgets. */
for(w = dialog->active; w != NULL; w = w->next) {
wfocus = CTK_FOCUS_DIALOG;
if(w == dialog->focused) {
wfocus |= CTK_FOCUS_WIDGET;
}
draw_widget(w, x1, y1,
0, SCREEN_HEIGHT, wfocus);
}
}
/*-----------------------------------------------------------------------------------*/
static void
s_ctk_draw_clear(unsigned char y1, unsigned char y2)
{
for(i = y1; i < y2; ++i) {
clear_line(i);
}
}
/*-----------------------------------------------------------------------------------*/
static void
draw_menu(register struct ctk_menu *m)
{
static unsigned char x, x2, y;
hires_color(ctk_hires_theme.openmenucolor);
x = hires_wherex();
ctk_hires_cputsn(m->title, m->titlelen);
ctk_hires_cputc(' ');
x2 = hires_wherex();
if(x + CTK_CONF_MENUWIDTH > SCREEN_WIDTH) {
x = SCREEN_WIDTH - CTK_CONF_MENUWIDTH;
}
for(y = 0; y < m->nitems; ++y) {
if(y == m->active) {
hires_color(ctk_hires_theme.activemenucolor);
} else {
hires_color(ctk_hires_theme.menucolor);
}
hires_gotoxy(x, y + 1);
if(m->items[y].title[0] == '-') {
ctk_hires_chline(CTK_CONF_MENUWIDTH);
} else {
ctk_hires_cputsn(m->items[y].title,
strlen(m->items[y].title));
}
ctk_hires_cclear(x + CTK_CONF_MENUWIDTH - hires_wherex());
hires_revers(0);
}
hires_gotoxy(x2, 0);
hires_color(ctk_hires_theme.menucolor);
}
/*-----------------------------------------------------------------------------------*/
static void
s_ctk_draw_menus(struct ctk_menus *menus)
{
struct ctk_menu *m;
/* Draw menus */
hires_color(ctk_hires_theme.menucolor);
hires_gotoxy(0, 0);
hires_revers(0);
ctk_hires_cputc(' ');
for(m = menus->menus->next; m != NULL; m = m->next) {
if(m != menus->open) {
ctk_hires_cputsn(m->title, m->titlelen);
ctk_hires_cputc(' ');
} else {
draw_menu(m);
}
}
ctk_hires_cclear(SCREEN_WIDTH - hires_wherex() -
strlen(menus->desktopmenu->title) - 1);
/* Draw desktopmenu */
if(menus->desktopmenu != menus->open) {
ctk_hires_cputsn(menus->desktopmenu->title,
menus->desktopmenu->titlelen);
ctk_hires_cputc(' ');
} else {
draw_menu(menus->desktopmenu);
}
}
/*-----------------------------------------------------------------------------------*/
static unsigned char
s_ctk_draw_height(void)
{
return SCREEN_HEIGHT;
}
/*-----------------------------------------------------------------------------------*/
static unsigned char
s_ctk_draw_width(void)
{
return SCREEN_WIDTH;
}
/*-----------------------------------------------------------------------------------*/
static unsigned short
s_ctk_mouse_xtoc(unsigned short x)
{
return x / 8;
}
/*-----------------------------------------------------------------------------------*/
static unsigned short
s_ctk_mouse_ytoc(unsigned short y)
{
return y / 8;
}
/*-----------------------------------------------------------------------------------*/
SERVICE(ctk_hires_service, ctk_draw_service,
{ 1,
1,
1,
s_ctk_draw_init,
s_ctk_draw_clear,
s_ctk_draw_clear_window,
s_ctk_draw_window,
s_ctk_draw_dialog,
s_ctk_draw_widget,
s_ctk_draw_menus,
s_ctk_draw_width,
s_ctk_draw_height,
s_ctk_mouse_xtoc,
s_ctk_mouse_ytoc });
/*--------------------------------------------------------------------------*/
PROCESS(ctk_hires_service_process, "CTK hires service");
PROCESS_THREAD(ctk_hires_service_process, ev, data) {
PROCESS_BEGIN();
s_ctk_draw_init();
ctk_restore();
SERVICE_REGISTER(ctk_hires_service);
while(ev != PROCESS_EVENT_SERVICE_REMOVED &&
ev != PROCESS_EVENT_EXIT) {
PROCESS_WAIT_EVENT();
}
SERVICE_REMOVE(ctk_hires_service);
VIC.ctrl1 = 0x1b; /* $D011 */
VIC.addr = 0x17; /* $D018 */
VIC.ctrl2 = 0xc8; /* $D016 */
CIA2.pra = 0x03; /* $DD00 */
PROCESS_END();
}
/*--------------------------------------------------------------------------*/