Add(MainForm,1852695,315,266)
{
 Width=500
 Height=388
 Caption="Color"
 link(onCreate,10175769:doEvent1,[])
}
Add(Plotter,16009092,588,343)
{
 Width=492
 Height=361
 Align=5
 Color=12639424
 Name="MyPlott"
 MinH=-1.2
 MaxH=1.2
 LeftMargin=55
}
Add(MultiElementEx,4838984,588,287)
{
 Mode=1
}
BEGIN_SDK
  Add(EditMultiEx,11815499,21,21)
  {
   WorkCount=#5:##add|8:##select|8:doCoordX|8:doCoordY|
   Width=489
   Height=354
   Point(##add)
   Point(##select)
   link(doCoordX,2037588:doValue,[(242,41)(242,69)])
   link(doCoordY,14706676:doEvent1,[(200,48)(200,118)])
  }
  Add(PlotPoints,13792764,245,126)
  {
   Grapher="parent.MyPlott"
   Color=16711680
   Size=2
   Step=1
   MaxValues=1
   Shape=2
   Point(doColor)
  }
  Add(Memory,2037588,252,63)
  {
  }
  Add(PlotPoints,14359602,301,133)
  {
   Grapher="parent.MyPlott"
   Color=16711680
   Step=1
   MaxValues=360
   Shape=2
   Point(doColor)
   link(onAdd,15481524:doNext,[])
  }
  Add(Hub,14706676,210,112)
  {
   link(onEvent1,14359602:doAdd,[(291,118)(291,139)])
   link(onEvent2,13792764:doAdd,[(235,125)(235,132)])
  }
  Add(Random,16398693,112,175)
  {
   Max=16777215
   link(onRandom,286572:doEvent1,[])
  }
  Add(Hub,286572,161,175)
  {
   link(onEvent1,13792764:doColor,[(210,181)(210,146)])
   link(onEvent2,14359602:doColor,[(238,188)])
  }
  Add(Hub,4700202,70,175)
  {
   link(onEvent1,16398693:doRandom,[])
  }
  Add(CounterEx,15481524,350,133)
  {
   Max=50
   link(onNext,13166441:doCase,[])
  }
  Add(Case,13166441,399,133)
  {
   Value=Integer(0)
   link(onTrue,4700202:doEvent1,[(443,146)(443,164)(58,164)(58,181)])
  }
END_SDK
Add(For,3330129,399,287)
{
 End=9
 link(onEvent,4838984:##add,[])
 link(onStop,13310993:doTimer,[(438,300)(438,328)(340,328)(340,342)])
}
Add(Timer,13310993,350,336)
{
 Interval=10
 Enable=1
 link(onTimer,12256603:doNext,[])
}
Add(For,8287706,448,336)
{
 End=9
 link(onEvent,11679816:doEvent1,[])
}
Add(Counter,12256603,399,336)
{
 Max=359
 link(onNext,8287706:doFor,[])
}
Add(MathParse,12135364,539,343)
{
 MathStr="sin(%1 + %2*18)"
 AngleMode=1
 link(onResult,4838984:doCoordY,[(579,349)(579,314)])
 link(X1,12256603:Count,[(545,334)(531,334)(531,389)(405,389)])
}
Add(Hub,11679816,497,336)
{
 link(onEvent1,4838984:##select,[(522,342)(522,300)])
 link(onEvent2,12135364:doCalc,[])
}
Add(Random,9304016,399,231)
{
}
Add(Hub,10175769,364,280)
{
 link(onEvent1,9304016:doRandomize,[(388,286)(388,244)])
 link(onEvent2,3330129:doFor,[])
}

Color2RGB(ReadInteger(_Data,_data_Color,_prop_Color))

#pas
// Добавлен метод в файле PlotSeries.pas, не забывайте описание класса
procedure TPlotSeries._work_doColor;
begin
   FSeries.Color := ToInteger(_Data);
   FGrapher.ReDraw; // А может и не надо...
end;

#pas
procedure TPlotSeries._work_doAdd;
var y,x:real;
begin
   y := ReadReal(_Data, _data_ValueY);
   x := ReadReal(_Data, _data_ValueX);
   if _prop_Step <> 0 then
     if FSeries.Count = 0 then
       x := 0
     else
       x := FSeries.Values[FSeries.Count-1].x + _prop_Step;  
   FSeries.Add(y, x);
   FGrapher.ReDraw;
   _hi_CreateEvent(_Data,@_event_onAdd); // Вот оно - Дерево !!!
end;

#pas
procedure TPlotSeries._work_doColor;
begin
   FSeries.Color := ToInteger(_Data);
end;