#######################################################################################################################################
#                                                                                                                                     #
#         C O N V E R S I O N   ' $MPEG '   D ' U N E   S E Q U E N C E  :                                             #
#                                                                                                                                     #
#                                                                                                                                     #
#         Nota sur les conversions '$MP4' et '$MPEG' :                                                                 #
#                                                                                                                                     #
#                     Il existe pour ce faire deux modules                                                                            #
#                   qui sont relativement incompatibles :                                                                             #
#                                                                                                                                     #
#                                                                                                                                     #
#                                       SOLUTION CONSEILLEE :                                                                         #
#                                                                                                                                     #
#                                                 $xiirs/.MOBI.13.1.$U                                                                #
#                                                                               Genere du '$MP4' et fonctionne sur '$LACT19' et       #
#                                                                               sur '$LACT1A'. Le fichier '$MP4' est exploitable      #
#                                                                               sur ces deux machines via '$PLAYER_'.                 #
#                                                                                                                                     #
#                                                                                                                                     #
#                                       SOLUTION DECONSEILLEE :                                                                       #
#                                                                                                                                     #
#                                                 $xivP_d06_f2/.TUR2.1.11.$U                                                          #
#                                                                               Genere du '$MPEG' et fonctionne sur '$LACT19' et      #
#                                                                               sur '$LACT1A'. Mais, le fichier '$MPEG' n'est pas     #
#                                                                               exploitable sur '$LACT19'...                          #
#                                                                                                                                     #
#                                                                               ATTENTION : je note le 20211105095821 que cela ne     #
#                                                                               fonctionne pas sur '$LACT1B' et donne des messages    #
#                                                                               du type "convert: cache resources exhausted..."       #
#                                                                               "...@ error/cache.c/OpenPixelCache/...".              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000006/face.2/.TUR2.1.11.$U' :                                                                     #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20030602133319).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

#20241116100737____:$Z                  if        ("$mHOTE" == "$LACT1A") then                                                        #
#20241116100737____:$Z                            EROR      "Ne fonctionne pas sur '"'$LACT1A'"', on sort donc immediatement."        #
#20241116100737____:$Z                            exit                                                                                #
$Z                                      # Introduit le 20241112094810 car, en effet, les '$MPEG's generes sur '$LACT1A' ne sont       #
$Z                                      # pas lisibles sur '$LACT19'...                                                               #
$Z                                      #                                                                                             #
$Z                                      # Le 20241116100737, je re-autorise le calcul sur '$LACT1A' car, en effet, ce qui compte      #
$Z                                      # c'est la qualite et non pas le fait que cela soit lisible sur '$LACT19'...                  #
#20241116100737____:$Z                  else                                                                                          #
#20241116100737____:$Z                  endif                                                                                         #

#20250117180754____:$Z                  if                  ("$mHOTE" == "$LACT1B") then                                              #
#20250117180754____:$Z                                      EROR "Ne fonctionne pas sur '"'$LACT1B'"', on sort donc immediatement."   #

$Z                  if                  (    ("$mHOTE" == "$LACT19")                                                                    \
$Z                                      ||   ("$mHOTE" == "$LACT1B")                                                                    \
                                         ) then
$Z                                      EROR                "Ne fonctionne peut-etre pas sur '$mHOTE', on sort donc immediatement."
$Z                                      saut                2
$Z             ATTENTION           "Utiliser $K_QS""v $K_DOLLAR""xiirs/.MOBI.13.1.$K_DOLLAR""U""$K_QS sur $K_QS$K_DOLLAR""LACT1B$K_QS."
$Z                                      saut                2
$Z                                      exit
$Z                                      # Introduit le 20211105095821...                                                              #
$Z                  else
$Z                  endif

$Z                  set                 NoError_DKVP=$EXIST
$Z                  source              $Fdisk_video_P
$Z                  unset               NoError_DKVP
$Z                                      # Introduit le 20200319103026 pour definir '$RVB_DKVP'...                                     #

