#######################################################################################################################################
#                                                                                                                                     #
#         E Q U A T I O N   D ' U N E   D R O I T E   D A N S   L E   P L A N   { u , v }  :                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.BKLN.5C.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20170211072515).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____NTours                   1

$Z                  set       MiNu_duv=$MiNu
$Z                  set       MaXu_duv=$MaXu
$Z                                      # Definitions introduites le 20170212092245...                                                #

$Z                  set       MiNv_duv=`calcul ((($MiNv)-($MiNv))/$_____NTours)+($MiNv)`
$Z                  set       MaXv_duv=`calcul ((($MaXv)-($MiNv))/$_____NTours)+($MiNv)`

$Z                  set       InTv=$MaXv_duv

$Z                  set       _____Aduv=`calcul (($InTv)-($MiNv))`
$Z                  set       _____Bduv=`calcul -(($MaXu)-($MiNu))`
$Z                  set       _____Cduv=`calcul ((($MaXu)*($MiNv))-(($MiNu)*($InTv)))`

$Z                  set       PaRtIcUlEPara1="$K_VIDE"

#20170212093330____:$Z                  if        ($dimX != $dimY) then                                                               #
#20170212093330____:$Z                  else                                                                                          #
#20170212093330____:$Z                  endif                                                                                         #

$Z                  set       PaRtIcUlEPara1="$PaRtIcUlEPara1"" coordonnees_dans_0_1=FAUX"
$Z                  set       PaRtIcUlEPara1="$PaRtIcUlEPara1"" AXYZ=1 BXYZ=0"
$Z                  set       PaRtIcUlEPara1="$PaRtIcUlEPara1"" centrer_coordonnees=VRAI"
$Z                  set       PaRtIcUlEPara1="$PaRtIcUlEPara1"" centrer_coordonnee_X=VRAI"
$Z                  set       PaRtIcUlEPara1="$PaRtIcUlEPara1"" centrer_coordonnee_Y=VRAI"
$Z                  set       PaRtIcUlEPara1="$PaRtIcUlEPara1"" centrer_coordonnee_Z=FAUX"