Add(MainForm,2953706,98,154)
{
 Width=839
 Height=617
 Caption="Кодом написать изображения"
 BorderStyle=1
 Position=1
}
Add(Memo,12636262,182,140)
{
 Width=360
 Height=513
 Align=1
 Strings=#6:НАЧАЛ;|24:фон_изображения=красный;|17:Точка_цвет=синий;|12:Точка_x=200;|12:Точка_y=200;|6:КОНЕЦ;|
}
Add(ChildPanel,16515643,98,203)
{
 link(onEvent1,15404124:doModify,[])
 link(onEvent2,4820467:In,[])
}
BEGIN_SDK
  Add(EditMulti,6133974,21,21)
  {
   EventCount=2
   Width=244
   Height=53
  }
  Add(Panel,9727761,70,28)
  {
   Top=513
   Width=833
   Height=75
   Align=4
  }
  Add(Button,5508565,161,28)
  {
   Left=20
   Top=50
   Width=205
   Caption="Отобразить код"
   link(onClick,6133974:onEvent2,[])
  }
  Add(Button,13504556,119,21)
  {
   Left=20
   Top=10
   Width=210
   Caption="Приминить"
   link(onClick,6133974:onEvent1,[])
  }
END_SDK
Add(StrPart,3684892,497,203)
{
 Char="="
 Point(Right)
 link(onSplit,16095526:doEnum,[])
 link(Str,8663781:Var,[(503,191)(487,191)(487,248)(398,248)])
}
Add(MultiStrPart,3874398,238,203)
{
 From=1
 Count=4
 Point(onNotFound)
 link(onSplit,14748106:doEvent1,[])
 link(onNotFound,3840726:In,[])
}
Add(Message,7442667,154,280)
{
 Message="Нужны разделители, иначе код не будет работать!\r\nНапример \r\nНАЧАЛ;\r\nфон_изображения=красный;\r\nТак далее..."
 Caption="Ошибка в коде!"
}
Add(LineBreak,9013396,840,189)
{
 Primary=[4820467,-700,21]
}
Add(LineBreak,5526130,112,280)
{
 link(Out,7442667:doMessage,[])
 Primary=[3840726,175,-70]
}
Add(InfoTip,2039781,98,252)
{
 Info=#11:При ошибки!|
 Width=120
 Height=74
}
Add(StrCase,15404124,182,203)
{
 link(onModify,3874398:doSplit,[])
 link(Str,12636262:Text,[])
}
Add(Hub,14748106,322,203)
{
 link(onEvent1,9679807:doWork1,[])
 link(onEvent2,9679807:doWork2,[])
}
Add(StrList,7819678,553,140)
{
 Strings=#14:синий=16711680|11:красный=255|13:зеленый=65280|12:жёлтый=65535|15:оранжевый=33023|19:фиолетовый=14222473|16:розовый=16744703|8:чёрный=0|14:белый=16777215|14:серый=12632256|
}
Add(ArrayEnum,16095526,567,203)
{
 link(onItem,15944576:doSearch,[])
 link(Array,7819678:Array,[])
}
Add(Position,15944576,609,203)
{
 link(onSearch,11802308:doCompare,[])
 link(Target,3684892:Right,[(622,132)(541,132)(541,247)(503,247)])
}
Add(If_else,11802308,651,203)
{
 Op2=Integer(1)
 link(onTrue,9809072:doSplit,[])
}
Add(StrPart,9809072,700,203)
{
 Char="="
 Point(Right)
 link(onSplit,3026133:doEvent,[])
 link(Str,16095526:Item,[(706,191)(690,191)(690,244)(573,244)])
}
Add(ChanelToIndex,9679807,350,203)
{
 link(onIndex,8663781:doIndex,[])
}
Add(Memory,1344723,441,203)
{
 link(onData,3684892:doSplit,[])
}
Add(GetIndexData,8663781,392,203)
{
 link(onIndex,1344723:doValue,[])
 link(Data1,3874398:Part1,[(398,189)(235,189)(235,252)(244,252)])
 link(Data2,3874398:Part2,[(405,181)(229,181)(229,258)(251,258)])
}
Add(IndexToChanel,3026133,749,203)
{
 Point(Index)
 link(onEvent1,13028006:doEvent,[])
 link(onEvent2,15915698:doEvent,[(785,216)(785,286)])
 link(Index,1344723:Value,[(755,126)(480,126)(480,243)(447,243)])
}
Add(Debug,13028006,805,203)
{
}
Add(Debug,15915698,805,280)
{
}

f=синий
//козе понятно, что f - это фон
x=100 y=100 c=зелёный
x=120 y=200
x=200 y=150
x=210 y=150 c=красный
// а здесь (той-же козе) понятно, что x,y - координаты, а с-это цвет точки
 и что первых три точки зелёные, а четвертая поменяла цвет на красный.