epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Updates from nda.

Browse Source
This commit is contained in:
Janet B. Anderson
2004-01-16 22:59:07 +00:00
parent 333d00abb9
commit 6c2540a462
4 changed files with 264 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

119
src/makeBaseApp/top/vlinacApp/Db/xxVirtualLinac.db
View File

@@ -3,9 +3,16 @@ record(bi,"$(user):autoC") {
field(PINI,"YES")
field(INP, "0")
field(DTYP,"Soft Channel")
field(ZNAM,"Operator control")
field(ZNAM,"Operator Control")
field(ONAM,"Computer-Auto")
}
record(bi,"$(user):trajSeqOnC") {
field(DESC, "Trajectory Sequence running")
field(INP, "0")
field(DTYP,"Soft Channel")
field(ZNAM,"Not Running")
field(ONAM,"Running")
}
record(bo,"$(user):gunOnC") {
field(DESC,"Controls e-gun")
field(ASG,"$(user)")
@@ -186,6 +193,116 @@ record(ao,"$(user):BM1:setCurrentC") {
field(HOPR,"250")
field(LOPR,"0")
}
record(ao,"$(user)A:H1:setCurrentC") {
field(DESC,"set output current")
field(PREC,"2")
field(EGU,"Amps")
field(DRVH,"5")
field(DRVL,"-5")
field(HOPR,"5")
field(LOPR,"-5")
field(OROC,".1")
field(OUT,"$(user):H1:setCurrentC.VAL PP NMS")
}
record(ao,"$(user)A:V1:setCurrentC") {
field(DESC,"set output current")
field(PREC,"2")
field(EGU,"Amps")
field(DRVH,"5")
field(DRVL,"-5")
field(HOPR,"5")
field(LOPR,"-5")
field(OROC,".1")
field(OUT,"$(user):V1:setCurrentC.VAL PP NMS")
}
record(ao,"$(user)A:H2:setCurrentC") {
field(DESC,"set output current")
field(PREC,"2")
field(EGU,"Amps")
field(DRVH,"5")
field(DRVL,"-5")
field(HOPR,"5")
field(LOPR,"-5")
field(OROC,".1")
field(OUT,"$(user):H2:setCurrentC.VAL PP NMS")
}
record(ao,"$(user)A:V2:setCurrentC") {
field(DESC,"set output current")
field(PREC,"2")
field(EGU,"Amps")
field(DRVH,"5")
field(DRVL,"-5")
field(HOPR,"5")
field(LOPR,"-5")
field(OROC,".1")
field(OUT,"$(user):V2:setCurrentC.VAL PP NMS")
}
record(ao,"$(user)A:H3:setCurrentC") {
field(DESC,"set output current")
field(PREC,"2")
field(EGU,"Amps")
field(DRVH,"5")
field(DRVL,"-5")
field(HOPR,"5")
field(LOPR,"-5")
field(OROC,".1")
field(OUT,"$(user):H3:setCurrentC.VAL PP NMS")
}
record(ao,"$(user)A:V3:setCurrentC") {
field(DESC,"set output current")
field(PREC,"2")
field(EGU,"Amps")
field(DRVH,"5")
field(DRVL,"-5")
field(HOPR,"5")
field(LOPR,"-5")
field(OROC,".1")
field(OUT,"$(user):V3:setCurrentC.VAL PP NMS")
}
record(ao,"$(user)A:H4:setCurrentC") {
field(DESC,"set output current")
field(PREC,"2")
field(EGU,"Amps")
field(DRVH,"5")
field(DRVL,"-5")
field(HOPR,"5")
field(LOPR,"-5")
field(OROC,".1")
field(OUT,"$(user):H4:setCurrentC.VAL PP NMS")
}
record(ao,"$(user)A:V4:setCurrentC") {
field(DESC,"set output current")
field(PREC,"2")
field(EGU,"Amps")
field(DRVH,"5")
field(DRVL,"-5")
field(HOPR,"5")
field(LOPR,"-5")
field(OROC,".1")
field(OUT,"$(user):V4:setCurrentC.VAL PP NMS")
}
record(ao,"$(user)A:H5:setCurrentC") {
field(DESC,"set output current")
field(PREC,"2")
field(EGU,"Amps")
field(DRVH,"5")
field(DRVL,"-5")
field(HOPR,"5")
field(LOPR,"-5")
field(OROC,".1")
field(OUT,"$(user):H5:setCurrentC.VAL PP NMS")
}
record(ao,"$(user)A:V5:setCurrentC") {
field(DESC,"set output current")
field(PREC,"2")
field(EGU,"Amps")
field(DRVH,"5")
field(DRVL,"-5")
field(HOPR,"5")
field(LOPR,"-5")
field(OROC,".1")
field(OUT,"$(user):V5:setCurrentC.VAL PP NMS")
}
record(calc,"$(user):randomM") {
field(CALC,"(RNDM*.1)-.05")
}

35
src/makeBaseApp/top/vlinacApp/misc/README
View File

@@ -1,8 +1,36 @@
Virtual LINAC Demo
The Virtual LINAC Demo is an EPICS ioc application that simulates
an electron beam progressing down a LINAC. Several steering coils,
BPMs, and other typical accelerator components are simulated.
See Virtual_Linac_Info.pdf for a complete explanation.
For full functionality the sequencer module and a two
sequence programs must be built and loaded. The raw template
has these items commented out because the sequencer is not
part of base. The following steps must be accomplished:
- Uncomment the SNCSEQ definition line in
configure/RELEASE and define the link to the location
where the sequencer was installed.
- Uncomment the following lines in src/Makefile
vlinac_SRCS += beamTrajectory.st
vlinac_SRCS += autoControl.st
vlinac_LIBS += seq pv
- Uncomment the following lines in src/vlinacInclude.dbd
registrar(beamTrajectoryRegistrar)
registrar(autoControlRegistrar)
- Uncomment the following lines in iocBoot/iocvlinac/st.cmd
seq &beamTrajectory, "user=xxx"
seq &autoControl, "user=xxx"
- Rebuild the entire application and start (reboot) the ioc
This directory (misc) contains additional files to compliment
the virtual linac demo application.
For full functionality the sequencer module must be built and loaded.
Virtual_Linac_Info.pdf : Description of the Virtual Linac
*.adl : medm display files
*.gif : images used in medm files
@@ -11,6 +39,5 @@ To start the ioc, refer to the README file in the iocBoot
directory.
To start medm, use the following command:
medm -local -x -macro user=_USER_ Virtual_Linac.adl
medm -local -x -macro user=nda Virtual_Linac.adl

158
src/makeBaseApp/top/vlinacApp/misc/Virtual_Linac.adl
View File

@@ -240,56 +240,6 @@ rectangle {
width=1
}
}
"cartesian plot" {
object {
x=105
y=23
width=1000
height=217
}
plotcom {
title="Electron LINAC Beam Position"
clr=14
bclr=2
}
style="line"
erase_oldest="plot last n pts"
trace[0] {
xdata="$(user):PM:distancesWF"
ydata="$(user):PM:iTrajectoryWF"
data_clr=20
}
trace[1] {
xdata="$(user):PM:distancesWF"
ydata="$(user):PM:xTrajectoryWF"
data_clr=53
}
trace[2] {
xdata="$(user):PM:distancesWF"
ydata="$(user):PM:yTrajectoryWF"
data_clr=49
}
trace[3] {
xdata="$(user):PM:refLocationsWF"
ydata="$(user):PM:referenceHiWF"
data_clr=30
}
trace[4] {
xdata="$(user):PM:refLocationsWF"
ydata="$(user):PM:referenceLoWF"
data_clr=30
}
x_axis {
rangeStyle="user-specified"
maxRange=60.000000
}
y1_axis {
maxRange=0.000000
}
y2_axis {
maxRange=0.000000
}
}
valuator {
object {
x=224
@@ -4621,3 +4571,111 @@ image {
bclr=51
label=" MEDM Demo Display"
}
text {
object {
x=337
y=161
width=591
height=38
}
"basic attribute" {
clr=14
fill="outline"
}
textix="beamTrajectory sequence program is installed."
align="horiz. centered"
}
text {
object {
x=333
y=81
width=591
height=38
}
"basic attribute" {
clr=14
fill="outline"
}
textix="A Cartesian plot of the beam trajectory"
align="horiz. centered"
}
text {
object {
x=352
y=121
width=591
height=38
}
"basic attribute" {
clr=14
fill="outline"
}
textix="will be displayed here when the"
align="horiz. centered"
}
composite {
object {
x=129
y=22
width=1000
height=217
}
"composite name"=""
children {
"cartesian plot" {
object {
x=129
y=22
width=1000
height=217
}
plotcom {
title="Electron LINAC Beam Position"
clr=14
bclr=2
}
style="line"
erase_oldest="plot last n pts"
trace[0] {
xdata="$(user):PM:distancesWF"
ydata="$(user):PM:iTrajectoryWF"
data_clr=20
}
trace[1] {
xdata="$(user):PM:distancesWF"
ydata="$(user):PM:xTrajectoryWF"
data_clr=53
}
trace[2] {
xdata="$(user):PM:distancesWF"
ydata="$(user):PM:yTrajectoryWF"
data_clr=49
}
trace[3] {
xdata="$(user):PM:refLocationsWF"
ydata="$(user):PM:referenceHiWF"
data_clr=30
}
trace[4] {
xdata="$(user):PM:refLocationsWF"
ydata="$(user):PM:referenceLoWF"
data_clr=30
}
x_axis {
rangeStyle="user-specified"
maxRange=60.000000
}
y1_axis {
maxRange=0.000000
}
y2_axis {
maxRange=0.000000
}
}
}
"dynamic attribute" {
vis="if not zero"
calc="A"
chan="$(user):trajSeqOnC"
}
}

7
src/makeBaseApp/top/vlinacApp/src/beamTrajectory.st
View File

@@ -3,6 +3,9 @@ program beamTrajectory
option -c; /* don't wait for all channels to connect */
option +r; /* reentrant */
short seqRunning;
assign seqRunning to "{user}:trajSeqOnC";
double CM1_I;
assign CM1_I to "{user}:CM1:intensityM";
monitor CM1_I;
@@ -107,6 +110,10 @@ state init
{
when()
{
/* Indicate sequence is running */
seqRunning = 1;
pvPut(seqRunning);
/* BPM Position from EGUN */
bpmFixedLocations[0] = 0.0;
bpmFixedLocations[1] = 2.4;