Simple turtle graphics: Difference between revisions
Content added Content deleted
| Line 282: | Line 282: | ||
=={{header|EasyLang}}== |
=={{header|EasyLang}}== |
||
[https://easylang.dev/show/#cod=rVLBboMwDL3zFU/arVNpKEVaD3wJ4pCWtEGiSZWUsf79nEBQupbtspxsP/v5ObbtDwZSX0QCoBFnlGDO/CKj8NZ9tho9qIBf9KegpHuSJr76DcnV6CNO2gzcNFBIkY5E7yWO2nryFdRISTHbqjjWngJ/5lx6XavGFmSLzoopPHcm23ewnRBXsDQjLV7DrTcKPAhwPdYlOKFBpNS9FQH32dmHnyqo3xU/kVgb0US5OZtz9+w/gJHew/lSXbZ9gfhFuH3QdPOsB27Aq/ph2kU56/3TsJSFFjeNTihHFLbA3YXI9iyF8Q6v2npeyUKRpBKXh40vWU13RW8gZFdQ/LEgFhUpljH8hA6/ovIF9R93MP2r+8mKJCPPsWUMWc6cVyff Run it] |
|||
[https://easylang.dev/show/#cod=rVLLbsMgELz7K1bqLVVcHMdSc/CXWD4QmwQkAhHEdfP3XbBBTkjbVCqnZXd2Zl922Bvg+sQyAOjZEWogzvxEo/LWNVq9HlWIn/QHQ9A1y7OOSjlRvEB2NrqDgzYjNT0oyCGf2F5r6LT1CitQEy/6rFBLnzgEkcJ98UmhJh20mbRsdkd5tL2ClYydgeQFFuRruAxGAQ0FOI11DRSjoUiuB8tC3PfgU4p3Eh2hj231ELMsFVnvs0pym7VLif8TsqjAA8vfuYrNjxi/07hfnFac3Z4aoE2bTu+JBta7ZHgIBQEXDZIpxxuWTN0VcnHkzPgPbUQbN/5NEscUh4M3n7KabxffiJFthf7bhKSy+wZ4AnyMG5/EpXyz8N8ucbkdt48GO4WyhA0hUJTE/drsCw== Run it] |
|||
<syntaxhighlight lang="easylang"> |
<syntaxhighlight lang="easylang"> |
||
| Line 292: | Line 292: | ||
move x y |
move x y |
||
. |
. |
||
home |
|||
# |
# |
||
proc forward n . . |
proc forward n . . |
||
| Line 309: | Line 309: | ||
# |
# |
||
proc house . . |
proc house . . |
||
turn 180 |
|||
forward 45 |
|||
turn 180 |
|||
down = 1 |
down = 1 |
||
# |
# |
||
forward 30 |
|||
turn 90 |
|||
forward 30 |
|||
turn 90 |
|||
forward 30 |
|||
turn 90 |
|||
forward 30 |
|||
# |
# |
||
turn 30 |
|||
forward 30 |
|||
turn 120 |
|||
forward 30 |
|||
home |
|||
. |
. |
||
house |
|||
# |
# |
||
proc bar a[] . . |
proc bar a[] . . |
||
turn 90 |
|||
forward 30 |
|||
turn -90 |
|||
down = 1 |
down = 1 |
||
for i to len a[] |
for i to len a[] |
||
| Line 341: | Line 341: | ||
h = a[i] / max * 50 |
h = a[i] / max * 50 |
||
w = 45 / len a[] |
w = 45 / len a[] |
||
turn -90 |
|||
forward h |
|||
turn 90 |
|||
forward w |
|||
turn 90 |
|||
forward h |
|||
turn -90 |
|||
. |
. |
||
turn 180 |
|||
forward 45 |
|||
home |
|||
. |
. |
||
bar [ 50 33 200 130 50 ] |
|||
</syntaxhighlight> |
</syntaxhighlight> |
||