Method: PDF_Chinese#MBWrite

Defined in:

lib/chinese.rb

#MBWrite(h, txt, link) ⇒ Object

# File 'lib/chinese.rb', line 225

def MBWrite(h,txt,link)
    # Multi-byte version of Write()
    cw=@CurrentFont['cw']
    w=@w-@rMargin-@x
    wmax=(w-2*@cMargin)*1000/@FontSize
    s=txt.sub("\r", ' ')
    nb=s.length
    sep=-1
    i=0
    j=0
    l=0 
    nl=1
    while i<nb
        # Get next character
        c=s[i]
        # Check if ASCII or MB
        ascii = false
        if c < 128
            ascii = true
        end
        if c.chr=="\n"
            #Explicit line break
            Cell(w,h,s[j..i-j],0,2,'',0,link)
            i+=1
            sep=-1
            j=i
            l=0
            if nl==1
                @x=@lMargin
                w=@w-@rMargin-@x
                wmax=(w-2*@cMargin)*1000/@FontSize
            end
            nl+=1
            next
        end
        sep=i if not ascii or c.chr==' '
        if ascii
            l += cw[c.chr]
        else
            l += 1000
        end
        if l>wmax
            # Automatic line break
            if sep==-1 or i==j
                if @x>@lMargin
                    # Move to next line
                    @x=@lMargin
                    @y+=h
                    w=@w-@rMargin-@x
                    wmax=(w-2*@cMargin)*1000/@FontSize
                    i+=1
                    nl+=1
                    next
                end
                i+=ascii ? 1 : 2 if i==j
                Cell(w,h,s[j..i-j],0,2,'',0,link)
            else
                Cell(w,h,s[j..sep-j],0,2,'',0,link)
                i=(s[sep]==' ') ? sep+1 : sep
            end
            sep=-1
            j=i
            l=0
            if nl==1
                @x=@lMargin
                w=@w-@rMargin-@x
                wmax=(w-2*@cMargin)*1000/@FontSize
            end
            nl+=1
        else
            i+=ascii ? 1 : 2
        end
    end

    #Last chunk
    if i!=j
        Cell(l/1000*@FontSize,h,s[j..i-j],0,0,'',0,link)
    end
end