print_ascii(3f) - [M_pixel:PRINT] print small pixel array as ASCII text (LICENSE:PD)
Synopsis
Description
Options
Example
Author
License
definition:
subroutine print_ascii(filename) character(len=*),intent(in) :: filename
This driver prints the pixmap as a simple ASCII array. It assumes only single-digit colors are used. It is appropriate for inspecting small pixmaps.
FILENAME name of output file. If blank write to stdout.
Sample Program:
program demo_print_ascii use M_pixel implicit none call prefsize(65,24) call vinit() call ortho2(0.0,65.0,0.0,24.0) call linewidth(400) call color(1) call circle(12.0,12.0,6.0) call color(2) call circle(55.0,12.0,6.0) call print_ascii() call vexit() end program demo_print_asciiResults:
00000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000 00000000000011100000000000000000000000000000000000000000000000000 00000000001111111000000000000000000000000000000000000222222000000 00000000011101111100000000000000000000000000000000022222222200000 00000000100000011010000000000000000000000000000000220000022220000 00000001100000000110000000000000000000000000000002200000002220000 00000011000000000111000000000000000000000000000002000000000202000 00000011000000000111000000000000000000000000000022000000000022000 00000011000000000011000000000000000000000000000022000000000022000 00000011000000000011000000000000000000000000000022000000000022000 00000011100000000110000000000000000000000000000020200000000022000 00000011100000000110000000000000000000000000000002200000000220000 00000001011000001100000000000000000000000000000002022000000200000 00000000111111111000000000000000000000000000000000222220222000000 00000000011111100000000000000000000000000000000000022222220000000 00000000000000000000000000000000000000000000000000000222000000000 00000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000
John S. Urban
Public Domain
Nemo Release 3.1 | print_ascii (3m_pixel) | April 21, 2023 |