*Один из вариантов включения элемента VectorFields.#13#10#13#10Автор MAV#13#10andreimav@yandex.ru
Make(delphi)
ver(4.02 build 179)
Add(MainForm,2953706,77,77)
{
 Left=100
 Top=100
 Width=418
 Height=330
 Color=16742263
 Ctl3D=0
 WinStyle=1
 Name="160"
 AlphaBlendValue=220
 Caption="VectorFields"
 BorderStyle=0
 Position=1
 Point(Handle)
 Point(doPicture)
 Point(Width)
 Point(Height)
 link(onCreate,785644:doEvent1,[])
}
Add(RGN_SetToWindow,4847611,189,161)
{
 link(Handle,5762469:getVar,[])
}
Add(RGN_RoundRect,14590228,147,161)
{
 rX=20
 rY=20
 link(onCreateRect,4847611:doSetRegion,[])
 link(Point2,1555865:Var,[(160,154)(153,154)])
}
Add(PointXY,10859637,84,140)
{
 link(X,2953706:Width,[])
 link(Y,2953706:Height,[])
}
Add(ChildFormEx,9348342,245,77)
{
 link(onMove,9830226:doEvent1,[(341,83)(341,246)(213,246)(213,216)])
 link(onActivate,2953706:doRestore,[(284,90)(284,73)(65,73)(65,90)])
 link(Close,1916937:In,[])
}
BEGIN_SDK
Pos(73,0)
  Add(EditMultiEx,11523424,-3,21)
  {
   EventCount=#6:onMove|10:onActivate|5:Close|
   VarCount=#4:Left|3:Top|
   Width=832
   Height=340
   link(Left,16189923:Left,[(3,198)(17,198)])
   link(Top,16189923:Top,[(10,204)(24,204)])
  }
  Add(MainForm,16189923,4,28)
  {
   Left=35
   Top=105
   Width=390
   Height=302
   Color=16742263
   Ctl3D=0
   BorderStyle=0
   DragForm=0
   TransparentColor=0
   Position=1
   Point(Handle)
   Point(Left)
   Point(Top)
   Point(onMove)
   Point(doPicture)
   Point(Width)
   Point(Height)
   link(onActivate,11950374:In,[(61,34)(61,27)])
   link(onCreate,6792486:doData,[])
   link(onMove,3846380:In,[(61,55)(61,83)])
  }
  Add(PaintBox,16464149,179,203)
  {
   Left=1
   Top=1
   Width=300
   Height=300
   Color=16777215
   WinStyle=1
   MouseCapture=0
   Point(doVisible)
   link(onBeforeDraw,8587762:doEvent1,[])
  }
  Add(Img_Bmp,14265880,403,203)
  {
   TransparentColor=16777215
   link(onDraw,16107007:doRandom,[(443,209)(443,250)(260,250)(260,272)])
   link(Bitmap,16464149:Bitmap,[(409,187)(216,187)(216,241)(185,241)])
  }
  Add(Timer,9416628,137,203)
  {
   Interval=18
   link(onTimer,16464149:doRefresh,[])
  }
  Add(BASS_ChannelVisibleOcilloScope,14136332,389,315)
  {
   SoundStream="main"
   ScaleY=90
   Pen=16746751
   FrameClear=1
   link(WindowsHandle,15227459:Var2,[])
  }
  Add(BASS_StreamCreateFile,8550269,473,77)
  {
   Name="main"
   link(onCreate,14259257:doWork2,[])
  }
  Add(BASS_ChannelPlay,10627324,529,77)
  {
   Channel="main"
   Restart=0
  }
  Add(ODialog,9865709,431,77)
  {
   Filter="*.mp3|*.mp3"
   StartDir=""
   FileName=""
   link(onExecute,8550269:doCreate,[])
  }
  Add(VectorFields,10,277,203)
  {
   Width=304
   Height=304
   Point(doMode)
   link(onProcess,438157:doNegative,[])
  }
  Add(Random,16107007,291,266)
  {
   Max=16600000
   link(onRandom,15382256:doRandom,[])
  }
  Add(GetDataEx,15227459,382,252)
  {
   link(Data,10:Bitmap,[(395,255)(283,255)])
  }
  Add(Hub,8587762,221,203)
  {
   OutCount=3
   link(onEvent1,10:doProcess,[])
   link(onEvent2,8081617:doEvent1,[(260,216)(260,125)])
   link(onEvent3,1556339:doDraw,[(260,223)(260,244)])
  }
  Add(Img_Point,4080144,620,133)
  {
   @Hint=#24:Точка фоновой подсветки |14:в режиме пауза|
   X=151
   Y=152
   Color=65535
   Point(X)
   Point(Y)
   Point(Color)
   Point(Size)
   link(Bitmap,7003908:Var3,[(626,114)])
   AddHint(-50,130,151,26,@Hint)
  }
  Add(Random,15485286,732,56)
  {
   Max=16600000
   link(onRandom,8895409:doRandom,[])
  }
  Add(Random,8895409,774,56)
  {
   Min=1
   Max=3
   link(onRandom,11725010:doDraw,[(814,62)(814,123)(669,123)(669,139)])
  }
  Add(Random,6095466,648,56)
  {
   Max=300
   link(onRandom,7515230:doRandom,[])
  }
  Add(Random,7515230,690,56)
  {
   Max=300
   link(onRandom,15485286:doRandom,[])
  }
  Add(For,6469570,606,56)
  {
   End=20
   link(onEvent,6095466:doRandom,[])
  }
  Add(IndexToChanel,12193072,529,119)
  {
   Count=4
   Point(Index)
   link(onEvent1,14881691:doEvent1,[(569,125)(569,132)])
   link(onEvent4,14881691:doEvent2,[(569,146)(569,139)])
   link(Index,10627324:State,[])
  }
  Add(ScrollBar,2033181,158,28)
  {
   Left=306
   Top=127
   Width=80
   Height=11
   Color=16742263
   Max=8
   Page=4
   Position=2
   link(onPosition,14180528:doEvent1,[])
  }
  Add(Negative,438157,319,203)
  {
   link(onResult,5211119:doCopy,[])
  }
  Add(BASS_ChannelPause,8322425,389,35)
  {
   Channel="main"
  }
  Add(HubEx,14259257,515,70)
  {
   link(onEvent,10627324:doPlay,[])
  }
  Add(Img_Point,11725010,676,133)
  {
   @Hint=#17:Эффект точечного |26:фейерверка в режиме пауза |
   Point(X)
   Point(Y)
   Point(Color)
   Point(Size)
   link(Bitmap,7003908:Var1,[(682,109)])
   link(X,6095466:Random,[(689,102)(654,102)])
   link(Y,7515230:Random,[])
   link(Color,15485286:Random,[(703,101)(738,101)])
   link(Size,8895409:Random,[(710,109)(780,109)])
   AddHint(-30,64,149,39,@Hint)
  }
  Add(GetDataEx,7003908,606,105)
  {
   Angle=3
   link(Data,15227459:Var3,[(609,114)(609,261)])
  }
  Add(Hub,14881691,578,126)
  {
   InCount=2
   link(onEvent1,6469570:doFor,[(599,132)(599,62)])
   link(onEvent2,4080144:doDraw,[])
  }
  Add(Img_Copy,5211119,361,203)
  {
   X=2
   Y=2
   Width=300
   Height=300
   link(onCopy,14265880:doDraw,[])
  }
  Add(Img_Rectangle,1556339,459,238)
  {
   DrawSource=1
   Color=16777215
   Point(Point2)
   link(Bitmap,16189923:Handle,[(465,193)(10,193)])
   link(Point2,1555865:Var,[])
  }
  Add(Label,1735398,242,77)
  {
   Left=311
   Top=111
   Width=75
   Color=16742263
   Font=[MS Sans Serif,8,0,16777215,1]
   Caption="Vector field 2"
   AutoSize=1
  }
  Add(StrCat,8456823,151,77)
  {
   Str1="Vector field "
   link(onStrCat,14220428:doWork2,[])
   link(Str2,2033181:Position,[])
  }
  Add(Hub,14180528,200,28)
  {
   link(onEvent1,14883715:doWork1,[(232,34)])
   link(onEvent2,8456823:doStrCat,[(226,41)(226,71)(144,71)(144,83)])
  }
  Add(BitBtn,794853,529,35)
  {
   Left=306
   Top=9
   Width=80
   Color=16742263
   Font=[MS Sans Serif,8,0,16777215,1]
   Ctl3D=0
   WinStyle=1
   Frame=1
   Caption="Close"
   link(onClick,11523424:Close,[])
  }
  Add(BitBtn,14210426,389,77)
  {
   Left=306
   Top=34
   Width=80
   Color=16742263
   Font=[MS Sans Serif,8,0,16777215,1]
   Ctl3D=0
   WinStyle=1
   Frame=1
   Caption="Select mp3"
   link(onClick,9865709:doExecute,[])
  }
  Add(BitBtn,10828007,242,28)
  {
   Left=306
   Top=59
   Width=80
   Color=16742263
   Font=[MS Sans Serif,8,0,16777215,1]
   Ctl3D=0
   WinStyle=1
   Frame=1
   Caption="Pause"
   link(onClick,7502848:doEvent1,[])
  }
  Add(BitBtn,7833756,431,35)
  {
   Left=306
   Top=84
   Width=80
   Color=16742263
   Font=[MS Sans Serif,8,0,16777215,1]
   Ctl3D=0
   WinStyle=1
   Frame=1
   Caption="Play"
   link(onClick,8366188:doEvent1,[])
  }
  Add(PointXY,10859637,25,77)
  {
   link(X,16189923:Width,[])
   link(Y,16189923:Height,[])
  }
  Add(LineBreak,14506208,25,119)
  {
   Caption="XY"
   Type=1
   Color=15780518
   link(Data,10859637:Point,[])
   Primary=[1555865,448,91]
  }
  Add(BASS_ChannelPosition,8745539,333,49)
  {
   Channel="main"
   Mode=2
  }
  Add(Memory,15129858,333,91)
  {
   Point(Data)
   link(Data,8745539:CurPosition,[])
  }
  Add(DoData,13449839,333,133)
  {
   link(onEventData,8745539:doPosition,[(372,139)(372,45)(325,45)(325,55)])
   link(Data,15129858:Value,[])
  }
  Add(Hub,7502848,284,28)
  {
   link(onEvent1,15129858:doValue,[(319,34)(319,97)])
   link(onEvent2,8322425:doPause,[])
  }
  Add(Hub,8366188,473,35)
  {
   link(onEvent1,14259257:doWork1,[(519,41)])
   link(onEvent2,13449839:doData,[(512,48)(512,71)(325,71)(325,139)])
  }
  Add(LineBreak,6241854,760,28)
  {
   Caption="Activate"
   Color=11648992
   link(Out,11523424:onActivate,[])
   Primary=[11950374,-693,-7]
  }
  Add(CheckBox,12123926,67,98)
  {
   Left=306
   Top=145
   Width=80
   Color=16742263
   Font=[MS Sans Serif,8,0,16777215,1]
   Caption="Autochoice"
  }
  Add(DoData,6792486,67,42)
  {
   Data=Integer(2)
   link(onEventData,14883715:doWork2,[])
  }
  Add(Case,15605960,571,168)
  {
   Value=Integer(250)
   DataOnTrue=Integer(1)
   link(onTrue,15035131:In,[])
  }
  Add(Counter,10903446,529,168)
  {
   Max=250
   link(onNext,15605960:doCase,[])
  }
  Add(Hub,8081617,480,119)
  {
   link(onEvent1,12193072:doEvent,[])
   link(onEvent2,10903446:doNext,[(518,132)(518,174)])
  }
  Add(LineBreak,542986,-10,140)
  {
   Caption="Autochoice"
   Color=1551510
   link(Out,11510111:doEvent,[])
   Primary=[15035131,630,35]
  }
  Add(HubEx,12712143,263,147)
  {
   Angle=1
   link(onEvent,10:doMode,[(267,216)])
  }
  Add(IndexToChanel,11510111,67,140)
  {
   Point(Index)
   link(onEvent2,4217327:doRandom,[(104,153)(104,146)])
   link(Index,12123926:Checked,[])
  }
  Add(Random,4217327,109,140)
  {
   Max=8
   link(onRandom,13491322:doEvent1,[])
  }
  Add(StrCat,7022998,179,147)
  {
   Str1="Vector field "
   link(onStrCat,14220428:doWork3,[(225,153)])
  }
  Add(HubEx,14220428,221,70)
  {
   link(onEvent,1735398:doText,[])
  }
  Add(Hub,13491322,151,140)
  {
   OutCount=3
   link(onEvent1,2033181:doPosition,[(171,146)(171,132)(140,132)(140,34)])
   link(onEvent2,7022998:doStrCat,[])
   link(onEvent3,12712143:doWork2,[])
  }
  Add(LineBreak,13442761,697,21)
  {
   Caption="onMove"
   Color=11648992
   link(Out,11523424:onMove,[])
   Primary=[3846380,-630,56]
  }
  Add(HubEx,14883715,228,35)
  {
   Angle=1
   link(onEvent,12712143:doWork1,[(232,152)(267,152)])
  }
  Add(Random,15382256,340,266)
  {
   Min=1
   Max=2
   link(onRandom,11900696:doDraw,[(380,272)(380,352)(318,352)(318,321)])
  }
  Add(Img_Point,11900696,326,315)
  {
   X=-1
   Y=-1
   Point(Color)
   Point(Size)
   link(onDraw,14136332:doDraw,[])
   link(Bitmap,15227459:Var1,[(332,261)])
   link(Color,16107007:Random,[(339,307)(297,307)])
   link(Size,15382256:Random,[])
  }
