#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E M O N T A G N E A V E C Q U A T R E P O I N T S #
# A L A M E M E C O T E : #
# #
# #
# Author of '$xiirf/.PAYT.Y.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20111019134412). #
# #
#######################################################################################################################################
$Z SETParam _____GenFractal $EXIST
$Z # Parametre introduit le 20111023182820... #
$Z setParam _____Iterations `GetParam $xci/fract_2D.01$X iterations`
$Z # Parametre introduit le 20111021205709... #
$Z setParam _____MailleX `GetParam $xci/fract_2D.01$X mX`
$Z # Parametre introduit le 20111021210443... #
$Z setParam _____MailleY `GetParam $xci/fract_2D.01$X mY`
$Z # Parametre introduit le 20111021210443... #
$Z setParam _____CoteCommune 1.8
$Z # Ce parametre definit la cote commune des quatre points... #
$Z # #
$Z # Le 20111021093945 le nom '$_____Hauteur' a ete remplace par '$_____CoteCommune' plus #
$Z # "parlant"... #
$Z setParam _____Largeur 100.0
$Z # Ce parametre definit la "largeur" des gaussiennes. Afin de decoupler au maximum les points #
$Z # dont on veut qu'ils aient la meme cote, il convient de faire que ces gaussiennes soient #
$Z # tres etroites, d'ou une valeur forte pour '$_____Largeur'. #
$Z setParam _____XBasGauche 0.2
$Z setParam _____YBasGauche 0.2
$Z setParam _____XHautDroite 0.8
$Z setParam _____YHautDroite 0.8
$Z if ($_____GenFractal == $EXIST) then
$Z # Test introduit le 20111023182820... #
$Z $xci/fract_2D.01$X \
$Z standard=FAUX \
$Z iterations=$_____Iterations \
$Z mX=$_____MailleX mY=$_____MailleY \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z R=$xTV/FRACTAL \
$Z $formatI
$Z else
$Z endif
$Z set PCoOrDoNnEeZ="$K_VIDE"
$Z set PCoOrDoNnEeZ="$PCoOrDoNnEeZ"" standard=FAUX"
$Z set PCoOrDoNnEeZ="$PCoOrDoNnEeZ"" A=$xTV/FRACTAL"
$Z set PCoOrDoNnEeZ="$PCoOrDoNnEeZ"" normalisees=VRAI"
$Z set PCoOrDoNnEeZ="$PCoOrDoNnEeZ"" Prme=VRAI"
$Z
$Z set PGaUsS="$K_VIDE"
$Z set PGaUsS="standard=FAUX"
$Z set PGaUsS="$PGaUsS"" carre_X_CHAMP_3D_____compatibilite_20100210=VRAI"
$Z set PGaUsS="$PGaUsS"" carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI"
$Z set PGaUsS="$PGaUsS"" standard=FAUX"
$Z set PGaUsS="$PGaUsS"" c=$_____Largeur"
$Z
$Z set CoOrDoNnEeX1_1=$_____XBasGauche
$Z set CoOrDoNnEeY1_1=$_____YBasGauche
$Z set CoOrDoNnEeZ1_1=`$xci/niveau$X Xf=$CoOrDoNnEeX1_1 Yf=$CoOrDoNnEeY1_1 $PCoOrDoNnEeZ $formatI`
$Z # Cote du premier point. #
$Z $xci/gauss$X \
$Z TX=$CoOrDoNnEeX1_1 TY=$CoOrDoNnEeY1_1 \
$Z $PGaUsS \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z origine=0 extremite=$CoOrDoNnEeZ1_1 \
$Z R=$xTV/GAUSS_DOWN.21 \
$Z $formatI
$Z $xci/gauss$X \
$Z TX=$CoOrDoNnEeX1_1 TY=$CoOrDoNnEeY1_1 \
$Z $PGaUsS \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z origine=0 extremite=$_____CoteCommune \
$Z R=$xTV/GAUSS_UP.41 \
$Z $formatI
$Z # Generation de deux gaussiennes centrees sur le premier point. La premiere ("DOWN") #
$Z # ramenant ce point a la cote zero et la seconde ("UP") amenant a la cote commune aux #
$Z # quatre points. #
$Z
$Z set CoOrDoNnEeX1_2=$_____XHautDroite
$Z set CoOrDoNnEeY1_2=$_____YBasGauche
$Z set CoOrDoNnEeZ1_2=`$xci/niveau$X Xf=$CoOrDoNnEeX1_2 Yf=$CoOrDoNnEeY1_2 $PCoOrDoNnEeZ $formatI`
$Z # Cote du second point. #
$Z $xci/gauss$X \
$Z TX=$CoOrDoNnEeX1_2 TY=$CoOrDoNnEeY1_2 \
$Z $PGaUsS $formatI | \
$Z $xci/normalise.01$X \
$Z origine=0 extremite=$CoOrDoNnEeZ1_2 \
$Z R=$xTV/GAUSS_DOWN.22 \
$Z $formatI
$Z $xci/gauss$X \
$Z TX=$CoOrDoNnEeX1_2 TY=$CoOrDoNnEeY1_2 \
$Z $PGaUsS \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z origine=0 extremite=$_____CoteCommune \
$Z R=$xTV/GAUSS_UP.42 \
$Z $formatI
$Z # Generation de deux gaussiennes centrees sur le second point. La premiere ("DOWN") #
$Z # ramenant ce point a la cote zero et la seconde ("UP") amenant a la cote commune aux #
$Z # quatre points. #
$Z
$Z set CoOrDoNnEeX1_3=$_____XHautDroite
$Z set CoOrDoNnEeY1_3=$_____YHautDroite
$Z set CoOrDoNnEeZ1_3=`$xci/niveau$X Xf=$CoOrDoNnEeX1_3 Yf=$CoOrDoNnEeY1_3 $PCoOrDoNnEeZ $formatI`
$Z # Cote du troisieme point. #
$Z $xci/gauss$X \
$Z TX=$CoOrDoNnEeX1_3 TY=$CoOrDoNnEeY1_3 \
$Z $PGaUsS \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z origine=0 extremite=$CoOrDoNnEeZ1_3 \
$Z R=$xTV/GAUSS_DOWN.23 \
$Z $formatI
$Z $xci/gauss$X \
$Z TX=$CoOrDoNnEeX1_3 TY=$CoOrDoNnEeY1_3 \
$Z $PGaUsS \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z origine=0 extremite=$_____CoteCommune \
$Z R=$xTV/GAUSS_UP.43 \
$Z $formatI
$Z # Generation de deux gaussiennes centrees sur le troisieme point. La premiere ("DOWN") #
$Z # ramenant ce point a la cote zero et la seconde ("UP") amenant a la cote commune aux #
$Z # quatre points. #
$Z
$Z set CoOrDoNnEeX1_4=$_____XBasGauche
$Z set CoOrDoNnEeY1_4=$_____YHautDroite
$Z set CoOrDoNnEeZ1_4=`$xci/niveau$X Xf=$CoOrDoNnEeX1_4 Yf=$CoOrDoNnEeY1_4 $PCoOrDoNnEeZ $formatI`
$Z # Cote du quatrieme point. #
$Z $xci/gauss$X \
$Z TX=$CoOrDoNnEeX1_4 TY=$CoOrDoNnEeY1_4 \
$Z $PGaUsS \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z origine=0 extremite=$CoOrDoNnEeZ1_4 \
$Z R=$xTV/GAUSS_DOWN.24 \
$Z $formatI
$Z $xci/gauss$X \
$Z TX=$CoOrDoNnEeX1_4 TY=$CoOrDoNnEeY1_4 \
$Z $PGaUsS \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z origine=0 extremite=$_____CoteCommune \
$Z R=$xTV/GAUSS_UP.44 \
$Z $formatI
$Z # Generation de deux gaussiennes centrees sur le quatrieme point. La premiere ("DOWN") #
$Z # ramenant ce point a la cote zero et la seconde ("UP") amenant a la cote commune aux #
$Z # quatre points. #
$Z
$Z $xci/soustraction$X \
$Z standard=FAUX \
$Z A1=$xTV/FRACTAL \
$Z A2=$xTV/GAUSS_DOWN.21 \
$Z $formatI | \
$Z $xci/soustraction$X \
$Z standard=FAUX \
$Z A2=$xTV/GAUSS_DOWN.22 \
$Z $formatI | \
$Z $xci/soustraction$X \
$Z standard=FAUX \
$Z A2=$xTV/GAUSS_DOWN.23 \
$Z $formatI | \
$Z $xci/soustraction$X \
$Z standard=FAUX \
$Z A2=$xTV/GAUSS_DOWN.24 \
$Z R=$xTV/FRACTAL_DOWN \
$Z $formatI
$Z # Les quatre points sont amenes a la cote "zero" (leurs voisinnages sont aussi abaisses...). #
$Z
$Z $xci/somme_02$X \
$Z standard=FAUX \
$Z A1=$xTV/FRACTAL_DOWN \
$Z A2=$xTV/GAUSS_UP.41 \
$Z $formatI | \
$Z $xci/somme_02$X \
$Z standard=FAUX \
$Z A2=$xTV/GAUSS_UP.42 \
$Z $formatI | \
$Z $xci/somme_02$X \
$Z standard=FAUX \
$Z A2=$xTV/GAUSS_UP.43 \
$Z $formatI | \
$Z $xci/somme_02$X \
$Z standard=FAUX \
$Z A2=$xTV/GAUSS_UP.44 \
$Z R=$xTV/FRACTAL_UP \
$Z $formatI
$Z # Les quatre points sont amenes a la cote commune (leurs voisinnages sont aussi releves...). #
$Z
$Z $xci/montagne.01$X \
$Z A=$xTV/FRACTAL_UP \
$Z standard=FAUX zero=FAUX \
$Z T=$BLANC \
$Z avion=VRAI \
$Z R=$_____ImagesR1$m \
$Z $formatI
$Z
$Z $xci/montagne.01$X \
$Z A=$xTV/FRACTAL_UP \
$Z standard=FAUX zero=FAUX \
$Z T=$BLANC \
$Z avion=FAUX \
$Z Ty=0.75 perspective=0.15 \
$Z R=$_____ImagesR1$M \
$Z $formatI
$Z # Generation des montagnes... #