Anonymous user
Grayscale image: Difference between revisions
m
→{{header|Fortran}}: init_img
(fortran) |
m (→{{header|Fortran}}: init_img) |
||
Line 201:
end type scimage</lang>
In order to allow proper overloading, the following subroutines of the [[Basic bitmap storage#Fortran|storage]] should be renamed appending the <tt>_rgb</tt> suffix: valid_image, inside_image, alloc_img, free_img, fill_img, get_pixel, put_pixel, init_img. The ''single channel'' version would be named with the <tt>_sc</tt> suffix, then we should define the proper interfaces to use the already written code as before. Here there are only the interfaces and subroutines needed for the task.
<lang fortran> interface alloc_img
Line 272:
call output_ppm(an_unit, animage)</lang>
=={{header|OCaml}}==
|