/*************************************************************************************************************************************/ /* */ /* 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...). */ /* */ /* */ /*************************************************************************************************************************************/