diff options
| -rw-r--r-- | alloc.c | 44 | ||||
| -rw-r--r-- | bts.c | 315 | ||||
| -rw-r--r-- | btsd.c | 98 | ||||
| -rw-r--r-- | dat.h | 31 | ||||
| -rw-r--r-- | fns.h | 8 | ||||
| -rw-r--r-- | mkfile | 24 | ||||
| -rw-r--r-- | readme.md | 0 |
7 files changed, 520 insertions, 0 deletions
@@ -0,0 +1,44 @@ +#include <u.h> +#include <libc.h> +#include <draw.h> + +void* +emalloc(ulong n) +{ + void *p; + + p = malloc(n); + if(p == nil) + sysfatal("malloc: %r"); + setmalloctag(p, getcallerpc(&n)); + return p; +} + +void* +erealloc(void *p, ulong n) +{ + void *np; + + np = realloc(p, n); + if(np == nil){ + if(n == 0) + return nil; + sysfatal("realloc: %r"); + } + if(p == nil) + setmalloctag(np, getcallerpc(&p)); + else + setrealloctag(np, getcallerpc(&p)); + return np; +} + +Image* +eallocimage(Display *d, Rectangle r, ulong chan, int repl, ulong col) +{ + Image *i; + + i = allocimage(d, r, chan, repl, col); + if(i == nil) + sysfatal("allocimage: %r"); + return i; +} @@ -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(); +} @@ -0,0 +1,98 @@ +#include <u.h> +#include <libc.h> +#include <bio.h> +#include <thread.h> +#include <draw.h> +#include <mouse.h> +#include <keyboard.h> +#include <geometry.h> +#include "dat.h" +#include "fns.h" + +int debug; + + +void +serveproc(void *arg) +{ + Biobuf *bin, *bout; + NetConnInfo *nci; + char *line; + int fd, linelen; + + fd = *(int*)arg; + nci = getnetconninfo(nil, fd); + if(nci == nil) + sysfatal("getnetconninfo: %r"); + threadsetname("serveproc %s", nci->raddr); + freenetconninfo(nci); + + bin = Bfdopen(fd, OREAD); + bout = Bfdopen(fd, OWRITE); + if(bin == nil || bout == nil) + sysfatal("Bfdopen: %r"); + + while((line = Brdline(bin, '\n')) != nil){ + linelen = Blinelen(bin); + Bwrite(bout, line, linelen); + Bflush(bout); + print("%.*s", linelen, line); + } + + Bterm(bin); + Bterm(bout); +} + +void +listenthread(void *arg) +{ + char *addr, adir[40], ldir[40]; + int acfd, lcfd, dfd; + + addr = arg; + + acfd = announce(addr, adir); + if(acfd < 0) + sysfatal("announce: %r"); + + if(debug) + fprint(2, "listening on %s\n", addr); + + while((lcfd = listen(adir, ldir)) >= 0){ + if((dfd = accept(lcfd, ldir)) >= 0){ + proccreate(serveproc, &dfd, mainstacksize); + close(dfd); + } + close(lcfd); + } + + threadexitsall("listen: %r"); +} + +void +usage(void) +{ + fprint(2, "usage: %s [-d] [-a addr]\n", argv0); + threadexitsall("usage"); +} + +void +threadmain(int argc, char *argv[]) +{ + char *addr; + + addr = "tcp!*!3047"; + ARGBEGIN{ + case 'd': + debug++; + break; + case 'a': + addr = EARGF(usage()); + break; + }ARGEND + if(argc != 0) + usage(); + + threadcreate(listenthread, addr, mainstacksize); + yield(); +} @@ -0,0 +1,31 @@ +enum { + Twater, + Tship, + Thit, + Tmiss, + NTILES, + + Boardmargin = 50, + TW = 16, + TH = TW, + MAPW = 17, + MAPH = MAPW, + SCRW = Boardmargin+MAPW*TW+Boardmargin, + SCRH = Boardmargin+MAPH*TH+TH+MAPH*TH+Boardmargin, +}; + +typedef struct Input Input; +typedef struct Board Board; + +struct Input +{ + Mousectl *mc; + Keyboardctl *kc; +}; + +struct Board +{ + RFrame; + char map[17][17]; + Rectangle bbox; +}; @@ -0,0 +1,8 @@ +#define HZ2MS(hz) (1000/(hz)) + +/* + * alloc + */ +void *emalloc(ulong); +void *erealloc(void*, ulong); +Image *eallocimage(Display*, Rectangle, ulong, int, ulong); @@ -0,0 +1,24 @@ +</$objtype/mkfile + +MAN=/sys/man/1 +BIN=/$objtype/bin/games +TARG=\ + bts\ + btsd\ + +OFILES=\ + alloc.$O\ + +HFILES=\ + dat.h\ + fns.h\ + +</sys/src/cmd/mkmany + +install:V: man + +uninstall:V: + for(i in $TARG){ + rm -f $BIN/$i + rm -f $MAN/$i + } diff --git a/readme.md b/readme.md new file mode 100644 index 0000000..e69de29 --- /dev/null +++ b/readme.md |