#######################################################################################################################################
# #
# D I M E N S I O N N E M E N T 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.3.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20240528102230). #
# #
#######################################################################################################################################
#20240528104112____:$Z setParam _____NombreDisques 8 #
$Z setParam _____NombreDisques 9
$Z # Il faut en fait que le nombre disques soit impair afin que le premier chiffre soit au #
$Z # centre de l'image... #
$Z # #
$Z # ATTENTION : je note que '$_____NChiffres' ('v $xiirv/.PIAL.61.1.$U _____NChiffres') #
$Z # ne peut pas etre remplace par le carre de '$_____NombreDisques' car, en effet, #
$Z # '$_____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... #
#20240528104112____:$Z set FaCtEuRX=`calcul $dimX/$_____NombreDisques` #
#20240528104112____:$Z set FaCtEuRY=`calcul $dimY/$_____NombreDisques` #
$Z set _____FacteurX=`calculINS $dimX/$_____NombreDisques`
$Z set _____FacteurY=`calculINS $dimY/$_____NombreDisques`
#20240528104112____:$Z IfBasic ( ($_____FacteurX != $FaCtEuRX) \ #
#20240528104112____:$Z || ($_____FacteurY != $FaCtEuRY) \ #
#20240528104112____:$Z ) ThenBasic #
#20240528104112____:$Z EROR "Probleme de dimensionnement de la spirale carree." #
$Z # Les disques ne vont pas recouvrir exactement la surface de l'image... #
#20240528104112____:$Z ElseBasic #
#20240528104112____:$Z EndifBasic #