Hilbert curve: Difference between revisions
m
Correct link to 4tH, capitalize hilberts in comments.
Hendursaga (talk | contribs) m (Correct link to 4tH, capitalize hilberts in comments.) |
|||
Line 1,402:
=={{header|Forth}}==
{{trans|Yabasic}}
{{works with|4tH
<syntaxhighlight lang="forth">include lib/graphics.4th
64 constant /width \
9 constant /length \ length of a line
Line 1,434:
color_image 255 whiteout blue \ paint blue on white
0 dup origin! \ set point of origin
0 dup /width over dup hilbert \
s" ghilbert.ppm" save_image \ save the image
</syntaxhighlight>
| |||