#STPBuilderApp
#hide #option _TOOL_KEYPAD
#hide #option _TOOL_KEYINPUT
#option _SS_Lines
#option _SS_Marquee
init gmc_defaultcommobj := galilcomm
dim Mspeed as float
'SetSystemSetting(SYS_VOLUME,5,SYSACT_DONOW)
Declare ClockDisplay_1 as ClockDisplayV2
Level 249999
#Visible True
#Lock False
init parent := default
init xpos := 160
init ypos := 170
init width := 71
init height := 32
Enddec
Declare ExceptionDisplay as ExceptionDisplayV2
Level 249989
#Visible False
#Lock False

Enddec
Declare GalilComm as GalilCommunication
Level 249988
#Visible False
#Lock False
init ipaddress := "10.0.0.177"
init commmethod := gmc_ethernettcp
'SetSystemSetting(SYS_VOLUME,5,SYSACT_DONOW)
Enddec
Declare GMCDownload_1 as GMCDownload
Level 249996
#Visible True
#Lock False
init commobject := galilcomm
Enddec
Declare GMCGauge_1 as GMCGauge
Level 249995
#Visible True
#Lock False
init parent := default
init xpos := 0
init ypos := 175
init width := 151
init height := 31
init direction := horizontal
init commobject := galilcomm
init customcommand := ""
init usecustomcommand := false
init inputtype := gmc_torque
init pollinterval := 50
init startrange := -10
init endrange := 10
init color1 := rgb_white
init color2 := rgb_gray
init color3 := rgb_black
Enddec
Declare GMCPoll_1 as GMCPoll
Level 249990
#Visible True
#Lock False
init parent := default
init xpos := 0
init ypos := 152
init width := 150
init height := 20
init commobject := galilcomm
init pollinterval := 100
init font := Helv14
init bgcolor := col_223
init command := "TEX"
Enddec
Declare GMCPoll_2 as GMCPoll
Level 249993
#Visible True
#Lock False
init parent := default
init xpos := 0
init ypos := 68
init width := 152
init height := 19
init commobject := galilcomm
init command := "TPX"
init pollinterval := 100
init bgcolor := col_222
init font := helv14
init fgcolor := rgb_black
Enddec
Declare GMCPoll_3 as GMCPoll
Level 249997
#Visible True
#Lock False
init parent := default
init xpos := 160
init ypos := 150
init width := 156
init height := 19
init commobject := galilcomm
init command := "TVX"

func responsereceived (response as reference to string)
    Val(Mspeed,response)
    Tachometer_1.value = Mspeed
endfunc

init pollinterval := 50
init bgcolor := rgb_white
Enddec
Declare GMCTrendChart_1 as GMCTrendChart
Level 250000
#Visible True
#Lock False
init parent := default
init xpos := 2
init ypos := 91
init width := 148
init height := 59
init commobject := galilcomm
init lowlimit := -100
init highlimit := 100
init pollinterval := 50
init inputtype := gmc_positionerror
init fgcolor := rgb_black
init bgcolor := rgb_white
init bordercolor := col_112
Enddec
Declare KeypadSettings as KeypadSettingsv2
Level 249986
#Visible False
#Lock False

