#######################################################################################################################################
# #
# C O N S T R U C T I O N D ' U N E D O U B L E H E L I C E : #
# #
# #
# Author of '$xiirv/.HELI.11.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20131118134659). #
# #
#######################################################################################################################################
$Z setParam _____NPaires 50
$Z setParam _____Rho 0.4
$Z setParam _____Theta0 0
$Z setParam _____ThetaN `calcul 2*$dpi`
$Z setParam _____Z0 0
$Z setParam _____ZN 1
$Z setParam _____CodeC $GRIS_1
$Z # Parametre introduit le 20131118180428... #
$Z setParam _____CodeG $GRIS_2
$Z # Parametre introduit le 20131118180428... #
$Z setParam _____CodeA $GRIS_3
$Z # Parametre introduit le 20131118180428... #
$Z setParam _____CodeT $GRIS_4
$Z # Parametre introduit le 20131118180428... #
$Z setParam _____Niveau $GRIS_6
$Z setParam _____Palette $xiP/cercle.I5
$Z setParam _____DepthCueing 1
$Z # On rappelle que : #
$Z # #
$Z # _____DepthCueing=1 : pas de depth-cueing, #
$Z # _____DepthCueing=0 : depth-cueing maximal. #
$Z # #
$Z setParam _____Zoom 1.0
$Z setParam _____VRayon 0.005
$Z setParam _____Grossissement 4
$Z # Parametre introduit le 20131119132005... #
$Z setParam _____DistanceMini 0.005
$Z setParam _____ParticulePara2 "$K_VIDE"
$Z setParam _____Redirection "$K_VIDE"
$Z # Parametre introduit le 20140203100132... #
$Z set DePhAsAgE=$pi
$Z FilSTmpB FTheta
$Z FilSTmpB FCoOrDoNnEeS
$Z $xci/valeurs_inte$X premiere=1 derniere=$_____NPaires \
$Z vD=$_____Theta0 vA=$_____ThetaN \
$Z lineaire=VRAI \
$Z > $FTheta.1
$Z $xci/valeurs_inte$X premiere=1 derniere=$_____NPaires \
$Z vD=`calcul $_____Theta0+$DePhAsAgE` vA=`calcul $_____ThetaN+$DePhAsAgE` \
$Z lineaire=VRAI \
$Z > $FTheta.2
$Z $xrv/RT_XY.01$X ne=$_____NPaires \
$Z LISTE_RHO=$_____Rho \
$Z LISTE_THETA=$FTheta.1 \
$Z px=1 py=0 \
$Z > $FCoOrDoNnEeS$COORD_X.1
$Z $xrv/RT_XY.01$X ne=$_____NPaires \
$Z LISTE_RHO=$_____Rho \
$Z LISTE_THETA=$FTheta.1 \
$Z px=0 py=1 \
$Z > $FCoOrDoNnEeS$COORD_Y.1
$Z $xci/valeurs_inte$X premiere=1 derniere=$_____NPaires \
$Z vD=$_____Z0 vA=$_____ZN \
$Z lineaire=VRAI \
$Z > $FCoOrDoNnEeS$COORD_Z.1
$Z $xrv/RT_XY.01$X ne=$_____NPaires \
$Z LISTE_RHO=$_____Rho \
$Z LISTE_THETA=$FTheta.2 \
$Z px=1 py=0 \
$Z > $FCoOrDoNnEeS$COORD_X.2
$Z $xrv/RT_XY.01$X ne=$_____NPaires \
$Z LISTE_RHO=$_____Rho \
$Z LISTE_THETA=$FTheta.2 \
$Z px=0 py=1 \
$Z > $FCoOrDoNnEeS$COORD_Y.2
$Z $xci/valeurs_inte$X premiere=1 derniere=$_____NPaires \
$Z vD=$_____Z0 vA=$_____ZN \
$Z lineaire=VRAI \
$Z > $FCoOrDoNnEeS$COORD_Z.2
$Z $PAST $FCoOrDoNnEeS$COORD_X.1 $FCoOrDoNnEeS$COORD_X.2 | \
$Z $AW ' { print $1 " " $2 } ' | \
$Z $R "$K_BLANC" "$K_NL" \
$Z > $FCoOrDoNnEeS$COORD_X
$Z $PAST $FCoOrDoNnEeS$COORD_Y.1 $FCoOrDoNnEeS$COORD_Y.2 | \
$Z $AW ' { print $1 " " $2 } ' | \
$Z $R "$K_BLANC" "$K_NL" \
$Z > $FCoOrDoNnEeS$COORD_Y
$Z $PAST $FCoOrDoNnEeS$COORD_Z.1 $FCoOrDoNnEeS$COORD_Z.2 | \
$Z $AW ' { print $1 " " $2 } ' | \
$Z $R "$K_BLANC" "$K_NL" \
$Z > $FCoOrDoNnEeS$COORD_Z
$Z FilSTmpB FNivEaUx
$Z $xci/valeurs_alea$X premiere=1 derniere=$_____NPaires \
$Z inf=1 sup=4 \
$Z signe="$K_VIDE" \
$Z entiers=VRAI \
$Z message_borne_superieure_entiere=FAUX \
$Z > $FNivEaUx.9
$Z $CA $FNivEaUx.9 | \
$Z $SE -e 's/^1$'"/$_____CodeC/" \
$Z -e 's/^2$'"/$_____CodeG/" \
$Z -e 's/^3$'"/$_____CodeA/" \
$Z -e 's/^4$'"/$_____CodeT/" \
$Z > $FNivEaUx.1
$Z $CA $FNivEaUx.9 | \
$Z $SE -e 's/^1$'"/$_____CodeG/" \
$Z -e 's/^2$'"/$_____CodeC/" \
$Z -e 's/^3$'"/$_____CodeT/" \
$Z -e 's/^4$'"/$_____CodeA/" \
$Z > $FNivEaUx.2
$Z # Ainsi, on cree des paires destinees a simuler les liaisons : #
$Z # #
$Z # C-G {1,2} #
$Z # A-T {3,4} #
$Z # #
$Z $PAST $FNivEaUx.1 $FNivEaUx.2 | \
$Z $AW ' { print $1 " " $2 } ' | \
$Z $R "$K_BLANC" "$K_NL" \
$Z >> $FNivEaUx
$Z @ NPoInTs = 2 * $_____NPaires
$Z FilSTmpB ZBuFfEr
$Z eval $xrv/particule.10$X npoints=$NPoInTs \
$Z LISTE_X=$FCoOrDoNnEeS$COORD_X \
$Z LISTE_Y=$FCoOrDoNnEeS$COORD_Y \
$Z LISTE_Z=$FCoOrDoNnEeS$COORD_Z \
$Z LISTE_ROUGE=$_____Niveau \
$Z LISTE_VERTE=$_____Niveau \
$Z LISTE_BLEUE=$_____Niveau \
$Z centrer_coordonnees=VRAI \
$Z isoles=FAUX chainer=FAUX \
$Z ajuster_points=VRAI equidistance=VRAI \
$Z distance_minimale=$_____DistanceMini \
$Z Vrayon=`calcul 1.0*$_____VRayon` \
$Z Lz=1000 \
$Z ZOOM=$_____Zoom \
$Z Zminimum=$_____DepthCueing ZminimumT=$_____DepthCueing \
$Z Zmaximum=1 ZmaximumT=1 \
$Z N_au_carre=FAUX \
$Z editer_extrema_hors=FAUX \
$Z editer_mauvais_encadrement_niveaux_interpoles=FAUX \
$Z ZBuffer=VRAI Z=$ZBuFfEr ATTENTION=FAUX \
$Z $_____ParticulePara2 \
$Z chiffres=0 \
$Z R=$_____ImageR \
$Z $formatI \
$Z $_____Redirection
$Z # Le parametre "ATTENTION=FAUX" est destine a eliminer le message edite par #
$Z # par 'v $xrv/champs_5.1A$I PRINT_ATTENTION..c.est.le..Z.Buffer..qui.va.etre.memorise.' #
$Z # #
$Z # Le 'eval' a ete introduit le 20140203102043 a cause de l'eventuelle '$_____Redirection'... #