home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / source / wtchsrc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-05  |  7.5 KB  |  203 lines
  1. /*
  2.         Title:          watch.c
  3.         Author:         Erik Kilk
  4.         Date:           April 1985
  5.         
  6.         Synopsis:       An analog clock desk accessory. When "watch" is started,
  7.                         it will appear just under the apple menu without a
  8.                         title bar or close box. To get the title bar and close
  9.                         box, click on the clock face (if it isn't the active
  10.                         window, you will have to click an extra time to make
  11.                         it active).  To get rid of the title bar, also click
  12.                         on the clock face.  In either mode, the top of the
  13.                         window will be the same (the clock face is pushed down
  14.                         when the title bar is showing.)  This is so you can move
  15.                         the face all the way to the top of your desk top. This
  16.                         will increase your system file by 2k.
  17.         
  18. */
  19.  
  20. #define csize 16                /* half the window size */
  21.  
  22. #include <stdio.h>              /* type declarations and macros */
  23. #include <desk.h>               /* these are just for the compiler */
  24. #include <acc.h>                /* and don't generate code or data */
  25. #include <qd.h>
  26. #include <event.h>
  27. #include <mem.h>
  28. #include <misc.h>
  29. #include <file.h>
  30. #include <win.h>
  31. #include <device.h>
  32. #include <os.h>
  33. #include <fmath.h>
  34. #include <qdvars.h>             /* the global quickdraw variables */
  35.  
  36. ACC (0x2400,                    /* Responds to CNTRL call.  Called
  37.                                    periodically */
  38.     1800,                       /* Ticks between periodic calls (30
  39.                                    seconds) */
  40.     0x42,                       /* mousedown and update events */
  41.     0,                          /* No menu items */
  42.     5, "Watch")                 /* Length and text of title */
  43.  
  44. rect ringbounds;                /* circle to erase before drawing hands */
  45. int     wkind = 2;              /* initial type of window (plain box) */
  46.  
  47. ek () {                         /* my initials (only for title bar face) 
  48.                                 */
  49.     move (-3, 0);
  50.     line (0, 4);
  51.     move (1, -4);
  52.     line (1, 0);
  53.     move (-1, 2);
  54.     line (0, 0);
  55.     move (0, 2);
  56.     line (1, 0);
  57.     move (2, -4);
  58.     line (0, 4);
  59.     move (1, -2);
  60.     line (2, -2);
  61.     move (-1, 3);
  62.     line (1, 1);
  63. }
  64.  
  65. showclock () {                  /* draw the entire clock face */
  66.     datetimerec datetime;       /* date gets read into here */
  67.     int     mx,
  68.             my,
  69.             hx,
  70.             hy;                 /* hand end-points */
  71.     double  minunit,
  72.             min,
  73.             hr;                 /* time */
  74.  
  75.     gettime (&datetime);
  76.     if (datetime.hour > 11)
  77.         datetime.hour -= 12;
  78.     minunit = (double) datetime.minute / 60.0;
  79.     min = minunit * 6.2831;     /* 2*pi */
  80.     hr = ((double) datetime.hour + minunit) / 12.0 * 6.2831;
  81.     mx = 0.75 * csize * sin (min);
  82.     my = -0.75 * csize * cos (min);
  83.     hx = 0.5 * csize * sin (hr);
  84.     hy = -0.5 * csize * cos (hr);
  85.     setorigin (-csize, -csize); /* make 0,0 in center */
  86.     pennormal ();
  87.     filloval (&ringbounds, &(qdvars.white));/* erase hands */
  88.     moveto (0, csize - 2);
  89.     lineto (0, csize - 2);      /* draw 4 ticks */
  90.     moveto (csize - 2, 0);
  91.     lineto (csize - 2, 0);
  92.     moveto (0, -csize + 1);
  93.     lineto (0, -csize + 1);
  94.     moveto (-csize + 1, 0);
  95.     lineto (-csize + 1, 0);
  96.     if (wkind == 16) {          /* add my initials */
  97.         moveto (0, 5);
  98.         ek ();
  99.     }
  100.     moveto (0, 0);              /* draw the hands */
  101.     lineto (mx, my);
  102.     moveto (0, 0);
  103.     lineto (hx, hy);
  104.     moveto (0, 0);              /* erase the center dot */
  105.     penpat (&(qdvars.white));
  106.     lineto (0, 0);
  107. }
  108.  
  109. switchwindows (dctl)            /* toggle between window types */
  110. dctlentry *dctl;                /* this gives us the window address */
  111. {
  112.     windowpeek oldwp;           /* the old window address */
  113.     windowpeek newwp;           /* the new window address */
  114.     rect wr;                    /* the position of the new window */
  115.     int     offs;               /* offset to scoot face up and down */
  116.  
  117.     if (wkind == 16) {          /* to change regular DA to box */
  118.         wkind = 2;              /*              plain box window code */
  119.         offs = -19;             /*              scoot it up where title
  120.                                    was */
  121.     }
  122.     else {                      /* to change box to regular DA */
  123.         wkind = 16;             /*         DA window code */
  124.         offs = 19;              /*         scoot it down (title bar is
  125.                                    placed above window position) */
  126.     }
  127.     oldwp = dctl -> dctlwindow; /* get address of current window */
  128.     wr = oldwp -> port.portrect;/* get size of the window */
  129.  /* now position it.  This took trial and error to get right. */
  130.     offsetrect (&wr, 512 - oldwp -> port.portbits.bounds.a.right,
  131.             342 - oldwp -> port.portbits.bounds.a.bottom + offs);
  132.  /* make the new window */
  133.     newwp = newwindow (NULL, &wr, "", 1, wkind, -1L, -1, 0L);
  134.     newwp -> windowkind = dctl -> dctlrefnum;/* Have to do this */
  135.     dctl -> dctlwindow = newwp; /* save the window addrss */
  136.     disposewindow (oldwp);      /* dump the old window */
  137. }
  138.  
  139.  
  140. accopen (dctl, pb)              /* open the clock for first time */
  141. dctlentry *dctl;                /* gives window stuff */
  142. paramblockrec *pb;              /* passed to us anyway */
  143. {
  144.     windowpeek wp;              /* pointer to new window */
  145.     rect wr;                    /* position of new window */
  146.  
  147.     setrect (&ringbounds, -(csize - 2), -(csize - 2), csize - 2, csize - 2);
  148.     if (dctl -> dctlwindow == NULL) {/* No window, so create it */
  149.         setrect (&wr, 2, 22, (csize * 2) + 2, (csize * 2) + 22);
  150.         wp = newwindow (NULL, &wr, "", 0, wkind, -1L, -1, 0L);
  151.         wp -> windowkind = dctl -> dctlrefnum;
  152.         dctl -> dctlwindow = wp;
  153.     }
  154.     return 0;
  155. }
  156.  
  157. accclose (dctl, pb)             /* system calls this to close up */
  158. dctlentry *dctl;
  159. paramblockrec *pb;
  160. {
  161.     windowptr tmpwp;            /* to keep our window address */
  162.  
  163.     tmpwp = dctl -> dctlwindow; /* get window address */
  164.     dctl -> dctlwindow = NULL;  /* tell system there isn't a window */
  165.     disposewindow (tmpwp);      /* dump the window */
  166.     return 0;
  167. }
  168.  
  169. accctl (dctl, pb)               /* Called by the system when needed */
  170. dctlentry *dctl;                /* window info is given in here */
  171. paramblockrec *pb;              /* reason system called us is here */
  172. {
  173.     eventrecord *newevent;      /* address of new event record */
  174.  
  175.     setport (dctl -> dctlwindow);/* set to draw in our window */
  176.     switch (pb -> paramunion.cntrlparam.cscode) {
  177.         case accrun:            /* every 30 seconds */
  178.             showclock ();
  179.             break;
  180.         case accevent:          /* on mousedown and updates */
  181.             newevent = (eventrecord *) (pb -> paramunion.cntrlparam.
  182.                     csparam.asyncnbytes);
  183.             switch (newevent -> what) {
  184.                 case mousedown: /* for mousedowns, switch windws */
  185.                     switchwindows (dctl);
  186.                     break;
  187.                 case updateevt: /* for updates, draw clock again */
  188.                     beginupdate (dctl -> dctlwindow);
  189.                     showclock ();
  190.                     endupdate (dctl -> dctlwindow);
  191.                     break;
  192.             }
  193.             break;
  194.     }
  195. }
  196.  
  197. accprime () {                   /* these two procedures aren't needed *//*
  198.                                    but have to exist anyway */
  199. }
  200.  
  201. accstatus () {
  202. }
  203.