#######################################################################################################################################
#                                                                                                                                     #
#         C O N S T R U C T I O N   D E   L A   F I G U R E   U T I L E   A                                                           #
#         U N E   D E M O N S T R A T I O N   D U   T H E O R E M E   D E   P Y T H A G O R E  :                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PYTH.33.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20170426091240).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  set                 DeCaLaGe1=0
$Z                  set                 DeCaLaGe2=0
$Z                                      # Decalages de "superposition"...                                                             #

$Z                  _____include(_____xiirv/.PYTH.31.2._____U)
$Z                                      # Definition de la geometrie (mise sous cette forme le 20170426090717 et mis ici le           #
$Z                                      # 20170620111005) :                                                                           #
$Z                                      #                                                                                             #
$Z                                      #                                                                                             #
$Z                                      #                   A ----------*-------------------------- B                                 #
$Z                                      #                                                                                             #
$Z                                      #                   |           E0                          |                                 #
$Z                                      #                   |                                       |                                 #
$Z                                      #                   |                                       |                                 #
$Z                                      #                   |                                       |                                 #
$Z                                      #                   |                                       |                                 #
$Z                                      #                   |                                    F0 *                                 #
$Z                                      #                   |                                       |                                 #
$Z                                      #                   |                                       |                                 #
$Z                                      #                   |                                       |                                 #
$Z                                      #                   |                                       |                                 #
$Z                                      #                   |                                       |                                 #
$Z                                      #                   |                                       |                                 #
$Z                                      #                   |                                       |                                 #
$Z                                      #                   |                                       |                                 #
$Z                                      #                   |                                       |                                 #
$Z                                      #                   |                                       |                                 #
$Z                                      #                   * H0                                    |                                 #
$Z                                      #                   |                                       |                                 #
$Z                                      #                   |                                       |                                 #
$Z                                      #                   |                                       |                                 #
$Z                                      #                   |                                       |                                 #
$Z                                      #                   |                            G0         |                                 #
$Z                                      #                                                                                             #
$Z                                      #                   D ---------------------------*--------- C                                 #
$Z                                      #                                                                                             #
$Z                                      #                                                                                             #

$Z                  SETParam            _____TraceTR1                 $NEXIST
$Z                                      # Parametre introduit le 20130321172331...                                                    #

$Z                  SETParam            _____TraceGC                  $EXIST

$Z                  SETParam            _____TracePC                  $EXIST

$Z                  SETParam            RoUgE___GC                    $RoUgE____0
$Z                                      # Parametre introduit le 20170620110529...                                                    #

$Z                  SETParam            VeRtE___GC                    $VeRtE____0
$Z                                      # Parametre introduit le 20170620110529...                                                    #

$Z                  SETParam            BlEuE___GC                    $BlEuE____0
$Z                                      # Parametre introduit le 20170620110529...                                                    #

$Z                  setParam            _____Grossissement            2.0

$Z                  setParam            _____Rayon                    0.01

$Z                  setParam            _____Zoom                     1.15

$Z                  FilSTmpB            FCoOrDoNnEes

$Z                  if                  ($_____TraceTR1 == $EXIST) then
#20171220162916____:$Z                                 Gsegment            $X_PointD  $Y_PointD  $RoUgE____0 $VeRtE____0 $BlEuE____0  #
#20171220162916____:$Z                                 Gsegment            $X_PointG0 $Y_PointG0 $RoUgE____0 $VeRtE____0 $BlEuE____0  #
#20171220162916____:$Z                                 Gsegment            $X_PointG0 $Y_PointG0 $RoUgE____0 $VeRtE____0 $BlEuE____0  #
#20171220162916____:$Z                                 Gsegment            $X_PointH0 $Y_PointH0 $RoUgE____0 $VeRtE____0 $BlEuE____0  #
#20171220162916____:$Z                                 Gsegment            $X_PointH0 $Y_PointH0 $RoUgE____0 $VeRtE____0 $BlEuE____0  #
#20171220162916____:$Z                                 Gsegment            $X_PointD  $Y_PointD  $RoUgE____0 $VeRtE____0 $BlEuE____0  #

$Z                                      Gsegment            $X_PointD  $Y_PointD  $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z                                      Gsegment            $X_PointG0 $Y_PointG0 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z                                      Gsegment            $X_PointG0 $Y_PointG0 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z                                      Gsegment            $X_PointH0 $Y_PointH0 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z                                      Gsegment            $X_PointH0 $Y_PointH0 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z                                      Gsegment            $X_PointD  $Y_PointD  $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z                                      # Trace du triangle bas-gauche (introduit le 20170427092454)...                               #
$Z                  else
$Z                  endif

