#######################################################################################################################################
# #
# C O N S T R U C T I O N D ' U N E S P I R A L E C A R R E E D E C H A M P S : #
# #
# #
# Author of '$xiirv/.PIAL.61.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20240524171337). #
# #
#######################################################################################################################################
$Z setParam _____NChiffres 100
$Z # ATTENTION : je note le 20240530154543 que '$_____NChiffres' ne peut pas etre remplace #
$Z # par le carre de '$_____NombreDisques' ('v $xiirv/.PIAL.61.3.$U _____NombreDisques') car, en #
$Z # effet, '$_____NChiffres' definit le nombre de points de la spirale que l'on va generer et #
$Z # certains de ses points peuvent etre en dehors de l'image ('v PIAL.69.pi.2$m'). Quant #
$Z # a '$_____NombreDisques' il ne sert qu'a definir '$_____FacteurX' et '$_____FacteurY' de #
$Z # facon a ce que les carres circonscrits aux disques remplissent exactement le carre de #
$Z # l'image... #
$Z setParam _____FDecimales $xrp/Decimales_Base10_Pi_____100000
$Z setParam _____TranslationSpirale $EXIST
$Z # Parametre introduit le 20240601120701... #
$Z FilSTmpB FCoOrDoNnEeS
$Z $CA $_____FDecimales | \
$Z $SE -e "s/^ *//" \
$Z -e "s/\.//" | \
$Z $GRE -v '^ *$' | \
$Z $SE -e "s/ //g" \
$Z -e "s/\(.\)/\1@/g" | \
$Z $R "@" "$K_NL" | \
$Z $GRE -v '^ *$' | \
$Z $HEA -$_____NChiffres \
$Z > $FCoOrDoNnEeS.chiffres
$m4 _____include(_____xiirv/.PIAL.61.3._____U)
$Z # Introduit le 20240528100102 pour definir {$_____FacteurX,$_____FacteurY}... #
$Z set CeNtRe_X=`calcul 1/2`
$Z set CeNtRe_Y=`calcul 1/2`
$Z set DeMi_CoTe_X=`$xci/valeurs_spir$X premiere=1 derniere=3 PX=1 PY=0 | $SOR -u`
$Z set DeMi_CoTe_X=`calcul ($_____FacteurX*($DeMi_CoTe_X[2]-$DeMi_CoTe_X[1]))/2`
$Z set DeMi_CoTe_Y=`$xci/valeurs_spir$X premiere=1 derniere=3 PX=0 PY=1 | $SOR -u`
$Z set DeMi_CoTe_Y=`calcul ($_____FacteurY*($DeMi_CoTe_Y[2]-$DeMi_CoTe_Y[1]))/2`
$Z set TrAnSlX=0
$Z set TrAnSlY=0
$Z $xci/valeurs_spir$X premiere=1 derniere=$_____NChiffres \
$Z PX=1 PY=0 | \
$Z $xrv/AXPB.01$X ne=0 \
$Z fichier== \
$Z a=$_____FacteurX \
$Z b=-$CeNtRe_X \
$Z XPBA=VRAI | \
$Z $xrv/ADD2.11$X ne=0 \
$Z fichier1== \
$Z fichier2=+$CeNtRe_X \
$Z > $FCoOrDoNnEeS.1$COORD_X
$Z $xci/valeurs_spir$X premiere=1 derniere=$_____NChiffres \
$Z PX=0 PY=1 | \
$Z $xrv/AXPB.01$X ne=0 \
$Z fichier== \
$Z a=$_____FacteurY \
$Z b=-$CeNtRe_Y \
$Z XPBA=VRAI | \
$Z $xrv/ADD2.11$X ne=0 \
$Z fichier1== \
$Z fichier2=+$CeNtRe_Y \
$Z > $FCoOrDoNnEeS.1$COORD_Y
$Z IfBasic ($_____TranslationSpirale == $EXIST) ThenBasic
$Z # Test introduit le 20240601115501... #
$Z $CA $FCoOrDoNnEeS.1$COORD_X | \
$Z $xrv/ADD2.11$X ne=0 \
$Z fichier1== \
$Z fichier2=+$TrAnSlX | \
$Z $xrv/SOUS.11$X ne=0 \
$Z fichier1== \
$Z fichier2=+$CeNtRe_X \
$Z > $FCoOrDoNnEeS$COORD_X
$Z $CA $FCoOrDoNnEeS.1$COORD_Y | \
$Z $xrv/ADD2.11$X ne=0 \
$Z fichier1== \
$Z fichier2=+$TrAnSlY | \
$Z $xrv/SOUS.11$X ne=0 \
$Z fichier1== \
$Z fichier2=+$CeNtRe_Y \
$Z > $FCoOrDoNnEeS$COORD_Y
$Z ElseBasic
$Z $CA $FCoOrDoNnEeS.1$COORD_X \
$Z > $FCoOrDoNnEeS$COORD_X
$Z $CA $FCoOrDoNnEeS.1$COORD_Y \
$Z > $FCoOrDoNnEeS$COORD_Y
$Z EndifBasic