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