00001 #! Generated by VisualDCT v2.6 00002 #! DBDSTART 00003 #! DBD("../../dbd/pmacCoord_vdct.dbd") 00004 #! DBDEND 00005 00006 00007 # # \file 00008 # # This template allows setting of variables for a set of blade slits, 00009 # # made up two pairs of blades, one each for X and Y. A separate instance of 00010 # # this CS is needed for X and Y. It needs PROG10_CS_motion.pmc and each 00011 # # instance requires an instantiation of CS_blade_slits.pmc with the variables 00012 # # shown in the image below: 00013 # # \image html blade_slits-help.png "Setup of blade slits in X or Y" 00014 # # Build instructions for an example IOC are available 00015 # # \ref build_instructions_bladeSlits "here", with a pmc file containing 00016 # # the CS definition available in iocs/bladeSlits/defs.pmc 00017 # % macro, __doc__, Supporting template that allows setting of variables for a 00018 # set of blade slits 00019 # % macro, P, Pv Prefix 00020 # % macro, BPPV, Pv of real BP motor, e.g. $(P):X:PLUS 00021 # % macro, BMPV, Pv of real BM motor, e.g. $(P):X:MINUS 00022 # % macro, name, Object name and gui association name 00023 # This associates an edm screen with the template 00024 # % gui, $(name=), edm, blade_slits.edl, slits=$(P) 00025 # # This record will zero raw motors when processed 00026 record(fanout, "$(P):ZERO") { 00027 field(LNK1, "$(P):ZEROBP") 00028 field(LNK2, "$(P):ZEROBM") 00029 } 00030 00031 record(calcout, "$(P):ZEROBP") { 00032 field(CALC, "-A") 00033 field(INPA, "$(BPPV).DRBV") 00034 field(OUT, "$(BPPV).OFF PP") 00035 } 00036 00037 record(calcout, "$(P):ZEROBM") { 00038 field(CALC, "-A") 00039 field(INPA, "$(BMPV).DRBV") 00040 field(OUT, "$(BMPV).OFF PP") 00041 } 00042 00043 #! Further lines contain data used by VisualDCT 00044 #! View(0,0,1.0) 00045 #! Record("$(P):ZERO",20,76,0,0,"$(P):ZERO") 00046 #! Field("$(P):ZERO.LNK1",16777215,1,"$(P):ZERO.LNK1") 00047 #! Link("$(P):ZERO.LNK1","$(P):ZEROBP") 00048 #! Field("$(P):ZERO.LNK2",16777215,1,"$(P):ZERO.LNK2") 00049 #! Link("$(P):ZERO.LNK2","$(P):ZEROBM") 00050 #! Record("$(P):ZEROBP",280,102,0,0,"$(P):ZEROBP") 00051 #! Field("$(P):ZEROBP.INPA",16777215,1,"$(P):ZEROBP.INPA") 00052 #! Field("$(P):ZEROBP.OUT",16777215,1,"$(P):ZEROBP.OUT") 00053 #! Record("$(P):ZEROBM",280,302,0,0,"$(P):ZEROBM") 00054 #! Field("$(P):ZEROBM.INPA",16777215,1,"$(P):ZEROBM.INPA") 00055 #! Field("$(P):ZEROBM.OUT",16777215,1,"$(P):ZEROBM.OUT")