Packman Build Service PMBS

We truncated the diff of some files because they were too big. If you want to see the full diff for every file, click here.

Changes of Revision 6

xt7-player-mpv.changes Changed

xt7-player-mpv.spec Changed

xt7-player-mpv-0.14.384.tar.gz/COPYING Deleted

@@ -1,340 +0,0 @@
-        GNU GENERAL PUBLIC LICENSE
-           Version 2, June 1991
-
- Copyright (C) 1989, 1991 Free Software Foundation, Inc.
-                 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
-          Preamble
-
-  The licenses for most software are designed to take away your
-freedom to share and change it.  By contrast, the GNU General Public
-License is intended to guarantee your freedom to share and change free
-software--to make sure the software is free for all its users.  This
-General Public License applies to most of the Free Software
-Foundation's software and to any other program whose authors commit to
-using it.  (Some other Free Software Foundation software is covered by
-the GNU Library General Public License instead.)  You can apply it to
-your programs, too.
-
-  When we speak of free software, we are referring to freedom, not
-price.  Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-this service if you wish), that you receive source code or can get it
-if you want it, that you can change the software or use pieces of it
-in new free programs; and that you know you can do these things.
-
-  To protect your rights, we need to make restrictions that forbid
-anyone to deny you these rights or to ask you to surrender the rights.
-These restrictions translate to certain responsibilities for you if you
-distribute copies of the software, or if you modify it.
-
-  For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must give the recipients all the rights that
-you have.  You must make sure that they, too, receive or can get the
-source code.  And you must show them these terms so they know their
-rights.
-
-  We protect your rights with two steps: (1) copyright the software, and
-(2) offer you this license which gives you legal permission to copy,
-distribute and/or modify the software.
-
-  Also, for each author's protection and ours, we want to make certain
-that everyone understands that there is no warranty for this free
-software.  If the software is modified by someone else and passed on, we
-want its recipients to know that what they have is not the original, so
-that any problems introduced by others will not reflect on the original
-authors' reputations.
-
-  Finally, any free program is threatened constantly by software
-patents.  We wish to avoid the danger that redistributors of a free
-program will individually obtain patent licenses, in effect making the
-program proprietary.  To prevent this, we have made it clear that any
-patent must be licensed for everyone's free use or not licensed at all.
-
-  The precise terms and conditions for copying, distribution and
-modification follow.
- 
-        GNU GENERAL PUBLIC LICENSE
-   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
-
-  0. This License applies to any program or other work which contains
-a notice placed by the copyright holder saying it may be distributed
-under the terms of this General Public License.  The "Program", below,
-refers to any such program or work, and a "work based on the Program"
-means either the Program or any derivative work under copyright law:
-that is to say, a work containing the Program or a portion of it,
-either verbatim or with modifications and/or translated into another
-language.  (Hereinafter, translation is included without limitation in
-the term "modification".)  Each licensee is addressed as "you".
-
-Activities other than copying, distribution and modification are not
-covered by this License; they are outside its scope.  The act of
-running the Program is not restricted, and the output from the Program
-is covered only if its contents constitute a work based on the
-Program (independent of having been made by running the Program).
-Whether that is true depends on what the Program does.
-
-  1. You may copy and distribute verbatim copies of the Program's
-source code as you receive it, in any medium, provided that you
-conspicuously and appropriately publish on each copy an appropriate
-copyright notice and disclaimer of warranty; keep intact all the
-notices that refer to this License and to the absence of any warranty;
-and give any other recipients of the Program a copy of this License
-along with the Program.
-
-You may charge a fee for the physical act of transferring a copy, and
-you may at your option offer warranty protection in exchange for a fee.
-
-  2. You may modify your copy or copies of the Program or any portion
-of it, thus forming a work based on the Program, and copy and
-distribute such modifications or work under the terms of Section 1
-above, provided that you also meet all of these conditions:
-
-    a) You must cause the modified files to carry prominent notices
-    stating that you changed the files and the date of any change.
-
-    b) You must cause any work that you distribute or publish, that in
-    whole or in part contains or is derived from the Program or any
-    part thereof, to be licensed as a whole at no charge to all third
-    parties under the terms of this License.
-
-    c) If the modified program normally reads commands interactively
-    when run, you must cause it, when started running for such
-    interactive use in the most ordinary way, to print or display an
-    announcement including an appropriate copyright notice and a
-    notice that there is no warranty (or else, saying that you provide
-    a warranty) and that users may redistribute the program under
-    these conditions, and telling the user how to view a copy of this
-    License.  (Exception: if the Program itself is interactive but
-    does not normally print such an announcement, your work based on
-    the Program is not required to print an announcement.)
- 
-These requirements apply to the modified work as a whole.  If
-identifiable sections of that work are not derived from the Program,
-and can be reasonably considered independent and separate works in
-themselves, then this License, and its terms, do not apply to those
-sections when you distribute them as separate works.  But when you
-distribute the same sections as part of a whole which is a work based
-on the Program, the distribution of the whole must be on the terms of
-this License, whose permissions for other licensees extend to the
-entire whole, and thus to each and every part regardless of who wrote it.
-
-Thus, it is not the intent of this section to claim rights or contest
-your rights to work written entirely by you; rather, the intent is to
-exercise the right to control the distribution of derivative or
-collective works based on the Program.
-
-In addition, mere aggregation of another work not based on the Program
-with the Program (or with a work based on the Program) on a volume of
-a storage or distribution medium does not bring the other work under
-the scope of this License.
-
-  3. You may copy and distribute the Program (or a work based on it,
-under Section 2) in object code or executable form under the terms of
-Sections 1 and 2 above provided that you also do one of the following:
-
-    a) Accompany it with the complete corresponding machine-readable
-    source code, which must be distributed under the terms of Sections
-    1 and 2 above on a medium customarily used for software interchange; or,
-
-    b) Accompany it with a written offer, valid for at least three
-    years, to give any third party, for a charge no more than your
-    cost of physically performing source distribution, a complete
-    machine-readable copy of the corresponding source code, to be
-    distributed under the terms of Sections 1 and 2 above on a medium
-    customarily used for software interchange; or,
-
-    c) Accompany it with the information you received as to the offer
-    to distribute corresponding source code.  (This alternative is
-    allowed only for noncommercial distribution and only if you
-    received the program in object code or executable form with such
-    an offer, in accord with Subsection b above.)
-
-The source code for a work means the preferred form of the work for
-making modifications to it.  For an executable work, complete source
-code means all the source code for all modules it contains, plus any
-associated interface definition files, plus the scripts used to
-control compilation and installation of the executable.  However, as a
-special exception, the source code distributed need not include
-anything that is normally distributed (in either source or binary
-form) with the major components (compiler, kernel, and so on) of the
-operating system on which the executable runs, unless that component
-itself accompanies the executable.
-
-If distribution of executable or object code is made by offering
-access to copy from a designated place, then offering equivalent
-access to copy the source code from the same place counts as
-distribution of the source code, even though third parties are not
-compelled to copy the source along with the object code.
- 
-  4. You may not copy, modify, sublicense, or distribute the Program
-except as expressly provided under this License.  Any attempt
-otherwise to copy, modify, sublicense or distribute the Program is
-void, and will automatically terminate your rights under this License.
-However, parties who have received copies, or rights, from you under
-this License will not have their licenses terminated so long as such
-parties remain in full compliance.
-
-  5. You are not required to accept this License, since you have not
-signed it.  However, nothing else grants you permission to modify or
-distribute the Program or its derivative works.  These actions are
-prohibited by law if you do not accept this License.  Therefore, by
-modifying or distributing the Program (or any work based on the
-Program), you indicate your acceptance of this License to do so, and
-all its terms and conditions for copying, distributing or modifying
-the Program or works based on it.
-
-  6. Each time you redistribute the Program (or any work based on the
-Program), the recipient automatically receives a license from the
-original licensor to copy, distribute or modify the Program subject to
-these terms and conditions.  You may not impose any further
-restrictions on the recipients' exercise of the rights granted herein.
-You are not responsible for enforcing compliance by third parties to
-this License.
-
-  7. If, as a consequence of a court judgment or allegation of patent
-infringement or for any other reason (not limited to patent issues),
-conditions are imposed on you (whether by court order, agreement or

xt7-player-mpv-0.14.384.tar.gz/shade1.png Deleted

xt7-player-mpv-0.14.384.tar.gz/.icon.png -> xt7-player-mpv-0.16.384.tar.gz/.icon.png Changed

xt7-player-mpv-0.14.384.tar.gz/.lang/it.mo -> xt7-player-mpv-0.16.384.tar.gz/.lang/it.mo Changed

xt7-player-mpv-0.14.384.tar.gz/.lang/it.po -> xt7-player-mpv-0.16.384.tar.gz/.lang/it.po Changed

@@ -2,7 +2,7 @@
 msgid ""
 msgstr ""
 "Project-Id-Version: xt7-player-mpv 3.8.4\n"
-"PO-Revision-Date: 2016-01-15 13:45 UTC\n"
+"PO-Revision-Date: 2016-03-07 14:12 UTC\n"
 "Last-Translator: kokoko3k <kokoko3k@gmail.com>\n"
 "Language: it\n"
 "MIME-Version: 1.0\n"
@@ -29,7 +29,7 @@
 msgid "Click for a list of URI prefixes"
 msgstr "Mostra la lista dei prefissi per le URI"
 
-#: AddUriForm.form:51 FMain.class:8837
+#: AddUriForm.form:51 FMain.class:8907
 msgid "cdda://"
 msgstr "-"
 
@@ -169,7 +169,7 @@
 msgid "Add the selected URI to Collection and/or Playlist"
 msgstr "Aggiungi l'URI selezionata alla collezione/playlist"
 
-#: AddUriForm.form:152 FMain.class:9323 GeneralOptions.form:1059
+#: AddUriForm.form:152 FMain.class:9393 GeneralOptions.form:1065
 msgid "Add"
 msgstr "Aggiungi"
 
@@ -177,7 +177,7 @@
 msgid "Close"
 msgstr "Chiudi"
 
-#: AlbumView.class:92 FMain.class:1329
+#: AlbumView.class:92 FMain.class:1358
 msgid "Unknown"
 msgstr "Sconosciuto"
 
@@ -233,7 +233,7 @@
 msgid "Title"
 msgstr "Titolo"
 
-#: AudioConvert.class:94 FMain.class:9811
+#: AudioConvert.class:94 FMain.class:9881
 msgid "Unable to get the real stream url"
 msgstr "Non posso recuperare l'url reale del flusso"
 
@@ -305,35 +305,27 @@
 msgid "Start"
 msgstr "Avvia"
 
-#: AudioForm.class:147
-msgid "Missing Artist and/or Song information"
-msgstr "Mancano informazioni su artista e/o titolo."
-
-#: AudioForm.form:139
-msgid "Media Info "
-msgstr "Media Info"
-
-#: AudioForm.form:188 FMain.form:690 FormLyrics.form:91 Searchfields.form:58
+#: AudioForm.class:12 FMain.form:690 FormLyrics.form:91 Searchfields.form:58
 msgid "Artist"
 msgstr "Artista"
 
-#: AudioForm.form:199 FMain.form:686 Searchfields.form:66
+#: AudioForm.class:13 FMain.form:686 Searchfields.form:66
 msgid "Album"
 msgstr "Album"
 
-#: AudioForm.form:210 FMain.form:2671 Searchfields.form:90
+#: AudioForm.class:14 FMain.form:2671 Searchfields.form:90
 msgid "Year"
 msgstr "Anno"
 
-#: AudioForm.form:232 FMain.form:2739 Searchfields.form:119
+#: AudioForm.class:16 FMain.form:2739 Searchfields.form:119
 msgid "Comment"
 msgstr "Commento"
 
-#: AudioForm.form:249
+#: AudioForm.class:17
 msgid "Lyrics"
 msgstr "Testi"
 
-#: AudioForm.form:355 FMain.form:2207
+#: AudioForm.class:24 FMain.form:2207
 msgid "Radio"
 msgstr "Radio"
 
@@ -341,18 +333,26 @@
 msgid "Name"
 msgstr "Nome"
 
-#: AudioForm.form:375 FMain.class:8826 Searchfields.form:104
+#: AudioForm.class:26 FMain.class:8896 Searchfields.form:104
 msgid "Length"
 msgstr "Durata"
 
-#: AudioForm.form:385
-msgid "FileSize"
+#: AudioForm.class:27 SubAndOsd.form:250
+msgid "Size"
 msgstr "Dimensione"
 
-#: AudioForm.form:395
+#: AudioForm.class:28
 msgid "Audio Info"
 msgstr "Audio Info"
 
+#: AudioForm.class:163
+msgid "Missing Artist and/or Song information"
+msgstr "Mancano informazioni su artista e/o titolo."
+
+#: AudioForm.form:47
+msgid "Media Info "
+msgstr "Media Info"
+
 #: BugReport.form:17
 msgid "Bug Report"
 msgstr "Segnalazione bug"
@@ -381,7 +381,7 @@
 msgid ":"
 msgstr "-"
 
-#: ChooseAspect.form:53 GeneralOptions.form:2395
+#: ChooseAspect.form:53 GeneralOptions.form:2429
 msgid "="
 msgstr "-"
 
@@ -397,7 +397,7 @@
 msgid "ShutDown CountDown..."
 msgstr "Conto alla rovescia per lo spegnimento."
 
-#: CountDown.form:17 NewChains.class:451
+#: CountDown.form:17 NewChains.class:466
 msgid "Abort"
 msgstr "Annulla"
 
@@ -441,11 +441,11 @@
 msgid "Error while loading the picture"
 msgstr "Errore durante il caricamento dell' immagine"
 
-#: CoverManager.class:961 FMain.class:7696
+#: CoverManager.class:961 FMain.class:7831
 msgid "\nso you are going to set a cover for this particular file/stream"
 msgstr "\nQuindi la copertina che imposterai sarà solo per questo file o stream"
 
-#: CoverManager.class:962 FMain.class:7697
+#: CoverManager.class:962 FMain.class:7832
 msgid "Artist Or Album tag information are required to set a cover"
 msgstr "Le tag artista o album sono necessarie per impostare una copertina"
 
@@ -477,11 +477,11 @@
 msgid "Load cover"
 msgstr "Carica da disco"
 
-#: CoverManager.form:178 GeneralOptions.form:2779
+#: CoverManager.form:178 GeneralOptions.form:2813
 msgid "128"
 msgstr "-"
 
-#: CoverManager.form:178 GeneralOptions.form:2779
+#: CoverManager.form:178 GeneralOptions.form:2813
 msgid "160"
 msgstr "-"
 
@@ -509,7 +509,7 @@
 msgid "Set Cover"
 msgstr "Imposta"
 
-#: DVBTuner.class:53 FMain.form:1761 GeneralOptions.form:1398
+#: DVBTuner.class:53 FMain.form:1761 GeneralOptions.form:1404
 msgid "DVB-T"
 msgstr "-"
 
@@ -553,7 +553,7 @@
 msgid "Import"
 msgstr "Importa"
 
-#: DVBTuner.form:90 GeneralOptions.form:1966
+#: DVBTuner.form:90 GeneralOptions.form:1986
 msgid "Card #"
 msgstr "Scheda #"
 
@@ -657,215 +657,215 @@
 msgid "Scan All"
 msgstr "Aggiorna tutto"
 
-#: FMain.class:627
+#: FMain.class:653
 msgid "Couldn't clear the history!"
 msgstr "Impossibile cancellare la cronologia!"
 
-#: FMain.class:1334 Searchfields.form:161
+#: FMain.class:1363 Searchfields.form:161
 msgid "Channels"
 msgstr "Canali"
 
-#: FMain.class:1335
+#: FMain.class:1364
 msgid "Rate"
 msgstr "Frequenza"

xt7-player-mpv-0.14.384.tar.gz/.project -> xt7-player-mpv-0.16.384.tar.gz/.project Changed

xt7-player-mpv-0.14.384.tar.gz/.settings -> xt7-player-mpv-0.16.384.tar.gz/.settings Changed

@@ -1,5 +1,5 @@
 [Bookmarks]
-FMain=[7687]
+FMain=[7697]
 GeneralOptions=[1251]
 
 [Breakpoints]
@@ -8,6 +8,9 @@
 [DebugWindow]
 Count=0
 
+[DebugWindow/(Dir(Directory, "*.BMP"))]
+Geometry=[45,0,224,280]
+
 [DebugWindow/AC3s]
 Geometry=[928,154,344,344]
 
@@ -177,6 +180,9 @@
 [DebugWindow/Dialog.filter]
 Geometry=[0,35,344,344]
 
+[DebugWindow/Dir(DirToAdd).Sort()]
+Geometry=[47,0,588,465]
+
 [DebugWindow/Dir(Directory, "*.MP3")]
 Geometry=[1280,0,210,210]
 
@@ -231,6 +237,12 @@
 [DebugWindow/FMain]
 Geometry=[48,268,776,554]
 
+[DebugWindow/FMain.OuterBox]
+Geometry=[45,0,224,280]
+
+[DebugWindow/FMain.OuterBox.Parent]
+Geometry=[45,307,224,280]
+
 [DebugWindow/FMain.mplayer.GetListOf("ao")]
 Geometry=[52,0,222,507]
 
@@ -408,6 +420,9 @@
 [DebugWindow/LAST.next.NEXT.next]
 Geometry=[0,0,344,344]
 
+[DebugWindow/Label2]
+Geometry=[45,0,224,280]
+
 [DebugWindow/Last]
 Geometry=[681,124,482,602]
 
@@ -483,6 +498,9 @@
 [DebugWindow/MpLines]
 Geometry=[44,-3,210,210]
 
+[DebugWindow/MplayerTag]
+Geometry=[47,0,224,280]
+
 [DebugWindow/MpvOption]
 Geometry=[44,0,210,210]
 
@@ -814,7 +832,7 @@
 Geometry=[1280,-3,210,210]
 
 [DebugWindow/Split(history, "\n", "", True)]
-Geometry=[52,0,210,210]
+Geometry=[1623,198,725,475]
 
 [DebugWindow/Split(linea, "\"")]
 Geometry=[0,0,344,344]
@@ -934,11 +952,14 @@
 Geometry=[0,0,210,210]
 
 [DebugWindow/TheComboBox]
-Geometry=[0,0,301,301]
+Geometry=[1519,528,301,301]
 
 [DebugWindow/TheComboBox.List]
 Geometry=[44,-3,528,697]
 
+[DebugWindow/TheComboBox[0]]
+Geometry=[1820,528,301,301]
+
 [DebugWindow/TheComboBox[i]]
 Geometry=[44,0,1008,404]
 
@@ -1181,7 +1202,10 @@
 Geometry=[0,0,344,344]
 
 [DebugWindow/audioform.AudioPanel.Parent]
-Geometry=[1280,0,210,210]
+Geometry=[1280,0,224,645]
+
+[DebugWindow/audioform.GridUp.Font]
+Geometry=[45,0,297,439]
 
 [DebugWindow/audios]
 Geometry=[1525,157,777,754]
@@ -1234,6 +1258,12 @@
 [DebugWindow/blackbox]
 Geometry=[794,22,315,922]
 
+[DebugWindow/blurred.Stretch(1, 3)]
+Geometry=[45,0,224,280]
+
+[DebugWindow/blurred.Stretch(1, 3).Pixels]
+Geometry=[59,14,224,280]
+
 [DebugWindow/bottomvbox.parent.Parent]
 Geometry=[1280,0,467,521]
 
@@ -1558,7 +1588,7 @@
 Geometry=[1280,0,210,210]
 
 [DebugWindow/historyarray]
-Geometry=[52,0,758,210]
+Geometry=[52,0,758,280]
 
 [DebugWindow/hsplit1.Layout]
 Geometry=[47,0,210,210]
@@ -2040,6 +2070,12 @@
 [DebugWindow/picture[global.IconfileOf["browse"]]]
 Geometry=[61,256,344,344]
 
+[DebugWindow/pictureback]
+Geometry=[45,0,224,280]
+
+[DebugWindow/pictureback.Picture]
+Geometry=[45,0,224,280]
+
 [DebugWindow/playerprocess]
 Geometry=[588,61,301,301]
 
@@ -2077,16 +2113,19 @@
 Geometry=[1280,-3,224,280]
 
 [DebugWindow/prop]
-Geometry=[507,410,714,317]
+Geometry=[1789,289,643,481]
 
 [DebugWindow/prop["audiotracks"]]
 Geometry=[1390,192,397,476]
 
+[DebugWindow/prop_time]
+Geometry=[1513,514,356,280]
+
 [DebugWindow/properties]
 Geometry=[1280,0,224,280]
 
 [DebugWindow/properties_changed_runtime]
-Geometry=[44,0,210,210]
+Geometry=[45,0,224,280]
 
 [DebugWindow/properties_changed_runtime_old_datas]
 Geometry=[1280,0,210,210]
@@ -2122,7 +2161,7 @@
 Geometry=[0,41,344,344]
 
 [DebugWindow/s]
-Geometry=[1280,0,210,210]
+Geometry=[1280,0,224,280]
 
 [DebugWindow/samples]
 Geometry=[47,0,210,210]
@@ -2202,6 +2241,9 @@
 [DebugWindow/supported_domains]
 Geometry=[47,0,224,280]
 
+[DebugWindow/t]
+Geometry=[45,0,224,280]
+
 [DebugWindow/tArea]
 Geometry=[1280,0,210,745]
 
@@ -2400,54 +2442,65 @@
 
 [OpenFile]
 File[1]=".src/Form/FMain.form"
-File[2]=".src/Form/FMain.class:8.8392"
-Active=2
-Count=47
+File[2]=".src/Form/FMain.class:0.7311"
+Active=5
+Count=58
 File[3]=".src/Form/HotKeys.form"
-File[4]=".src/Form/HotKeys.class:24.465"
+File[4]=".src/Form/HotKeys.class:7.406"
 File[5]=".src/Form/GeneralOptions.form"
-File[6]=".src/Form/GeneralOptions.class:38.287"
-File[7]=".src/0_Moduli/Global.module:18.1212"
+File[6]=".src/Form/GeneralOptions.class:10.1004"
+File[7]=".src/0_Moduli/Global.module:14.1182"
 File[8]=".src/Form/AddUriForm.form"
 File[9]=".src/Form/AddUriForm.class:2.58"
 File[10]=".src/Form/RealtimeForm.form"
 File[11]=".src/Form/DVBTuner.form"
 File[12]=".src/Form/DVBTuner.class:2.67"
 File[13]=".src/Form/EpgForm.form"
-File[14]=".src/Form/CoverManager.class:8.1031"
+File[14]=".src/Form/CoverManager.class:12.1178"
 File[15]=".src/Form/NewChains.form"

xt7-player-mpv-0.14.384.tar.gz/.src/0_Moduli/Global.module -> xt7-player-mpv-0.16.384.tar.gz/.src/0_Moduli/Global.module Changed

xt7-player-mpv-0.14.384.tar.gz/.src/Classi/MplayerClass.class -> xt7-player-mpv-0.16.384.tar.gz/.src/Classi/MplayerClass.class Changed

@@ -98,65 +98,33 @@
 Public osdlevel As String = ""
 
 
-Public Function old_FillMultitracks()
-  Dim T, Tcount As Integer
-  Dim Type As String
-  Dim id, name, lang, tmp, codec As String
-  Dim properties As New String[]
-  Dim video_ok As Boolean = False
-
-  If getP("fullpath") = "" Then Return
-  
-  Try prop["audiotracks"].Clear
-  Try prop["subtitletracks"].Clear
-  Try Tcount = CInt(get_property_mpv("track-list/count"))
-  If Error Then
-    global.myDebug("WW", "unable to get track count")
-    Return
-  Endif
-
-  For T = 0 To Tcount - 1
-    properties.Clear()
-    properties.add("track-list/" & T & "/id")
-    properties.add("track-list/" & T & "/title")
-    properties.add("track-list/" & T & "/lang")
-    properties.add("track-list/" & T & "/type")
-    properties.add("track-list/" & T & "/codec")
-    get_properties_mpv(properties)
-    id = getP("track-list/" & T & "/id") 
-    name = getP("track-list/" & T & "/title") 
-    lang = getP("track-list/" & T & "/lang") 
-    Type = getP("track-list/" & T & "/type") 
-    codec = getP("track-list/" & T & "/codec") 
-    tmp = (ID & " - " & NAME & " - " & LANG & " - " & CODEC)
-    Select Case Type
-      Case "audio"
-        prop["audiotracks"].Add(Replace(tmp, unavailable_str, "*"))
-      ' Case "video"
-        'multiple video tracks unsupported by xt7
-      Case "sub"
-        prop["subtitletracks"].Add(Replace(tmp, unavailable_str, "*"))
-    End Select
-  Next
-
-  video_ok = (get_property_mpv("vo-configured") = "yes")
-  video_ok = video_ok And (get_property_mpv("current-vo") <> "(unavailable)")
-  setP("audioonly", (Not video_ok))
-End
 
-
-Public Function FillMultitracks()
+Public Function FillMultitracks(Optional force_audio_only As Boolean = False)
   Dim T, Tcount As Integer
   Dim Type As String
   Dim id, name, lang, tmp, codec As String
   Dim properties As New String[]
   Dim video_ok As Boolean = False
+  Dim t0 As Float
+  Dim timeout As Integer = 1 'seconds
+  Dim videotracks As Integer = 0
 
   If getP("fullpath") = "" Then Return
   
   Try prop["audiotracks"].Clear
   Try prop["subtitletracks"].Clear
   Try Tcount = CInt(get_property_mpv("track-list/count"))
+  ' If Tcount = 0 Then
+  '   '0 tracks is unlikely; probably mpv is not answering correctly
+  '   'keep asking till the timeout or a real answer
+  '   t0 = Timer()
+  '   Repeat
+  '     global.myDebug("0 tracks is unlikely, reasking")
+  '     Wait 0.01
+  '     Try Tcount = CInt(get_property_mpv("track-list/count"))
+  '   Until Tcount <> 0 Or (Timer() - t0) > timeout
+  ' Endif
+
   If Error Then
     global.myDebug("WW", "unable to get track count")
     Return
@@ -190,15 +158,40 @@
         'multiple video tracks unsupported by xt7
       Case "sub"
         prop["subtitletracks"].Add(Replace(tmp, unavailable_str, "*"))
+      Case "video"
+        videotracks += 1
     End Select
   Next
 
   video_ok = getP("vo-configured") = "yes"
   video_ok = video_ok And (getP("current-vo") <> "(unavailable)")
-  
-  ' video_ok = (get_property_mpv("vo-configured") = "yes")
-  ' video_ok = video_ok And (get_property_mpv("current-vo") <> "(unavailable)")
-  setP("audioonly", (Not video_ok))
+
+  If (Not video_ok) And (videotracks > 0) Then 'something is not right...
+    If idleplaying Then
+      t0 = Timer()
+      Repeat
+        Wait 0.01
+        video_ok = getP("vo-configured") = "yes"
+        video_ok = video_ok And (getP("current-vo") <> "(unavailable)")
+      Until video_ok Or (Timer() - t0) > timeout
+      If (Timer() - t0) > timeout Then
+        global.myDebug("?? video_ok is false but there are video tracks ??")
+        'at least we tried.
+        'since we are in idleplaying, there is no need to wait for vo-configured and current-vo.
+      Endif
+    Endif
+  Endif
+  If Not force_audio_only Then
+    If idleplaying Then
+      setP("audioonly", (videotracks = 0))
+        Else
+      setP("audioonly", (Not video_ok))
+    Endif
+      Else
+    setP("audioonly", True)
+  Endif
+  ' If global.IsVideoFile(getP("fullpath")) And (Not video_ok) Then Stop
+  ' If getP("audioonly") = True Then Stop
 End
 
 Public Function get_length() As String
@@ -250,6 +243,7 @@
 End
 
 Public Sub playerprocess_error(err As String)
+  'global.mydebug(err)
   stderr &= err & "\n"
   If err Like "*" & play_initialized_str & "*" Then 
     'catch statusline with the message player initialized
@@ -266,8 +260,7 @@
 
 Public Function SupportsLadspa() As Boolean
   Dim out As String
-  'Shell executable() & " -af help | grep 'ladspa '" To out
-  Shell "ffmpeg -filters | grep ladspa" To out
+  Exec ["sh", "-c", "ffmpeg -filters | grep ladspa"] To out
   Return Trim(out) <> ""
 End
 
@@ -374,12 +367,17 @@
   Dim data As String
   'handle corner cases where an option could conflict with another
   For Each data In return_opts
-    If data Like "*lavcac3enc*" Then
+    If data Like "*lavcac3enc*" Then 'unset audio-channels when encoding ac3 streams
       If return_opts.Key Like "*af*" Then
         Print "found audio filter lavcac3enc; searching and unsetting --audio-channels"
         Print
         unset_option("audio-channels", return_opts)
       Endif
+        Else If return_opts.Key = "vo" Then
+          If data Like "*opengl:*interpolation*" Then
+            Print "It seems that user requested opengl temporal interpolation; setting --video-sync=display-vdrop" 
+            set_option("video-sync", "display-vdrop")
+          Endif
     Endif
   Next
   Return return_opts
@@ -399,26 +397,35 @@
 Public Function waitplayback(timeoutcentisecs As Integer) As Boolean
   Dim play_initialized As Boolean = False
   Dim idling As Boolean
+  Dim tc As Integer = 0
+  Dim waittime As Float = 0.01
   setP("idle", "no")
 
   Repeat
     If Not ProcessRunningOvr() Then Return False
-    Wait 0.01
-    timeoutcentisecs -= 1
+    Wait waittime
+    timeoutcentisecs -= CInt(waittime * 100)
     If IsInteger(CStr(timeoutcentisecs / 100)) Then 'check if playback is idle (eg: no file playing) every second
       global.myDebug("check if idle")
       get_property_mpv("=idle", False)
     Endif
-  play_initialized = (getP("play_initialized") = "yes")
-  'play_initialized is set by playerprocess_error through the hack
-  'of setting the statusline to a value recognized by playerprocess_error
-  'Hopefully, when the statusline is initialized, the playback is initialized too.
-  'In case of problems, the core-idle property may come handy (but slower), see:
-  'https://github.com/mpv-player/mpv/commit/8d414e2fe7f79f1bbf9158e8aa034e9ac9cf2222#commitcomment-13950548
+    play_initialized = (getP("play_initialized") = "yes")
+    'play_initialized is set by playerprocess_error through the hack
+    'of setting the statusline to a value recognized by playerprocess_error
+    'Hopefully, when the statusline is initialized, the playback is initialized too.
+    'In case of problems, the core-idle property may come handy (but slower), see:
+    'https://github.com/mpv-player/mpv/commit/8d414e2fe7f79f1bbf9158e8aa034e9ac9cf2222#commitcomment-13950548
+    
+    '...however sometimes the track count is still 0, so use track-list/count too.
+    Try tc = get_property_mpv("track-list/count", True, 10, False)
+    play_initialized = play_initialized And (tc <> 0)
+    waittime += 0.01
+    If waittime >= 0.2 Then waittime = 0.2
   Until play_initialized Or (timeoutcentisecs <= 0) Or (getP("=idle") = "yes")

xt7-player-mpv-0.14.384.tar.gz/.src/Classi/StartClass.class -> xt7-player-mpv-0.16.384.tar.gz/.src/Classi/StartClass.class Changed

xt7-player-mpv-0.14.384.tar.gz/.src/Classi/dvbsnoop_class.class -> xt7-player-mpv-0.16.384.tar.gz/.src/Classi/dvbsnoop_class.class Changed

@@ -71,8 +71,7 @@
   Dim options As String = " -s sec -nohexdumpbuffer 0x12 |grep --binary-files=text 'Service_ID^|Table_ID^|===^|Event_ID^|Start_time^|Duration^|Free_CA_mode^|Content_nibble_level_^|event_name^|text_char'"
   Dim options2 As String = " -s sec -nohexdumpbuffer 0x11|grep --binary-files=text -i 'service_id:^|service_name:'"
   Dim state As Integer = 999
-'  StartitUfficio()
-'  Return
+
   
   
   'Dim options As String = " -s sec -nohexdumpbuffer 0x12"
@@ -96,23 +95,6 @@
 End
 
 
-Public Sub StartitUfficio()
-  Dim options As String = " |grep 'Service_ID^|Table_ID^|===^|Event_ID^|Start_time^|Duration^|Free_CA_mode^|event_name^|Content_nibble_level_^|text_char'"
-  Dim options2 As String = " |grep -i 'service_id:^|service_name:'"
-  'Dim options As String = " -s sec -nohexdumpbuffer 0x12"
-  InitSidChanTable()
-  options = Replace(options, "^", Chr(92))
-  options2 = Replace(options2, "^", Chr(92))
-  'dvbsnoop = Shell dvbsnoopexe For Input As "dvbsnoop"
-  'dvbsnoop = Shell dvbsnoopexe & " -s sec -nohexdumpbuffer 0x12" For Input As "dvbsnoop"
-  'dvbsnoop = Shell dvbsnoopexe & " -s sec -nohexdumpbuffer 0x12" For Input As "dvbsnoop"
-
-  dvbsnoopcMap = Shell "/root/Desktop2_kde4/dvbsnoop2" & options2 For Input As "dvbsnoopcMap"
-  Wait 0.1
-  dvbsnoop = Shell "/root/Desktop2_kde4/dvbsnoop1" & options For Input As "dvbsnoop"
-
-End
-
 
 
 Public Sub Stopit()

xt7-player-mpv-0.14.384.tar.gz/.src/Form/AudioForm.class -> xt7-player-mpv-0.16.384.tar.gz/.src/Form/AudioForm.class Changed

@@ -1,13 +1,48 @@
 ' Gambas class file
 
 
-Public CoverSize As Integer = 160
+Public CoverSize As Integer = 180
 Public CSTEP As Integer = 8
 
-Public Sub UpdateLength(length As String)
+
+Public Sub init()
+
+  GridUp.columns.count = 2
+  GridUp.rows.count = 6
+  GridUp[0, 0].text = ("Artist")
+  GridUp[1, 0].text = ("Album")
+  GridUp[2, 0].text = ("Year")
+  GridUp[3, 0].text = ("Title")
+  GridUp[4, 0].text = ("Comment")
+  GridUp[5, 0].text = ("Lyrics")
+  GridUp[5, 1].picture = Picture["icon:/22/microphone"]
+  GridUp.Columns[0].w = -1
+  GridUp.Columns[1].w = -1
+  
+  GridDown.columns.count = 2
+  GridDown.rows.count = 5
+  GridDown[0, 0].text = ("Radio")
+  GridDown[1, 0].text = ("Name")
+  GridDown[2, 0].text = ("Length")
+  GridDown[3, 0].text = ("Size")
+  GridDown[4, 0].text = ("Audio Info")
   
-  Label19.text = length
+  GridDown.Columns[0].w = -1
+  GridDown.Columns[1].w = -1
   
+  coversize = CInt(audioform.gridup.Rows[0].Height * GridUp.Rows.Count * 1.2)
+  coverpanel.w = coversize
+  CoverBox.h = CoverBox.w 
+  
+  MakeGridShadow(audioform.gridupShadow, GridUp)
+  MakeGridShadow(audioform.griddownShadow, GridDown)
+End
+
+
+
+
+Public Sub UpdateLength(length As String)
+  audioform.UpdateCell(audioform.griddown, 2, 1, length)
 End
 
 Public Sub AudioAreaGroup_Drop()
@@ -33,9 +68,7 @@
 End
 
 Public Sub AudioAreaGroup_MouseUp()
-  
   FMain.VideoAreaGroup_MouseUp()
-  
 End
 
 Public Sub AudioAreaGroup_MouseWheel()
@@ -114,27 +147,10 @@
 End
 
 Public Sub cutstrings()
-  audioform.RadioLabel.text = cutstring(audioform.RadioLabel.text, 50)
+  Audioform.UpdateCell(audioform.griddown, 0, 1, cutstring(audioform.GridDown[0, 1].text, 50))
 End
 
 
-Public Sub Form_Open()
-
-  
-
-End
-
-Public Sub AudioAreaGroup_MouseMove()
-
-  FMain.VideoAreaGroup_MouseMove()
-
-End
-
-'mpv 0.11 removed af_export filter :(
-' Public Sub BarBox_MouseDown()
-'   Try FMain.mymeters.nextvis()
-' End
-
 Public Sub PictureBox2_Enter()
   
 End
@@ -155,3 +171,235 @@
 Public Sub Label17_MouseDown()
   PictureBox2_MouseDown()
 End
+
+
+
+
+Public Sub AudioAreaGroup_Arrange()
+Dim w As Integer = Last.w
+  If Last = audiopanel Then
+    If GridDown[0, 1].text = "" Then 
+      GridDown.Rows[0].h = 0
+        Else
+      GridDown.Rows[0].h = Griddown.Rows.H
+    Endif
+  
+    pictureback.lower
+    If Left(GeneralOptions.NoParseVisType2.text) = 0 Then
+      picturebox1.Background = Color.Transparent
+      pictureback.Move(0, 0, audiopanel.w, AudioPanel.h)
+        Else
+      picturebox1.Background = Color.black
+      pictureback.Move(0, 0, audiopanel.w, AudioPanel.h - picturebox1.h)
+    Endif
+    Return
+  Endif
+  
+  If Last = gridup Then 
+    MakeGridShadow(audioform.gridupShadow, GridUp)
+    Return
+  Endif
+  If Last = griddown Then 
+    MakeGridShadow(audioform.griddownShadow, GridDown)
+    Return
+  Endif
+  
+
+
+End
+
+Private Sub antiglitch(color_mean As Integer)
+  FMain.outerbox.background = Color_mean
+  audiopanel.background = Color_mean
+  pictureback.Background = color_mean
+End
+
+
+'Public Color_mean As Integer
+
+
+Public Sub AudioAreaGroup_MouseMove()
+'   Dim pw As Integer
+'   pw = gridup.w
+' FMain.outerbox.background = Color_mean
+' audiopanel.background = Color_mean
+' pictureback.Background = color_mean
+'   gridup.w = 30
+'   'Gridupshadow.hide
+'   Wait 
+'   gridup.w = pw
+'  ' pictureback.hide
+  FMain.VideoAreaGroup_MouseMove()
+End
+
+Public Sub ShowBackground(Optional i As Image = Null)
+  Dim blurred As Image
+  Dim gradient As Image
+  Dim t As Image
+  Dim pw, ph, cw, ch As Integer
+  Dim max_light As Integer = 150 'normalize bright images to this value
+  Dim max_light_down As Integer = 75 'normalize bright images to this value
+  Dim mean As Integer
+  Dim backcolorimg As Image
+  
+  pictureback.lower
+  pictureback.background = Color.black
+  
+  gradient = Image.Load("shadeaudiopanel.png") '.Mirror(False, True)
+  
+  'take the background from the current cover
+  If i = Null Then 
+    blurred = CoverBox.Picture.Image
+      Else
+    blurred = i
+  Endif
+  
+  'get a good blur effect without using gb.image.effects by resizing the image multiple times.
+  'it works!
+  blurred = blurred.Stretch(10, 10)
+  blurred = blurred.Stretch(5, 5)
+  blurred = blurred.Stretch(10, 10)
+  blurred = blurred.Stretch(5, 5)
+  blurred = blurred.Stretch(10, 10)
+  blurred = blurred.Stretch(5, 5)
+  
+                                              
+
+  blurred = blurred.Stretch(gradient.w, gradient.h)
+  
+  'normalize brightness
+  mean = c_mean(blurred)
+  If mean > max_light Then
+    blurred = blurred.Brightness(- (1 - (max_light / mean)))
+  Endif
+  
+  'compose the alpha mask gradient over the blurred image  
+   blurred.PaintImage(gradient, 0, 0)
+

xt7-player-mpv-0.14.384.tar.gz/.src/Form/AudioForm.form -> xt7-player-mpv-0.16.384.tar.gz/.src/Form/AudioForm.form Changed

@@ -5,384 +5,119 @@
   #Scaled = False
   Font = Font["1"]
   Arrangement = Arrange.Fill
-  { AudioPanel VBox AudioAreaGroup
+  { AudioPanel VBox audioareagroup
     Name = "AudioPanel"
-    Move(-7,-7,630,504)
-    Font = Font["1"]
+    Move(7,28,672,420)
     Background = &H000000&
     Tracking = True
-    Drop = True
     Expand = True
-    { HBox10 HBox AudioAreaGroup
-      Name = "HBox10"
-      Move(119,0,273,28)
+    { HBox1 HBox audioareagroup
+      Name = "HBox1"
+      Move(203,7,161,14)
       Tracking = True
-      Drop = True
       Expand = True
     }
-    { HBox7 HBox AudioAreaGroup
-      Name = "HBox7"
-      Move(21,21,588,392)
-      Font = Font["1"]
+    { Label1 Label VideoAreaGroup
+      Name = "Label1"
+      Move(28,28,161,28)
+      Visible = False
+      Font = Font["Bold,Italic,17"]
+      Foreground = &HFFFF00&
+      Text = ("Media Info ")
+    }
+    { GridUpBox HBox audioareagroup
+      Name = "GridUpBox"
+      Move(21,63,651,119)
       Tracking = True
-      Drop = True
-      { VBox7 VBox AudioAreaGroup
-        Name = "VBox7"
-        Move(7,77,21,182)
-        Background = &H000000&
+      AutoResize = True
+      Spacing = True
+      { LeftAlignUp VBox audioareagroup
+        Name = "LeftAlignUp"
+        Move(7,21,14,77)
         Tracking = True
-        Expand = True
       }
-      { VBox5 VBox AudioAreaGroup
-        Name = "VBox5"
-        Move(42,7,490,378)
-        Font = Font["Bitstream Vera Sans,1"]
-        Background = &H000000&
-        Tracking = True
-        Drop = True
-        { HBox3 HBox AudioAreaGroup
-          Name = "HBox3"
-          Move(70,7,308,14)
+      { CoverPanel Panel
+        Move(35,21,126,77)
+        { CoverBox PictureBox
+          Move(0,0,28,28)
           Font = Font["1"]
+          Foreground = Color.SelectedBackground
           Tracking = True
-          Expand = True
-        }
-        { HBox2 HBox AudioAreaGroup
-          Name = "HBox2"
-          Move(42,14,434,203)
-          Font = Font["Bitstream Vera Sans,1"]
-          Background = &H000000&
-          Tracking = True
-          Margin = True
-          { TimerZoomIn #Timer
-            Delay = 23
-          }
-          { BarBox HBox
-            Move(7,56,49,133)
-            Tracking = True
-          }
-          { Panel1 Panel AudioAreaGroup
-            Name = "Panel1"
-            Move(63,0,161,203)
-            Font = Font["Bitstream Vera Sans,1"]
-            Background = &H000000&
-            Tracking = True
-            Drop = True
-            Spacing = True
-            Margin = True
-            Padding = 8
-            { Label1 Label VideoAreaGroup
-              Name = "Label1"
-              Move(0,0,161,28)
-              Font = Font["Bold,Italic,17"]
-              Foreground = &HFFFF00&
-              Text = ("Media Info ")
-            }
-            { HBox8 HBox
-              Move(168,189,119,21)
-              Font = Font["1"]
-            }
-            { CoverBox PictureBox
-              Move(0,28,28,28)
-              Font = Font["1"]
-              Background = &H000000&
-              Foreground = Color.SelectedBackground
-              Tracking = True
-              Picture = Picture["emptycover.png"]
-              Stretch = True
-              Alignment = Align.Center
-            }
-            { TimerZoomOut #Timer
-              #Move(49,56)
-              Delay = 30
-            }
-          }
-          { VBox1 VBox AudioAreaGroup
-            Name = "VBox1"
-            Move(231,14,133,182)
-            Background = &H000000&
-            Tracking = True
-            Drop = True
-            AutoResize = True
-            Margin = True
-            Padding = 8
-            { HBox4 HBox AudioAreaGroup
-              Name = "HBox4"
-              Move(14,0,98,21)
-              Tracking = True
-              Expand = True
-            }
-            { Label2 Label AudioAreaGroup
-              Name = "Label2"
-              Move(14,14,98,28)
-              Font = Font["Bold,12"]
-              Background = &H000000&
-              Foreground = &HFFFFFF&
-              Tracking = True
-              AutoResize = True
-              Text = ("Artist")
-            }
-            { Label3 Label AudioAreaGroup
-              Name = "Label3"
-              Move(14,35,98,28)
-              Font = Font["Bold,12"]
-              Background = &H000000&
-              Foreground = &HFFFFFF&
-              Tracking = True
-              AutoResize = True
-              Text = ("Album")
-            }
-            { Label4 Label AudioAreaGroup
-              Name = "Label4"
-              Move(14,56,98,28)
-              Font = Font["Bold,12"]
-              Background = &H000000&
-              Foreground = &HFFFFFF&
-              Tracking = True
-              AutoResize = True
-              Text = ("Year")
-            }
-            { Label5 Label AudioAreaGroup
-              Name = "Label5"
-              Move(14,77,98,28)
-              Font = Font["Bold,12"]
-              Background = &H000000&
-              Foreground = &HFFFFFF&
-              Tracking = True
-              AutoResize = True
-              Text = ("Title")
-            }
-            { Label6 Label AudioAreaGroup
-              Name = "Label6"
-              Move(14,98,98,28)
-              Font = Font["Bold,12"]
-              Background = &H000000&
-              Foreground = &HFFFFFF&
-              Tracking = True
-              AutoResize = True
-              Text = ("Comment")
-            }
-            { HBox11 HBox AudioAreaGroup
-              Name = "HBox11"
-              Move(7,119,98,21)
-              Tracking = True
-              Expand = True
-            }
-            { Label17 Label
-              Move(7,147,98,28)
-              Font = Font["Bold,12"]
-              Background = &H000000&
-              Foreground = &HFFFFFF&
-              Tracking = True
-              AutoResize = True

xt7-player-mpv-0.14.384.tar.gz/.src/Form/CoverManager.class -> xt7-player-mpv-0.16.384.tar.gz/.src/Form/CoverManager.class Changed

@@ -317,7 +317,7 @@
 
 Public Sub Form_Open()
   Global.Center(Fmain, Me)
-  Try hsplit1.Layout = [160, hsplit1.w - 160]
+  Try hsplit1.Layout = [AudioForm.coversize, hsplit1.w - audioform.coversize]
   CoverManager.Show
   combobox1.readonly = True
   combobox1.index = 0
@@ -1133,6 +1133,7 @@
 
 Public Function FolderPicture(Directory As String) As String  
   Dim Files As New String[]
+  Dim afile As String
   
   Files = (Dir(Directory, "*ront*.jpg"))
   If Files.count > 0 Then Goto FILEFOUND  
@@ -1152,19 +1153,34 @@
   Files.Insert(Dir(Directory, "*ront*.BMP"))
   If Files.count > 0 Then Goto FILEFOUND
   
+  Files.Insert(Dir(Directory, "*.jpg"))
+  If Files.count > 0 Then Goto FILEFOUND
+  
   Files.Insert(Dir(Directory, "*.JPG"))
   If Files.count > 0 Then Goto FILEFOUND
+
+  Files.Insert(Dir(Directory, "*.jpeg"))
+  If Files.count > 0 Then Goto FILEFOUND
   
   Files.Insert(Dir(Directory, "*.JPEG"))
   If Files.count > 0 Then Goto FILEFOUND
+
+  Files.Insert(Dir(Directory, "*.png"))
+  If Files.count > 0 Then Goto FILEFOUND
   
   Files.Insert(Dir(Directory, "*.PNG"))
   If Files.count > 0 Then Goto FILEFOUND
+
+  Files.Insert(Dir(Directory, "*.bmp"))
+  If Files.count > 0 Then Goto FILEFOUND
   
   Files.Insert(Dir(Directory, "*.BMP"))
 
   FILEFOUND:
-  If Files.count > 0 Then 
+  If Files.count > 0 Then
+    For Each afile In files
+      If Not (afile Like ".*") Then Return afile
+    Next
     Return Files[0]
       Else
     Return ""
@@ -1317,6 +1333,8 @@
   shadowimg = shadowimg.Stretch(w + ShadowOffset, h + ShadowOffset)
 End
 
+
+
 Public Function Shadowed(src As Picture) As Image
   Dim offset As Integer = 0
   Dim w As Integer = src.w
@@ -1333,9 +1351,9 @@
 Public Function keepaspect(img As Image, width As Integer) As Picture
   Dim aspect As Float = img.w / img.h
   If aspect >= 1 Then 
-    Return cornice(img.Stretch(width, CInt(width / aspect)), 160, 160)
+    Return cornice(img.Stretch(width, CInt(width / aspect)), AudioForm.coversize, AudioForm.coversize)
       Else
-    Return cornice(img.Stretch(CInt(width * aspect), width), 160, 160)
+    Return cornice(img.Stretch(CInt(width * aspect), width), AudioForm.coversize, AudioForm.coversize)
   Endif
 End

xt7-player-mpv-0.14.384.tar.gz/.src/Form/FMain.class -> xt7-player-mpv-0.16.384.tar.gz/.src/Form/FMain.class Changed

@@ -488,8 +488,14 @@
   'kill prevoiusly launched xbindkeys
   Shell ("killall " & global.CustomBindKeys) For Read
   Application.ShowTooltips = GeneralOptions.ToolTipsCHK.value
-  'Prepare our xbindkeys link, we'll need it to ensure only one at time.
-  Shell ("ln -s $(which xbindkeys) " & global.confpath & "/Xt7BindKeys") For Read
+  
+  If global.Which("xbindkeys") Then
+    'Prepare our xbindkeys link, we'll need it to ensure only one at time.
+    Shell ("ln -s $(which xbindkeys) " & global.confpath & "/" & global.CustomBindKeys) For Read
+      Else
+    global.myDebug("xbindkeys doesn't seem to be installed")
+  Endif
+
   'start to listen for remote commands, one connection is ok.
   Mysocket.type = Net.Unix
   Mysocket.path = global.confpath & "/.localsocket"
@@ -538,7 +544,7 @@
   
   timer_runtime_infos = New Timer As "timer_runtime_infos"
   timer_runtime_infos.enabled = False
-  
+
 End
 
 Private Sub MakeProfileMenu()
@@ -557,6 +563,24 @@
   
 End
 
+Public Function get_history_leftoff_time(fullpath As String) As String
+  Dim history, entry As String
+  Dim historyarray As String[]
+  Dim sep As String = Chr(8)
+  Try history = file.Load(global.Historyfile)
+  If Error Then Return 0
+  historyarray = Split(history, "\n", "", True)
+  For Each entry In historyarray
+    If entry Like fullpath & "*" & sep & "*" Then
+      Try Return Split(entry, sep, "", True, "")[1]
+      Return "0"
+    Endif
+  Next
+End
+
+
+
+
 Private RecentFileEntry As Menu
 
 Private HaveToPlay As String = ""
@@ -575,10 +599,11 @@
   ClearRecentFilesSub()
   historyarray = Split(history, "\n", "", True)
   historyarray.Reverse()
+
   For Each entry In historyarray
     RecentFileEntry = New Menu(MenuOpenRecent) As "RecentFileEntry"
     RecentFileEntry.name = Timer & Rnd(0, 10000)
-    If entry Like "*" & sep & "*" Then 
+    If entry Like "*" & sep & "*" & "leftoff" Then 
       If HaveToPlay = "" Then
         Try HaveToPlay = Split(entry, sep, "", True, "")[0]
         If Not Error Then 
@@ -612,6 +637,7 @@
   Endif
 End
 
+
 Public Sub RecentFileEntry_Click()
 
   Try Play(Last.caption)
@@ -897,30 +923,32 @@
   Endif
 
   ArrangeCpl(9)
+  audioform.audiopanel.font = GeneralOptions.FontChooseBTN2.font
 
+  audioform.audiopanel.Foreground = GeneralOptions.ColorChooseBTN2.Background
   If audioform.AudioPanel.parent = Rightsidepanel Then
     If (Not mplayer.ProcessRunningOvr()) Then ShowAudioPanel(False) 
     SetSubControlsStyles(Fmain)
-    For Each TheObject In Audioform.controls
-      If theobject Is Label Then
-        Try TheObject.font = GeneralOptions.FontChooseBTN2.font
-        Try TheObject.Foreground = GeneralOptions.ColorChooseBTN2.Background
-      Endif
-    Next 'TheForm
+    ' For Each TheObject In Audioform.controls
+    '   If theobject Is Label Then
+    '     Try TheObject.font = GeneralOptions.FontChooseBTN2.font
+    '     Try TheObject.Foreground = GeneralOptions.ColorChooseBTN2.Background
+    '   Endif
+    ' Next 'TheForm
     ShowAudioPanel(True)
   Else
     SetSubControlsStyles(Fmain)
-    For Each TheObject In Audioform.controls
-      If theobject Is Label Then
-        Try TheObject.font = GeneralOptions.FontChooseBTN2.font
-        Try TheObject.foreground = GeneralOptions.ColorChooseBTN2.Background
-      Endif
-    Next 'TheForm
+    ' For Each TheObject In Audioform.controls
+    '   If theobject Is Label Then
+    '     Try TheObject.font = GeneralOptions.FontChooseBTN2.font
+    '     Try TheObject.foreground = GeneralOptions.ColorChooseBTN2.Background
+    '   Endif
+    ' Next 'TheForm
   Endif
 
   audioform.Label1.Foreground = &HFFFF00&
   audioform.Label1.Font.Italic = True
-  Audioform.Label1.Font.size = Audioform.Label2.Font.size + 4
+  Audioform.Label1.Font.size = Audioform.audiopanel.Font.size + 4
   fmain.Statusbar1.Foreground = &HF0F0F0&
   fmain.Statusbar1.Background = &000000&
   
@@ -1012,7 +1040,7 @@
     progressframe.background = Color.rgb(0, 0, 0, 210)
     progressframe.tag = True
   Endif
-
+  audioform.init()
   'progressframe.background = Color.SetAlpha(Color.Darker(Color.Darker(Color.SelectedBackground)), 200)
   Initprogress()
 End
@@ -1314,39 +1342,66 @@
   
   'init pretty panel too
   If GeneralOptions.CoverCHK2.value Then
-    audioform.label12.text = PropertiesGrid[6, 1].text
-    audioform.label13.text = PropertiesGrid[5, 1].text
-    audioform.label14.text = PropertiesGrid[8, 1].text
-    audioform.label15.text = PropertiesGrid[7, 1].text
-    audioform.label16.text = PropertiesGrid[11, 1].text
+    audioform.UpdateCell(audioform.gridup, 0, 1, PropertiesGrid[6, 1].text)
+    audioform.UpdateCell(audioform.gridup, 1, 1, PropertiesGrid[5, 1].text)
+    audioform.UpdateCell(audioform.gridup, 2, 1, PropertiesGrid[8, 1].text)
+    audioform.UpdateCell(audioform.gridup, 3, 1, PropertiesGrid[7, 1].text)
+    audioform.UpdateCell(audioform.gridup, 4, 1, PropertiesGrid[11, 1].text)
+    
     'commented out the very next because this will be filled by mpv when the name property changes.
     'audioform.label18.text = PropertiesGrid[1, 1].text
     
     'audioform.label19.text = PropertiesGrid[3, 1].text
     If Trim(PropertiesGrid[2, 1].text) <> "" Then 
-      audioform.label20.text = PropertiesGrid[2, 1].text & "KB"
+      audioform.UpdateCell(audioform.griddown, 3, 1, PropertiesGrid[2, 1].text & "KB")
     Else
-      audioform.label20.text = ("Unknown")
+      audioform.UpdateCell(audioform.griddown, 3, 1, ("Unknown"))
     Endif
     Try audio_codec = Split(Trim(PropertiesGrid[14, 1].text), " ", "", True)[0]
-    If audio_codec <> "" Then audioform.label21.text = audio_codec
-    If (Trim(PropertiesGrid[15, 1].text) <> "") Then audioform.label21.text &= "@" & PropertiesGrid[15, 1].text
-    If (Trim(PropertiesGrid[12, 1].text) <> "") Then audioform.label21.text &= ", " & ("Channels") & ": " & PropertiesGrid[12, 1].text
-    If (Trim(PropertiesGrid[13, 1].text) <> "") Then audioform.label21.text &= ", " & ("Rate") & ": " & PropertiesGrid[13, 1].text & "Hz"
+    If audio_codec <> "" Then audioform.UpdateCell(audioform.griddown, 4, 1, audio_codec)
+    If (Trim(PropertiesGrid[15, 1].text) <> "") Then audioform.UpdateCell(audioform.griddown, 4, 1, audioform.griddown[4, 1].text & "@" & PropertiesGrid[15, 1].text)
+    If (Trim(PropertiesGrid[12, 1].text) <> "") Then audioform.UpdateCell(audioform.griddown, 4, 1, audioform.griddown[4, 1].text & ", " & ("Channels") & ": " & PropertiesGrid[12, 1].text)
+    If (Trim(PropertiesGrid[13, 1].text) <> "") Then audioform.UpdateCell(audioform.griddown, 4, 1, audioform.griddown[4, 1].text & ", " & ("Rate") & ": " & PropertiesGrid[13, 1].text & "Hz")
+
   Endif
   
   If (global.IsAudioFile(mplayer.getP("fullpath"))) Or (global.IsNetworkURI(mplayer.getP("fullpath"))) Or (Lower(mplayer.getP("fullpath")) Like "cdd?://*") Then
-    AutoresizeAudioForm()
+    audioform.AutoresizeAudioForm()
   Endif
 
 End
 
+
+Public Sub mplayer_user_stopping(fullpath As String, timepos As String)
+  If Not (global.IsNetworkURI(mplayer.getP("fullpath"))) Then
+    Try addhistory(fullpath, Split(timepos, ".,")[0])
+    If Error Then 
+      global.myDebug("could not add timepos to " & fullpath)
+      addhistory(fullpath)
+    Endif
+  Endif
+End
+
 Public Sub Form_Close()
   Dim MySettings As New SettingsClass
   Dim t0 As Float = Timer()
-  
-  ButtonStop_Click()
-  
+  Dim wasrunning As Boolean = False
+  Dim fullpath, currenttime As String
+
+  Closing = True
+
+  Try wasrunning = mplayer.ProcessRunningOvr()
+  Object.Detach(mplayer)
+
+  If wasrunning Then
+    fullpath = mplayer.getP("fullpath")
+    currenttime = mplayer.CurrentTime()

xt7-player-mpv-0.14.384.tar.gz/.src/Form/FMain.form -> xt7-player-mpv-0.16.384.tar.gz/.src/Form/FMain.form Changed

xt7-player-mpv-0.14.384.tar.gz/.src/Form/GeneralOptions.class -> xt7-player-mpv-0.16.384.tar.gz/.src/Form/GeneralOptions.class Changed

@@ -84,6 +84,16 @@
   Try Optionslist.Add("User options", ("User options"), Stock["large/terminal"])
   Try Optionslist.Add("Style", ("Style"), Stock["large/color"])
   DrawFiltersGui()
+  
+  NoParseVisType2.Add("0 - Disabled")
+  NoParseVisType2.Add("1 - Waves over spectrum")
+  NoParseVisType2.Add("2 - Waves and spectrum")
+  NoParseVisType2.Add("3 - Spectrum")
+  NoParseVisType2.Add("4 - Frequencies")
+  NoParseVisType2.Add("5 - Vectorscope")
+  
+  
+  
   InitDone = True
 End
 
@@ -340,17 +350,54 @@
   If Right(pt) = "," Then pt = Left(pt, -1)
   'If pt <> "" Then myopts.Add(newopt("ad", pt))
   If pt <> "" Then myopts.Add(newopt("audio-spdif", pt))
-  
   Return myopts.Insert(parse_custom_options())
 
 End
 
+Public Function Visualization_opts() As MpvOption[]
+  Dim myopts As New MpvOption[]
+  Dim visstring As String
+  Dim t1 As String
+
+  t1 = Temp()
+  Select Case Left(NoParseVisType2.text)
+    Case "1"
+      visstring = "'[aid1]asplit=3 [azero][auno][ao];[azero]showspectrum=mode=separate:color=intensity:slide=scroll:s=4x512:color=intensity:win_func=blackman:mode=combined:saturation=1,crop=h=(in_h/1.5):y=in_h,scale=h=512:w=512:force_original_aspect_ratio=disable[spectrum];[auno]showwaves=s=512x512:mode=line:r=20,crop=h=(ih/2):y=(0),crop=h=(ih/2):y=ih,colorlevels=romax=0.5[waves];[spectrum][waves]overlay[vo]'"
+    Case "2"
+      visstring = "'[aid1]asplit=3 [azero][auno][ao];[azero]showspectrum=mode=separate:color=intensity:slide=scroll:s=4x512:color=intensity:win_func=blackman:mode=combined:saturation=1,crop=h=(in_h/1.5):y=in_h,scale=h=512:w=512:force_original_aspect_ratio=disable[spectrum];[auno]showwaves=s=512x512:mode=line:r=20,crop=h=(in_h):y=(in_h/2),colorlevels=romax=0.5,colorkey=0x000000:0.1:0.5[waves];[spectrum][waves]overlay[vo]'"
+    Case "3"
+      Copy "shade_alpha.png" To t1
+      visstring = "'[aid1]asplit [a][ao];[a]showspectrum=mode=separate:color=intensity:slide=scroll:s=4x256:color=intensity:win_func=blackman:mode=combined:saturation=1,crop=h=(in_h/1.5):y=in_h[spectrum];movie=" & t1 & ",scale=h=(in_h/1.5)[pic];[spectrum][pic]overlay[vo]'"
+    Case "4"
+      Copy "black.png" To t1
+      visstring = "'[aid1]asplit=3[ao][a1][a2];[a1]showfreqs=s=512x256:mode=bar:colors=#eeeeee|#4d4d4d:averaging=0.6[freqs];movie=" & t1 & ",scale=512x256[pic];[a2]adrawgraph=bg=#00000000:size=512x256[blank];[blank][pic]overlay[back];[back][freqs]overlay[vo]'"
+      'visstring = "'[aid1]asplit=3[ao][a1][a2];[a1]showfreqs=s=512x256:mode=bar:colors=#00bbff|#0088ff:averaging=0.6[freqs];movie=" & t1 & ",scale=512x256[pic];[a2]adrawgraph=bg=#00000000:size=512x256[blank];[blank][pic]overlay[back];[back][freqs]overlay[vo]'"
+    Case "5"
+      Copy "black.png" To t1
+      visstring = "'[aid1]asplit=3[a1][a2][ao]; [a2]adrawgraph=bg=#00000000:size=256x256[blank];movie=" & t1 & ",scale=256x256[pic];[blank][pic]overlay[back];[a1]avectorscope=size=256x256[sp];[back][sp]overlay[vo]'"
+  End Select
+  If visstring <> "" Then
+    myopts.Add(newopt("keepaspect", "no"))
+    myopts.Add(newopt("lavfi-complex", visstring))
+  Endif
+  Return myopts
+End
+
+
+
 Public Sub ApplyBTN_Click()
+
+Debug NoParse55ab.visible
+
   FMain.Apply
   Wait 0.1
   'IF ((NOT FMain.mplayer.ProcessRunningOvr()) OR (Fmain.mplayer.paused)) OR (GeneralOptions.Tabstrip1.caption = ("Style")) THEN 'apply style changes only if mplayer is not running.
     FMain.SetStyle_early()
     FMain.SetStyle_later()
+    AudioForm.init()
+    AudioForm.CoverPanel.Resize(AudioForm.CoverSize, AudioForm.coversize)
+    AudioForm.CoverBox.Resize(AudioForm.CoverSize, AudioForm.coversize)
+    
     Fmain.UpdateSearchResults(Fmain.mylibrary, Fmain.Librarygrid, fmain.fullyloaded, fmain.Searchfield.text)
     Fmain.UpdateSearchResults(Fmain.myplaylist, Fmain.PlaylistGrid, fmain.fullyloaded, fmain.SearchfieldPLS.text)
     global.AddUserExtensions(KnownExtensions.text)
@@ -834,12 +881,12 @@
 Public Sub Form_Show()
  'mpv 0.11 removed af_export filter :(
   '8 5 42 40 43
-  noparse8.visible = False
-  noparse5.visible = True
-  noparse42.visible = False
-  noparse40.visible = False
-  noparse43.visible = False
-  noparse55.visible = False
+  ' NoParse8a.visible = False
+  ' noparse5.visible = True
+  ' noparse42.visible = False
+  ' noparse40.visible = False
+  ' noparse43.visible = False
+  ' NoParse55ab.visible = False
   
   FillCdAndDvdDevices()
   If Not aligned Then
@@ -886,12 +933,12 @@
 End
 
  'mpv 0.11 removed af_export filter :(
-' Public Sub ShowVmeterCHK_Click()
-'   noparse42.enabled = Last.value
-'   noparse40.enabled = Last.value
-'   noparse43.enabled = Last.value
-'   NoParseVisType.enabled = Last.value
-' End
+ ' Public Sub ShowVmeterCHK2_Click()
+ '   noparse42.enabled = Last.value
+ '   noparse40.enabled = Last.value
+ '   noparse43.enabled = Last.value
+ '   NoParseVisType2.enabled = Last.value
+ ' End

xt7-player-mpv-0.14.384.tar.gz/.src/Form/GeneralOptions.form -> xt7-player-mpv-0.16.384.tar.gz/.src/Form/GeneralOptions.form Changed

@@ -1,7 +1,7 @@
 # Gambas Form File 3.0
 
 { Form Form
-  MoveScaled(0,0,113,85.8)
+  MoveScaled(0,0,113,85.8571)
   Tag = "12"
   Text = ("General options")
   Icon = Picture["icon:/16/options"]
@@ -93,13 +93,13 @@
           Alignment = Align.TopLeft
         }
         { NoParseBox123 Panel
-          MoveScaled(2,16,47,4.6)
+          MoveScaled(2,16,47,4.5714)
           ToolTip = ("Select the preferred hardware decoding method.\n(decode api + video output driver)\n\nCaveats that applies to anything but \"no\" and \"vaapi-copy\"\n- Any video driver in the chains window is overriden\n- Use of video filters will disable hardware decoding")
           Arrangement = Arrange.Horizontal
           Spacing = True
           Indent = True
           { PictureBox3 PictureBox
-            MoveScaled(1,1,4.6,4.6)
+            MoveScaled(1,1,4.5714,4.5714)
             Picture = Picture["icon:/large/hardware"]
             AutoResize = True
           }
@@ -109,7 +109,7 @@
             ToolTip = "Select the preferred hardware decoding method.\n(decode api + video output driver)\n\nCaveats that applies to anithing but \"no\" and \"vaapi-copy\"\n- Any video driver in the chains window is overriden\n- Use of video filters will disable hardware decoding"
             Expand = True
             ReadOnly = True
-            List = ["no (allows all video filters and drivers)", "auto + opengl (allows only gamma adjustments)", "auto + vdpau (allows equalization, but gamma)", "auto + vaapi (allows equalization, but gamma)", "vdpau + vdpau (allows equalization, but gamma)", "vdpau + opengl (allows only gamma adjustments)", "vaapi + vaapi (allows equalization, but gamma)", "vaapi + opengl (allows only gamma adjustments)", "vaapi-copy (allows all video filters and drivers - Intel only)"]
+            List = ["no (allows all video filters and drivers)", "auto + opengl (may allows only gamma adjustments)", "auto + vdpau (allows equalization, but gamma)", "auto + vaapi (allows equalization, but gamma)", "vdpau + vdpau (allows equalization, but gamma)", "vdpau + opengl (may allows only gamma adjustments)", "vaapi + vaapi (allows equalization, but gamma)", "vaapi + opengl (allows only gamma adjustments)", "vaapi-copy (allows all video filters and drivers - Intel only)"]
             Text = "0 - disabled (allow all video processing filters)"
           }
         }
@@ -119,7 +119,7 @@
           Spacing = True
           Indent = True
           { Panel5 Panel
-            MoveScaled(1,0,4.6,4.6)
+            MoveScaled(1,0,4.5714,4.5714)
           }
           { vdpauooverlaycheck CheckBox
             MoveScaled(18,0,28,3)
@@ -194,29 +194,29 @@
         Spacing = True
         Margin = True
         Padding = 6
-        { NoParse8 HBox
+        { NoParse8as HBox
           MoveScaled(0,0,50,4)
           Visible = False
-          Enabled = False
           Spacing = True
-          { ShowVmeterCHK CheckBox
-            MoveScaled(1,0,17.2,4)
-            Expand = True
+          { ShowVmeterCHK3 CheckBox
+            MoveScaled(1,0,17.1429,4)
+            Visible = False
             AutoResize = True
             Text = ("Visualization:")
           }
         }
-        { NoParse55 HBox
+        { NoParse55ab HBox
           MoveScaled(0,4,50,4)
-          Visible = False
-          Enabled = False
           Spacing = True
           Indent = True
-          { NoParseVisType ComboBox
-            MoveScaled(1,0,26,4)
+          { Label5 Label
+            MoveScaled(1,0,18,4)
+            Text = ("Visualization:")
+          }
+          { NoParseVisType2 ComboBox
+            MoveScaled(22,0,26,4)
             Expand = True
             ReadOnly = True
-            List = [("vmeters - Audio meters"), ("DFT - Spectrum analyzer")]
             Text = ("vmeters - Audio meters")
           }
         }
@@ -976,6 +976,18 @@
             Text = ("Disable Kde Effects in fullscreen mode")
           }
         }
+        { NoParse14 HBox
+          MoveScaled(1,26,48,4)
+          ToolTip = ("Player nice level.\nThe lower the value, the higher the priority\nthe player will get against other processes.")
+          Spacing = True
+          { CHKpausefullscreen CheckBox
+            MoveScaled(1,0,43,4)
+            ToolTip = ("It has been noticed that with some intel drivers when used\nwith SNA acceleration produces video tearing.\nActivating this option may help at the cost of pausing the video\nfor a while when going to fullscreen mode.")
+            AutoResize = True
+            Text = ("Pause video when going fullscreen (helps with tearing)")
+            Value = CheckBox.True
+          }
+        }
       }
       Index = 6
       Text = ("CD/DVD")
@@ -1471,7 +1483,7 @@
       Index = 10
       Text = ("Misc")
       { ScrollView3 ScrollView
-        MoveScaled(4,4,55,55)
+        MoveScaled(4,5,55,55)
         Tag = "misc"
         Expand = True
         Arrangement = Arrange.Vertical
@@ -1559,8 +1571,31 @@
         { NOPARSESEP2 Separator
           MoveScaled(1,25,46,1)
         }
+        { NoParse47 HBox
+          MoveScaled(1,26,44,4)
+          ToolTip = ("Enable/Disbale Tooltips")
+          Spacing = True
+          { RestorePlayCHK CheckBox
+            MoveScaled(1,0,41,4)
+            ToolTip = ("If you close xt7-player while playing a local file,\nxt7 will start just were you left the next time.")
+            Expand = True
+            Text = ("Start were you left")
+          }
+        }
+        { NoParse8 HBox
+          MoveScaled(1,30,44,4)
+          ToolTip = ("Enable/Disbale Tooltips")
+          Spacing = True
+          { RememberPlayTimeCHK CheckBox
+            MoveScaled(1,0,41,4)
+            ToolTip = ("This will cause xt7 to restore the playback\ntime position of any recently played file.")
+            Expand = True
+            Text = ("Restore playback time position")
+            Value = CheckBox.True
+          }
+        }
         { NoParse6 HBox
-          MoveScaled(1,27,44,4)
+          MoveScaled(1,34,44,4)
           ToolTip = ("Enable/Disbale Tooltips")
           Spacing = True
           { ToolTipsCHK CheckBox
@@ -1571,7 +1606,7 @@
           }
         }
         { NoParse46 HBox
-          MoveScaled(1,31,44,4)
+          MoveScaled(1,38,44,4)
           ToolTip = ("Enable this if you want xt7 to be controlled through an mpris2 compliant client.\n")
           Spacing = True
           { ToolTipsCHKDBUS CheckBox
@@ -1588,19 +1623,8 @@
             Alignment = Align.Right
           }
         }
-        { NoParse47 HBox
-          MoveScaled(1,36,44,4)
-          ToolTip = ("Enable/Disbale Tooltips")
-          Spacing = True
-          { RestorePlayCHK CheckBox
-            MoveScaled(1,0,41,4)
-            ToolTip = ("If you close xt7-player while playing a local file,\nxt7 will start just were you left the next time.")
-            Expand = True
-            Text = ("Start were you left")
-          }
-        }
         { NoParse18 HBox
-          MoveScaled(1,40,50,4)
+          MoveScaled(1,43,50,4)
           ToolTip = ("When an audio file is played, the right panel will show\ninformations on the file played, allowing to set covers\nfor your library items.")
           Spacing = True
           { CoverCHK2 CheckBox
@@ -1612,7 +1636,7 @@
           }
         }
         { NoParse20 HBox
-          MoveScaled(1,44,50,4)
+          MoveScaled(1,47,50,4)
           ToolTip = ("Enable/Disbale the tray icon")
           Spacing = True
           { TrayCHK1 CheckBox
@@ -1626,7 +1650,7 @@
           MoveScaled(4,48,45,1)
         }
         { NoParse12 HBox
-          MoveScaled(1,49,50,4)
+          MoveScaled(1,51,50,4)
           Spacing = True
           { SaveOnExitCHK CheckBox
             MoveScaled(1,0,47,4)
@@ -1635,7 +1659,7 @@
           }
         }
         { NoParse21 HBox
-          MoveScaled(1,53,50,4)
+          MoveScaled(1,55,50,4)
           ToolTip = ("Save xt7 position and size on program exit.")

xt7-player-mpv-0.14.384.tar.gz/.src/Form/HotKeys.class -> xt7-player-mpv-0.16.384.tar.gz/.src/Form/HotKeys.class Changed

@@ -90,8 +90,8 @@
   HotKeysGrid.Rows[37].text = "add video-aspect -0.05"
   HotKeysGrid.Rows[38].text = " "
   HotKeysGrid.Rows[39].text = "set video-rotate 0"
-  HotKeysGrid.Rows[40].text = "add video-rotate +90"
-  HotKeysGrid.Rows[41].text = "add video-rotate -90"
+  HotKeysGrid.Rows[40].text = "cycle-values video-rotate 90 180 270 0"
+  HotKeysGrid.Rows[41].text = " "
   HotKeysGrid.Rows[42].text = " "
   HotKeysGrid.Rows[43].text = "contrast +1"
   HotKeysGrid.Rows[44].text = "contrast -1"
@@ -388,6 +388,7 @@
   'DIM filename AS String = ProfileName & "." & "HotKeys.txt"
   Dim filename As String = ProfileName & ".profile/" & "HotKeys.txt"
   Dim filename_fs As String = ProfileName & ".profile/" & "HotKeys_fs.txt"
+  Dim filename_global_hk As String = ProfileName & ".profile/" & "HotKeys_global_enabled.txt"
   Dim globalfilename As String = ProfileName & ".profile/" & "GlobalHotKeys.txt"
   Dim xbindkeysfilename As String = ProfileName & ".profile/" & "xbindkeysrc"
   Dim HotFile As File
@@ -399,6 +400,11 @@
       Else
     File.Save(filename_fs, "FALSE")
   Endif
+  If CheckBoxEnableGlobalHotkeys.value Then
+    File.Save(filename_global_hk, "TRUE")
+      Else
+    File.Save(filename_global_hk, "FALSE")
+  Endif
 
   If Not Exist(file.Dir(filename), True) Then
     Try Mkdir File.dir(File.Dir(File.dir(File.Dir(File.Dir(filename)))))
@@ -453,18 +459,24 @@
 Public Sub LoadHotKeys(ProfileName As String)
   Dim filename As String = ProfileName & ".profile/" & "HotKeys.txt"
   Dim filename_fs As String = ProfileName & ".profile/" & "HotKeys_fs.txt"
+  Dim filename_global_hk As String = ProfileName & ".profile/" & "HotKeys_global_enabled.txt"
   Dim Globalfilename As String = ProfileName & ".profile/" & "GlobalHotKeys.txt"
   Dim xbindkeysfilename As String = ProfileName & ".profile/" & "xbindkeysrc"
   Dim HotFile As File
   Dim GlobalHotFile As File
   
   Dim C, R, w1, w2 As Integer
-  
+
   If Exist(filename_fs) Then
     Try dblclick_fs_checkbox.value = (File.Load(filename_fs) = "TRUE")
       Else
     dblclick_fs_checkbox.value = True 'default value
   Endif
+  If Exist(filename_global_hk) Then
+    Try checkboxenableglobalhotkeys.value = (File.Load(filename_global_hk) = "TRUE")
+      Else
+    checkboxenableglobalhotkeys.value = False 'default value
+  Endif
   
   
   DefaultFill()
@@ -514,12 +526,14 @@
 End
 
 Public Sub RestartXbindKeys(xbindkeysfilename As String)
-  If FMain.closing Then Return
-  global.myDebug("Hotkeys: RestartXbindKeys()")
+  If (checkboxenableglobalhotkeys.value = checkboxenableglobalhotkeys.true) Then 
+    If FMain.closing Then Return
+    global.myDebug("Hotkeys: RestartXbindKeys()")
     Try xbindkeys.Kill
     If Stat(xbindkeysfilename).Size > 0 Then
       xbindkeys = Shell Global.XbindkeysBIN & " -n -f " & xbindkeysfilename For Read As "xbindkeys"
     Endif
+  Endif
 End
 
 
@@ -615,7 +629,9 @@
   Dim GrabbedData As String
   Dim w1, w2 As Integer = 0
   Dim profilename As String
-  
+
+  If Not Last.enabled Then Return
+
   If MouseInsideGrid(GlobalHotKeysGrid) Then
     GlobalHotKeysGrid.mouse = Mouse.wait
     Try xbindkeys.Kill
@@ -628,11 +644,13 @@
     Endif
    
     'Expand the column
-    w1 = GlobalHotKeysGrid.Columns[PointedCol].width
+    Try w1 = GlobalHotKeysGrid.Columns[PointedCol].width
     ' [GB2:FNTW] w2 = GlobalHotKeysGrid.Font.TextWidth(GlobalHotKeysGrid[pointedrow, PointedCol].Text)
-    w2 = GlobalHotKeysGrid.Font.TextWidth(GlobalHotKeysGrid[pointedrow, PointedCol].Text)
-    If w1 < w2 Then
-      GlobalHotKeysGrid.Columns[PointedCol].width = w2 + 8
+    If Not Error Then
+      w2 = GlobalHotKeysGrid.Font.TextWidth(GlobalHotKeysGrid[pointedrow, PointedCol].Text)
+      If w1 < w2 Then
+        GlobalHotKeysGrid.Columns[PointedCol].width = w2 + 8
+      Endif
     Endif
   Endif
   
@@ -694,4 +712,45 @@
   GlobalHotKeysGrid.H = CInt(GlobalHotKeysGrid.Font.TextHeight("Ij|") * 1.5)
 End
 
+Public Function checkxbindkeys() As Boolean
+  If Not global.Which("xbindkeys") Then 
+    Message.Error(("Sorry, could not find xbindkeys"), "Ok")
+    Return False
+      Else
+    Return True
+  Endif
+End
+
+
+Public Sub Panel2_Arrange()
+   If Not fmain.fullyloaded Then Return
+   globalhotkeysgrid.visible = (checkboxenableglobalhotkeys.value = checkboxenableglobalhotkeys.true)
+   Wait
+   GlobalHotKeysGrid.Move(0, 0, Panel2.clientw, Panel2.clienth)
+End
 
+Public Sub CheckBoxEnableGlobalHotkeys_Click()
+  Dim profilename As String
+  Wait
+  If Not fmain.fullyloaded Then Return
+  If checkboxenableglobalhotkeys.value = CheckBox.true Then 
+    If checkxbindkeys() Then
+      globalhotkeysgrid.visible = checkxbindkeys()
+      Profilename = global.confpath & "/" & Global.CurrentProfile
+      RestartXbindKeys(ProfileName & ".profile/" & "xbindkeysrc.tmp")
+        Else
+      checkboxenableglobalhotkeys.value = CheckBox.false
+    Endif
+      Else
+    globalhotkeysgrid.visible = False
+    Try xbindkeys.Kill
+  Endif
+
+End
+
+
+Public Sub TabStrip1_Click()
+  If TabStrip1.Children[0] = CheckBoxEnableGlobalHotkeys Then
+   If checkboxenableglobalhotkeys.value = CheckBox.true Then checkxbindkeys()
+  Endif
+End

xt7-player-mpv-0.14.384.tar.gz/.src/Form/HotKeys.form -> xt7-player-mpv-0.16.384.tar.gz/.src/Form/HotKeys.form Changed

xt7-player-mpv-0.14.384.tar.gz/.src/Form/NewChains.class -> xt7-player-mpv-0.16.384.tar.gz/.src/Form/NewChains.class Changed

@@ -35,7 +35,7 @@
 Private Sub Init_filters_audio()
   Dim filters_audio_list As New String[]
   Dim filter As String
-  filters_audio_list = ["equalizer", "earwax", "scaletempo", "dynaudnorm", "volume"]
+  filters_audio_list = ["equalizer", "earwax", "extrastereo", "scaletempo", "alimiter", "dynaudnorm", "volume"]
   filters_audio_list.insert(["CustomAudio1", "CustomAudio2", "CustomAudio3", "lavcac3enc"])
   For Each filter In filters_audio_list
     If filter = "scaletempo" Then 
@@ -324,11 +324,7 @@
   ladspacompiledin = FMain.mplayer.supportsladspa()
 
 
-  ' 'extrastereo[=mul]
-  ' AllParams.Add(["TITLE", "- Adds live effect to playback -", "ExtraStereo0", ""])
-  ' AllParams.add(["RANGEFLOAT", ("Amount"), "0", "2.25", "10", "ExtraStereo1", ""])
-  ' Global.DrawGui(AllParams, "extrastereo", aTabstrip, NotSwitchable)
-  ' AllParams.Clear
+
 
 
   'lavcac3enc
@@ -377,6 +373,25 @@
     AllParams.Clear
     
 
+  'extrastereo lavfi
+  AllParams.Add(["TITLE", "- Adds live effect to playback - (ffmpeg >=3.0 only)", "ExtraStereo0", ""])
+  AllParams.add(["RANGEFLOAT", ("Amount"), "0", "2.25", "10", "ExtraStereo1", ""])
+  Global.DrawGui(AllParams, "extrastereo", aTabstrip, NotSwitchable,,, "lavfi")
+  AllParams.Clear
+
+  ' 'alimiter lavfi
+  AllParams.Add(["TITLE", "Keep input signal under a desired threshold - (ffmpeg >=3.0 only)", "alimiter0", ""])
+  AllParams.add(["RANGEFLOAT", "Input gain", "0.1", "2", "64", "alimiter1", ""])
+  AllParams.add(["RANGEFLOAT", "output gain", "0.1", "1", "64", "alimiter2", ""])
+  AllParams.add(["RANGEFLOAT", "limit", "0.1", "1", "1", "alimiter3", ""]) 
+  AllParams.add(["RANGE", "attack", "1", "5", "80", "alimiter4", ""]) 
+  AllParams.add(["RANGE", "release", "1", "2000", "8000", "alimiter5", ""]) 
+  AllParams.Add(["TIP", ("This filter is a good volume normalizer"), "alimiter6", ""])
+  Global.DrawGui(AllParams, "alimiter", aTabstrip, False,,, "lavfi")
+  AllParams.Clear
+
+
+
 
   'Dynaudnorm lavfi
   'Syntax for TheParameters is:["SUBLABEL", caption(SubFilterName), TextLabel name ,comment]
@@ -621,7 +636,7 @@
   'stereo3d=[in:out]
   AllParams.Add(["TITLE", "- Converts betweed stereoscopic image formats - ", "stereo3d0", ""])
   AllParams.Add(["CHOOSE", ("Input format"), ("sbsl - side by side parallel (left eye left, right eye right)"), ("sbsr - side by side crosseye (right eye left, left eye right)"), ("abl - above-below (left eye above, right eye below)"), ("abr - above-below (right eye above, left eye below)"), ("ab2l - above-below with half height resolution (left eye above, right eye below)"), ("ab2r - above-below with half height resolution (right eye above, left eye below)"), "stereo3d1", ""])
-  AllParams.add(["CHOOSE", ("Output format"), ("arcg - anaglyph red/cyan gray (red filter on left eye, cyan filter on right eye)"), ("arch - anaglyph red/cyan half colored (red filter on left eye, cyan filter on right eye)"), ("arcc - anaglyph red/cyan color (red filter on left eye, cyan filter on right eye)"), ("arcd - anaglyph red/cyan color optimized with the least squares projection of dubois (red filter on left eye, cyan filter on right eye)"), ("agmg - anaglyph green/magenta gray (green filter on left eye, magenta filter on right eye)"), ("agmh - anaglyph green/magenta half colored (green filter on left eye, magenta filter on right eye)"), ("agmc - anaglyph green/magenta colored (green filter on left eye, magenta filter on right eye)"), ("aybg - anaglyph yellow/blue gray (yellow filter on left eye, blue filter on right eye)"), ("aybh - anaglyph yellow/blue half colored (yellow filter on left eye, blue filter on right eye)"), ("aybc - anaglyph yellow/blue colored (yellow filter on left eye, blue filter on right eye)"), ("irl - Interleaved rows (left eye has top row, right eye starts on next row)"), ("irr - Interleaved rows (right eye has top row, left eye starts on next row)"), ("ml - mono output (left eye only)"), ("mr - mono output (right eye only)"), "stereo3d2", ""])  
+  AllParams.add(["CHOOSE", ("Output format"), ("arcg - anaglyph red/cyan gray (red filter on left eye, cyan filter on right eye)"), ("arch - anaglyph red/cyan half colored (red filter on left eye, cyan filter on right eye)"), ("arcc - anaglyph red/cyan color (red filter on left eye, cyan filter on right eye)"), ("arcd - anaglyph red/cyan color optimized with the least squares projection of dubois (red filter on left eye, cyan filter on right eye)"), ("agmg - anaglyph green/magenta gray (green filter on left eye, magenta filter on right eye)"), ("agmh - anaglyph green/magenta half colored (green filter on left eye, magenta filter on right eye)"), ("agmc - anaglyph green/magenta colored (green filter on left eye, magenta filter on right eye)"), ("aybg - anaglyph yellow/blue gray (yellow filter on left eye, blue filter on right eye)"), ("aybh - anaglyph yellow/blue half colored (yellow filter on left eye, blue filter on right eye)"), ("aybc - anaglyph yellow/blue colored (yellow filter on left eye, blue filter on right eye)"), ("irl - Interleaved rows (left eye has top row, right eye starts on next row)"), ("irr - Interleaved rows (right eye has top row, left eye starts on next row)"), ("ml - mono output (left eye only)"), ("mr - mono output (right eye only)"), ("al - alternating mode, left first"), ("ar - alternating mode, right first"), "stereo3d2", ""])  
   Global.DrawGui(AllParams, "stereo3d", aTabstrip, NotSwitchable)
   AllParams.Clear
 End
@@ -1571,9 +1586,9 @@
   aTabstrip.index = tab_index_old
   If Right(outline) = ":" Then outline = Left(outline, -1)
   If Right(outline) = "" Then 
-    Return driver_name
+    Return driver_name 
       Else
-    Return driver_name & ":" & outline 
+    Return driver_name & ":" & outline
   Endif
 
 End

xt7-player-mpv-0.14.384.tar.gz/.src/Form/NewChains.form -> xt7-player-mpv-0.16.384.tar.gz/.src/Form/NewChains.form Changed

xt7-player-mpv-0.14.384.tar.gz/.src/Form/ladspahelper.class -> xt7-player-mpv-0.16.384.tar.gz/.src/Form/ladspahelper.class Changed

xt7-player-mpv-0.14.384.tar.gz/.src/Form/ladspahelper.form -> xt7-player-mpv-0.16.384.tar.gz/.src/Form/ladspahelper.form Changed

xt7-player-mpv-0.14.384.tar.gz/AA_ToDo -> xt7-player-mpv-0.16.384.tar.gz/AA_ToDo Changed

@@ -733,42 +733,6 @@
 --------------------------------------------------------------------------
 --------------------------------------------------------------------------
 
-Visualizzazione:
-
-#!/bin/bash
-file="/mnt/nas.crypt/Musica/streamripper/radioparallax/Sixto Sounds - Super Hang On (Burn Baby Burn OC ReMix).mp3"
-file=/mnt/nas.crypt/Musica/Roxette\ -\ Tourism/Roxette\ -\ Tourism\ -\ 16\ -\ Queen\ of\ rain.ogg
-wid="58720645"
-export IFS=$'\n'
-
-#4.5%:
-    graph="amovie=$file,"
-    graph=$graph'asplit [a][out1];'
-    graph=$graph'[a]showspectrum=mode=separate:color=intensity:slide=scroll:s=4x512:color=intensity:win_func=blackman:mode=combined:saturation=1,'
-    graph=$graph'crop=h=(in_h/1.5):y=in_h[spectrum];'
-    graph=$graph'movie=/root/Download/png.png,scale=h=(in_h/1.5)[pic];[spectrum][pic]overlay[out0]'
-
-    mpv av://lavfi:$graph -wid $wid  -no-keepaspect -v
-    exit
-
-#12%
-graph="amovie=$file[musica];"
-#graph=$graph'[musica]asplit=2 [azero][auno];'
-graph=$graph'[musica]asplit=3 [azero][auno][out1];'
-
-graph=$graph'[azero]showspectrum=mode=separate:color=intensity:slide=scroll:s=4x512:color=intensity:win_func=blackman:mode=combined:saturation=1,'
-    graph=$graph'crop=h=(in_h/1.5):y=in_h,'
-    graph=$graph'scale=h=512:w=512:force_original_aspect_ratio=disable[spectrum];'
-
-graph=$graph'[auno]showwaves=s=512x512:mode=line:r=20,'
-    graph=$graph'crop=h=(ih/2):y=(0),crop=h=(ih/2):y=ih,'
-    graph=$graph'colorlevels=romax=0.5[waves];'
-
-graph=$graph'[spectrum][waves]overlay[out0]'
-
-
-    mpv av://lavfi:$graph -wid $wid  -no-keepaspect -v
-    exit
 
 
 
@@ -807,12 +771,68 @@
 /JUNK
 --------------------------------------------------------------------------
 
-attualmente, get_property_mpv, per essere certo che mpv abbia risposto, imposta la variabile
-di "ritorno" ad un valore conosciuto sicuramente diverso dalla risposta.)
-Poi dopo il timeout controlla se il valore è cambiato; se è cambiato lo usa, altrimenti
-va in timeout e ripristina il valore percedente.
-Questo funziona "spesso", ma può dar problemi.
-Il modo di non cambiare il valore per aspettare che cambi è:
-nell'handler playerprocess_read, oltre a memorizzare con setP() il valore della risposta
-memorizzare pure il tempo nel quale  avvenuta la risposta, in un' altra collezione separata.
-Get_property_mpv, andrà a controllare che a cambiare sia il tempo , e non la variabile stessa.
+
+
+
+visualizzazione audio:
+
+spectrum sotto con onde sopra:
+10.5%cpu
+build/mpv /mnt/nas.crypt/Musica/BestOfBowie/CD1/01.Space.Oddity.ogg  --lavfi-complex='[aid1]asplit=3 [azero][auno][ao];[azero]showspectrum=mode=separate:color=intensity:slide=scroll:s=4x512:color=intensity:win_func=blackman:mode=combined:saturation=1,crop=h=(in_h/1.5):y=in_h,scale=h=512:w=512:force_original_aspect_ratio=disable[spectrum];[auno]showwaves=s=512x512:mode=line:r=20,crop=h=(ih/2):y=(0),crop=h=(ih/2):y=ih,colorlevels=romax=0.5[waves];[spectrum][waves]overlay[vo]' -ao null
+
+Spectrum con onde sovraimpresse:
+28%cpu
+build/mpv /mnt/nas.crypt/Musica/BestOfBowie/CD1/01.Space.Oddity.ogg  --lavfi-complex='[aid1]asplit=3 [azero][auno][ao];[azero]showspectrum=mode=separate:color=intensity:slide=scroll:s=4x512:color=intensity:win_func=blackman:mode=combined:saturation=1,crop=h=(in_h/1.5):y=in_h,scale=h=512:w=512:force_original_aspect_ratio=disable[spectrum];[auno]showwaves=s=512x512:mode=line:r=20,crop=h=(in_h):y=(in_h/2),colorlevels=romax=0.5,colorkey=0x000000:0.1:0.5[waves];[spectrum][waves]overlay[vo]' -ao null
+
+
+
+
+solo spectrum; l'immagine png è un gradiente da trasparente a nero.
+5,5%cpu
+-lavfi-complex='[aid1]asplit [a][ao];[a]showspectrum=mode=separate:color=intensity:slide=scroll:s=4x256:color=intensity:win_func=blackman:mode=combined:saturation=1,crop=h=(in_h/1.5):y=in_h[spectrum];movie=/tmp/out.png,scale=h=(in_h/1.5)[pic]              ;[spectrum][pic]overlay[vo]'  --no-keepaspect
+
+frequenze
+7%cpu
+--lavfi-complex='[aid1]asplit[ao][a1];[a1]showfreqs=s=256x256:mode=bar           :colors=#ff0000|#aa0000  :averaging=0.6
+
+Vectorscope sovraimpresso con hack per la sovraimpressione
+17% cpu
+build/mpv /mnt/nas.crypt/Musica/BestOfBowie/CD1/01.Space.Oddity.ogg  --lavfi-complex='[aid1]asplit=3[a1][a2][ao]; [a2]adrawgraph=bg=#00000000:size=256x256[blank];                            movie=/home/root/Gambas3/xt7-player-mpv-gtk/shade1.png,scale=256x256[pic]; [blank][pic]overlay[back] ; [a1]avectorscope=size=256x256[sp];[back][sp]overlay[vo]'
+
+
+filtri presenti solo in ffmpeg >=3.0:
+ ... acompressor       A->A       Audio compressor.
+ ... aemphasis         A->A       Audio emphasis.
+ ... afftfilt          A->A       Apply arbitrary expressions to samples in 
+ ... agate             A->A       Audio gate.
+ ... alimiter          A->A       Audio lookahead limiter.
+ ... allpass           A->A       Apply a two-pole all-pass filter.
+ ... amerge            N->A       Merge two or more audio streams into a single multi-channel stream.
+ T.. ametadata         A->A       Manipulate audio frame metadata.
+ ..C anequalizer       A->N       Apply high-order audio parametric multi band equalizer.
+ ... apulsator         A->A       Audio pulsator.
+ ... arealtime         A->A       Slow down filtering to match realtime.
+ ..C astreamselect     N->N       Select audio streams
+ ... compensationdelay A->A       Audio Compensation Delay Line.
+ ... extrastereo       A->A       Increase difference between stereo audio channels.
+ ... sidechaingate     AA->A      Audio sidechain gate.
+ ... stereotools       A->A       Apply various stereo tools.
+ ... stereowiden       A->A       Apply stereo widening effect.
+ ... tremolo           A->A       Apply tremolo effect.
+ ... vibrato           A->A       Apply vibrato effect.
+ TS. chromakey         V->V       Turns a certain color into transparency. Operates on YUV colors.
+ T.. convolution       V->V       Apply convolution filter.
+ T.. displace          VVV->V     Displace pixels.
+ T.. maskedmerge       VVV->V     Merge first stream with second stream 
+ T.. metadata          V->V       Manipulate video frame metadata.
+ T.. nnedi             V->V       Apply neural network edge directed interpolation intra-only deinterlacer.
+ ... realtime          V->V       Slow down filtering to match realtime.
+ TS. selectivecolor    V->V       Apply CMYK adjustments to specific color ranges.
+ T.. shuffleframes     V->V       Shuffle video frames.
+ ..C streamselect      N->N       Select video streams
+ T.. swaprect          V->V       Swap 2 rectangular objects in video.
+ ... testsrc           |->V       Generate test pattern.
+ ... testsrc2          |->V       Generate another test pattern.
+ ... ahistogram        A->V       Convert input audio to histogram video output.
+ ... showspectrumpic   A->V       Convert input audio to a spectrum video output single picture.
+ ... spectrumsynth     VV->A      Convert input spectrum videos to audio output.

xt7-player-mpv-0.16.384.tar.gz/cdtemplate.png Added

xt7-player-mpv-0.16.384.tar.gz/shade_alpha.png Added

xt7-player-mpv-0.16.384.tar.gz/shadeaudiopanel.png Added