HUD Groups

HudOutput
    parent_type = /HudLabel

    var text_log[0]  //  a text log
    var lines = 0    //  the number of available lines
    
    proc
        add_text(text)
            var wrap_length =   __width - __padding * 2
            var newline     =   "\n"
            var caption     =   ""
            
            //  Calculate the available lines
            lines = round(__height / font.line_height)
            
            //  Wrap the text and add each line to the text_log
            text_log += break_lines(font.wrap_text(text, wrap_length))
            
            //  Trim off the top
            text_log.len > lines && text_log.Cut(1, text_log.len - lines + 1)
            
            //  Form the end result
            for(var/t in text_log)
                caption += t + newline
            
            //  Set the caption
            caption(caption)

proc
    break_lines(text)
        var newline =   "\n"
        var n       =   findtext(text, newline)
        var lines[0]
        while(n)
            lines   +=  copytext(text, 1, n)
            text    =   copytext(text, n + 1)
            n       =   findtext(text, newline)
            if(!n)  lines += text
        return list() + (lines.len && lines || text)

HudLabel
    proc
        caption(c)

            __caption = c

            c = font.cut_text(c, __width - __padding * 2)   // <--- This line needs to be omitted
                                    // because I do my own fitting

            caption.set_text(c)
            __caption_width = font.text_width(c)

            __set()