#######################################################################################################################################
# #
# C O N S T R U C T I O N D ' U N E S P I R A L E C A R R E E D E C H A M P S : #
# #
# #
# Author of '$xiirv/.PIAL.61.4.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20240601103234). #
# #
#######################################################################################################################################
#20240528100102____:$Z setParam _____FacteurX 150 #
#20240528100102____:$Z setParam _____FacteurY 150 #
$Z setParam _____Champ $xci/gauss$X
$Z setParam _____ChampPara "$K_VIDE"
$Z setParam _____LChamps "$K_VIDE"
#20240530080343____:$Z setParam _____SepChamps ":" #
$Z setParam _____SepChamps ";"
$Z # Parametres introduits le 20240529173904... #
$Z # #
$Z # Le remplacement de ":" par ";" le 20240530080343 vient du fait que ":" provoquait le #
$Z # message d'erreur : #
$Z # #
$Z # Bad : modifier in $ (d). #
$Z # #
$Z setParam _____Escalier $xiP/escalier10
$Z IfBasic ($?_____Fond == $NEXIST) ThenBasic
$Z $xci/init$X niveau=$NOIR \
$Z R=$_____ImageR \
$Z $formatI
$Z ElseBasic
$Z $xci/neutre$X A=$_____Fond \
$Z R=$_____ImageR \
$Z $formatI
$Z EndifBasic
$Z $CA $FCoOrDoNnEeS$COORD_X | \
$Z $xrv/SOUS.11$X ne=0 \
$Z fichier1== \
$Z fichier2=+$DeMi_CoTe_X \
$Z > $FCoOrDoNnEeS.MiNiMuM$COORD_X
$Z $CA $FCoOrDoNnEeS$COORD_X | \
$Z $xrv/ADD2.11$X ne=0 \
$Z fichier1== \
$Z fichier2=+$DeMi_CoTe_X \
$Z > $FCoOrDoNnEeS.MaXiMuM$COORD_X
$Z $CA $FCoOrDoNnEeS$COORD_Y | \
$Z $xrv/SOUS.11$X ne=0 \
$Z fichier1== \
$Z fichier2=+$DeMi_CoTe_Y \
$Z > $FCoOrDoNnEeS.MiNiMuM$COORD_Y
$Z $CA $FCoOrDoNnEeS$COORD_Y | \
$Z $xrv/ADD2.11$X ne=0 \
$Z fichier1== \
$Z fichier2=+$DeMi_CoTe_Y \
$Z > $FCoOrDoNnEeS.MaXiMuM$COORD_Y
$Z set NPoInTsX=`$CA $FCoOrDoNnEeS$COORD_X | $WCl`
$Z set NPoInTsY=`$CA $FCoOrDoNnEeS$COORD_Y | $WCl`
$Z set NPoInTs_=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY`
$Z $xrv/BARY.11$X ne=$NPoInTs_ \
$Z fichier1=$FCoOrDoNnEeS.MiNiMuM$COORD_X \
$Z fichier2=$FCoOrDoNnEeS.MaXiMuM$COORD_X | \
$Z $xrv/MUL2.11$X ne=0 \
$Z fichier1== \
$Z fichier2=-1 \
$Z > $FCoOrDoNnEeS.TrAnSlAtIoN$COORD_X
$Z $xrv/BARY.11$X ne=$NPoInTs_ \
$Z fichier1=$FCoOrDoNnEeS.MiNiMuM$COORD_Y \
$Z fichier2=$FCoOrDoNnEeS.MaXiMuM$COORD_Y | \
$Z $xrv/MUL2.11$X ne=0 \
$Z fichier1== \
$Z fichier2=-1 \
$Z > $FCoOrDoNnEeS.TrAnSlAtIoN$COORD_Y
$Z set LCoOrDoNnEeS_X=`$CA $FCoOrDoNnEeS$COORD_X | $HEA -$_____NChiffres`
$Z set LCoOrDoNnEeS_Y=`$CA $FCoOrDoNnEeS$COORD_Y | $HEA -$_____NChiffres`
$Z set LMiNiMuM_X=`$CA $FCoOrDoNnEeS.MiNiMuM$COORD_X | $HEA -$_____NChiffres`
$Z set LMaXiMuM_X=`$CA $FCoOrDoNnEeS.MaXiMuM$COORD_X | $HEA -$_____NChiffres`
$Z set LMiNiMuM_Y=`$CA $FCoOrDoNnEeS.MiNiMuM$COORD_Y | $HEA -$_____NChiffres`
$Z set LMaXiMuM_Y=`$CA $FCoOrDoNnEeS.MaXiMuM$COORD_Y | $HEA -$_____NChiffres`
$Z set LTrAnSlAtIoN_X=`$CA $FCoOrDoNnEeS.TrAnSlAtIoN$COORD_X | $HEA -$_____NChiffres`
$Z set LTrAnSlAtIoN_Y=`$CA $FCoOrDoNnEeS.TrAnSlAtIoN$COORD_Y | $HEA -$_____NChiffres`
$Z set LChIfFrEs_____=`$CA $FCoOrDoNnEeS.chiffres | $HEA -$_____NChiffres`
$Z # Je note le 20240530094350 que pour faire des tests : #
$Z # #
$Z # set LChIfFrEs_____=(0 1 2 3 4 5 6 7 8 9) #
$Z # set _____NChiffres=$#LChIfFrEs_____ #
$Z # #
$Z # est utile... #
$Z set DeCoMpTeUr=$_____NChiffres
$Z set index=1
$Z while ($DeCoMpTeUr > 0)
$Z set MiNiMuM_X=$LMiNiMuM_X[$index]
$Z set MaXiMuM_X=$LMaXiMuM_X[$index]
$Z set MiNiMuM_Y=$LMiNiMuM_Y[$index]
$Z set MaXiMuM_Y=$LMaXiMuM_Y[$index]
$Z set TrAnSlAtIoN_X=$LTrAnSlAtIoN_X[$index]
$Z set TrAnSlAtIoN_Y=$LTrAnSlAtIoN_Y[$index]
#20240529173904____:$Z $_____Champ \ #
#20240529173904____:$Z $_____ChampPara \ #
#20240529173904____:$Z carre_X_CHAMP_3D=FAUX \ #
#20240529173904____:$Z TRANSLATION_OX=$TrAnSlAtIoN_X \ #
#20240529173904____:$Z TRANSLATION_OY=$TrAnSlAtIoN_Y \ #
#20240529173904____:$Z FTransformation_x_Minimal=$MiNiMuM_X FTransformation_x_Maximal=$MaXiMuM_X \ #
#20240529173904____:$Z FTransformation_y_Minimal=$MiNiMuM_Y FTransformation_y_Maximal=$MaXiMuM_Y \ #
#20240529173904____:$Z $formatI | \ #
#20240529173904____:$Z $xci/substitue$X \ #
#20240529173904____:$Z substitution=L_SUBSTITUTION_ROUGE \ #
#20240529173904____:$Z p=$_____Escalier.$LChIfFrEs_____[$index] \ #
#20240529173904____:$Z $formatI | \ #
#20240529173904____:$Z $xci/maximum$X \ #
#20240529173904____:$Z A2=$_____ImageR \ #
#20240529173904____:$Z R=$_____ImageR \ #
#20240529173904____:$Z $formatI #
$Z set ArGuMeNtS="$K_VIDE"
$Z set ArGuMeNtS="$ArGuMeNtS"" carre_X_CHAMP_3D=FAUX"
$Z set ArGuMeNtS="$ArGuMeNtS"" TRANSLATION_OX=$TrAnSlAtIoN_X"
$Z set ArGuMeNtS="$ArGuMeNtS"" TRANSLATION_OY=$TrAnSlAtIoN_Y"
$Z set ArGuMeNtS="$ArGuMeNtS"" FTransformation_x_Minimal=$MiNiMuM_X"
$Z set ArGuMeNtS="$ArGuMeNtS"" FTransformation_x_Maximal=$MaXiMuM_X"
$Z set ArGuMeNtS="$ArGuMeNtS"" FTransformation_y_Minimal=$MiNiMuM_Y"
$Z set ArGuMeNtS="$ArGuMeNtS"" FTransformation_y_Maximal=$MaXiMuM_Y"
$Z $_____Champ \
$Z $ArGuMeNtS \
$Z $_____ChampPara \
$Z R=$xTV/CHAMP \
$Z $formatI
$Z IfBasic ("$_____LChamps" != "$K_VIDE") ThenBasic
$Z @ indexc = $LChIfFrEs_____[$index] + 1
$Z set ChAmP=`echo "$_____LChamps[$indexc]" | $R "$_____SepChamps" " "`
#20240530094152____:$Z eval $ChAmP \ #
#20240530094152____:$Z $ArGuMeNtS \ #
#20240530094152____:$Z standard=FAUX \ #
#20240530094152____:$Z $formatI | \ #
#20240530094152____:$Z $xci/acces$X \ #
#20240530094152____:$Z standard=FAUX zero=FAUX \ #
#20240530094152____:$Z $formatI | \ #
#20240530094152____:$Z $xci/multi_02.01$X A2=$xTV/CHAMP \ #
#20240530094152____:$Z R=$xTV/CHAMP \ #
#20240530094152____:$Z $formatI #
$Z eval $ChAmP \
$Z $ArGuMeNtS \
$Z standard=FAUX \
$Z $formatI | \
$Z $xci/acces$X \
$Z standard=FAUX zero=FAUX \
$Z $formatI | \
$Z $xci/multi_02.01$X A2=$xTV/CHAMP \
$Z message_extrema=FAUX \
$Z R=$xTV/CHAMP \
$Z $formatI
$Z ElseBasic
$Z EndifBasic
$Z $xci/substitue$X \
$Z A=$xTV/CHAMP \
$Z substitution=L_SUBSTITUTION_ROUGE \
$Z p=$_____Escalier.$LChIfFrEs_____[$index] \
$Z $formatI | \
$Z $xci/maximum$X \
$Z A2=$_____ImageR \
$Z R=$_____ImageR \
$Z $formatI
$Z @ index = $index + 1
$Z @ DeCoMpTeUr = $DeCoMpTeUr - 1
$Z end
$Z FilSTmpE FCoOrDoNnEeS