Make(delphi)
ver(4.04 build 183)
Add(MainForm,6761310,42,56)
{
 Width=470
 Height=144
 Color=0
 Caption="Internet Radio Player"
 BorderStyle=1
 Icon=[ZIP3E01000078DAB5893B0E84300C4487556091D2A4222D2525C7E1289450003E5A7E77CA4E807A1BC458E3273F0315C718C3AD3054400760600DDBB3C5FF8BD61AD65A38E7E0BD4708013146A4949073C6A33422B293352997FA147EEFBB25B6C2F57AB6CB2C07A9C6E9F42FE707936E1D5D]
 link(onCreate,13642793:doInit,[(104,76)(104,62)])
}
Add(BASS_Init,13642793,133,56)
{
}
Add(BASS_StreamCreateURL,16619594,105,98)
{
 URL="http://www.radioparadise.com/musiclinks/rp_128-9.m3u"
 Name="InternetRadio"
 link(onCreate,7935822:doEvent1,[])
 link(onMeta,2209648:doEvent2,[(195,111)(195,118)])
}
Add(BASS_ChannelPlay,15225894,280,56)
{
 Channel="InternetRadio"
}
Add(BASS_ChannelPause,9407161,133,203)
{
 Channel="InternetRadio"
}
Add(Button,5712892,35,203)
{
 Left=145
 Top=60
 Width=105
 Font=[MS Sans Serif,14,1,-16777213,1]
 Ctl3D=0
 Caption="Pause"
 link(onClick,9407161:doPause,[])
}
Add(BASS_ChannelEnumTags,6468670,280,105)
{
 Channel="InternetRadio"
 Type=5
 link(onEnumTags,13055557:doSplit,[])
}
Add(Hub,7935822,203,98)
{
 link(onEvent1,15225894:doPlay,[(224,104)(224,62)])
 link(onEvent2,2209648:doEvent1,[])
}
Add(Hub,2209648,224,105)
{
 InCount=2
 OutCount=1
 link(onEvent1,6468670:doEnumTags,[])
}
Add(Edit,5610557,532,105)
{
 Left=11
 Top=5
 Width=240
 Color=15780518
 Font=[MS Sans Serif,8,1,0,1]
 Ctl3D=1
 Text=""
 Alignment=2
}
Add(ScrollBar,2586869,42,154)
{
 Left=11
 Top=89
 Width=240
 Color=15780518
 Max=220
 Position=50
 link(onPosition,7277821:doOperation,[])
}
Add(BASS_ChannelAttribute,13996048,280,154)
{
 Channel="InternetRadio"
 Attrib=1
}
Add(Math,7277821,133,154)
{
 OpType=3
 Op2=220
 link(onResult,13996048:doAttribute,[])
}
Add(StrPart,13055557,343,105)
{
 Char="'"
 link(onSplit,12520567:doSplit,[])
}
Add(StrPart,12520567,399,105)
{
 Char="-"
 link(onSplit,8173667:doSplit,[])
 link(onPart,12539075:doText,[(443,118)(443,160)])
}
Add(StrPart,8173667,462,105)
{
 Char="'"
 link(onPart,5610557:doText,[(513,118)(513,111)])
}
Add(Edit,12539075,532,154)
{
 Left=11
 Top=30
 Width=240
 Color=15780518
 Font=[MS Sans Serif,8,1,0,1]
 Ctl3D=1
 Text=" "
 Alignment=2
}
Add(Timer,16525640,133,266)
{
 Interval=50
 link(onTimer,3873633:doEvent1,[])
}
Add(Button,5569744,35,98)
{
 Left=11
 Top=60
 Width=105
 Font=[MS Sans Serif,14,1,-16777213,1]
 Ctl3D=0
 Caption="Play"
 link(onClick,16619594:doCreate,[])
}
Add(Plotter,10574215,581,322)
{
 Left=270
 Top=5
 Width=178
 Height=103
 Color=3815994
 Name="Plotter"
 GridColor=0
 Grid=12
 MaxH=50
 LeftMargin=0
 RightMargin=0
 TopMargin=0
 BottomMargin=0
}
Add(PlotHistogram,7049018,539,322)
{
 Grapher="Plotter"
 Color=8421504
 Step=3
 Name="Values"
 BgColor=15780518
 Offset=2
 link(ValueX,2579501:Value,[])
}
Add(Hub,3873633,189,266)
{
 OutCount=3
 link(onEvent1,7049018:doClear,[(229,272)(229,335)])
 link(onEvent2,14140629:doEvent1,[(249,279)(249,223)])
 link(onEvent3,2203457:doString,[])
}
Add(MultiElementEx,2006264,294,217)
{
}
BEGIN_SDK
  Add(EditMultiEx,7354260,21,21)
  {
   WorkCount=#5:doFFT|
   EventCount=#3:Out|
   VarCount=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|
   Width=685
   Height=417
   link(doFFT,10927966:doEvent1,[])
   link(1,14099017:Var2,[(27,371)(566,371)])
   link(2,11955445:Var2,[(34,377)(580,377)])
   link(3,4202744:Var2,[(41,385)(594,385)])
   link(4,4156985:Var2,[(48,391)(608,391)])
   link(5,2403972:Var2,[(55,398)(622,398)])
   link(6,4503055:Var2,[(62,405)(636,405)])
   link(7,14944807:Var2,[(69,413)(650,413)])
  }
  Add(BASS_FFT_2048,1489531,70,126)
  {
   SoundStream="parent.InternetRadio"
   IndexMin=2
   IndexMax=385
   link(onIndFreq,16041031:doValue,[(110,132)(110,76)])
   link(onAmpl,534165:doOperation,[])
  }
  Add(Math,5551963,560,84)
  {
   Point(doClear)
   link(onResult,7354260:Out,[(592,90)(688,90)(688,27)])
   link(Op1,14099017:Var1,[(566,72)(557,72)(557,124)])
  }
  Add(Math,1393760,574,126)
  {
   Point(doClear)
   link(Op1,11955445:Var1,[(580,114)(571,114)(571,166)])
  }
  Add(Math,11509782,588,168)
  {
   Point(doClear)
   link(Op1,4202744:Var1,[(594,156)(585,156)(585,208)])
  }
  Add(Math,11222377,602,210)
  {
   Point(doClear)
   link(Op1,4156985:Var1,[(608,198)(599,198)(599,250)])
  }
  Add(Math,4380970,616,252)
  {
   Point(doClear)
   link(Op1,2403972:Var1,[(622,240)(613,240)(613,292)])
  }
  Add(Math,13610558,630,294)
  {
   Point(doClear)
   link(Op1,4503055:Var1,[(636,282)(627,282)(627,334)])
  }
  Add(Math,16615644,644,336)
  {
   Point(doClear)
   link(Op1,14944807:Var1,[(650,324)(641,324)(641,376)])
  }
  Add(Memory,16041031,175,70)
  {
  }
  Add(Hub,10927966,35,21)
  {
   link(onEvent1,1591093:doEvent1,[])
   link(onEvent2,1489531:doFFT,[(59,34)(59,132)])
  }
  Add(Hub,1591093,490,21)
  {
   OutCount=7
   link(onEvent1,5551963:doClear,[(551,27)(551,97)])
   link(onEvent2,1393760:doClear,[(546,34)(546,139)])
   link(onEvent3,11509782:doClear,[(539,41)(539,181)])
   link(onEvent4,11222377:doClear,[(532,48)(532,223)])
   link(onEvent5,4380970:doClear,[(525,55)(525,265)])
   link(onEvent6,13610558:doClear,[(517,62)(517,307)])
   link(onEvent7,16615644:doClear,[(510,69)(510,349)])
  }
  Add(If_else,16359515,224,133)
  {
   Type=2
   Op2=Integer(12)
   link(onTrue,1222623:doCompare,[])
   link(onFalse,1393760:doOperation,[(264,146)(264,132)])
   link(Op1,8330574:Var2,[])
  }
  Add(If_else,1222623,273,133)
  {
   Type=2
   Op2=Integer(24)
   link(onTrue,3427909:doCompare,[])
   link(onFalse,11509782:doOperation,[(316,146)(316,174)])
   link(Op1,11287720:Var2,[])
  }
  Add(If_else,3427909,322,133)
  {
   Type=2
   Op2=Integer(48)
   link(onTrue,2122342:doCompare,[])
   link(onFalse,11222377:doOperation,[(363,146)(363,216)])
   link(Op1,12874618:Var2,[])
  }
  Add(If_else,2122342,371,133)
  {
   Type=2
   Op2=Integer(96)
   link(onTrue,9599938:doCompare,[])
   link(onFalse,4380970:doOperation,[(412,146)(412,258)])
   link(Op1,10186457:Var2,[])
  }
  Add(If_else,9599938,420,133)
  {
   Type=2
   Op2=Integer(192)
   link(onTrue,16615644:doOperation,[(486,139)(486,342)])
   link(onFalse,13610558:doOperation,[(465,146)(465,300)])
   link(Op1,10186457:Var3,[(426,117)])
  }
  Add(If_else,12997137,175,133)
  {
   Type=2
   Op2=Integer(6)
   link(onTrue,16359515:doCompare,[])
   link(onFalse,5551963:doOperation,[(219,146)(219,90)])
   link(Op1,1108236:Var2,[])
  }
  Add(GetDataEx,11287720,273,112)
  {
   Angle=3
   link(Data,8330574:Var3,[])
  }
  Add(GetDataEx,12874618,322,112)
  {
   Angle=3
   link(Data,11287720:Var3,[])
  }
  Add(GetDataEx,10186457,371,112)
  {
   Angle=3
   link(Data,12874618:Var3,[])
  }
  Add(GetDataEx,1108236,175,112)
  {
   link(Data,16041031:Value,[])
  }
  Add(GetDataEx,8330574,224,112)
  {
   Angle=3
   link(Data,1108236:Var3,[])
  }
  Add(GetDataEx,14099017,560,119)
  {
   link(Data,5551963:Result,[])
  }
  Add(GetDataEx,11955445,574,161)
  {
   link(Data,1393760:Result,[])
  }
  Add(GetDataEx,4202744,588,203)
  {
   link(Data,11509782:Result,[])
  }
  Add(GetDataEx,4156985,602,245)
  {
   link(Data,11222377:Result,[])
  }
  Add(GetDataEx,2403972,616,287)
  {
   link(Data,4380970:Result,[])
  }
  Add(GetDataEx,4503055,630,329)
  {
   link(Data,13610558:Result,[])
  }
  Add(GetDataEx,14944807,644,371)
  {
   link(Data,16615644:Result,[])
  }
  Add(Math,534165,119,133)
  {
   OpType=2
   Op2=100
   link(onResult,12997137:doCompare,[])
  }
