#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N M A I L L A G E D E F O R M E : #
# #
# #
# Author of '$xiirs/.SPHE.N3.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20190103105033). #
# #
#######################################################################################################################################
$Z SETParam _____Spherique $NEXIST
$Z setParam _____SpheriqueEtendue FAUX
$Z setParam _____NExtension `GetParam $xrv/particule.10$X extension_spheriques`
$Z # Les extensions disponibles sont : #
$Z # #
$Z # 1 = ellipsoide ('v $xrv/particule.10$K EXTENSION_ellipsoid) #
$Z # 2 = hyperboloide ('v $xrv/particule.10$K EXTENSION_hyperboloid) #
$Z # 3 = cylindre ('v $xrv/particule.10$K EXTENSION_cylindre) #
$Z # 4 = tore ('v $xrv/particule.10$K EXTENSION_tore) #
$Z # 5 = Mobius2D ('v $xrv/particule.10$K EXTENSION_Mobius2D) #
$Z # 6 = project2D ('v $xrv/particule.10$K EXTENSION_project2D) #
$Z # #
$Z # (voir a ce propos 'v $xrv/particule.10$K nom_des_EXTENSIONS_DES_COORDONNEES_SPHERIQUES'). #
$Z setParam _____SpheriqueP01 `GetParam $xrv/particule.10$X parametre_01`
$Z setParam _____SpheriqueP02 `GetParam $xrv/particule.10$X parametre_02`
$Z setParam _____SpheriqueP03 `GetParam $xrv/particule.10$X parametre_03`
$Z setParam _____SpheriqueP04 `GetParam $xrv/particule.10$X parametre_04`
$Z setParam _____SpheriqueP05 `GetParam $xrv/particule.10$X parametre_05`
$Z setParam _____DistanceMini 0.005
$Z setParam _____Cubique FAUX
$Z setParam _____GDerivees 1.0
$Z setParam _____VRayon 0.006
$Z setParam _____Palette $xiP/blanc
$Z setParam _____Grossissement 2.0
$Z setParam _____DepthCueing `GetParam $xrv/particule.10$X Zminimum`
$Z # On rappelle que : #
$Z # #
$Z # _____DepthCueing=1 : pas de depth-cueing, #
$Z # _____DepthCueing=0 : depth-cueing maximal. #
$Z # #
$Z setParam _____Speculaire `GetParam $xrv/particule.10$X speculaire`
$Z setParam _____Zoom 1.4
$Z setParam _____RotationX 0
$Z setParam _____RotationY 0
$Z setParam _____RotationZ 0
$Z setParam _____NAuCarre FAUX
$Z setParam _____ParticulePara1 "$K_VIDE"
$Z if ($_____Spherique == $NEXIST) then
$Z set APaRtIcUlE="$K_VIDE"
$Z set APaRtIcUlE="$APaRtIcUlE"" LISTE_X=$FLiStEP$COORD_X"
$Z set APaRtIcUlE="$APaRtIcUlE"" LISTE_Y=$FLiStEP$COORD_Y"
$Z set APaRtIcUlE="$APaRtIcUlE"" LISTE_Z=$FLiStEP$COORD_Z"
$Z # Cas d'une representation euclidienne {X,Y,Z}. #
$Z else
$Z set APaRtIcUlE="$K_VIDE"
$Z set APaRtIcUlE="$APaRtIcUlE"" spheriques=VRAI"
$Z set APaRtIcUlE="$APaRtIcUlE"" spheriques_etendues=$_____SpheriqueEtendue"
$Z set APaRtIcUlE="$APaRtIcUlE"" AXYZ=1 BXYZ=0"
$Z set APaRtIcUlE="$APaRtIcUlE"" LISTE_THETA=$FLiStEP$COORD_X"
$Z set APaRtIcUlE="$APaRtIcUlE"" LISTE_PHI=$FLiStEP$COORD_Y"
$Z set APaRtIcUlE="$APaRtIcUlE"" LISTE_RHO=$FLiStEP$COORD_Z"
$Z # Cas d'une representation spherique {RHO,THETA,PHI}. #
$Z set APaRtIcUlE="$APaRtIcUlE"" extension_spheriques=$_____NExtension"
$Z set APaRtIcUlE="$APaRtIcUlE"" parametre_01=$_____SpheriqueP01"
$Z set APaRtIcUlE="$APaRtIcUlE"" parametre_02=$_____SpheriqueP02"
$Z set APaRtIcUlE="$APaRtIcUlE"" parametre_03=$_____SpheriqueP03"
$Z set APaRtIcUlE="$APaRtIcUlE"" parametre_04=$_____SpheriqueP04"
$Z set APaRtIcUlE="$APaRtIcUlE"" parametre_05=$_____SpheriqueP05"
$Z # Aux cas ou il y aurait extension des coordonnees spheriques... #
$Z endif
$Z set NPoInTsX=`$CA $FLiStEP$COORD_X | $WCl`
$Z set NPoInTsY=`$CA $FLiStEP$COORD_Y | $WCl`
$Z set NPoInTsZ=`$CA $FLiStEP$COORD_Z | $WCl`
$Z set NPoInTs=`$xcg/MIN3.01$X x=$NPoInTsX y=$NPoInTsY z=$NPoInTsZ signe="$K_VIDE"`
$Z $xci/valeurs_inte$X \
$Z premiere=1 derniere=$NPoInTs \
$Z lineaire=VRAI \
$Z vD=$NOIR_PLANCHER vA=$BLANC \
$Z entiers=VRAI \
$Z $formatI \
$Z >>! $FLiStEP$NIVEAU
$Z $xrv/particule.10$X npoints=$NPoInTs \
$Z $APaRtIcUlE \
$Z isoles=VRAI chainer=FAUX \
$Z ajuster_points=VRAI \
$Z equidistance=VRAI \
$Z distance_minimale=$_____DistanceMini \
$Z cubique=$_____Cubique \
$Z LISTE_dX=$_____GDerivees \
$Z LISTE_dY=$_____GDerivees \
$Z LISTE_dZ=$_____GDerivees \
$Z projection_parallele=FAUX \
$Z Vrayon=$_____VRayon \
$Z LISTE_NIVEAU=$FLiStEP$NIVEAU \
$Z p=$_____Palette \
$Z grossissement=$_____Grossissement \
$Z Lz=1000 \
$Z speculaire=$_____Speculaire \
$Z Zminimum=$_____DepthCueing ZminimumT=$_____DepthCueing \
$Z Zmaximum=1 ZmaximumT=1 \
$Z ZOOM=$_____Zoom \
$Z ROTATION_OX=$_____RotationX \
$Z ROTATION_OY=$_____RotationY \
$Z ROTATION_OZ=$_____RotationZ \
$Z N_au_carre=$_____NAuCarre \
$Z editer_extrema_hors=FAUX \
$Z editer_mauvais_encadrement_niveaux_interpoles=FAUX \
$Z $_____ParticulePara1 \
$Z chiffres=0 \
$Z R=$_____ImageR \
$Z $formatI