Subversion Repositories shark

Rev

Blame | Last modification | View Log | RSS feed

/*
 * Project: S.Ha.R.K.
 *
 * Coordinators:
 *   Giorgio Buttazzo    <giorgio@sssup.it>
 *   Paolo Gai           <pj@gandalf.sssup.it>
 *
 * Authors     :
 *   Paolo Gai           <pj@gandalf.sssup.it>
 *   (see the web pages for full authors list)
 *
 * ReTiS Lab (Scuola Superiore S.Anna - Pisa - Italy)
 *
 * http://www.sssup.it
 * http://retis.sssup.it
 * http://shark.sssup.it
 */


/**
 ------------
 CVS :        $Id: eli.c,v 1.1.1.1 2002-09-02 09:37:45 pj Exp $

 File:        $File$
 Revision:    $Revision: 1.1.1.1 $
 Last update: $Date: 2002-09-02 09:37:45 $
 ------------

 This file is similar to the configuration of Hartik 3.3.1

**/


/*
 * Copyright (C) 2000 Paolo Gai and ALLEN-DESTRO
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 */


#include        "eli.h"


//########################################
// Definizione variabili globali
//########################################
char tastiera;
long double Forza_x,Forza_y,Velocita_x,Velocita_y,Acc_x,Acc_y,Pos_x,Pos_y;
long double Pos_pe_y[5];
long double Pos_pe_x[5];
long double T1=0;
long double r;
int n_peso=0;
int peso_agganciato[5]={0,0,0,0,0};
int pre_peso[5]={0,0,0,0,0};
int libero_peso[5]={0,0,0,0,0};
PID pid_peso[5];
PID pid_ruspa[5];
int x_r=200;
int n_ruspa=5;
int indietro;
int eli_occ=0;
int kill_p;

//PID pid_r0,pid_r1,pid_r2,pid_r3,pid_r4;
PID pid_kill_p,pid_pulisci_p,pid_kill_e,pid_pulisci_e;


// Definizione del semaforo per l'utilizzo della modalita' grafica
sem_t           mutex;
sem_t           pu;




//#######################################################################
//############### DEFINIZIONE TASK ######################################
//#######################################################################

TASK kill_task(int i)
{ int x,y,dim;
 while (1)
   {

     if(i==1)
       {
         x=Pos_pe_x[kill_p];
         y=Pos_pe_y[kill_p];
         dim=25;
       }
     else
       {
         x=Pos_x;
         y=Pos_y;
         dim=35;
       }

     PULISCI(x,y,dim);
     ESPLOSIONE(x,y);

     sem_wait(&pu);

     if(i==1)    task_activate(pid_pulisci_p);
     else     task_activate(pid_pulisci_e);

     task_endcycle();

   }


}

TASK pulisci(int i)
{ int x,y,dim;
 while (1)
   {

     if(i==1)
       {
         x=Pos_pe_x[kill_p];
         y=Pos_pe_y[kill_p];
         dim=25;
       }
     else
       {
         x=Pos_x;
         y=Pos_y;
         dim=35;
       }


     task_delay(3000);
     PULISCI(x,y,dim);

     sem_post(&pu);
   
     task_endcycle();
   }
}