#202003191030:$Z   ATTENTION "Remplacer $K_QS'$xivP_d06_f2/.TUR2.1.11.$U'$K_QS par $K_QS'$xiirs/.MOBI.13.1.$U'$K_QS."                 #
#20200319103026____:$Z                  pause                                                                                         #
$Z                                      # Introduit le 20200318095137 suite aux tests du type faits sur '$LACT19' :                   #
$Z                                      #                                                                                             #
$Z                                      #                   $PLAYER_  $xiird/NETW.51.10x10$MPEG                                       #
$Z                                      #                                                                                             #
$Z                                      # qui ne donnent que des images grises et vides avec un peu de bruit...                       #
$Z                                      #                                                                                             #
$Z                                      # Le 20200318102627, voici la liste des '$MPEG's generes ainsi indifferemment sur '$LACT19'   #
$Z                                      # et sur '$LACT1A' et qui sont ILLISIBLES via '$PLAYER_' sur '$LACT19' (tous ces fichiers ont #
$Z                                      # ete generes en 2018. En ce qui concerne les autres fichiers '$MPEG's -hors ceux generes     #
$Z                                      # dans '$xiMi' par 'v $xiMo/creation$Z $Nom_Image$MPEG' qui ne posent aucun probleme, meme    #
$Z                                      # les plus recents generes donc sur '$LACT19'- ils ont ete generes en 2006 et avant, et donc  #
$Z                                      # sur des MACHINEs plus anciennes n'induisant pas de problemes avec '$PLAYER_'...) :          #
$Z                                      #                                                                                             #
$Z                                      #                                                                                             #
$Z                                      #    NOM :                    DATE :    TAILLE :  $LACT19 :      $LACT1A   -->  $LACT19 :     #
$Z                                      #                                                 ($PLAYER_)     ($CONVERT)     ($PLAYER_)    #
$Z                                      #                                                                                             #
$Z                                      #    $xiac/MANE.w2$MPEG       20180206  12267178  ERREUR         ERREUR         ?             #
$Z                                      #    $xiac/VONK.44$MPEG       20180309  ...28024  ERREUR         ERREUR         ?             #
$Z                                      #    $xiac/VONK.52$MPEG       20180309  ...80669  ERREUR         OK             ERREUR        #
$Z                                      #    $xiac/VONK.53$MPEG       20180309  ...18764  ERREUR         ERREUR         ?             #
$Z                                      #    $xiac/VONK.63$MPEG       20180309  ..407288  ERREUR         OK             ERREUR        #
$Z                                      #    $xiac/VONK.81$MPEG       20180309  ...15634  ERREUR         ERREUR         ?             #
$Z                                      #    $xiaf/BESF.11$MPEG       20180309  .8754639  ERREUR         OK             OK            #
$Z                                      #    $xiaf/MENG.21$MPEG       20180309  ..428283  ERREUR         OK             OK            #
$Z                                      #    $xiaf/MENG.22$MPEG       20180309  ..374518  ERREUR         OK             OK            #
$Z                                      #    $xiaf/MENG.23$MPEG       20180309  ..331874  ERREUR         OK             OK            #
$Z                                      #    $xiaf/NUAG.D1$MPEG       20180210  ..490697  ERREUR         ERREUR         ?             #
$Z                                      #    $xiaf/SIER.61$MPEG       20180309  ..262794  ERREUR         OK             ERREUR        #
$Z                                      #    $xiak/DIFF.91$MPEG       20180206  37862469  ERREUR         ERREUR         ?             #
$Z                                      #    $xiak/DIFF.A1$MPEG       20180207  14030580  ERREUR         ERREUR         ?             #
$Z                                      #    $xiak/NCOS.41$MPEG       20180322  ..217430  ERREUR         OK             ERREUR        #
$Z                                      #    $xiak/NCOS.42$MPEG       20180322  ..189242  ERREUR         OK             ERREUR        #
$Z                                      #    $xiak/NCOS.43$MPEG       20180322  ..336994  ERREUR         OK             ERREUR        #
$Z                                      #    $xiak/NCOS.51$MPEG       20180322  ..216343  ERREUR         OK             ERREUR        #
$Z                                      #    $xiak/NCOS.52$MPEG       20180322  ..216626  ERREUR         OK             ERREUR        #
$Z                                      #    $xiak/NCOS.53$MPEG       20180322  ..312534  ERREUR         OK             ERREUR        #
$Z                                      #    $xiav/TREE.23$MPEG       20180309  ..169006  ERREUR         ERREUR         ?             #
$Z                                      #    $xiav/TREE.32$MPEG       20180309  ..111363  ERREUR         ERREUR         ?             #
$Z                                      #                                                                                             #
$Z                                      #                                                                                             #
$Z                                      # J'ai alors fait des experiences de conversion de '$MPEG' en '$MP4' sur '$LACT1A' qui ne     #
$Z                                      # sont pas concluantes car, en effet, il y a des fichiers '$MP4's ainsi generes qui ne sont   #
$Z                                      # pas lisibles sur '$LACT19' avec '$PLAYER_'. Lorsqu'il y a "ERREUR" sur '$LACT1A', le        #
$Z                                      # message est toujours du type :                                                              #
$Z                                      #                                                                                             #
$Z                                      #                   convert: delegate failed `"ffmpeg" -v -1 -i "%F%%d.jpg" "%u.%m" 2> "%Z"'  #
$Z                                      #                   @ error/delegate.c/InvokeDelegate/1310.                                   #
$Z                                      #                                                                                             #
$Z                                      # Difficile a interpreter...                                                                  #
$Z                                      #                                                                                             #
$Z                                      # Les cas favorables {OK,OK} sont donc malheureusement assez rares...                         #
$Z                                      #                                                                                             #
$Z                                      # Le 20200318121724, j'ai verifie que tous ces '$MPEG' avaient ete generes via :              #
$Z                                      #                                                                                             #
$Z                                      #                   set       _____images=                  (SANS '$K_sepP' a la fin)         #
$Z                                      #                   set       _____InverserMPEG=$NEXIST     (ou '$EXIST)                      #
$Z                                      #                   set       _____PaletteMPEG=RVB          (ou '$xiP/...')                   #
$Z                                      #                   set       _____animation=                                                 #
$Z                                      #                                                                                             #
$Z                                      #                   _____xivPdf_06_2/.TUR2.1.11._____U                                        #
$Z                                      #                                                                                             #
$Z                                      # La solution seraient donc de les regenerer via :                                            #
$Z                                      #                                                                                             #
$Z                                      #                   set       _____ImageT=$_____images.     (AVEC '$K_sepP' a la fin)         #
$Z                                      #                   set       _____InverserMPEG=$NEXIST     (ou '$EXIST)                      #
$Z                                      #                   set       _____PaletteMPEG=RVB          (ou '$xiP/...')                   #
$Z                                      #                   set       _____Animation=$_____animation                                  #
$Z                                      #                                                                                             #
$Z                                      #                   _____xiirs/.MOBI.13.1._____U                                              #
$Z                                      #                                                                                             #
$Z                                      # Le 20200319100737 le parametre 'v $xiirs/.MOBI.13.1.$U _____LRepetitions' a ete introduit   #
$Z                                      # pour faciliter cette operation. Mais ATTENTION au probleme des 'set's {$Premiere,$Derniere} #
$Z                                      # decrit dans 'v $xivP_d06_f2/.TUR2.1.11.$U 20200319110103'...                                #
$Z                                      #                                                                                             #
$Z                                      #                                                                                             #
$Z                                      # Mais vais-je avoir ce courage et est-ce bien utile ? En fait, voici ceux qui sont utilises  #
$Z                                      # et ou :                                                                                     #
$Z                                      #                                                                                             #
$Z                                      #              $xiac/VONK.44$MPEG  (defini dans $xiac)      -->       Pcreation  VONK.44$R04  #
$Z                                      #              $xiac/VONK.52$MPEG  (defini dans $xiac)      -->       Pcreation  VONK.52$R16  #
$Z                                      #              $xiac/VONK.53$MPEG  (defini dans $xiac)      -->       Pcreation  VONK.53$R04  #
$Z                                      #              $xiac/VONK.81$MPEG  (defini dans $xiac)      -->       Pcreation  VONK.81$R04  #
$Z                                      #              $xiaf/BESF.11$MPEG  (defini dans $xiaf)      -->       Pcreation  BESF.11$R16  #
$Z                                      #              $xiaf/MENG.21$MPEG  (defini dans $xiaf)      -->       Pcreation  MENG.21$R04  #
$Z                                      #              $xiaf/MENG.22$MPEG  (defini dans $xiaf)      -->       Pcreation  MENG.22$R04  #
$Z                                      #              $xiaf/MENG.23$MPEG  (defini dans $xiaf)      -->       Pcreation  MENG.23$R04  #
$Z                                      #              $xiaf/NUAG.D1$MPEG  (defini dans $xiaf)      -->       Pcreation  NUAG.D1$R16  #
$Z                                      #              $xiaf/SIER.61$MPEG  (defini dans $xiaf)      -->       Pcreation  SIER.61$R04  #
$Z                                      #              $xiak/DIFF.A1$MPEG  (defini dans $xiirk)     -->       Pcreation  DIFF.A1$R16  #
$Z                                      #              $xiak/NCOS.43$MPEG  (defini dans $xiak)      -->       Pcreation  NCOS.43$R16  #
$Z                                      #              $xiak/NCOS.53$MPEG  (defini dans $xiak)      -->       Pcreation  NCOS.53$R16  #
$Z                                      #              $xiav/TREE.23$MPEG  (defini dans $xiav)      -->       Pcreation  TREE.23$R04  #
$Z                                      #              $xiav/TREE.32$MPEG  (defini dans $xiav)      -->       Pcreation  TREE.32$R04  #
$Z                                      #                                                                                             #

