123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395 |
- /*
- * This file is part of the UCB release of Plan 9. It is subject to the license
- * terms in the LICENSE file found in the top-level directory of this
- * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No
- * part of the UCB release of Plan 9, including this file, may be copied,
- * modified, propagated, or distributed except according to the terms contained
- * in the LICENSE file.
- */
- /* Copyright 1985 Massachusetts Institute of Technology */
- #include <u.h>
- #include <libc.h>
- #include <draw.h>
- #include <event.h>
- #define add addpt
- #define sub subpt
- int wind = 1;
- typedef enum{
- Odd=1,
- Nonzero=~0
- }Windrule;
- #include "catback.p"
- #include "eyes.p"
- #define CATWID 150 /* width of body bitmap */
- #define CATHGT 300 /* height of body bitmap */
- #define TAILWID 150 /* width of tail bitmap */
- #define TAILHGT 89 /* height of tail bitmap */
- #define MINULEN 27 /* length of minute hand */
- #define HOURLEN 15 /* length of hour hand */
- #define HANDWID 4 /* width of clock hands */
- #define UPDATE (1000/NTAIL) /* ms/update -- tail waves at roughly 1/2 hz */
- #define BLACK (~0)
- #define WHITE 0
- #define NTP 7
- Point tp[NTP]={ /* tail polygon */
- 0, 0,
- 0,76,
- 3,82,
- 10,84,
- 18,82,
- 21,76,
- 21,70,
- };
- #define NTAIL 16
- Image *eye[NTAIL+1];
- Image *tail[NTAIL+1];
- Image *cat; /* cat body */
- Image *eyes; /* eye background */
- Point toffs={ 74, -15 }; /* tail polygon offset */
- Point tailoffs={0, 211}; /* tail bitmap offset, relative to body */
- Point eyeoffs={49, 30}; /* eye bitmap offset, relative to body */
- Point catoffs; /* cat offset, relative to screen */
- int xredraw;
- int crosseyed;
- void drawclock(void);
- void drawhand(int, int, double);
- void init(void);
- Image *draweye(double);
- Image *drawtail(double);
- Image *eballoc(Rectangle, int);
- //int myfillpoly(Image *, Point [], int, Windrule, int, Fcode);
- //void mydrawpoly(Image *, Point [], int, int, Fcode);
- Image *eballoc(Rectangle r, int chan){
- Image *b=allocimage(display, r, chan, 0, DWhite);
- if(b==0){
- fprint(2, "catclock: can't allocate bitmap\n");
- exits("allocimage");
- }
- return b;
- }
- void
- eloadimage(Image *i, Rectangle r, uint8_t *d, int nd)
- {
- int n;
- n = loadimage(i, r, d, nd);
- if(n < nd) {
- fprint(2, "loadimage fails: %r\n");
- exits("loadimage");
- }
- }
- int round(double x){
- return x>=0.?x+.5:x-.5;
- }
- void
- redraw(Image *screen)
- {
- Rectangle r = Rect(0,0,Dx(screen->r), Dy(screen->r));
- catoffs.x=(Dx(r)-CATWID)/2;
- catoffs.y=(Dy(r)-CATHGT)/2;
- if(!ptinrect(catoffs, r)) fprint(2, "catclock: window too small, resize!\n");
- xredraw=1;
- }
- void
- eresized(int new)
- {
- if(new && getwindow(display, Refmesg) < 0)
- fprint(2,"can't reattach to window");
- redraw(screen);
- }
- void main(int argc, char *argv[]){
- int i;
- ARGBEGIN{
- case 'c': crosseyed++; break;
- default:
- fprint(2, "Usage: %s [-c]\n", argv0);
- exits("usage");
- }ARGEND
- initdraw(0, 0, "cat clock");
- einit(Emouse);
- redraw(screen);
- for(i=0; i<nelem(catback_bits); i++)
- catback_bits[i] ^= 0xFF;
- for(i=0; i<nelem(eyes_bits); i++)
- eyes_bits[i] ^= 0xFF;
- cat=eballoc(Rect(0, 0, CATWID, CATHGT), GREY1);
- eloadimage(cat, cat->r, catback_bits, sizeof(catback_bits));
- // wrbitmap(cat, cat->r.min.y, cat->r.max.y, catback_bits);
- for(i=0;i<=NTAIL;i++){
- tail[i]=drawtail(i*PI/NTAIL);
- eye[i]=draweye(i*PI/NTAIL);
- }
- for(;;){
- if(ecanmouse()) emouse(); /* don't get resize events without this! */
- drawclock();
- flushimage(display, 1);
- // bflush();
- sleep(UPDATE);
- }
- }
- /*
- * Draw a clock hand, theta is clockwise angle from noon
- */
- void drawhand(int length, int width, double theta){
- double c=cos(theta), s=sin(theta);
- double ws=width*s, wc=width*c;
- Point vhand[4];
- vhand[0]=add(screen->r.min, add(catoffs, Pt(CATWID/2+round(length*s), CATHGT/2-round(length*c))));
- vhand[1]=add(screen->r.min, add(catoffs, Pt(CATWID/2-round(ws+wc), CATHGT/2+round(wc-ws))));
- vhand[2]=add(screen->r.min, add(catoffs, Pt(CATWID/2-round(ws-wc), CATHGT/2+round(wc+ws))));
- vhand[3] = vhand[0];
- fillpoly(screen, vhand, 4, wind, display->white,
- addpt(screen->r.min, vhand[0]));
- poly(screen, vhand, 4, Endsquare, Endsquare, 0, display->black,
- addpt(screen->r.min, vhand[0]));
- // myfillpoly(&screen, vhand, 3, Nonzero, WHITE, S);
- // mydrawpoly(&screen, vhand, 3, BLACK, S);
- }
- /*
- * draw a cat tail, t is time (mod 1 second)
- */
- Image *drawtail(double t){
- Image *bp;
- double theta=.4*sin(t+3.*PIO2)-.08; /* an assymetric tail leans to one side */
- double s=sin(theta), c=cos(theta);
- Point rtp[NTP];
- int i;
- bp=eballoc(Rect(0, 0, TAILWID, TAILHGT), GREY1);
- for(i=0;i!=NTP;i++)
- rtp[i]=add(Pt(tp[i].x*c+tp[i].y*s, -tp[i].x*s+tp[i].y*c), toffs);
- fillpoly(bp, rtp, NTP, wind, display->black, rtp[0]);
- return bp;
- }
- /*
- * draw the cat's eyes, t is time (mod 1 second)
- */
- Image *draweye(double t){
- Image *bp;
- double u;
- double angle=0.7*sin(t+3*PIO2)+PI/2.0; /* direction eyes point */
- Point pts[100];
- int i, j;
- struct{
- double x, y, z;
- }pt;
- if(eyes==0){
- eyes=eballoc(Rect(0, 0, eyes_width, eyes_height), GREY1);
- eloadimage(eyes, eyes->r, eyes_bits, sizeof(eyes_bits));
- // wrbitmap(eyes, eyes->r.min.y, eyes->r.max.y, eyes_bits);
- }
- bp=eballoc(eyes->r, GREY1);
- draw(bp, bp->r, eyes, nil, ZP);
- // bitblt(bp, bp->r.min, eyes, eyes->r, S);
- for(i=0,u=-PI/2.0;u<PI/2.0;i++,u+=0.25){
- pt.x=cos(u)*cos(angle+PI/7.0);
- pt.y=sin(u);
- pt.z=2.+cos(u)*sin(angle+PI/7.0);
- pts[i].x=(pt.z==0.0?pt.x:pt.x/pt.z)*23.0+12.0;
- pts[i].y=(pt.z==0.0?pt.y:pt.y/pt.z)*23.0+11.0;
- }
- for(u=PI/2.0;u>-PI/2.0;i++,u-=0.25){
- pt.x=cos(u)*cos(angle-PI/7.0);
- pt.y=sin(u);
- pt.z=2.+cos(u)*sin(angle-PI/7.0);
- pts[i].x=(pt.z==0.0?pt.x:pt.x/pt.z)*23.0+12.0;
- pts[i].y=(pt.z==0.0?pt.y:pt.y/pt.z)*23.0+11.0;
- }
- fillpoly(bp, pts, i, wind, display->black, pts[0]);
- // fillpoly(bp, pts, i, Nonzero, BLACK, S);
- if(crosseyed){
- angle=0.7*sin(PI-t+3*PIO2)+PI/2.0;
- for(i=0,u=-PI/2.0;u<PI/2.0;i++,u+=0.25){
- pt.x=cos(u)*cos(angle+PI/7.0);
- pt.y=sin(u);
- pt.z=2.+cos(u)*sin(angle+PI/7.0);
- pts[i].x=(pt.z==0.0?pt.x:pt.x/pt.z)*23.0+12.0;
- pts[i].y=(pt.z==0.0?pt.y:pt.y/pt.z)*23.0+11.0;
- }
- for(u=PI/2.0;u>-PI/2.0;i++,u-=0.25){
- pt.x=cos(u)*cos(angle-PI/7.0);
- pt.y=sin(u);
- pt.z=2.+cos(u)*sin(angle-PI/7.0);
- pts[i].x=(pt.z==0.0?pt.x:pt.x/pt.z)*23.0+12.0;
- pts[i].y=(pt.z==0.0?pt.y:pt.y/pt.z)*23.0+11.0;
- }
- }
- for(j=0;j<i;j++) pts[j].x+=31;
- fillpoly(bp, pts, i, wind, display->black, pts[0]);
- // fillpoly(bp, pts, i, Nonzero, BLACK, S);
- return bp;
- }
- void
- drawclock(void){
- static int t=0, dt=1;
- static Tm otm;
- Tm tm=*localtime(time(0));
- tm.hour%=12;
- if(xredraw || tm.min!=otm.min || tm.hour!=otm.hour){
- if(xredraw){
- draw(screen, screen->r, display->white, nil, ZP);
- border(screen, screen->r, 4, display->black, ZP);
- //bitblt(&screen, screen.r.min, &screen, screen.r, Zero);
- //border(&screen, screen.r, 4, F);
- }
- draw(screen, screen->r, cat, nil, mulpt(catoffs, -1));
- flushimage(display, 1);
- //bitblt(&screen, catoffs, cat, cat->r, S);
- drawhand(MINULEN, HANDWID, 2.*PI*tm.min/60.);
- drawhand(HOURLEN, HANDWID, 2.*PI*(tm.hour+tm.min/60.)/12.);
- xredraw=0;
- }
- draw(screen, screen->r, tail[t], nil,
- mulpt(add(catoffs, tailoffs), -1));
- draw(screen, screen->r, eye[t], nil,
- mulpt(add(catoffs, eyeoffs), -1));
- //bitblt(&screen, add(catoffs, tailoffs), tail[t], tail[t]->r, S);
- //bitblt(&screen, add(catoffs, eyeoffs), eye[t], eye[t]->r, S);
- t+=dt;
- if(t<0 || t>NTAIL){
- t-=2*dt;
- dt=-dt;
- }
- otm=tm;
- }
- #ifdef NOTDEF
- void drawpoly(Bitmap *dst, Point p[], int np, int v, Fcode f){
- int i;
- Point q=p[np-1];
- for(i=0;i!=np;i++){
- segment(dst, p[i], q, v, f);
- q=p[i];
- }
- }
- /*
- * Fillpoly -- a polygon tiler
- * Updating the edgelist from scanline to scanline could be quicker if no
- * edges cross: we can just merge the incoming edges. The code can handle
- * multiply-connected polygons with holes, but the interface can't. If
- * the scan-line filling routine were a parameter, we could do textured
- * polygons, polyblt, and other such stuff.
- */
- typedef struct edge Edge;
- struct edge{
- Point p; /* point of crossing current scan-line */
- int maxy; /* scan line at which to discard edge */
- int dx; /* x increment if x fraction<1 */
- int dx1; /* x increment if x fraction>=1 */
- int x; /* x fraction, scaled by den */
- int num; /* x fraction increment for unit y change, scaled by den */
- int den; /* x fraction increment for unit x change, scaled by num */
- int dwind; /* increment of winding number on passing this edge */
- Edge *next; /* next edge on current scanline */
- Edge *prev; /* previous edge on current scanline */
- };
- void insert(Edge *ep, Edge **yp){
- while(*yp && (*yp)->p.x<ep->p.x) yp=&(*yp)->next;
- ep->next=*yp;
- *yp=ep;
- if(ep->next){
- ep->prev=ep->next->prev;
- ep->next->prev=ep;
- if(ep->prev)
- ep->prev->next=ep;
- }
- else
- ep->prev=0;
- }
- int myfillpoly(Bitmap *b, Point vert[], int nvert, Windrule w, int v, Fcode f){
- Edge *edges, *ep, *nextep, **ylist, **eylist, **yp;
- Point *p, *q, *evert, p0, p1, p10;
- int dy, nbig, y, left, right, wind, nwind;
- edges=(Edge *)malloc(nvert*sizeof(Edge));
- if(edges==0){
- NoSpace:
- return 0;
- }
- ylist=(Edge **)malloc((b->r.max.y-b->r.min.y)*sizeof(Edge *));
- if(ylist==0) goto NoSpace;
- eylist=ylist+(b->r.max.y-b->r.min.y);
- for(yp=ylist;yp!=eylist;yp++) *yp=0;
- evert=vert+nvert;
- for(p=evert-1, q=vert, ep=edges;q!=evert;p=q, q++, ep++){
- if(p->y==q->y) continue;
- if(p->y<q->y){
- p0=*p;
- p1=*q;
- ep->dwind=1;
- }
- else{
- p0=*q;
- p1=*p;
- ep->dwind=-1;
- }
- if(p1.y<=b->r.min.y) continue;
- if(p0.y>=b->r.max.y) continue;
- ep->p=p0;
- if(p1.y>b->r.max.y)
- ep->maxy=b->r.max.y;
- else
- ep->maxy=p1.y;
- p10=sub(p1, p0);
- if(p10.x>=0){
- ep->dx=p10.x/p10.y;
- ep->dx1=ep->dx+1;
- }
- else{
- p10.x=-p10.x;
- ep->dx=-(p10.x/p10.y); /* this nonsense rounds toward zero */
- ep->dx1=ep->dx-1;
- }
- ep->x=0;
- ep->num=p10.x%p10.y;
- ep->den=p10.y;
- if(ep->p.y<b->r.min.y){
- dy=b->r.min.y-ep->p.y;
- ep->x+=dy*ep->num;
- nbig=ep->x/ep->den;
- ep->p.x+=ep->dx1*nbig+ep->dx*(dy-nbig);
- ep->x%=ep->den;
- ep->p.y=b->r.min.y;
- }
- insert(ep, ylist+(ep->p.y-b->r.min.y));
- }
- left=0;
- for(yp=ylist,y=b->r.min.y;yp!=eylist;yp++,y++){
- wind=0;
- for(ep=*yp;ep;ep=nextep){
- nwind=wind+ep->dwind;
- if(nwind&w){ /* inside */
- if(!(wind&w)){
- left=ep->p.x;
- if(left<b->r.min.x) left=b->r.min.x;
- }
- }
- else if(wind&w){
- right=ep->p.x;
- if(right>=b->r.max.x) right=b->r.max.x;
- if(right>left)
- segment(b, Pt(left, y), Pt(right, y), v, f);
- }
- wind=nwind;
- nextep=ep->next;
- if(++ep->p.y!=ep->maxy){
- ep->x+=ep->num;
- if(ep->x>=ep->den){
- ep->x-=ep->den;
- ep->p.x+=ep->dx1;
- }
- else
- ep->p.x+=ep->dx;
- insert(ep, yp+1);
- }
- }
- }
- free((char *)edges);
- free((char *)ylist);
- return 1;
- }
- #endif
|