include lib/graphics.4th
include lib/palette.4th
include lib/gbanner.4th

: shape ( x y  -- )  over 1 do  2dup i i 2swap blue line loop ;

 palette_image
 300 pic_width !
 300 pic_height !

 green background
 100 200  shape
 280 10 s" Convert to color with pal2col.4th"  red gbanner

 s" pic4.ppm" save_image

cr ." File saved!" cr















































































































































































































































































































































