Pentagram: Difference between revisions
Added Quackery.
(Added Nimi example) |
(Added Quackery.) |
||
Line 1,121:
t.right(144)
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}}==
| |||