ref: 7b76e7467822316b699847cbd61a0ecb985882d3
dir: /bts.c/
#include <u.h>
#include <libc.h>
#include <thread.h>
#include <draw.h>
#include <mouse.h>
#include <keyboard.h>
#include <geometry.h>
#include "dat.h"
#include "fns.h"
int debug;
char deffont[] = "/lib/font/bit/pelm/unicode.9.font";
char winspec[32];
Channel *drawchan;
RFrame worldrf;
Image *screenb;
Image *tiletab[NTILES];
Board alienboard;
Board localboard;
Point
fromworld(Point2 p)
{
p = invrframexform(p, worldrf);
return Pt(p.x,p.y);
}
Point2
toworld(Point p)
{
return rframexform(Pt2(p.x,p.y,1), worldrf);
}
Point
fromboard(Board *b, Point2 p)
{
p = invrframexform(invrframexform(p, *b), worldrf);
return Pt(p.x,p.y);
}
Point2
toboard(Board *b, Point p)
{
return rframexform(rframexform(Pt2(p.x,p.y,1), worldrf), *b);
}
Image *
gettileimage(int type)
{
if(type < 0 || type > nelem(tiletab))
return nil;
return tiletab[type];
}
void
settile(Board *b, Point2 cell, int type)
{
Point p;
p.x = cell.x;
p.y = cell.y;
b->map[p.x][p.y] = type;
}
void
drawtile(Image *dst, Board *b, Point2 cell, int type)
{
Point p;
Image *ti;
p = fromboard(b, cell);
ti = gettileimage(type);
if(ti == nil)
return;
draw(dst, Rpt(p, addpt(p, Pt(TW,TH))), ti, nil, ZP);
}
void
drawboard(Image *dst, Board *b)
{
int i, j;
for(i = 0; i < MAPW; i++)
for(j = 0; j < MAPH; j++)
drawtile(dst, b, Pt2(i,j,1), b->map[i][j]);
}
void
redraw(void)
{
lockdisplay(display);
draw(screenb, screenb->r, display->black, nil, ZP);
drawboard(screenb, &alienboard);
drawboard(screenb, &localboard);
draw(screen, screen->r, screenb, nil, ZP);
flushimage(display, 1);
unlockdisplay(display);
}
void
resize(void)
{
lockdisplay(display);
if(getwindow(display, Refnone) < 0)
sysfatal("resize failed");
unlockdisplay(display);
freeimage(screenb);
screenb = eallocimage(display, rectsubpt(screen->r, screen->r.min), screen->chan, 0, DNofill);
send(drawchan, nil);
}
void
inittiles(void)
{
Image *brush;
int i, x, y;
Point pts[2];
for(i = 0; i < nelem(tiletab); i++){
tiletab[i] = eallocimage(display, Rect(0,0,TW,TH), screen->chan, 0, DNofill);
switch(i){
case Twater:
brush = eallocimage(display, Rect(0,0,1,1), screen->chan, 1, DPalegreyblue);
draw(tiletab[i], tiletab[i]->r, brush, nil, ZP);
freeimage(brush);
brush = eallocimage(display, Rect(0,0,1,1), screen->chan, 1, DPalebluegreen);
for(pts[0] = ZP, x = 0; x < TW; x++){
y = sin(x)*TH/2;
pts[1] = Pt(x,y+TH/2);
line(tiletab[i], pts[0], pts[1], Endsquare, Endsquare, 0, brush, ZP);
pts[0] = pts[1];
}
freeimage(brush);
break;
case Tship:
brush = eallocimage(display, Rect(0,0,1,1), screen->chan, 1, 0x333333FF);
draw(tiletab[i], tiletab[i]->r, brush, nil, ZP);
freeimage(brush);
brush = eallocimage(display, Rect(0,0,1,1), screen->chan, 1, DBlack);
fillellipse(tiletab[i], Pt(TW/2,TH/2), 2, 2, brush, ZP);
freeimage(brush);
break;
case Thit:
brush = eallocimage(display, Rect(0,0,1,1), screen->chan, 1, DRed);
draw(tiletab[i], tiletab[i]->r, brush, nil, ZP);
freeimage(brush);
brush = eallocimage(display, Rect(0,0,1,1), screen->chan, 1, DBlack);
pts[0] = Pt(TW/2-TW/4,TH/2-TH/4);
pts[1] = Pt(TW/2+TW/4,TH/2+TH/4);
line(tiletab[i], pts[0], pts[1], Endsquare, Endsquare, 1, brush, ZP);
pts[0].y += TH/2;
pts[1].y -= TH/2;
line(tiletab[i], pts[0], pts[1], Endsquare, Endsquare, 1, brush, ZP);
freeimage(brush);
break;
case Tmiss:
draw(tiletab[i], tiletab[i]->r, tiletab[Twater], nil, ZP);
brush = eallocimage(display, Rect(0,0,1,1), screen->chan, 1, DWhite);
ellipse(tiletab[i], Pt(TW/2,TH/2), 6, 6, 1, brush, ZP);
freeimage(brush);
break;
}
}
}
void
initboards(void)
{
memset(alienboard.map, Twater, MAPW*MAPH);
alienboard.p = Pt2(Boardmargin,Boardmargin,1);
memset(localboard.map, Twater, MAPW*MAPH);
localboard.p = addpt2(alienboard.p, Vec2(0,MAPH*TH+TH));
alienboard.bx = localboard.bx = Vec2(TW,0);
alienboard.by = localboard.by = Vec2(0,TH);
alienboard.bbox = Rpt(fromworld(alienboard.p), fromworld(addpt2(alienboard.p, Pt2(TW*MAPW,TH*MAPH,1))));
localboard.bbox = Rpt(fromworld(localboard.p), fromworld(addpt2(localboard.p, Pt2(TW*MAPW,TH*MAPH,1))));
}
void
mouse(Mousectl *mc)
{
mc->xy = subpt(mc->xy, screen->r.min);
switch(mc->buttons){
case 1:
if(ptinrect(mc->xy, alienboard.bbox))
settile(&alienboard, toboard(&alienboard, mc->xy), Tmiss);
if(ptinrect(mc->xy, localboard.bbox))
settile(&localboard, toboard(&localboard, mc->xy), Tmiss);
send(drawchan, nil);
break;
case 2:
break;
case 3:
break;
}
}
void
key(Rune r)
{
switch(r){
case Kdel:
case 'q':
threadexitsall(nil);
}
}
void
showproc(void *)
{
threadsetname("showproc");
while(recv(drawchan, nil) > 0)
redraw();
sysfatal("showproc died");
}
void
inputthread(void *arg)
{
Input *in;
Rune r;
Alt a[4];
in = arg;
a[0].op = CHANRCV; a[0].c = in->mc->c; a[0].v = &in->mc->Mouse;
a[1].op = CHANRCV; a[1].c = in->mc->resizec; a[1].v = nil;
a[2].op = CHANRCV; a[2].c = in->kc->c; a[2].v = &r;
a[3].op = CHANEND;
for(;;)
switch(alt(a)){
case 0:
mouse(in->mc);
break;
case 1:
resize();
break;
case 2:
key(r);
break;
}
}
void
usage(void)
{
fprint(2, "usage: %s [-d] addr\n", argv0);
threadexitsall("usage");
}
void
threadmain(int argc, char *argv[])
{
char *addr;
int fd;
Input in;
GEOMfmtinstall();
ARGBEGIN{
case 'd':
debug++;
break;
default: usage();
}ARGEND
if(argc != 1)
usage();
addr = netmkaddr(argv[0], "tcp", "3047");
if(debug)
fprint(2, "connecting to %s\n", addr);
fd = dial(addr, nil, nil, nil);
if(fd < 0)
sysfatal("dial: %r");
else if(debug)
fprint(2, "line established\n");
snprint(winspec, sizeof winspec, "-dx %d -dy %d", SCRW, SCRH);
if(newwindow(winspec) < 0)
sysfatal("newwindow: %r");
if(initdraw(nil, deffont, "bts") < 0)
sysfatal("initdraw: %r");
if((in.mc = initmouse(nil, screen)) == nil)
sysfatal("initmouse: %r");
if((in.kc = initkeyboard(nil)) == nil)
sysfatal("initkeyboard: %r");
display->locking = 1;
unlockdisplay(display);
screenb = eallocimage(display, rectsubpt(screen->r, screen->r.min), screen->chan, 0, DNofill);
worldrf.p = Pt2(0,0,1);
worldrf.bx = Vec2(1,0);
worldrf.by = Vec2(0,1);
inittiles();
initboards();
drawchan = chancreate(sizeof(void*), 0);
proccreate(showproc, nil, mainstacksize);
threadcreate(inputthread, &in, mainstacksize);
send(drawchan, nil);
yield();
}