V 10
1
LANG:1 8 (NoName)
PANEL,-1 -1 669 429 N "hmpUserFrameBack" 1
"$sDpName"
E E E E E 1 0 0 0  450 0
""0  1
E "#uses \"hmpBaselibrary.ctl\"
#uses \"hmpCAENlibrary.ctl\"

__setTableField(shape table,string Column, int row, dyn_dyn_string dsTag, 
								dyn_dyn_float dfVal, string format, string elName, int set)
{
	dyn_string tmp;
	int j;
	if(dynlen(dsTag)<set)
			tmp[1] = \"empty\";
	else
	{	
		j = dynContains(dsTag[set],elName);
		if (j > 0)
				sprintf( tmp[1], format, dfVal[set][j]); // contents
		else	
				tmp[1] = \"empty\";
	}
	tmp[2]=\"white\"; // Background
	tmp[3]=\"black\"; // Foreground
	table.cellValueRC(row,Column,tmp); 
} 			

__LoadTable()
{

string root;
int iModule;
dyn_dyn_string dsDpEl;
dyn_dyn_float dfValues;
int i, j, row;
string sLogicalName;
dyn_errClass err;

	// Table init
	shape table=getShape(\"Table1\");

	root = $sDpName;
	hmpBase_GetCoords(root, iModule, row, i, j);

	// Keep the parameters values
	for(i=0;i<=5;i++){
		//sPrefix = \"FEEp\";
		sLogicalName = hmpBase_buildLogicalName(LDT_LVSEG,iModule,i,LDC_ISPOSITIVE);
		row = 10-(i*2);
		// Keep the parameters values
		hmpCAEN_LoadFwCaenChannelStockTable(sLogicalName, dsDpEl, dfValues);
		// Write values into the table
		__setTableField(table,\"VON\",row,dsDpEl,dfValues,\"%6.1f\",\"v0\",1);
		__setTableField(table,\"ION\",row,dsDpEl,dfValues,\"%6.2f\",\"i0\",2);
		__setTableField(table,\"IRUP\",row,dsDpEl,dfValues,\"%6.2f\",\"i0\",1);
		__setTableField(table,\"IRDW\",row,dsDpEl,dfValues,\"%6.2f\",\"i0\",3);
		__setTableField(table,\"DELAY\",row,dsDpEl,dfValues,\"%4d\",\"delay\",1);
		__setTableField(table,\"TripRup\",row,dsDpEl,dfValues,\"%5d\",\"tripTime\",1);
		__setTableField(table,\"TripReady\",row,dsDpEl,dfValues,\"%5d\",\"tripTime\",3);

		//	sPrefix = \"FEEn\";
		sLogicalName = hmpBase_buildLogicalName(LDT_LVSEG,iModule,i,LDC_ISNEGATIVE);
		row = 10-(i*2)+1;
		// Keep the parameters values
		hmpCAEN_LoadFwCaenChannelStockTable(sLogicalName, dsDpEl, dfValues);
		// Write values into the table
		__setTableField(table,\"VON\",row,dsDpEl,dfValues,\"%6.1f\",\"v0\",1);
		__setTableField(table,\"ION\",row,dsDpEl,dfValues,\"%6.2f\",\"i0\",2);
		__setTableField(table,\"IRUP\",row,dsDpEl,dfValues,\"%6.2f\",\"i0\",1);
		__setTableField(table,\"IRDW\",row,dsDpEl,dfValues,\"%6.2f\",\"i0\",3);
		__setTableField(table,\"DELAY\",row,dsDpEl,dfValues,\"%4d\",\"delay\",1);
		__setTableField(table,\"TripRup\",row,dsDpEl,dfValues,\"%5d\",\"tripTime\",1);
		__setTableField(table,\"TripReady\",row,dsDpEl,dfValues,\"%5d\",\"tripTime\",3);

	}
}" 0
 2
"CBRef" "1"
"EClose" E
""
DISPLAY_LAYER, 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0
LAYER, 0 
1
LANG:1 6 Layer1
2 0
"txUnlocked"
""
1 454 4 E E E 1 E 1 E N "hmpUserFrameFore" E N "_Transparent" E E
 E E
1 0 0 0 0 0
E E E
0
1
LANG:1 0 

1
"dashclr"N "_Transparent"
E E 0 1 1 0 1 E U  0 E 456 6 652 32
0 2 0 "0s" 0 0 0 64 0 0  456 6 1
1
LANG:1 84 -*-Arial-*-r-normal-*-15-*-100-100-*-*-iso8859-1|-15,0,0,0,404,0,0,0,0,0,0,0,0,Arial
0 ""
1
LANG:1 26 Single Channel FEE Setting
2 1
"txLocked"
""
1 454 4 E E E 1 E 0 E N "hmpUserFrameFore" E N "_Transparent" E E
 E E
2 0 0 0 0 0
E E E
0
1
LANG:1 0 

1
"dashclr"N "_Transparent"
E E 0 1 1 0 1 E U  0 E 456 6 652 32
0 2 0 "0s" 0 0 0 64 0 0  456 6 1
1
LANG:1 84 -*-Arial-*-r-normal-*-15-*-100-100-*-*-iso8859-1|-15,0,0,0,404,0,0,0,0,0,0,0,0,Arial
0 ""
1
LANG:1 18 Module FEE Setting
13 2
"bnUnlocked"
""
1 424 4 E E E 1 E 1 E N "_ButtonText" E N "_Button" E E
 E E
3 0 0 0 0 0
E E E
0
1
LANG:1 0 

0
1
LANG:1 96 -*-Courier New-*-r-normal-*-12-*-100-100-*-*-iso8859-1|-12,0,0,0,404,0,0,0,0,0,0,0,0,Courier New
0 ""
 422 2 456 36

P 
13434828
"pictures/lock_unlocked.bmp"
1
LANG:1 0 
"main()
{
	int i;
	shape table=getShape(\"Table1\");

	for(i=1;i<=11;i++)
	{
 		table.cellForeColRC(i,\"VON\",\"dunkelgrau\");
 		table.cellForeColRC(i,\"ION\",\"dunkelgrau\");
 		table.cellForeColRC(i,\"IRUP\",\"dunkelgrau\");
 		table.cellForeColRC(i,\"IRDW\",\"dunkelgrau\");
 		table.cellForeColRC(i,\"DELAY\",\"dunkelgrau\");
 		table.cellForeColRC(i,\"TripRup\",\"dunkelgrau\");
 		table.cellForeColRC(i,\"TripReady\",\"dunkelgrau\");
	}
	
	bnUnlocked.enabled = false;
	bnUnlocked.visible = false;
	bnLocked.enabled = true;
	bnLocked.visible = true;
	txUnlocked.visible = false;
	txLocked.visible = true;	
}" 0
 E E E
13 3
"bnLocked"
""
1 424 4 E E E 0 E 0 E N "_ButtonText" E N "_Button" E E
 E E
4 0 0 0 0 0
E E E
0
1
LANG:1 0 

0
1
LANG:1 96 -*-Courier New-*-r-normal-*-12-*-100-100-*-*-iso8859-1|-12,0,0,0,404,0,0,0,0,0,0,0,0,Courier New
0 ""
 422 2 456 36

P 
13434828
"pictures/lock_red.bmp"
1
LANG:1 0 
"main()
{
	int i;
	shape table=getShape(\"Table1\");

	for(i=1;i<=11;i++)
	{
 		table.cellForeColRC(i,\"VON\",\"black\");
 		table.cellForeColRC(i,\"ION\",\"black\");
 		table.cellForeColRC(i,\"IRUP\",\"black\");
 		table.cellForeColRC(i,\"IRDW\",\"black\");
 		table.cellForeColRC(i,\"DELAY\",\"black\");
 		table.cellForeColRC(i,\"TripRup\",\"black\");
 		table.cellForeColRC(i,\"TripReady\",\"black\");
	}
	
	bnUnlocked.enabled = true;
	bnUnlocked.visible = true;
	bnLocked.enabled = false;
	bnLocked.visible = false;
	txUnlocked.visible = true;
	txLocked.visible = false;	

}" 0
 E E E
25 4
"Table1"
""
1 -3 -72 E E E 1 E 1 E N "hmpDataInputFore" E N "hmpDataInputBack" E E
 E E
5 0 0 0 0 0
E E E
0
1
LANG:1 0 

0
1
LANG:1 84 -*-Arial-*-r-normal-*-12-*-100-100-*-*-iso8859-1|-12,0,0,0,404,0,0,0,0,0,0,0,0,Arial
0 ""
 8 38 658 372
"main()
{
	int i;
	shape table=getShape(\"Table1\");
	for(i=0;i<=11;i++)
		table.appendLine(\"TripRup\",\"0\");

	__LoadTable();
}
" 0
"main(int row, string column, string value)
{
	int i;
	string oldval;
	shape table=getShape(\"Table1\");

	oldval = table.cellValueRC(row,column);

	if(bnLocked.enabled)
	{

		if(row > 0)
			table.cellValueRC(row,column,oldval); 
		else
			for(i=0;i<=11;i++)
				table.cellValueRC(i,column,value); 
	}
}" 0
 1 1 1 7 12 "VON" 7 1 1 "s" 1
LANG:1 5 V Set
E
1
LANG:1 0 

78 "ION" 8 1 1 "s" 1
LANG:1 8 I Set ON
E
1
LANG:1 0 

85 "IRUP" 9 1 1 "s" 1
LANG:1 12 I Set RampUp
E
1
LANG:1 0 

95 "IRDW" 11 1 1 "s" 1
LANG:1 14 I Set RampDown
E
1
LANG:1 0 

108 "DELAY" 6 1 1 "s" 1
LANG:1 5 Delay
E
1
LANG:1 0 

69 "TripRup" 7 1 1 "s" 1
LANG:1 8 Trip RUp
E
1
LANG:1 0 

73 "TripReady" 7 1 1 "s" 1
LANG:1 10 Trip Ready
E
1
LANG:1 0 

73 
25 25 "" 1 1
LANG:1 5 FEE5+
"" 1 1
LANG:1 5 FEE5-
"" 1 1
LANG:1 5 FEE4+
"" 1 1
LANG:1 5 FEE4-
"" 1 1
LANG:1 5 FEE3+
"" 1 1
LANG:1 5 FEE3-
"" 1 1
LANG:1 5 FEE2+
"" 1 1
LANG:1 5 FEE2-
"" 1 1
LANG:1 5 FEE1+
"" 1 1
LANG:1 5 FEE1-
"" 1 1
LANG:1 5 FEE0+
"" 1 1
LANG:1 5 FEE0-
8 58
1
LANG:1 84 -*-Arial-*-r-normal-*-12-*-100-100-*-*-iso8859-1|-12,0,0,0,404,0,0,0,0,0,0,0,0,Arial
0 ""
0 0 0 1 7
1 0
13 6
"Button1"
""
1 150 380 E E E 1 E 1 E N "hmpUserFrameFore" E N "hmpUserFrameBack" E E
 E E
7 0 0 0 0 0
E E E
0
1
LANG:1 0 

0
1
LANG:1 84 -*-Arial-*-r-normal-*-16-*-100-100-*-*-iso8859-1|-16,0,0,0,404,0,0,0,0,0,0,0,0,Arial
0 ""
 148 378 272 412

T 
1
LANG:1 11 Store Table
"main()
{
dyn_errClass err;
int j, i,row,iModule;
dyn_string tmp;
shape table=getShape(\"Table1\");
dyn_string exceptionInfo;
string root,sLogicalName;
dyn_dyn_string dsDpEl;
dyn_dyn_float dfValues;


	root = $sDpName;
	hmpBase_GetCoords(root, iModule, row, i, j);

	for(i=0;i<=5;i++){
		sLogicalName = hmpBase_buildLogicalName(LDT_LVSEG,iModule,i,LDC_ISPOSITIVE );
		row = 10-(i*2);

		dynClear(dsDpEl);
		dynClear(dfValues);

		tmp = table.getLineN(row);

	  dsDpEl[1] = makeDynString(\"v0\",\"i0\",\"tripTime\",\"delay\");
  	dfValues[1] = makeDynFloat(tmp[1],tmp[3],tmp[6],tmp[5]);
	  dsDpEl[2] = makeDynString(\"v0\",\"i0\",\"tripTime\",\"delay\");
  	dfValues[2] = makeDynFloat(tmp[1],tmp[2],tmp[6],tmp[5]);
	  dsDpEl[3] = makeDynString(\"v0\",\"i0\",\"tripTime\",\"delay\");
  	dfValues[3] = makeDynFloat(tmp[1],tmp[4],tmp[7],tmp[5]);

		hmpCAEN_StoreFwCaenChannelStockTable(sLogicalName, dsDpEl, dfValues);
	}

	for(i=0;i<=5;i++){
		sLogicalName = hmpBase_buildLogicalName(LDT_LVSEG,iModule,i,LDC_ISNEGATIVE );
		row = 10-(i*2)+1;

		dynClear(dsDpEl);
		dynClear(dfValues);

		tmp = table.getLineN(row);

	  dsDpEl[1] = makeDynString(\"v0\",\"i0\",\"tripTime\",\"delay\");
  	dfValues[1] = makeDynFloat(tmp[1],tmp[3],tmp[6],tmp[5]);
	  dsDpEl[2] = makeDynString(\"v0\",\"i0\",\"tripTime\",\"delay\");
  	dfValues[2] = makeDynFloat(tmp[1],tmp[2],tmp[6],tmp[5]);
	  dsDpEl[3] = makeDynString(\"v0\",\"i0\",\"tripTime\",\"delay\");
  	dfValues[3] = makeDynFloat(tmp[1],tmp[4],tmp[7],tmp[5]);

		hmpCAEN_StoreFwCaenChannelStockTable(sLogicalName, dsDpEl, dfValues);
	}
}

" 0
 E E E
13 8
"Button2"
""
1 10 380 E E E 1 E 1 E N "hmpUserFrameFore" E N "hmpUserFrameBack" E E
 E E
8 0 0 0 0 0
E E E
0
1
LANG:1 0 

0
1
LANG:1 84 -*-Arial-*-r-normal-*-16-*-100-100-*-*-iso8859-1|-16,0,0,0,404,0,0,0,0,0,0,0,0,Arial
0 ""
 8 378 132 412

T 
1
LANG:1 12 Reload Table
"main()
{
__LoadTable();

}

" 0
 E E E
13 9
"Button3"
""
1 540 380 E E E 1 E 1 E N "hmpUserFrameFore" E N "hmpUserFrameBack" E E
 E E
8 0 0 0 0 0
E E E
0
1
LANG:1 0 

0
1
LANG:1 84 -*-Arial-*-r-normal-*-13-*-100-100-*-*-iso8859-1|-13,0,0,0,404,0,0,0,0,0,0,0,0,Arial
0 ""
 538 378 652 412

T 
1
LANG:1 5 CLOSE
"// SimpleCtrlScriptStart {valid}
main()
{
  EP_panelOff();
}

EP_panelOff()
{
  PanelOff();
}

// SimpleCtrlScript {EP_panelOff}
// Function {PanelOff}
// Panel {}
// Module {}
// SimpleCtrlScriptEnd {EP_panelOff}
" 0
 E E E
13 10
"Button4"
""
1 290 380 E E E 1 E 1 E N "hmpUserFrameFore" E N "hmpUserFrameBack" E E
 E E
8 0 0 0 0 0
E E E
0
1
LANG:1 0 

0
1
LANG:1 84 -*-Arial-*-r-normal-*-13-*-100-100-*-*-iso8859-1|-13,0,0,0,404,0,0,0,0,0,0,0,0,Arial
0 ""
 288 378 502 412

T 
1
LANG:1 23 STORE PARAM TO CHANNELS
"main()
{
	string state;
	int set,i,j,k,iModule;
	string Object;
	string Domain;
	string sLogName = \"\";
	
	Domain = $sDpName;
	hmpBase_GetCoords(Domain, iModule, k, i, j);

	for(i=0;i<=5;i++)
	{
		Object = hmpBase_buildFSMName(LDT_LVSEG,iModule,i,LDC_ISPOSITIVE);
		sLogName = hmpBase_buildLogicalName(LDT_LVSEG,iModule,i,LDC_ISPOSITIVE);
	
		// first get the actual FSM status
		fwDU_getState(Domain, Object, state);
		// and decide the set
		switch(state)
		{
			case \"ON\":
				set = 5;
				break;
			case \"OFF\":
			case \"TRIPPED\":
				set = 1;
				break;
			case \"INTERMEDIATE\":
				set = 3;
				break;
			default:
				return;
				break;
		}
		// Set the channel
		hmpCAEN_FwCaenChannelSetStock(sLogName,\"\",set,false);
		
		Object = hmpBase_buildFSMName(LDT_LVSEG,iModule,i,LDC_ISNEGATIVE);
		sLogName = hmpBase_buildLogicalName(LDT_LVSEG,iModule,i,LDC_ISNEGATIVE);
	
		// first get the actual FSM status
		fwDU_getState(Domain, Object, state);
		// and decide the set
		switch(state)
		{
			case \"ON\":
				set = 5;
				break;
			case \"OFF\":
			case \"TRIPPED\":
				set = 1;
				break;
			case \"INTERMEDIATE\":
				set = 3;
				break;
			default:
				return;
				break;
		}
		// Set the channel
		hmpCAEN_FwCaenChannelSetStock(sLogName,\"\",set,false);
	
	}
  return;	
}" 0
 E E E
0
LAYER, 1 
1
LANG:1 6 Layer2
0
LAYER, 2 
1
LANG:1 6 Layer3
0
LAYER, 3 
1
LANG:1 6 Layer4
0
LAYER, 4 
1
LANG:1 6 Layer5
0
LAYER, 5 
1
LANG:1 6 Layer6
0
LAYER, 6 
1
LANG:1 6 Layer7
0
LAYER, 7 
1
LANG:1 6 Layer8
0
0