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.  
  143.  
  144.  

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