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(80,24) call vinit() call ortho2(0.0,80.0,0.0,24.0) call linewidth(400) call color(1) call circle(12.0,12.0,6.0) call color(2) call circle(72.0,12.0,6.0) call print_ascii() call vexit() end program demo_print_asciiResults:
00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000111000000000000000000000000000000000000000000000000000000000000000000 00000000111111110000000000000000000000000000000000000000000000000000022222000000 00000001111111111000000000000000000000000000000000000000000000000002222222220000 00000001111001111100000000000000000000000000000000000000000000000022222222222000 00000011100000011110000000000000000000000000000000000000000000000222200000222200 00000111100000001111000000000000000000000000000000000000000000000222000000022200 00000111000000000111000000000000000000000000000000000000000000002220000000002220 00000111000000000111000000000000000000000000000000000000000000002220000000002220 00000111000000000111000000000000000000000000000000000000000000002220000000002220 00000111000000000111000000000000000000000000000000000000000000002220000000002220 00000111100000001110000000000000000000000000000000000000000000002222000000022220 00000011110000011110000000000000000000000000000000000000000000000222000000022200 00000001111111111100000000000000000000000000000000000000000000000020220002202000 00000000111111111000000000000000000000000000000000000000000000000002222222220000 00000000011111100000000000000000000000000000000000000000000000000000222222200000 00000000000000000000000000000000000000000000000000000000000000000000002220000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000
John S. Urban
Public Domain
print_ascii (3) | March 11, 2021 |