#######################################################################################################################################
#                                                                                                                                     #
#         D E F I N I T I O N   D ' U N   O R N E M E N T   D E   Y O U R T E   F U N E R A I R E                                     #
#         E N   V E R S I O N   R E C U R S I V E  :                                                                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.YOUF.31.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20070720212435).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setParam            _____RVisu1                   0.02

$Z        setParam            _____RVisu2                   0.08

$Z        setParam            _____xP1G                     +0.1

$Z        setParam            _____yP1G                     +0.5

$Z        setParam            _____xP1_                     +0.5

$Z        setParam            _____yP1_                     +0.1

$Z        setParam            _____xP1D                     +0.9

$Z        setParam            _____yP1D                     +0.5

$Z        setParam            _____dxP1G                    0

$Z        setParam            _____dyP1G                    -1

$Z        setParam            _____dxP1_                    +1

$Z        setParam            _____dyP1_                    0

$Z        setParam            _____dxP1D                    0

$Z        setParam            _____dyP1D                    +1

$Z                  alias     genere1   'set       FiChIeR=\!:1 ; set VaLeUr="\!:2*"                                              ;    \\
$Z                                       echo      "$VaLeUr"                                                                      |    \\
$Z                                       $SE       -e "s/  */$K_BLANC/g"                                                          |    \\
$Z                                       $R        "$K_BLANC" "$K_NL"                                                             |    \\
$Z                                       $GRE      -v '"'"'^ *$'"'"'                                >>! $FiChIeR                  ;    \\
$Z                                       unset     VaLeUr FiChIeR'
$Z                                      # Alias introduit le 20070724095913...                                                        #

$Z                  genere1   $FPoint1$COORD_X              $_____xP1G          $_____xP1_          $_____xP1D
$Z                  genere1   $FPoint1$COORD_Y              $_____yP1G          $_____yP1_          $_____yP1D
$Z                  genere1   $FPoint1.d$COORD_X            $_____dxP1G         $_____dxP1_         $_____dxP1D
$Z                  genere1   $FPoint1.d$COORD_Y            $_____dyP1G         $_____dyP1_         $_____dyP1D
$Z                  genere1   $FPoint1.rayon                $_____RVisu1        $_____RVisu2        $_____RVisu1
$Z                  genere1   $FPoint1.ancrage              $EXIST              $NEXIST             $EXIST
$Z                  genere1   $FPoint1.ancrer               $EXIST              $EXIST              $EXIST
$Z                  genere1   $FPoint1.dupliquer            $NEXIST             $EXIST              $NEXIST
$Z                  genere1   $FPoint1.exemplaires          1                   2                   1