XProfan

Cls
Font 2:set("decimals",16):set("numwidth",20)
imprimer "Hundertstelgrade  Quadrant  Absoluter faute pour Rückrechnung"
polar 0,0
WaitInput

proc polar : parameters x!,y!

    declare i&,w!,xx!,yy!,ww!,dx!,dy!,q&,f!,f2!
    f!=pi()/180:f2!=1/f!

    WhileLoop 0,36000:i&=&Boucle mod 36000:ww!=i&*f!/100

        xx!=100*cos(ww!):yy!=100*sin(ww!)
        dy!=yy!-y!:dx!=xx!-x!

        si (dx!>0) and (dy!>0):q&=1:w!=f2!*arctan(dy!/dx!):endif

            si (dx!=0) and (dy!>0):q&=1:w!=f2!*pi()/2:endif

                si (dx!<0) and (dy!>0):q&=2:w!=f2!*(pi()/2-arctan(dx!/dy!)):endif

                    si (dx!=0) and (dy!=0):q&=1:w!=0:endif

                        si (dx!>0) and (dy!=0):q&=1:w!=0:endif

                            si (dx!<0) and (dy!=0):q&=4:w!=f2!*pi():endif

                                si (dx!>0) and (dy!<0):q&=4:w!=f2!*(2*pi()+arctan(dy!/dx!)):endif

                                    si (dx!=0) and (dy!<0):q&=3:w!=f2!*3/2*pi():endif

                                        si (dx!<0) and (dy!<0):q&=3:w!=f2!*(pi()+arctan(dy!/dx!)):endif

                                            'imprimer i&,dy!,dx!,ww!,w!
                                            imprimer i&/100,q&,i&/100-w!

                                            si %csrlin>26:waitinput :cls:endif

                                            Endwhile

                                        endproc