#######################################################################################################################################
# #
# P E R M U T A T I O N D E S C O O R D O N N E E S C A R T E S I E N N E S E T S P H E R I Q U E S : #
# #
# #
# Author of '$xiirs/.SPHE.W1.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20220615094044). #
# #
#######################################################################################################################################
$Z setParam _____DefinitionSurface $xrs/sphere.11$X
$Z setParam _____SurfaceNParalleles 20
$Z setParam _____SurfaceNPointsParalleles 20
$Z setParam _____SurfaceNMeridiens 40
$Z setParam _____SurfaceNPointsMeridiens 20
$Z setParam _____ParamSurface "$K_VIDE"
$Z setParam _____RayonMinimal 0.005
$Z setParam _____RayonMaximal 0.200
$Z setParam _____FormatImage Pal
$Z setParam _____RotationX 0
$Z setParam _____RotationY 0
$Z setParam _____RotationZ 0
$Z setParam _____Zoom 0.90
$Z setParam _____Palette $xiP/random.B3$Fi
$Z setParam _____OmbresPortees "$K_VIDE"
$Z setParam _____ParticulePara "$K_VIDE"
$Z FilSTmpB FPoInTs
$Z FilSTmpB ImAgE_SURFACE
$Z $_____DefinitionSurface \
$Z np=1 \
$Z nombre_paralleles=$_____SurfaceNParalleles \
$Z nombre_points_entre_deux_paralleles=$_____SurfaceNPointsParalleles \
$Z nombre_meridiens=$_____SurfaceNMeridiens \
$Z nombre_points_entre_deux_meridiens=$_____SurfaceNPointsMeridiens \
$Z faciliter_parametrage_u_v=VRAI \
$Z r=0.010 \
$Z N_AU_CARRE=FAUX \
$Z lister_les_points=VRAI lister_les_points_apres=VRAI \
$Z $_____ParamSurface \
$Z chiffres=0 \
$Z R=$ImAgE_SURFACE | \
$Z $AW ' { print $3 " " $4 " " $5 } ' \
$Z >> $FPoInTs
$Z # Generation de la surface. #
$Z FilSTmpE ImAgE_SURFACE
$Z $CA $FPoInTs | \
$Z $AW ' { print $1 } ' | \
$Z $SE -e "s/^.*=//" | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z > $FPoInTs$COORD_X
$Z $CA $FPoInTs | \
$Z $AW ' { print $2 } ' | \
$Z $SE -e "s/^.*=//" | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z > $FPoInTs$COORD_Y
$Z $CA $FPoInTs | \
$Z $AW ' { print $3 } ' | \
$Z $SE -e "s/^.*=//" | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z > $FPoInTs$COORD_Z
$Z # Generation des coordonnees {X,Y,Z}. #
$Z set NPoIn_X=`$CA $FPoInTs$COORD_X | $WCl`
$Z set NPoIn_Y=`$CA $FPoInTs$COORD_Y | $WCl`
$Z set NPoIn_Z=`$CA $FPoInTs$COORD_Z | $WCl`
$Z set NPoIntS=`$xcg/MIN3.01$X x=$NPoIn_X y=$NPoIn_Y z=$NPoIn_Z`
$Z FilSTmpB FPoInTs_PeRm
$Z set ArGuMeNtS="$K_VIDE"
$Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_X=$FPoInTs$COORD_X"
$Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_Y=$FPoInTs$COORD_Y"
$Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_Z=$FPoInTs$COORD_Z"
$Z $xrv/XYZ_RPT.01$X \
$Z ne=0 \
$Z $ArGuMeNtS \
$Z pRHO=1 pPHI=0 pTHETA=0 | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z > $FPoInTs_PeRm$COORD_X
$Z $xrv/XYZ_RPT.01$X \
$Z ne=0 \
$Z $ArGuMeNtS \
$Z pRHO=0 pPHI=1 pTHETA=0 | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z > $FPoInTs_PeRm$COORD_Y
$Z $xrv/XYZ_RPT.01$X \
$Z ne=0 \
$Z $ArGuMeNtS \
$Z pRHO=0 pPHI=0 pTHETA=1 | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z > $FPoInTs_PeRm$COORD_Z
$Z # Generation des coordonnees {Rho,Phi,Theta} appellees malgre tout {X,Y,Z} ci-dessus... #
$Z $DELETE $FPoInTs$COORD_X
$Z $DELETE $FPoInTs$COORD_Y
$Z $DELETE $FPoInTs$COORD_Z
$Z $MV $FPoInTs_PeRm$COORD_X $FPoInTs$COORD_X
$Z $MV $FPoInTs_PeRm$COORD_Y $FPoInTs$COORD_Y
$Z $MV $FPoInTs_PeRm$COORD_Z $FPoInTs$COORD_Z
$Z # Permutation des coordonnees {X,Y,Z} et {Rho,Phi,Theta}. #
$Z FilSTmpE FPoInTs_PeRm
$Z $xci/valeurs_inte$X p=1 d=$NPoIntS \
$Z entiers=VRAI \
$Z vD=$NOIR_PLANCHER vA=$BLANC \
$Z lineaire=VRAI \
$Z > $FPoInTs$NIVEAU
$Z set CeNtRe_X=`$xrv/extrema.01$X ne=0 fichier=$FPoInTs$COORD_X moyenne_seule=VRAI`
$Z set CeNtRe_Y=`$xrv/extrema.01$X ne=0 fichier=$FPoInTs$COORD_Y moyenne_seule=VRAI`
$Z set CeNtRe_Z=`$xrv/extrema.01$X ne=0 fichier=$FPoInTs$COORD_Z moyenne_seule=VRAI`
$Z $xrv/gauss.01$X ne=0 \
$Z LISTE_X=$FPoInTs$COORD_X \
$Z LISTE_Y=$FPoInTs$COORD_Y \
$Z LISTE_Z=$FPoInTs$COORD_Z \
$Z x0=$CeNtRe_X y0=$CeNtRe_Y z0=$CeNtRe_Z \
$Z pd=10 | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z mR=$_____RayonMinimal MR=$_____RayonMaximal \
$Z > $FPoInTs$RAYON
$Z $xrv/particule.10$X npoints=$NPoIntS \
$Z gestion_ombres_portees_____compatibilite_2022060711=VRAI \
$Z gestion_ombres_portees_____compatibilite_2022060712=VRAI \
$Z LISTE_X=$FPoInTs$COORD_X \
$Z LISTE_Y=$FPoInTs$COORD_Y \
$Z LISTE_Z=$FPoInTs$COORD_Z \
$Z LISTE_NIVEAU=$FPoInTs$NIVEAU \
$Z p=$_____Palette \
$Z LISTE_RAYON=$FPoInTs$RAYON \
$Z isoles=VRAI \
$Z ZOOM=$_____Zoom \
$Z ROTATION_OX=$_____RotationX \
$Z ROTATION_OY=$_____RotationY \
$Z ROTATION_OZ=$_____RotationZ \
$Z Lz=1000 Lx=0 Ly=0 \
$Z $_____OmbresPortees \
$Z $_____ParticulePara \
$Z chiffres=0 \
$Z R=$_____ImageR \
$Z $formatI
$Z # Visualisation de la surface ou {Rho,Phi,Theta} jouent le role de {X,Y,Z}... #
$Z FilSTmpE FPoInTs