XProfan

Título de la ventana "Vektorfeld para Mauszeiger":windowStyle 24:Ventana 0,0-%maxx,%maxy-40
var xx&=width(%hwnd):var yy&=height(%hwnd):var xh&=xx&*0.5:var yh&=yy&*0.5:var ende&=0

proc ArcTan4 :parámetros x!,y!:var pi!=3.1415926535897932:var w!=0'(CL)2014-01 P.Pájaro carpintero

    if x!=0:if y!>0:w!=pi!*0.5:elseif y!<0:w!=pi!*1.5:más :w!=0:endif :volver w!:elseif x!>0

        if y!=0:w!=0:volver w!:elseif y!>0:if x!>y!:w!=arctan(y!/x!):más :w!=pi!/2-arctan(x!/y!):endif

            volver w!:más :if x!<-y!:w!=pi!*1.5+arctan(x!/-y!):más :w!=2*pi!-arctan(-y!/x!):endif :volver w!
            endif :más :if y!>0:if x!>-y!:w!=pi!/2+arctan(-x!/y!):volver w!:más :w!=pi!-arctan(y!/-x!)
            volver w!:endif :elseif y!<0:if x!<y!:w!=pi!+arctan(-y!/-x!):más :w!=pi!*1.5-arctan(-x!/-y!)
            endif :volver w!:más :w!=pi!:volver w!:endif :endif :Imprimir " ArcTan4 ERROR":waitinput:waitinput

        ENDPROC

        declarar i&,j&,k&,w!,L!,LL! : L!=40 : LL!=L!*0.9

        Repeat

            MCLS xx&,yy&,$FFFFFF : startpaint -1

            WhileLoop 36:i&=LL!*&Loop:WhileLoop 18:j&=LL!*&Loop

                usepen 0,7,255:line i&,j& - i&+1,j&
                w!=arctan4(%mousex-i&,%mousey-j&)
                usepen 0,2,0:line i&,j& - i&+L!*cos(w!),j&-L!*sin(-w!)
                endwhile :endwhile : EndPaint
                MCopyBMP 0,0 - xx&,yy& > 0,0;0

            Until ende&