Simple turtle graphics: Difference between revisions
→{{header|Quackery}}: added demo code
(→{{header|Quackery}}: simplified) |
(→{{header|Quackery}}: added demo code) |
||
Line 22:
[ do 2over 2over
v< if 2swap
2drop ] ] is
[ 2 times
Line 50:
temp share do v/ 1/v
join bar.width put
dup
temp share do v/
join bar.scale put
Line 61:
temp take do -v fly
bar.width release
bar.scale release ] is barchart ( [ n/d --> )
turtle
150 1 house
10 1 fly
' [ [ 1 2 ] [ 1 3 ] [ 2 1 ] [ 13 10 ] [ 1 2 ] ] 200 1 barchart
-10 1 fly</lang>
| |||