Bitmap/Write a PPM file: Difference between revisions

Line 357:
else
let
val @(r, g, b) = rgb24_values pix[x, y]
in
fprintln! (outf, r, " ", g, " ", b);
Line 379:
main0 () =
let
val bgcolor = rgb24_make (217u, 217u, 214u)
extern castfn i2u8 : int -<> uint8
and fgcolor1 = rgb24_make (210, 0, 0)
 
valand bgcolorfgcolor2 = @rgb24_make (i2u8 2170, i2u8 217150, i2u8 2140)
and fgcolor1fgcolor3 = @rgb24_make (i2u8 2100, i2u8 0, i2u8 0220)
and fgcolor2 = @(i2u8 0, i2u8 150, i2u8 0)
and fgcolor3 = @(i2u8 0, i2u8 0, i2u8 220)
 
stadef w = 300
1,448

edits