Anyone worked with Google Maps API over HTTP in T1?

Author

Message

f098f

10

Years of Service

User Offline

Joined: 28th Mar 2014

Location:

Posted: 29th Mar 2014 02:10

Link

I don't want to have to reverse engineer the javascript SDK and was hoping someone did some functions. I have an idea for a design and I need to pass lat&long or street addresses that are within x miles of GPS lat and long.

Back to top

Profile PM

Van B

Moderator

22

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 29th Mar 2014 09:31

Link

Did you check the HTTP examples?

I'm sure it does exactly what you need

- pass the coords and receive a map image...

rem AGK Application 1.08B16
rem Get a Map Image from Google Maps
rem MR

SetDisplayAspect( 4.0/3.0 )

MainLoop()
end

function MainLoop()

//spr=ShowImage("map.png")
    spr=GetMap()

do
     if getpointerpressed()=1 then exit
     Sync()
    loop

endfunction

//Map Image
//http://maps.googleapis.com/maps/api/staticmap?center=-15.800513,-47.91378&zoom=15&size=512x512&sensor=false

//Streetview Image
//http://maps.googleapis.com/maps/api/streetview?size=200x200&location=40.720032,%20-73.988354&heading=235&sensor=false

function GetMap()

//English
    //https://developers.google.com/maps/documentation/imageapis/?hl=en

//German
    //https://developers.google.com/maps/documentation/imageapis/?hl=de

spr=0

iSecure=0
    szHost$="maps.googleapis.com"

iHTTP= CreateHTTPConnection()

ret=SetHTTPHost(iHTTP, szHost$, iSecure )

//  N 51° 24.809' E 006° 51.668'     (WGS84)
    // lat = degrees + minutes/60       (Google)
    //FLOAT!
    n#=51.0 + 24.809 /60.0
    e#= 6.0 + 51.668 /60.0

