
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D E L A D O U B L E B O U T E I L L E D I T E " R E C T O - V E R S O " : */
/* */
/* */
/* Definition de la surface (due a Patrice Jeener, 'v $xrs/bKlein.71$K') : */
/* */
/* Elle est definie parametriquement */
/* en fonction des deux parametres 'u' */
/* et 'v' : */
/* */
/* W(u,v) = A.sin((M+1).u) + T */
/* */
/* 2 D 1 */
/* F (u,v) = B .sin (M.u) + ---.W(u,v).cos(v) */
/* x B */
/* */
/* 2 1 */
/* F (u,v) = C .cos(M.u) + ---.W(u,v).sin((M+1).u).cos(v) */
/* y C */
/* */
/* 1 */
/* F (u,v) = - ---.W(u,v).sin(v) */
/* z B */
/* */
/* */
/* avec : */
/* */
/* u ∈ [ -p , +p ] */
/* */
/* v ∈ [ -p , +p ] */
/* */
/* (ou 'p' designe 'pi'). */
/* */
/* */
/* A titre d'exemple, voici la valeur par */
/* defaut des parametres {M,A,B,C,D,T} : */
/* */
/* M = +1 */
/* T = -4 */
/* A = +3 */
/* B = +2 */
/* C = +3 */
/* D = +3 */
/* */
/* (augmenter 'D' accentuera sa courbure...). */
/* */
/* */
/*************************************************************************************************************************************/