#######################################################################################################################################
# #
# G E N E R A T I O N D ' E P O N G E S D E M E N G E R " P A R T I C U L A I R E S " : #
# #
# #
# Author of '$xiirf/.MENH.91.2.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20220524092519). #
# #
#######################################################################################################################################
$Z SETParam _____UtiliserSurface $NEXIST
$Z # Parametre introduit le 20220601154616... #
$Z setParam _____DefinitionSurface $xrs/sphere.11$X
$Z # Parametre introduit le 20220601154616... #
$Z setParam _____SurfaceNParalleles 20
$Z setParam _____SurfaceNPointsParalleles 20
$Z setParam _____SurfaceNMeridiens 40
$Z setParam _____SurfaceNPointsMeridiens 20
$Z # Parametres introduits le 20220602103446... #
$Z setParam _____ParamSurface "$K_VIDE"
$Z # Parametre introduit le 20220531163706... #
$Z setParam _____MinimumSNormalisation `GetParam $xrv/normalise.01$X minimum`
$Z setParam _____MaximumSNormalisation `GetParam $xrv/normalise.01$X maximum`
$Z # Parametres introduits le 20220609144138... #
$Z setParam _____Normaliser FAUX
$Z # Parametre introduit le 20220531163209... #
#20220603143508____:$Z setParam _____ExtremaNormalisation 1 #
$Z setParam _____MinimumNormalisation -1
$Z setParam _____MaximumNormalisation +1
$Z # Parametre(s) introduit(s) le 20220531163209 et generalises le 20220603143508... #
$Z SETParam _____TransformationFonctions $NEXIST
$Z # Parametre introduit le 20220609172053... #
$Z setParam _____ParamFonctions "$K_VIDE"
$Z SETParam _____TransformationConforme $NEXIST
$Z # Parametre introduit le 20220531163706... #
$Z setParam _____ParamConforme "$K_VIDE"
$Z # Parametre introduit le 20220531163706... #
$Z setParam _____RayonMinimal 0.005
$Z setParam _____RayonMaximal 0.200
$Z setParam _____FormatImage Pal
$Z setParam _____RotationX 0.5
#20220524121024____:$Z setParam _____RotationY 0.7 #
$Z setParam _____RotationY 1.0
$Z setParam _____RotationZ `GetParam $xrv/particule.10$X ROTATION_OZ`
$Z # Parametre introduit le 20220531153218... #
$Z setParam _____Zoom 0.78
$Z setParam _____Palette $xiP/random.B3$Fi
$Z setParam _____OmbresPortees "$K_VIDE"
$Z # Parametre introduit le 20220603115521... #
$Z setParam _____ParticulePara "$K_VIDE"
$Z FilSTmpB FPoInTs
$Z if ($_____UtiliserSurface == $NEXIST) then
$Z # Cas ou c'est l'eponge de Menger qui est utilisee : #
$Z set Zmin_1=`calculINS $cPremiere-1`
$Z set Zmax_1=`calculINS $cDerniere-1`
$Z set Zmin_Zmax_1="Zmin=$Zmin_1 Zmax=$Zmax_1"
$Z $xrv/liste_album$X premiere=1 \
$Z A=$_____ImageT2. \
$Z pX=1 pY=0 pZ=0 \
$Z $formatI \
$Z $Zmin_Zmax_1 | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z normaliser=$_____Normaliser \
#20220603143508____:$Z minimum=-$_____ExtremaNormalisation maximum=+$_____ExtremaNormalisation \ #
$Z minimum=$_____MinimumNormalisation maximum=$_____MaximumNormalisation \
$Z > $FPoInTs$COORD_X
$Z # La renormalisation, non active par defaut, a ete introduite le 20220531163209... #
$Z $xrv/liste_album$X premiere=1 \
$Z A=$_____ImageT2. \
$Z pX=0 pY=1 pZ=0 \
$Z $formatI \
$Z $Zmin_Zmax_1 | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z normaliser=$_____Normaliser \
#20220603143508____:$Z minimum=-$_____ExtremaNormalisation maximum=+$_____ExtremaNormalisation \ #
$Z minimum=$_____MinimumNormalisation maximum=$_____MaximumNormalisation \
$Z > $FPoInTs$COORD_Y
$Z # La renormalisation, non active par defaut, a ete introduite le 20220531163209... #
$Z $xrv/liste_album$X premiere=1 \
$Z A=$_____ImageT2. \
$Z pX=0 pY=0 pZ=1 \
$Z $formatI \
$Z $Zmin_Zmax_1 | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z normaliser=$_____Normaliser \
#20220603143508____:$Z minimum=-$_____ExtremaNormalisation maximum=+$_____ExtremaNormalisation \ #
$Z minimum=$_____MinimumNormalisation maximum=$_____MaximumNormalisation \
$Z > $FPoInTs$COORD_Z
$Z # La renormalisation, non active par defaut, a ete introduite le 20220531163209... #
$Z eval $_____FormatImage
$Z else
$Z # Cas ou c'est une surface qui est utilisee (introduit le 20220601154616) : #
$Z FilSTmpB ImAgE_SURFACE
$Z $_____DefinitionSurface \
$Z np=1 \
$Z nombre_paralleles=$_____SurfaceNParalleles \
$Z nombre_points_entre_deux_paralleles=$_____SurfaceNPointsParalleles \
$Z nombre_meridiens=$_____SurfaceNMeridiens \
$Z nombre_points_entre_deux_meridiens=$_____SurfaceNPointsMeridiens \
$Z faciliter_parametrage_u_v=VRAI \
$Z r=0.010 \
$Z N_AU_CARRE=FAUX \
$Z lister_les_points=VRAI lister_les_points_apres=VRAI \
$Z $_____ParamSurface \
$Z chiffres=0 \
#20220610163043____:$Z R=$xTV/SURFACE | \ #
$Z R=$ImAgE_SURFACE | \
$Z $AW ' { print $3 " " $4 " " $5 } ' \
$Z >> $FPoInTs
$Z FilSTmpE ImAgE_SURFACE
$Z $CA $FPoInTs | \
$Z $AW ' { print $1 } ' | \
$Z $SE -e "s/^.*=//" | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z normaliser=$_____Normaliser \
$Z minimum=$_____MinimumSNormalisation maximum=$_____MaximumSNormalisation \
$Z > $FPoInTs$COORD_X
$Z $CA $FPoInTs | \
$Z $AW ' { print $2 } ' | \
$Z $SE -e "s/^.*=//" | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z normaliser=$_____Normaliser \
$Z minimum=$_____MinimumSNormalisation maximum=$_____MaximumSNormalisation \
$Z > $FPoInTs$COORD_Y
$Z $CA $FPoInTs | \
$Z $AW ' { print $3 } ' | \
$Z $SE -e "s/^.*=//" | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z normaliser=$_____Normaliser \
$Z minimum=$_____MinimumSNormalisation maximum=$_____MaximumSNormalisation \
$Z > $FPoInTs$COORD_Z
$Z endif
$Z set NPoIn_X=`$CA $FPoInTs$COORD_X | $WCl`
$Z set NPoIn_Y=`$CA $FPoInTs$COORD_Y | $WCl`
$Z set NPoIn_Z=`$CA $FPoInTs$COORD_Z | $WCl`
#20220615094549____:$Z set NPoIntS=`$xcg/MAX3.01$X x=$NPoIn_X y=$NPoIn_Y z=$NPoIn_Z` #
$Z set NPoIntS=`$xcg/MIN3.01$X x=$NPoIn_X y=$NPoIn_Y z=$NPoIn_Z`
$Z if ($_____TransformationFonctions == $EXIST) then
$Z # Possibilite introduite le 20220609172053... #
$Z FilSTmpB FPoInTs_FoNcT
$Z set ArGuMeNtS="$K_VIDE"
$Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_R=$FPoInTs$COORD_X"
$Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_I=$FPoInTs$COORD_Y"
$Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_J=$FPoInTs$COORD_Z"
$Z set ArGuMeNtS="$ArGuMeNtS"" $_____ParamFonctions"
$Z $xrv/o_fonctions.81$X \
$Z ne=0 \
$Z $ArGuMeNtS \
$Z pR=1 pI=0 pJ=0 pK=0 pS=0 pT=0 pU=0 pV=0 | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z > $FPoInTs_FoNcT$COORD_X
$Z $xrv/o_fonctions.81$X \
$Z ne=0 \
$Z $ArGuMeNtS \
$Z pR=0 pI=1 pJ=0 pK=0 pS=0 pT=0 pU=0 pV=0 | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z > $FPoInTs_FoNcT$COORD_Y
$Z $xrv/o_fonctions.81$X \
$Z ne=0 \
$Z $ArGuMeNtS \
$Z pR=0 pI=0 pJ=1 pK=0 pS=0 pT=0 pU=0 pV=0 | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z > $FPoInTs_FoNcT$COORD_Z
$Z $DELETE $FPoInTs$COORD_X
$Z $DELETE $FPoInTs$COORD_Y
$Z $DELETE $FPoInTs$COORD_Z
$Z $MV $FPoInTs_FoNcT$COORD_X $FPoInTs$COORD_X
$Z $MV $FPoInTs_FoNcT$COORD_Y $FPoInTs$COORD_Y
$Z $MV $FPoInTs_FoNcT$COORD_Z $FPoInTs$COORD_Z
$Z FilSTmpE FPoInTs_FoNcT
$Z else
$Z endif
$Z if ($_____TransformationConforme == $EXIST) then
$Z # Possibilite introduite le 20220531163706... #
$Z FilSTmpB FPoInTs_TrAnS
$Z set ArGuMeNtS="$K_VIDE"
$Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_R=$FPoInTs$COORD_X"
$Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_I=$FPoInTs$COORD_Y"
$Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_J=$FPoInTs$COORD_Z"
$Z set ArGuMeNtS="$ArGuMeNtS"" $_____ParamConforme"
$Z $xrv/o_homographique.81$X \
$Z ne=0 \
$Z $ArGuMeNtS \
$Z pR=1 pI=0 pJ=0 pK=0 pS=0 pT=0 pU=0 pV=0 | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z > $FPoInTs_TrAnS$COORD_X
$Z $xrv/o_homographique.81$X \
$Z ne=0 \
$Z $ArGuMeNtS \
$Z pR=0 pI=1 pJ=0 pK=0 pS=0 pT=0 pU=0 pV=0 | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z > $FPoInTs_TrAnS$COORD_Y
$Z $xrv/o_homographique.81$X \
$Z ne=0 \
$Z $ArGuMeNtS \
$Z pR=0 pI=0 pJ=1 pK=0 pS=0 pT=0 pU=0 pV=0 | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z > $FPoInTs_TrAnS$COORD_Z
$Z $DELETE $FPoInTs$COORD_X
$Z $DELETE $FPoInTs$COORD_Y
$Z $DELETE $FPoInTs$COORD_Z
$Z $MV $FPoInTs_TrAnS$COORD_X $FPoInTs$COORD_X
$Z $MV $FPoInTs_TrAnS$COORD_Y $FPoInTs$COORD_Y
$Z $MV $FPoInTs_TrAnS$COORD_Z $FPoInTs$COORD_Z
$Z FilSTmpE FPoInTs_TrAnS
$Z else
$Z endif
$Z $xci/valeurs_inte$X p=1 d=$NPoIntS \
$Z entiers=VRAI \
$Z vD=$NOIR_PLANCHER vA=$BLANC \
$Z lineaire=VRAI \
$Z > $FPoInTs$NIVEAU
$Z set CeNtRe_X=`$xrv/extrema.01$X ne=0 fichier=$FPoInTs$COORD_X moyenne_seule=VRAI`
$Z set CeNtRe_Y=`$xrv/extrema.01$X ne=0 fichier=$FPoInTs$COORD_Y moyenne_seule=VRAI`
$Z set CeNtRe_Z=`$xrv/extrema.01$X ne=0 fichier=$FPoInTs$COORD_Z moyenne_seule=VRAI`
$Z $xrv/gauss.01$X ne=0 \
$Z LISTE_X=$FPoInTs$COORD_X \
$Z LISTE_Y=$FPoInTs$COORD_Y \
$Z LISTE_Z=$FPoInTs$COORD_Z \
$Z x0=$CeNtRe_X y0=$CeNtRe_Y z0=$CeNtRe_Z \
$Z pd=10 | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z mR=$_____RayonMinimal MR=$_____RayonMaximal \
$Z > $FPoInTs$RAYON
$Z $xrv/particule.10$X npoints=$NPoIntS \
$Z gestion_ombres_portees_____compatibilite_2022060711=VRAI \
$Z gestion_ombres_portees_____compatibilite_2022060712=VRAI \
$Z LISTE_X=$FPoInTs$COORD_X \
$Z LISTE_Y=$FPoInTs$COORD_Y \
$Z LISTE_Z=$FPoInTs$COORD_Z \
$Z LISTE_NIVEAU=$FPoInTs$NIVEAU \
$Z p=$_____Palette \
$Z LISTE_RAYON=$FPoInTs$RAYON \
$Z isoles=VRAI \
$Z ZOOM=$_____Zoom \
$Z ROTATION_OX=$_____RotationX \
$Z ROTATION_OY=$_____RotationY \
$Z ROTATION_OZ=$_____RotationZ \
$Z Lz=1000 Lx=0 Ly=0 \
$Z $_____OmbresPortees \
$Z $_____ParticulePara \
$Z chiffres=0 \
$Z R=$_____ImageR \
$Z $formatI
$Z # L'option "ROTATION_OZ=" a ete introduite le 20220531153218... #
$Z # #
$Z # Les options "compatibilite_2022060711" et "compatibilite_2022060712" ont ete introduites #
$Z # le 20220608102319... #
$Z FilSTmpE FPoInTs