$Z                  SETParam            _____InverserMPEG             $NEXIST
$Z                                      # Introduit le 20030618081033 afin de permettre, si besoin est, l'inversion des sequences...  #

$Z                  setParam            _____PaletteMPEG              $RVB_DKVP

$Z                  setParam            _____imagesR                  $_____images
$Z                                      # Introduit le 20030605092119 pour generer les fichiers du type 'v $xias/PS.35.08$MPEG'...    #

$Z                  setParam            _____LRepetitions             "$K_VIDE"
$Z                                      # Introduit le 20180209102443 pour 'v $xiirc/.VONK.51.4.$U _____LRepetitions'...              #

#20200319103026____:$Z                  if                  ($_____InverserMPEG == $NEXIST) then                                      #
#20200319103026____:$Z                  else                                                                                          #
#20200319103026____:$Z                  endif                                                                                         #

#20200319103026____:$Z                  setenv              PostScript_NoMes    $EXIST                                                #
$Z                                      # Introduit le 20180203110707 afin de ne pas editer les messages relatifs a la coexistence    #
$Z                                      # des images fausses et vraies couleurs.                                                      #

#20180209102443____:$Z                  $xci/Gen_MPEG$vv$Z  $_____imagesR. $PremiereMPEG $DerniereMPEG                             \  #
#20180209102443____:$Z                                      $_____PaletteMPEG                                                      \  #
#20180209102443____:$Z                                      $_____animation                                                           #

