Preset commands are in here too.
#DEFINE_CONSTANT SIZE 12
#CATEGORY "19" // Camera
#DEFAULT_VOLATILE
#ENABLE_STACK_CHECKING
#ENABLE_TRACE
#HELP_BEGIN
use port 80
put a 1 for IP or rs422
analog inputs for speed are to set a different speed other than default of 15.
analog values need to be between 10 to 40
#HELP_END
DIGITAL_INPUT??? IP, RS422, _SKIP_;
DIGITAL_INPUT??? pan_left,pan_right; //Cam left right
DIGITAL_INPUT??? tilt_up,tilt_dn;??? //Cam Up Down
DIGITAL_INPUT ??? zoom_in, zoom_out;??? //Cam Zoom
DIGITAL_INPUT??? _SKIP_, pwrOn, pwrOff;
DIGITAL_INPUT??? _SKIP_, preset[SIZE,SIZE];
ANALOG_INPUT ??? _SKIP_, PanSpeed, TiltSpeed, ZoomSpeed;
STRING_OUTPUT??? cmd$;
digital_output??? storingPreset;
integer temp, pan_spd, tilt_spd, zoom_spd;
integer storePreset, currentPreset;
function fnStorePreset()
{
??? if(IP)
??? ??? makestring(cmd$, "GET /cgi-bin/aw_ptz?cmd=#M%02u&res=1 HTTP/1.0\n\n", currentPreset-1);
??? else if(RS422)
??? ??? makestring(cmd$, "\x23M%02u\x0d", currentPreset-1);
}
function fnRecallPreset()
{
??? if(IP)
??? ??? makestring(cmd$, "GET /cgi-bin/aw_ptz?cmd=#R%02u&res=1 HTTP/1.0\n\n", currentPreset-1);
??? else if(RS422)
??? ??? makestring(cmd$, "\x23R%02u\x0d", currentPreset-1);
}
?
////////////////////////////////////////////////////////////////////////////////////////////////////
??????
push pan_left//1:max-49:min
{
??? temp=50-pan_spd;??? //left
??? IF(IP)
??? {
??? ??? makestring(cmd$,"GET /cgi-bin/aw_ptz?cmd=#P%02u&res=1 HTTP/1.0\n\n",temp);
??? }
??? IF(RS422)
??? {
??? ??? makestring(cmd$,"#P%02u\x0d",temp);
??? }
??? wait(200)
??? {
??? ??? temp=45-pan_spd;
??? ??? makestring(cmd$,"GET /cgi-bin/aw_ptz?cmd=#P%02u&res=1 HTTP/1.0\n\n",temp);
??? }
}
push pan_right//51:min-99:max
{
??? temp=50+pan_spd;??? //Right
??? IF(IP)
??? {
??? ??? makestring(cmd$,"GET /cgi-bin/aw_ptz?cmd=#P%02u&res=1 HTTP/1.0\n\n",temp);
??? }
??? IF(RS422)
??? {
??? ??? makestring(cmd$,"#P%02u\x0d",temp);
??? }
??? wait(200)
??? {
??? ??? temp=55+pan_spd;
??? ??? makestring(cmd$,"GET /cgi-bin/aw_ptz?cmd=#P%02u&res=1 HTTP/1.0\n\n",temp);
??? }
}
release pan_left,pan_right
{
??? CancelAllWait();
??? IF(IP)
??? {
??? ??? cmd$="GET /cgi-bin/aw_ptz?cmd=#P50&res=1 HTTP/1.0\n\n";??? ??? ???
??? ??? wait(25) cmd$="GET /cgi-bin/aw_ptz?cmd=#P50&res=1 HTTP/1.0\n\n";
??? ??? //cmd$="GET /cgi-bin/aw_ptz?cmd=#PTS5050&res=1 HTTP/1.0\n\n";
??? }
??? IF(RS422)
??? {
??? ??? delay(10);???
??? ??? cmd$="#PTS5050\x0d";
??? }
}
?
////////////////////////////////////////////////////////////////////////////////////////////////////
push tilt_up//51:min-99:max
{
??? temp=50+tilt_spd;??? //Up
??? IF(IP)
??? {
??? ??? makestring(cmd$,"GET /cgi-bin/aw_ptz?cmd=#T%02u&res=1 HTTP/1.0\n\n",temp);
??? }
??? IF(RS422)
??? {
??? ??? makestring(cmd$,"#T%02u\x0d",temp);
??? }
??? wait(200)
??? {
??? ??? temp=45-tilt_spd;
??? ??? makestring(cmd$,"GET /cgi-bin/aw_ptz?cmd=#T%02u&res=1 HTTP/1.0\n\n",temp);
??? }
}
push tilt_dn//1:max-49:min
{
??? temp=50-tilt_spd;??? //Down
??? IF(IP)
??? {
??? ??? makestring(cmd$,"GET /cgi-bin/aw_ptz?cmd=#T%02u&res=1 HTTP/1.0\n\n",temp);
??? }
??? IF(RS422)
??? {
??? ??? makestring(cmd$,"#T%02u\x0d",temp);
??? }
??? wait(200)
??? {
??? ??? temp=55+tilt_spd;
??? ??? makestring(cmd$,"GET /cgi-bin/aw_ptz?cmd=#T%02u&res=1 HTTP/1.0\n\n",temp);
??? }
}
release tilt_up,tilt_dn
{
??? CancelAllWait();
??? IF(IP)
??? {
??? ??? cmd$="GET /cgi-bin/aw_ptz?cmd=#T50&res=1 HTTP/1.0\n\n";
??? ??? wait(25) cmd$="GET /cgi-bin/aw_ptz?cmd=#T50&res=1 HTTP/1.0\n\n";???
??? ??? //cmd$="GET /cgi-bin/aw_ptz?cmd=#PTS5050&res=1 HTTP/1.0\n\n";
??? }
??? IF(RS422)
??? {
??? ??? delay(10);???
??? ??? cmd$="#PTS5050\x0d";
??? }
}
?
////////////////////////////////////////////////////////////////////////////////////////////////////v
push zoom_in//51:min-99:max
{
??? integer temp;
??? temp=50+pan_spd;??? //Right
??? IF(IP)
??? {
??? ??? makestring(cmd$,"GET /cgi-bin/aw_ptz?cmd=#Z%02u&res=1 HTTP/1.0\n\n",temp);
??? }
??? IF(RS422)
??? {
??? ??? makestring(cmd$,"#P%02u\x0d",temp);
??? }
}
push zoom_out//1:max-49:min
{
??? integer temp;
??? temp=50-pan_spd;??? //left
??? IF(IP)
??? {
??? ??? makestring(cmd$,"GET /cgi-bin/aw_ptz?cmd=#Z%02u&res=1 HTTP/1.0\n\n",temp);
??? }
??? IF(RS422)
??? {
??? ??? makestring(cmd$,"#P%02u\x0d",temp);
??? }
}
release zoom_in,zoom_out
{
??? IF(IP)
??? {
??? ??? cmd$="GET /cgi-bin/aw_ptz?cmd=#Z50&res=1 HTTP/1.0\n\n";??? ??? ???
??? ??? wait(25) cmd$="GET /cgi-bin/aw_ptz?cmd=#Z50&res=1 HTTP/1.0\n\n";
??? ??? //cmd$="GET /cgi-bin/aw_ptz?cmd=#PTS5050&res=1 HTTP/1.0\n\n";
??? }
??? IF(RS422)
??? {
??? ??? delay(10);???
??? ??? cmd$="#Z50\x0d";
??? }
}
////////////////////////////////////////////////////////////////////////////////////////////////////
push preset
{
??? currentPreset = GetLastModifiedArrayIndex();
???
??? wait(400, storePresetWait) //4s
??? {
??? ??? storePreset = 1;
??? ??? pulse(200, storingPreset);
??? ??? fnStorePreset();
??? }???
}
release preset
{
??? CancelWait(storePresetWait);
??? if(!storePreset)
??? ??? fnRecallPreset();
??? storePreset = 0;
}
////////////////////////////////////////////////////////////////////////////////////////////////////
push pwrOn
{???
??? IF(IP)
??? {
??? ??? makestring(cmd$,"GET /cgi-bin/aw_ptz?cmd=#O1&res=1 HTTP/1.0\n\n");??? }
??? IF(RS422)
??? {
??????? makestring(cmd$,"\x23O1\x0D");
??? }
}
????
push pwrOff
{
??? IF(IP)
??? {
??? ??? makestring(cmd$,"GET /cgi-bin/aw_ptz?cmd=#O0&res=1 HTTP/1.0\n\n");
??? }
??? IF(RS422)
??? {
??????? makestring(cmd$,"\x23O0\x0D");
??? }
}
??
Function Main()
{
??? WaitForInitializationComplete();
??? pan_spd = 15;
??? tilt_spd = 15;
??? zoom_spd = 15;
}
