anchor.diff:  %% Image shape API test.
   image_shape(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),
   
  
positive.code:     GlyphStr4   = "{|}~",                         % Codes 123 -> 126
  
      ok = egd:text(Im, get_point(), Font, GlyphStr1, Fgc),
      <<_/binary>> = egd:render(Im, png),
  
      ok = egd:text(Im, get_point(), Font, NumericStr, Fgc),
      <<_/binary>> = egd:render(Im, png),
  
      ok = egd:text(Im, get_point(), Font, GlyphStr2, Fgc),
      <<_/binary>> = egd:render(Im, png),
  
      ok = egd:text(Im, get_point(), Font, AlphaBigStr, Fgc),
      <<_/binary>> = egd:render(Im, png),
  
      ok = egd:text(Im, get_point(), Font, GlyphStr3, Fgc),
      <<_/binary>> = egd:render(Im, png),
  
      ok = egd:text(Im, get_point(), Font, AlphaSmStr, Fgc),
      <<_/binary>> = egd:render(Im, png),
  
      ok = egd:text(Im, get_point(), Font, GlyphStr4, Fgc),
      <<_/binary>> = egd:render(Im, png),
  
      ok = egd:destroy(Im),
      erase(image_size),
  
negative.code: %% 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}),
  