/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        G E N E R A T I O N   D E S   2 6   D I R E C T I O N S   C A R D I N A L E S   D ' U N   A L B U M  :                     */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtc/DirectionsCardinales.01$c' :                                                                               */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20231201122500).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#include  "INCLUDES.01.I"

#define   X1(x)     COND(((x)>0),'1',COND(((x)<0),'3','_'))
#define   Y1(y)     COND(((y)>0),'2',COND(((y)<0),'4','_'))
#define   Z1(z)     COND(((z)>0),'5',COND(((z)<0),'6','_'))

#define   X2(x)     COND(((x)>0),"SUCX(X)",COND(((x)<0),"PREX(X)","NEUT(X)"))
#define   Y2(y)     COND(((y)>0),"SUCY(Y)",COND(((y)<0),"PREY(Y)","NEUT(Y)"))
#define   Z2(z)     COND(((z)>0),"SUCZ(Z)",COND(((z)<0),"PREZ(Z)","NEUT(Z)"))

main()
          {
          int       x,y,z;
          for       (x=-1 ; x<=+1 ; x++)
                    {
                    for       (y=-1 ; y<=+1 ; y++)
                              {
                              for       (z=-1 ; z<=+1 ; z++)
                                        {
                                        if        ((x==0) && (y==0) & (z==0))
                                        /* Le cas vide, qui conduirait a l'immobilite, est ignore...                                 */
                                                  {
                                                  }
                                        else
                                                  {
                                                  printf("procedure(");
                                                  printf("dc%c%c%c",X1(x),Y1(y),Z1(z));
                                                  printf(",");
                                                  printf("%s,%s,%s",X2(x),Y2(y),Z2(z));
                                                  printf(");\n");
                                                  }
                                        }
                              }
                    }
          }