XProfan

English

p.specht

can only integrally crude Problems discern help. in the Zweifelsfall always a ophthalmologist consult!!! without each Gewähr, rechtliche ask ungeprüft!!!

Notes: into corners defined colours not To see is normal, if the background-Grauwert hardly contrast bid. to that doctor ought to one anyway, if one on the point in the middle schaut, and this (z.B. with of/ one designed primitive colour How blue) suddenly lane is (wet Makula-Degeneration has eachone 4. over 50, well behandelbar with laser and Vitaminspritzen), or about if around the middle around whole reaches (not only single spots and not the undertow. blind stain) beeinträchtigt are.

benefit of my Spielerei to Arztbesuch (there must it usually husch husch weg): one can itself long long Time take and z.B. red, green and blue spots to each several Grauschattierungen or Black and knows try.

Compile Mark Separation

' Gesichtsfeld-Test - a demonstration of a hobby-Programmer without medizinische Kenntnisse!! without each Gewähr!
Window Title "ETWA 25 CM VOR DEM SCHIRM (GGF. MIT LESEBRILLE ) ONE AUGE ZUHALTEN. BLICKEN SIE BITTE I M M E R ONLY ON DEN PUNKT IN THE MITTE! " +\
" BETÄTIGEN SIE DIE LANGE TASTE, IF SIE DEN ZUSÄTZLICHEN PUNKT SEHEN (AUSWERTUNG MIT ESC-TASTE!)"
Windowstyle 1048
randomize:declare x&,y&,x&[1000],y&[1000],e&[1000],n&,i&,tm&,tc&,bg&
window 0,0 - %maxx,%maxy:Font 2
var xm&=width(%hwnd)\2:var ym&=height(%hwnd)\2:var tr&=1200
bg&=rgb(180,180,180)
cls bg&
usepen 0,1,rgb(255,255,255)
usebrush 1,rgb(255,255,255)
ellipsis xm&+4,(ym&+4) - (xm&-4),(ym&-4)
sound 2000,10
locate 30,40:print "  BITTE CURSOR AUS DEM WEG RÄUMEN!      IF BEREIT, ON DEN PUNKT SCHAUEN UND TASTE DRÜCKEN! "
waitinput
again:
sound 2000,10
n&=0
cls bg&
SetWindowPos %Hwnd=0,0 - %maxx,%maxy;0
usepen 0,1,rgb(255,255,255)
usebrush 1,rgb(255,255,255)
ellipsis xm&+4,(ym&+4) - (xm&-4),(ym&-4)
again:

repeat

    x&=rnd(xm&*2)-xm&:x&[n&]=x&
    y&=rnd(ym&*2)-ym&:y&[n&]=y&
    usepen 0,1,rgb(0,0,255)
    usebrush 1,rgb(0,0,255)
    ellipsis xm&+x&+3,(ym&-y&+3) - (xm&+x&-3),(ym&-3-y&)
    tm&=1000+rnd(3000)
    tc&=&gettickcount
    waitinput tm&
    case %key=27:break

    if (&gettickcount-tc&)<tr&:e&[n&]=1:endif

        usepen 0,1,bg&
        usebrush 1,bg&
        ellipsis xm&+x&+3,(ym&-y&+3) - (xm&+x&-3),(ym&-3-y&)
        waitinput rnd(700)+1
        n&=n&+1

    until %key=27

    sound 2000,50
    Cls
    usepen 0,1,rgb(255,0,0):usebrush 1,rgb(255,0,0):ellipsis xm&+4,(ym&+4) - (xm&-4),(ym&-4)
    locate 10,10:print " AUSWERTUNG: gray spots get recognized, FARBIGE spots get NOT recognized! "

    whileloop n&:i&=&Loop

        if e&[i&]=0:

            usepen 0,1,rgb(0,0,255)
            usebrush 1,rgb(0,0,255)
            ellipsis xm&+x&[i&]+3,(ym&-y&[i&]+3) - (xm&+x&[i&]-3),(ym&-3-y&[i&])

        else

            usepen 0,1,rgb(200,200,200)
            usebrush 1,rgb(200,200,200)
            ellipsis xm&+x&[i&]+2,(ym&-y&[i&]+2) - (xm&+x&[i&]-2),(ym&-2-y&[i&])

        endif

    endwhile

    waitinput
    locate 30,40:Print " WIEDERHOLUNG ! "
    waitinput
    Goto "again"