TASK elicottero(int i)
{  long double x_old,x_new,y_old,y_new;
 TIME us_old,us_new;
 long double delta_T;
 long double Fx,Fy,Ax,Ay,Vx,Vy,m_el;
 int Destra_old,Destra_new;
 //   int uccidi,colore;
 //   int prova;

 m_el=1;
 Vx=0;Vy=0;
 Ax=0;Ay=0;
 Fx=0;Fy=0-m_el*G; // Fy=0;
 x_old=150;
 y_old=150;
 Destra_old=1;
 Destra_new=1;

 us_old=sys_gettime(NULL);
   
 while (1)
   {

     //  prova=2;


     us_new=sys_gettime(NULL);
     delta_T=(us_new-us_old)/100000;
     //    if(delta_T<0.9) prova=1;
     //    if(delta_T<0) prova=4;
     //    if(delta_T>1.1) prova=3;


     delta_T=1;
     Ax=(Fx-(r*Vx))/m_el;
     Ay=(Fy-(r*Vy)+m_el*G+T1)/m_el;
     x_new=x_old+Vx*delta_T+0.5*Ax*delta_T*delta_T;
     y_new=y_old+Vy*delta_T+0.5*Ay*delta_T*delta_T;

     //    if(prova==1) {x_new=300; y_new=150;}
     //    if(prova==3) {x_new=150; y_new=300;}
     //    if(prova==2) {x_new=300; y_new=300;}
     //    if(prova==4) {x_new=400; y_new=400;}

     Vx=Vx+Ax*delta_T;
     Vy=Vy+Ay*delta_T;
     if ((Vx>0)|| ((Vx==0) && (Destra_old==1))) Destra_new=1;
     else Destra_new=0;

     if ( ((y_new>=(Y0max-DIM_EL/2-2)) || ( (y_old<=400-DIM_EL/2-2) &&   (y_new>=400-DIM_EL/2-2) && (x_new>=X0min+151) && (x_new<=X0min+280) )) )
       {
         if ((x_new>=X0min+151) && (x_new<=X0min+280)) y_new=400-DIM_EL/2-2;
         else  y_new=Y0max-DIM_EL/2-2;
         Vy=0;
         Vx=0;
         x_new=x_old;
         Ay=0;
         Ax=0;
       }




     sem_wait(&mutex);

     /*
       uccidi=0;

       colore=grx_getpixel(x_new-2*DIM_EL,y_new-DIM_EL);
       if ( (colore!=COL_SFONDO) && (colore!=YELLOW) && (colore!=RED)) uccidi=1;
       colore=grx_getpixel(x_new+2*DIM_EL,y_new-DIM_EL);
       if ( (colore!=COL_SFONDO) && (colore!=YELLOW) && (colore!=RED)) uccidi=1;
       colore=grx_getpixel(x_new-2*DIM_EL,y_new+DIM_EL/2);
       if ( (colore!=COL_SFONDO) && (colore!=YELLOW) && (colore!=RED)) uccidi=1;
       colore=grx_getpixel(x_new+2*DIM_EL,y_new+DIM_EL/2);
       if ( (colore!=COL_SFONDO) && (colore!=YELLOW) && (colore!=RED)) uccidi=1;
       colore=grx_getpixel(x_new,y_new);
       if ( (colore!=COL_SFONDO) && (colore!=YELLOW) && (colore!=RED)) uccidi=1;
     */


     if ((x_old>100) && (y_old>100) && (x_old<X0max) )
       {
         if (Destra_old==0) {ELICOTTERO_S(x_old,y_old,DIM_EL,COL_SFONDO,COL_SFONDO);}
         else {ELICOTTERO_D(x_old,y_old,DIM_EL,COL_SFONDO,COL_SFONDO);}
       }

     if ((x_new>100) && (y_new>100) && (x_new<X0max) )
       {
         /*
           if ( uccidi==1)
           {
           //  grx_box(10,10,100,100,RED);
           //  task_activate(pid_kill_e);
           //  sem_post(&mutex);
           //   eli_occ=0;
           sem_post(&mutex);
           task_abort();
           }
         */



         if (Destra_new==0) {ELICOTTERO_S(x_new,y_new,DIM_EL,COL_EL,COL_SFONDO);}
         else {ELICOTTERO_D(x_new,y_new,DIM_EL,COL_EL,COL_SFONDO);}
       }
     sem_post(&mutex);

     if (tastiera=='c') Fx=Fx+0.25;
     if (tastiera=='z') Fx=Fx-0.25;
     if (tastiera=='x') Fy=Fy+0.25;
     if (tastiera=='s') Fy=Fy-0.25;

     if (Fx>2) Fx=2;
     if (Fx<-2) Fx=-2;
     if (Fy>0) Fy=0;
     if (Fy<-17.5) Fy=-17.5;

     Forza_x=Fx;
     Forza_y=Fy;
     Acc_x=Ax;
     Acc_y=Ay;
     Velocita_x=Vx;
     Velocita_y=Vy;
     Pos_x=x_new;
     Pos_y=y_new;


     if ( (tastiera=='z') || (tastiera=='x') || (tastiera=='c') || (tastiera=='s') )
       tastiera='q';


     us_old=us_new;
     x_old=x_new;
     y_old=y_new;
     Destra_old=Destra_new;

     task_endcycle();
   }
}



