anchor.diff:  	?LET({Point1, Points},
   		{g_point(), list(g_point())},
   		begin
  -			?debugMsg("++"),
   			list_to_binary([integer_to_list(X) ++ [$,] ++ integer_to_list(Y) ++ " " || {X,Y} <- [Point1 | Points]])
   		end).
   
  
positive.code: 	?LET(Points,
  		list(g_point()),
  		begin
  			?debugMsg("++"),
  			lists:flatten([ML, $ ] ++ [integer_to_list(X) ++ " " ++ integer_to_list(Y) || {X,Y} <- Points])
  		end);
  g_path_segment_data(Z) when Z =:= $z; Z =:= $Z ->
  
negative.code: 		begin
  			List = tuple_to_list(Params),
  			List2 = [integer_to_list(N) || N <- List],
  			string:join([[A]] ++ List2, " ")
  		end).
  
  