Module: Deplate::Regions::Img_R

Includes:

Img_standard

Defined in:

lib/deplate/regions.rb

Instance Method Summary

• #check_arguments(type, arr) ⇒ Object
• #prepare(accum, out, sfx) ⇒ Object
• #run(r, out, sfx) ⇒ Object

Instance Method Details

#check_arguments(type, arr) ⇒ Object

# File 'lib/deplate/regions.rb', line 632

def check_arguments(type, arr)
    rv = []
    for a in arr
        v = @args["%s_%s" % [type, a]] || @args["_%s" % a]
        rv << "%s=%s" % [a, v] if v
    end
    if rv.empty?
        return nil
    else
        rv.unshift(nil)
        return rv.join(", ")
    end
end

#prepare(accum, out, sfx) ⇒ Object

# File 'lib/deplate/regions.rb', line 589

def prepare(accum, out, sfx)
    pre  = []
    post = []

    # trellis.device(jpeg, file="plotTrouble2.jpg",
    # theme = col.whitebg(),height=480,width=480)
    # trellis.last.object()
    # dev.off() 
    case sfx
    when "png"
        args = check_arguments("png", ["width", "height", "pointsize", 
                               "bg"])
        pre << %{png(filename="#{out}"%s)} % args
    when "jpg"
        args = check_arguments("png", ["width", "height", "pointsize", 
                               "bg", "pointsize", "quality", "res"])
        pre << %{jpg(filename="#{out}"%s)} % args
    when "bmp"
        args = check_arguments("png", ["width", "height", "pointsize", 
                               "bg", "pointsize", "res"])
        pre << %{bmp(filename="#{out}"%s)} % args
    when "pdf"
        args = check_arguments("pdf", ["width", "height", "family", 
                               "title", "encoding", "bg", "fg", 
                               "pointsize"])
        pre << %{pdf(file="#{out}", onefile=TRUE%s)} % args
    when "ps"
        args = check_arguments("ps", ["width", "height", "family", 
                               "title", "encoding", "bg", "fg", 
                               "pointsize", "horizontal"])
        pre << %{postscript(file="#{out}", onefile=TRUE, paper="special"%s)} % args
    when "wmf"
        args = check_arguments("wmf", ["width", "height", "pointsize"])
        pre << %{win.metafile(filename="#{out}"%s)} % args
    else
        log(["Unknown suffix", sfx], :error)
        raise
    end
    post << "dev.off()"
    post << "q(runLast=FALSE)"
    return (pre + accum + post).flatten
end

#run(r, out, sfx) ⇒ Object

# File 'lib/deplate/regions.rb', line 646

def run(r, out, sfx)
    Deplate::Regions::R.run(self, r, nil)
end