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: |
fc5488ed409c9796b5be6ed386c623d8 |
| User & Date: | bernd 2014-01-11 00:17:40.942 |
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 |
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> ;
| < < > > > | | | | | | | > > > | 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 |
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> ;
| < < > > > | | | | | | | > > > | 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
|