#######################################################################################################################################
# #
# V I S U A L I S A T I O N D E L ' A R B R E D E S T E R N - B R O C O T : #
# #
# #
# Author of '$xiirv/.STBR.21.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20220805093800). #
# #
#######################################################################################################################################
$Z setParam _____Profondeur 8
$Z setParam _____TriDimensionnel $NEXIST
$Z # Parametre introduit le 20220816140923.... #
#20220816180909____:$Z setParam _____NiveauxZ $NEXIST #
$Z setParam _____NiveauxZ $EXIST
$Z # Parametre introduit le 20220816152137.... #
#20220806092535____:$Z setParam _____CoordonneeZ 0.5 #
$Z setParam _____CoordonneeZ `GetParam $xrv/particule.10$X LISTE_Z`
$Z setParam _____Zoom 3.00
$Z setParam _____Rayon 0.015
$Z setParam _____Grossissement 2.0
#20220805105355____:$Z setParam _____DistanceMinimale 0.010 #
#20220806094936____:$Z setParam _____DistanceMinimale 0.040 #
$Z setParam _____DistanceMinimale 0.010
#20220805123008____:$Z setParam _____PaletteSB $xiP/cercle.35 #
#20220816180909____:$Z setParam _____PaletteSB $xiP/trou_noir.G4 #
#20220818140846____:$Z setParam _____PaletteSB $xiP/cercle.52 #
$Z setParam _____PaletteSB $xiP/cercle.53
$Z setParam _____ParticulePara "$K_VIDE"
$Z FilSTmpB FStErNBrOcOt
#20220816140923____:$Z $xci/valeurs_ArbreSternBrocot$X \ #
#20220816140923____:$Z profondeur=$_____Profondeur \ #
#20220816140923____:$Z trier=FAUX | \ #
#20220816140923____:$Z $R "/" " " \ #
#20220816140923____:$Z >> $FStErNBrOcOt #
$Z $xci/valeurs_ArbreSternBrocot$X \
$Z profondeur=$_____Profondeur \
$Z trier=FAUX \
$Z valeurs_decimales=VRAI | \
$Z $R "[=/]" " " \
$Z >> $FStErNBrOcOt
$Z $CA $FStErNBrOcOt | \
$Z $AW ' { print $1 } ' \
$Z > $FStErNBrOcOt.1$COORD_X
$Z $CA $FStErNBrOcOt.1$COORD_X | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z > $FStErNBrOcOt$COORD_X
$Z $CA $FStErNBrOcOt | \
$Z $AW ' { print $2 } ' \
$Z > $FStErNBrOcOt.1$COORD_Y
$Z $CA $FStErNBrOcOt.1$COORD_Y | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z > $FStErNBrOcOt$COORD_Y
$Z $CA $FStErNBrOcOt | \
$Z $AW ' { print $3 } ' \
$Z > $FStErNBrOcOt.1$COORD_Z
$Z set NPoInTsX=`$CA $FStErNBrOcOt.1$COORD_X | $WCl`
$Z set NPoInTsY=`$CA $FStErNBrOcOt.1$COORD_Y | $WCl`
$Z set NPoInTsZ=`$CA $FStErNBrOcOt.1$COORD_Z | $WCl`
$Z set NPoInTs=`$xcg/MIN3.01$X x=$NPoInTsX y=$NPoInTsY z=$NPoInTsZ`
$Z IfBasic ($_____TriDimensionnel == $EXIST) ThenBasic
$Z # Possibilite introduite le 20220816140923... #
$Z $CA $FStErNBrOcOt.1$COORD_Z | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z > $FStErNBrOcOt$COORD_Z
$Z set _____CoordonneeZ=$FStErNBrOcOt$COORD_Z
$Z ElseBasic
$Z EndifBasic
$Z IfBasic ($_____NiveauxZ == $NEXIST) ThenBasic
$Z # Possibilite introduite le 20220816152137... #
$Z $xci/valeurs_inte$X p=1 d=$NPoInTs \
$Z vD=$NOIR_PLANCHER vA=$BLANC \
$Z lineaire=VRAI \
$Z entiers=VRAI \
$Z > $FStErNBrOcOt$NIVEAU
$Z ElseBasic
$Z $CA $FStErNBrOcOt.1$COORD_Z | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z origine=$NOIR_PLANCHER extremite=$BLANC \
$Z > $FStErNBrOcOt$NIVEAU
$Z EndifBasic
$Z set DiMeNsIoN_X=`$CA $FStErNBrOcOt.1$COORD_X | $xrv/extrema.01$X ne=0 fichier== Ms=VRAI formater=VRAI signe="$K_VIDE"`
$Z set DiMeNsIoN_Y=`$CA $FStErNBrOcOt.1$COORD_Y | $xrv/extrema.01$X ne=0 fichier== Ms=VRAI formater=VRAI signe="$K_VIDE"`
$Z echo "NombreDeNombreRationnels=$NPoInTs"
$Z echo "PlusGrandNumerateur..=$DiMeNsIoN_X"
$Z echo "PlusGrandDenominateur=$DiMeNsIoN_Y"
$Z set PaRaMeTrEs="$K_VIDE"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" np=1 npoints=$NPoInTs"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" LISTE_X=$FStErNBrOcOt$COORD_X"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" LISTE_Y=$FStErNBrOcOt$COORD_Y"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" LISTE_Z=$_____CoordonneeZ"
# Le parametre "LISTE_Z=" a ete introduit le 20220806093141... #
$Z set PaRaMeTrEs="$PaRaMeTrEs"" LISTE_NIVEAU=$FStErNBrOcOt$NIVEAU"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" LISTE_RAYON=$_____Rayon"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" p=$_____PaletteSB"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" editer_extrema_hors=FAUX"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" Lz=1000 ZOOM=$_____Zoom"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" ROTATION_OX=0"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" ROTATION_OY=0"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" ROTATION_OZ=0"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" grossissement=$_____Grossissement"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" isoles=FAUX chainer=VRAI"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" ajuster_points=VRAI"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" equidistance=VRAI"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" distance_minimale=$_____DistanceMinimale"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" RVB=VRAI"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" chiffres=0"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" fond=VRAI F=$xTV/STBR.21.$_____Profondeur"
$Z $xrv/particule.10$X \
$Z $PaRaMeTrEs \
$Z $_____ParticulePara \
$Z R=$_____ImageR \
$Z $formatI
$Z FilSTmpE FStErNBrOcOt