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).
Initial data commit 2023-07-01 11:58:00 -04:00			`:- use_module(bitmap).`
			`:- use_module(bitmapIO).`

			`write :-`
Data update 2026-04-30 12:34:36 -04:00			`new_bitmap(AllBlack,[50,50],[0,0,0]),`
			`set_pixel0(AlmostAllBlack,AllBlack,[25,25],[255,255,255]),`
			`write_ppm_p6('AlmostAllBlack.ppm',AlmostAllBlack).`