#######################################################################################################################################
# #
# V I S U A L I S A T I O N D E L ' A C I N U S P U L M O N A I R E : #
# #
# #
# Author of '$xiird/.ACIN.Z1.2.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20160222110844). #
# #
#######################################################################################################################################
$Z setParam _____Iterations 8
$Z # Parametre introduit le 20160222124506... #
$Z setParam _____Facteur 0.75
$Z # Parametre introduit le 20160222124506... #
$Z # #
$Z # ATTENTION : '$_____Facteur' est aussi defini dans 'v $xiirv/.TREE.91.1.$U _____Facteur'... #
$Z setParam _____NBifurcations 2
$Z # Parametre introduit le 20160222124506... #
$Z if ($?_____ArgsArbre == $NEXIST) then
$Z # Test introduit le 20160223145346... #
$Z set _____ArgsArbre="$K_VIDE"
$Z set _____ArgsArbre="$_____ArgsArbre"" evasement_theta=2.8"
$Z set _____ArgsArbre="$_____ArgsArbre"" facteurt=0.7"
$Z else
$Z endif
$m4 _____include(_____xiirv/.TREE.91.1._____U)
$Z @ NExEmPlaiReS = 2 * $NFeUiLlEs
$Z # La multiplication par 2 est due a $xiird/.ACIN.Z1.6.$U chainer=FAUX'... #
$Z SETParam _____MixerData1_Data2 $NEXIST
$Z # ATTENTION, ce test doitr etre apres le 'include(...)' precedent afin d'eviter le #
$Z # message : #
$Z # #
$Z # _____MixerData1_Data2: Undefined variable. #
$Z # #
$Z # Parametre introduit le 20160527103152... #
$Z set HaUtEuR_MiRe=0.1
$Z set RaYoN=0.008
$Z set EcHeLlE_K=$_____G_K
$Z set CoOrDoNnEeX=0.5
$Z set CoOrDoNnEeY=`$xcg/AXPB.01$X a=1 x=$HaUtEuR_MiRe b=0.02`
$Z if ($_____MixerData1_Data2 == $EXIST) then
$Z set FaCtEuR_ReDuCtIoN=2
$Z # A cause du '$xci/reduction$X' qui va suivre... #
$Z set HaUtEuR_MiRe=`$xcg/MUL2.01$X a=$FaCtEuR_ReDuCtIoN b=$HaUtEuR_MiRe`
$Z set CoOrDoNnEeY=`$xcg/AXPB.01$X a=2 x=$CoOrDoNnEeY b=0`
$Z # J'ai essaye sans succes : #
$Z # #
$Z # set CoOrDoNnEeY=`$xcg/DIVZ.01$X a=$CoOrDoNnEeY b=$FaCtEuR_ReDuCtIoN` #
$Z # #
$Z # Or malheureusement les coordonnees {X,Y,Z} utilisees pour les titres sont celles de #
$Z # 'v $xrv/particule.10$K' et il est tres difficile, voire impossible, de les mettre en #
$Z # correspondance avec les coordonnees {X,Y} des images utilisees ici dans 'v $xci/mire$K' #
$Z # et ceux en particulier a cause du rapport de zoom. D'ou cette solution "bancale"... #
$Z set RaYoN=`$xcg/MUL2.01$X a=$FaCtEuR_ReDuCtIoN b=$RaYoN`
$Z set EcHeLlE_K=`$xcg/MUL2.01$X a=$FaCtEuR_ReDuCtIoN b=$EcHeLlE_K`
$Z else
$Z endif
$Z $xci/mire$X A=$NOIR \
$Z generale=VRAI \
$Z absolue=FAUX \
$Z hauteur=$HaUtEuR_MiRe \
$Z renormaliser_scale_globale=FAUX \
$Z R=$xTV/MIRE \
$Z $formatI
$Z $xci/vraies_C$X A=$xTV/MIRE \
$Z p=$_____PaletteData1 \
$Z R=$xTV/MIRE_Data1 \
$Z $formatI
$Z $xci/vraies_C$X A=$xTV/MIRE \
$Z p=$_____PaletteData2 \
$Z R=$xTV/MIRE_Data2 \
$Z $formatI
$Z source $xrd/graph.01$vv$Y
$Z G_Init
$Z G_Zoom 1
$Z # La conjontion d'un rapport de zoom egal a 1 et d'une coordonnee 'Z' valant 1/2 permet #
$Z # de garantir une quasi-parfaite identite du plan image et du plane Z=1/2 projete... #
$Z G_Cursor3 $RaYoN
$Z G_K $EcHeLlE_K
$Z G_Cursor1 $CoOrDoNnEeX $CoOrDoNnEeY $Origine_COORD_Z
$Z G_CentreX `G_Message "$_____NomData1"`
$Z G_Genere $xTV/MIRE_Data1 fond=VRAI F=$xTV/MIRE_Data1
$Z source $xrd/graph.01$vv$Y
$Z G_Init
$Z G_Zoom 1
$Z # La conjontion d'un rapport de zoom egal a 1 et d'une coordonnee 'Z' valant 1/2 permet #
$Z # de garantir une quasi-parfaite identite du plan image et du plane Z=1/2 projete... #
$Z G_Cursor3 $RaYoN
$Z G_K $EcHeLlE_K
$Z G_Cursor1 $CoOrDoNnEeX $CoOrDoNnEeY $Origine_COORD_Z
$Z G_CentreX `G_Message "$_____NomData2"`
$Z G_Genere $xTV/MIRE_Data2 fond=VRAI F=$xTV/MIRE_Data2
$Z if ($_____MixerData1_Data2 == $EXIST) then
$Z execRVB $xci/reduction$X \
$Z A=$xTV/MIRE_Data1%s \
$Z F=$NOIR \
$Z centrer=FAUX fenetre=BG \
$Z R=$xTV/MIRE_Data1.1%s \
$Z $formatI
$Z execRVB $xci/reduction$X \
$Z A=$xTV/MIRE_Data2%s \
$Z F=$NOIR \
$Z centrer=FAUX fenetre=BD \
$Z R=$xTV/MIRE_Data2.1%s \
$Z $formatI
$Z execRVB $xci/or_02$X \
$Z A1=$xTV/MIRE_Data1.1%s \
$Z A2=$xTV/MIRE_Data2.1%s \
$Z R=$xTV/MIRE_Data1_Data2%s \
$Z $formatI
$Z else
$Z endif