Infinity-Profan

Italia

HofK

Mit event kann man sehr einfach und übersichtlich eine schlichte, situationsbezogene Gestensteuerung realisieren. Das Beispiel arbeitet mit einer konstanten Differenz von 250 Pixeln. Nicht viel aufwändiger ist die Relativierung mit screen.width und screen.height.
(Syntax 2016 angepasst.)

Im Beispiel GPS Track [...]

so implementiert.

Kompilieren Markieren Separieren

// GPS Tracking :
// tr_01: 1 Datenaufnahme aktiv , 0 Aufnahme abgeschlossen
// Prozedur gpsprint: Anzeige der Daten laufend und
// nach Datenaufnahme vor und zurück nach touch - Region
// mvd: Zählung der touchmove-Punkte
// tr_erg: per prozedur trackergebnisse  (Daten 1x speichern)

proc event id data

    if id==3000 && tr_01==1// gps Daten und tracking aktiv

        //   Verarbeitung der Daten (gpstrack) mit Anzeige (gpsprint)
        //    ...

    endif

    if id==200// touchstart

        xa = data.x
        ya = data.y
        case  tr_01==0 :  gpsprint ya// ya: Datenanzeige vor/zurück
        mvd = 0// bei Touchstart 0 touchmoves

    endif

    if id==201// touchmov

        mvd++// Ereignisse mitzählen

    endif

    if id==202// touchend

        xe = data.x
        ye = data.y

        if tr_01==1// Geste per Ende Datenaufnahme erfassen

            if mvd>8 && (xa+250)<xe && (ya+250)<ye// von oben \ streichen

                tr_01 = 0// tracking inaktiv setzen
                mvd = 0// touchmoves zurücksetzen
                case tr_erg==1 : trackergebnisse//dort: tr_erg=0 (1x speichern)
                gpsprint// Datenanzeige

            endif

        endif

        if  tr_01==0// tracking inaktiv - Geste per Ende Programm

            if  mvd>8 && xa>(xe+250) && (ya+250)<ye// von oben / streichen

                end

            endif

        endif

    endif

endproc