// One day when listening to risen words came to my mind for the notes
// that were being played.


#include "/Demo/Snd/OPL2VM"

// Terry's original risen:
// 2x Play("5eDEqFFetEEFqDeCDDEetCGF");
// 2x Play("5eDCqDE4eAA5etEEFEDG4B5DCqF");

// This version (same notes, but some moved to end of first half)
// 2x Play("5eDEqFFetEEFqDeCDDEetCGF5eDCqD");
// 2x Play("E4eAA5etEEFEDG4B5DCqF");



TOScross/* Graphics Not Rendered in HTML */



















U8 *s1="Je-sus He has ris-en He has ris-en tri-umph-ant-ly!";
U8 *s2="God sent His on-ly son dying for you and me!";
static U8 *verses[9]={
"Luke 24:6\n",
"He is not here; he has risen!\n\n",
"John 3:16\n",
"For God so loved the world that he gave his one and only Son,\n",
"that whoever believes in him shall not perish but have eternal life.\n\n",
"John 11:25-26\n",
"Jesus said to her, 'I am the resurrection and the life. The one who believes\n",
"in me will live, even though they die; and whoever lives by believing in me\n",
"will never die. Do you believe this?"
};

static U8 *intro[14]={
"A message for Easter 2023\n\n\n",
"I spent a lot of time in Terry's Temple listening and\n\n",
"learning.  One day when listening to risen words came\n\n",
"to my mind for the notes that were being played.  At \n\n",
"first I heard \"risen\" and the word stuck with me. \n\n\n",
"Then I slowly played risen over and over and slowly\n\n",
"more words came to my mind for the notes being played.\n\n\n",
"Eventually I had two sentences from the song.\n\n\n",
"What you are about to hear uses the exact same notes\n\n",
"as risen in the exact same order, except I split the\n\n",
"two sentences I heard into two separate verses.\n\n\n",
"Happy Easter!                                           \n\n",
"I hope you enjoy the message and can hear what I heard!\n\n\n",
"                                           The Tinkerer\n"
};


U0 Song()
{
  I64 i,j,k;
  Fs->task_end_cb=&SndTaskEndCB;
  MusicSettingsRst;
  music.tempo=1.4;
  AutoComplete(0);
  WinMax;
  DocClear;
  MemCpy(&Fs->task_title,"Easter Message\0",15);

  ms.show=FALSE;

  for (j=0;j<TEXT_ROWS/2-28/2;j++) "\n";
  for (j=0;j<14;j++)
  {
    for (i=0;i<TEXT_COLS/2-StrLen(intro[j])/2-1;i++) " ";
    for (i=0;i<StrLen(intro[j]);i++)
    {
      "%c",intro[j][i];
      if (intro[j][i]==' ' && intro[j][i-1]==' ') Sleep(1);
      else Sleep(100);
    }
  }


  Sleep(2000);
  DocClear;
  ms.show=FALSE;

  MemCpy(&Fs->task_title,"Happy Easter\0",13);


  "\n";
  "$TX+CX,\"Happy Easter!\"$\n\n\n";

  DocSprite(,                      <TOScross>,"$SP+CX,\"\",BI=1$");

  "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n";

  for (j=0;j<2;j++)
    {

    for (i=0;i<TEXT_COLS/2-StrLen(s1)/2-1;i++) " ";
    Play("5eDEqFFetEEFqDeCDDEetCGF5eDCqD",
          "Je\0-sus \0He \0has \0ris\0 \0 \0-en \0He \0has \0ris\0 \0-en\0 \0 tri\0-umph\0-ant\0-ly!\n\0");

    for (i=0;i<TEXT_COLS/2-StrLen(s1)/2-1;i++) " ";
    Play("5eDEqFFetEEFqDeCDDEetCGF5eDCqD",
          "Je\0-sus \0He \0has \0ris\0 \0 \0-en \0He \0has \0ris\0 \0-en\0 \0 tri\0-umph\0-ant\0-ly!\n\0");

    "\n";

    for (i=0;i<TEXT_COLS/2-StrLen(s2)/2-1;i++) " ";
    Play("E4eAA5etEEFEDG4B5DCqF","God \0sent \0His \0on\0 \0-ly\0 \0 son \0dying \0for \0you \0and \0me!\n");
    for (i=0;i<TEXT_COLS/2-StrLen(s2)/2-1;i++) " ";
    Play("5E4eAA5etEEFEDG4B5DCqF","God \0sent \0His \0on\0 \0-ly\0 \0 son \0dying \0for \0you \0and \0me!\n");

    "\n";
  }

  Snd;

  for (j=0;j<9;j++)
    {
    for (i=0;i<TEXT_COLS/2-StrLen(verses[j])/2-1;i++) " ";
    "%s\n",verses[j];
  }

  Sleep(30000);
  ms.show=TRUE;

}

Song;