RosettaCodeData/Task/Bitmap-Write-a-PPM-file/J/bitmap-write-a-ppm-file-2.j

   NB. create 10 by 10 block of magenta pixels in top right quadrant of a 300 wide by 600 high green image
   pixellist=: >,{;~i.10
   myimg=: ((150 + pixellist) ; 255 0 255) setPixels 0 255 0 makeRGB 600 300
   myimg writeppm jpath '~temp/myimg.ppm'
540015
A-M baby 2013-04-10 21:29:02 -07:00			`NB. create 10 by 10 block of magenta pixels in top right quadrant of a 300 wide by 600 high green image`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`pixellist=: >,{;~i.10`
			`myimg=: ((150 + pixellist) ; 255 0 255) setPixels 0 255 0 makeRGB 600 300`
A-M baby 2013-04-10 21:29:02 -07:00			`myimg writeppm jpath '~temp/myimg.ppm'`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`540015`