#######################################################################################################################################
# #
# D E F I N I T I O N D E S E I Z E T O R E S E N L A C E S : #
# #
# #
# Author of '$xiirs/.PROJ.h1.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20090625153047). #
# #
#######################################################################################################################################
$Z SETParam _____ImageS $xTV/TORE
$Z # Definition introduite le 20090722112252... #
$Z # #
$Z # La modification du 20090729191105 est due a 'v $xiav/$Fnota Debut_listG_STRV_H1'... #
$Z setParam _____TransX 1.0
$Z setParam _____TransY 1.0
$Z setParam _____Rayon2 0.05
$Z setParam _____Rayon11 0.2
$Z set RoTa="ROTATION_O"
$Z set TrAn="TRANSLATION_O"
$Z set RoTaX=$pis2
$Z set RoTaZ=$pis4
$Z set TrAnX=$_____TransX
$Z set TrAnY=$_____TransY
$Z set RaYoN2=$_____Rayon2
$Z # Definition du petit rayon ('R2') de tous les tores. #
$Z set RaYoN11=$_____Rayon11
$Z # Definition du grand rayon ('R2') de la famille '1' de tores. #
$Z set RaYoN12=`$xcg/MAX2.01$X x=$TrAnX y=$TrAnY`
$Z set RaYoN12=`$xcg/DIVZ.01$X x=$RaYoN12 y=2 signe="$K_VIDE"`
$Z # Definition du grand rayon ('R2') de la famille '2' de tores. #
$Z set RaYoN13=`$xcg/MAX2.01$X x=$TrAnX y=$TrAnY`
$Z set RaYoN13=`$xcg/EXP2.01$X x=$RaYoN13`
$Z set RaYoN13=`$xcg/ADD2.01$X x=$RaYoN13 y=$RaYoN13`
$Z set RaYoN13=`$xcg/RACX.01$X x=$RaYoN13`
$Z set RaYoN13=`$xcg/DIVZ.01$X x=$RaYoN13 y=2 signe="$K_VIDE"`
$Z # Definition du grand rayon ('R2') de la famille '3' de tores. #
$Z set RaYoN14=`$xcg/MUL2.01$X x=2 y=$RaYoN11 signe="$K_VIDE"`
$Z set RaYoN15=`$xcg/MUL2.01$X x=3 y=$RaYoN11 signe="$K_VIDE"`
$Z set RaYoN16=`$xcg/MUL2.01$X x=4 y=$RaYoN11 signe="$K_VIDE"`
$Z # Definition du grand rayon ('R2') des familles '4', '5' et '6' de tores. #
$Z set TrAnX2=`$xcg/DIVZ.01$X x=$TrAnX y=2 signe="$K_VIDE"`
$Z set TrAnY2=`$xcg/DIVZ.01$X x=$TrAnY y=2 signe="$K_VIDE"`
$Z set PaRaM11="PARAMETRE_R1=$RaYoN11 PARAMETRE_R2=$RaYoN2"
$Z set PaRaM12="PARAMETRE_R1=$RaYoN12 PARAMETRE_R2=$RaYoN2"
$Z set PaRaM13="PARAMETRE_R1=$RaYoN13 PARAMETRE_R2=$RaYoN2"
$Z set PaRaM14="PARAMETRE_R1=$RaYoN14 PARAMETRE_R2=$RaYoN2"
$Z set PaRaM15="PARAMETRE_R1=$RaYoN15 PARAMETRE_R2=$RaYoN2"
$Z set PaRaM16="PARAMETRE_R1=$RaYoN16 PARAMETRE_R2=$RaYoN2"
$Z # Definition des rayons 'R1' et 'R2' des six familles de tores. #
$Z set PaRaM2="transformer_projections=VRAI ZOOM=0.5"
$Z set GtRa01="$TrAn""X=0 $TrAn""Y=0 $RoTa""Z=0 $RoTa""X=0"
$Z set GtRa02="$TrAn""X=+$TrAnX $TrAn""Y=0 $RoTa""Z=0 $RoTa""X=0"
$Z set GtRa03="$TrAn""X=0 $TrAn""Y=+$TrAnY $RoTa""Z=0 $RoTa""X=0"
$Z set GtRa04="$TrAn""X=-$TrAnX $TrAn""Y=0 $RoTa""Z=0 $RoTa""X=0"
$Z set GtRa05="$TrAn""X=0 $TrAn""Y=-$TrAnY $RoTa""Z=0 $RoTa""X=0"
$Z # Definition de la position et de l'orientation de la famille '1' de tores. #
$Z set GtRa06="$TrAn""X=+$TrAnX2 $TrAn""Y=0 $RoTa""Z=0 $RoTa""X=+$pis2"
$Z set GtRa07="$TrAn""X=0 $TrAn""Y=+$TrAnY2 $RoTa""Z=+$pis2 $RoTa""X=+$pis2"
$Z set GtRa08="$TrAn""X=-$TrAnX2 $TrAn""Y=0 $RoTa""Z=0 $RoTa""X=+$pis2"
$Z set GtRa09="$TrAn""X=0 $TrAn""Y=-$TrAnY2 $RoTa""Z=+$pis2 $RoTa""X=+$pis2"
$Z # Definition de la position et de l'orientation de la famille '2' de tores. #
$Z set GtRa10="$TrAn""X=+$TrAnX2 $TrAn""Y=+$TrAnY2 $RoTa""Z=-$pis4 $RoTa""X=+$pis2"
$Z set GtRa11="$TrAn""X=-$TrAnX2 $TrAn""Y=+$TrAnY2 $RoTa""Z=+$pis4 $RoTa""X=+$pis2"
$Z set GtRa12="$TrAn""X=-$TrAnX2 $TrAn""Y=-$TrAnY2 $RoTa""Z=-$pis4 $RoTa""X=+$pis2"
$Z set GtRa13="$TrAn""X=+$TrAnX2 $TrAn""Y=-$TrAnY2 $RoTa""Z=+$pis4 $RoTa""X=+$pis2"
$Z # Definition de la position et de l'orientation de la famille '3' de tores. #
$Z set GtRa14="$TrAn""X=0 $TrAn""Y=0 $RoTa""Z=0 $RoTa""X=0"
$Z set GtRa15="$TrAn""X=0 $TrAn""Y=0 $RoTa""Z=0 $RoTa""X=0"
$Z set GtRa16="$TrAn""X=0 $TrAn""Y=0 $RoTa""Z=0 $RoTa""X=0"
$Z # Definition de la position et de l'orientation des familles '4', '5' et '6' de tores. #
$Z $xrs/project2D.01$Z tore.11 $_____ImageS.0001 "$GtRa01 $PaRaM11 $PaRaM2" $COORD_X $COORD_Y $COORD_Z FAUX $NEXIST
$Z $xrs/project2D.01$Z tore.11 $_____ImageS.0002 "$GtRa02 $PaRaM11 $PaRaM2" $COORD_X $COORD_Y $COORD_Z FAUX $NEXIST
$Z $xrs/project2D.01$Z tore.11 $_____ImageS.0003 "$GtRa03 $PaRaM11 $PaRaM2" $COORD_X $COORD_Y $COORD_Z FAUX $NEXIST
$Z $xrs/project2D.01$Z tore.11 $_____ImageS.0004 "$GtRa04 $PaRaM11 $PaRaM2" $COORD_X $COORD_Y $COORD_Z FAUX $NEXIST
$Z $xrs/project2D.01$Z tore.11 $_____ImageS.0005 "$GtRa05 $PaRaM11 $PaRaM2" $COORD_X $COORD_Y $COORD_Z FAUX $NEXIST
$Z $xrs/project2D.01$Z tore.11 $_____ImageS.0006 "$GtRa06 $PaRaM12 $PaRaM2" $COORD_X $COORD_Y $COORD_Z FAUX $NEXIST
$Z $xrs/project2D.01$Z tore.11 $_____ImageS.0007 "$GtRa07 $PaRaM12 $PaRaM2" $COORD_X $COORD_Y $COORD_Z FAUX $NEXIST
$Z $xrs/project2D.01$Z tore.11 $_____ImageS.0008 "$GtRa08 $PaRaM12 $PaRaM2" $COORD_X $COORD_Y $COORD_Z FAUX $NEXIST
$Z $xrs/project2D.01$Z tore.11 $_____ImageS.0009 "$GtRa09 $PaRaM12 $PaRaM2" $COORD_X $COORD_Y $COORD_Z FAUX $NEXIST
$Z $xrs/project2D.01$Z tore.11 $_____ImageS.0010 "$GtRa10 $PaRaM13 $PaRaM2" $COORD_X $COORD_Y $COORD_Z FAUX $NEXIST
$Z $xrs/project2D.01$Z tore.11 $_____ImageS.0011 "$GtRa11 $PaRaM13 $PaRaM2" $COORD_X $COORD_Y $COORD_Z FAUX $NEXIST
$Z $xrs/project2D.01$Z tore.11 $_____ImageS.0012 "$GtRa12 $PaRaM13 $PaRaM2" $COORD_X $COORD_Y $COORD_Z FAUX $NEXIST
$Z $xrs/project2D.01$Z tore.11 $_____ImageS.0013 "$GtRa13 $PaRaM13 $PaRaM2" $COORD_X $COORD_Y $COORD_Z FAUX $NEXIST
$Z $xrs/project2D.01$Z tore.11 $_____ImageS.0014 "$GtRa14 $PaRaM14 $PaRaM2" $COORD_X $COORD_Y $COORD_Z FAUX $NEXIST
$Z $xrs/project2D.01$Z tore.11 $_____ImageS.0015 "$GtRa15 $PaRaM15 $PaRaM2" $COORD_X $COORD_Y $COORD_Z FAUX $NEXIST
$Z $xrs/project2D.01$Z tore.11 $_____ImageS.0016 "$GtRa16 $PaRaM16 $PaRaM2" $COORD_X $COORD_Y $COORD_Z FAUX $NEXIST
$Z if ($?_____ImageT == $EXIST) then
$Z # A compter du 20090722112252, il est possible que l'image '$_____ImageT' ne soit en fait #
$Z # pas utilisee, seul l'etant la serie '$_____ImageS.'. #
$Z execXYZ $xci/reduction_04$X standard=FAUX \
$Z A=$_____ImageS. \
$Z premiere=1 derniere=4 pas=1 \
$Z postfixe=%s \
$Z R=$_____ImageT.0001%s \
$Z $formatI
$Z execXYZ $xci/reduction_04$X standard=FAUX \
$Z A=$_____ImageS. \
$Z premiere=5 derniere=8 pas=1 \
$Z postfixe=%s \
$Z R=$_____ImageT.0002%s \
$Z $formatI
$Z execXYZ $xci/reduction_04$X standard=FAUX \
$Z A=$_____ImageS. \
$Z premiere=9 derniere=12 pas=1 \
$Z postfixe=%s \
$Z R=$_____ImageT.0003%s \
$Z $formatI
$Z execXYZ $xci/reduction_04$X standard=FAUX \
$Z A=$_____ImageS. \
$Z premiere=13 derniere=16 pas=1 \
$Z postfixe=%s \
$Z R=$_____ImageT.0004%s \
$Z $formatI
$Z execXYZ $xci/reduction_04$X standard=FAUX \
$Z A=$_____ImageT. \
$Z premiere=1 derniere=4 pas=1 \
$Z postfixe=%s \
$Z R=$_____ImageT%s \
$Z $formatI
$Z else
$Z endif