#######################################################################################################################################
# #
# S U R J E C T I O N F R A C T A L E D E [ 0 , 1 ] D A N S [ 0 , 1 ] x [ 0 , 1 ] D E P E A N O : #
# #
# #
# Author of '$xiirv/.PEAN.31.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20220416115455). #
# #
#######################################################################################################################################
$Z setParam _____Argument "$K_VIDE"
$Z # Parametre introduit le 20230102114112... #
$Z SETParam _____DefinitionCarre $NEXIST
$Z SETParam _____DefinitionSCarres $NEXIST
$Z # Parametre introduit le 20220520080145... #
$Z setParam _____Arguments "$K_VIDE"
$Z # On notera le 20230519122645 que c'est dans '$_____Arguments' que l'on peut changer le #
$Z # nombre de points produits via les pas des differentes iterations : #
$Z # #
$Z # pas_01=... #
$Z # pas_02=... #
$Z # pas_03=... #
$Z # pas_04=... #
$Z # pas_05=... #
$Z # pas_06=... #
$Z # pas_07=... #
$Z # #
$Z # et non pas en modifiant le nombre d'elements des eventuelles "listes_quelconques=VRAI" #
$Z # comme ce serait le cas avec 'v $xiirv/$Fnota Debut_listG_HILB_g8'. Augmenter la taille #
$Z # de l'ensemble de Mandelbrot ('v $xigP/Mandelbrot.01$Z Std') ne changerait rien... #
$Z # #
$Z # Et donc, pour aygmenter le nombre de points, il faut diminuer le pas de l'iteration #
$Z # utilisee... #
$Z setParam _____NIteration (5)
$Z setParam _____Eval "$K_VIDE"
$Z setParam _____Z0 0
#20220419134758____:$Z setParam _____Rayon (0.006) #
$Z setParam _____Rayon (0.004)
$Z setParam _____Grossissement 1.8
$Z setParam _____Zoom 1
$Z setParam _____DistanceMini `GetParam $xrv/particule.10$X distance_minimale`
$Z # Parametre introduit le 20220418185221... #
$Z setParam _____Points 32
$Z setParam _____NombreR 1
$Z setParam _____Cubique FAUX
$Z setParam _____DeriveeX 0
$Z setParam _____DeriveeY 0
$Z setParam _____DeriveeZ 0
$Z setParam _____Palette $xiP/blanc.21
$Z setParam _____Noir_ ($NOIR)
$Z setParam _____Blanc ($BLANC)
$Z setParam _____Fond "$K_VIDE"
$Z setParam _____ParticulePara1 "$K_VIDE"
$Z setParam _____Redirection "$K_VIDE"
$Z # Parametre introduit le 20230102114112... #
$Z set DeFiNiTiOnCaRrE="$K_VIDE"
$Z if ($_____DefinitionCarre == $EXIST) then
$Z set DeFiNiTiOnCaRrE="definition_carre=VRAI"
$Z if ($_____DefinitionSCarres == $EXIST) then
$Z set DeFiNiTiOnCaRrE="$DeFiNiTiOnCaRrE"" definition_sous_carres=VRAI"
$Z else
$Z endif
$Z else
$Z endif
$Z FileTmpB FiLeTmP_PEANO_all
$Z set NuMeRo=1
$Z foreach NItErAtIoN ($_____NIteration)
$Z set RaYoN=$_____Rayon[$NuMeRo]
$Z set NoIr_=$_____Noir_[$NuMeRo]
$Z set BlAnC=$_____Blanc[$NuMeRo]
$Z FileTmpB FiLeTmP_PEANO
$Z $xci/valeurs_TransformationPeano2D$X \
$Z une_iteration=VRAI numero_iteration=$NItErAtIoN \
$Z chainer_points=FAUX \
$Z PT=1 PX=0 PY=0 \
$Z definition_carre=FAUX \
$Z $_____Arguments \
$Z > $FiLeTmP_PEANO
$Z set Parametre_T0=`$CA $FiLeTmP_PEANO | $HEA -1`
$Z set Parametre_T1=`$CA $FiLeTmP_PEANO | $TAI -1`
$Z echo "Parametre_T0=$Parametre_T0"
$Z echo "Parametre_T1=$Parametre_T1"
$Z # Edition introduite le 20220404102712... #
$Z FileTmpE FiLeTmP_PEANO
$Z FileTmpB FiLeTmP_PEANO
$Z $xci/valeurs_TransformationPeano2D$X \
$Z une_iteration=VRAI numero_iteration=$NItErAtIoN \
$Z chainer_points=VRAI \
$Z $DeFiNiTiOnCaRrE \
$Z $_____Arguments \
$Z > $FiLeTmP_PEANO
$Z set NDeFiNiTiOn=`$CA $FiLeTmP_PEANO | $GRE " DefinitionCarre=" | $WCl`
$Z set NCoUrBe=`$CA $FiLeTmP_PEANO | $GRE -v " DefinitionCarre=" | $WCl`
$Z $CA $FiLeTmP_PEANO | \
$Z $AW ' { print $1 } ' | \
$Z $SE -e "s/^.*=//" \
$Z > $FiLeTmP_PEANO$COORD_X
$Z $CA $FiLeTmP_PEANO | \
$Z $AW ' { print $2 } ' | \
$Z $SE -e "s/^.*=//" \
$Z > $FiLeTmP_PEANO$COORD_Y
$Z set Npart=`$CA $FiLeTmP_PEANO | $WCl`
$Z $xci/valeurs_inte$X \
$Z premiere=1 derniere=$Npart \
$Z vD=$RaYoN vA=$RaYoN \
$Z lineaire=VRAI \
$Z entiers=FAUX \
$Z > $FiLeTmP_PEANO$RAYON
$Z # Generation de la liste des rayons... #
$Z $xci/valeurs_inte$X \
$Z premiere=1 derniere=$NCoUrBe \
$Z vD=$NoIr_ vA=$BlAnC \
$Z lineaire=VRAI \
$Z entiers=VRAI \
$Z >>! $FiLeTmP_PEANO$LUMIN
$Z # Generation de la liste des niveaux a utiliser pour acceder a la palette '$_____Palette'... #
$Z if ($NDeFiNiTiOn > 0) then
$Z $xci/valeurs_inte$X \
$Z premiere=1 derniere=$NDeFiNiTiOn \
$Z vD=$NOIR vA=$NOIR \
$Z lineaire=VRAI \
$Z entiers=VRAI \
$Z >>! $FiLeTmP_PEANO$LUMIN
$Z # Le carre doit apparaitre derriere la trajectoire 'T'... #
$Z else
$Z endif
$Z $CA $FiLeTmP_PEANO$COORD_X \
$Z >>! $FiLeTmP_PEANO_all$COORD_X
$Z $CA $FiLeTmP_PEANO$COORD_Y \
$Z >>! $FiLeTmP_PEANO_all$COORD_Y
$Z $CA $FiLeTmP_PEANO$RAYON \
$Z >>! $FiLeTmP_PEANO_all$RAYON
$Z $CA $FiLeTmP_PEANO$LUMIN \
$Z >>! $FiLeTmP_PEANO_all$LUMIN
$Z FileTmpE FiLeTmP_PEANO
$Z @ NuMeRo = $NuMeRo + 1
$Z end
$Z if ("$_____Eval" != "$K_VIDE") then
$Z eval "$_____Eval"
$Z else
$Z endif
$Z if ("$_____ParticulePara1" != "$K_VIDE") then
$Z set _____ParticulePara1=`eval echo "$_____ParticulePara1"`
$Z else
$Z endif
$Z set NpartX=`$CA $FiLeTmP_PEANO_all$COORD_X | $WCl`
$Z set NpartY=`$CA $FiLeTmP_PEANO_all$COORD_Y | $WCl`
$Z set Npart=`$xcg/MIN2.01$X x=$NpartX y=$NpartY`
$Z eval $xrv/particule.10$X np=1 iterations=$Npart \
$Z dernier_premier=VRAI \
$Z LISTE_X=$FiLeTmP_PEANO_all$COORD_X \
$Z LISTE_Y=$FiLeTmP_PEANO_all$COORD_Y \
$Z LISTE_Z=$_____Z0 \
$Z LISTE_RAYON=$FiLeTmP_PEANO_all$RAYON \
$Z LISTE_NIVEAU=$FiLeTmP_PEANO_all$LUMIN \
$Z paletteA=$_____Palette \
$Z grossissement=$_____Grossissement \
$Z Lz=1000 \
$Z ZOOM=$_____Zoom \
$Z ROTATION_OX=0 \
$Z ROTATION_OY=0 \
$Z ROTATION_OZ=0 \
$Z isoles=FAUX chainer=FAUX \
$Z ajuster_points=VRAI points=$_____Points nombreR=$_____NombreR \
$Z equidistance=VRAI compatibilite_20051230=FAUX \
$Z distance_minimale=$_____DistanceMini \
$Z cubique=$_____Cubique \
$Z derivees_automatiques=FAUX \
$Z LISTE_dX=$_____DeriveeX LISTE_dY=$_____DeriveeY LISTE_dZ=$_____DeriveeZ \
$Z RVB=VRAI \
$Z N_AU_CARRE=VRAI \
$Z editer_extrema_hors=FAUX \
$Z $_____Fond \
$Z $_____ParticulePara1 \
$Z R=$_____ImageR \
$Z chiffres=0 \
$Z $_____Argument \
$Z $formatI \
$Z $_____Redirection
$Z # L'option "N_AU_CARRE=VRAI" est destinee a garantir que le carre apparaitra bien derriere #
$Z # la trajectoire de 'T'... #
$Z # #
$Z # Le 'eval' a ete introduit le 20230102114112 a cause de l'eventuelle '$_____Redirection' #
$Z # et '$_____Argument' le 20230102114112... #
$Z FileTmpE FiLeTmP_PEANO_all