END_SDK
Add(FormatStr,2203457,294,280)
{
 DataCount=7
 Mask="%1 %2 %3 %4 %5 %6 %7"
 link(onFString,3775293:doString,[])
 link(Str2,2006264:2,[])
 link(Str3,2006264:3,[])
 link(Str4,2006264:4,[])
 link(Str5,2006264:5,[])
 link(Str6,2006264:6,[])
 link(Str7,2006264:7,[])
}
Add(Str_Enum,11420791,448,280)
{
 Delimiter=" "
 link(onEnum,7049018:doAdd,[(499,286)(499,328)])
}
Add(MultiElementEx,5826237,371,224)
{
}
BEGIN_SDK
  Add(EditMultiEx,7354260,21,21)
  {
   WorkCount=#5:doFFT|
   EventCount=#3:Out|
   VarCount=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|
   Width=685
   Height=417
   link(doFFT,10927966:doEvent1,[(28,27)(28,48)])
   link(2,11955445:Var2,[(34,377)(580,377)])
   link(3,4202744:Var2,[(41,385)(594,385)])
   link(4,4156985:Var2,[(48,391)(608,391)])
   link(5,2403972:Var2,[(55,398)(622,398)])
   link(6,4503055:Var2,[(62,405)(636,405)])
   link(7,14944807:Var2,[(69,413)(650,413)])
  }
  Add(BASS_FFT_2048,1489531,70,126)
  {
   SoundStream="parent.InternetRadio"
   IndexMin=192
   IndexMax=743
   link(onIndFreq,16041031:doValue,[(110,132)(110,76)])
   link(onAmpl,534165:doOperation,[])
  }
  Add(Math,1393760,574,126)
  {
   Point(doClear)
   link(Op1,11955445:Var1,[(580,114)(571,114)(571,166)])
  }
  Add(Math,11509782,588,168)
  {
   Point(doClear)
   link(Op1,4202744:Var1,[(594,156)(585,156)(585,208)])
  }
  Add(Math,11222377,602,210)
  {
   Point(doClear)
   link(Op1,4156985:Var1,[(608,198)(599,198)(599,250)])
  }
  Add(Math,4380970,616,252)
  {
   Point(doClear)
   link(Op1,2403972:Var1,[(622,240)(613,240)(613,292)])
  }
  Add(Math,13610558,630,294)
  {
   Point(doClear)
   link(Op1,4503055:Var1,[(636,282)(627,282)(627,334)])
  }
  Add(Math,16615644,644,336)
  {
   Point(doClear)
   link(Op1,14944807:Var1,[(650,324)(641,324)(641,376)])
  }
  Add(Memory,16041031,175,70)
  {
  }
  Add(Hub,10927966,35,42)
  {
   link(onEvent1,1591093:doEvent1,[(57,48)(57,27)])
   link(onEvent2,1489531:doFFT,[(59,55)(59,132)])
  }
  Add(Hub,1591093,490,21)
  {
   OutCount=7
   link(onEvent2,1393760:doClear,[(546,34)(546,139)])
   link(onEvent3,11509782:doClear,[(539,41)(539,181)])
   link(onEvent4,11222377:doClear,[(532,48)(532,223)])
   link(onEvent5,4380970:doClear,[(525,55)(525,265)])
   link(onEvent6,13610558:doClear,[(517,62)(517,307)])
   link(onEvent7,16615644:doClear,[(510,69)(510,349)])
  }
  Add(If_else,16359515,224,133)
  {
   Type=2
   Op2=Integer(288)
   link(onTrue,1222623:doCompare,[])
   link(onFalse,1393760:doOperation,[(264,146)(264,132)])
   link(Op1,8330574:Var2,[])
  }
  Add(If_else,1222623,273,133)
  {
   Type=2
   Op2=Integer(340)
   link(onTrue,3427909:doCompare,[])
   link(onFalse,11509782:doOperation,[(316,146)(316,174)])
   link(Op1,11287720:Var2,[])
  }
  Add(If_else,3427909,322,133)
  {
   Type=2
   Op2=Integer(432)
   link(onTrue,2122342:doCompare,[])
   link(onFalse,11222377:doOperation,[(363,146)(363,216)])
   link(Op1,12874618:Var2,[])
  }
  Add(If_else,2122342,371,133)
  {
   Type=2
   Op2=Integer(528)
   link(onTrue,9599938:doCompare,[])
   link(onFalse,4380970:doOperation,[(412,146)(412,258)])
   link(Op1,10186457:Var2,[])
  }
  Add(If_else,9599938,420,133)
  {
   Type=2
   Op2=Integer(624)
   link(onTrue,16615644:doOperation,[(486,139)(486,342)])
   link(onFalse,13610558:doOperation,[(465,146)(465,300)])
   link(Op1,10186457:Var3,[(426,117)])
  }
  Add(GetDataEx,11287720,273,112)
  {
   Angle=3
   link(Data,8330574:Var3,[])
  }
  Add(GetDataEx,12874618,322,112)
  {
   Angle=3
   link(Data,11287720:Var3,[])
  }
  Add(GetDataEx,10186457,371,112)
  {
   Angle=3
   link(Data,12874618:Var3,[])
  }
  Add(GetDataEx,1108236,175,112)
  {
   link(Data,16041031:Value,[])
  }
  Add(GetDataEx,8330574,224,112)
  {
   Angle=3
   link(Data,1108236:Var3,[])
  }
  Add(GetDataEx,11955445,574,161)
  {
   link(Data,1393760:Result,[])
  }
  Add(GetDataEx,4202744,588,203)
  {
   link(Data,11509782:Result,[])
  }
  Add(GetDataEx,4156985,602,245)
  {
   link(Data,11222377:Result,[])
  }
  Add(GetDataEx,2403972,616,287)
  {
   link(Data,4380970:Result,[])
  }
  Add(GetDataEx,4503055,630,329)
  {
   link(Data,13610558:Result,[])
  }
  Add(GetDataEx,14944807,644,371)
  {
   link(Data,16615644:Result,[])
  }
  Add(Math,534165,119,133)
  {
   OpType=2
   Op2=100
   link(onResult,16359515:doCompare,[])
  }
END_SDK
Add(FormatStr,3775293,371,280)
{
 DataCount=7
 Mask="%1 %2 %3 %4 %5 %6 %7"
 link(onFString,11420791:doEnum,[])
 link(Str2,5826237:2,[])
 link(Str3,5826237:3,[])
 link(Str4,5826237:4,[])
 link(Str5,5826237:5,[])
}
Add(Hub,14140629,259,217)
{
 link(onEvent1,2006264:doFFT,[])
 link(onEvent2,5826237:doFFT,[])
}
Add(Memory,2579501,546,266)
{
 Default=Integer(50)
}