#######################################################################################################################################
#                                                                                                                                     #
#         M O D U L E  :                                                                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.IXEO.D.21.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        set       RVB_2000="R=$Rayon_2000 ROUGE=$R_2000 VERTE=$V_2000 BLEUE=$B_2000"

$Z        set       dp1=0.1
$Z        set       dp2=0.3

$Z        set       dn1=-$dp1
$Z        set       dn2=-$dp2

$Z        repeat    1         echo " X=-0.95 Y=+0.20 Z=$Z_2000 dX=$dp1 dY=$dp2 dZ=$d0  $RVB_2000 "                      >>! $xTV/l2
$Z        repeat    2         echo " X=-0.85 Y=+0.30 Z=$Z_2000 dX=$dp2 dY=$dp1 dZ=$d0  $RVB_2000 "                      >>! $xTV/l2
$Z        repeat    2         echo " X=-0.65 Y=+0.30 Z=$Z_2000 dX=$dp2 dY=$dn1 dZ=$d0  $RVB_2000 "                      >>! $xTV/l2
$Z        repeat    2         echo " X=-0.55 Y=+0.20 Z=$Z_2000 dX=$dn1 dY=$dn2 dZ=$d0  $RVB_2000 "                      >>! $xTV/l2
$Z        repeat    2         echo " X=-0.95 Y=-0.30 Z=$Z_2000 dX=$d0  dY=$dn2 dZ=$d0  $RVB_2000 "                      >>! $xTV/l2
$Z        repeat    1         echo " X=-0.55 Y=-0.30 Z=$Z_2000 dX=$dp1 dY=$dn2 dZ=$d0  $RVB_2000 "                      >>! $xTV/l2

$Z        repeat    1         echo " X=-0.45 Y=+0.20 Z=$Z_2000 dX=$dp1 dY=$dp2 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.1
$Z        repeat    2         echo " X=-0.35 Y=+0.30 Z=$Z_2000 dX=$dp2 dY=$dp1 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.1
$Z        repeat    2         echo " X=-0.15 Y=+0.30 Z=$Z_2000 dX=$dp2 dY=$dn1 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.1
$Z        repeat    2         echo " X=-0.05 Y=+0.20 Z=$Z_2000 dX=$dp1 dY=$dn2 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.1
$Z        repeat    2         echo " X=-0.05 Y=-0.20 Z=$Z_2000 dX=$dn1 dY=$dn2 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.1
$Z        repeat    2         echo " X=-0.15 Y=-0.30 Z=$Z_2000 dX=$dn2 dY=$dn1 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.1
$Z        repeat    2         echo " X=-0.35 Y=-0.30 Z=$Z_2000 dX=$dn2 dY=$dp1 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.1
$Z        repeat    2         echo " X=-0.45 Y=-0.20 Z=$Z_2000 dX=$dn1 dY=$dp2 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.1
$Z        repeat    1         echo " X=-0.45 Y=+0.20 Z=$Z_2000 dX=$dp1 dY=$dp2 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.1

$Z        repeat    1         echo " X=+0.05 Y=+0.20 Z=$Z_2000 dX=$dp1 dY=$dp2 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.2
$Z        repeat    2         echo " X=+0.15 Y=+0.30 Z=$Z_2000 dX=$dp2 dY=$dp1 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.2
$Z        repeat    2         echo " X=+0.35 Y=+0.30 Z=$Z_2000 dX=$dp2 dY=$dn1 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.2
$Z        repeat    2         echo " X=+0.45 Y=+0.20 Z=$Z_2000 dX=$dp1 dY=$dn2 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.2
$Z        repeat    2         echo " X=+0.45 Y=-0.20 Z=$Z_2000 dX=$dn1 dY=$dn2 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.2
$Z        repeat    2         echo " X=+0.35 Y=-0.30 Z=$Z_2000 dX=$dn2 dY=$dn1 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.2
$Z        repeat    2         echo " X=+0.15 Y=-0.30 Z=$Z_2000 dX=$dn2 dY=$dp1 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.2
$Z        repeat    2         echo " X=+0.05 Y=-0.20 Z=$Z_2000 dX=$dn1 dY=$dp2 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.2
$Z        repeat    1         echo " X=+0.05 Y=+0.20 Z=$Z_2000 dX=$dp1 dY=$dp2 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.2

$Z        repeat    1         echo " X=+0.55 Y=+0.20 Z=$Z_2000 dX=$dp1 dY=$dp2 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.3
$Z        repeat    2         echo " X=+0.65 Y=+0.30 Z=$Z_2000 dX=$dp2 dY=$dp1 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.3
$Z        repeat    2         echo " X=+0.85 Y=+0.30 Z=$Z_2000 dX=$dp2 dY=$dn1 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.3
$Z        repeat    2         echo " X=+0.95 Y=+0.20 Z=$Z_2000 dX=$dp1 dY=$dn2 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.3
$Z        repeat    2         echo " X=+0.95 Y=-0.20 Z=$Z_2000 dX=$dn1 dY=$dn2 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.3
$Z        repeat    2         echo " X=+0.85 Y=-0.30 Z=$Z_2000 dX=$dn2 dY=$dn1 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.3
$Z        repeat    2         echo " X=+0.65 Y=-0.30 Z=$Z_2000 dX=$dn2 dY=$dp1 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.3
$Z        repeat    2         echo " X=+0.55 Y=-0.20 Z=$Z_2000 dX=$dn1 dY=$dp2 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.3
$Z        repeat    1         echo " X=+0.55 Y=+0.20 Z=$Z_2000 dX=$dp1 dY=$dp2 dZ=$d0  $RVB_2000 "                      >>! $xTV/l0.3

$Z        unset     RVB_2000



Copyright © Jean-François Colonna, 2019-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2019-2021.