if you set ichoice = 0 in subroutine
mkbitmap, or
(mpeg movie ; 53kB) otherwise.
ipixout in a subroutine pixout,
you can choose the format of output image file;
ipixout=1 | PPM-P6 (binary) | |
ipixout=2 | PPM-P3 (plain text; this is most compiler-friendly.) | |
| otherwise | BMP (binary; 24-bit color depth, uncompressed) |
ipixel = 3 or so),
the horizontal pixel number (ihpixf)
must be multiple of 4. If not, the generated files will not be fully BMP-compatible.
mkbitmap so that you can make your own images and then movies,
which must be fun for you even though it will cost you substantial labor and time. Good luck !
$" at Input/Output parts.
Also some of I/O formats are defined with character variables (fmt=string).
These are based on good old DEC Fortran extensions, and thus, may not be standard today.
Whether or not these lines can be handled will depend on the operating system and compiler you use.
If you have problem when compiling this code,
choose PPM-P3 as output format by setting ipixout = 2, with which
this code will become, I think, free from such non-standard features.