initial commit.

1 files changed, 315 insertions, 0 deletions

diff --git a/bts.c b/bts.c
new file mode 100644
index 0000000..b777819
--- /dev/null
+++ b/bts.c
@@ -0,0 +1,315 @@
+#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();
+}