--?     print('('..s(x)..','..s(y)..') '..frag..'('..s(frag_width)..' vs '..s(State.right)..') '..s(line_index)..' vs '..s(State.screen_top1.line)..'; '..s(pos)..' vs '..s(State.screen_top1.pos)..'; bottom: '..s(State.screen_bottom1.line)..'/'..s(State.screen_bottom1.pos))

--?     print('text.draw:', frag, 'at', line_index,pos, 'after', x,y)
    if Text.lt1({line=line_index, pos=pos}, State.screen_top1) then
      -- render nothing
--?       print('skipping', frag)
    else
      -- render fragment
      local frag_width = App.width(frag_text)
      if x + frag_width > State.right then
        assert(x > State.left)  -- no overfull lines