Small Panel to Set a Graph's Size, Margins, Magnifcation and Font Size

#pragma TextEncoding = "UTF-8" #pragma rtGlobals=3 // Use modern global access method and strict wave access. #pragma version = 1.22 // https://www.wavemetrics.com/user/chozo // a small panel to modify a graph's size, margin, font and magnification - ver. 2020-07-10 // always works with the top graph and updates automatically upon activation of the panel Menu "Graph" "Graph Size and Margins Panel ...", /Q, MakeGraphSizePanel() End //################################ Function MakeGraphSizePanel() if (WinType("GraphSizePanel")) DoWindow/F GraphSizePanel return 0 endif if (ItemsinList(WinList("*", ";", "WIN:1")) == 0) Abort "No graphs available. Create a graph first." endif NewPanel/K=1/W=(500,60,810,285)/N=GraphSizePanel as "Set Graph Size" ModifyPanel /W=GraphSizePanel ,fixedSize= 1 ,noEdit=1 SetWindow GraphSizePanel hook(UpdateHook)=SizePanelUpdateFunc SetDrawLayer UserBack SetDrawEnv linethick= 2,fillpat= 0 DrawRect 20,10,287,195 SetDrawEnv linethick= 2,dash= 3,fillpat= 0 DrawRect 50,40,255,165 SetDrawEnv linethick= 2,linefgc= (0,0,65535),arrow= 3 DrawLine 53,70,252,70 SetDrawEnv linethick= 2,linefgc= (0,0,65535),arrow= 3 DrawLine 205,43,205,163 SetDrawEnv linethick= 2,linefgc= (1,39321,19939),arrow= 3 DrawLine 28,135,280,135 SetDrawEnv linethick= 2,linefgc= (1,39321,19939),arrow= 3 DrawLine 105,13,105,193 SetVariable VLeftMargin ,pos={5 ,95} ,value=_NUM:0 SetVariable VBottomMargin ,pos={127 ,170} ,value=_NUM:0 SetVariable VRightMargin ,pos={245 ,95} ,value=_NUM:0 SetVariable VTopMargin ,pos={127 ,15} ,value=_NUM:0 SetVariable VGraphHeight ,pos={75 ,95} ,value=_NUM:0 SetVariable VPlotWidth ,pos={125 ,60} ,value=_NUM:0 SetVariable VGraphWidth ,pos={125 ,125} ,value=_NUM:0 SetVariable VPlotHeight ,pos={175 ,95} ,value=_NUM:0 SetVariable VMagnification ,pos={215 ,170} ,value=_NUM:0 SetVariable VGraphFont ,pos={37 ,170} ,value=_NUM:0 ModifyControlList ControlNameList("GraphSizePanel",";","*") ,limits={0,2000,1} ,size={60.00,18.00} ,bodyWidth=60 ,proc=SizeVarControl SetVariable VMagnification ,title="exp:" ,limits={0,8,0} ,bodyWidth=40 ,format="%g x" SetVariable VGraphFont ,title="font:" ,limits={0,100,0} ,bodyWidth=40 TitleBox GraphTitle ,pos={25 ,15} ,size={60,23} ,title="none" ,frame=0 TitleBox SwapTitle ,pos={140 ,80} ,size={60,23} ,title="\JCswap:" ,frame=0 CheckBox SwapAxes ,pos={148 ,98} ,size={23,23} ,title="" ,proc=SwapGraphControl ,value=0 CheckBox KeepAutoMode ,pos={12 ,203} ,size={23,23} ,title="keep auto mode" ,value=1 ,help={"Automatically resets the mode to Auto after changing the size."} PopupMenu SizeUnit ,pos={190 ,15} ,size={70,20} ,title="unit: " ,proc=SizePopControl PopupMenu SizeUnit ,mode=1 ,popvalue="points" ,value= #"\"points;inches;cm\"" Button CopyAllButton ,pos={120 ,200} ,size={85,20} ,title="copy values" ,proc=CopyPasteControl Button PasteAllButton ,pos={215 ,200} ,size={85,20} ,title="paste copied" ,proc=CopyPasteControl FetchLatestGraphSizeValues() End //################################ Function SizePopControl(s) : PopupMenuControl STRUCT WMPopupAction &s if (s.eventCode != 2) return 0 endif String CtrlList = ControlNameList("GraphSizePanel",";","V*") CtrlList = RemoveFromList("VMagnification;VGraphFont;",CtrlList) Variable Increment = 1 if (s.popNum == 2) // in inches Increment = 0.02 elseif (s.popNum == 3) // in cm Increment = 0.05 endif ModifyControlList CtrlList ,win=GraphSizePanel ,limits={0,2000,Increment} FetchLatestGraphSizeValues() End //################################ Function SwapGraphControl(cb) : CheckBoxControl STRUCT WMCheckboxAction& cb if (cb.eventCode != 2) return 0 endif if (ItemsinList(WinList("*", ";", "WIN:1")) == 0) // make sure there is a graph to work with return 0 endif String gName = StringFromList(0,WinList("*", ";", "WIN:1")) ModifyGraph/W=$gName swapXY=cb.checked FetchLatestGraphSizeValues() End //################################ Function CopyPasteControl(s) : ButtonControl STRUCT WMButtonAction &s if (s.eventCode != 2) return 0 endif String CtrlList = "", CtrlName = "", ValList = "", Others Variable i, Value = 0 StrSwitch(s.ctrlName) case "CopyAllButton": CtrlList = ControlNameList("GraphSizePanel", ";", "V*") CtrlList = RemoveFromList("VGraphWidth;VGraphHeight;",CtrlList) for (i = 0; i < ItemsInList(CtrlList); i += 1) CtrlName = StringFromList(i,CtrlList) ControlInfo/W=GraphSizePanel $CtrlName ValList += num2str(V_Value) + ";" endfor Others = "" ControlInfo/W=GraphSizePanel SwapAxes Others += "SwapAxes:" + num2str(V_Value) + ";" ControlInfo/W=GraphSizePanel SizeUnit Others += "SizeUnit:" + num2str(V_Value) + ";" SetWindow GraphSizePanel ,userdata(CtrlSet)=CtrlList SetWindow GraphSizePanel ,userdata(ValSet)=ValList SetWindow GraphSizePanel ,userdata(OtherSet)=Others break case "PasteAllButton": CtrlList = GetUserData("GraphSizePanel", "", "CtrlSet") ValList = GetUserData("GraphSizePanel", "", "ValSet") Others = GetUserData("GraphSizePanel", "", "OtherSet") if (strlen(CtrlList) == 0) break endif CheckBox SwapAxes ,win=GraphSizePanel ,value=str2num(StringByKey("SwapAxes", Others)) PopupMenu SizeUnit ,win=GraphSizePanel ,mode=str2num(StringByKey("SizeUnit", Others)) for (i = 0; i < ItemsInList(CtrlList); i += 1) CtrlName = StringFromList(i,CtrlList) Value = str2num(StringFromList(i,ValList)) SetVariable $CtrlName ,win=GraphSizePanel ,value=_NUM:Value ExecuteVarChange(CtrlName, Value) endfor break EndSwitch FetchLatestGraphSizeValues() End //################################ Function SizeVarControl(struct WMSetVariableAction & s) : SetVariableControl if (s.eventCode != 1 && s.eventCode != 2) return 0 endif ExecuteVarChange(s.ctrlName, s.dval) End //################################ Function ExecuteVarChange(String ctrlName, Variable val) if (ItemsinList(WinList("*", ";", "WIN:1")) == 0) // make sure there is a graph to work with return 0 endif String gName = StringFromList(0,WinList("*", ";", "WIN:1")) Variable Modifier = 1 ControlInfo/W=GraphSizePanel SizeUnit if (V_Value == 2) // in inches Modifier = 72 elseif (V_Value == 3) // in cm Modifier = 72/2.54 endif ControlInfo/W=GraphSizePanel KeepAutoMode Variable Auto = V_Value StrSwitch (ctrlName) case "VLeftMargin": ModifyGraph/W=$gName margin(left) = val*Modifier break case "VBottomMargin": ModifyGraph/W=$gName margin(bottom) = val*Modifier break case "VRightMargin": ModifyGraph/W=$gName margin(right) = val*Modifier break case "VTopMargin": ModifyGraph/W=$gName margin(top) = val*Modifier break case "VGraphHeight": ControlInfo/W=GraphSizePanel VTopMargin Variable mTop = V_Value ControlInfo/W=GraphSizePanel VBottomMargin Variable mBot = V_Value Variable pHeight = val-mTop-mBot if (val == 0) ModifyGraph/W=$gName margin(top) = 0 ModifyGraph/W=$gName margin(bottom) = 0 ModifyGraph/W=$gName height = 0 elseif (pHeight > 0) ModifyGraph/W=$gName height = pHeight*Modifier if (Auto) DoUpdate/W=$gName ModifyGraph/W=$gName height = 0 endif endif break case "VPlotWidth": ModifyGraph/W=$gName width = val*Modifier if (Auto) DoUpdate/W=$gName ModifyGraph/W=$gName width = 0 endif break case "VGraphWidth": ControlInfo/W=GraphSizePanel VLeftMargin Variable mLeft = V_Value ControlInfo/W=GraphSizePanel VRightMargin Variable mRight = V_Value Variable pWidth = val-mLeft-mRight if (val == 0) ModifyGraph/W=$gName margin(left) = 0 ModifyGraph/W=$gName margin(right) = 0 ModifyGraph/W=$gName width = 0 elseif (pWidth > 0) ModifyGraph/W=$gName width = pWidth*Modifier if (Auto) DoUpdate/W=$gName ModifyGraph/W=$gName width = 0 endif endif break case "VPlotHeight": ModifyGraph/W=$gName height = val*Modifier if (Auto) DoUpdate/W=$gName ModifyGraph/W=$gName height = 0 endif break case "VMagnification": Variable Mag = val == 1 ? 0 : val ModifyGraph/W=$gName expand = Mag break case "VGraphFont": ModifyGraph/W=$gName gfSize = val break EndSwitch DoUpdate/W=$gName FetchLatestGraphSizeValues() end //################################ panel update helper function ################################## Function SizePanelUpdateFunc(s) STRUCT WMWinHookStruct &s If (s.eventCode == 0) // Activate FetchLatestGraphSizeValues() // fetch graph properties on panel activation return 1 endif return 0 // 0 if nothing done, else 1 End //################################ Function FetchLatestGraphSizeValues() if (ItemsinList(WinList("*", ";", "WIN:1")) == 0) // make sure there is a graph to work with TitleBox GraphTitle ,win=GraphSizePanel ,title="No Graph" return 0 endif String gName = StringFromList(0,WinList("*", ";", "WIN:1")) Variable Modifier = 1 ControlInfo/W=GraphSizePanel SizeUnit if (V_Value == 2) // in inches Modifier = 1/72 elseif (V_Value == 3) // in cm Modifier = 2.54/72 endif // values from getwindow (sometimes off by a fraction?) GetWindow $gName gsize //print V_left, V_right, V_top, V_bottom // debug Variable gLeft = V_left Variable gTop = V_top Variable gWidth = V_right-V_left Variable gHeight = V_bottom-V_top GetWindow $gName psize //print V_left, V_right, V_top, V_bottom // debug Variable mLeft = round(V_left - gLeft) Variable mTop = round(V_top - gTop) Variable mRight = round(gWidth - V_right) Variable mBottom = round(gHeight - V_bottom) Variable pWidth = round(V_right - V_left) Variable pHeight = round(V_bottom - V_top) gHeight = round(gHeight) gWidth = round(gWidth) GetWindow $gName expand Variable gMag = V_Value == 0 ? 1 : V_Value // if available, replace with values from recreation macro (these are exact) String GraphSettings = GrepList(WinRecreation(gName, 0), "(?i)(height|width|margin|gfsize|swapXY)", 0 , "\r") GraphSettings = ReplaceString("\tModifyGraph ",GraphSettings,"") GraphSettings = ReplaceString("\r",GraphSettings,",") Variable SetmLeft = str2num(StringByKey("margin(left)", GraphSettings, "=", ",")) Variable SetmTop = str2num(StringByKey("margin(top)", GraphSettings, "=", ",")) Variable SetmRight = str2num(StringByKey("margin(right)", GraphSettings, "=", ",")) Variable SetmBottom = str2num(StringByKey("margin(bottom)", GraphSettings, "=", ",")) Variable SetpWidth = str2num(StringByKey("width", GraphSettings, "=", ",")) Variable SetpHeight = str2num(StringByKey("height", GraphSettings, "=", ",")) Variable setgHeight = SetpHeight + SetmTop + SetmBottom Variable setgWidth = SetpWidth + SetmRight + SetmLeft Variable setSwap = str2num(StringByKey("swapXY", GraphSettings, "=", ",")) Variable gFont = str2num(StringByKey("gfSize", GraphSettings, "=", ",")) setSwap = numtype(setSwap) == 0 ? setSwap : 0 gFont = numtype(gFont) == 0 ? gFont : 10 mLeft = numtype(SetmLeft) == 0 ? SetmLeft : mLeft mBottom = numtype(SetmBottom) == 0 ? SetmBottom : mBottom mRight = numtype(SetmRight) == 0 ? SetmRight : mRight mTop = numtype(SetmTop) == 0 ? SetmTop : mTop pWidth = numtype(SetpWidth) == 0 ? SetpWidth : pWidth pHeight = numtype(SetpHeight) == 0 ? SetpHeight : pHeight gHeight = numtype(SetgHeight) == 0 ? SetgHeight : gHeight gWidth = numtype(SetgWidth) == 0 ? SetgWidth : gWidth Variable temp = 0 if (setSwap) // swap all values temp = mLeft mLeft = mBottom mBottom = temp temp = mRight mRight = mTop mTop = temp temp = gHeight gHeight = gWidth gWidth = temp temp = pWidth pWidth = pHeight pHeight = temp endif // recalculate into inch or cm if needed if (Modifier != 1) mLeft = round((mLeft*Modifier)*100)/100 mBottom = round((mBottom*Modifier)*100)/100 mRight = round((mRight*Modifier)*100)/100 mTop = round((mTop*Modifier)*100)/100 gHeight = round((gHeight*Modifier)*100)/100 pWidth = round((pWidth*Modifier)*100)/100 gWidth = round((gWidth*Modifier)*100)/100 pHeight = round((pHeight*Modifier)*100)/100 endif TitleBox GraphTitle ,win=GraphSizePanel ,title=gName CheckBox SwapAxes ,win=GraphSizePanel ,value=setSwap SetVariable VLeftMargin ,win=GraphSizePanel ,value=_NUM:mLeft ,fstyle=(numtype(SetmLeft)==0) SetVariable VBottomMargin ,win=GraphSizePanel ,value=_NUM:mBottom ,fstyle=(numtype(SetmBottom)==0) SetVariable VRightMargin ,win=GraphSizePanel ,value=_NUM:mRight ,fstyle=(numtype(SetmRight)==0) SetVariable VTopMargin ,win=GraphSizePanel ,value=_NUM:mTop ,fstyle=(numtype(SetmTop)==0) SetVariable VGraphHeight ,win=GraphSizePanel ,value=_NUM:gHeight ,fstyle=(numtype(SetgHeight)==0) SetVariable VPlotWidth ,win=GraphSizePanel ,value=_NUM:pWidth ,fstyle=(numtype(SetpWidth)==0) SetVariable VGraphWidth ,win=GraphSizePanel ,value=_NUM:gWidth ,fstyle=(numtype(SetgWidth)==0) SetVariable VPlotHeight ,win=GraphSizePanel ,value=_NUM:pHeight ,fstyle=(numtype(SetpHeight)==0) SetVariable VMagnification ,win=GraphSizePanel ,value=_NUM:gMag SetVariable VGraphFont ,win=GraphSizePanel ,value=_NUM:gFont End

