print_ascii(3f) - [M_pixel:PRINT] print small pixel array as ASCII text (LICENSE:PD)
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_ascii
Results:
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
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in), | optional | :: | filename |
subroutine print_ascii(filename)
use,intrinsic :: iso_fortran_env, only : ERROR_UNIT, INPUT_UNIT, OUTPUT_UNIT
! ident_40="@(#) M_pixel print_ascii(3f) print pixel array as an ASCII block of text"
character(len=*),intent(in),optional :: filename
character(len=1024) :: message
integer :: iu,ios,i
if(present(filename))then ! if filename is present and not blank open specified filename else use stdout
if(filename.eq.'')then
iu=OUTPUT_UNIT
ios=0
else
open(file=trim(filename),newunit=iu,iostat=ios,iomsg=message,action='write')
if(ios.ne.0)then
write(ERROR_UNIT,'(*(a))',iostat=ios)'*P_print_ascii* OPEN ERROR:',trim(message)
endif
endif
else
iu=OUTPUT_UNIT
ios=0
endif
if(ios.eq.0)then
call if_init()
do i=0,size(P_pixel,dim=2)-1
write(iu,'(*(i1))',iostat=ios,iomsg=message)P_pixel(:,i)
if(ios.ne.0)then
write(ERROR_UNIT,'(*(a))',iostat=ios)'*P_print_ascii* WRITE ERROR:',trim(message)
exit
endif
enddo
endif
flush(unit=iu,iostat=ios)
if(iu.ne.OUTPUT_UNIT)then
close(unit=iu,iostat=ios)
endif
end subroutine print_ascii