Simple turtle graphics: Difference between revisions
Content added Content deleted
m (→{{header|Julia}}: reposition) |
(Added Logo) |
||
Line 82: | Line 82: | ||
testturtle() |
testturtle() |
||
</lang> |
</lang> |
||
=={{header|Logo}}== |
|||
{{trans|Quackery}} |
|||
<lang Logo>to rectangle :width :height |
|||
repeat 2 [ |
|||
forward :height |
|||
left 90 |
|||
forward :width |
|||
left 90 ] |
|||
end |
|||
to square :size |
|||
rectangle size size |
|||
end |
|||
to triangle :size |
|||
repeat 3 [ |
|||
forward size |
|||
right 120 ] |
|||
end |
|||
to house :size |
|||
left 90 |
|||
square size |
|||
triangle size |
|||
right 90 |
|||
end |
|||
to max :lst |
|||
if equalp count lst 1 [ output first lst ] |
|||
make "x max butfirst lst |
|||
if x > first lst [ output x ] |
|||
output first lst |
|||
end |
|||
to barchart :lst :size |
|||
right 90 |
|||
if emptyp lst [ stop ] |
|||
make "scale size / (max lst) |
|||
make "width size / count lst |
|||
foreach lst [ |
|||
rectangle ? * scale width |
|||
forward width ] |
|||
back size |
|||
left 90 |
|||
end |
|||
clearscreen hideturtle |
|||
house 150 |
|||
penup |
|||
right 90 forward 10 left 90 |
|||
pendown |
|||
barchart [ 0.5 0.33333 2 1.3 0.5 ] 200 |
|||
left 90 back 10 right 90</lang> |
|||
{{out}} |
|||
https://imgur.com/4V1UrcN |
|||
=={{header|Quackery}}== |
=={{header|Quackery}}== |