TASK peso(int i)
{
  long double delta_T;
  long double Ay,Vy;
  long double x_new,x_old,y_old,y_new;
  int scelta=0;
  int rit,colore,uccidi;
  double m_peso[5]={0.5,0.4,0.3,0.1,0.6};
  int delta_y1,delta_y2;


  //   PID pid;
  //   MODEL           m = BASE_MODEL;

  Vy=0;
  Ay=0;

  x_old=700-DIM_PESO-1;
  y_old=Y0max-DIM_PESO*2-1;
  delta_T=1;
  x_new=700-DIM_PESO-1;

  libero_peso[i]=0;

  while (1 )
    {
      uccidi=0;

      if (scelta==0 )
        {

          y_new=y_old;
          if (x_new+DIM_PESO==x_r-1) x_new=x_new-1;
          else x_new=x_new;
          if (indietro==1) {scelta=1; libero_peso[i]=1;}
        }

      if (scelta==1 )
        {
          y_new=y_old;
          x_new=x_old;
          if (peso_agganciato[i]==1) scelta=2;
        }
      if (scelta==2)
        {
          eli_occ=1;
          Ay=(m_peso[i]*G-(r*Vy)-T1)/m_peso[i];
          if(peso_agganciato[i]==1) x_new=Pos_x;
          else x_new=x_old;
          y_new=y_old+Vy*delta_T+0.5*Ay*delta_T*delta_T;
          Vy=Vy+Ay*delta_T;

          delta_y1=Y0max-y_new;
          delta_y2=400-y_new;

          if ( (y_new>=(Y0max-2*DIM_PESO-1)) || ( (y_old<400-2*DIM_PESO-1) && (y_new>=400-2*DIM_PESO-1) && (x_new>=X0min+151-DIM_PESO) && (x_new<=X0min+280+DIM_PESO) ) )
            {
              if ((x_new>=X0min+151-DIM_PESO) && (x_new<=X0min+280+DIM_PESO))
                {
                  if (delta_y2<6) uccidi=1;
                  y_new=400-2*DIM_PESO-2;
                }
              else {
                if (delta_y1<6) uccidi=1;
                y_new=Y0max-2*DIM_PESO-2;
              }
              Vy=0;
              if(peso_agganciato[i]==0) {scelta=3; rit=0;}
            }
        }
      if (scelta==3)
        {
          x_new=x_new;
          y_new=y_new;
          eli_occ=0;
          if (y_new==400-2*DIM_PESO-2) rit++;


     
          if (rit==100) {
            peso_agganciato[i]=0;
            pre_peso[i]=0;
            sem_wait(&mutex);
            PESO(x_old,y_old,DIM_PESO,COL_SFONDO);
            sem_post(&mutex);

            return NULL;
          }

          if(peso_agganciato[i]==1) scelta=2;
        }

      sem_wait(&mutex);


      colore=grx_getpixel(x_new-DIM_PESO,y_new);
      if ( (colore!=COL_SFONDO) && (colore!=DELTA_COL+i*2) && (colore!=RED)) uccidi=1;

      colore=grx_getpixel(x_new+DIM_PESO,y_new);
      if ( (colore!=COL_SFONDO) && (colore!=DELTA_COL+i*2) && (colore!=RED)) uccidi=1;

      colore=grx_getpixel(x_new-DIM_PESO,y_new+2*DIM_PESO);
      if ( (colore!=COL_SFONDO) && (colore!=DELTA_COL+i*2) && (colore!=RED)) uccidi=1;

      colore=grx_getpixel(x_new+DIM_PESO,y_new+2*DIM_PESO);
      if ( (colore!=COL_SFONDO) && (colore!=DELTA_COL+i*2) && (colore!=RED)) uccidi=1;

      colore=grx_getpixel(x_new,y_new+DIM_PESO);
      if ( (colore!=COL_SFONDO) && (colore!=DELTA_COL+i*2) && (colore!=RED)) uccidi=1;



      if ((x_old>100) && (y_old>100) && (x_old<X0max) )
        {
          PESO(x_old,y_old,DIM_PESO,COL_SFONDO);
        }

      y_old=y_new;
      x_old=x_new;
      Pos_pe_y[i]=y_new;
      Pos_pe_x[i]=x_new;


      if ((x_new>100) && (y_new>100) && (x_new<X0max) )
        {
          if ( uccidi==1)
            {
              kill_p=i;
              task_activate(pid_kill_p);
              sem_post(&mutex);
              eli_occ=0;
              pre_peso[i]=0;
              peso_agganciato[i]=0;
              return NULL;
            }

          PESO(x_new,y_new,DIM_PESO,DELTA_COL+i*2);
        }
      sem_post(&mutex);


      task_endcycle();
    }


}

