#######################################################################################################################################
# #
# V I S U A L I S A T I O N D E S P R E M I E R E S D E C I M A L E S D E P I #
# S U R U N E H E L I C E : #
# #
# #
# Author of '$xiirv/.PIPO.H1.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20151217154652). #
# #
#######################################################################################################################################
$Z SETParam _____SupPartieEntiere $EXIST
$Z # Parametre introduit le 20240303114313 la valeur par defaut garantissant la compatibilite #
$Z # anterieure... #
$Z SETParam _____VraieHelice $NEXIST
$Z # Parametre introduit le 20200830142248 la valeur par defaut garantissant la compatibilite #
$Z # anterieure... #
$Z SETParam _____EnFaitSpirale $NEXIST
#20240220112635____:$Z SETParam _____FacteurPasSpirale 0.1 #
$Z SETParam _____FacteurPasSpirale 1
$Z # Parametres introduits le 20240220102721 la valeur par defaut garantissant la compatibilite #
$Z # anterieure... #
$Z SETParam _____Etiquettage $NEXIST
$Z # Parametre introduit le 20200901093315 la valeur par defaut garantissant la compatibilite #
$Z # anterieure... #
$Z setParam _____KNombres 0.020
$Z # Parametre introduit le 20200901094703... #
$Z setParam _____RNombres 0.007
$Z # Parametre introduit le 20240224142047... #
$Z setParam _____TranslationZ 0.05
$Z # Parametre introduit le 20200901134850... #
$Z setParam _____Z0 +1
$Z setParam _____ZN -1
$Z setParam _____ParticulePara "$K_VIDE"
$Z setParam _____VRayonD 0.008
$Z setParam _____VRayonA 0.008
$Z setParam _____DistanceMini 0.005
$Z setParam _____Palette $xiP/trou_noir.74
$Z setParam _____NiveauBLANC $BLANC
$Z # Parametre introduit le 20200817105247... #
$Z setParam _____NiveauNOIR $NOIR
$Z # Parametre introduit le 20200817105247... #
$Z setParam _____Zoom 0.8
$Z setParam _____RotationX `GetParam $xrv/particule.10$X ROTATION_OX`
$Z setParam _____RotationY `GetParam $xrv/particule.10$X ROTATION_OY`
$Z setParam _____RotationZ `GetParam $xrv/particule.10$X ROTATION_OZ`
$Z setParam _____Grossissement 1.5
$Z setParam _____Speculaire `GetParam $xrv/particule.10$X speculaire`
$Z setParam _____Couronne `GetParam $xrv/particule.10$X couronne`
$Z setParam _____Redirection "$K_VIDE"
$Z setParam _____CorrectionGamma $xiP/gris.A7
$Z # Parametre introduit le 20240308112331... #
$Z FilSTmpB FiLePoInTs
$Z SET index=1
$Z foreach __________FDecimales ($_____FDecimales)
$Z set __________VRayonD=$_____VRayonD[$index]
$Z set __________VRayonA=$_____VRayonA[$index]
$Z set __________Palette=$_____Palette[$index]
$Z if ("$__________FDecimales" == "HELICE") then
$Z FilSTmpB __________FDecimales
$Z set G__________FDecimales=$EXIST
$Z set PrEmIeRe_DeCiMaLe=`$CA $_____FDecimales[1] | $HEA -1 | $SE -e "s/^[^.]*\.//" -e 's/^\(.\).*$/\1/'`
$Z $xrv/accumule.01$X ne=`calcul $_____NDecimales*$Base10` \
$Z fichier=1 | \
$Z $xrv/ADD2.11$X ne=0 \
$Z fichier1== \
$Z fichier2=`calcul -1+$PrEmIeRe_DeCiMaLe` | \
$Z $xrv/RESZ.11$X ne=0 \
$Z fichier1== \
$Z fichier2=$Base10 \
$Z formater=VRAI signe="$K_VIDE" \
$Z >> $__________FDecimales
$Z else
$Z set G__________FDecimales=$NEXIST
$Z endif
#20181016184745____:$Z $CA $_____FDecimales | \ #
#20181016184745____:$Z $SE -e "s/^ *//" \ #
#20181016184745____:$Z -e "s/^3[,.]//" | \ #
#20181016184745____:$Z $GRE -v '^ *$' | \ #
#20181016184745____:$Z $GRE -v 'alcul ' | \ #
#20181016184745____:$Z $SE -e "s/ //g" | \ #
#20181016184745____:$Z $SE -e "s/\(.\)/\1@/g" | \ #
#20181016184745____:$Z $R "@" "$K_NL" | \ #
#20181016184745____:$Z $GRE -v '^ *$' | \ #
#20181016184745____:$Z $HEA -$_____NDecimales | \ #
#20181016184745____:$Z $xrv/DIVZ.11$X ne=$_____NDecimales \ #
#20181016184745____:$Z fichier1== \ #
#20181016184745____:$Z fichier2=10 | \ #
#20181016184745____:$Z $xrv/MUL2.11$X ne=$_____NDecimales \ #
#20181016184745____:$Z fichier1== \ #
#20181016184745____:$Z fichier2=$dpi \ #
#20181016184745____:$Z > $FiLePoInTs.PHI \ #
#20200830142248____:$Z $CA $_____FDecimales | \ #
#20200830142248____:$Z $SE -e "s/^ *//" \ #
#20200830142248____:$Z -e "s/^[$Alphabet_0_9][$Alphabet_0_9]*[,.]//" | \ #
#20200830142248____:$Z $GRE -v '^ *$' | \ #
#20200830142248____:$Z $GRE -v 'alcul ' | \ #
#20200830142248____:$Z $SE -e "s/ //g" | \ #
#20200830142248____:$Z $SE -e "s/\(.\)/\1@/g" | \ #
#20200830142248____:$Z $R "@" "$K_NL" | \ #
#20200830142248____:$Z $GRE -v '^ *$' | \ #
#20200830142248____:$Z $HEA -$_____NDecimales | \ #
#20200830142248____:$Z $xrv/DIVZ.11$X ne=$_____NDecimales \ #
#20200830142248____:$Z fichier1== \ #
#20200830142248____:$Z fichier2=10 | \ #
#20200830142248____:$Z $xrv/MUL2.11$X ne=$_____NDecimales \ #
#20200830142248____:$Z fichier1== \ #
#20200830142248____:$Z fichier2=$dpi \ #
#20200830142248____:$Z > $FiLePoInTs.PHI #
$Z FilSTmpB FiLeEtIqUeTtAgE
$Z FilSTmpB FiLeDeCiMaLeS
#20240303114313____:$Z $CA $__________FDecimales | \ #
#20240303114313____:$Z $SE -e "s/^ *//" \ #
#20240303114313____:$Z -e "s/^[$Alphabet_0_9][$Alphabet_0_9]*[,.]//" | \ #
#20240303114313____:$Z $GRE -v '^ *$' | \ #
#20240303114313____:$Z $GRE -v 'alcul ' | \ #
#20240303114313____:$Z $SE -e "s/ //g" | \ #
#20240303114313____:$Z $SE -e "s/\(.\)/\1@/g" | \ #
#20240303114313____:$Z $R "@" "$K_NL" | \ #
#20240303114313____:$Z $GRE -v '^ *$' | \ #
#20240303114313____:$Z $HEA -$_____NDecimales \ #
#20240303114313____:$Z > $FiLeDeCiMaLeS.1 #
$Z if ($_____SupPartieEntiere == $EXIST) then
$Z # Test introduit le 20240303114313... #
$Z $CA $__________FDecimales | \
$Z $SE -e "s/^ *//" \
$Z -e "s/^[$Alphabet_0_9][$Alphabet_0_9]*[,.]//" \
$Z > $FiLeDeCiMaLeS.4
$Z else
$Z $CA $__________FDecimales | \
$Z $SE -e "s/^ *//" \
$Z -e "s/[,.]//" \
$Z > $FiLeDeCiMaLeS.4
$Z endif
$Z $CA $FiLeDeCiMaLeS.4 | \
$Z $GRE -v '^ *$' | \
$Z $GRE -v 'alcul ' | \
$Z $SE -e "s/ //g" | \
$Z $SE -e "s/\(.\)/\1@/g" | \
$Z $R "@" "$K_NL" | \
$Z $GRE -v '^ *$' | \
$Z $HEA -$_____NDecimales \
$Z > $FiLeDeCiMaLeS.1
$Z if ($_____VraieHelice == $NEXIST) then
$Z $CA $FiLeDeCiMaLeS.1 \
$Z > $FiLeDeCiMaLeS.2
$Z set New_____NDecimales=$_____NDecimales
$Z else
$Z set PrEmIeRe_DeCiMaLe=1
$Z $CA $FiLeDeCiMaLeS.1 | \
$Z $xrv/GestionDecimales.01$X \
$Z ne=$_____NDecimales \
$Z fichier== \
$Z premier_numero=$PrEmIeRe_DeCiMaLe \
$Z > $FiLeDeCiMaLeS.2
$Z set ArGuMeNts="$K_VIDE"
$Z set ArGuMeNts="$ArGuMeNts"" formater=VRAI signe=""$K_VIDE"
$Z set New_____NDecimales_m=`$CA $FiLeDeCiMaLeS.2 | $xrv/extrema.01$X ne=0 fichier== $ArGuMeNts ms=VRAI`
$Z set New_____NDecimales_M=`$CA $FiLeDeCiMaLeS.2 | $xrv/extrema.01$X ne=0 fichier== $ArGuMeNts Ms=VRAI`
$Z set New_____NDecimales=`calculINS $New_____NDecimales_M-$New_____NDecimales_m+1`
$Z endif
$Z # Conversion des decimales en un angle dans [0,2.pi]. #
$Z FilSTmpB FiLe_PHI
$Z $CA $FiLeDeCiMaLeS.2 | \
$Z $xrv/DIVZ.11$X ne=$_____NDecimales \
$Z fichier1== \
$Z fichier2=$Base10 | \
$Z $xrv/MUL2.11$X ne=$_____NDecimales \
$Z fichier1== \
$Z fichier2=$dpi \
$Z >> $FiLe_PHI
$Z set ArGuMeNts="$K_VIDE"
$Z set ArGuMeNts="$ArGuMeNts"" LISTE_RHO=1"
$Z set ArGuMeNts="$ArGuMeNts"" LISTE_PHI=$FiLe_PHI"
$Z set ArGuMeNts="$ArGuMeNts"" LISTE_THETA=$pis2"
$Z $xrv/RPT_XYZ.01$X ne=$_____NDecimales \
$Z $ArGuMeNts \
$Z pX=1 pY=0 pZ=0 \
$Z \
$Z > $FiLeEtIqUeTtAgE$COORD_X
$Z $CA $FiLeEtIqUeTtAgE$COORD_X | \
$Z $xrv/neutre$X ne=0 \
$Z fichier== \
$Z dechainer=VRAI \
$Z >>! $FiLePoInTs$COORD_X
$Z $xrv/RPT_XYZ.01$X ne=$_____NDecimales \
$Z $ArGuMeNts \
$Z pX=0 pY=1 pZ=0 \
$Z \
$Z > $FiLeEtIqUeTtAgE$COORD_Y
$Z $CA $FiLeEtIqUeTtAgE$COORD_Y | \
$Z $xrv/neutre$X ne=0 \
$Z fichier== \
$Z dechainer=VRAI \
$Z >>! $FiLePoInTs$COORD_Y
$Z # Conversion des coordonnees spheriques (et en fait polaires puisque l'on ne conserve #
$Z # que {phi,phi}) en coordonnee cartesiennes. En fait 'v $xrv/particule.10$K spheriques=' #
$Z # peut travailler directement en coordonnees spheriques, mais on souhaite avoir une #
$Z # variation lineaire de la troisieme coordonnee 'Z'... #
$Z # #
$Z # L'introduction de "dechainer=VRAI" est destinee a permettre la visualisation du segment #
$Z # passant d'une decimale a la suivante sous forme de fleche (introduit le 20200817140120). #
$Z FilSTmpE FiLe_PHI
$Z if ($_____VraieHelice == $NEXIST) then
$Z $xci/valeurs_inte$X premiere=1 derniere=$_____NDecimales \
$Z vD=$_____Z0 vA=$_____ZN \
$Z lineaire=VRAI \
$Z > $FiLeEtIqUeTtAgE$COORD_Z
$Z else
$Z $CA $FiLeDeCiMaLeS.1 | \
$Z $xrv/GestionDecimales.01$X \
$Z ne=$_____NDecimales \
$Z fichier== \
$Z premier_numero=$_____Z0 \
$Z pas_numero=`calcul (($_____ZN)-($_____Z0))/$New_____NDecimales` \
$Z > $FiLeEtIqUeTtAgE$COORD_Z
$Z endif
$Z # Generation lineaire de la troisieme coordonnee 'Z'... #
$Z $CA $FiLeEtIqUeTtAgE$COORD_Z | \
$Z $xrv/neutre$X ne=0 \
$Z fichier== \
$Z dechainer=VRAI \
$Z >>! $FiLePoInTs$COORD_Z
#20151219100026____:$Z $xci/valeurs_inte$X premiere=1 derniere=$_____NDecimales \ #
#20151219100026____:$Z vD=$NOIR vA=$BLANC \ #
#20151219100026____:$Z lineaire=VRAI \ #
#20151219100026____:$Z entiers=VRAI \ #
#20151219100026____:$Z > $FiLePoInTs.Niveau #
#20200817105247____:$Z $xci/valeurs_inte$X premiere=1 derniere=$_____NDecimales \ #
#20200817105247____:$Z vD=$BLANC vA=$NOIR \ #
#20200817105247____:$Z lineaire=VRAI \ #
#20200817105247____:$Z entiers=VRAI \ #
#20200817105247____:$Z > $FiLePoInTs.Niveau #
$Z FilSTmpB FiLe_Niveau
$Z echo $_____NiveauBLANC \
$Z >> $FiLe_Niveau
$Z $xci/valeurs_inte$X premiere=2 derniere=$_____NDecimales \
$Z vD=$_____NiveauBLANC vA=$_____NiveauNOIR \
$Z lineaire=VRAI \
$Z entiers=VRAI \
$Z >> $FiLe_Niveau
$Z # Les modifications du 20151219100026 (concernant aussi '$_____Z0' et '$_____ZN') sont #
$Z # destinees a mettre la premiere decimale ("1") au premier plan... #
$Z # #
$Z # La modification du 20200817105247 est destinee a garantir que le niveau d'un segment #
$Z # est maintenu a l'identique lorsque '$_____NDecimales' augmente. Le probleme rencontre #
$Z # venait du fait que '$_____NDecimales' provient de la liste '$LNiveauNOIR' interpolee #
$Z # et qu'ici on interpole de nouveau en quelque sorte a l'interieur de cette liste... #
$Z FilSTmpB FiLe_Niveau_Palette
$Z $CA $FiLe_Niveau \
$Z | \
$Z $xrv/neutre$X ne=0 \
$Z fichier== \
$Z dechainer=VRAI \
$Z >> $FiLe_Niveau_Palette
$Z # L'introduction de "dechainer=VRAI" est destinee a permettre la visualisation du segment #
$Z # passant d'une decimale a la suivante sous forme de fleche (introduit le 20200817140120). #
$Z FilSTmpE FiLe_Niveau
#20200901142522____:$Z $CA $FiLe_Niveau_Palette \ #
#20200901142522____:$Z | \ #
#20200901142522____:$Z $NL \ #
#20200901142522____:$Z | \ #
#20200901142522____:$Z $AW ' { print $1 } ' \ #
#20200901142522____:$Z | \ #
#20200901142522____:$Z $xrv/RESZ.11$X \ #
#20200901142522____:$Z ne=0 \ #
#20200901142522____:$Z fichier1== fichier2=2 \ #
#20200901142522____:$Z formater=VRAI signe="$K_VIDE" \ #
#20200901142522____:$Z | \ #
#20200901142522____:$Z $SE \ #
#20200901142522____:$Z -e 's/^0$'"/$__________VRayonD/" \ #
#20200901142522____:$Z -e 's/^1$'"/$__________VRayonA/" \ #
#20200901142522____:$Z >>! $FiLePoInTs$RAYON #
$Z $CA $FiLe_Niveau_Palette \
$Z | \
$Z $NL \
$Z | \
$Z $AW ' { print $1 } ' \
$Z | \
$Z $xrv/RESZ.11$X \
$Z ne=0 \
$Z fichier1== fichier2=2 \
$Z formater=VRAI signe="$K_VIDE" \
$Z | \
$Z $SE \
$Z -e 's/^1$'"/$__________VRayonD/" \
$Z -e 's/^0$'"/$__________VRayonA/" \
$Z >>! $FiLePoInTs$RAYON
$Z # Afin de visualiser le segment passant d'une decimale a la suivante sous forme d'une fleche. #
$Z # Ceci fut introduit le 20200817140120... #
$Z # #
$Z # On notera le 20200901142522 que '$NL' numerotant a partir de 1, le point de Depart est #
$Z # impair (1) et le point d'Arrivee pair (0)... #
$Z $xrv/N_RVB.01$X \
$Z ne=0 \
$Z LISTE_NIVEAU=$FiLe_Niveau_Palette \
$Z p=$__________Palette \
$Z pR=1 pV=0 pB=0 \
$Z >>! $FiLePoInTs$ROUGE
$Z $xrv/N_RVB.01$X \
$Z ne=0 \
$Z LISTE_NIVEAU=$FiLe_Niveau_Palette \
$Z p=$__________Palette \
$Z pR=0 pV=1 pB=0 \
$Z >>! $FiLePoInTs$VERTE
$Z $xrv/N_RVB.01$X \
$Z ne=0 \
$Z LISTE_NIVEAU=$FiLe_Niveau_Palette \
$Z p=$__________Palette \
$Z pR=0 pV=0 pB=1 \
$Z >>! $FiLePoInTs$BLEUE
$Z FilSTmpE FiLe_Niveau_Palette
$Z if ( ($_____Etiquettage == $EXIST) \
$Z && ($index == 1) \
$Z ) then
$Z # La possibilite d'etiquettage des noeuds par les decimales fut introduite le 20200901093315. #
$Z $CA $xcs/csh$Y \
$Z > $FiLeEtIqUeTtAgE$Y
$Z echo 'source $xrd/graph.01$vv$Y' \
$Z >> $FiLeEtIqUeTtAgE$Y
$Z echo "G_K $_____KNombres" \
$Z >> $FiLeEtIqUeTtAgE$Y
$Z echo "G_Zoom $_____Zoom" \
$Z >> $FiLeEtIqUeTtAgE$Y
$Z echo "G_Cursor3 $_____RNombres" \
$Z >> $FiLeEtIqUeTtAgE$Y
$Z $CA $FiLeDeCiMaLeS.1 | \
$Z $R "0" "O" | \
$Z $R "1" "I" \
$Z > $FiLeDeCiMaLeS.3
$Z $PAST $FiLeEtIqUeTtAgE$COORD_X $FiLeEtIqUeTtAgE$COORD_Y $FiLeEtIqUeTtAgE$COORD_Z $FiLeDeCiMaLeS.3 | \
$Z $AW ' { print "G_Cursor1 " $1 " " $2 " " $3 " ; G_Quelc @G_Message " $4 "@" } ' | \
$Z $SE -e "s/@/$K_QA/g" \
$Z >> $FiLeEtIqUeTtAgE$Y
$Z source $FiLeEtIqUeTtAgE$Y
$Z $CA $File_COORD_X \
$Z >> $FiLePoInTs$COORD_X
$Z $CA $File_COORD_Y \
$Z >> $FiLePoInTs$COORD_Y
$Z $CA $File_COORD_Z | \
$Z $xrv/ADD2.11$X ne=0 \
$Z fichier1== \
$Z fichier2=$_____TranslationZ \
$Z >> $FiLePoInTs$COORD_Z
$Z # Cette translation du 'Z' est destinee a eviter que les decimales soient cachees... #
$Z $CA $File_ROUGE \
$Z >> $FiLePoInTs$ROUGE
$Z $CA $File_VERTE \
$Z >> $FiLePoInTs$VERTE
$Z $CA $File_BLEUE \
$Z >> $FiLePoInTs$BLEUE
$Z $CA $File_RAYON \
$Z >> $FiLePoInTs$RAYON
$Z $DELETE $File_COORD_X
$Z $DELETE $File_COORD_Y
$Z $DELETE $File_COORD_Z
$Z $DELETE $File_ROUGE
$Z $DELETE $File_VERTE
$Z $DELETE $File_BLEUE
$Z $DELETE $File_RAYON
$Z else
$Z endif
$Z FilSTmpE FiLeDeCiMaLeS
$Z FilSTmpE FiLeEtIqUeTtAgE
$Z set _____NDecimales=$New_____NDecimales
$Z @ index = $index + 1
$Z if (G__________FDecimales == $EXIST) then
$Z FilSTmpE __________FDecimales
$Z else
$Z endif
$Z end
$Z set ArGuMeNtS="$K_VIDE"
$Z set ArGuMeNtS="$ArGuMeNtS"" AXYZ=1 BXYZ=0"
$Z set ArGuMeNtS="$ArGuMeNtS"" Lz=1000"
$Z set ArGuMeNtS="$ArGuMeNtS"" speculaire=$_____Speculaire"
$Z set ArGuMeNtS="$ArGuMeNtS"" ZOOM=$_____Zoom"
$Z set ArGuMeNtS="$ArGuMeNtS"" ROTATION_OX=$_____RotationX"
$Z set ArGuMeNtS="$ArGuMeNtS"" ROTATION_OY=$_____RotationY"
$Z set ArGuMeNtS="$ArGuMeNtS"" ROTATION_OZ=$_____RotationZ"
$Z set ArGuMeNtS="$ArGuMeNtS"" N_au_carre=FAUX"
$Z set ArGuMeNtS="$ArGuMeNtS"" editer_extrema_hors=FAUX"
$Z set ArGuMeNtS="$ArGuMeNtS"" editer_mauvais_encadrement_niveaux_interpoles=FAUX"
$Z set ArGuMeNtS="$ArGuMeNtS"" couronne=$_____Couronne"
$Z set ArGuMeNtS="$ArGuMeNtS"" $_____ParticulePara"
$Z set ArGuMeNtS="$ArGuMeNtS"" chiffres=0"
#20200830182127____:$Z eval $xrv/particule.10$X npoints=`calcul 2*($_____NDecimales-1)` \ #
#20200830182127____:$Z LISTE_X=$FiLePoInTs$COORD_X \ #
#20200830182127____:$Z LISTE_Y=$FiLePoInTs$COORD_Y \ #
#20200830182127____:$Z LISTE_Z=$FiLePoInTs$COORD_Z \ #
#20200830182127____:$Z isoles=FAUX chainer=FAUX \ #
#20200830182127____:$Z ajuster_points=VRAI equidistance=VRAI \ #
#20200830182127____:$Z distance_minimale=$_____DistanceMini \ #
#20200830182127____:$Z grossissement=$_____Grossissement \ #
#20200830182127____:$Z LISTE_NIVEAU=$FiLePoInTs.Niveau \ #
#20200830182127____:$Z LISTE_RAYON=$FiLePoInTs$RAYON \ #
#20200830182127____:$Z p=$_____Palette \ #
#20200830182127____:$Z $ArGuMeNtS \ #
#20200830182127____:$Z R=$_____ImageR \ #
#20200830182127____:$Z $formatI \ #
#20200830182127____:$Z $_____Redirection #
$Z set NPointsX__=`$CA $FiLePoInTs$COORD_X | $WCl`
$Z set NPointsY__=`$CA $FiLePoInTs$COORD_Y | $WCl`
$Z set NPointsZ__=`$CA $FiLePoInTs$COORD_Z | $WCl`
#20220615103952____:$Z set NPointsXYZ=`$xcg/MAX3.01$X x=$NPointsX__ y=$NPointsY__ z=$NPointsZ__` #
$Z set NPointsXYZ=`$xcg/MIN3.01$X x=$NPointsX__ y=$NPointsY__ z=$NPointsZ__`
$Z if ($_____EnFaitSpirale == $EXIST) then
$Z # Possibilite introduite le 20240220102721... #
$Z FilSTmpB FiLeSpIrAlE
$Z $xrv/MUL3.11$X ne=$NPointsXYZ \
$Z fichier1=$_____FacteurPasSpirale \
$Z fichier2=$FiLePoInTs$COORD_Z \
$Z fichier3=$FiLePoInTs$COORD_X \
$Z > $FiLeSpIrAlE$COORD_X
$Z $xrv/MUL3.11$X ne=$NPointsXYZ \
$Z fichier1=$_____FacteurPasSpirale \
$Z fichier2=$FiLePoInTs$COORD_Z \
$Z fichier3=$FiLePoInTs$COORD_Y \
$Z > $FiLeSpIrAlE$COORD_Y
$Z $xci/valeurs_inte$X premiere=1 derniere=$NPointsXYZ \
$Z vD=$_____Z0 vA=$_____Z0 \
$Z lineaire=VRAI \
$Z > $FiLeSpIrAlE$COORD_Z
$Z # Ainsi, on convertit l'helice en une spirale : #
$Z # #
$Z # X --> F.Z.X #
$Z # Y --> F.Z.Y #
$Z # Z --> constante #
$Z # #
$Z $CP $FiLeSpIrAlE$COORD_X $FiLePoInTs$COORD_X
$Z $CP $FiLeSpIrAlE$COORD_Y $FiLePoInTs$COORD_Y
$Z $CP $FiLeSpIrAlE$COORD_Z $FiLePoInTs$COORD_Z
$Z FilSTmpE FiLeSpIrAlE
$Z else
$Z endif
$Z eval $xrv/particule.10$X npoints=$NPointsXYZ \
$Z LISTE_X=$FiLePoInTs$COORD_X \
$Z LISTE_Y=$FiLePoInTs$COORD_Y \
$Z LISTE_Z=$FiLePoInTs$COORD_Z \
$Z isoles=FAUX chainer=FAUX \
$Z ajuster_points=VRAI equidistance=VRAI \
$Z distance_minimale=$_____DistanceMini \
$Z grossissement=$_____Grossissement \
$Z LISTE_ROUGE=$FiLePoInTs$ROUGE \
$Z LISTE_VERTE=$FiLePoInTs$VERTE \
$Z LISTE_BLEUE=$FiLePoInTs$BLEUE \
$Z LISTE_RAYON=$FiLePoInTs$RAYON \
$Z $ArGuMeNtS \
$Z R=$_____ImageR \
$Z $formatI \
$Z $_____Redirection
$Z FilSTmpE FiLePoInTs
$Z if ($_____CorrectionGamma != $xiP/gris.01) then
# Test introduit le 20240308112331... #
$Z execRVB $xci/substitue$X \
$Z A=$_____ImageR%s \
$Z substitution=L_SUBSTITUTION_ROUGE p=$_____CorrectionGamma \
$Z R=$_____ImageR%s \
$Z $formatI
$Z else
$Z endif