Script fade to next track als track > 5:30

Voor vragen over Playlist Automation Language.
Plaats reactie
Gebruikersavatar
Borg
Beheerder
Berichten: 482
Lid geworden op: 25 jun 2006, 16:54
SAM-versie: 2.8.0.
Database: Geen Database
Locatie: Het Westland
Contacteer:

Script fade to next track als track > 5:30

Ongelezen bericht door Borg »

Vraag dit voor een vriend van mij.

In zijn playlist staan veel maxi single's die langer zijn dan b.v. 6 a 7 minuten, daarom zou hij graag een PAL script willen
die de track afbreekt en de volgende track in-start,

Ikzelf ben dus echt niet goed in PAL dus daarom de vraag of hier iemand bij zou kunnen helpen.
Op het spacial forum kreeg hij een voorbeeld, maar geen idee of dit werkt.

Code: Selecteer alles

PAL.Loop := True;

VAR Wait : Boolean = False;

IF ActivePlayer <> NIL THEN
  IF ActivePlayer.Duration > 270 THEN
    Wait := True;

WHILE Wait DO
BEGIN
  PAL.WaitForTime(270-ActivePlayer.CurTime);
  ActivePlayer.Next;
  Wait := False;
END;

Alvast dank, Jos
ʎɐqǝ uo pɹɐoqʎǝʞ ɐ ʎnq ı ǝɯıʇ ʇsɐן ǝɥʇ sı sıɥʇ
Gebruikersavatar
Borg
Beheerder
Berichten: 482
Lid geworden op: 25 jun 2006, 16:54
SAM-versie: 2.8.0.
Database: Geen Database
Locatie: Het Westland
Contacteer:

Re: Script fade to next track als track > 5:00

Ongelezen bericht door Borg »

Denk dat ik ook maar niet meer kom ;-)
ʎɐqǝ uo pɹɐoqʎǝʞ ɐ ʎnq ı ǝɯıʇ ʇsɐן ǝɥʇ sı sıɥʇ
Gebruikersavatar
Wout
Moderator
Berichten: 3307
Lid geworden op: 03 dec 2007, 14:17
Answers: 1
SAM-versie: SAM 2019.3
Database: MySQL 8.0
Windows: Windows 10
Locatie: Bergen op Zoom
Contacteer:

Re: Script fade to next track als track > 5:00

Ongelezen bericht door Wout »

Code ziet er plausibel uit. Heeft Ron deze PAL al geprobeerd?
Afbeelding
Gebruikersavatar
Borg
Beheerder
Berichten: 482
Lid geworden op: 25 jun 2006, 16:54
SAM-versie: 2.8.0.
Database: Geen Database
Locatie: Het Westland
Contacteer:

Re: Script fade to next track als track > 5:00

Ongelezen bericht door Borg »

Ron had hem geprobeerd maar werkte niet..Heb vanmiddag mijn oude laptop uit de kast gehaald waar SAM op staat, testen op de Glazen Stad gaat natuurlijk niet. Na wat klooien met eerstgenoemde PAL ben ik gaan zoeken op het forum van Spacial met de zoekterm > ActivePlayer.CurTime

Dat bracht me bij een vergelijkbaar PAL script. Inmiddels werkt deze naar behoren, op het laatste even zitten stoeien omdat hij ineens niet meer werkte maar dat kwam omdat beide players ' geladen' waren met een track, dan werkt het niet.

In onderstaand PAL script 330000 milliseconde gebruik wat in SAM 5:30 seconden is.

Code: Selecteer alles

PAL.Loop := True;

IF (DeckA.Duration - DeckA.CurTime) >= (DeckB.Duration - DeckB.CurTime) THEN
  begin
  WriteStr(' DeckA Song Time: ');
  WriteLn (DeckA.Duration / 330000);
  WriteStr(' DeckA Current Time: ');
  WriteLn (DeckA.CurTime);
  if  (DeckA.CurTime) > 330000 Then
      ActivePlayer.FadeToNext;
  end
  
ELSE

  begin
  WriteStr(' DeckB Song Time: ');
  WriteLn (DeckB.Duration / 330000);
  WriteStr(' DeckB Current Time: ');
  WriteLn (DeckB.CurTime);
  if  (DeckB.CurTime) > 330000 Then
      ActivePlayer.FadeToNext;
  end;

Ron zou zeggen Tjuus ;-)
ʎɐqǝ uo pɹɐoqʎǝʞ ɐ ʎnq ı ǝɯıʇ ʇsɐן ǝɥʇ sı sıɥʇ
Gebruikersavatar
ronvdlans
Beginnende SAM-gebruiker
Berichten: 8
Lid geworden op: 03 nov 2020, 19:20
SAM-versie: SAM 2017.6
Database: Geen Database
Windows: 7 64-bits
Contacteer:

Re: Script fade to next track als track > 5:30

Ongelezen bericht door ronvdlans »

Helemaal HAPPY Macho , Maar een ietsie pietsie langere fade-out zou mooi zijn..TOP Bedankt vriend
Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht