print_p3(3f) - [M_pixel:PRINT] print pixel array as a ppm p3 file (LICENSE:PD)
Synopsis
Description
Options
Example
Author
License
definition:
subroutine print_p3(filename) character(len=*),intent(in) :: filename
This driver makes an ASCII P3 portable pixmap file. Any existing file is replaced.
FILENAME name of output file to create or replace
Sample program:
program demo_print_p3 use M_pixel, only : prefsize,vinit,ortho2,vexit use M_pixel, only : linewidth,circle,color use M_pixel, only : print_p3 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_p3(demo_print.p3) call vexit() end program demo_print_p3
John S. Urban
Public Domain
Nemo Release 3.1 | print_p3 (3m_pixel) | April 21, 2023 |