#######################################################################################################################################
#                                                                                                                                     #
#         M O D U L E  :                                                                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PRIM.4.11.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

#20131031114043____:$Z        Pal                                                                                                     #

$Z        set                 Part0=$_____Part0
$Z        set                 PartN=$_____PartN
$Z                                      # Je note le 20080610095738 que '$_____PartN' doit etre un carre parfait...                   #

$Z        @                   PointsXY = $PartN - $Part0
$Z        @                   PointsXY = $PointsXY + 1

$Z        $DELETE             $xTV/COORDONNEES$COORD_X
$Z        $DELETE             $xTV/COORDONNEES$COORD_Y
$Z        $DELETE             $xTV/COORDONNEES$COORD_Z
$Z        $DELETE             $xTV/NIVEAUX
$Z        $DELETE             $xTV/RAYONS

$Z        if                  ($?_____Palette == $NEXIST) then
$Z                            $DELETE             $xTV/COULEURS$ROUGE
$Z                            $DELETE             $xTV/COULEURS$VERTE
$Z                            $DELETE             $xTV/COULEURS$BLEUE
$Z        else
$Z        endif

$Z        set                 RacPointsXY=`$xcg/RACX.01$X x=$PointsXY`
$Z        set                 dimXY=`$xcg/MIN2.01$X x=$dimX y=$dimY`
$Z        set                 Rapport=`$xcg/DIVZ.01$X x=$dimXY y=$RacPointsXY`

#20221004155821____:$Z        set                 Rayon=`$xcg/DIVZ.01$X x=$Rapport y=$_____Rayon`                                     #

$Z        if                  ($?_____Rayon == $EXIST) then
$Z                                      # Test introduit le a cause de 'v $xiirv/$Fnota _____Rayon' ou la variable '$_____Rayon'      #
$Z                                      # a un autre usage dans 'v $xiirs/.PROJ.51.1.$U _____Rayon'...                                #
$Z                            set                 Rayon=`$xcg/DIVZ.01$X x=$Rapport y=$_____Rayon`
$Z        else
$Z        endif