Infinity-Profan

English

HofK

with event can very simply and clear a adjust, situationsbezogene Gestensteuerung release. the example operates with of/ one konstanten difference of 250 Pixeln. not plenty aufwändiger is the Relativierung with screen.width and screen.height.
(Syntax 2016 adjusted.)

in the example GPS Track [...]

so implementiert.

Compile Mark Separation

// GPS Tracking :
// tr_01: 1 Datenaufnahme active , 0 take completed
// procedure gpsprint: display the data ongoing and
// to Datenaufnahme back and forth to touch - Region
// mvd: count the touchmove-spots
// tr_erg: for procedure trackergebnisse  (data 1x Save)

proc event id data

    if id==3000 && tr_01==1// gps data and tracking active

        //   processing the data (gpstrack) with display (gpsprint)
        //    ...

    endif

    if id==200// touchstart

        xa = data.x
        ya = data.y
        case  tr_01==0 :  gpsprint ya// ya: Datenanzeige to/back
        mvd = 0// with Touchstart 0 touchmoves

    endif

    if id==201// touchmov

        mvd++// Events mitzählen

    endif

    if id==202// touchend

        xe = data.x
        ye = data.y

        if tr_01==1// Geste for end Datenaufnahme erfassen

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

                tr_01 = 0// tracking inaktiv settle
                mvd = 0// touchmoves zurücksetzen
                case tr_erg==1 : trackergebnisse//there: tr_erg=0 (1x Save)
                gpsprint// Datenanzeige

            endif

        endif

        if  tr_01==0// tracking inaktiv - Geste for end Program

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

                end

            endif

        endif

    endif

endproc