#######################################################################################################################################
# #
# 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 E T U N E T A B L E P O S E E D E S S U S : #
# #
# #
# Author of '$xiirf/.PAYT.Y.13.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20111021105208). #
# #
#######################################################################################################################################
$Z setParam _____DmXY 10
$Z # Parametre introduit le 20111115080457... #
$Z setParam _____HauteurTable 0.3
$Z setParam _____NPointsTable 200
$Z setParam _____FRayonTable 2
$Z setParam _____Zoom 0.8
$Z # Parametre introduit le 20111027110901... #
$Z setParam _____RotationPX -1.0
$Z # Parametre introduit le 20111114190243... #
$Z setParam _____RotationPY `GetParam $xrv/pts_3D.11$Z Rotation_OY`
$Z # Parametre introduit le 20111114190243... #
$Z setParam _____RotationPZ `GetParam $xrv/pts_3D.11$Z Rotation_OZ`
$Z # Parametre introduit le 20111114190243... #
$Z setParam _____TranslationY 0.5
$Z # Parametre introduit le 20111027110901... #
$Z setParam _____Zminimum 0.5
$Z # Parametre introduit le 20111027110901... #
$Z IFS ( (-e $_____ImagesR1$m$ROUGE) \
$Z || (-e $_____ImagesR1$m$VERTE) \
$Z || (-e $_____ImagesR1$m$BLEUE) \
$Z ) THENS
$Z # Test introduit le 20111021132334 pour permettre le traitement d'images en vraies couleurs. #
$Z # #
$Z # Le remplacement de 'if(...)' par 'IFS(...)' le 20111023113516 est du a une petite #
$Z # difficulte situee dans 'v $Falias_listG 20111023113241' lors de la recuperation des #
$Z # 'if(...)'s et autres, qui ignore evidemment les lignes suite et provoque donc des : #
$Z # #
$Z # Too many ('s. #
$Z # #
$Z # dans les 'source's qui suivent. Le 'THENS' est lui-aussi necessaire... #
$Z else
$Z $xci/vraies_C$X \
$Z A=$_____ImagesR1$m \
$Z p=$xiP/montagnes.91 \
$Z R=$_____ImagesR1$m \
$Z $formatI
$Z endif
$Z execRVB $xci/acces$X \
$Z A=$_____ImagesR1$m%s \
$Z convertir=VRAI brutal=VRAI \
$Z R=$_____ImagesR1$m%s \
$Z $formatI
$Z FileTmpB LiStEPoInTs
$Z set RaYoN=3
$Z $xrv/champs_5.10$X \
$Z standard=FAUX \
$Z evolution=FAUX \
$Z cZ=$xTV/FRACTAL_UP \
$Z facteurR=$RaYoN \
$Z cRAYON=1 \
$Z cROUGE=$_____ImagesR1$m$ROUGE \
$Z cVERTE=$_____ImagesR1$m$VERTE \
$Z cBLEUE=$_____ImagesR1$m$BLEUE \
$Z np=1 \
$Z TRANSLATION_OX=0 \
$Z TRANSLATION_OY=0 \
$Z TRANSLATION_OZ=0 \
$Z ROTATION_OX=0 \
$Z ROTATION_OY=0 \
$Z ROTATION_OZ=0 \
$Z ZOOM=1 \
$Z zoom_automatique=FAUX \
$Z Lx=100 Ly=100 Lz=1000 \
$Z pash=1 pasv=1 \
$Z dmX=$_____DmXY dmY=$_____DmXY \
$Z N_au_carre=FAUX \
$Z chiffres=0 \
$Z R=$_____ImagesR1.1 \
$Z lister_les_points_apres=VRAI \
$Z lister_les_points=VRAI \
$Z $formatI \
$Z >& $LiStEPoInTs
$Z set _____CoTeCoMmUnE=`calcul $_____CoteCommune-(($dimZ/2)/$dimZ)`
$Z # Translation due a 'v $xrv/champs_5.10$K a Ztranslation'. #
$Z set CoOrDoNnEeX2_1=$CoOrDoNnEeX1_1
$Z set CoOrDoNnEeY2_1=$CoOrDoNnEeY1_1
$Z set CoOrDoNnEeZ1_1=$_____CoTeCoMmUnE
$Z set CoOrDoNnEeZ2_1=`calcul $_____CoTeCoMmUnE+$_____HauteurTable`
$Z set CoOrDoNnEeX2_2=$CoOrDoNnEeX1_2
$Z set CoOrDoNnEeY2_2=$CoOrDoNnEeY1_2
$Z set CoOrDoNnEeZ1_2=$_____CoTeCoMmUnE
$Z set CoOrDoNnEeZ2_2=`calcul $_____CoTeCoMmUnE+$_____HauteurTable`
$Z set CoOrDoNnEeX2_3=$CoOrDoNnEeX1_3
$Z set CoOrDoNnEeY2_3=$CoOrDoNnEeY1_3
$Z set CoOrDoNnEeZ1_3=$_____CoTeCoMmUnE
$Z set CoOrDoNnEeZ2_3=`calcul $_____CoTeCoMmUnE+$_____HauteurTable`
$Z set CoOrDoNnEeX2_4=$CoOrDoNnEeX1_4
$Z set CoOrDoNnEeY2_4=$CoOrDoNnEeY1_4
$Z set CoOrDoNnEeZ1_4=$_____CoTeCoMmUnE
$Z set CoOrDoNnEeZ2_4=`calcul $_____CoTeCoMmUnE+$_____HauteurTable`
$Z set NPoInTs1=$_____NPointsTable
$Z FileTmpB LiStEPoInTs_X
$Z FileTmpB LiStEPoInTs_Y
$Z FileTmpB LiStEPoInTs_Z
$Z FileTmpB LiStEPoInTs_r
$Z FileTmpB LiStEPoInTs_R
$Z FileTmpB LiStEPoInTs_V
$Z FileTmpB LiStEPoInTs_B
$Z set PaRaM="premiere=1 derniere=$NPoInTs1 lineaire=VRAI"
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeX1_1 vA=$CoOrDoNnEeX2_1 \
$Z >& $LiStEPoInTs_X
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeX1_2 vA=$CoOrDoNnEeX2_2 \
$Z >>& $LiStEPoInTs_X
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeX1_3 vA=$CoOrDoNnEeX2_3 \
$Z >>& $LiStEPoInTs_X
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeX1_4 vA=$CoOrDoNnEeX2_4 \
$Z >>& $LiStEPoInTs_X
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeX2_1 vA=$CoOrDoNnEeX2_2 \
$Z >>& $LiStEPoInTs_X
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeX2_2 vA=$CoOrDoNnEeX2_3 \
$Z >>& $LiStEPoInTs_X
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeX2_3 vA=$CoOrDoNnEeX2_4 \
$Z >>& $LiStEPoInTs_X
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeX2_4 vA=$CoOrDoNnEeX2_1 \
$Z >>& $LiStEPoInTs_X
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeY1_1 vA=$CoOrDoNnEeY2_1 \
$Z >& $LiStEPoInTs_Y
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeY1_2 vA=$CoOrDoNnEeY2_2 \
$Z >>& $LiStEPoInTs_Y
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeY1_3 vA=$CoOrDoNnEeY2_3 \
$Z >>& $LiStEPoInTs_Y
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeY1_4 vA=$CoOrDoNnEeY2_4 \
$Z >>& $LiStEPoInTs_Y
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeY2_1 vA=$CoOrDoNnEeY2_2 \
$Z >>& $LiStEPoInTs_Y
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeY2_2 vA=$CoOrDoNnEeY2_3 \
$Z >>& $LiStEPoInTs_Y
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeY2_3 vA=$CoOrDoNnEeY2_4 \
$Z >>& $LiStEPoInTs_Y
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeY2_4 vA=$CoOrDoNnEeY2_1 \
$Z >>& $LiStEPoInTs_Y
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeZ1_1 vA=$CoOrDoNnEeZ2_1 \
$Z >& $LiStEPoInTs_Z
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeZ1_2 vA=$CoOrDoNnEeZ2_2 \
$Z >>& $LiStEPoInTs_Z
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeZ1_3 vA=$CoOrDoNnEeZ2_3 \
$Z >>& $LiStEPoInTs_Z
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeZ1_4 vA=$CoOrDoNnEeZ2_4 \
$Z >>& $LiStEPoInTs_Z
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeZ2_1 vA=$CoOrDoNnEeZ2_2 \
$Z >>& $LiStEPoInTs_Z
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeZ2_2 vA=$CoOrDoNnEeZ2_3 \
$Z >>& $LiStEPoInTs_Z
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeZ2_3 vA=$CoOrDoNnEeZ2_4 \
$Z >>& $LiStEPoInTs_Z
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$CoOrDoNnEeZ2_4 vA=$CoOrDoNnEeZ2_1 \
$Z >>& $LiStEPoInTs_Z
$Z set NPoInTs8=`calcul 2*4*$NPoInTs1`
$Z # La table est faite de 2x4 segments (4 pieds et 4 cotes). #
$Z set RaYoNT=`calcul ($_____FRayonTable*$RaYoN)/$dimZ`
$Z set PaRaM="premiere=1 derniere=$NPoInTs8 lineaire=VRAI"
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$RaYoNT vA=$RaYoNT \
$Z >& $LiStEPoInTs_r
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$BLANC vA=$BLANC \
$Z >& $LiStEPoInTs_R
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$BLANC vA=$BLANC \
$Z >& $LiStEPoInTs_V
$Z $xci/valeurs_inte$X $PaRaM \
$Z vD=$BLANC vA=$BLANC \
$Z >& $LiStEPoInTs_B
$Z FileTmpB LiStEPoInTs_T
$Z $PAST \
$Z $LiStEPoInTs_X \
$Z $LiStEPoInTs_Y \
$Z $LiStEPoInTs_Z \
$Z $LiStEPoInTs_r \
$Z $LiStEPoInTs_R \
$Z $LiStEPoInTs_V \
$Z $LiStEPoInTs_B | \
$Z $AW \
$Z ' { print "X=" $1 " Y=" $2 " Z=" $3 " RAYON=" $4 " ROUGE=" $5 " VERTE=" $6 " BLEUE=" $7 } ' \
$Z > $LiStEPoInTs_T
$Z $CA \
$Z $LiStEPoInTs_T \
$Z >> $LiStEPoInTs