/*************************************************************************************************************************************/
/* */
/* I N I T I A L I S A T I O N D ' U N E I M A G E P A R */
/* U N C H A M P P O L Y N O M I A L E N ' X ' E T ' Y ' ( B I D I M E N S I O N N E L ) : */
/* */
/* */
/* Author of '$xci/PolyCartes_2D$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20071016145015). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* I N T E R F A C E ' listG ' : */
/* */
/* */
/* :Debut_listG: */
/* :Fin_listG: */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D I R E C T I V E S S P E C I F I Q U E S D E C O M P I L A T I O N : */
/* */
/*************************************************************************************************************************************/
#define GENERER_LES_GET_ARGUMENTS_DE_CONTROLE_DE_L_ARITHMETIQUE_ETENDUE_DES_NOMBRES_FLOTTANTS
/* Introduit le 20071224111821... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F I C H I E R S D ' I N C L U D E S : */
/* */
/*************************************************************************************************************************************/
#include INCLUDES_BASE
#include image_image_IMAGESF_EXT
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P A R A M E T R E S : */
/* */
/*************************************************************************************************************************************/
#include xci/genere_ch.01.I"
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* I N I T I A L I S A T I O N D ' U N E I M A G E P A R */
/* U N C H A M P P O L Y N O M I A L E N ' X ' E T ' Y ' ( B I D I M E N S I O N N E L ) : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE));
#include xci/genere_ch.02.I"
/*..............................................................................................................................*/
#include xci/genere_ch.03.I"
#include xci/genere_ch.11.I"
GET_ARGUMENTSi(nombre_d_arguments
,BLOC(GET_ARGUMENT_C("imageR=""R=",nom_imageR);
GET_ARGUMENT_L("standard=",les_images_sont_standards);
PROCESS_ARGUMENT_L("arithmetique_etendue_polynome_cartesienne=""ariepc=""ariec="
,Fpolynome_cartesienne_2D____`use_arithmetique_etendue_et_non_basique
,BLOC(VIDE;)
,BLOC(Bblock
EGAL(si_le_GooF_est_activable`use_arithmetique_etendue_et_non_basique
,Fpolynome_cartesienne_2D____`use_arithmetique_etendue_et_non_basique
);
Eblock
)
);
PROCESS_ARGUMENT_N("arithmetique_de_base_polynome_cartesienne=""aribpc=""aribc="
,Fpolynome_cartesienne_2D____`use_arithmetique_etendue_et_non_basique
,BLOC(VIDE;)
,BLOC(Bblock
EGAL(si_le_GooF_est_activable`use_arithmetique_etendue_et_non_basique
,NOTL(Fpolynome_cartesienne_2D____`use_arithmetique_etendue_et_non_basique)
);
/* Le 20071226162320 fut introduit le 'NOTL(...)' a cause de 'PROCESS_ARGUMENT_N(...)' car, */
/* en effet, lorsque le 'EGAL(...)' est execute, le parametre logique en cours de traitement */
/* est alors inverse ('v $xig/fonct$vv$DEF NOTL.valeur_L_par_defaut'). */
Eblock
)
);
/* Parametres d'arithmetique etendue introduits le 20071224111821... */
GET_ARGUMENT_F("Y_4__X_4=""Y4X4=""Y4_X4=""X_4__Y_4=""X4Y4=""X4_Y4=",Fpolynome_cartesienne_2D_____Y_4__X_4);
GET_ARGUMENT_F("Y_4__X_3=""Y4X3=""Y4_X3=""X_3__Y_4=""X3Y4=""X3_Y4=",Fpolynome_cartesienne_2D_____Y_4__X_3);
GET_ARGUMENT_F("Y_4__X_2=""Y4X2=""Y4_X2=""X_2__Y_4=""X2Y4=""X2_Y4=",Fpolynome_cartesienne_2D_____Y_4__X_2);
GET_ARGUMENT_F("Y_4__X_1=""Y4X1=""Y4_X1=""X_1__Y_4=""X1Y4=""X1_Y4=",Fpolynome_cartesienne_2D_____Y_4__X_1);
GET_ARGUMENT_F("Y_4__X_0=""Y4X0=""Y4_X0=""X_0__Y_4=""X0Y4=""X0_Y4=",Fpolynome_cartesienne_2D_____Y_4__X_0);
GET_ARGUMENT_F("Y_3__X_4=""Y3X4=""Y3_X4=""X_4__Y_3=""X4Y3=""X4_Y3=",Fpolynome_cartesienne_2D_____Y_3__X_4);
GET_ARGUMENT_F("Y_3__X_3=""Y3X3=""Y3_X3=""X_3__Y_3=""X3Y3=""X3_Y3=",Fpolynome_cartesienne_2D_____Y_3__X_3);
GET_ARGUMENT_F("Y_3__X_2=""Y3X2=""Y3_X2=""X_2__Y_3=""X2Y3=""X2_Y3=",Fpolynome_cartesienne_2D_____Y_3__X_2);
GET_ARGUMENT_F("Y_3__X_1=""Y3X1=""Y3_X1=""X_1__Y_3=""X1Y3=""X1_Y3=",Fpolynome_cartesienne_2D_____Y_3__X_1);
GET_ARGUMENT_F("Y_3__X_0=""Y3X0=""Y3_X0=""X_0__Y_3=""X0Y3=""X0_Y3=",Fpolynome_cartesienne_2D_____Y_3__X_0);
GET_ARGUMENT_F("Y_2__X_4=""Y2X4=""Y2_X4=""X_4__Y_2=""X4Y2=""X4_Y2=",Fpolynome_cartesienne_2D_____Y_2__X_4);
GET_ARGUMENT_F("Y_2__X_3=""Y2X3=""Y2_X3=""X_3__Y_2=""X3Y2=""X3_Y2=",Fpolynome_cartesienne_2D_____Y_2__X_3);
GET_ARGUMENT_F("Y_2__X_2=""Y2X2=""Y2_X2=""X_2__Y_2=""X2Y2=""X2_Y2=",Fpolynome_cartesienne_2D_____Y_2__X_2);
GET_ARGUMENT_F("Y_2__X_1=""Y2X1=""Y2_X1=""X_1__Y_2=""X1Y2=""X1_Y2=",Fpolynome_cartesienne_2D_____Y_2__X_1);
GET_ARGUMENT_F("Y_2__X_0=""Y2X0=""Y2_X0=""X_0__Y_2=""X0Y2=""X0_Y2=",Fpolynome_cartesienne_2D_____Y_2__X_0);
GET_ARGUMENT_F("Y_1__X_4=""Y1X4=""Y1_X4=""X_4__Y_1=""X4Y1=""X4_Y1=",Fpolynome_cartesienne_2D_____Y_1__X_4);
GET_ARGUMENT_F("Y_1__X_3=""Y1X3=""Y1_X3=""X_3__Y_1=""X3Y1=""X3_Y1=",Fpolynome_cartesienne_2D_____Y_1__X_3);
GET_ARGUMENT_F("Y_1__X_2=""Y1X2=""Y1_X2=""X_2__Y_1=""X2Y1=""X2_Y1=",Fpolynome_cartesienne_2D_____Y_1__X_2);
GET_ARGUMENT_F("Y_1__X_1=""Y1X1=""Y1_X1=""X_1__Y_1=""X1Y1=""X1_Y1=",Fpolynome_cartesienne_2D_____Y_1__X_1);
GET_ARGUMENT_F("Y_1__X_0=""Y1X0=""Y1_X0=""X_0__Y_1=""X0Y1=""X0_Y1=",Fpolynome_cartesienne_2D_____Y_1__X_0);
GET_ARGUMENT_F("Y_0__X_4=""Y0X4=""Y0_X4=""X_4__Y_0=""X4Y0=""X4_Y0=",Fpolynome_cartesienne_2D_____Y_0__X_4);
GET_ARGUMENT_F("Y_0__X_3=""Y0X3=""Y0_X3=""X_3__Y_0=""X3Y0=""X3_Y0=",Fpolynome_cartesienne_2D_____Y_0__X_3);
GET_ARGUMENT_F("Y_0__X_2=""Y0X2=""Y0_X2=""X_2__Y_0=""X2Y0=""X2_Y0=",Fpolynome_cartesienne_2D_____Y_0__X_2);
GET_ARGUMENT_F("Y_0__X_1=""Y0X1=""Y0_X1=""X_1__Y_0=""X1Y0=""X1_Y0=",Fpolynome_cartesienne_2D_____Y_0__X_1);
GET_ARGUMENT_F("Y_0__X_0=""Y0X0=""Y0_X0=""X_0__Y_0=""X0Y0=""X0_Y0=",Fpolynome_cartesienne_2D_____Y_0__X_0);
/* On rappelle le 20080325133715 que tous les coefficients sont nuls par defaut, sauf les */
/* deux suivants : */
/* */
/* X1Y0=1 */
/* X0Y1=1 */
/* */
/* Le 20171128113319, voici quelques courbes classiques : */
/* */
/* -champ "cercle" : */
/* */
/* X2Y0=+1 */
/* X0Y2=+1 */
/* X1Y0=0 */
/* X0Y1=0 */
/* */
/* */
/* -champ "strophoide" d'axe de symetrie horizontal : */
/* */
/* X3Y0=+1 */
/* X2Y0=+1 */
/* X1Y2=+1 */
/* X1Y0=0 */
/* X0Y2=-1 */
/* X0Y1=0 */
/* */
/* */
/* -champ "strophoide" d'axe de symetrie vertical : */
/* */
/* X0Y3=+1 */
/* X0Y2=+1 */
/* X2Y1=+1 */
/* X0Y1=0 */
/* X2Y0=-1 */
/* X1Y0=0 */
/* */
/* */
/* -champ "lemniscate" de grand axe horizontal : */
/* */
/* X4Y0=+1 */
/* X0Y4=+1 */
/* X2Y2=+2 */
/* X2Y0=-2 */
/* X0Y2=+2 */
/* X0Y1=0 */
/* X1Y0=0 */
/* */
/* */
/* -champ "lemniscate" de grand axe vertical : */
/* */
/* X4Y0=+1 */
/* X0Y4=+1 */
/* X2Y2=+2 */
/* X2Y0=+2 */
/* X0Y2=-2 */
/* X0Y1=0 */
/* X1Y0=0 */
/* */
/* */
/* -champ "courbe elliptique" d'equation Y^2 - X^3 + X - 1 = 0 : */
/* */
/* Y2X0=+1 */
/* Y1X0=0 */
/* Y0X3=-1 */
/* Y0X2=0 */
/* Y0X1=+1 */
/* Y0X0=-1 */
/* */
PROCESS_ARGUMENTS_DE_PARAMETRAGE_2D_DE_____ACCES_A_UN_CHAMP_3D;
)
);
#include xci/genere_ch.04.I"
GENERATION_DU_CHAMP_DEMANDE(Fpolynome_cartesienne_2D,nom_imageR,Zf_ARGUMENT_INUTILE,Tf_ARGUMENT_INUTILE,UPD_CHAMP_S);
/* L'argument 'Tf_ARGUMENT_INUTILE' a ete introduit le 20100209111245. */
RETU_Commande;
Eblock
ECommande