szServerFile$="maps/api/staticmap?center="+str(n#)+","+str(e#)+"&zoom=15&size=512x512&sensor=false&maptype=hybrid"
    szLocalFile$="map.png"
    szPostData$=""
    f=GetHTTPFile( iHTTP, szServerFile$, szLocalFile$, szPostData$ )

ok=0
    do
        p#=GetHTTPFileProgress(iHTTP)
        print("download ... " + str(p#))

ok=GetHTTPFileComplete(iHTTP)
        if ok=1 then exit
        if ok=-1 then exit

Sync()
    loop

CloseHTTPConnection( iHTTP )

DeleteHTTPConnection( iHTTP )

if ok=1
        spr=ShowImage(szLocalFile$)
    else
        spr=createsprite(0)
        setspritecolor(spr,255,0,0,255)
    endif

endfunction spr

function ShowImage(szLocalFile$)

spr=LoadSprite(szLocalFile$)
    setspritepositionbyoffset(spr,50,50)
    setspritesize(spr,-1,100)

endfunction spr

+ Code Snippet

rem AGK Application 1.08B16
rem Get a Map Image from Google Maps
rem MR

SetDisplayAspect( 4.0/3.0 )

MainLoop()
end

function MainLoop()

    //spr=ShowImage("map.png")
    spr=GetMap()

    do
     if getpointerpressed()=1 then exit
     Sync()
    loop

endfunction


//Map Image
//http://maps.googleapis.com/maps/api/staticmap?center=-15.800513,-47.91378&zoom=15&size=512x512&sensor=false

//Streetview Image
//http://maps.googleapis.com/maps/api/streetview?size=200x200&location=40.720032,%20-73.988354&heading=235&sensor=false

function GetMap()

    //English
    //https://developers.google.com/maps/documentation/imageapis/?hl=en

    //German
    //https://developers.google.com/maps/documentation/imageapis/?hl=de

    spr=0

    iSecure=0
    szHost$="maps.googleapis.com"

    iHTTP= CreateHTTPConnection()

    ret=SetHTTPHost(iHTTP, szHost$, iSecure )

    //  N 51° 24.809' E 006° 51.668'     (WGS84)
    // lat = degrees + minutes/60       (Google)
    //FLOAT!
    n#=51.0 + 24.809 /60.0
    e#= 6.0 + 51.668 /60.0

    szServerFile$="maps/api/staticmap?center="+str(n#)+","+str(e#)+"&zoom=15&size=512x512&sensor=false&maptype=hybrid"
    szLocalFile$="map.png"
    szPostData$=""
    f=GetHTTPFile( iHTTP, szServerFile$, szLocalFile$, szPostData$ )

    ok=0
    do
        p#=GetHTTPFileProgress(iHTTP)
        print("download ... " + str(p#))

        ok=GetHTTPFileComplete(iHTTP)
        if ok=1 then exit
        if ok=-1 then exit

        Sync()
    loop

    CloseHTTPConnection( iHTTP )

    DeleteHTTPConnection( iHTTP )

    if ok=1
        spr=ShowImage(szLocalFile$)
    else
        spr=createsprite(0)
        setspritecolor(spr,255,0,0,255)
    endif

endfunction spr

function ShowImage(szLocalFile$)

    spr=LoadSprite(szLocalFile$)
    setspritepositionbyoffset(spr,50,50)
    setspritesize(spr,-1,100)

endfunction spr

I am the one who knocks...

Back to top

Profile PM Email

f098f

10

Years of Service

User Offline

Joined: 28th Mar 2014

Location:

Posted: 29th Mar 2014 16:10

Link

Here I implemented all the features except custom icons for markers. I did zoom with mouse wheel but there is a control issue in AppGameKit with raw mouse data.

This stuff is easy. The algorithms to detect hover on markers and which marker is being hovered would be difficult. I know the algorithm could use the fact the map is centered on a specific address or lat&long with bitmap dimensions, but it'd take some math.

SetDisplayAspect(0)
spr=GetMap(37.352741, -122.006422, "12", "hybrid", "800x480", "true", "&markers=color:0x00ff00|size:mid|37.352741,-122.006422&markers=color:0x0000ff|size:mid|37.352860,-122.002130")
wheel#=GetRawMouseWheel()
zoom=12
do
 if getpointerpressed()=1 then exit
 if GetRawMouseWheel()<>wheel#
    if GetRawMouseWheel()>wheel# and zoom<21
        inc zoom,1
        spr=GetMap(37.352741, -122.006422, str(zoom), "hybrid", "800x480", "true", "&markers=color:0x00ff00|size:mid|37.352741,-122.006422&markers=color:0x0000ff|size:mid|37.352860,-122.002130")
    endif
    if GetRawMouseWheel()<wheel# and zoom>0
        dec zoom,1
        spr=GetMap(37.352741, -122.006422, str(zoom), "hybrid", "800x480", "true", "&markers=color:0x00ff00|size:mid|37.352741,-122.006422&markers=color:0x0000ff|size:mid|37.352860,-122.002130")
    endif
    wheel=GetRawMouseWheel()
 endif
 Sync()
loop

remstart
-Each marker can have it's own style ex: &marker=color:0xFFFFCC|size:mid|37.352741,-122.006422
-Parameters: lat, long, zoom(0-21), style(terrain|satellite|roadmap|hybrid), resolution(ex: 500x400), sensor(true or false), markers(see above)
-Not implemented but markers can be custom icons from URLs
-Sensor has no noticable effect on anything

NOTE: set lat to street address and leave long blank to use address rather than lat&long
remend
function GetMap(n#, e#, zoom$, style$, resolution$, sensor$, markers$)

//English
    //https://developers.google.com/maps/documentation/imageapis/?hl=en

//German
    //https://developers.google.com/maps/documentation/imageapis/?hl=de

spr=0
    szHost$="maps.googleapis.com"
    iHTTP= CreateHTTPConnection()
    ret=SetHTTPHost(iHTTP, szHost$,0)

if len(str(e#))>0
        center$=HTTPEncode(str(n#))+","+HTTPEncode(str(e#))
    else
        center$=HTTPEncode(str(n#))
    endif

szServerFile$="maps/api/staticmap?center="+center$+"&zoom="+zoom$+"&size="+resolution$+"&sensor="+sensor$+"&maptype="+HTTPEncode(style$)+markers$
    szLocalFile$="map.png"
    szPostData$=""
    f=GetHTTPFile( iHTTP, szServerFile$, szLocalFile$, szPostData$ )

ok=0
    do
        p#=GetHTTPFileProgress(iHTTP)
        print("download ... " + str(p#))

ok=GetHTTPFileComplete(iHTTP)
        if ok=1 then exit
        if ok=-1 then exit

Sync()
    loop

CloseHTTPConnection( iHTTP )

DeleteHTTPConnection( iHTTP )

if ok=1
        spr=ShowImage(szLocalFile$)
    else
        spr=createsprite(0)
        setspritecolor(spr,255,0,0,255)
    endif
endfunction spr

function ShowImage(szLocalFile$)
    spr=LoadSprite(szLocalFile$)
    setspritepositionbyoffset(spr,50,50)
    setspritesize(spr,-1,100)
endfunction spr

+ Code Snippet

SetDisplayAspect(0)
spr=GetMap(37.352741, -122.006422, "12", "hybrid", "800x480", "true", "&markers=color:0x00ff00|size:mid|37.352741,-122.006422&markers=color:0x0000ff|size:mid|37.352860,-122.002130")
wheel#=GetRawMouseWheel()
zoom=12
do
 if getpointerpressed()=1 then exit
 if GetRawMouseWheel()<>wheel#
    if GetRawMouseWheel()>wheel# and zoom<21
        inc zoom,1
        spr=GetMap(37.352741, -122.006422, str(zoom), "hybrid", "800x480", "true", "&markers=color:0x00ff00|size:mid|37.352741,-122.006422&markers=color:0x0000ff|size:mid|37.352860,-122.002130")
    endif
    if GetRawMouseWheel()<wheel# and zoom>0
        dec zoom,1
        spr=GetMap(37.352741, -122.006422, str(zoom), "hybrid", "800x480", "true", "&markers=color:0x00ff00|size:mid|37.352741,-122.006422&markers=color:0x0000ff|size:mid|37.352860,-122.002130")
    endif
    wheel=GetRawMouseWheel()
 endif
 Sync()
loop

remstart
-Each marker can have it's own style ex: &marker=color:0xFFFFCC|size:mid|37.352741,-122.006422
-Parameters: lat, long, zoom(0-21), style(terrain|satellite|roadmap|hybrid), resolution(ex: 500x400), sensor(true or false), markers(see above)
-Not implemented but markers can be custom icons from URLs
-Sensor has no noticable effect on anything

NOTE: set lat to street address and leave long blank to use address rather than lat&long
remend
function GetMap(n#, e#, zoom$, style$, resolution$, sensor$, markers$)

    //English
    //https://developers.google.com/maps/documentation/imageapis/?hl=en

    //German
    //https://developers.google.com/maps/documentation/imageapis/?hl=de

    spr=0
    szHost$="maps.googleapis.com"
    iHTTP= CreateHTTPConnection()
    ret=SetHTTPHost(iHTTP, szHost$,0)

    if len(str(e#))>0
        center$=HTTPEncode(str(n#))+","+HTTPEncode(str(e#))
    else
        center$=HTTPEncode(str(n#))
    endif

    szServerFile$="maps/api/staticmap?center="+center$+"&zoom="+zoom$+"&size="+resolution$+"&sensor="+sensor$+"&maptype="+HTTPEncode(style$)+markers$
    szLocalFile$="map.png"
    szPostData$=""
    f=GetHTTPFile( iHTTP, szServerFile$, szLocalFile$, szPostData$ )

    ok=0
    do
        p#=GetHTTPFileProgress(iHTTP)
        print("download ... " + str(p#))

        ok=GetHTTPFileComplete(iHTTP)
        if ok=1 then exit
        if ok=-1 then exit

        Sync()
    loop

    CloseHTTPConnection( iHTTP )

    DeleteHTTPConnection( iHTTP )

    if ok=1
        spr=ShowImage(szLocalFile$)
    else
        spr=createsprite(0)
        setspritecolor(spr,255,0,0,255)
    endif
endfunction spr

function ShowImage(szLocalFile$)
    spr=LoadSprite(szLocalFile$)
    setspritepositionbyoffset(spr,50,50)
    setspritesize(spr,-1,100)
endfunction spr

Back to top

Profile PM

f098f

10

Years of Service

User Offline

Joined: 28th Mar 2014

Location:

Posted: 30th Mar 2014 04:13

Link

Here is Google Maps T1 code with working zoom, markers and per-marker styling, image type and other stuff. All that's left is calculating relative marker clicks and mouse-overs(PC only) from center coordinate and bitmap size. Maybe not bitmap size since out-of-view markers won't matter.

I also need to calculate markers in view in PHP given center coord on my server but can do code for that before DB query. I want to only stream marker meta data in view given zoom and bitmap size.

I would of edited my last post but it's taking days to get me posts approved so it's not visible for editing..

SetDisplayAspect(0)
spr=GetMap(37.352741, -122.006422, "12", "hybrid", "800x480", "true", "&markers=color:0x00ff00|size:mid|37.352741,-122.006422&markers=color:0x0000ff|size:mid|37.352860,-122.002130")
wheel#=GetRawMouseWheel()
zoom=12
do
 if getpointerpressed()=1 then exit
 if GetRawMouseWheel()<>wheel#
    if GetRawMouseWheel()>wheel# and zoom<21
        inc zoom,1
        spr=GetMap(37.352741, -122.006422, str(zoom), "hybrid", "800x480", "true", "&markers=color:0x00ff00|size:mid|37.352741,-122.006422&markers=color:0x0000ff|size:mid|37.352860,-122.002130")
    endif
    if GetRawMouseWheel()<wheel# and zoom>0
        dec zoom,1
        spr=GetMap(37.352741, -122.006422, str(zoom), "hybrid", "800x480", "true", "&markers=color:0x00ff00|size:mid|37.352741,-122.006422&markers=color:0x0000ff|size:mid|37.352860,-122.002130")
    endif
    wheel#=GetRawMouseWheel()
 endif
 Sync()
loop