/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D ' U N E S U R F A C E E S C A R G O T : */
/* */
/* */
/* Exemple : */
/* */
/* L'image 'v $xiirs/ESCA.82' */
/* en est un exemple... */
/* */
/* ............................. */
/* .....-.-......................... */
/* .........:..-................-..-....... */
/* ......-..:-........:....................-........ */
/* .....:..:..--...................-...........:-..:...... */
/* ......:..--..:....................-....-........--.--....... */
/* ....:.....--..-....-..........---...--...---.. o...:...-.:..... */
/* .....-..-:.-...............-.-...--...--:..: o..- -.-.-.o-....-... */
/* ...-.....-o..-...-...........---..:::...: -..o -..: -..:...o..:.-.-. */
/* ...--.o..:.:.--...: ...-.....-.-:..--....o ...o....-....:......:.:.-.. */
/* ......--..: ..: ...-: ..-.....----..-.....o....:. ..:-...o......-.-.:...-.. */
/* ..-.::.o .. ...:o ... .-...--..-:--..-.-...o:-..o -..o....o..--..:.:....:--:..... */
/* ...:.o..:-..-:..o ..-.O ... ...---..---....o-..: -..: .. :.....:...... -. .-.-..:o. */
/* .....:..:O..o ..- :..-O .. -..--.....--.....-..- ...-...:...:..-.:... -. -: O. O..o:. */
/* .-.:.: .: ..- :...o .. .. o..-O ... .........--......--..o-.-.-...- o. o- -. :- .:. */
/* .-.o.- .. -.-.:..o ... .-...O ..o ... ................:-.-....... o o o .- %. o. */
/* ...-...-.:O..: .. ... - ..-. ..o ... ................-.-..-... o. .- o o o -. o. */
/* ..-.:..o..o .. ..- o..-O ..- ... ... .............-.--.:.-..-- O :. .- : o - O. */
/* .....O.- .. ... :..:O ..o .. .. ... ........-..--.:....-. o O. O O. :- : .- -. */
/* .......-....O..- ..- ... .. :.. .......-...........: -: o o O. - %. O. :. : */
/* ...o.-..:... ..- .... ..- o...o..-............ o % .: O. O .: o -- : : .- */
/* ......o..-......::..-: ..- ..-. ..:..... .o o # - O. O o O. o o. #. - */
/* ...-..:.........-:...--...--.......... - % O : O. o O :. O #. .. #. */
/* .....-.....--........-............... .o O o -: O. o o O. - %. .. . */
/* .......-..--....................... .. % .o O. o o .: %. : :. .- -. - */
/* ................................. o. % -. o o -- #. % .- o. .. -. | dv */
/* ............................. o .o % .o O. # O .- %. : O. O. - */
/* .........................O :. : o. o .- O. % .: #. .- : */
/* ....................O O o. .o %. o .- O. O .- O. -. */
/* ............. :- .: O O. O .- :. %. : -. .- */
/* . .......: .: : O. o -- %. o. .- :. .- */
/* .....:. o- .o o. O. .: -- %. O. ... */
/* ........ .o.. :. :. o. o. o. .-. o. */
/* ........--.. -o.. O-. .:. :. -. .-. */
/* .....-..-....--... :-. O-. .:. .-. */
/* (d'apres l'image 'v $xiirs/ESCA.11') .....-..---:--.... .O:.. .:. :.. */
/* */
/* <----> */
/* du */
/* */
/* */
/* Author of '$xrs/escargot.11$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 1993??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 PRAGMA_CPP_____AUTORISER_LE_GooF
#define PRAGMA_CPP_____SI_LE_GooF_EST_ACTIVABLE_ALORS_FAIRE_DE_L_ARITHMETIQUE_ETENDUE_DES_NOMBRES_FLOTTANTS
@define PRAGMA_CL_____MODULE_NON_OPTIMISABLE
/* Le 'GooF' fut introduit le 20080126105048... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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
/* Introduit le 20041229181103 pour 'v $xrs/surfaces.12$I IFmageA4'... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N S D E B A S E E T U N I V E R S E L L E S : */
/* */
/*************************************************************************************************************************************/
#include xrv/dimensionnement.01.vv.I"
/* Introduit le 20130306152455... */
#include xrk/attractor.11.I"
#include xrv/particule.41.I"
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 3 */
/* D E F I N I T I O N D E L ' E S P A C E P H Y S I Q U E D A N S R ( D E B U T ) : */
/* */
/* */
/* Nota : */
/* */
/* Les extrema des coordonnees {x,y,z} */
/* ainsi que ceux de leurs differentielles */
/* {dx,dy,dz} sont fixees un peu arbitrairement */
/* et sans etre parametrees. */
/* */
/* */
/*************************************************************************************************************************************/
#include xrs/escargot.18.I"
/* Introduit le 20030130121550 a cause de 'v $xcc/cpp$Z INCLUDES_1.sed'. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 3 */
/* D E F I N I T I O N D E L ' E S P A C E P H Y S I Q U E D A N S R ( D E B U T ) : */
/* */
/*************************************************************************************************************************************/
#include xrk/attractor.12.I"
#include xrs/escargot.19.I"
/* Introduit le 20030130121550 a cause de 'v $xcc/cpp$Z INCLUDES_1.sed'. */
/*===================================================================================================================================*/
/* :Debut_listMN_N_ESCARGOT_DE_JEENER_11: */
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D ' U N E S U R F A C E E S C A R G O T : */
/* */
/* */
/* Definition de la surface (due a Patrice Jeener, 'v $xrs/escargot.11$K') : */
/* */
/* Elle est definie parametriquement */
/* en fonction des deux parametres 'u' */
/* et 'v' : */
/* */
/* k.u */
/* F (u,v) = e .cos(u).[cos(v) + 1] */
/* x */
/* */
/* k.u */
/* F (u,v) = e .sin(u).[cos(v) + 1] */
/* y */
/* */
/* */
/* k.u */
/* F (u,v) = e .[sin(v) + 2] */
/* z */
/* */
/* avec : */
/* */
/* u E [ - 2.p , + 2.p ] */
/* */
/* p */
/* v E [ - --- , + p ] */
/* 2 */
/* */
/* (ou 'p' designe 'pi'). */
/* */
/* */
/*************************************************************************************************************************************/
/* :Fin_listMN_N_ESCARGOT_DE_JEENER_11: */
/* ATTENTION, a cause de la definition de : */
/* */
/* DEFV(Local,DEFV(Float,INIT(parametre_k,PARAMETRE_K))); */
/* */
/* la commande : */
/* */
/* #include xrs/escargot.12.I" */
/* */
/* est situee apres le 'BCommande(...)'. */
#include xrs/escargot.14.I"
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F O N C T I O N S D E V I S U A L I S A T I O N E T D ' I N T E R P O L A T I O N : */
/* */
/*************************************************************************************************************************************/
#include xrs/surfaces.21.I"
#include xrs/escargot.13.I"
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D E S T R O I S F O N C T I O N S ' F ' : */
/* */
/*************************************************************************************************************************************/
#include xrs/escargot.11.I"
/* ATTENTION, il est imperatif que les fonctions derivables formellement soient definies */
/* dans un fichier a part afin qu'elles ne soient pas l'objet d'une double definition. En */
/* effet, on trouve dans 'v $xcc/cpp$Z' : */
/* */
/* $CA $module$w */
/* | $xcp/cpp$X ... -c$PASSE_D -e$PASSE_5 */
/* > $fichierR */
/* */
/* Ainsi, si par exemple la definition de 'RAYON(h,theta)' etait faite localement dans le */
/* fichier '$xrf/recursif.11$K', cette definition apparaitrait deux fois dans le fichier */
/* '$module$w' : une premiere fois en tete, provenant de '$PASSE_D' ou l'on ne trouve que */
/* les definitions du type '-define ...', puis une deuxieme fois a la suite, la ou se trouve */
/* concatene au fichier '$module$W' des '-define ...' le fichier '$fichierA' a compiler... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P O U R D E S R A I S O N S D E C O M P A T I B I L I T E : */
/* */
/*************************************************************************************************************************************/
#include xrk/integr.1B.vv.I"
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D E S I N I T I A L I S A T I O N S : */
/* */
/*************************************************************************************************************************************/
#include xrk/attractor.18.I"
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D ' U N E S U R F A C E E S C A R G O T : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
#include xrs/surfaces.41.I"
/* Introduit le 20150528135832... */
#include xrs/surfaces.22.I"
#include xrs/escargot.12.I"
/*..............................................................................................................................*/
INITIALISATIONS_GENERALES;
/* Initialisations generales faites au tout debut... */
iTRANSFORMAT_31(liste_PARAMETRE_K,PARAMETRE_K_IMPLICITE);
/* Initialisation du parametre 'k'. */
#include xrv/champs_5.1A.I"
#include xrs/surfaces.13.I"
GET_ARGUMENTSv(nombre_d_arguments
,BLOC(PROCESS_ARGUMENTS_GEOMETRIQUES;
GET_FICHIER_PARAMETRE("PARAMETRE_K=",_K);
PROCESS_ARGUMENTS_DE_VISUALISATION;
PROCESS_ARGUMENTS_DE_TRANSFORMATION_DE_u_v;
/* Introduit le 20060117145659. */
PROCESS_ARGUMENTS_DE_PERMUTATION_DES_COORDONNEES_ET_DES_DIFFERENTIELLES;
/* Introduit le 20050615091831. */
PROCESS_ARGUMENTS_DE_PROJECTION_DE_LA_SURFACE;
/* Introduit le 20041126095312. */
PROCESS_ARGUMENTS_DE_VISUALISATION_DE_LA_TEXTURE;
PROCESS_ARGUMENTS_DE_VISUALISATION_DE_LA_NORMALE;
PROCESS_ARGUMENTS_DE_DEFINITION_DES_COORDONNEES_CURVILIGNES;
PROCESS_ARGUMENTS_DE_DEFINITION_D_UNE_DROITE_DU_PLAN_UV;
/* Introduit le 20060831113610... */
PROCESS_ARGUMENTS_D_ACTIVATION_DE_L_ARITHMETIQUE_ETENDUE_ET_NON_BASIQUE_POUR_Fx_Fy_Fz;
/* Introduit le 20080126105048... */
PROCESS_ARGUMENTS_DE_GESTION_DE_LA_RELATIVITE_RESTREINTE;
)
);
#include xrs/surfaces.12.I"
/* Visualisation et evolution de la surface au cours du temps... */
VISUALISATION_DE_LA_SURFACE_AVEC_DIFFERENTIATION(BLOC(Bblock
EGAL(parametre_k,sPARAMETRE_K(numero_de_la_periode_courante));
Eblock
)
/* Calcul de la valeur du parametre 'k'. */
,Fx_Escargot_1,Fy_Escargot_1,Fz_Escargot_1
/* Fonctions definissant parametriquement la surface... */
,Pxyz_Escargot_1
,BLOC(VIDE;)
/* Il n'y a rien de specifique a calculer pour le point courant... */
);
RETU_Commande;
Eblock
ECommande