bottomfeeder.rb

module Auspice
  
  class BottomFeeder
    attr_accessor :x, :y, :z, :in, :out
    def initialize(size,w,h)
      @font = Gosu::Font.new(size,:name => DAT+'ttfs/ATComputer.ttf')
      @rows = ((h / size)+size)
      @cols = (w / @font.text_width('_',1))
      @size = size
      @dtext = ['']
      
      @in = ''
      @out = ''
      
      @tcolor = 0xee00ffff
      
      @x = 0
      @y = 0
      @z = 0
      @w = w
      @h = h
      @pos = 0
      @dy = 0
      @dh = @h
    end
    
    def update
      if a = @in[@pos]
        #puts "#{a},  #{a.class}, #{a.length}"
        @dtext[-1] << a
        @pos += 1
        if @dtext[-1].size >= @cols
        
          if x = @dtext[-1].rindex(' ')
            @dtext << (@dtext[-1][(x+1)..-1])
            @dtext[-2] = @dtext[-2][0..x]
          else
            @dtext << ['']
          end
          
          @dh = @h + @size
          @dy = -1
        
        end
        
        if a == "\n"
          @dtext << ['']
          @dh = @h + @size
          @dy = -1
        end
        
        if @dh <= @h
          @dy = 0
        end
        
        @dh += @dy
      end
    end
    
    def draw
      Gosu.draw_quad(@x,@y,0x4000eeaa,@x+@w,@y,0x4000aaee,@x+@w,@y+@h,0x4000aaee,@x,@y+@h,0x40eeaaee,@z,:additive)
      Gosu.clip_to(@x,@y,@w,@h) {
        ([@rows,@dtext.size].min-1).times {|l|
          @font.draw(@dtext[-(l+1)], @x, @y+(@dh-(@size*(l+1))), @z, 1, 1, @tcolor, :additive)
        }
      }
    end
  end
  
end