<< Click to Display Table of Contents >> Navigation: 3. Script Language > PlugIn-Commands > PIS. - PlugIn Send > Sample Code Buttonbar for Help & Manual 8 |
MiniRobotLanguage (MRL)
Buttonbar for Help & Manual 8
This Script is a Buttonbar for HM8
Intention
Using the SPR and its PlugIn we can realize a "Companion" for any Software that accepts Mouse and Keyboard Input.
The Code below realizes an AddOn Buttonbar for "Help and Manual 8".
The functions may mostly be very special to my usage, but you can clearly see the general structure.
ButtonBar attached to the HM8 Window
Code Explanation
-
Example
'
'#######################################################################
' Button-Bar for Help and Manual 8
' As far ass Patterns are used, HM8 must be set to 100% Zoom
'#######################################################################
'#EXE:?path\
'#SPI:ForceWrite
'
GSB.RunIt
'SWP.700,498|1612,165|T
' Return PlugIn Index Number
PIL.$$REA|01
' Set Button-Number
VAN.$$BUN=9
PIS.$$REA|sbn|$$BUN
' use any window to attach the plugin
PIS.$$REA|sbhd|4
' Make the PlugIn visible
PIS.$$REA|show
$$DIR=v
IVS.$$DIR=v
' attach the Plugin to the window
PIS.$$REA|attach|$$ULT|2|2
PIS.$$REA|sv
PIS.$$REA|SetcorrectionFactor|-2|-4|4|-4
ELS.
PIS.$$REA|attach|$$ULT|5|6
' Plugin vertikal anordnen
PIS.$$REA|sh
EIF.
$$HSI=160
$$VSI=30
PIS.$$PIN|sbhvs|$$HSI|$$VSI
' Set Button Text
FOR.$$LO2|2|$$BUN
PIS.$$REA|sBt|$$LO2|Btn. F$$LO2
NEX.
PIS.$$REA|sBt|$$BUN|End
PIS.$$REA|sBt|1|Set Header Styles Sh. F1
PIS.$$REA|sBt|2|Rep. HL & Set Styles Sh. F2
PIS.$$REA|sBt|3|Sel. next & do B2 F3
PIS.$$REA|sBt|4|Rep empt. Icon F4
PIS.$$REA|sBt|5|Loc.Win. F5
PIS.$$REA|sBt|6|Small Title F6
PIS.$$REA|sBt|7|Loc.Win. F7
' Set Distance between buttons (vertical in Points)
'PIS.$$REA|sbvd|4
PIS.$$REA|SetButtonsVDist|4
PIS.$$REA|SetTopMost|1
' Endlos-Schleife
DOL.1
PIW.$$REA|§§BTN|4
ITO.
PAU.0.1
GTO.MLop
EIF.
' Button wurde geklickt oder Mouseover
GSB.react
:MLop
OOP.
PAU.2
:enz
END.
'-----------------------------------------------------------
' Starte NL2
:RunIt
$$PRO=HELPMAN.EXE
NEP.$$PRO
STW.wctgX|0|TFrmHelpMan|Help+Manual|Locate_First
ELS.
GTO.Locate_First
EIF.
SAV.Save|$$FIL|$$PAT
IAI.Help+Manual 8|s
$$FIL=$$001
BLB.$$FIL|$$FIL
BLB.$$FIL|$$FIL
VBT.$$FIL
VBT.$$FIL|"
$$FIN=$$FIL\$$PRO
DBP.$$FIN
NEF.$$FIN
$$ERO=HM8 nicht gefunden
GTO.Error
EIF.
EXE.$$FIN
PAU.3
GTO.RunIt
ELS.
$$ERO=HM8 nicht installiert.
GTO.Error
EIF.
SAV.Restore
:Locate_First
STW.ctw|TFrmHelpMan|Help+Manual|45
'SWP.700,498|1612,165|T
HTV.$$ULT
SCW.nct|1|TdxHMRibbon|{&NOTEXT:}
HTV.$$RIB
RET.
'-----------------------------------------------------------
:react
' Get Button number out of $$RET into §§TMA
SBD.§§BTN|$sp$|1|§§TMA
' Button Action into §§TMB
SBD.§§BTN|$sp$|2|§§TMB
'PRT. Button pressed: §§TMA
'PRT. Action-code: §§TMB
GSB.TestMo
' react on Buttonpress
IVS.§§TMB=!P!
SCS.§§TMA
CAN.$$BUN
JSR.doEnd
CAN.1
JSR.doButton01
CAN.2
JSR.doButton02
CAN.3
JSR.doButton03
CAN.4
JSR.doButton04
CAN.5
JSR.doButton05
CAN.6
JSR.doButton06
CAN.7
JSR.doButton07
CAN.8
DBP.8 pressed!
CAE.
MBX.Button-Number: §§TMA is not defined.
: $$RET=
ESC.
EIF.
RET.
'-----------------------------------------------------------
' Do Button 1
'-----------------------------------------------------------
:doButton01
GSB.Set_Style_Headline
GSB.Set_Style_Sub_Headline
GSB.Set_Style_right_Sub_Headline
'
GSB.WaitShift
GSB.Locate_below_Selected
PAU.1
MLM.
GSB.Move_Mouse_To_B1
RET.
'-----------------------------------------------------------
' Do Button 2
'-----------------------------------------------------------
:doButton02
GSB.Mark_Headline
SDK.^v
GSB.Mark_Headline
PAU.0.5
GSB.Open_Style_Menu
GSB.Set_Font_Style|Heading1
GSB.Set_Style_Sub_Headline
GSB.Set_Style_right_Sub_Headline
'
GSB.WaitShift
GSB.Locate_below_Selected
PAU.0.25
MLM.
GSB.Move_Mouse_To_Button|2
RET.
'-----------------------------------------------------------
' Do Button 3
'-----------------------------------------------------------
' Jump to next and then Replace Headers
:doButton03
GSB.Locate_below_Selected
PAU.1
MLM.
PAU.1
WII.6
GSB.Mark_Headline
SDK.^v
GSB.Mark_Headline
PAU.0.5
GSB.Open_Style_Menu
GSB.Set_Font_Style|Heading1
GSB.Set_Style_Sub_Headline
GSB.Set_Style_right_Sub_Headline
'
GSB.Move_Mouse_To_Button|3
RET.
'-----------------------------------------------------------
' Do Button 4
'-----------------------------------------------------------
:doButton04
GSB.Locate_false_Icon
GSB.Locate_Icon_change_Menu
GSB.Locate_right_Icon
GSB.Move_Mouse_To_Button|4
RET.
'-----------------------------------------------------------
' Do Button 5
'-----------------------------------------------------------
:doButton05
FOR.$$LL5|1|8
GSB.doButton03
PAU.1
IEK.LSHIFT
ENR.
EIF.
NEX.
GSB.Move_Mouse_To_Button|5
RET.
'-----------------------------------------------------------
' Do Button 6
'-----------------------------------------------------------
:doButton06
GSB.Do_Mark_MRL
GSB.Set_Style_Small_Page_Title
GSB.Locate_Topline_Start
MLC.
GSB.Move_Mouse_To_Button|6
RET.
'-----------------------------------------------------------
' Do Button 7
'-----------------------------------------------------------
:doButton07
GSB.Locate_TW
GSB.Move_Mouse_To_Button|7
RET.
'-----------------------------------------------------------
:TestMo
' react on Mouseover
IVS.§§TMB=!M!O!
'
GTO.MOut
EIF.
' react on Mouse-Leaves Button Area
IVS.§§TMB=!M!L!
'
GTO.MOut
EIF.
RET.
' On Mouseover return directly to Mainloop (RET.2)
:MOut
RET.2
'-----------------------------------------------------------
:doEnd
END.
'-----------------------------------------------------------
:Error
MBX.$$ERO
GTO.doEnd
ENR.
'===========================================================
' These Subprogramms are unused
:GetMousePos
GSB.WaitShift
GMP.mw|§§POS
PRT.Mouse is: §§POS
RET.
'-----------------------------------------------------------
:WaitShift
WNK.
:Laba
IEK.LSHIFT
GTO.WSOut
ELS.
PAU.0.1
GTO.Laba
EIF.
:WSOut
RET.
'-----------------------------------------------------------
:Locate_TW
IEW.$$ULT
STW.h|$$ULT
ELS.
STW.ct|TFrmHelpMan|Help+Manual
HTV.$$ULT
SWP.1090,130|1414,1665|T
EIF.
RET.
'-----------------------------------------------------------
:Open_Style_Menu
GSB.Locate_TW
'SWP.1666,287|297,93|T
'MMV.t|428,125
SCW.nct|1|TdxHMRibbon|{&NOTEXT:}
SCW.nct|1|TdxRibbonGroupsDockControlSite|{&NOTEXT:}
SCW.nct|1|TdxRibbonGroupsDockControl|{&NOTEXT:}
SCW.nct|1|TdxRibbonGroupBarControl|Schriftart
MLI.w|117,61
WII.
PAU.0.1
RET.
'-----------------------------------------------------------
:Set_Font_Style
$$STL=§§_01
STW.Ac|TdxBarDropdown
AGR.34!WII.MOS.|$$STL||1|3|60
RET.
'-----------------------------------------------------------
:Do_Mark_MRL
GSB.Locate_Small_MRL
SKP.{END}
KYD.{LSHIFT}
SKP.{HOME}
KYU.{LSHIFT}
PAU.1
RET.
'-----------------------------------------------------------
:Do_Mark_Line
GSB.Locate_TW
SKP.{HOME}
KYD.{LSHIFT}
SKP.{END}
KYU.{LSHIFT}
PAU.1
RET.
'-----------------------------------------------------------
'-----------------------------------------------------------
:Locate_Headline
GSB.Locate_TW
MLI.t|584,249
RET.
'-----------------------------------------------------------
:Locate_Sub_Headline
GSB.Locate_TW
MLI.t|835,300
RET.
'-----------------------------------------------------------
:Locate_right_Sub_Headline
GSB.Locate_TW
MLC.t|1126,298
RET.
'-----------------------------------------------------------
:Mark_Headline
GSB.Locate_Headline
SDK.^a
'GSB.WaitShift
RET.
'-----------------------------------------------------------
:Mark_Sub_Headline
GSB.Locate_Sub_Headline
SDK.^a
'GSB.WaitShift
RET.
'-----------------------------------------------------------
:Mark_right_Sub_Headline
GSB.Locate_right_Sub_Headline
SDK.^a
'GSB.WaitShift
RET.
'-----------------------------------------------------------
:Mark_Full_Sub_Headline
GSB.Locate_Sub_Headline
SDK.^a
SDK.^a
'GSB.WaitShift
RET.
'-----------------------------------------------------------
:Set_Style_Line_Style
GSB.Open_Style_Menu
GSB.Set_Font_Style|LineStile
RET.
'-----------------------------------------------------------
:Set_Style_Small_Page_Title
GSB.Open_Style_Menu
GSB.Set_Font_Style|Small Page Title
RET.
'-----------------------------------------------------------
:Set_Style_Headline
GSB.Mark_Headline
GSB.Open_Style_Menu
GSB.Set_Font_Style|Heading1
RET.
'-----------------------------------------------------------
:Set_Style_Sub_Headline
GSB.Mark_Sub_Headline
GSB.Open_Style_Menu
GSB.Set_Font_Style|Heading2
RET.
'-----------------------------------------------------------
:Set_Style_right_Sub_Headline
GSB.Mark_right_Sub_Headline
GSB.Open_Style_Menu
GSB.Set_Font_Style|Heading3
RET.
'-----------------------------------------------------------
:Move_Mouse_To_Button
$$STL=§§_01
VBT.$$STL
$$TXT=F$$STL
STW.ct|Form1_Class|MR
SCW.ct|ButtonEx_Class32|$$TXT
MPO.
RET.
'-----------------------------------------------------------
:Move_Mouse_To_B1
GSB.Move_Mouse_To_Button|1
RET.
'-----------------------------------------------------------
:Move_Mouse_To_B2
GSB.Move_Mouse_To_Button|2
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
:Locate_selected_TV_Element
GSB.Locate_TW
' Please adapt the filename of the saved Pattern
'VAR.$$PAT=?pattern\P_7335.bmp
GSB.Inline_8970
VAR.$$PAT=ID:$$DTA
' P1 - Target, P2 - Pattern, P3 - Color-Tolerance, P4 - min. Hits (Pixel) maximum Number:64 . We use -10%, P5 - Debugmode 0/1
'SFP.Snap_Border|1
SFP.ColorTolerance|0
SFP.PixelHits|57
SFP.DebugMode|0
' Patternfile | Point-Shift| Timeout 60 Seconds
WFP.$$PAT|0,0|60
' We take away the number of Hits from TOS
POP.$$NOH
' If no Hits, jump away to Lab_NoHits.
JIZ.$$NOH=0|Lab_NoHits_7335
MMV.
RET.
'-----------------------------------------------------------
' .bmp from HE-Recorder
' $$DTA = Data
' $$FIN = Filename of Sourcefile
' Length: 158 Bytes in 1 Lines.
:Inline_8970
VDA.$$DTA|$$FIN=
?MAAEOAQAASlHMfhfYzrQoxYI/Ftc3mnBtSjYSYBfiLaPgfbNgC2KBU1eeQhLy60MDuXfpRQj0rcuPtPBTGlvGu+z7cJO6C44/EnytF8yVNA+C1z1msKAtTqlmALtGTSnMagDrPLpMHfmKmu/PGAAMCwhGVeUB
VDE.
RET.
'-----------------------------------------------------------
' The following Part will be called in case of Error.
:Lab_NoHits_7335
MBX.Pattern <P_7335.bmp> not found.
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
'-----------------------------------------------------------
'
'-----------------------------------------------------------
:Locate_below_Selected
GSB.Locate_TW
' Please adapt the filename of the saved Pattern
'VAR.$$PAT=?pattern\P_7767.bmp
GSB.Inline_4035
VAR.$$PAT=ID:$$DTA
' P1 - Target, P2 - Pattern, P3 - Color-Tolerance, P4 - min. Hits (Pixel) maximum Number:64 . We use -10%, P5 - Debugmode 0/1
'SFP.Snap_Border|1
SFP.ColorTolerance|0
SFP.PixelHits|57
SFP.DebugMode|0
' Patternfile | Point-Shift| Timeout 60 Seconds
WFP.$$PAT|0,0|60
' We take away the number of Hits from TOS
POP.$$NOH
' If no Hits, jump away to Lab_NoHits.
JIZ.$$NOH=0|Lab_NoHits_7767
MPO.
RET.
'-----------------------------------------------------------
' The following Part will be called in case of Error.
:Lab_NoHits_7767
MBX.Pattern <P_7767.bmp> not found.
RET.
'-----------------------------------------------------------
' .bmp from HE-Recorder
' $$DTA = Data
' $$FIN = Filename of Sourcefile
' Length: 176 Bytes in 2 Lines.
:Inline_4035
VDA.$$DTA|$$FIN=
?MAAEOAQAASlHMfhfYzgSkdHk/Ftc3mnBtSjbWqlA6LqThfbNgGIBNq1ifQhK67kQRhd6S7rg6w+M4+phKZ88dX5Ceb4pRYGw/jP1odDNXOdAJNadnvmsd50FlzH8eGH1C4K0umf1LEQGH80MiEAAJBP8uFbfuhuaT
+HAC5NKvqmUB
VDE.
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
'-----------------------------------------------------------
'
'-----------------------------------------------------------
:Locate_false_Icon
GSB.Locate_TW
' Please adapt the filename of the saved Pattern
'VAR.$$PAT=?pattern\P_3630.bmp
GSB.Inline_3528
VAR.$$PAT=ID:$$DTA
' P1 - Target, P2 - Pattern, P3 - Color-Tolerance, P4 - min. Hits (Pixel) maximum Number:64 . We use -10%, P5 - Debugmode 0/1
'SFP.Snap_Border|1
SFP.ColorTolerance|0
SFP.PixelHits|64
SFP.DebugMode|0
' Patternfile | Point-Shift| Timeout 60 Seconds
WFP.$$PAT|0,0|60
' We take away the number of Hits from TOS
POP.$$NOH
' If no Hits, jump away to Lab_NoHits.
JIZ.$$NOH=0|Lab_NoHits_3630
MRI.
RET.
'-----------------------------------------------------------
' The following Part will be called in case of Error.
:Lab_NoHits_3630
MBX.Pattern <P_3630.bmp> not found.
RET.
'-----------------------------------------------------------
' .bmp from HE-Recorder
' $$DTA = Data
' $$FIN = Filename of Sourcefile
' Length: 284 Bytes in 2 Lines.
:Inline_3528
VDA.$$DTA|$$FIN=
?MAAEOAQAASlF8bSHYBphXC9xgHyB6ivXH1nWYS+sYAFmXMobDia4QBMtGskeKOYP6b4lGFQWpYq/uQo3z4fiYwLrIvMpnfgXqCEGBoXhwSBqddgeEx6Zl/zZX1yDdgstU9u2J7Gzh+keW/8n0DziM9W9TR5bJULrf
K/ByW5ot1u7OaYPvmufG+hB6dK/YGnvxzA7NxC79ZFGjmrWs2l+DTBUD5UugqFggIAAL9BYDL6jU22F2bgQwJ6bazg8168RuOrFhgEno9E4pJd+VDnxyQQE=
VDE.
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
'-----------------------------------------------------------
'
'-----------------------------------------------------------
:Locate_Icon_change_Menu
STW.c|TDXRibbonPopup
' Please adapt the filename of the saved Pattern
'VAR.$$PAT=?pattern\P_4134.bmp
GSB.Inline_7893
VAR.$$PAT=ID:$$DTA
' P1 - Target, P2 - Pattern, P3 - Color-Tolerance, P4 - min. Hits (Pixel) maximum Number:128 . We use -10%, P5 - Debugmode 0/1
'SFP.Snap_Border|1
SFP.ColorTolerance|0
SFP.PixelHits|115
SFP.DebugMode|0
' Patternfile | Point-Shift| Timeout 60 Seconds
WFP.$$PAT|0,0|60
' We take away the number of Hits from TOS
POP.$$NOH
' If no Hits, jump away to Lab_NoHits.
JIZ.$$NOH=0|Lab_NoHits_4134
MPO.
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
' .bmp from HE-Recorder
' $$DTA = Data
' $$FIN = Filename of Sourcefile
' Length: 378 Bytes in 3 Lines.
:Inline_7893
VDA.$$DTA|$$FIN=
?MAAEOAgAASlEcTCPYthDB0N/zfCvTaAaNcwkJCQkJiclwh+ykrmEBgOlFDzqQH+sam+dIeKy5C0JbASdrgTXeJl+Cy1UnneCoWcc7ymSyjz3FPBPEEOA1KfSf4ruxxhcNLd4NAKjYfEuqeB3Q5M3xCtXY3wDQsU5h
nlAungu0VmLgngs0fQ+P+j4KjDe8GF4i8b1wRqb2ecSYjRgcm9iGikgNM8UZwOzhuYqW1mrA+cTwBKvcRxZsC+/IlpSowd/CB3AO2ASn5oTMe3u3A3/Ua36ylSYq13valENQxO55dPOnHZ/Q5OWmE9Wm3obCLeAX
0ycgoQOylaZrgnyyU/1BITr03xTqdKoKWkcWBTArGL/S2t5r3PAB
VDE.
RET.
'-----------------------------------------------------------
' The following Part will be called in case of Error.
:Lab_NoHits_4134
MBX.Pattern <P_4134.bmp> not found.
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
'-----------------------------------------------------------
'
'-----------------------------------------------------------
:Locate_right_Icon
STW.c|TDXRibbonDrop
' Please adapt the filename of the saved Pattern
'VAR.$$PAT=?pattern\P_0736.bmp
GSB.Inline_5082
VAR.$$PAT=ID:$$DTA
' P1 - Target, P2 - Pattern, P3 - Color-Tolerance, P4 - min. Hits (Pixel) maximum Number:64 . We use -10%, P5 - Debugmode 0/1
'SFP.Snap_Border|1
SFP.ColorTolerance|0
SFP.PixelHits|57
SFP.DebugMode|0
' Patternfile | Point-Shift| Timeout 60 Seconds
WFP.$$PAT|0,0|60
' We take away the number of Hits from TOS
POP.$$NOH
' If no Hits, jump away to Lab_NoHits.
JIZ.$$NOH=0|Lab_NoHits_736
MLC.
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
' .bmp from HE-Recorder
' $$DTA = Data
' $$FIN = Filename of Sourcefile
' Length: 256 Bytes in 2 Lines.
:Inline_5082
VDA.$$DTA|$$FIN=
?MAAEOAQAASlE0fiPYojaIkFksofsrHLzSYwEMI2DupSxPFpRGoxlW/K6vBCiYs9/tb4VBDoVshD+ORQ+63LN/cjN2pi28Slu3LJr3SntQodlcgW6EcAG21dfb5YWwKSUfsivsUMtUGE9LXCCZeTIQts1fPhE5MmdA
LZqQozOATKpVnv6Rdo1zCAgVVXL4c3fztfeJI4ldaD1pZD8Sum4EZBIGi/PE5nUtlEMoo7A8TGFh5P9ragZ/6nfOdwE=
VDE.
RET.
'-----------------------------------------------------------
' The following Part will be called in case of Error.
:Lab_NoHits_736
MBX.Pattern <P_0736.bmp> not found.
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
:Locate_Small_MRL
GSB.Locate_TW
' Please adapt the filename of the saved Pattern
'VAR.$$PAT=?pattern\P_2226.bmp
GSB.Inline_8713
VAR.$$PAT=ID:$$DTA
' P1 - Target, P2 - Pattern, P3 - Color-Tolerance, P4 - min. Hits (Pixel) maximum Number:192 . We use -10%, P5 - Debugmode 0/1
'SFP.Snap_Border|1
SFP.ColorTolerance|0
SFP.PixelHits|172
SFP.DebugMode|0
' Patternfile | Point-Shift| Timeout 60 Seconds
WFP.$$PAT|60,0|60
' We take away the number of Hits from TOS
POP.$$NOH
' If no Hits, jump away to Lab_NoHits.
JIZ.$$NOH=0|Lab_NoHits_2226
MLC.
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
' .bmp from HE-Recorder
' $$DTA = Data
' $$FIN = Filename of Sourcefile
' Length: 588 Bytes in 4 Lines.
:Inline_8713
VDA.$$DTA|$$FIN=
?MAAEOAwAASlFsSBrYfuxres3rZKAVC4IPFDcuS3dlJLnnqwk0AKNcmzYvEneCNF75m7uuvzUiv+FGDqAZK1M3oPx+8MkHWIUBikKVrzeyBxQ3rpGibARJRG45bopEUFSJGnqLG5O62zrXB3o9HHCvfLdGs51Y3vFL
xqPD74Zi2QwLbWzVsBKIoS58imR/8vdLCQjPgsGz4m+56olo/Sjz9BEGRtskGbEUqcQ07wJl5RD5lHeEwCvw5JKEgIK+jM38GxbFuMh5sAMYO0NISQOr7VbIzdBkMCZsVMBiFtJiQU9FP4CSvL2iUysrmDhxCjYn
2l4bPZIOyhOn6MqKdDqWKJnA6wQ9hqF2xsdkMlryz26px52eWjy2h2MSEL6b/76fDuPCJYPUXeYcuvv8tbZaHZtsUYC4ILiN5r4IBSLRSAuMZU1vrLslpSCQufTHTOStYcdBG2gFSD+CArBYAyWeFC3fgFjMi2Oy
DGF4vN0vKdwYFIxIVjXtlnbr31mt5dZPVaddmnfLz0gpGTpISyim3lycfiykeeLBWjJXfKSr8D+S+k6U+XE1F5RH/ib2V4oMGAE=
VDE.
RET.
'-----------------------------------------------------------
' The following Part will be called in case of Error.
:Lab_NoHits_2226
MBX.Pattern <P_2226.bmp> not found.
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
'-----------------------------------------------------------
'
'-----------------------------------------------------------
:Locate_Topline_Start
GSB.Locate_TW
' Please adapt the filename of the saved Pattern
'VAR.$$PAT=?pattern\P_5564.bmp
GSB.Inline_4
VAR.$$PAT=ID:$$DTA
' P1 - Target, P2 - Pattern, P3 - Color-Tolerance, P4 - min. Hits (Pixel) maximum Number:64 . We use -10%, P5 - Debugmode 0/1
'SFP.Snap_Border|1
SFP.ColorTolerance|0
SFP.PixelHits|57
SFP.DebugMode|0
' Patternfile | Point-Shift| Timeout 60 Seconds
WFP.$$PAT|30,0|5
' We take away the number of Hits from TOS
POP.$$NOH
' If no Hits, jump away to Lab_NoHits.
JIZ.$$NOH=0|Lab_NoHits_5564
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
' .bmp from HE-Recorder
' $$DTA = Data
' $$FIN = Filename of Sourcefile
' Length: 138 Bytes in 1 Lines.
:Inline_4
VDA.$$DTA|$$FIN=
?MAAEOAQAASlGseyTYXhw1dWgkPbIMMW3DbAOw1aeeO20b4CJPvTOzqXjsFcet5AHMJ3jOQgIwQ7jveo50iUkpmUGtWyAjHD0Tj/F1to6YforqXvDW6Mft/JFFLnL+ZPV3xSd0AQ==
VDE.
RET.
'-----------------------------------------------------------
' The following Part will be called in case of Error.
:Lab_NoHits_5564
MBX.Pattern Topline-Start not found.
RET.
'-----------------------------------------------------------
'
'-----------------------------------------------------------
'
'-----------------------------------------------------------
ENR.
Remarks
-
Limitations:-
-
See also:
•