From 7b76e7467822316b699847cbd61a0ecb985882d3 Mon Sep 17 00:00:00 2001 From: rodri Date: Tue, 8 Aug 2023 08:35:17 +0000 Subject: initial commit. --- bts.c | 315 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 315 insertions(+) create mode 100644 bts.c (limited to 'bts.c') 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 +#include +#include +#include +#include +#include +#include +#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(); +} -- cgit v1.2.3