Check-in [fc5488ed40]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:negative .deg fixed
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: fc5488ed409c9796b5be6ed386c623d8321b6358
User & Date: bernd 2014-01-11 00:17:40
Context
2014-01-12
00:10
Sensor stuff redesigned check-in: bd42ea02bd user: bernd tags: trunk
2014-01-11
00:17
negative .deg fixed check-in: fc5488ed40 user: bernd tags: trunk
2014-01-10
23:04
Location service added check-in: 6a0066556d user: bernd tags: trunk
Changes

Changes to gles2/jni-location.fs.

40
41
42
43
44
45
46
47
48
49

50
51
52
53
54


55
56
57
58
59
60
61

62


    clazz >o gforth-handler o> >o
    clazz >o startgps o> post o> ;

: stop-gps ( -- )
    clazz >o gforth-handler o> >o
    clazz >o stopgps o> post o> ;

previous previous

: .deg ( degree -- )

    fdup floor fdup f>s 0 .r '°' xemit f-  60e f*
    fdup floor fdup f>s 0 .r ''' xemit f-  60e f*
    f. ;

: .location ( -- )  location >o


    ." Lat: " getLatitude .deg cr
    ." Lon: " getLongitude .deg cr
    ." Alt: " getAltitude f. cr
    ." Spd: " getSpeed f. cr
    ." Dir: " getBearing f. cr
    ." Tme: " getTime d. cr
    ." Acc: " getAccuracy f. cr

    o> ;









<
<

>





>
>
|
|
|
|
|
|
|
>
|
>
>
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
    clazz >o gforth-handler o> >o
    clazz >o startgps o> post o> ;

: stop-gps ( -- )
    clazz >o gforth-handler o> >o
    clazz >o stopgps o> post o> ;



: .deg ( degree -- )
    fdup f0< IF ." -" fnegate THEN
    fdup floor fdup f>s 0 .r '°' xemit f-  60e f*
    fdup floor fdup f>s 0 .r ''' xemit f-  60e f*
    f. ;

: .location ( -- )  location >o
    o 0= IF  ." unknown" cr
    ELSE
	." Lat: " getLatitude .deg cr
	." Lon: " getLongitude .deg cr
	." Alt: " getAltitude f. cr
	." Spd: " getSpeed f. cr
	." Dir: " getBearing f. cr
	." Tme: " getTime d. cr
	." Acc: " getAccuracy f. cr
    THEN
    o> ;

previous previous

Changes to jni-location.fs.

40
41
42
43
44
45
46
47
48
49

50
51
52
53
54


55
56
57
58
59
60
61

62


    clazz >o gforth-handler o> >o
    clazz >o startgps o> post o> ;

: stop-gps ( -- )
    clazz >o gforth-handler o> >o
    clazz >o stopgps o> post o> ;

previous previous

: .deg ( degree -- )

    fdup floor fdup f>s 0 .r '°' xemit f-  60e f*
    fdup floor fdup f>s 0 .r ''' xemit f-  60e f*
    f. ;

: .location ( -- )  location >o


    ." Lat: " getLatitude .deg cr
    ." Lon: " getLongitude .deg cr
    ." Alt: " getAltitude f. cr
    ." Spd: " getSpeed f. cr
    ." Dir: " getBearing f. cr
    ." Tme: " getTime d. cr
    ." Acc: " getAccuracy f. cr

    o> ;









<
<

>





>
>
|
|
|
|
|
|
|
>
|
>
>
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
    clazz >o gforth-handler o> >o
    clazz >o startgps o> post o> ;

: stop-gps ( -- )
    clazz >o gforth-handler o> >o
    clazz >o stopgps o> post o> ;



: .deg ( degree -- )
    fdup f0< IF ." -" fnegate THEN
    fdup floor fdup f>s 0 .r '°' xemit f-  60e f*
    fdup floor fdup f>s 0 .r ''' xemit f-  60e f*
    f. ;

: .location ( -- )  location >o
    o 0= IF  ." unknown" cr
    ELSE
	." Lat: " getLatitude .deg cr
	." Lon: " getLongitude .deg cr
	." Alt: " getAltitude f. cr
	." Spd: " getSpeed f. cr
	." Dir: " getBearing f. cr
	." Tme: " getTime d. cr
	." Acc: " getAccuracy f. cr
    THEN
    o> ;

previous previous