Commit 41df812a authored by bp's avatar bp
Browse files

Added another tau 

git-svn-id: https://forth-ev.de/repos/bigforth@2503 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 62f94386

widgets.fs

+1 −1
Original line number Diff line number Diff line
@@ -324,7 +324,7 @@ how: : init ( xt ac w w+ h h+ -- ) super init ^^ bind outer 
        : dto ( x y -- )  dnegate sh 2@ d* dy+

                             -rot sw 2@ d* dx+ pixel, ;

        : to ( x y -- )  swap extend rot extend dto ;

        : rt ( n -- ) 2pi 2* coord @ */f 1+ 2/ angle +! ;

        : rt ( n -- ) tau 2* coord @ */f 1+ 2/ angle +! ;

        : bk ( n -- ) negate fd ;

        : lt ( n -- ) negate rt ;