sjr51

I just had a quick play with this in IP8 on macOS. It works well. Thanks for developing this and sharing. Getting plots looking the same is one thing I always struggle with in Igor, particularly when I have several in a Layout and the y-axes have different numbers of integers.

I tried putting my Graph into a Layout and found that the switch to absolute settings (when changing e.g. vertical plot area, with GraphSizePanel) changes how I normally work with plots in a Layout, but I like the control that this panel gives to the graph window.

July 9, 2020 at 11:33 pm - Permalink

chozo

Thank you very much for testing! Great that it seems to work on mac. I updated the panel a bit to include copy and paste buttons, which makes it possible to share the same settings between many graphs easily (something I do very often).

Yes, if you dial in a size it will change to 'Absolute' mode. But you can dial in 0 (zero) for any value to switch back to 'Auto' mode. For example, you could change the plot width/height (blue arrows) and then directly afterwards input in 0. This will leave the size the same, but switches back to Auto for additional adjustments. Note that the margins will change size if you switch to auto unlike the width and height. Do you think it would be useful if you could choose whether or not the mode should switch to Auto after input on its own? Maybe I could add a checkbox for that. By the way if you input 0 for the total graph width/height (green arrows) then both this setting and the margins in this direction reset to Auto mode. This way you get a graph with the correct total size but all other values are freely adjustable.

