#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N R E C T A N G L E D ' O R : #
# #
# #
# Author of '$xiirv/.REOR.11.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20171212161053). #
# #
#######################################################################################################################################
$Z SETParam _____Tapisserie $NEXIST
$Z # Parametre introduit le 20171213112059... #
$Z setParam _____TranslationX 0
$Z # Parametre introduit le 20171213115037... #
$Z setParam _____TranslationY 0
$Z # Parametre introduit le 20171213115037... #
$Z setParam _____NRectangles 8
$Z setParam _____DistanceMini 0.005
$Z setParam _____VRayon 0.008
$Z setParam _____Palette $xiP/arc_ciel.C1
$Z setParam _____Grossissement 2.0
$Z setParam _____Zoom 1.80
$Z setParam _____ParticulePara1 "$K_VIDE"
$Z FilSTmpB FiLePoInTs
$Z set PaRaMeTrEs="$K_VIDE"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" p=1 d=$_____NRectangles"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" cotes=FAUX"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" sommets=VRAI"
$Z if ($_____Tapisserie == $NEXIST) then
$Z # Possibilite introduite le 20171213112059... #
$Z $xci/valeurs_RectangleOr$X \
$Z $PaRaMeTrEs \
$Z >> $FiLePoInTs
$Z else
$Z $xci/valeurs_RectangleOr$X \
$Z inverserX=FAUX inverserY=FAUX \
$Z translationX=+$_____TranslationX translationY=+$_____TranslationY \
$Z $PaRaMeTrEs \
$Z >> $FiLePoInTs
$Z $xci/valeurs_RectangleOr$X \
$Z inverserX=FAUX inverserY=VRAI \
$Z translationX=+$_____TranslationX translationY=-$_____TranslationY \
$Z $PaRaMeTrEs \
$Z >> $FiLePoInTs
$Z $xci/valeurs_RectangleOr$X \
$Z inverserX=VRAI inverserY=VRAI \
$Z translationX=-$_____TranslationX translationY=-$_____TranslationY \
$Z $PaRaMeTrEs \
$Z >> $FiLePoInTs
$Z $xci/valeurs_RectangleOr$X \
$Z inverserX=VRAI inverserY=FAUX \
$Z translationX=-$_____TranslationX translationY=+$_____TranslationY \
$Z $PaRaMeTrEs \
$Z >> $FiLePoInTs
$Z # Ainsi, on "simule" l'operation 'v $xci/tapisserie$K'... #
$Z endif
$Z $CA $FiLePoInTs | \
$Z $AW ' { print $1 } ' | \
$Z $SE -e "s/^.*=//" \
$Z >>! $FiLePoInTs$COORD_X
$Z $CA $FiLePoInTs | \
$Z $AW ' { print $2 } ' | \
$Z $SE -e "s/^.*=//" \
$Z >>! $FiLePoInTs$COORD_Y
$Z set NPoInTsX=`$CA $FiLePoInTs$COORD_X | $WCl`
$Z set NPoInTsY=`$CA $FiLePoInTs$COORD_Y | $WCl`
$Z set NPoInTs=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY 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 >>! $FiLePoInTs$NIVEAU
$Z $xrv/particule.10$X npoints=$NPoInTs \
$Z LISTE_X=$FiLePoInTs$COORD_X \
$Z LISTE_Y=$FiLePoInTs$COORD_Y \
$Z LISTE_Z=0 \
$Z isoles=FAUX chainer=FAUX \
$Z ajuster_points=VRAI \
$Z equidistance=VRAI \
$Z distance_minimale=$_____DistanceMini \
$Z Vrayon=$_____VRayon \
$Z LISTE_NIVEAU=$FiLePoInTs$NIVEAU \
$Z p=$_____Palette \
$Z grossissement=$_____Grossissement \
$Z Lz=1000 \
$Z ZOOM=$_____Zoom \
$Z editer_extrema_hors=FAUX \
$Z editer_mauvais_encadrement_niveaux_interpoles=FAUX \
$Z $_____ParticulePara1 \
$Z chiffres=0 \
$Z R=$_____ImageR \
$Z $formatI
$Z FilSTmpE FiLePoInTs