Simple turtle graphics: Difference between revisions
Added Logo
m (→{{header|Julia}}: reposition) |
(Added Logo) |
||
Line 82:
testturtle()
</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}}==
| |||