July 10, 2020 at 01:55 am - Permalink

chozo

OK, I went ahead and included a checkbox to keep the graph in Auto scaling mode after making any changes (see version 1.2 above). Obviously, this will not affect the margins, as they will not keep their size.

July 10, 2020 at 04:48 am - Permalink

sjr51

This is great. The copy/paste works nicely between two windows as I tested it. I think that's a useful addition. Thanks also for adding the checkbox. That definitely helps the way I work with Layouts (maybe this isn't the right way - who knows!). FYI on Mac the text on the "paste copied" button is very slightly clipped but other than that the panel looks good. Thanks!

July 10, 2020 at 07:20 am - Permalink

aclight

@sjr51: In case you don't already know, you can select multiple graphs in a layout and use the Layout main menu to:

Make Same Width
Make Same Height
Make Same Height and Width
Make Plot Areas Uniform

If none of those is sufficient maybe you can post an example.

July 10, 2020 at 09:47 am - Permalink

chozo

Thanks for the feedback, Stephen. I have slightly increased the button size in version 1.21 to make it fit (hopefully).

@Adam: I think the problem was that my panel was locking the graph into Absolute values, which prevents scaling in the layout. This way, most of the options you have suggested will not work. But that is fixed with the latest version, which leaves the graph in the Auto scaling mode. And yes, I know that you wont really *need* to scale the graphs when working with layouts, but I think there are valid cases (for example, you would like to know where the annotations end up).

