Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
20 lines (12 sloc) 498 Bytes
\ sensor example
require jni-location.fs
also jni also android
: .sensor-at ( -- ) 0 sensor >o se-sensor >o sensor-getType ref> o> at-xy
.sensor ;
: .location-at ( -- ) 0 15 at-xy .location ;
:noname to sensor .sensor-at ; is android-sensor
:noname to location .location-at ; is android-location
: +sensors ( -- ) clazz >o sensorManager >o TYPE_ALL getSensorList >o
[: sensor-getType 1000000 start-sensor 10 ms ;] o l-map ref> ref> o> ;
page start-gps +sensors
previous previous
You can’t perform that action at this time.