Annex RDS forum

Code: [Local Link Removed for Guests]

timer0 1000, count
tft.init 1
tft.fill tft.color(red)
tft.brightness 255
a$= ""
c = 0 : z = 0
while 1
  'Read from the camera using the given login:password
  a$ = tft.camera$("http://mylogin:mypassword@192.168.1.101/picture")
  'Check inside the answer is a face has been detected / recognised
  p = instr(a$, "Detected:")
  if  p <> 0 then
    d$ = mid$(a$, p + 9)
    x1 = val(word$(d$, 1, ",")) : y1 = val(word$(d$, 2, ","))
    x2 = val(word$(d$, 3, ",")) : y2 = val(word$(d$, 4, ","))
    r = instr(a$, "Recognition:")
    if r = 0 then
      tft.rect x1, y1, x2-x1, y2-y1, 65504 '(yellow)
    else
      if instr(d$, "No Match") <> 0 then
        tft.rect x1, y1, x2-x1, y2-y1, 63488 '(red)
      else
        tft.rect x1, y1, x2-x1, y2-y1, 2016 '(green)
      end if
    end if
  end if
wend
end

count:
  wlog "frames / sec ", z-c, ramfree
  c = z
return

Code: [Local Link Removed for Guests]

tft.init 1
while 1
  a$ = tft.camera$("http://mylogin:mypassword@192.168.1.101/picture")
  ' wlog a$
wend