RosettaCodeData/Task/Bitmap-Write-a-PPM-file/Prolog/bitmap-write-a-ppm-file-2.pro

:- use_module(bitmap).
:- use_module(bitmapIO).

write :-
	new_bitmap(AllBlack,[50,50],[0,0,0]),
	set_pixel0(AlmostAllBlack,AllBlack,[25,25],[255,255,255]),
	write_ppm_p6('AlmostAllBlack.ppm',AlmostAllBlack).