#######################################################################################################################################
# #
# 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.11.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20220726094411). #
# #
#######################################################################################################################################
$Z setParam _____Profondeur 8
#20220816181020____:$Z setParam _____NiveauxZ $NEXIST #
$Z setParam _____NiveauxZ $EXIST
$Z # Parametre introduit le 20220816174441.... #
$Z setParam _____Format "$formatR_Std"
$Z FilSTmpB 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$COORD_X
$Z $CA $FStErNBrOcOt | \
$Z $AW ' { print $2 } ' \
$Z > $FStErNBrOcOt$COORD_Y
$Z $CA $FStErNBrOcOt | \
$Z $AW ' { print $3 } ' \
$Z > $FStErNBrOcOt$COORD_Z
$Z set NPoInTsX=`$CA $FStErNBrOcOt$COORD_X | $WCl`
$Z set NPoInTsY=`$CA $FStErNBrOcOt$COORD_Y | $WCl`
$Z set NPoInTsZ=`$CA $FStErNBrOcOt$COORD_Z | $WCl`
#20220816174441____:$Z set NPoInTs=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY` #
$Z set NPoInTs=`$xcg/MIN3.01$X x=$NPoInTsX y=$NPoInTsY z=$NPoInTsZ`
#20220805114715____:$Z $xci/valeurs_inte$X p=1 d=$NPoInTs \ #
#20220805114715____:$Z vD=$NOIR_PLANCHER vA=$BLANC \ #
#20220805114715____:$Z lineaire=VRAI \ #
#20220805114715____:$Z entiers=FAUX \ #
#20220805114715____:$Z > $FStErNBrOcOt$NIVEAU #
$Z IfBasic ($_____NiveauxZ == $NEXIST) ThenBasic
$Z # Possibilite introduite le 20220816174441... #
$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$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$COORD_X | $xrv/extrema.01$X ne=0 fichier== Ms=VRAI formater=VRAI signe="$K_VIDE"`
$Z set DiMeNsIoN_Y=`$CA $FStErNBrOcOt$COORD_Y | $xrv/extrema.01$X ne=0 fichier== Ms=VRAI formater=VRAI signe="$K_VIDE"`
$Z set DiMeNsIoN=`$xcg/MAX2.01$X x=$DiMeNsIoN_X y=$DiMeNsIoN_Y`
$Z set DiMeNsIoN=`calculINS log($DiMeNsIoN)/log(2)+1`
$Z set DiMeNsIoN=`calculINS pow(2,$DiMeNsIoN)`
# Ainsi, l'image sera carree avec comme dimension la puissance de 2 immediatement superieure #
# a '$DiMeNsIoN_X' et a '$DiMeNsIoN_Y'... #
$Z XYmaxNe $DiMeNsIoN $DiMeNsIoN
$Z echo "NombreDeNombreRationnels=$NPoInTs"
$Z echo "PlusGrandNumerateur..=$DiMeNsIoN_X"
$Z echo "PlusGrandDenominateur=$DiMeNsIoN_Y"
$Z $xrv/store_image$X ne=$NPoInTs \
$Z LISTE_X=$FStErNBrOcOt$COORD_X Xdenormalisees=VRAI \
$Z LISTE_Y=$FStErNBrOcOt$COORD_Y Ydenormalisees=VRAI \
$Z LISTE_NIVEAU=$FStErNBrOcOt$NIVEAU Ndenormalises=VRAI \
$Z R=$FStErNBrOcOt.NombreRationnels \
$Z $formatI
$Z $xci/format.01$X A=$FStErNBrOcOt.NombreRationnels \
$Z $formatI \
$Z mode=0 \
$Z R=$_____ImageR \
$Z $_____Format
$Z FilSTmpE FStErNBrOcOt