Télécharger la plaquette Cast3M


fr en

Télécharger @palette.procedur

Retour à la liste

Numérotation des lignes : 

  1. * @PALETTE  PROCEDUR  BP208322  20/07/02    21:15:02     10633          
  2. **************************************************************************
  3. *  Procedure qui construit une palette de noms de couleurs Cast3M
  4. *  differentes pour leur utilisation dans des evolutions (par exemple)
  5. *
  6. *  Syntaxe :
  7. *  ---------
  8. *            LMOT1 = @PALETTE NCOUL1 ( MOT1 );
  9. *            
  10. *  Entrée  :
  11. *  ---------
  12. *    NCOUL1   : nombre de couleurs (type ENTIER) compris entre 1 et 20
  13. *    (MOT1)   : mot optionnel pour preciser le type de palette 
  14. *               qu'on souhaite utiliser parmi :
  15. *                - 'ARCENCIEL' (valeur par defaut)
  16. *                - 'HIVER'   --> todo
  17. *                - 'AUTOMNE' --> todo
  18. *
  19. *  Sortie  :
  20. *  ---------
  21. *    LMOT1    : LISTMOTS compose de NCOUL couleurs differentes.
  22. *
  23. *  Creation/modifs : 
  24. *  -----------------
  25. *    BP, 2020/07/01
  26. *
  27. **************************************************************************
  28. DEBPROC @PALETTE NCOUL1*'ENTIER' MOT1/'MOT' ;
  29.  
  30. **************************************************************************
  31. * VERIFICATION DES ARGUMENTS
  32. **************************************************************************
  33.  
  34. * NOMBRE DE COULEURS
  35.   SI (NCOUL1 < 0) ;
  36.     ERRE 36 'AVEC' NCOUL1;
  37.   FINSI ;
  38.   SI (NCOUL1 > 20) ;
  39.     ERRE  36 'AVEC' NCOUL1;
  40.   FINSI ;  
  41.  
  42. * PALETTE CHOISIE
  43.   SI (NEG (TYPE MOT1) (MOT 'MOT'));
  44.     MOT1 = MOT 'ARCENCIEL';
  45.   FINSI;
  46.   palok = (EGA MOT1 'ARCENCIEL') ;
  47. *      OU (EGA MOT1 'HIVER') 
  48. *      OU (EGA MOT1 'AUTOMNE');
  49.   SI (NON palok);
  50.     ERRE 'NOM DE PALETTE INCONNU';
  51.     QUIT @PALETTE;
  52.   FINSI;
  53.  
  54. * CAS SPECIAUX
  55.   SI (NCOUL1 EGA 0) ;
  56.     LMOT1 = MOTS ; QUIT  @PALETTE;     
  57.   FINSI;  
  58.   SI (NCOUL1 EGA 1) ;
  59.     LMOT1 = MOTS 'DEFA' ; QUIT  @PALETTE;     
  60.   FINSI;  
  61.  
  62.  
  63. **************************************************************************
  64. * ARCENCIEL
  65. **************************************************************************
  66.   SI (EGA MOT1 'ARCENCIEL');
  67.     SI (EGA NCOUL1 2);
  68.       LMOT1 = MOTS               'AZUR'                             'ROUG';
  69.     FINSI;
  70.     SI (EGA NCOUL1 3);
  71.       LMOT1 = MOTS               'AZUR'        'VERT'               'ROUG'        ;
  72.     FINSI;
  73.     SI (EGA NCOUL1 4);
  74.       LMOT1 = MOTS               'AZUR'        'VERT'        'ORAN' 'ROUG'        ;
  75.     FINSI;
  76.     SI (EGA NCOUL1 5);
  77.       LMOT1 = MOTS        'BLEU' 'AZUR'        'VERT'        'ORAN' 'ROUG'        ;
  78.     FINSI;
  79.     SI (EGA NCOUL1 6);
  80.       LMOT1 = MOTS        'BLEU' 'AZUR'        'VERT' 'OR'   'ORAN' 'ROUG'        ;
  81. *       LMOT1 = MOTS        'BLEU' 'AZUR' 'TURQ' 'VERT'        'ORAN' 'ROUG'        ;
  82.     FINSI;
  83.     SI (EGA NCOUL1 7);
  84.       LMOT1 = MOTS        'BLEU' 'AZUR' 'TURQ' 'VERT' 'OR'   'ORAN' 'ROUG'        ;
  85.     FINSI;
  86.     SI (EGA NCOUL1 8);
  87.       LMOT1 = MOTS 'MARI' 'BLEU' 'AZUR' 'TURQ' 'VERT' 'OR'   'ORAN' 'ROUG'        ;
  88.     FINSI;
  89.     SI (EGA NCOUL1 9);
  90.       LMOT1 = MOTS 'MARI' 'BLEU' 'AZUR' 'TURQ' 'VERT' 'OR'   'ORAN' 'ROUG' 'BRUN' ;
  91.     FINSI;
  92.     SI (EGA NCOUL1 10);
  93.       LMOT1 = MOTS 'VIOL'        'MARI' 'BLEU' 'AZUR'        'TURQ' 'VERT' 
  94.                                  'OR'   'ORAN'        'ROUG'        'BRUN' ;
  95.     FINSI;
  96.     SI (EGA NCOUL1 11);
  97.       LMOT1 = MOTS 'VIOL'        'MARI' 'BLEU' 'AZUR'        'TURQ' 'VERT' 
  98.                                  'OR'   'ORAN' 'CORA' 'ROUG'        'BRUN' ;
  99.     FINSI;
  100.     SI (EGA NCOUL1 12);
  101.       LMOT1 = MOTS 'VIOL'        'MARI' 'BLEU' 'AZUR' 'CYAN' 'TURQ' 'VERT' 
  102.                                  'OR'   'ORAN' 'CORA' 'ROUG'        'BRUN' ;
  103.     FINSI;
  104.     SI (EGA NCOUL1 13);
  105.       LMOT1 = MOTS 'VIOL'        'MARI' 'BLEU' 'AZUR' 'CYAN' 'TURQ' 'VERT' 
  106.                                  'OR'   'ORAN' 'CORA' 'ROUG' 'BRIQ' 'BRUN' ;
  107.     FINSI;
  108.     SI (EGA NCOUL1 14);
  109.       LMOT1 = MOTS 'VIOL'        'MARI' 'BLEU' 'AZUR' 'CYAN' 'TURQ' 'VERT' 
  110.                    'LIME'        'OR'   'ORAN' 'CORA' 'ROUG' 'BRIQ' 'BRUN' ;
  111.     FINSI;
  112.     SI (EGA NCOUL1 15);
  113.       LMOT1 = MOTS 'VIOL'        'MARI' 'BLEU' 'AZUR' 'CYAN' 'TURQ' 'VERT' 
  114.                    'LIME' 'JAUN' 'OR'   'ORAN' 'CORA' 'ROUG' 'BRIQ' 'BRUN' ;
  115.     FINSI;
  116.     SI (EGA NCOUL1 16);
  117.       LMOT1 = MOTS 'VIOL' 'INDI' 'MARI' 'BLEU' 'AZUR' 'CYAN' 'TURQ' 'VERT' 
  118.                    'LIME' 'JAUN' 'OR'   'ORAN' 'CORA' 'ROUG' 'BRIQ' 'BRUN' ;
  119.     FINSI;
  120.     SI (EGA NCOUL1 17);
  121.       LMOT1 = MOTS 'ROSE' 'VIOL' 'INDI' 'MARI' 'BLEU' 'AZUR' 'CYAN' 'TURQ' 'VERT' 
  122.                    'LIME' 'JAUN' 'OR'   'ORAN' 'CORA' 'ROUG' 'BRIQ' 'BRUN' ;
  123.     FINSI;
  124.     SI (EGA NCOUL1 18);
  125.       LMOT1 = MOTS 'ROSE' 'VIOL' 'INDI' 'MARI' 'BLEU' 'AZUR' 'CYAN' 'TURQ' 'VERT' 
  126.                    'LIME' 'JAUN' 'OR'   'ORAN' 'CORA' 'ROUG' 'BRIQ' 'BRUN' 'CARA';
  127.     FINSI;
  128.     SI (EGA NCOUL1 19);
  129.       LMOT1 = MOTS 'ROSE' 'VIOL' 'INDI' 'MARI' 'BLEU' 'AZUR' 'CYAN' 'TURQ' 'VERT' 
  130.                    'LIME' 'JAUN' 'OR'   'ORAN' 'CORA' 'ROUG' 'BRIQ' 'BRUN' 'CARA' 'BEIG';
  131.     FINSI;
  132.     SI (EGA NCOUL1 20);
  133.       LMOT1 = MOTS 'PEAU' 'ROSE' 'VIOL' 'INDI' 'MARI' 'BLEU' 'AZUR' 'CYAN' 'TURQ' 'VERT' 
  134.                    'LIME' 'JAUN' 'OR'   'ORAN' 'CORA' 'ROUG' 'BRIQ' 'BRUN' 'CARA' 'BEIG' ;
  135.     FINSI;
  136.  
  137.   FINSI;
  138.  
  139.  
  140.  
  141. FINPROC LMOT1;
  142.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales