Anonymous user
Sierpinski arrowhead curve: Difference between revisions
adding a new task
No edit summary |
(adding a new task) |
||
Line 682:
showpreview = true
)
</lang>
=={{header|Lambdatalk}}==
<lang Scheme>
{def sierp
{def sierp.r
{lambda {:order :length :angle}
{if {= :order 0}
then M:length
else {sierp.r {- :order 1} {/ :length 2} {- :angle}}
T:angle
{sierp.r {- :order 1} {/ :length 2} :angle}
T:angle
{sierp.r {- :order 1} {/ :length 2} {- :angle}}
}}}
{lambda {:order :length}
{if {= {% :order 2} 0}
then {sierp.r :order :length 60}
else T60
{sierp.r :order :length -60}
}}}
the output can be seen in http://lambdaway.free.fr/lambdawalks/?view=sierpinsky
</lang>
| |||