/* Listato 4 */

                   /* Punti e linee */


#include <grafica.h>

#define PORT finestra->UserPort  /* Port della nostra finestra */


 main()
 {
struct Window *finestra;/* prepara struttura per la finestra */
struct IntuiMessage *messaggio;
ULONG class;
USHORT code;
SHORT x,y;



  AttivaG(); /* Apre le librerie */

finestra=(struct Window *)Finestra(100,50,300,150,-1,-1,CLOSEWINDOW+
                                   MOUSEBUTTONS,WINDOWCLOSE+
                                   WINDOWDRAG+WINDOWDEPTH+WINDOWSIZING+
                                   ACTIVATE,NULL,NULL,
                                   "Finestra",NULL,50,50,600,250);


 Line(finestra,20,15,250,120,3); /* Traccia una linea */



          /* Gestione Intuition Messages */

 for(;;)  /* Ciclo infinito */
     {
              /* Attende un messaggio valido */
       while ((messaggio=(struct IntuiMessage *)GetMsg(PORT))!=NULL)
               {
                    /* Salvo i campi che mi interessano */
                 class=messaggio->Class;
                 code=messaggio->Code;
                 x=messaggio->MouseX;
                 y=messaggio->MouseY;

                 ReplyMsg(messaggio); /* Messaggio ricevuto ! */

                 if (class==CLOSEWINDOW) { /* Chiude la finestra */
                                           CloseWindow(finestra);
                                           EndG();
                                           exit();
                                          };

                   /* Traccia un punto alla pressione del
                      tasto SELECT                        */
                   
                 if ((class==MOUSEBUTTONS) && (code==SELECTDOWN))
                                                        Plot(finestra,x,y,1);


                }; /* Ciclo WHILE */

     };  /* Ciclo infinto */

} /* FINE */