← Back to branch summary

~rdoering/ubuntu/karmic/erlang/fix-535090

« back to all changes in this revision

Viewing changes to lib/percept/test/egd_SUITE.erl

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2009-02-15 16:42:52 UTC
  • mfrom: (3.1.2 squeeze)
  • Revision ID: james.westby@ubuntu.com-20090215164252-q5x4rcf8a5pbesb1
Tags: 1:12.b.5-dfsg-2
Upload to unstable after lenny is released.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/percept/test/egd_SUITE.erl
144
144
    ?line Filename = filename:join([code:priv_dir(percept),"fonts","6x11_latin1.wingsfont"]),
145
145
    ?line Font = egd_font:load(Filename),
146
146
   
147
 
    % textit
 
147
    % simple text
148
148
    ?line ok = egd:text(Im, get_point(), Font, "Hello World", Fgc),
149
 
    
 
149
    ?line <<_/binary>> = egd:render(Im, png),
 
150
    
 
151
    GlyphStr1   = " !\"#$%&'()*+,-./",            % Codes  32 ->  47
 
152
    NumericStr  = "0123456789",                   % Codes  48 ->  57
 
153
    GlyphStr2   = ":;<=>?@",                      % Codes  58 ->  64
 
154
    AlphaBigStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ",   % Codes  65 ->  90
 
155
    GlyphStr3   = "[\\]^_`",                      % Codes  91 ->  96
 
156
    AlphaSmStr  = "abcdefghijklmnopqrstuvwxyz",   % Codes  97 -> 122
 
157
    GlyphStr4   = "{|}~",                         % Codes 123 -> 126
 
158
 
 
159
    ?line ok = egd:text(Im, get_point(), Font, GlyphStr1, Fgc),
 
160
    ?line <<_/binary>> = egd:render(Im, png),
 
161
 
 
162
    ?line ok = egd:text(Im, get_point(), Font, NumericStr, Fgc),
 
163
    ?line <<_/binary>> = egd:render(Im, png),
 
164
 
 
165
    ?line ok = egd:text(Im, get_point(), Font, GlyphStr2, Fgc),
 
166
    ?line <<_/binary>> = egd:render(Im, png),
 
167
 
 
168
    ?line ok = egd:text(Im, get_point(), Font, AlphaBigStr, Fgc),
 
169
    ?line <<_/binary>> = egd:render(Im, png),
 
170
    
 
171
    ?line ok = egd:text(Im, get_point(), Font, GlyphStr3, Fgc),
 
172
    ?line <<_/binary>> = egd:render(Im, png),
 
173
 
 
174
    ?line ok = egd:text(Im, get_point(), Font, AlphaSmStr, Fgc),
 
175
    ?line <<_/binary>> = egd:render(Im, png),
 
176
    
 
177
    ?line ok = egd:text(Im, get_point(), Font, GlyphStr4, Fgc),
 
178
    ?line <<_/binary>> = egd:render(Im, png),
 
179
 
150
180
    ?line ok = egd:destroy(Im),
151
181
    erase(image_size),
152
182
    ok.