diff options
| author | Erlang/OTP <[email protected]> | 2009-12-04 06:36:15 +0100 |
|---|---|---|
| committer | Erlang/OTP <[email protected]> | 2009-12-04 06:36:15 +0100 |
| commit | 5bf73e1dc401a205e02432d3e8ebedde0ad7f117 (patch) | |
| tree | e22d4eadf604434fea9e2d53e72053cc7cfe2ccb /lib/percept/src/egd_font.erl | |
| parent | 80afa01bca08e875fca796f277ec4be0cc71c387 (diff) | |
| parent | 998ccfc3dbef52b2470c73a1a03d2d0b95a3acd7 (diff) | |
| download | otp-5bf73e1dc401a205e02432d3e8ebedde0ad7f117.tar.gz otp-5bf73e1dc401a205e02432d3e8ebedde0ad7f117.tar.bz2 otp-5bf73e1dc401a205e02432d3e8ebedde0ad7f117.zip | |
Merge branch 'egil/misc-egd' into ccase/r13b04_dev
Diffstat (limited to 'lib/percept/src/egd_font.erl')
| -rw-r--r-- | lib/percept/src/egd_font.erl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lib/percept/src/egd_font.erl b/lib/percept/src/egd_font.erl index 2b2a89a0a9..5f0d56dd90 100644 --- a/lib/percept/src/egd_font.erl +++ b/lib/percept/src/egd_font.erl @@ -131,18 +131,18 @@ parse_glyph({Code,W,H,X0,Y0,Xm,Offset}, Bitmasks) -> render_glyph(W, H, X0, Y0, Xm, Bitmask) -> render_glyph(W,{0,H},X0,Y0,Xm,Bitmask, []). render_glyph(_W, {H,H}, _X0, _Y0, _Xm, _Bitmask, Out) -> Out; -render_glyph(W, {Hi,H}, X0, Y0,Xm, Bitmask, LSs) -> +render_glyph(W, {Hi,H}, X0, Y0,Xm, Bitmask , LSs) -> N = ((W+7) div 8), O = N*Hi, <<_:O/binary, Submask/binary>> = Bitmask, - LS = render_glyph_horizontal( + LS = render_glyph_horizontal( Submask, % line glyph bitmask {down, W - 1}, % loop state W - 1, % Width []), % Linespans render_glyph(W,{Hi+1,H},X0,Y0,Xm, Bitmask, [LS|LSs]). -render_glyph_horizontal(Value, {Pr, Px}, 0, Spans) -> +render_glyph_horizontal(Value, {Pr, Px}, 0, Spans) -> Cr = bit_spin(Value, 0), case {Pr,Cr} of {up , up } -> % closure of interval since its last @@ -173,4 +173,3 @@ bit_spin(Value, Cx) -> 1 -> up; 0 -> down end. - |