July 10, 2020 at 03:42 pm - Permalink

jjweimer

A few thoughts:

* Rather than killing the panel when no graph exists, perhaps just show an alert

* Don't you also need to handle the different Windows / macOS pixel/point conversion factors (96 / 72) for the inches or cm conversions?

* Could the rounding that you do when you work with the m... values be done only until the end?

SetVariable VLeftMargin,win=GraphSizePanel,value=_NUM:round(mLeft)

* I have found it useful to make structure functions as read-from / write-to routines panels, akin to this ...

Static StrConstant k_PanelName = "GraphSizer"

Structure S_PanelValues

	variable paramA
	//variable ...

EndStructure

Function Sf_ReadPanel(svp)
	STRUCT S_PanelValues &svp
	
	ControlInfo/W=$k_PanelName setvarA
	svp.paramA = v_value
	//...
	
	return 0
end

Function Sf_WritetoPanel(svp)
	STRUCT S_PanelValues &svp

	SetVariable setvarA, win=$k_PanelName, value=_NUM:svp.paramA
	//...
	
	return 0
end

* In addition to indicating locked values with bold, would it help also to disable the SetVariable?

Function f_IsLocked(value)
	variable value
	
	return (numtype(value)==0)
endif

// within the Sf_WritetoPanel(...) function

