Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Bernd Paysan
bigforth
Commits
41df812a
Commit
41df812a
authored
Sep 07, 2012
by
bp
Browse files
Added another tau
git-svn-id:
https://forth-ev.de/repos/bigforth@2503
3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent
62f94386
Changes
1
Hide whitespace changes
Inline
Side-by-side
widgets.fs
View file @
41df812a
...
...
@@ -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
--
)
2
pi
2
*
coord
@
*/
f
1
+
2
/
angle
+!
;
:
rt
(
n
--
)
tau
2
*
coord
@
*/
f
1
+
2
/
angle
+!
;
:
bk
(
n
--
)
negate
fd
;
:
lt
(
n
--
)
negate
rt
;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment