#######################################################################################################################################
# #
# 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 ] x [ 0 , 1 ] D E P E A N O : #
# #
# #
# Author of '$xiirv/.PEAN.11.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20220402151253). #
# #
#######################################################################################################################################
$Z SETParam _____DefinitionCube $NEXIST
$Z setParam _____Arguments "$K_VIDE"
$Z setParam _____NDecimales (6)
$Z setParam _____Eval "$K_VIDE"
$Z setParam _____Z0 0
$Z setParam _____Rayon (0.006)
$Z setParam _____Grossissement 1.8
$Z setParam _____Zoom 1
$Z setParam _____RotationOX 0.0
$Z setParam _____RotationOY 0.0
$Z setParam _____RotationOZ 0.0
$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 _____NAuCarre VRAI
$Z # Parametre introduit le 20220402180549... #
$Z setParam _____OmbresPortees "$K_VIDE"
$Z # Parametre introduit le 20220510102833... #
$Z setParam _____ParticulePara1 "$K_VIDE"
$Z setParam _____Argument "$K_VIDE"
$Z # Parametre introduit le 20230102101056... #
$Z setParam _____Redirection "$K_VIDE"
$Z # Parametre introduit le 20230102101056... #
$Z set DeFiNiTiOnCuBe="$K_VIDE"
$Z if ($_____DefinitionCube == $EXIST) then
$Z set DeFiNiTiOnCuBe="definition_cube=VRAI"
$Z else
$Z endif
$Z FileTmpB FiLeTmP_PEANO_all
$Z set NuMeRo=1
$Z foreach NDeCiMaLeS ($_____NDecimales)
$Z set RaYoN=$_____Rayon[$NuMeRo]
$Z set NoIr_=$_____Noir_[$NuMeRo]
$Z set BlAnC=$_____Blanc[$NuMeRo]
$Z FileTmpB FiLeTmP_PEANO
$Z $xci/valeurs_Peano3D$X \
$Z nombre_decimales=$NDeCiMaLeS \
$Z chainer_points=FAUX \
$Z PT=1 PX=0 PY=0 PZ=0 \
$Z definition_cube=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 20220404102659... #
$Z FileTmpE FiLeTmP_PEANO
$Z FileTmpB FiLeTmP_PEANO
$Z $xci/valeurs_Peano3D$X \
$Z nombre_decimales=$NDeCiMaLeS \
$Z chainer_points=VRAI \
$Z $DeFiNiTiOnCuBe \
$Z $_____Arguments \
$Z > $FiLeTmP_PEANO
$Z set NDeFiNiTiOn=`$CA $FiLeTmP_PEANO | $GRE " DefinitionCube=" | $WCl`
$Z set NCoUrBe=`$CA $FiLeTmP_PEANO | $GRE -v " DefinitionCube=" | $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 $CA $FiLeTmP_PEANO | \
$Z $AW ' { print $3 } ' | \
$Z $SE -e "s/^.*=//" \
$Z > $FiLeTmP_PEANO$COORD_Z
$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 cube 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$COORD_Z \
$Z >>! $FiLeTmP_PEANO_all$COORD_Z
$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 NpartZ=`$CA $FiLeTmP_PEANO_all$COORD_Z | $WCl`
$Z set Npart=`$xcg/MIN3.01$X x=$NpartX y=$NpartY z=$NpartZ`
$Z eval $xrv/particule.10$X np=1 iterations=$Npart \
$Z gestion_ombres_portees_____compatibilite_2022060711=VRAI \
$Z gestion_ombres_portees_____compatibilite_2022060712=VRAI \
$Z dernier_premier=VRAI \
$Z LISTE_X=$FiLeTmP_PEANO_all$COORD_X \
$Z LISTE_Y=$FiLeTmP_PEANO_all$COORD_Y \
$Z LISTE_Z=$FiLeTmP_PEANO_all$COORD_Z \
$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=$_____RotationOX \
$Z ROTATION_OY=$_____RotationOY \
$Z ROTATION_OZ=$_____RotationOZ \
$Z isoles=FAUX chainer=FAUX \
$Z ajuster_points=VRAI points=$_____Points nombreR=$_____NombreR \
$Z equidistance=VRAI compatibilite_20051230=FAUX \
$Z cubique=$_____Cubique \
$Z derivees_automatiques=FAUX \
$Z LISTE_dX=$_____DeriveeX LISTE_dY=$_____DeriveeY LISTE_dZ=$_____DeriveeZ \
$Z RVB=VRAI \
$Z N_AU_CARRE=$_____NAuCarre \
$Z editer_extrema_hors=FAUX \
$Z $_____Fond \
$Z $_____OmbresPortees \
$Z $_____ParticulePara1 \
$Z R=$_____ImageR \
$Z chiffres=0 \
$Z $_____Argument \
$Z $formatI \
$Z $_____Redirection
$Z # Les options "compatibilite_2022060711" et "compatibilite_2022060712" ont ete introduites #
$Z # le 20220608102638... #
$Z # #
$Z # Le 'eval' a ete introduit le 20230102101056 a cause de l'eventuelle '$_____Redirection' #
$Z # et '$_____Argument' le 20230102101056... #
$Z FileTmpE FiLeTmP_PEANO_all