$Z                  if                  ($_____TraceGC == $EXIST) then
$Z                                      Gsegment            $X_PointD  $Y_PointD  $RoUgE___GC $VeRtE___GC $BlEuE___GC
$Z                                      Gsegment            $X_PointG0 $Y_PointG0 $RoUgE___GC $VeRtE___GC $BlEuE___GC
$Z                                      Gsegment            $X_PointG0 $Y_PointG0 $RoUgE___GC $VeRtE___GC $BlEuE___GC
$Z                                      Gsegment            $X_PointC  $Y_PointC  $RoUgE___GC $VeRtE___GC $BlEuE___GC
$Z                                      Gsegment            $X_PointC  $Y_PointC  $RoUgE___GC $VeRtE___GC $BlEuE___GC
$Z                                      Gsegment            $X_PointF0 $Y_PointF0 $RoUgE___GC $VeRtE___GC $BlEuE___GC
$Z                                      Gsegment            $X_PointF0 $Y_PointF0 $RoUgE___GC $VeRtE___GC $BlEuE___GC
$Z                                      Gsegment            $X_PointB  $Y_PointB  $RoUgE___GC $VeRtE___GC $BlEuE___GC
$Z                                      Gsegment            $X_PointB  $Y_PointB  $RoUgE___GC $VeRtE___GC $BlEuE___GC
$Z                                      Gsegment            $X_PointE0 $Y_PointE0 $RoUgE___GC $VeRtE___GC $BlEuE___GC
$Z                                      Gsegment            $X_PointE0 $Y_PointE0 $RoUgE___GC $VeRtE___GC $BlEuE___GC
$Z                                      Gsegment            $X_PointA  $Y_PointA  $RoUgE___GC $VeRtE___GC $BlEuE___GC
$Z                                      Gsegment            $X_PointA  $Y_PointA  $RoUgE___GC $VeRtE___GC $BlEuE___GC
$Z                                      Gsegment            $X_PointH0 $Y_PointH0 $RoUgE___GC $VeRtE___GC $BlEuE___GC
$Z                                      Gsegment            $X_PointH0 $Y_PointH0 $RoUgE___GC $VeRtE___GC $BlEuE___GC
$Z                                      Gsegment            $X_PointD  $Y_PointD  $RoUgE___GC $VeRtE___GC $BlEuE___GC
$Z                                      # Trace du grand carre exterieur.                                                             #
$Z                  else
$Z                  endif

$Z                  if                  ($_____TracePC == $EXIST) then
$Z                                      Gsegment            $X_PointG5 $Y_PointG5 $RoUgE____5 $VeRtE____5 $BlEuE____5
$Z                                      Gsegment            $X_PointF5 $Y_PointF5 $RoUgE____5 $VeRtE____5 $BlEuE____5
$Z                                      Gsegment            $X_PointF5 $Y_PointF5 $RoUgE____5 $VeRtE____5 $BlEuE____5
$Z                                      Gsegment            $X_PointE5 $Y_PointE5 $RoUgE____5 $VeRtE____5 $BlEuE____5
$Z                                      Gsegment            $X_PointE5 $Y_PointE5 $RoUgE____5 $VeRtE____5 $BlEuE____5
$Z                                      Gsegment            $X_PointH5 $Y_PointH5 $RoUgE____5 $VeRtE____5 $BlEuE____5
$Z                                      Gsegment            $X_PointH5 $Y_PointH5 $RoUgE____5 $VeRtE____5 $BlEuE____5
$Z                                      Gsegment            $X_PointG5 $Y_PointG5 $RoUgE____5 $VeRtE____5 $BlEuE____5
$Z                                      # Trace du petit petit carre interieur.                                                       #
$Z                  else
$Z                  endif

$Z                  set                 NpointsX=`$CA $FCoOrDoNnEes$COORD_X | $WCl`
$Z                  set                 NpointsY=`$CA $FCoOrDoNnEes$COORD_Y | $WCl`

#20220615121421____:$Z                  set                 Npoints=`$xcg/MAX2.01$X x=$NpointsX y=$NpointsY`                          #
$Z                  set                 Npoints=`$xcg/MIN2.01$X x=$NpointsX y=$NpointsY`

$Z                  set                 PaRaMeTrEsP="$K_VIDE"
$Z                  set                 PaRaMeTrEsP="$PaRaMeTrEsP"" npoints=$Npoints"
$Z                  set                 PaRaMeTrEsP="$PaRaMeTrEsP"" LISTE_X=$FCoOrDoNnEes$COORD_X"
$Z                  set                 PaRaMeTrEsP="$PaRaMeTrEsP"" LISTE_Y=$FCoOrDoNnEes$COORD_Y"
$Z                  set                 PaRaMeTrEsP="$PaRaMeTrEsP"" LISTE_Z=0.5"
$Z                  set                 PaRaMeTrEsP="$PaRaMeTrEsP"" grossissement=$_____Grossissement"
$Z                  set                 PaRaMeTrEsP="$PaRaMeTrEsP"" LISTE_ROUGE=$FCoOrDoNnEes$ROUGE"
$Z                  set                 PaRaMeTrEsP="$PaRaMeTrEsP"" LISTE_VERTE=$FCoOrDoNnEes$VERTE"
$Z                  set                 PaRaMeTrEsP="$PaRaMeTrEsP"" LISTE_BLEUE=$FCoOrDoNnEes$BLEUE"
$Z                  set                 PaRaMeTrEsP="$PaRaMeTrEsP"" LISTE_RAYON=$_____Rayon"
$Z                  set                 PaRaMeTrEsP="$PaRaMeTrEsP"" ZOOM=$_____Zoom"
$Z                  set                 PaRaMeTrEsP="$PaRaMeTrEsP"" Lz=100"
$Z                  set                 PaRaMeTrEsP="$PaRaMeTrEsP"" isoles=FAUX"
$Z                  set                 PaRaMeTrEsP="$PaRaMeTrEsP"" Pajuster=VRAI equidistance=VRAI"
$Z                  set                 PaRaMeTrEsP="$PaRaMeTrEsP"" couronne=2"
$Z                                      # Introduit le 20200503111056 pour ameliorer la qualite...                                    #
$Z                  set                 PaRaMeTrEsP="$PaRaMeTrEsP"" N_AU_CARRE=VRAI"
$Z                  set                 PaRaMeTrEsP="$PaRaMeTrEsP"" chiffres=0"
$Z                  set                 PaRaMeTrEsP="$PaRaMeTrEsP"" R=$_____ImageR"

$Z                  $xrv/particule.10$X                                                                                                 \
$Z                                      $PaRaMeTrEsP                                                                                    \
$Z                                                                                                            $formatI
$Z                                      # Visualisation du contour...                                                                 #

$Z                  FilSTmpE            FCoOrDoNnEes