Skip to main content

UI template II

https://github.com/Renfong/dm-script-tool/blob/master/UI_Template_2.s


// Interactive UI template

//

// 2021/05/06

// Renfong


interface call_functions{

number GetBoxNumber(object self);

};


class UI_Functions : object {

number true, false

number UIObjectID

object MainUI

void SetUIObjectID(object self, number id) {

UIObjectID = id

MainUI = GetScriptObjectFromID(UIObjectID)

};

UI_Functions(object self) {

true = 1; false = 0

result("Obect \"UI_Functions\" ["+self.ScriptObjectGetID()+"] constructed. \n")

};

~UI_Functions(object self) {

true = 1; false = 0

result("Obect\"UI_Functions\" ["+self.ScriptObjectGetID()+"] deconstructed. \n")

};

void btn1response(object self) {

number num = MainUI.GetBoxNumber()

OKdialog("Number = "+num)

};

};


class MainUI : UIFrame {

TagGroup btn1, numbox

object UI_Functions

number true, false, ver

MainUI(object self){

true = 1; false = 0; ver=0.1;

UI_Functions = alloc(UI_Functions)

result("Obect \"MainUI\" ["+self.ScriptObjectGetID()+"] constructed. \n")

};

~MainUI(object self){

result("Obect \"MainUI\" ["+self.ScriptObjectGetID()+"] deconstructed. \n")

};

TagGroup ButtonGroup1(object self) {

TagGroup box_items, labels

TagGroup box = DLGCreateBox("Box 1", box_items)

box.DLGExternalPadding(5,5)

box.DLGInternalPadding(25,10)

labels = DLGCreateLabel("Give a number : ").DLGAnchor("West")

numbox = DLGCreateIntegerField(3,5).DLGAnchor("West")

TagGroup group1 = DLGGroupItems(labels, numbox)

group1.DLGTableLayout(2,1,0)

box_items.DLGAddElement(group1)

btn1 = DLGCreatePushButton("btn1 name", "btn1response")

DLGEnabled(btn1, 1)

DLGIdentifier(btn1, "btn1").DLGFill("X").DLGExternalPadding(0,-1)

box_items.DLGAddElement(btn1)

return box

};

number GetBoxNumber(object self){

number num = DLGGetValue(numbox)

return num

};

void btn1response (object self) {

UI_Functions.btn1response()

result(self.GetBoxNumber()+" in the box.\n")

};

void CreateDialog(object self){

TagGroup position

position = DLGBuildPositionFromApplication()

position.TagGroupSetTagAsTagGroup("Width", DLGBuildAutoSize())

position.TagGroupSetTagAsTagGroup("Height", DLGBuildAutoSize())

position.TagGroupSetTagAsTagGroup("X", DLGBuildRelativePosition("Inside", 1))

position.TagGroupSetTagAsTagGroup("Y", DLGBuildRelativePosition("Inside", 1))

TagGroup dialog_items

TagGroup dialog = DLGCreateDialog("TemplateUI", dialog_items).DLGPosition(position)

dialog_items.DLGAddElement(self.ButtonGroup1())

object dialog_frame = self.init(dialog)

dialog_frame.Display("UIFrame_v"+ver)

UI_Functions.SetUIObjectID(self.ScriptObjectGetID())

};

}


{

alloc(MainUI).CreateDialog()

}

Labels:

Comments

Post a Comment

Popular posts from this blog

Top hat filter

The top_hat filter can be used to detect the relatively small edges/peaks superimposed on large background signals. The concept came from the EELS workshop during IMC19. Thanks to Prof. Nestor J. Zaluzec. -- // Using Top_hat digital filter to detect the  relatively small edges  //    superimposed on large background signals. // // ref: Ultramicroscopy 18 (1985) 185-190  //      Digital Filters  for Application to Data Analysis in EELS //      by Nestor J. ZALUZEC // Parameters: // win_s: signal window (default:3) // win_b: background window (default:3) //  a_s : amplitude of signal (fixed value) //  a_b : amplitude of background  (fixed value) // Renfong 2018/10/11 // Main function image Top_Hat_Filter(image img, number win_s, number win_b) { // read image string fname=img.GetName() number sx,sy img.getsize(sx,sy) // filter image img2 := imageclone(img)*0 //the area between...
Post a Comment
Read more

MLLS in matlab

MLLS stands for  multiple linear least squares fitting, which is the common strategy for the solving EELS edge overlapping and which is also built-in the GMS software. The target spectrum Y and the reference spectrum X Y = A * X Assuming Y is 1*256 matrix and we have three reference spectrums, ie, X is 3*256 matrix. So A is 1*3 matrix. The target is to solve A. If Y and X are n*n matrices, we can use the simple formula Y * inv(X) = A * X * inv(X), ie., A = Y * inv(X). However, Y and X are not n*n  matrices, it is necessary to have some trick to solve it. We can multiply the transpose matrix to produce n*n matrix. Y * X' = A * X * X'  (ps X' means the transpose matrix of X) so A = Y * X' * inv(X * X') Here is the Matlab code: =========  % create target spectrum x=0:256; c=[90,120,155]; sig=[5,10,8]; int=[5,10,8]; xn=zeros(size(x)); ref=zeros(length(c),length(x)); factor=rand(size(c))'; for i=1:length(c)     xn=xn+int(i)*ex...
Post a Comment
Read more

Drift correction in Matlab

In order to improve S/N ratio, microscopist uses several short acquisition time images, and then sum them up. So the drift correction is very important. Here is the demo of how to use Matlab do drift correction. In the first, load an image, and using circshift function to shift the object in the image. Then use fft cross correlation to compute the moving distance. Finally, shift the object to the origial position. Here is the testing code: == % Demo of drift correction % 2018/11/15  by Renfong im1= imread('cameraman.tif');    % reference image [sy,sx]=size(im1); % shift the object im2=circshift(im1,[20,10]);    % the object moved down 20 pixels and moved right 10 pixels. figure(1); subplot(121);imshow(im1); subplot(122);imshow(im2); % Using fft cross correlations to detect the moving distance[1] fftim1=fft2(im1); fftim2=fft2(im2); cc=fftshift(ifft2(fftim1.*conj(fftim2))); [shiftY,shiftX]=find(cc==max(cc(:))...
Post a Comment
Read more