Pentagram: Difference between revisions
Content added Content deleted
(Added Nimi example) |
(Added Quackery.) |
||
| Line 1,121: | Line 1,121: | ||
t.right(144) |
t.right(144) |
||
t.end_fill()</lang> |
t.end_fill()</lang> |
||
=={{header|Quackery}}== |
|||
<lang Quackery>[ $ "turtleduck.qky" loadfile ] now! |
|||
[ [ 1 1 |
|||
30 times |
|||
[ tuck + ] |
|||
swap join ] constant |
|||
do ] is phi ( --> n/d ) |
|||
[ 5 times |
|||
[ 2dup walk |
|||
1 5 turn |
|||
2dup walk |
|||
3 5 turn ] |
|||
2drop ] is star ( n/d --> ) |
|||
[ 5 times |
|||
[ 2dup walk |
|||
2 5 turn ] |
|||
2drop ] is pentagram ( n/d --> ) |
|||
turtle |
|||
' [ 79 126 229 ] fill [ 200 1 star ] |
|||
10 wide |
|||
-1 10 turn |
|||
200 1 phi v* phi v* pentagram |
|||
1 10 turn</lang> |
|||
=={{header|R}}== |
=={{header|R}}== |
||