TASK ruspa(int i)
{
  int x,y,ii;
  int end_peso[5]={370,420,470,520,570};

  PID pid;
  HARD_TASK_MODEL m_hard;

  pre_peso[i]=1;

  hard_task_default_model(m_hard);
  hard_task_def_wcet(m_hard,1);  // wcet ignored!!!
  hard_task_def_mit(m_hard,PER_DISEGNA);
  hard_task_def_usemath(m_hard);
  hard_task_def_arg(m_hard,(void *)i);
  pid=task_create("peso2",peso,&m_hard,NULL);
  pid_peso[i]=pid;
  task_activate(pid_peso[i]);


  x=720;
  y=Y0max;
 
  indietro=0;
  while (x!=end_peso[i]+DIM_PESO)
    {
      sem_wait(&mutex);
      RUSPA_S(x+1,y,COL_SFONDO,COL_SFONDO);
      RUSPA_S(x,y,YELLOW-1,LIGHTBLUE);
      sem_post(&mutex);
      x_r=x;
      x--;
      task_endcycle();
    }
  sem_wait(&mutex);
  RUSPA_S(x+1,y,COL_SFONDO,COL_SFONDO);
  sem_post(&mutex);
  indietro=1;
  while (x!=730 )
    {
      sem_wait(&mutex);
      RUSPA_D(x-1+40,y,COL_SFONDO,COL_SFONDO);
      RUSPA_D(x+40,y,YELLOW-1,LIGHTBLUE);
      sem_post(&mutex);
      x++;
      task_endcycle();
    }

  ii=i+1;

  while(ii>4)
    {
      n_ruspa=5;
      if(pre_peso[4]==0){
        ii=4;
        if(pre_peso[3]==0){
          ii=3;
          if(pre_peso[2]==0){
            ii=2;
            if(pre_peso[1]==0){
              ii=1;
              if(pre_peso[0]==0){
                ii=0;
              }
            }
          }
        }
      }
      task_endcycle();

    }

  hard_task_def_arg(m_hard,(void *)ii);
  pid_ruspa[ii]=task_create("ruspa",ruspa,&m_hard,NULL);
  task_activate(pid_ruspa[ii]);
  n_ruspa=ii;

  return NULL;
}




TASK molla(int i)
{
  double k=0.05;
  double x,x_old,y1_old,y2_old;
  double T1_old; //,T2_old;

  x_old=Pos_x;
  y1_old=Pos_y;
  y2_old=Pos_pe_y[n_peso];
   
  while (1)
    {

      sem_wait(&mutex);
      if ((x_old>100-DIM_EL) && (y1_old>100-DIM_EL) && (x_old<X0max) )
        {
          MOLLA(x_old,y1_old+DIM_EL,y2_old,COL_SFONDO)
            }
      else if( (y2_old>100) && (x_old<X0max) && (x_old>100) )
        {
          MOLLA(x_old,X0min+100,y2_old,COL_SFONDO)
            }

      x_old=Pos_x;
      y1_old=Pos_y;
 
      if(peso_agganciato[n_peso]==0) y2_old=y1_old+20;
      else                y2_old=Pos_pe_y[n_peso];

      if ((x_old>100) && (y1_old>100-DIM_EL) && (x_old<X0max)  )
        {
          MOLLA(x_old,y1_old+DIM_EL,y2_old,RED)
            }
      else if( (y2_old>100) && (x_old<X0max) && (x_old>100))
        {
          MOLLA(x_old,X0min+100,y2_old,RED)
            }
      sem_post(&mutex);

      x=y2_old-y1_old;
      x=x-20;
      T1=x*k;
      T1_old=T1;

      task_endcycle();

    }
}

TASK seleziona(int i)
{ int w,deltax,deltay,disegna;

 eli_occ=0;
 disegna=0;

 while (1)
   {
     disegna=0;
     for (w=0;w<5;w++)
       {
         deltax=Pos_pe_x[w]-Pos_x;
         deltay=Pos_pe_y[w]-Pos_y-DIM_PESO-20+DIM_EL;
         if ( (pre_peso[w]==1) && (eli_occ==0) && (deltax<4) && (deltax>-4) && (deltay<3) && (deltay>-3) )
           {
             disegna=1;
             if ( (tastiera=='p') && (libero_peso[w]==1) )
               {
                 eli_occ=1;
                 peso_agganciato[w]=1;
                 n_peso=w;

               }
           }  
       }

     if(disegna==1)
       {
         sem_wait(&mutex);
         grx_box(X0max-90,Y0min+5,X0max-5,Y0min+95,RED);
         //        grx_text("Ok", X0max-40, Y0min+50, COL_TESTO, RED);
         sem_post(&mutex);
       } else
         {
           sem_wait(&mutex);
           grx_box(X0max-95,Y0min+5,X0max-5,Y0min+95,COL_SFONDO);
           sem_post(&mutex);
         }

     if(eli_occ==1)
       {
         sem_wait(&mutex);
         grx_box(X0max-90-100,Y0min+5,X0max-5-100,Y0min+95,GREEN);
         //      grx_text("Go", X0max-35-100, Y0min+50, COL_TESTO, GREEN);
         sem_post(&mutex);
       } else
         {
           sem_wait(&mutex);
           grx_box(X0max-90-100,Y0min+5,X0max-5-100,Y0min+95,COL_SFONDO);
           sem_post(&mutex);
         }


     if (tastiera=='l') peso_agganciato[n_peso]=0;

     task_endcycle();

   }
}

                                                                 
//###############################################################
//                                                              ##
//        Funzione di uscita dal programma                      ##
//                                                              ##
//################################################################
void my_end(KEY_EVT* e)
{
  //####################################
  // Sezione esecutiva della funzione ##
  //####################################

  grx_close();
  cprintf("Ctrl-brk pressed!\n");
  sys_end();
}       // Fine della funzionemy_end
                                                                 
