Commit 41df812a authored by bp's avatar bp

Added another tau

git-svn-id: https://forth-ev.de/repos/bigforth@2503 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 62f94386
......@@ -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 ;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment