anchor.diff:      ok = bitmap_point_has_color(Bitmap, {W,H}, Pt2, Fgc),
       ok = bitmap_point_has_color(Bitmap, {W,H}, Pt1, Fgc),
   
  -    <<_/binary>> = egd:render(Im, raw_bitmap, [{render_engine, alpha}]),
  +    Bin = <<_/binary>> = egd:render(Im, raw_bitmap, [{render_engine, alpha}]),
  +    Png = egd_png:binary(W,H,Bin),
  +    File = filename:join(Dir,"image_shape.png"),
  +    ok = egd:save(Png,File),
  +    ct:log("<p>Image:</p><img src=\"~s\" />~n", [File]),
   
       ok = egd:destroy(Im),
  +
       erase(image_size),
       ok.
   
   %% Image shape API test.
   image_primitives(Config) when is_list(Config) ->
       {W,H} = get_size(proplists:get_value(max_size, Config)),
  +    Dir = proplists:get_value(priv_dir, Config),
       put(image_size, {W,H}),
   
       Im0 = egd_primitives:create(W, H),
  
positive.code: %% Image shape API test.
  image_shape(Config) when is_list(Config) ->
      {W,H} = get_size(proplists:get_value(max_size, Config)),
      put(image_size, {W,H}),
      Im = egd:create(W, H),
  
  
negative.code:             {error, {Other,{CR,CG,CB}}}
      end.
  
  binary_is_png_compliant(PngBin) ->
      {Bin, _} = split_binary(PngBin, 10),
      List = binary_to_list(Bin),
  