anchor.diff:  		])),
   		ElementFields = g_element_fields(),
   		{BasicFields, ElementFields}
  -	end, begin ?debugMsg("++"), rpgb_prop:uniquify(Basic ++ Element) end).
  +	end, begin
  +		rpgb_prop:uniquify(Basic ++ Element)
  +	end).
   
   g_element_fields() ->
   	?LET(Element, oneof(['rect', 'circle', 'ellipse', 'line', 'polyline', 'polygon', 'path']), g_make_element_attrs(Element)).
  
positive.code: g_path_segment_data(HV) when HV =:= $h; HV =:= $H; HV =:= $v; HV =:= $V ->
  	?LET(Moves, list(g_xy()),
  		begin
  			?debugMsg("++"),
  			string:join([[HV]] ++ [integer_to_list(M) || M <- Moves], " ")
  		end);
  g_path_segment_data(C) when C =:= $c; C =:= $C ->
  	?LET(Curves, list({g_point(), g_point(), g_point()}),
  		begin
  			Curves2 = lists:flatten([[A,B,C,D,E,F] || {{A,B},{C,D},{E,F}} <- Curves]),
  			?debugMsg("++"),
  			string:join([[C]] ++ [integer_to_list(C) || C <- Curves2], " ")
  		end);
  g_path_segment_data(S) when S =:= $s; S =:= $S; S =:= $q; S =:= $Q ->
  	?LET(Curves, list({g_point(), g_point()}),
  		begin
  			Curves2 = lists:flatten([[A,B,C,D] || {{A,B},{C,D}} <- Curves]),
  			?debugMsg("++"),
  			string:join([[S]] ++ [integer_to_list(C) || C <- Curves2], " ")
  		end);
  g_path_segment_data(A) when A =:= $a; A =:= $A ->
  
negative.code: 		begin
  			List = tuple_to_list(Params),
  			List2 = [integer_to_list(N) || N <- List],
  			string:join([[A]] ++ List2, " ")
  		end).
  
  