// GPS Tracking :
// tr_01: 1 Datenaufnahme aktiv , 0 Aufnahme abgeschlossen
// Procédure gpsprint: Anzeige qui données laufend et
// pour Datenaufnahme avant et zurück pour touch - région
// mvd: Zählung qui touchmove-Punkte
// tr_erg: pour prozedur trackergebnisse (données 1x Sauver)
proc event id data
si id==3000 && tr_01==1// gps données et tracking aktiv
// Verarbeitung qui données (gpstrack) avec Anzeige (gpsprint)
// ...
endif
si id==200// touchstart
xa = data.x
ya = data.y
cas tr_01==0 : gpsprint ya// ya: Datenanzeige avant/zurück
mvd = 0// chez Touchstart 0 touchmoves
endif
si id==201// touchmov
mvd++// Ereignisse mitzählen
endif
si id==202// touchend
xe = data.x
ye = data.y
si tr_01==1// Geste pour Ende Datenaufnahme erfassen
si mvd>8 && (xa+250)<xe && (ya+250)<ye// de dessus \ streichen
tr_01 = 0// tracking inaktiv mettons
mvd = 0// touchmoves zurücksetzen
cas tr_erg==1 : trackergebnisse//là: tr_erg=0 (1x Sauver)
gpsprint// Datenanzeige
endif
endif
si tr_01==0// tracking inaktiv - Geste pour Ende Programme
si mvd>8 && xa>(xe+250) && (ya+250)<ye// de dessus / streichen
end
endif
endif
endif
endproc