XProfan

Titre de la fenêtre "Vektorfeld zum Mauszeiger":windowStyle 24:Fenêtre 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 :parameters x!,y!:var pi!=3.1415926535897932:var w!=0'(CL)2014-01 P.Specht

    si x!=0:si y!>0:w!=pi!*0.5:elseif y!<0:w!=pi!*1.5:d'autre :w!=0:endif :return w!:elseif x!>0

        si y!=0:w!=0:return w!:elseif y!>0:si x!>y!:w!=arctan(y!/x!):d'autre :w!=pi!/2-arctan(x!/y!):endif

            return w!:d'autre :si x!<-y!:w!=pi!*1.5+arctan(x!/-y!):d'autre :w!=2*pi!-arctan(-y!/x!):endif :return w!
            endif :d'autre :si y!>0:si x!>-y!:w!=pi!/2+arctan(-x!/y!):return w!:d'autre :w!=pi!-arctan(y!/-x!)
            return w!:endif :elseif y!<0:si x!<y!:w!=pi!+arctan(-y!/-x!):d'autre :w!=pi!*1.5-arctan(-x!/-y!)
            endif :return w!:d'autre :w!=pi!:return w!:endif :endif :Imprimer " ArcTan4 ERROR":waitinput:waitinput

        endproc

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

        Repeat

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

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

                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&