(* Realizing that MAXVAL, and how to represent depend on the But we staload itĪnonymously, so the programmer will not have access. (* You need to staload bitmap_task.dats, so the ATS compiler will haveĪccess to its implementations of templates. #define ATS_PACKNAME "Rosetta_Code.bitmap_write_ppm_task" The following interface file should be named bitmap_write_ppm_task.sats. The dynamic file, however, provides implementations only for the rgb24 type defined in bitmap_task.sats.
The static file provides templates for writing a PPM in either raw or plain format, regardless of what type you use to represent a pixel. In general it is a bad idea to mix binary and text output in one file. The OS might also limit the line length of a text file. The file format might fail to work on certain OSes, because output might mangle control characters like LF, CR, FF, HT, VT etc. The solution writes the image into an opened file. B ) Index := Index + 3 end loop String ' Write ( Stream ( File ), Buffer ) end loop Character ' Write ( Stream ( File ), LF ) end Put_PPM G ) Buffer ( Index + 2 ) := Character ' Val ( Color. R ) Buffer ( Index + 1 ) := Character ' Val ( Color. Size ' Last ) & LF ) String ' Write ( Stream ( File ), "255" & LF ) for I in Picture ' Range ( 1 ) loop Index := Buffer ' First for J in Picture ' Range ( 2 ) loop Color := Picture ( I, J ) Buffer ( Index ) := Character ' Val ( Color. Picture ' Length ( 2 ) * 3 ) Color : Pixel Index : Positive begin String ' Write ( Stream ( File ), "P6" & LF ) String ' Write ( Stream ( File ), Size ( 2. With _1 with _IO use _IO procedure Put_PPM ( File : File_Type Picture : Image ) is use _1 Size : constant String := Integer ' Image ( Picture ' Length ( 2 )) & Integer ' Image ( Picture ' Length ( 1 )) Buffer : String ( 1. PROC SavePPM6(RgbImage POINTER img CHAR ARRAY path) PROC SavePPM3(RgbImage POINTER img CHAR ARRAY path) INCLUDE "H6:RGBIMAGE.ACT" from task Bitmap V comment = "# generated from Bitmap.writeppmp6\n"ī = ("#. V comment = "# generated from Bitmap.writeppmp3\n" fillrect(x, y, width, height, colour = black)Īssert(x >= 0 & y >= 0 & width > 0 & height > 0) b = other.bį (width = 40, height = 40, background = white)
0 kommentar(er)