Enddec
Declare KeypadSpinner_1 as KeypadSpinnerV2
Level 249992
#Visible True
#Lock False
init parent := default
init xpos := 230
init ypos := 170
init width := 86
init height := 32
init usesoftkeybar := false
init maximumstep := 1000
init mediumstep := 100
init spinnerstyle := _kps_right
init ptsize := 12
init autoedit := default
init minimumstep := 100
init value := default
init font := Helv14_bdf
Enddec
Declare KeyTranslator as KeyTranslationv2
Level 249987
#Visible False
#Lock False
init translationtable := "0þ241þF1ÿ1þ242þF2ÿ2þ243þF3ÿ3þ244þF4ÿ4þ245þF5ÿ8þ38þ&ÿ9þ37þ%ÿ10þ476þ<home>ÿ11þ229þ<up>ÿ12þ493þ<pgup>ÿ16þ40þ(ÿ17þ41þ)ÿ18þ219þ<left>ÿ19þ64þ@ÿ20þ228þ<right>ÿ24þ35þ#ÿ25þ63þ?ÿ26þ473þ<end>ÿ27þ226þ<down>ÿ28þ490þ<pgdn>ÿ32þ47þ/ÿ33þ42þ*ÿ34þ49þ1ÿ35þ50þ2ÿ36þ51þ3ÿ40þ43þ+ÿ41þ45þ-ÿ42þ52þ4ÿ43þ53þ5ÿ44þ54þ6ÿ49þ44þ,ÿ50þ55þ7ÿ51þ56þ8ÿ52þ57þ9ÿ57þ46þ.ÿ58þ27þ\x1bÿ59þ48þ0ÿ60þ13þ\rÿ"
init translationtableshifted := "0þ65þAÿ1þ66þBÿ2þ67þCÿ3þ68þDÿ4þ69þEÿ8þ70þFÿ9þ71þGÿ10þ72þHÿ11þ73þIÿ12þ74þJÿ16þ75þKÿ17þ76þLÿ18þ77þMÿ19þ78þNÿ20þ79þOÿ24þ80þPÿ25þ81þQÿ26þ82þRÿ27þ83þSÿ28þ84þTÿ32þ85þUÿ33þ86þVÿ34þ49þ1ÿ35þ50þ2ÿ36þ51þ3ÿ40þ87þWÿ41þ88þXÿ42þ52þ4ÿ43þ53þ5ÿ44þ54þ6ÿ49þ89þYÿ50þ55þ7ÿ51þ56þ8ÿ52þ57þ9ÿ57þ90þZÿ58þ8þ\x08ÿ59þ48þ0ÿ60þ32þ ÿ"
Enddec
Declare ScreenSaver as ScreenSaverV2
Level 249985
#Visible False
#Lock False
init saver_mode := _ss_marquee
init marqueetext := "Galil Demo"

func enterstate(newstate as _ss_states) returns boolean

    return default (newstate)
endfunc

func startup ()
    handles MSG_INIT

    default ()
endfunc

func backlightoff_time(newval as integer)

    default (newval)
endfunc

func launchscreensaver_time(newval as integer)

    default (newval)
endfunc
Enddec
Declare SoftKeyBar_1 as SoftKeyBarV2
Level 249991
#Visible True
#Lock False
init parent := default
init xpos := 1
init ypos := 208
init width := 320
init height := 31
init font := default_bdf
init ptsize := 10
init buttonborderstyle := bdr_softkey
init buttonfgcolor := clr_softkeybarbuttonfg
init buttonbgcolor := clr_softkeybarbuttonbg
init barbgcolor := clr_softkeybarbackground
init changeled := true
init softkeylist := [sk_go, sk_stop, sk_rev, sk_xq, sk_update_speed]
Enddec
Declare Tachometer_1 as TachometerV2
Level 249994
#Visible True
#Lock False
init parent := default
init xpos := 160
init ypos := 0
init width := 158
init height := 95
init radius := 63
init needlestyle := needle_alt2
init max := 10000
init maxticks := 6
init arcsize := 270
init ptsize := 10
init font := default
init dropshadowdistance := default
init tickline := default
init arcwidth := 2
init arccolor := clr_buttonforeground
init bottominset := -10
init rightinset := 0
init outerptsize := 12
init decimalplaces := 0
init rotation := pi
Enddec
Declare TranslucentLabel_1 as TranslucentLabelV2
Level 249998
#Visible True
#Lock False
init parent := default
init xpos := 3
init ypos := 3
init width := 151
init height := 62
init value := "Galil Demo"
init ptsize := default
init font := Helv14_bdf
init fgcolor := clr_buttonbackground
Enddec
Declare sk_go as SoftKeyv2
Level 10000
#Visible True
#Lock False
init value := "GO"
func handlekeypress()

    GalilComm.SendAsciiCommandStream("JG1000;BGX",default,0)
    PlayNote (36, 220)
endfunc
Enddec
Declare sk_rev as SoftKeyv2
Level 10000
#Visible True
#Lock False
init value := "Download Program"
func handlekeypress()

    GMCDownload_1.LoadFromResource(TEST)
    GMCDownload_1.Download("")

endfunc
Enddec
Declare sk_stop as SoftKeyv2
Level 10000
#Visible True
#Lock False
init value := "STOP"
func handlekeypress()

    GalilComm.SendAsciiCommandStream("ST",default,0)
    PlaySound(VLADIMIR)
endfunc
Enddec
Declare sk_update_speed as SoftKeyv2
Level 10000
#Visible True
#Lock False
init value := "UPDATE SPEED"
func handlekeypress()

    GalilComm.SendAsciiCommandStream("JG"+str(KeypadSpinner_1.value),default,0)
