func Init()
  if(linked(doPoint) and linked(Point))
    lang(p:int)
    lng.decl_priv_var(p, 'integer')
  end
end

func doPoint(data)
  fvar(X_)
  X_ = X
  if(linked(Point))
    println(p, ' := ', '(' && Y && ' shl 16 + ' && X_ && ')', ';')
    event(onPoint, p)
  else
    event(onPoint, '(' && Y && ' shl 16 + ' && X_ && ')')
  end
end                  

func Point(data)
  if(linked(doPoint))
    return(p)
  else
    return('(' && Y && ' shl 16 + ' && X && ')')
  end
end

#ini
[About]
Version=1.1
Author=Dilma
Mail=hiasm@mail.ru

[Type]
Class=Element
Info=Формирование точки по её координатам
Tab=FTCG

[Property]
X=Координата X точки|1|0
Y=Координата Y точки|1|0

[Methods]
doPoint=|1|1
onPoint=|2|1
Point=Возвращает точку в формате Y*65536 + X|3|1
X=Координата X точки|4|1
Y=Координата Y точки|4|1

func doEvent(_data)
  fvar(i)
  println('case ', Index, ' of')
  for(i = 1; i <= _event_count_; i++)
    if(linked("onEvent" + i))
      print(i - 1, ': ')
      lng.begin()
      if(linked(Data))
        event("onEvent" + i, Data)
      else
        event("onEvent" + i)
      end
      lng.end()
    end
  end
  println('end;')
end