print_p6(3f) - [M_pixel:PRINT] print pixel array as a ppm file (LICENSE:PD)
Synopsis
Description
Options
Example
Author
License
definition:
subroutine print_p6(filename) character(len=*),intent(in) :: filename
This driver makes an P6 PPM(portable pixmap) file. Any existing file will be replaced.
FILENAME name of output file to create.
Sample program:
program demo_print_p6 use M_pixel, only : prefsize,vinit,ortho2,vexit use M_pixel, only : linewidth,circle,color use M_pixel, only : print_p6 implicit none call prefsize(40,40) call vinit() call ortho2(-100.0,100.0,-100.0,100.0) call linewidth(400) call circle(0.0,0.0,45.0) call color(3) call circle(0.0,0.0,25.0) call print_p6(demo_print.p6) call vexit() end program demo_print_p6
John S. Urban
Public Domain
Nemo Release 3.1 | print_p6 (3m_pixel) | April 21, 2023 |