endfunc
Enddec
Declare sk_xq as SoftKeyv2
Level 10000
#Visible True
#Lock False
init value := "XQ"
func handlekeypress()

    GalilComm.SendAsciiCommandStream("XQ",default,0)
endfunc
Enddec
#Hide Library Extra Source ClockDisplayV2
#Hide Library Basic Source ExceptionDisplayV2
#Hide Library Galil_mc Source GalilCommunications
#Hide Library Galil_mc Source GMCDownload
#Hide Library Galil_mc Source GMCGauge
#Hide Library Galil_mc Source GMCPoll
#Hide Library Galil_mc Source GMCTrendChart
#Hide Library Basic Source keypadsettingsV2
#Hide Library Basic Source keypadspinnerV2
#Hide Library Basic Source keypadtranslatorV2
#Hide Library Basic Source ScreenSaverV2
#Hide Library Basic Source SoftKeyBarV2
#Hide Library Basic Source SoftKeyV2
#Hide Library Basic Source tachometerV2
#Hide Library Extra Source TranslucentLabelV2
#SetFile -1 "*l%global%"
Includesys Library "basic.qlib"
Includesys Library "extra.qlib"
Includesys Library "galil_mc.lib"
#hide Includesys Library "progobjs.lib"
#hide Includesys Library "common.lib"
#hide library basic source necessary
#SetFile -1 "*r%global%"
Includesys Bitmap "qlarity.bmp" As default
Includesys BDFfont "helvR08.bdf" As default
Includesys BDFfont "helvR14.bdf" As Helv14
Includesys BDFfont "5x7.bdf" As Small
Includesys TTfont "vera.ttf" As default
Include _audio 1 0 31 "../../../program files/acez mp3 wav converter/output/vladimir_horowitz-etude_in_c_minor_op_25_no_12_chopin-autoname1.wav" As Vladimir
Include _binary "../desktop/dmc files/big80by1000.dmc" As Big80by1000
Include _binary "../test.dmc" As TEST
#config colormap "Clr_ButtonBackground := 255;Clr_ButtonBackgroundAlt := 219;Clr_ButtonForeground := 0;Clr_ButtonForegroundAlt := 0;Clr_FillColor := 78;Clr_LabelBackground := 255;Clr_LabelForeground := 0;Clr_ScreenBackground := 255;Clr_ScreenForeground := 0;Clr_SoftkeybarBackground := 146;Clr_SoftkeybarButtonBg := 255;Clr_SoftkeybarButtonFg := 0;"
#hide #ifnot opt_colormap%
#hide #option opt_colormap%
#hide enum colormap% as Clr_ButtonBackground:=258, Clr_ButtonBackgroundAlt:=260, Clr_ButtonForeground:=259, Clr_ButtonForegroundAlt:=261, Clr_FillColor:=264, Clr_LabelBackground:=256, Clr_LabelForeground:=257, Clr_ScreenBackground:=262, Clr_ScreenForeground:=263, Clr_SoftkeybarBackground:=265, Clr_SoftkeybarButtonBg:=266, Clr_SoftkeybarButtonFg:=267
#hide #hidden dim _colorMap[] as color
#hide init _colorMap := [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255, 255, 0, 255, 0, 219, 0, 255, 0, 78, 146, 255, 0]
#hide #endif
#config stylemap "Bdr_BumpBorder := 341292;Bdr_ButtonBorder := 335908;Bdr_CheckBoxBorder := 135206;Bdr_CompositeObject := 335908;Bdr_CompositeSunken := 331814;Bdr_InnerButton := 537202692;Bdr_InnerLabel := 67440646;Bdr_LabelBorder := 327682;Bdr_None := 131072;Bdr_Scrollbar := 67440644;Bdr_Softkey := 201996;Bdr_TabBorder := 668972;"
#hide #ifnot opt_stylemap%
#hide #option opt_stylemap%
#hide enum stylemap% as Bdr_BumpBorder:=4, Bdr_ButtonBorder:=0, Bdr_CheckBoxBorder:=6, Bdr_CompositeObject:=9, Bdr_CompositeSunken:=10, Bdr_InnerButton:=7, Bdr_InnerLabel:=8, Bdr_LabelBorder:=1, Bdr_None:=2, Bdr_Scrollbar:=3, Bdr_Softkey:=11, Bdr_TabBorder:=5
#hide #hidden dim _styleMap[] as integer
#hide init _styleMap := [335908, 327682, 131072, 67440644, 341292, 668972, 135206, 537202692, 67440646, 335908, 331814, 201996]
#hide #endif