#######################################################################################################################################
#                                                                                                                                     #
#         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.32.TR4.1.$U' :                                                                                      #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20130324172112).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        SETParam            _____G_K                      0.004
$Z                                      # Parametre introduit le 20130324182415...                                                    #

$Z        SETParam            _____Etiquettes4              $NEXIST
$Z                                      # Parametre introduit le 20200502105837...                                                    #

$Z                  if                  ($_____Etiquettes4 == $NEXIST) then
$Z                                      # Test introduit le 20200502105837...                                                         #

$Z                                      source              $xrd/graph.01$vv$Y
$Z                                      G_Init
$Z                                      set                 Cursor_RAYON=0.005

$Z                                      G_K                 $_____G_K
$Z                                      G_Cursor1           0.370 0.185 $Origine_COORD_Z
$Z                                      G_L                 "X"
$Z                                      G_Cursor1           0.185 0.265 $Origine_COORD_Z
$Z                                      G_L                 "Y"
$Z                                      G_Cursor1           0.320 0.265 $Origine_COORD_Z
$Z                                      G_L                 "Z"
$Z                  else
$Z                                      G_Cursor1           0.315 0.265 $Origine_COORD_Z
$Z                                      G_L                 "Z"
$Z                                      G_Cursor1           0.255 0.635 $Origine_COORD_Z
$Z                                      G_L                 "Z"
$Z                                      G_Cursor1           0.660 0.715 $Origine_COORD_Z
$Z                                      G_L                 "Z"
$Z                                      G_Cursor1           0.725 0.335 $Origine_COORD_Z
$Z                                      G_L                 "Z"
$Z                  endif