SetVariable VLeftMargin, ... value=_NUM:svp.mLeft,fstyle=(f_IsLocked(svp.mLeft)),disable=(2*f_IsLocked(svp.mLeft))

July 11, 2020 at 05:48 am - Permalink

chozo

Jeffrey, thank you very much for your suggestions.

* Rather than killing the panel when no graph exists, perhaps just show an alert

OK, there was no particular reason to kill the panel. It can just as well stay open. I have replaced the kill command. Now there is just 'No Graph' displayed. I think an alert or print message will get annoying fast.

* Don't you also need to handle the different Windows / macOS pixel/point conversion factors (96 / 72) for the inches or cm conversions?

Actually, I was not sure about this one. But there was an example in the Igor help somewhere were just 72 was used. Also, the inch values match the ones in the Modify Graph panel here on windows. So I guess its fine as long as no pixels are involved (points != pixels)? Would be great to know for sure, but there is not much I can find about this in the help.

* Could the rounding that you do when you work with the m... values be done only until the end?

Somehow I need rounding before the values are converted to inches/cm or it will be slightly off from the 'official' values.

* I have found it useful to make structure functions as read-from / write-to routines panels, akin to this ...

Yes, I should use more structures and sub-functions in general. I didn't really make it a habit yet. In this snippet, everything is mostly handled inside the one function FetchLatestGraphSizeValues(). I'm not sure the overhead from structures and sub-functions makes any difference here. I of course am very much open to improve my coding style. If you would like to hack away at the code I'd be interested to see what you would come up with.

* In addition to indicating locked values with bold, would it help also to disable the SetVariable?

This would defeat the point of the panel, no? The values should be always editable to adjust the size settings.

July 11, 2020 at 06:58 pm - Permalink

Small Panel to Set a Graph's Size, Margins, Magnifcation and Font Size

Igor Pro 10

Igor XOP Toolkit

Igor NIDAQ Tools MX