anchor.diff:  %% Image font test.
   image_font(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}),
       Im = egd:create(W, H),
       Fgc = egd:color({0,130,0}),
  
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:     GlyphStr4   = "{|}~",                         % Codes 123 -> 126
  
      ok = egd:text(Im, get_point(), Font, GlyphStr1, Fgc),
      Png1 = <<_/binary>> = egd:render(Im, png),
      File1 = filename:join(Dir,"text1.png"),
      ok = egd:save(Png1,File1),
      ct:log("<p>Image:</p><img src=\"~s\" />~n", [File1]),
  
      ok = egd:text(Im, get_point(), Font, NumericStr, Fgc),
      Png2 = <<_/binary>> = egd:render(Im, png),
      File2 = filename:join(Dir,"text2.png"),
      ok = egd:save(Png2,File2),
      ct:log("<p>Image:</p><img src=\"~s\" />~n", [File2]),
  
      ok = egd:text(Im, get_point(), Font, GlyphStr2, Fgc),
      Png3 = <<_/binary>> = egd:render(Im, png),
      File3 = filename:join(Dir,"text3.png"),
      ok = egd:save(Png3,File3),
      ct:log("<p>Image:</p><img src=\"~s\" />~n", [File3]),
  
      ok = egd:text(Im, get_point(), Font, AlphaBigStr, Fgc),
      Png4 = <<_/binary>> = egd:render(Im, png),
      File4 = filename:join(Dir,"text4.png"),
      ok = egd:save(Png4,File4),
      ct:log("<p>Image:</p><img src=\"~s\" />~n", [File4]),
  
      ok = egd:text(Im, get_point(), Font, GlyphStr3, Fgc),
      Png5 = <<_/binary>> = egd:render(Im, png),
      File5 = filename:join(Dir,"text5.png"),
      ok = egd:save(Png5,File5),
      ct:log("<p>Image:</p><img src=\"~s\" />~n", [File5]),
  
      ok = egd:text(Im, get_point(), Font, AlphaSmStr, Fgc),
      Png6 = <<_/binary>> = egd:render(Im, png),
      File6 = filename:join(Dir,"text6.png"),
      ok = egd:save(Png6,File6),
      ct:log("<p>Image:</p><img src=\"~s\" />~n", [File6]),
  
      ok = egd:text(Im, get_point(), Font, GlyphStr4, Fgc),
      Png7 = <<_/binary>> = egd:render(Im, png),
      File7 = filename:join(Dir,"text7.png"),
      ok = egd:save(Png7,File7),
      ct:log("<p>Image:</p><img src=\"~s\" />~n", [File7]),
  
      ok = egd:destroy(Im),
      erase(image_size),
  