####################################################################################################################################### # # # G E N E R A T I O N D ' U N E L I S T E D E T E S T D E V O I S I N S : # # # # # # Author of '$xiirv/.CARB.01.1.$U' : # # # # Jean-Francois Colonna (LACTAMME, 20150708104205). # # # ####################################################################################################################################### $Z set cX0=0 $Z set cX1=1 $Z set cXc=`$xcg/MOYE.01$X a=$cX0 b=$cX1 signe="$K_VIDE"` $Z set cY0=0 $Z set cY1=1 $Z set cYc=`$xcg/MOYE.01$X a=$cY0 b=$cY1 signe="$K_VIDE"` $Z set cZ0=0.5 $Z echo "$cX0 $cY0 $cZ0 $cX1 $cY0 $cZ0" \ $Z >>! $_____FVoisins $Z echo "$cX1 $cY0 $cZ0 $cX1 $cY1 $cZ0" \ $Z >>! $_____FVoisins $Z echo "$cX1 $cY1 $cZ0 $cX0 $cY1 $cZ0" \ $Z >>! $_____FVoisins $Z echo "$cX0 $cY1 $cZ0 $cX0 $cY0 $cZ0" \ $Z >>! $_____FVoisins $Z echo "$cX0 $cY0 $cZ0 $cXc $cYc $cZ0" \ $Z >>! $_____FVoisins $Z echo "$cX1 $cY0 $cZ0 $cXc $cYc $cZ0" \ $Z >>! $_____FVoisins $Z echo "$cX1 $cY1 $cZ0 $cXc $cYc $cZ0" \ $Z >>! $_____FVoisins $Z echo "$cX0 $cY1 $cZ0 $cXc $cYc $cZ0" \ $Z >>! $_____FVoisins $Z # Generation d'un carre avec ses 4 "demi-diagonales"... #