Bitmap/Write a PPM file: Difference between revisions

The following more general purpose routine is used in several other examples (via include ppm.e):

<lang Phix>global procedure write_ppm(sequencestring filename, sequence image)

integer fn = open(filename,dimx"wb"),dimy

fn dimy = openlength(filename,"wb"image[1])

for y = 1 to dimy do

for x = 1 to dimx do

colour_tripleinteger pixel = sq_div(sq_and_bits(image[x][y], {#FF0000,#FF00 -- red,#FF})green,blue

sequence r_g_b = sq_and_bits(pixel,{#010000FF0000,#0100FF00,#01FF})

puts r_g_b = sq_floor_div(fnr_g_b, colour_triple{#010000,#0100,#01})