bfr.lua

--forms
  local bfr={}
  bfr.bits={1,8,2,16,4,32,64,128}
  bfr.x=0  bfr.y=0
print('45677654')

  function new(xdim,ydim)
bfr.max_x=xdim
 bfr.max_y=ydim
return bfr


  end

  function line(x,y,colorB,colorF)
    local addx=(y-bfr.y)/(x-bfr.x)
    local addy=(x-bfr.x)/(y-bfr.y)
   while bfr.y~=y and bfr.x~=x do drawLine(addx,addy,x,y,colorB,colorF) end
    draw()
  end

   function drawLine(addx,addy,x,y,colorB,colorF)
   local x=bfr.x/2  local y=bfr.y/4 local bit=bfr.x%2+bfr.y%4*2

   if bfr[x]==nil then bfr[x]={} else
     if bfr[x][y]==nil then bfr[x][y]={}
      bfr[x][y].symbol=bits[bit]
      bfr[x][y].back =colorB
      bfr[x][y].foreg=colorF
      else
     bfr[x][y].symbol=bit32.bor(bfr[x][y].symbol, bits[bit])
     bfr[x][y].back=(bfr[x][y].back+colorB)/2
     bfe[x][y].foreg=(bfr[x][y].foreg+colorF)/2
     end
   end
   bfr.x=bfr.x+addx
   bfr.y=bfr.y+addy
 end

  function draw()
   end