#######################################################################################################################################
# #
# I N T R U D U C T I O N D E P O I N T S I N T E R M E D I A I R E S : #
# #
# #
# Author of '$xiirs/.CAYA.V2.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20230219140043). #
# #
#######################################################################################################################################
$Z setParam _____PDivLambda 10
$Z $DELETE $FLiStE_PoInTs.1$COORD_X
$Z $DELETE $FLiStE_PoInTs.1$COORD_Y
$Z $CA $FLiStE_PoInTs | \
$Z $AW ' { print $3 } ' | \
$Z $SE -e 's/^.*=//' \
$Z > $FLiStE_PoInTs.1$COORD_X
$Z $CA $FLiStE_PoInTs | \
$Z $AW ' { print $4 } ' | \
$Z $SE -e 's/^.*=//' \
$Z > $FLiStE_PoInTs.1$COORD_Y
$Z $DELETE $FLiStE_PoInTs.2$COORD_X
$Z $DELETE $FLiStE_PoInTs.2$COORD_Y
$Z $xrv/interpole.01$X \
$Z ne=0 \
$Z LISTE_X=$FLiStE_PoInTs.1$COORD_X \
$Z LISTE_Y=$FLiStE_PoInTs.1$COORD_Y \
$Z diviseur_lambda=$_____PDivLambda \
$Z PX=1 PY=0 pZ=0 PL=0 \
$Z > $FLiStE_PoInTs.2$COORD_X
$Z $xrv/interpole.01$X \
$Z ne=0 \
$Z LISTE_X=$FLiStE_PoInTs.1$COORD_X \
$Z LISTE_Y=$FLiStE_PoInTs.1$COORD_Y \
$Z diviseur_lambda=$_____PDivLambda \
$Z PX=0 PY=1 pZ=0 PL=0 \
$Z > $FLiStE_PoInTs.2$COORD_Y
$Z $DELETE $FLiStE_PoInTs.1$COORD_X
$Z $DELETE $FLiStE_PoInTs.1$COORD_Y
$Z $DELETE $FLiStE_PoInTs
$Z $PAST $FLiStE_PoInTs.2$COORD_X $FLiStE_PoInTs.2$COORD_Y | \
$Z $AW ' { print "$UNDEF $UNDEF X=" $1 " Y=" $2 " Z=$UNDEF " } ' \
$Z > $FLiStE_PoInTs
$Z $DELETE $FLiStE_PoInTs.2$COORD_X
$Z $DELETE $FLiStE_PoInTs.2$COORD_Y