#######################################################################################################################################
# #
# P R O D U I T H Y P E R - C O M P L E X E D E Q U A T R E C H A M P S : #
# #
# #
# Author of '$xiirv/.QUAT.A1.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20060625123243). #
# #
#######################################################################################################################################
$Z setParam _____Champ1 trefle
$Z setParam _____Parametres1 "ct=3"
$Z setParam _____Champ2 trefle
$Z setParam _____Parametres2 "ct=4"
$Z setParam _____Champ3 trefle
$Z setParam _____Parametres3 "ct=5"
$Z setParam _____Champ4 trefle
$Z setParam _____Parametres4 "ct=6"
$Z setParam _____Arithmetique "arithmetique_etendue=FAUX arithmetique_etendue_produit=FAUX"
$Z # Introduit le 20061019085547... #
$Z setParam _____PonderS "pcR=1 pcI=0 pcJ=0 pcK=0 pcM=0 pcT=0 pcP=0 pcA=0"
$Z setParam _____PonderR "pcR=0 pcI=1 pcJ=0 pcK=0 pcM=0 pcT=0 pcP=0 pcA=0"
$Z setParam _____PonderV "pcR=0 pcI=0 pcJ=1 pcK=0 pcM=0 pcT=0 pcP=0 pcA=0"
$Z setParam _____PonderB "pcR=0 pcI=0 pcJ=0 pcK=1 pcM=0 pcT=0 pcP=0 pcA=0"
$Z setParam _____ZeroM `GetParam $xci/montagne.01 zero`
$Z # Introduit le 20060628143609... #
$Z setParam _____ModeFormat 7
$Z # Introduit le 20121211132926... #
$Z SformatI
$Z # Introduit le 20121211112019... #
#20121211150223____:$Z Sdu #
$Z if ("$formatI" == "$format_Pal") then
$Z # Test introduit le 20121211150223... #
$Z Sdu
$Z else
$Z if ("$formatI" == "$format_Pdu") then
$Z # Test introduit le 20121211150223... #
$Z Squ
$Z else
$Z Shu
$Z # Que faire d'autre... #
$Z endif
$Z endif
$Z $xci/$_____Champ1$X \
$Z standard=FAUX \
$Z $_____Parametres1 \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z R=$xTV/CHAMP.11 \
$Z $formatI
$Z # Le 20121211141917, je note que pour '$xci/$_____Champ1$X' il faut utiliser l'option : #
$Z # #
$Z # COORDONNEES_____compatibilite_20090929=VRAI #
$Z # #
$Z # si l'on veut reproduire des images telle 'v $xiirv/QUAT.D1'... #
$Z $xci/$_____Champ2$X \
$Z standard=FAUX \
$Z $_____Parametres2 \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z R=$xTV/CHAMP.12 \
$Z $formatI
$Z # Le 20121211141917, je note que pour '$xci/$_____Champ2$X' il faut utiliser l'option : #
$Z # #
$Z # COORDONNEES_____compatibilite_20090929=VRAI #
$Z # #
$Z # si l'on veut reproduire des images telle 'v $xiirv/QUAT.D1'... #
$Z $xci/$_____Champ3$X \
$Z standard=FAUX \
$Z $_____Parametres3 \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z R=$xTV/CHAMP.21 \
$Z $formatI
$Z # Le 20121211141917, je note que pour '$xci/$_____Champ3$X' il faut utiliser l'option : #
$Z # #
$Z # COORDONNEES_____compatibilite_20090929=VRAI #
$Z # #
$Z # si l'on veut reproduire des images telle 'v $xiirv/QUAT.D1'... #
$Z $xci/$_____Champ4$X \
$Z standard=FAUX \
$Z $_____Parametres4 \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z R=$xTV/CHAMP.22 \
$Z $formatI
$Z # Le 20121211141917, je note que pour '$xci/$_____Champ4$X' il faut utiliser l'option : #
$Z # #
$Z # COORDONNEES_____compatibilite_20090929=VRAI #
$Z # #
$Z # si l'on veut reproduire des images telle 'v $xiirv/QUAT.D1'... #
$Z $xci/multHC_02.01$X \
$Z AR1=$xTV/CHAMP.11 \
$Z AI1=$xTV/CHAMP.12 \
$Z AJ1=$xTV/CHAMP.21 \
$Z AK1=$xTV/CHAMP.22 \
$Z AR2=$xTV/CHAMP.22 \
$Z AI2=$xTV/CHAMP.21 \
$Z AJ2=$xTV/CHAMP.11 \
$Z AK2=$xTV/CHAMP.12 \
$Z $_____Arithmetique \
$Z $_____PonderS \
$Z R=$xTV/SURFACE \
$Z $formatI
$Z $xci/multHC_02.01$X \
$Z AR1=$xTV/CHAMP.11 \
$Z AI1=$xTV/CHAMP.12 \
$Z AJ1=$xTV/CHAMP.21 \
$Z AK1=$xTV/CHAMP.22 \
$Z AR2=$xTV/CHAMP.22 \
$Z AI2=$xTV/CHAMP.21 \
$Z AJ2=$xTV/CHAMP.11 \
$Z AK2=$xTV/CHAMP.12 \
$Z $_____Arithmetique \
$Z $_____PonderR \
$Z $formatI | \
$Z $xci/acces$X \
$Z standard=FAUX zero=FAUX \
$Z R=$xTV/SURFACE$ROUGE \
$Z $formatI
$Z $xci/multHC_02.01$X \
$Z AR1=$xTV/CHAMP.11 \
$Z AI1=$xTV/CHAMP.12 \
$Z AJ1=$xTV/CHAMP.21 \
$Z AK1=$xTV/CHAMP.22 \
$Z AR2=$xTV/CHAMP.22 \
$Z AI2=$xTV/CHAMP.21 \
$Z AJ2=$xTV/CHAMP.11 \
$Z AK2=$xTV/CHAMP.12 \
$Z $_____Arithmetique \
$Z $_____PonderV \
$Z $formatI | \
$Z $xci/acces$X \
$Z standard=FAUX zero=FAUX \
$Z R=$xTV/SURFACE$VERTE \
$Z $formatI
$Z $xci/multHC_02.01$X \
$Z AR1=$xTV/CHAMP.11 \
$Z AI1=$xTV/CHAMP.12 \
$Z AJ1=$xTV/CHAMP.21 \
$Z AK1=$xTV/CHAMP.22 \
$Z AR2=$xTV/CHAMP.22 \
$Z AI2=$xTV/CHAMP.21 \
$Z AJ2=$xTV/CHAMP.11 \
$Z AK2=$xTV/CHAMP.12 \
$Z $_____Arithmetique \
$Z $_____PonderB \
$Z $formatI | \
$Z $xci/acces$X \
$Z standard=FAUX zero=FAUX \
$Z R=$xTV/SURFACE$BLEUE \
$Z $formatI
#20121211113013____:$Z eval `$xci/genere$X \\\ #
#20121211113013____:$Z commande='($xci/montagne.01$X \\\ #
#20121211113013____:$Z A=$xTV/SURFACE \\\ #
#20121211113013____:$Z standard=FAUX \\\ #
#20121211113013____:$Z zero=$_____ZeroM \\\ #
#20121211113013____:$Z T=$xTV/SURFACE%s \\\ #
#20121211113013____:$Z avion=VRAI \\\ #
#20121211113013____:$Z $formatI | \\\ #
#20121211113013____:$Z $xci/transpose$X \\\ #
#20121211113013____:$Z $formatI | \\\ #
#20121211113013____:$Z $xci/format.01$X \\\ #
#20121211113013____:$Z mode=7 \\\ #
#20121211113013____:$Z R=$_____imageR%s \\\ #
#20121211113013____:$Z $formatI \\\ #
#20121211113013____:$Z $formatR_Pal)' \\\ #
#20121211113013____:$Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
$Z eval `$xci/genere$X \\\
$Z commande='($xci/montagne.01$X \\\
$Z A=$xTV/SURFACE \\\
$Z standard=FAUX \\\
$Z zero=$_____ZeroM \\\
$Z T=$xTV/SURFACE%s \\\
$Z avion=VRAI \\\
$Z $formatI | \\\
$Z $xci/transpose$X \\\
$Z $formatI | \\\
$Z $xci/format.01$X \\\
$Z mode=$_____ModeFormat \\\
$Z R=$_____imageR%s \\\
$Z $formatI \\\
$Z $sformatIR)' \\\
$Z en_tete=FAUX RVB=VRAI separateur=VRAI`
$Z # Le 20121211141917, je note que pour '$xci/$montagne.01$X' il faut utiliser l'option : #
$Z # #
$Z # COORDONNEES_____compatibilite_20090929=VRAI #
$Z # #
$Z # si l'on veut reproduire des images telle 'v $xiirv/QUAT.D1'... #
#20121211112019____:$Z Pal #
$Z RformatI
$Z # Introduit le 20121211112019... #