#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N B I L L I A R D A D E U X B O I T E S #
# C O M M U N I C A N T E S E T D I S S Y M E T R I Q U E S : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.REFN.1.22.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20070530112336). #
# #
#######################################################################################################################################
$Z SformatI
# Introduit le 20200315140704... #
$Z Std
$Z set FacXY_Boites=0.85
$Z set GTransX=`$xcg/SOUS.01$X a=1 b=$FacXY_Boites`
$Z set GTransX=`$xcg/MOIT.01$X a=$GTransX signe="$K_VIDE"`
$Z set DTransX=`$xcg/MOIT.01$X a=1`
$Z set DTransX=`$xcg/ADD2.01$X a=$DTransX b=$GTransX signe="$K_VIDE"`
$Z $xci/complement$X \
$Z A=$xiio/SPIRALE \
$Z $formatI | \
$Z $xci/seuil$X \
$Z seuil=$GRIS_1 \
$Z $formatI | \
$Z $xci/move$X \
$Z xR=+$DTransX \
$Z $formatI | \
$Z $xci/move$X \
$Z xR=-$GTransX \
$Z R=$xTV/BOITE.1 \
$Z $formatI
$Z set FacXY_Boites=0.50
$Z set GTransX=`$xcg/SOUS.01$X a=1 b=$FacXY_Boites`
$Z set GTransX=`$xcg/MOIT.01$X a=$GTransX signe="$K_VIDE"`
$Z set DTransX=`$xcg/MOIT.01$X a=1`
$Z set DTransX=`$xcg/ADD2.01$X a=$DTransX b=$GTransX signe="$K_VIDE"`
$Z $xci/complement$X \
$Z A=$xiio/SPIRALE \
$Z $formatI | \
$Z $xci/seuil$X \
$Z seuil=$GRIS_5 \
$Z $formatI | \
$Z $xci/move$X \
$Z xR=-$GTransX \
$Z R=$xTV/BOITE.2 \
$Z $formatI
$Z $xci/complement$X \
$Z A=$xiio/SPIRALE \
$Z $formatI | \
$Z $xci/seuil$X \
$Z seuil=$GRIS_7 \
$Z R=$xTV/BOITE.3 \
$Z $formatI
$Z $xci/or_03$X \
$Z A1=$xTV/BOITE.1 \
$Z A2=$xTV/BOITE.2 \
$Z A3=$xTV/BOITE.3 \
$Z R=$xTV/BOITE.6 \
$Z $formatI