aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy dot Net 2024-04-19 16:56:29 -07:00
parent 0df55f9f24
commit aec8ed51b6
1045 changed files with 18889 additions and 2777 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Hilbert-curve/Forth/hilbert-curve.fth
View file

@ -1,6 +1,6 @@
include lib/graphics.4th
64 constant /width \ hilbert curve order^2
64 constant /width \ Hilbert curve order^2
9 constant /length \ length of a line
variable origin \ point of origin
@ -29,5 +29,5 @@ aka r"@ i2 \ to make it a bit more readable
585 pic_width ! 585 pic_height ! \ set canvas size
color_image 255 whiteout blue \ paint blue on white
0 dup origin! \ set point of origin
0 dup /width over dup hilbert \ hilbert curve, order=8
0 dup /width over dup hilbert \ Hilbert curve, order=8
s" ghilbert.ppm" save_image \ save the image