mxSampleDetect: Add tip and edge annotations to output

Author: Nic Bricknell

adPythonApp/Db/adPythonMxSampleDetect.template

@@ -238,7 +238,6 @@ record(longin, "$(P)$(R)TipX") {
     field(DTYP, "asynInt32")
     field(INP,  "@asyn($(PORT),$(ADDR),$(TIMEOUT))tip_x")
 }
-
 record(longin, "$(P)$(R)TipY") {
     field(SCAN, "I/O Intr")
     field(DTYP, "asynInt32")
@@ -254,7 +253,6 @@ record(waveform, "$(P)$(R)Top")
    field(FTVL, "LONG")
    field(NELM, "1024")
 }
-
 record(waveform, "$(P)$(R)Bottom")
 {
    field(SCAN, "I/O Intr")
@@ -264,7 +262,6 @@ record(waveform, "$(P)$(R)Bottom")
    field(NELM, "1024")
 }
 
-
 record(mbbo, "$(P)$(R)OutputArray") {
     field(PINI, "YES")
     field(DTYP, "asynInt32")
@@ -297,3 +294,48 @@ record(mbbi, "$(P)$(R)OutputArray_RBV") {
     field(FRST, "Closed edges")
     field(FRVL, "4")
 }
+
+record(bo, "$(P)$(R)DrawTip") {
+    field(PINI, "YES")
+    field(DTYP, "asynInt32")
+    field(OUT,  "@asyn($(PORT),$(ADDR),$(TIMEOUT))draw_circle")
+    field(ZNAM, "Disabled")
+    field(ONAM, "Enabled")
+}
+record(bi, "$(P)$(R)DrawTip_RBV") {
+    field(SCAN, "I/O Intr")
+    field(DTYP, "asynInt32")
+    field(INP,  "@asyn($(PORT),$(ADDR),$(TIMEOUT))draw_circle")
+    field(ZNAM, "Disabled")
+    field(ONAM, "Enabled")
+}
+
+record(bo, "$(P)$(R)DrawEdges") {
+    field(PINI, "YES")
+    field(DTYP, "asynInt32")
+    field(OUT,  "@asyn($(PORT),$(ADDR),$(TIMEOUT))draw_edges")
+    field(ZNAM, "Disabled")
+    field(ONAM, "Enabled")
+}
+record(bi, "$(P)$(R)DrawEdges_RBV") {
+    field(SCAN, "I/O Intr")
+    field(DTYP, "asynInt32")
+    field(INP,  "@asyn($(PORT),$(ADDR),$(TIMEOUT))draw_edges")
+    field(ZNAM, "Disabled")
+    field(ONAM, "Enabled")
+}
+
+record(bo, "$(P)$(R)ForceColor") {
+    field(PINI, "YES")
+    field(DTYP, "asynInt32")
+    field(OUT,  "@asyn($(PORT),$(ADDR),$(TIMEOUT))force_color")
+    field(ZNAM, "No")
+    field(ONAM, "Yes")
+}
+record(bi, "$(P)$(R)ForceColor_RBV") {
+    field(SCAN, "I/O Intr")
+    field(DTYP, "asynInt32")
+    field(INP,  "@asyn($(PORT),$(ADDR),$(TIMEOUT))force_color")
+    field(ZNAM, "No")
+    field(ONAM, "Yes")
+}

adPythonApp/opi/edl/adPythonMxSampleDetect.edl

@@ -3,8 +3,8 @@ beginScreenProperties
 major 4
 minor 0
 release 1
-x 715
-y 162
+x 729
+y 231
 w 390
 h 820
 font "arial-bold-r-12.0"
@@ -48,7 +48,7 @@ release 0
 x 230
 y 530
 w 155
-h 160
+h 255
 lineColor index 14
 fill
 fillColor index 3
@@ -690,47 +690,6 @@ value {
 }
 endObjectProperties
 
-# (Menu Button)
-object activeMenuButtonClass
-beginObjectProperties
-major 4
-minor 0
-release 0
-x 250
-y 665
-w 115
-h 20
-fgColor index 25
-bgColor index 3
-inconsistentColor index 0
-topShadowColor index 1
-botShadowColor index 11
-controlPv "$(P)$(R)OutputArray"
-indicatorPv "$(P)$(R)OutputArray_RBV"
-font "arial-bold-r-12.0"
-endObjectProperties
-
-# (Static Text)
-object activeXTextClass
-beginObjectProperties
-major 4
-minor 1
-release 1
-x 262
-y 635
-w 90
-h 35
-font "arial-bold-r-12.0"
-fontAlign "center"
-fgColor index 14
-bgColor index 3
-useDisplayBg
-value {
-  "Image to send"
-  "downstream:"
-}
-endObjectProperties
-
 # (Static Text)
 object activeXTextClass
 beginObjectProperties
@@ -766,7 +725,7 @@ bgColor index 3
 topShadowColor index 1
 botShadowColor index 11
 font "arial-bold-r-12.0"
-buttonLabel "Edge arrays..."
+buttonLabel "Edge arrays"
 numPvs 4
 numDsps 1
 displayFileName {
@@ -869,3 +828,201 @@ endGroup
 
 endObjectProperties
 
+# (Static Text)
+object activeXTextClass
+beginObjectProperties
+major 4
+minor 1
+release 1
+x 245
+y 700
+w 125
+h 15
+font "arial-bold-r-12.0"
+fontAlign "center"
+fgColor index 14
+bgColor index 3
+useDisplayBg
+value {
+  "Image annotations:"
+}
+endObjectProperties
+
+# (Group)
+object activeGroupClass
+beginObjectProperties
+major 4
+minor 0
+release 0
+x 250
+y 640
+w 115
+h 50
+
+beginGroup
+
+# (Menu Button)
+object activeMenuButtonClass
+beginObjectProperties
+major 4
+minor 0
+release 0
+x 250
+y 670
+w 115
+h 20
+fgColor index 25
+bgColor index 3
+inconsistentColor index 0
+topShadowColor index 1
+botShadowColor index 11
+controlPv "$(P)$(R)OutputArray"
+indicatorPv "$(P)$(R)OutputArray_RBV"
+font "arial-bold-r-12.0"
+endObjectProperties
+
+# (Static Text)
+object activeXTextClass
+beginObjectProperties
+major 4
+minor 1
+release 1
+x 262
+y 640
+w 90
+h 35
+font "arial-bold-r-12.0"
+fontAlign "center"
+fgColor index 14
+bgColor index 3
+useDisplayBg
+value {
+  "Image to send"
+  "downstream:"
+}
+endObjectProperties
+
+endGroup
+
+endObjectProperties
+
+# (Static Text)
+object activeXTextClass
+beginObjectProperties
+major 4
+minor 1
+release 1
+x 245
+y 740
+w 37
+h 13
+font "arial-medium-r-12.0"
+fgColor index 14
+bgColor index 3
+useDisplayBg
+value {
+  "Edges"
+}
+autoSize
+endObjectProperties
+
+# (Menu Button)
+object activeMenuButtonClass
+beginObjectProperties
+major 4
+minor 0
+release 0
+x 290
+y 735
+w 80
+h 20
+fgColor index 25
+bgColor index 3
+inconsistentColor index 0
+topShadowColor index 1
+botShadowColor index 11
+controlPv "$(P)$(R)DrawEdges"
+indicatorPv "$(P)$(R)DrawEdges_RBV"
+font "arial-bold-r-12.0"
+endObjectProperties
+
+# (Menu Button)
+object activeMenuButtonClass
+beginObjectProperties
+major 4
+minor 0
+release 0
+x 290
+y 715
+w 80
+h 20
+fgColor index 25
+bgColor index 3
+inconsistentColor index 0
+topShadowColor index 1
+botShadowColor index 11
+controlPv "$(P)$(R)DrawTip"
+indicatorPv "$(P)$(R)DrawTip_RBV"
+font "arial-bold-r-12.0"
+endObjectProperties
+
+# (Static Text)
+object activeXTextClass
+beginObjectProperties
+major 4
+minor 1
+release 1
+x 245
+y 720
+w 17
+h 13
+font "arial-medium-r-12.0"
+fgColor index 14
+bgColor index 3
+useDisplayBg
+value {
+  "Tip"
+}
+autoSize
+endObjectProperties
+
+# (Static Text)
+object activeXTextClass
+beginObjectProperties
+major 4
+minor 1
+release 1
+x 245
+y 760
+w 70
+h 13
+font "arial-medium-r-12.0"
+fgColor index 14
+bgColor index 3
+useDisplayBg
+value {
+  "Force colour"
+}
+autoSize
+endObjectProperties
+
+# (Menu Button)
+object activeMenuButtonClass
+beginObjectProperties
+major 4
+minor 0
+release 0
+x 320
+y 755
+w 50
+h 20
+fgColor index 25
+bgColor index 3
+inconsistentColor index 0
+topShadowColor index 1
+botShadowColor index 11
+controlPv "$(P)$(R)ForceColor"
+indicatorPv "$(P)$(R)ForceColor_RBV"
+font "arial-bold-r-12.0"
+endObjectProperties
+