//################################################################
//                                                              ##
//        Funzione di uscita dal programma                      ##
//                                                              ##
//################################################################
void end()
{
  //####################################
  // Sezione esecutiva della funzione ##
  //####################################

  grx_close();
}       // Fine della funzione my_end



//##############################################################
//                                                            ##
//                            Main                            ##
//                                                            ##
//##############################################################
int main()
{
  //########################################
  // Sezione dichiarativa delle variabili ##
  //########################################
  // Identficativi di task generici
  PID             pid0, pid1, pid3, pid5; //, pid2,pid4,pid6;

  HARD_TASK_MODEL m_hard;
  NRT_TASK_MODEL m_nrt;

  // Ascoltatore di eventi
  KEY_EVT         emerg;
  // Contatori
  int              j;


  //####################################
  //    Sezione esecutiva del main    ##
  //####################################

  set_exchandler_grx();

  // Inizializzazione dei parametri hartik
  sem_init(&mutex,0,1);
  sem_init(&pu,0,1);

  emerg.ascii = 'x';
  emerg.scan = KEY_X;
  emerg.flag = ALTL_BIT;
  keyb_hook(emerg, my_end);
  sys_atrunlevel(end, NULL, RUNLEVEL_BEFORE_EXIT);

  if (grx_open(800, 600, 8) < 0)
    {
      cprintf("GRX Err\n");
      sys_abort(300);
    }
  cprintf("scheda ok\n");

  r=0.1;

  /* Disposizione degli elementi grafici statici */
  sem_wait(&mutex);
  draw_static();
  sem_post(&mutex);

  // Attivazione dei task
  hard_task_default_model(m_hard);
  hard_task_def_wcet(m_hard,1);  // wcet ignored!!!
  hard_task_def_usemath(m_hard);
     
  hard_task_def_mit(m_hard,PER_DISEGNA);
  pid0=task_create("elicottero",elicottero,&m_hard,NULL);
  task_activate(pid0);

  hard_task_def_mit(m_hard,PER_DISEGNA);
  pid1=task_create("indicometro",disegna_stato,&m_hard,NULL);
  task_activate(pid1);

  hard_task_def_mit(m_hard,PER_MOLLA);
  pid3=task_create("molla",molla,&m_hard,NULL);
  task_activate(pid3);

  hard_task_def_mit(m_hard,PER_DISEGNA);
  pid5=task_create("seleziona",seleziona,&m_hard,NULL);
  task_activate(pid5);


  hard_task_def_mit(m_hard,PER_DISEGNA);
  hard_task_def_arg(m_hard,0);
  pid_ruspa[0]=task_create("ruspa",ruspa,&m_hard,NULL);
  task_activate(pid_ruspa[0]);
  n_ruspa=0;

  nrt_task_default_model(m_nrt);
  nrt_task_def_usemath(m_nrt);
  nrt_task_def_arg(m_nrt,0);
  pid_kill_e = task_create("kill_task",kill_task, &m_nrt, NULL);
  pid_pulisci_e = task_create("pulisci",pulisci, &m_nrt, NULL);

  nrt_task_def_arg(m_nrt,(void *)1);
  pid_kill_p = task_create("kill_task",kill_task, &m_nrt, NULL);
  pid_pulisci_p = task_create("pulisci",pulisci, &m_nrt, NULL);




  do {
    tastiera = keyb_getch(BLOCK);

  } while(tastiera!=ESC);

  task_kill(pid5);
  task_kill(pid3);
  task_kill(pid1);
  task_kill(pid0);

  task_kill(pid_kill_p);
  task_kill(pid_kill_e);

  if (n_ruspa!=5) task_kill(pid_ruspa[n_ruspa]);
  for(j=0;j<5;j++) { if (pre_peso[j]==1) task_kill(pid_peso[j]); }

  grx_close();
  sys_end();

  return 0;
}       // Fine del main

/***************************<Fine del file>*******************************/