LMU/musrsim
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Finished implelementing Andreas Suter root plotting, but still a bit buggy.

Browse Source
This commit is contained in:
salman
2009-11-23 14:52:12 +00:00
parent 17b4ebbc2f
commit b02bad6b88
4 changed files with 1969 additions and 1957 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
trimsp/TrimSPGUI/TrimSP.pl
View File

@ -1,6 +1,6 @@
# Form implementation generated from reading ui file 'TrimSPGUI.ui'
#
# Created: Fri Nov 20 14:18:57 2009
# Created: Mon Nov 23 15:50:35 2009
# by: The PerlQt User Interface Compiler (puic)
#
# WARNING! All changes made in this file will be lost!
@ -1431,9 +1431,9 @@ sub NEW
}
setCentralWidget(Qt::Widget(this, "qt_central_widget"));
my $TrimSPGUILayout = Qt::GridLayout(centralWidget(), 1, 1, 11, 6, '$TrimSPGUILayout');
tabs = Qt::TabWidget(centralWidget(), "tabs");
tabs->setGeometry( Qt::Rect(0, 5, 715, 525) );
LayersTab = Qt::Widget(tabs, "LayersTab");
@ -1891,10 +1891,13 @@ sub NEW
ScanListdz->setGeometry( Qt::Rect(11, 108, 290, 26) );
tabs->insertTab( ScansTab, "" );
$TrimSPGUILayout->addWidget(tabs, 0, 0);
Progress = Qt::ProgressBar(centralWidget(), "Progress");
Progress->setGeometry( Qt::Rect(0, 530, 715, 20) );
Progress->setFrameShape( &Qt::ProgressBar::WinPanel() );
$TrimSPGUILayout->addWidget(Progress, 1, 0);
fileNewAction= Qt::Action(this, "fileNewAction");
fileNewAction->setIconSet( Qt::IconSet($image2) );
fileOpenAction= Qt::Action(this, "fileOpenAction");
@ -1952,7 +1955,7 @@ sub NEW
MenuBar->insertItem( "", helpMenu, 3 );
languageChange();
my $resize = Qt::Size(719, 610);
my $resize = Qt::Size(736, 626);
$resize = $resize->expandedTo(minimumSizeHint());
resize( $resize );
clearWState( &Qt::WState_Polished );
@ -2763,8 +2766,18 @@ sub PlotProfiles
my $filenames=join(",",@files);
print "Selected file: $filenames\n";
if ($filenames ne "" ) {
# Now that we have the file list send it to root macro for plotting.
my $cmd='root "plotRge.C(\"'.$filenames.'\")"';
# my $pid = open(FTO,"$cmd");
my $pid = open(FTO,"$cmd 2>&1 |");
while (<FTO>) {
# FitTextOutput->append("$_");
print "$_";
}
close(FTO);
# system($cmd);
}
}

3887
trimsp/TrimSPGUI/TrimSPGUI.ui
View File

File diff suppressed because it is too large Load Diff

12
trimsp/TrimSPGUI/TrimSPGUI.ui.h
View File

@ -622,8 +622,18 @@ void TrimSPGUI::PlotProfiles()
my $filenames=join(",",@files);
print "Selected file: $filenames\n";
if ($filenames ne "" ) {
# Now that we have the file list send it to root macro for plotting.
my $cmd='root "plotRge.C(\"'.$filenames.'\")"';
# my $pid = open(FTO,"$cmd");
my $pid = open(FTO,"$cmd 2>&1 |");
while (<FTO>) {
# FitTextOutput->append("$_");
print "$_";
}
close(FTO);
# system($cmd);
}
}

4
trimsp/TrimSPGUI/plotRge.C
View File

@ -1,9 +1,8 @@
// File: plotRge.C
// Author: Andreas Suter
// Author: Zaher Salman, originally by Andreas Suter
// Date: 03/06/2009
// Purpose: ROOT macro to read and plot Range data from trimsp calculation
// Assume following file Format:
// Very simple at the moment...
//
// $Id$
//
@ -146,3 +145,4 @@ void plotRge(TString &names)
delete tokens;
}