home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / educ / splines.lzh / SPLINES / SPLINE.C < prev    next >
C/C++ Source or Header  |  1991-08-16  |  2KB  |  80 lines
  1. /* The routines in this file are copyright (c) 1987 by Helene (Lee) Taran.
  2.  * Permission is granted for use and free distribution as long as the
  3.  * original author's name is included with the code.
  4.  */
  5.  
  6. #include "spline.h"
  7.  
  8. extern struct Window *Window;
  9. extern struct Screen *Screen;
  10. extern struct PopUp_Menu CurveMenu, PointMenu;
  11. DLIST_ELEMENT Control_Points;
  12.  
  13. main()
  14. { 
  15.  
  16.   OpenLibraries();
  17.   SetupEnvironment();
  18.   Init_List(&Control_Points);
  19.   Create_ControlPoints();
  20.   Init_GValues();  /* sets up the Gvalues for interpolating splines */
  21.   while(1)  /* Main Loop */
  22.      { struct IntuiMessage *message, *GetMsg();
  23.        struct IntuiMessage mcopy;
  24.  
  25.        /* Wait until something happens and then respond to it */
  26.        Wait(1 << Window->UserPort->mp_SigBit); 
  27.        
  28.        /* Now, one or more input events have arrived. Respond to ALL */
  29.        while (message = GetMsg(Window->UserPort))
  30.           {
  31.             mcopy = *message;         /* make a copy of the message */
  32.             ReplyMsg(message);        /* reply to it immediately */
  33.             ProcessMessage(&mcopy);   /* react to the message */
  34.            }
  35.     }
  36. }
  37.  
  38.  
  39. /* ProcessMessage processes an input event given */ 
  40. ProcessMessage(msg)
  41. struct IntuiMessage *msg;
  42. {
  43.   switch (msg->Class) {
  44.     case CLOSEWINDOW  :  close_things(); exit(0);
  45.     case MOUSEBUTTONS : 
  46.       if (msg->Code == SELECTDOWN) {
  47.          DLISTPTR p,Select_ControlPoint();
  48.            if (p = Select_ControlPoint(msg->MouseX,msg->MouseY)) 
  49.               Edit_ControlPoint(Window,p);
  50.            else Edit_CurveStyle(Window);
  51.            }
  52.       break;
  53.    }
  54. } 
  55.  
  56.  
  57. Create_ControlPoints()
  58. {
  59.   DLISTPTR p; void *calloc();
  60.   REAL_POINT *c;
  61.   
  62.   p = (DLISTPTR)calloc(1,sizeof(DLIST_ELEMENT));
  63.   c = (REAL_POINT *)calloc(1,sizeof(REAL_POINT));
  64.   c->x = 300;  c->y = 200;  p->contents = c;
  65.   INSERT_FIRST(p,&Control_Points);
  66.  
  67.   p = (DLISTPTR)calloc(1,sizeof(DLIST_ELEMENT));
  68.   c = (REAL_POINT *)calloc(1,sizeof(REAL_POINT));
  69.   c->x = 155;  c->y = 30;  p->contents = c;
  70.   INSERT_FIRST(p,&Control_Points);
  71.  
  72.   p = (DLISTPTR)calloc(1,sizeof(DLIST_ELEMENT));
  73.   c = (REAL_POINT *)calloc(1,sizeof(REAL_POINT));
  74.   c->x = 20;  c->y = 175;  p->contents = c;
  75.   INSERT_FIRST(p,&Control_Points);
  76.  
  77.   Draw_ControlPoints(Window);
  78.   Draw_Natural_Bspline(Window,&Control_Points);
  79. }
  80.