#20200319103026____:$Z                  $xci/Gen_MPEG$vv$Z  $_____imagesR. $PremiereMPEG $DerniereMPEG                             \  #
#20200319103026____:$Z                                      $_____PaletteMPEG                                                      \  #
#20200319103026____:$Z                                      $_____animation                                                        \  #
#20200319103026____:$Z                                      "$_____LRepetitions"                                                      #

#20200319103026____:$Z                  unsetenv            PostScript_NoMes                                                          #

#20180208144755____:$Z                  ro                  $_____animation$MPEG                                                      #
#20180208144755____:$Z                  $xcg/unite$Z        $_____animation$MPEG                                       #

$Z                                      # Introduit le 20200319103026 afin d'assurer la compatibilite entre                           #
$Z                                      # 'v $xivP_d06_f2/.TUR2.1.11.$U' et 'v $xiirs/.MOBI.13.1.$U'...                               #

#20200319110103____:$m4                 _____include(_____xiirs/.MOBI.13.1._____U)                                                    #
$Z                                      # Le 20200319110103, provisoirement (?), je reviens en arriere et ce a cause de :             #
$Z                                      #                                                                                             #
$Z                                      #                   SET                 Premiere=1                                            #
$Z                                      #                   SET                 Derniere=128                                          #
$Z                                      #                                                                                             #
$Z                                      # que l'on trouve dans 'v $xiirs/.MOBI.13.1.$U SET' et qui sont incompatibles avec des        #
$Z                                      # 'set's sur {$Premiere,$Derniere} qui existent assez frequemment et par exemple dans         #
$Z                                      # 'v $xiird/$Fnota Debut_listG_NETW_51_10x10'...                                              #

$Z                  if                  ($_____InverserMPEG == $NEXIST) then
$Z                                      set                 PremiereMPEG=$Premiere
$Z                                      set                 DerniereMPEG=$Derniere
$Z                  else
$Z                                      set                 PremiereMPEG=$Derniere
$Z                                      set                 DerniereMPEG=$Premiere
$Z                  endif

$Z                  setenv              PostScript_NoMes    $EXIST
$Z                                      # Introduit le 20180203110707 afin de ne pas editer les messages relatifs a la coexistence    #
$Z                                      # des images fausses et vraies couleurs.                                                      #

$Z                  $xci/Gen_MPEG$vv$Z  $_____imagesR. $PremiereMPEG $DerniereMPEG                                                      \
$Z                                      $_____PaletteMPEG                                                                               \
$Z                                      $_____animation                                                                                 \
$Z                                      "$_____LRepetitions"

$Z                  unsetenv            PostScript_NoMes



Copyright © Jean-François COLONNA, 2019-2025.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / École polytechnique, Institut Polytechnique de Paris, 2019-2025.