14 lines
663 B
Forth
14 lines
663 B
Forth
include lib/graphics.4th \ graphics support is needed
|
|
|
|
520 pic_width ! \ width of the image
|
|
520 pic_height ! \ height of the image
|
|
|
|
9 constant order \ Sierpinski's triangle order
|
|
|
|
black 255 whiteout \ black ink, white background
|
|
grayscale_image \ we're making a gray scale image
|
|
\ do we set a pixel or not?
|
|
: ?pixel over over and if drop drop else set_pixel then ;
|
|
: triangle 1 order lshift dup 0 do dup 0 do i j ?pixel loop loop drop ;
|
|
|
|
triangle s" triangle.ppm" save_image \ done, save the image
|