Layout Front Set (Graph + Panel)

// Layout Front Set
// v 2021-11-10  jjw
// create a layout with topmost figure to left, topmost panel to right
// respects aspect ratios of graph and panel, override input to have graph fill its region
// puts stamp of information at bottom right
// requires Igor Pro 7 or greater

// *** change these for your preferred layout page size
// US letter page in landscape with 1/4 in margin
Static Constant pgwidth = 792
Static Constant pgheight = 612
Static Constant pgmargin = 18
// set the fraction for the graph on the page left side
Static Constant gfrac = 0.75

Menu "Macros"
    "Layout Front Set",/Q, layout_FrontSet()
end

// directly create layout
Function layout_FrontSet()

    string gname, pname
   
    gname = WinName(0,1,1)
    pname = WinName(0,64,1)
    layout_results(gname, pname)
   
    return 0
end

// function available to call from other routines
// set gfill = 1 to have graph fill its region
Function layout_results(string graphname, string panelname, [variable gfill])

    // parameters
   
    variable gwidth, gheight, pwidth, pheight
    variable grwidth, prwidth
    variable gratio, pratio, wthratio
    variable toffset, tsize
   
    // sizes of regions for appending
   
    grwidth = gfrac*(pgwidth-2*pgmargin)
    prwidth = (1 - gfrac)*(pgwidth-3*pgmargin)
   
    gratio = grwidth/(pgheight-2*pgmargin)
    pratio = prwidth/(pgheight-2*pgmargin-4*pgmargin)
   
    // validity checks  and window sizes
   
    DoWindow/F $graphname
    if (v_flag == 0)
        return -1
    endif  
    GetWindow/Z $graphname wsize
    gwidth = V_right - V_left; gheight = V_bottom - V_top
    //print gwidth, gheight
   
    DoWindow/F $panelname
    if (v_flag == 0)
        return -1
    endif
    SavePICT/SNAP=1/O/WIN=$panelname/P=_PictGallery_/E=-5 as "PanelSnapShot"
    GetWindow/Z $panelname wsize
    pwidth = V_right - V_left; pheight = V_bottom - V_top
       
    // strings for stamp
   
    string enstr, strdt, strsys, strprbx
   
    enstr = IgorInfo(1) + "\r"
    strdt = date() + " " + time()
    strsys = IgorInfo(7) + " : " + IgorInfo(2) 
    strprbx = "\\Z10\\JR" + enstr + strsys
    strprbx += "\r" + strdt
   
    // remove existing layout window to refresh
   
    KillWindow/Z SnapshotResultsLayout
   
    NewLayout/K=1/W=(30,50,600,500) as "Results Layout"
    DoWindow/C SnapshotResultsLayout
    LayoutPageAction size=(pgwidth,pgheight),margins=(pgmargin,pgmargin,pgmargin,pgmargin)
    ModifyLayout mag=0.5
   
    // append graph
   
    if (ParamIsDefault(gfill))
        wthratio = gwidth/gheight
        if (wthratio > gratio)
            // too wide, shrink height by ratio
            tsize = gheight*(grwidth/gwidth)
            toffset = 2*pgmargin
            AppendLayoutObject/F=0/T=0/R=(pgmargin,toffset,grwidth+pgmargin,tsize+toffset) Graph $graphname
            //print "too wide", wthratio, grwidth/tsize
        else
            // too tall, shrink width by ratio
            toffset = pgmargin
            tsize = gwidth*(pgheight-2*pgmargin)/gheight
            AppendLayoutObject/F=0/T=0/R=(pgmargin,toffset,tsize+pgmargin,pgheight-pgmargin) Graph $graphname
            //print "too tall", wthratio, tsize/(pgheight-2*pgmargin)
        endif
    else
        AppendLayoutObject/F=0/T=0/R=(pgmargin,pgmargin,grwidth+pgmargin,pgheight-2*pgmargin) Graph $graphname
    endif
   
    // append panel
   
    wthratio = pwidth/pheight
    SetDrawLayer ProgBack
    if (wthratio > pratio)
        //print "wide panel", pwidth, pheight, wthratio, pratio
        toffset = pratio*pheight - 2*pgmargin
        pratio = prwidth/pwidth
    else
        //print "tall panel", pwidth, pheight
        toffset = pgmargin
        pratio = (pgheight-2*pgmargin-4*pgmargin)/pheight
    endif  
    DrawPICT grwidth+pgmargin,toffset,pratio,pratio,PanelSnapShot
   
    // add text stamp in draw layer (keeping it "immutable")
   
    DrawText grwidth+2*pgmargin, pgheight-1.5*pgmargin, strprbx
    SetDrawLayer UserFront

    return 0
end