####################################################################################################################################### # # # V I S U A L I S A T I O N D E L ' A C I N U S P U L M O N A I R E : # # # # # # Author of '$xiird/.ACIN.Y1.5.$U' : # # # # Jean-Francois Colonna (LACTAMME, 20160222104948). # # # ####################################################################################################################################### $Z $xrv/normalise.01$X \ $Z ne=$Npart \ $Z fichier=$FDoNnEeSL.FData1____ \ $Z forcer_extrema=VRAI \ $Z minimum_force=$MinimumData1 \ $Z maximum_force=$MaximumData1 \ $Z origine=$NOIR_PLANCHER \ $Z extremite=$BLANC | \ $Z $xrv/neutre$X \ $Z ne=$Npart \ $Z fichier== \ $Z ChiffresFlot=16 \ $Z exemplaires_fichier=$NExEmPlaiReS \ $Z > $FPoInTs$_____PostFixeData1$NIVEAU $Z # On notera le 20160222154511 que l'introduction de ce '$xrv/neutre$X' ne fut pas "neutre" # $Z # car, en effet, le nombre de decimales implicite est defini a l'entree de ce programme # $Z # via 'v $xci/valeurs.03$I nombre_de_chiffres_des_editions_flottantes'. Pour introduire # $Z # la "neutralite", il suffit d'ajouter ci-dessus : # $Z # # $Z # ChiffresFlot=16 # $Z # # $Z # comme argument de '$xrv/neutre$X'... # $Z # # $Z # L'emploi de '$NOIR_PLANCHER' est destine a permettre l'usage de palettes telle # $Z # 'v $xiio/MIRE p=$xiP/trou_noir.G4' qui commencent par du '$NOIR'... # $Z $xrv/normalise.01$X \ $Z ne=$Npart \ $Z fichier=$FDoNnEeSL.FData2____ \ $Z forcer_extrema=VRAI \ $Z minimum_force=$MinimumData2 \ $Z maximum_force=$MaximumData2 \ $Z origine=$NOIR_PLANCHER \ $Z extremite=$BLANC | \ $Z $xrv/neutre$X \ $Z ne=$Npart \ $Z fichier== \ $Z ChiffresFlot=16 \ $Z exemplaires_fichier=$NExEmPlaiReS \ $Z > $FPoInTs$_____PostFixeData2$NIVEAU $Z # Meme remarque que ci-dessus en ce qui concerne "ChiffresFlot="... # $Z # # $Z # L'emploi de '$NOIR_PLANCHER' est destine a permettre l'usage de palettes telle # $Z # 'v $xiio/MIRE p=$xiP/bleu_blanc_rouge.12' qui commencent par du '$NOIR'... # $Z $xrv/normalise.01$X \ $Z ne=$Npart \ $Z fichier=$FDoNnEeSL.FDiameter_ \ $Z forcer_extrema=VRAI \ $Z minimum_force=$MinimumD____ \ $Z maximum_force=$MaximumD____ \ $Z origine=$_____mRayon \ $Z extremite=$_____MRayon | \ $Z $xrv/neutre$X \ $Z ne=$Npart \ $Z fichier== \ $Z ChiffresFlot=16 \ $Z exemplaires_fichier=$NExEmPlaiReS \ $Z > $FPoInTs$RAYON $Z # Meme remarque que ci-dessus en ce qui concerne "ChiffresFlot="... # $Z set ArGuMeNtS="$K_VIDE" $Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_RAYON=$FPoInTs$RAYON" $Z set ArGuMeNtS="$ArGuMeNtS"" grossissement=$_____Grossissement" $Z set ArGuMeNtS="$ArGuMeNtS"" Lz=1000" $Z set ArGuMeNtS="$ArGuMeNtS"" ZOOM=$_____Zoom" $Z set ArGuMeNtS="$ArGuMeNtS"" ROTATION_OX=0" $Z set ArGuMeNtS="$ArGuMeNtS"" ROTATION_OY=0" $Z set ArGuMeNtS="$ArGuMeNtS"" ROTATION_OZ=0" $Z set ArGuMeNtS="$ArGuMeNtS"" isoles=FAUX chainer=VRAI" $Z set ArGuMeNtS="$ArGuMeNtS"" ajuster_points=VRAI" $Z set ArGuMeNtS="$ArGuMeNtS"" equidistance=VRAI compatibilite_20051230=FAUX" $Z set ArGuMeNtS="$ArGuMeNtS"" distance_minimale=$_____DistanceMini" $Z set ArGuMeNtS="$ArGuMeNtS"" RVB=VRAI" $Z set ArGuMeNtS="$ArGuMeNtS"" N_AU_CARRE=FAUX" $Z set ArGuMeNtS="$ArGuMeNtS"" editer_extrema_hors=FAUX"