END_SDK
Add(PosWindow,3842793,252,210)
{
 link(Handle,5216349:getVar,[])
 link(Left,15935718:reCalc,[(265,174)(244,174)])
 link(Top,4416376:reCalc,[(272,174)(286,174)])
}
Add(Hub,785644,119,91)
{
 OutCount=3
 link(onEvent1,1758940:doInit,[])
 link(onEvent2,14590228:doCreateRect,[(140,104)(140,167)])
}
Add(Hub,9830226,224,210)
{
 link(onEvent1,3842793:doLeft,[])
 link(onEvent2,3842793:doTop,[])
}
Add(MathParse,4416376,273,133)
{
 MathStr="%1 - 14"
 Point(reCalc)
 link(X1,9348342:Top,[(279,121)(258,121)])
}
Add(MathParse,15935718,231,133)
{
 MathStr="%1 - 14"
 Point(reCalc)
 link(X1,9348342:Left,[(237,121)(251,121)])
}
Add(LineBreak,8157785,84,182)
{
 Caption="XY"
 Type=1
 Color=15780518
 link(Data,10859637:Point,[])
 Primary=[1555865,63,-49]
}
Add(LineBreakEx,8610262,49,140)
{
 Caption="H"
 Type=3
 link(_Data,2953706:Handle,[(55,131)(83,131)])
}
Add(LineBreakEx,5216349,252,182)
{
 Caption="H"
 Type=2
}
Add(LineBreakEx,5762469,189,133)
{
 Caption="H"
 Type=2
}
Add(BASS_Init,1758940,147,91)
{
}
Add(LineBreak,14843466,28,98)
{
 Caption="Close"
 Color=11648992
 link(Out,2953706:doClose,[])
 Primary=[1916937,266,-7]
}