#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E S U R F A C E " R E M P L I E " : #
# #
# #
# Author of '$xiirs/.SPHE.X1.2.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20230114112143). #
# #
#######################################################################################################################################
$Z setParam _____TRayon 0.0030
$Z setParam _____MmRayon 0.5
$Z setParam _____MMRayon 2.0
$Z # Parametres introduits le 20230118120100. #
$Z SETParam _____MVisualisation $EXIST
$Z setParam _____MRayon 0.0020
$Z setParam _____Attenuation 0.25
$Z setParam _____NParalleles 20
$Z setParam _____NPParalleles 40
$Z setParam _____NMeridiens 40
$Z setParam _____NPMeridiens 40
#20230118123020____:$Z setParam _____Grossissement 1.5 #
#20230118125245____:$Z setParam _____Grossissement 1.2 #
$Z setParam _____Grossissement 1
$Z setParam _____Zoom 1
$Z setParam _____Points 32
$Z setParam _____NombreR 1
$Z setParam _____Dm `GetParam $xrv/particule.10$X distance_minimale`
#20230116125859____:$Z setParam _____DepthCueing 0.2 #
#20230118120100____:$Z setParam _____DepthCueing 0.4 #
#20230216171918____:$Z setParam _____DepthCueing 0.25 #
#20230216172838____:$Z setParam _____DepthCueing 0.4 #
#20230216175437____:$Z setParam _____DepthCueing 0.25 #
$Z setParam _____DepthCueing 0.30
$Z # En fait a cause de l'erreur : #
$Z # #
$Z # $20230118120100____:.Z setParam _____DepthCueing 0.4 #
$Z # - #
$Z # #
$Z # jusqu'au 20230216171918, le parametre '$_____DepthCueing' valait 0.4 et non 0.25 ! D'ou la #
$Z # remise a cette valeur a cette date, puis le 20230216172838, 0.25 a ete mis en place... #
$Z setParam _____ParticulePara1 "$K_VIDE"
$Z setParam _____Redirection1 "$K_VIDE"
$Z # Parametre introduit le 20230119171541... #
$Z FilSTmpB FLiStE_PoInTs_D
$Z $CA $FLiStE_PoInTs | \
$Z $SE -e 's/^\(.*\)$/\1\n\1/' \
$Z > $FLiStE_PoInTs_D.1
$Z set NLiGnEs=`$CA $FLiStE_PoInTs_D.1 | $WCl`
$Z @ NLiGnEs = $NLiGnEs - 1
$Z (listMN $FLiStE_PoInTs_D.1 2 $NLiGnEs) \
$Z > $FLiStE_PoInTs_D.2
$Z # Et ce afin d'avoir des listes de segments exploitees par "isoles=FAUX chainer=FAUX" #
$Z # ci-dessous... #
$Z $CA $FLiStE_PoInTs_D.2 | \
$Z $AW ' { print $3 } ' | \
$Z $SE -e "s/^.*=//" \
$Z > $FLiStE_PoInTs$COORD_X
$Z $CA $FLiStE_PoInTs_D.2 | \
$Z $AW ' { print $4 } ' | \
$Z $SE -e "s/^.*=//" \
$Z > $FLiStE_PoInTs$COORD_Y
#20230116115551____:$Z $CA $FLiStE_PoInTs_D.2 | \ #
#20230116115551____:$Z $AW ' { print $5 } ' | \ #
#20230116115551____:$Z $SE -e "s/^.*=//" | \ #
#20230116115551____:$Z $xrv/normalise.01$X ne=0 fichier== \ #
#20230116115551____:$Z > $FLiStE_PoInTs$COORD_Z #
$Z # La renormalisation est destinee a permettre le "depth-cueing" ci-apres... #
$Z $CA $FLiStE_PoInTs_D.2 | \
$Z $AW ' { print $5 } ' | \
$Z $SE -e "s/^.*=//" \
$Z > $FLiStE_PoInTs$COORD_Z
$Z $CA $FLiStE_PoInTs_D.2 | \
$Z $AW ' { print $9 } ' | \
$Z $SE -e "s/^.*=//" \
$Z > $FLiStE_PoInTs$ROUGE
$Z $CA $FLiStE_PoInTs_D.2 | \
$Z $AW ' { print $10 } ' | \
$Z $SE -e "s/^.*=//" \
$Z > $FLiStE_PoInTs$VERTE
$Z $CA $FLiStE_PoInTs_D.2 | \
$Z $AW ' { print $11 } ' | \
$Z $SE -e "s/^.*=//" \
$Z > $FLiStE_PoInTs$BLEUE
$Z $CA $FLiStE_PoInTs$COORD_Z | \
$Z $xrv/normalise.01$X ne=0 \
$Z fichier== \
$Z origine=$_____MmRayon extremite=$_____MMRayon \
$Z > $FLiStE_PoInTs.ModulationRayon
$Z $CA $FLiStE_PoInTs_D.2 | \
$Z $AW ' { print $8 } ' | \
$Z $SE -e 's/^.*=.*$'"/$_____TRayon/" | \
$Z $xrv/MUL2.11$X ne=0 \
$Z fichier1=$FLiStE_PoInTs.ModulationRayon \
$Z fichier2== \
$Z > $FLiStE_PoInTs$RAYON
$Z # La modulation du RAYON par le Z a ete introduit le 20230118120100 afin d'ameliorer la #
$Z # lisibilite de l'image : mieux voir ce qui est au premier plan... #
$Z FilSTmpE FLiStE_PoInTs_D
$Z if ($_____MVisualisation == $EXIST) then
$Z FilSTmpB FLiStE_PoInTs_M
$Z $_____Surface \
$Z nombre_paralleles=$_____NParalleles \
$Z nombre_points_entre_deux_paralleles=$_____NPParalleles \
$Z nombre_meridiens=$_____NMeridiens \
$Z nombre_points_entre_deux_meridiens=$_____NPMeridiens \
$Z faciliter_parametrage_u_v=VRAI \
$Z $_____ArgSurface \
$Z editer_extrema_hors=FAUX \
$Z $_____SurfacePara1 \
$Z Vrayon=$_____MRayon \
$Z RVB=FAUX \
$Z chiffres=0 \
$Z R=$_____ImageR \
$Z $formatI \
$Z >> $FLiStE_PoInTs_M
$Z $CA $FLiStE_PoInTs_M | \
$Z $AW ' { print $3 "\n" $3 } ' | \
$Z $SE -e "s/^.*=//" \
$Z >> $FLiStE_PoInTs$COORD_X
$Z $CA $FLiStE_PoInTs_M | \
$Z $AW ' { print $4 "\n" $4 } ' | \
$Z $SE -e "s/^.*=//" \
$Z >> $FLiStE_PoInTs$COORD_Y
#20230116115551____:$Z $CA $FLiStE_PoInTs_M | \ #
#20230116115551____:$Z $AW ' { print $5 "\n" $5 } ' | \ #
#20230116115551____:$Z $SE -e "s/^.*=//" | \ #
#20230116115551____:$Z $xrv/normalise.01$X ne=0 fichier== \ #
#20230116115551____:$Z >> $FLiStE_PoInTs$COORD_Z #
$Z # La renormalisation est destinee a permettre le "depth-cueing" ci-apres... #
$Z $CA $FLiStE_PoInTs_M | \
$Z $AW ' { print $5 "\n" $5 } ' | \
$Z $SE -e "s/^.*=//" \
$Z >> $FLiStE_PoInTs$COORD_Z
$Z $CA $FLiStE_PoInTs_M | \
$Z $AW ' { print $9 "\n" $9 } ' | \
$Z $SE -e "s/^.*=//" | \
$Z $xrv/MUL2.11$X ne=0 \
$Z fichier2== \
$Z fichier1=$_____Attenuation \
$Z formater=VRAI entiers=VRAI \
$Z >> $FLiStE_PoInTs$ROUGE
$Z $CA $FLiStE_PoInTs_M | \
$Z $AW ' { print $10 "\n" $10 } ' | \
$Z $SE -e "s/^.*=//" | \
$Z $xrv/MUL2.11$X ne=0 \
$Z fichier2== \
$Z fichier1=$_____Attenuation \
$Z formater=VRAI entiers=VRAI \
$Z >> $FLiStE_PoInTs$VERTE
$Z $CA $FLiStE_PoInTs_M | \
$Z $AW ' { print $11 "\n" $11 } ' | \
$Z $SE -e "s/^.*=//" | \
$Z $xrv/MUL2.11$X ne=0 \
$Z fichier2== \
$Z fichier1=$_____Attenuation \
$Z formater=VRAI entiers=VRAI \
$Z >> $FLiStE_PoInTs$BLEUE
$Z $CA $FLiStE_PoInTs_M | \
$Z $AW ' { print $8 "\n" $8 } ' | \
$Z $SE -e 's/^.*=.*$'"/$_____MRayon/" \
$Z >> $FLiStE_PoInTs$RAYON
$Z FilSTmpE FLiStE_PoInTs_M
$Z else
$Z endif
$Z set NpartX=`$CA $FLiStE_PoInTs$COORD_X | $WCl`
$Z set NpartY=`$CA $FLiStE_PoInTs$COORD_Y | $WCl`
$Z set NpartZ=`$CA $FLiStE_PoInTs$COORD_Z | $WCl`
$Z set Npart=`$xcg/MAX3.01$X x=$NpartX y=$NpartY z=$NpartZ`
#20230116115551____:$Z $xrv/particule.10$X np=1 iterations=$Npart \ #
#20230116115551____:$Z dernier_premier=FAUX \ #
#20230116115551____:$Z sAX=`calcul $dimX/$dimY` \ #
#20230116115551____:$Z LISTE_X=$FLiStE_PoInTs$COORD_X \ #
#20230116115551____:$Z LISTE_Y=$FLiStE_PoInTs$COORD_Y \ #
#20230116115551____:$Z LISTE_Z=$FLiStE_PoInTs$COORD_Z \ #
#20230116115551____:$Z LISTE_ROUGE=$FLiStE_PoInTs$ROUGE \ #
#20230116115551____:$Z LISTE_VERTE=$FLiStE_PoInTs$VERTE \ #
#20230116115551____:$Z LISTE_BLEUE=$FLiStE_PoInTs$BLEUE \ #
#20230116115551____:$Z LISTE_RAYON=$FLiStE_PoInTs$RAYON \ #
#20230116115551____:$Z grossissement=$_____Grossissement \ #
#20230116115551____:$Z Lz=1000 \ #
#20230116115551____:$Z zoom_automatique=FAUX \ #
#20230116115551____:$Z ZOOM=$_____Zoom \ #
#20230116115551____:$Z zoom_automatique=FAUX \ #
#20230116115551____:$Z ROTATION_OX=0 \ #
#20230116115551____:$Z ROTATION_OY=0 \ #
#20230116115551____:$Z ROTATION_OZ=0 \ #
#20230116115551____:$Z isoles=FAUX chainer=FAUX \ #
#20230116115551____:$Z ajuster_points=VRAI points=$_____Points nombreR=$_____NombreR \ #
#20230116115551____:$Z equidistance=VRAI compatibilite_20051230=FAUX \ #
#20230116115551____:$Z distance_minimale=$_____Dm \ #
#20230116115551____:$Z DepthCueingMinimal=$_____DepthCueing DepthCueingMaximal=1 \ #
#20230116115551____:$Z RVB=VRAI \ #
#20230116115551____:$Z N_AU_CARRE=FAUX \ #
#20230116115551____:$Z editer_extrema_hors=FAUX \ #
#20230116115551____:$Z $_____ParticulePara1 \ #
#20230116115551____:$Z chiffres=0 \ #
#20230116115551____:$Z R=$_____ImageR \ #
#20230116115551____:$Z $formatI #
#20230119171541____:$Z $xrv/particule.10$X np=1 iterations=$Npart \ #
#20230119171541____:$Z dernier_premier=FAUX \ #
#20230119171541____:$Z sAX=`calcul $dimX/$dimY` \ #
#20230119171541____:$Z LISTE_X=$FLiStE_PoInTs$COORD_X \ #
#20230119171541____:$Z LISTE_Y=$FLiStE_PoInTs$COORD_Y \ #
#20230119171541____:$Z LISTE_Z=$FLiStE_PoInTs$COORD_Z \ #
#20230119171541____:$Z LISTE_ROUGE=$FLiStE_PoInTs$ROUGE \ #
#20230119171541____:$Z LISTE_VERTE=$FLiStE_PoInTs$VERTE \ #
#20230119171541____:$Z LISTE_BLEUE=$FLiStE_PoInTs$BLEUE \ #
#20230119171541____:$Z LISTE_RAYON=$FLiStE_PoInTs$RAYON \ #
#20230119171541____:$Z grossissement=$_____Grossissement \ #
#20230119171541____:$Z Lz=1000 \ #
#20230119171541____:$Z isoles=FAUX chainer=FAUX \ #
#20230119171541____:$Z ajuster_points=VRAI points=$_____Points nombreR=$_____NombreR \ #
#20230119171541____:$Z equidistance=VRAI compatibilite_20051230=FAUX \ #
#20230119171541____:$Z distance_minimale=$_____Dm \ #
#20230119171541____:$Z DepthCueingMinimal=$_____DepthCueing DepthCueingMaximal=1 \ #
#20230119171541____:$Z RVB=VRAI \ #
#20230119171541____:$Z N_AU_CARRE=FAUX \ #
#20230119171541____:$Z editer_extrema_hors=FAUX \ #
#20230119171541____:$Z $_____ParticulePara1 \ #
#20230119171541____:$Z chiffres=0 \ #
#20230119171541____:$Z R=$_____ImageR \ #
#20230119171541____:$Z $formatI #
$Z eval $xrv/particule.10$X np=1 iterations=$Npart \
$Z dernier_premier=FAUX \
$Z sAX=`calcul $dimX/$dimY` \
$Z LISTE_X=$FLiStE_PoInTs$COORD_X \
$Z LISTE_Y=$FLiStE_PoInTs$COORD_Y \
$Z LISTE_Z=$FLiStE_PoInTs$COORD_Z \
$Z LISTE_ROUGE=$FLiStE_PoInTs$ROUGE \
$Z LISTE_VERTE=$FLiStE_PoInTs$VERTE \
$Z LISTE_BLEUE=$FLiStE_PoInTs$BLEUE \
$Z LISTE_RAYON=$FLiStE_PoInTs$RAYON \
$Z grossissement=$_____Grossissement \
$Z Lz=1000 \
$Z isoles=FAUX chainer=FAUX \
$Z ajuster_points=VRAI points=$_____Points nombreR=$_____NombreR \
$Z equidistance=VRAI compatibilite_20051230=FAUX \
$Z distance_minimale=$_____Dm \
$Z DepthCueingMinimal=$_____DepthCueing DepthCueingMaximal=1 \
$Z RVB=VRAI \
$Z N_AU_CARRE=FAUX \
$Z editer_extrema_hors=FAUX \
$Z $_____ParticulePara1 \
$Z chiffres=0 \
$Z R=$_____ImageR \
$Z $formatI \
$Z $_____Redirection1
$Z # Le "sAX=..." est destine a prendre en compte que le format peut ne pas etre carre (voir #
$Z # a ce propos 'v $xiirs/SPHE.X1' qui est carree et 'v $xiirs/MOB2.81' qui ne l'est pas...). #
$Z # #
$Z # Le 'eval' a ete introduit le 20230119171541 a cause de l'eventuelle '$_____Redirection1'... #