#######################################################################################################################################
# #
# T R A C E D U R E C T A N G L E D ' O R : #
# #
# #
# Author of '$xiirv/.NBOR.21.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20161026105214). #
# #
#######################################################################################################################################
$Z SETParam _____TraceC_ $EXIST
$Z SETParam _____TraceGR $EXIST
$Z SETParam _____TracePR $EXIST
$Z setParam _____Rayon 0.015
$Z setParam _____Zoom 0.79
$Z # Le rapport de zoom du 20171215125150 est destine a faire que le grand rectangle (bleu) #
$Z # ait la meme taille que le grand rectangle de 'v $xiirv/REOR.11'... #
$Z SETParam _____G_K 0.004
$Z FilSTmpB FCoOrDoNnEes
$Z set DeCaLaGe1=0.01
$Z set DeCaLaGe2=`calcul 2*$DeCaLaGe1`
$Z # Decalages de "non superposition:". #
$Z set CoTe1=`calcul (1+sqrt(5))/2`
$Z set CoTe2=1
$Z set X_PointA=`calcul 0.5-($CoTe1/2)`
$Z set Y_PointA=`calcul 0.5-($CoTe2/2)`
$Z set X_PointB=`calcul $X_PointA+$CoTe2`
$Z set Y_PointB=$Y_PointA
$Z set X_PointC=`calcul $X_PointA+$CoTe1`
$Z set Y_PointC=$Y_PointA
$Z set X_PointF=$X_PointA
$Z set Y_PointF=`calcul $Y_PointA+$CoTe2`
$Z set X_PointE=`calcul $X_PointF+$CoTe2`
$Z set Y_PointE=$Y_PointF
$Z set X_PointD=`calcul $X_PointF+$CoTe1`
$Z set Y_PointD=$Y_PointF
$Z # Definition des points {A,B,C,D,E,F}. #
$Z set X_GR_A=$X_PointA
$Z set X_GR_C=$X_PointC
$Z set X_GR_D=$X_PointD
$Z set X_GR_F=$X_PointF
$Z set Y_GR_A=$Y_PointA
$Z set Y_GR_C=$Y_PointC
$Z set Y_GR_D=$Y_PointD
$Z set Y_GR_F=$Y_PointF
$Z # Definition des sommets du Grand Rectangle. #
$Z set X_PR_B=`calcul $X_PointB+$DeCaLaGe1`
$Z set X_PR_C=`calcul $X_PointC-$DeCaLaGe2`
$Z set X_PR_D=`calcul $X_PointD-$DeCaLaGe2`
$Z set X_PR_E=`calcul $X_PointE+$DeCaLaGe1`
$Z set Y_PR_B=`calcul $Y_PointB+$DeCaLaGe2`
$Z set Y_PR_C=`calcul $Y_PointC+$DeCaLaGe2`
$Z set Y_PR_D=`calcul $Y_PointD-$DeCaLaGe2`
$Z set Y_PR_E=`calcul $Y_PointE-$DeCaLaGe2`
$Z # Definition des sommets du Petit Rectangle. #
$Z set X_C__A=`calcul $X_PointA+$DeCaLaGe2`
$Z set X_C__B=`calcul $X_PointB-$DeCaLaGe1`
$Z set X_C__E=`calcul $X_PointE-$DeCaLaGe1`
$Z set X_C__F=`calcul $X_PointF+$DeCaLaGe2`
$Z set Y_C__A=`calcul $Y_PointA+$DeCaLaGe2`
$Z set Y_C__B=`calcul $Y_PointB+$DeCaLaGe2`
$Z set Y_C__E=`calcul $Y_PointE-$DeCaLaGe2`
$Z set Y_C__F=`calcul $Y_PointF-$DeCaLaGe2`
$Z # Definition des sommets du Carre. #
$Z # Definition de la geometrie : #
$Z # #
$Z # F E D #
$Z # #
$Z # *---------------------------*-----------------* #
$Z # | | | #
$Z # | | | #
$Z # | | | #
$Z # | | | #
$Z # | | | #
$Z # | | | #
$Z # | | | #
$Z # | | | #
$Z # | | | #
$Z # | | | #
$Z # | | | #
$Z # | | | #
$Z # | | | #
$Z # | | | #
$Z # | | | #
$Z # | | | #
$Z # *---------------------------*-----------------* #
$Z # #
$Z # A B C #
$Z # #
$Z set RoUgE___C_=$GRIS_0
$Z set VeRtE___C_=$GRIS_8
$Z set BlEuE___C_=$GRIS_0
$Z set RoUgE___GR=$GRIS_0
$Z set VeRtE___GR=$GRIS_4
$Z set BlEuE___GR=$GRIS_8
$Z set RoUgE___PR=$GRIS_8
$Z set VeRtE___PR=$GRIS_4
$Z set BlEuE___PR=$GRIS_0
$Z # Definition des couleurs : #
$Z alias Gsegment 'set CoO_X=\!:1 ; set CoO_Y=\!:2 ; set RoUgE=\!:3 ; set VeRtE=\!:4 ; set BlUeE=\!:5 ; \\
$Z echo $CoO_X >>! $FCoOrDoNnEes$COORD_X ; \\
$Z echo $CoO_Y >>! $FCoOrDoNnEes$COORD_Y ; \\
$Z echo $RoUgE >>! $FCoOrDoNnEes$ROUGE ; \\
$Z echo $VeRtE >>! $FCoOrDoNnEes$VERTE ; \\
$Z echo $BlUeE >>! $FCoOrDoNnEes$BLEUE ; \\
$Z unset CoO_X CoO_Y RoUgE VeRtE BlUeE'
$Z # Procedure de generation d'un segment... #
$Z if ($_____TraceC_ == $EXIST) then
$Z Gsegment $X_C__A $Y_C__A $RoUgE___C_ $VeRtE___C_ $BlEuE___C_
$Z Gsegment $X_C__B $Y_C__B $RoUgE___C_ $VeRtE___C_ $BlEuE___C_
$Z Gsegment $X_C__B $Y_C__B $RoUgE___C_ $VeRtE___C_ $BlEuE___C_
$Z Gsegment $X_C__E $Y_C__E $RoUgE___C_ $VeRtE___C_ $BlEuE___C_
$Z Gsegment $X_C__E $Y_C__E $RoUgE___C_ $VeRtE___C_ $BlEuE___C_
$Z Gsegment $X_C__F $Y_C__F $RoUgE___C_ $VeRtE___C_ $BlEuE___C_
$Z Gsegment $X_C__F $Y_C__F $RoUgE___C_ $VeRtE___C_ $BlEuE___C_
$Z Gsegment $X_C__A $Y_C__A $RoUgE___C_ $VeRtE___C_ $BlEuE___C_
$Z # Trace du Carre. #
$Z else
$Z endif
$Z if ($_____TraceGR == $EXIST) then
$Z Gsegment $X_GR_A $Y_GR_A $RoUgE___GR $VeRtE___GR $BlEuE___GR
$Z Gsegment $X_GR_C $Y_GR_C $RoUgE___GR $VeRtE___GR $BlEuE___GR
$Z Gsegment $X_GR_C $Y_GR_C $RoUgE___GR $VeRtE___GR $BlEuE___GR
$Z Gsegment $X_GR_D $Y_GR_D $RoUgE___GR $VeRtE___GR $BlEuE___GR
$Z Gsegment $X_GR_D $Y_GR_D $RoUgE___GR $VeRtE___GR $BlEuE___GR
$Z Gsegment $X_GR_F $Y_GR_F $RoUgE___GR $VeRtE___GR $BlEuE___GR
$Z Gsegment $X_GR_F $Y_GR_F $RoUgE___GR $VeRtE___GR $BlEuE___GR
$Z Gsegment $X_GR_A $Y_GR_A $RoUgE___GR $VeRtE___GR $BlEuE___GR
$Z # Trace du Grand Rectangle. #
$Z else
$Z endif
$Z if ($_____TracePR == $EXIST) then
$Z Gsegment $X_PR_B $Y_PR_B $RoUgE___PR $VeRtE___PR $BlEuE___PR
$Z Gsegment $X_PR_C $Y_PR_C $RoUgE___PR $VeRtE___PR $BlEuE___PR
$Z Gsegment $X_PR_C $Y_PR_C $RoUgE___PR $VeRtE___PR $BlEuE___PR
$Z Gsegment $X_PR_D $Y_PR_D $RoUgE___PR $VeRtE___PR $BlEuE___PR
$Z Gsegment $X_PR_D $Y_PR_D $RoUgE___PR $VeRtE___PR $BlEuE___PR
$Z Gsegment $X_PR_E $Y_PR_E $RoUgE___PR $VeRtE___PR $BlEuE___PR
$Z Gsegment $X_PR_E $Y_PR_E $RoUgE___PR $VeRtE___PR $BlEuE___PR
$Z Gsegment $X_PR_B $Y_PR_B $RoUgE___PR $VeRtE___PR $BlEuE___PR
$Z # Trace du Petit Rectangle. #
$Z else
$Z endif
$Z set NpointsX=`$CA $FCoOrDoNnEes$COORD_X | $WCl`
$Z set NpointsY=`$CA $FCoOrDoNnEes$COORD_Y | $WCl`
#20220615121114____:$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"" 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"" editer_extrema_hors=FAUX"
$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
$Z source $xrd/graph.01$vv$Y
$Z G_Init
$Z set Cursor_RAYON=0.005
$Z G_K $_____G_K
#20171215124539____:$Z G_Cursor1 0.500 0.165 $Origine_COORD_Z #
$Z G_Cursor1 0.500 0.827 $Origine_COORD_Z
$Z G_CentreX `G_Message "phi"`
#20171215124539____:$Z G_Cursor1 0.086 0.485 $Origine_COORD_Z #
$Z G_Cursor1 0.060 0.485 $Origine_COORD_Z
$Z G_L "1"
#20171215124539____:$Z G_Cursor1 0.320 0.720 $Origine_COORD_Z #
$Z G_Cursor1 0.320 0.735 $Origine_COORD_Z
$Z G_L "1"
#20171215124539____:$Z G_Cursor1 0.730 0.720 $Origine_COORD_Z #
$Z G_Cursor1 0.750 0.735 $Origine_COORD_Z
$Z eval `G_Message "phi-1"`
#20171215124539____:$Z G_Cursor1 0.910 0.485 $Origine_COORD_Z #
$Z G_Cursor1 0.930 0.485 $Origine_COORD_Z
$Z G_L "1"
$Z G_Genere $_____ImageR fond=VRAI F=$_____ImageR