131
131
render_glyph(W, H, X0, Y0, Xm, Bitmask) ->
132
132
render_glyph(W,{0,H},X0,Y0,Xm,Bitmask, []).
133
133
render_glyph(_W, {H,H}, _X0, _Y0, _Xm, _Bitmask, Out) -> Out;
134
render_glyph(W, {Hi,H}, X0, Y0,Xm, Bitmask, LSs) ->
134
render_glyph(W, {Hi,H}, X0, Y0,Xm, Bitmask , LSs) ->
135
135
N = ((W+7) div 8),
137
137
<<_:O/binary, Submask/binary>> = Bitmask,
138
LS = render_glyph_horizontal(
138
LS = render_glyph_horizontal(
139
139
Submask, % line glyph bitmask
140
140
{down, W - 1}, % loop state
143
143
render_glyph(W,{Hi+1,H},X0,Y0,Xm, Bitmask, [LS|LSs]).
145
render_glyph_horizontal(Value, {Pr, Px}, 0, Spans) ->
145
render_glyph_horizontal(Value, {Pr, Px}, 0, Spans) ->
146
146
Cr = bit_spin(Value, 0),
148
148
{up , up } -> % closure of interval since its last