pixel Subroutine

public impure elemental subroutine pixel(row, column, indx)

NAME

pixel(3f) - [M_pixel] set pixel to current color
(LICENSE:PD)

SYNOPSIS

definition:

elemental impure subroutine pixel(row,column,indx)
integer,intent(in)          :: row
integer,intent(in)          :: column
integer,intent(in),optional :: indx

DESCRIPTION

Directly set a pixel to the current or specified color index.
The ROW and COLUMN start at 1.

OPTIONS

ROW      row number in P_pixel to set

          0 < ROW < size(P_pixel,dim=1)-1.
COLUMN   column number in P_pixel to set

          0 < COLUMN < size(P_pixel,dim=2)-1.

INDX     color index to set pixel array to. Optional

EXAMPLE

Sample program

program demo_pixel
use :: M_pixel
implicit none
   call prefsize(10,10) ! set up drawing surface
   call mapcolor(0,255,255,255)
   call mapcolor(1,255,000,000)
   call mapcolor(2,255,255,000)
   call mapcolor(3,255,000,255)
   call mapcolor(4,000,255,255)
   call mapcolor(5,000,255,000)
   call mapcolor(6,000,000,255)
   call mapcolor(7,000,000,000)
   call vinit()
   call color(0)
   call clear()
   call color(1)
   call pixel(1,1)
   call color(3)
   call pixel(3,3)
   call pixel(5,5,5)
   call print_ascii()
   call vexit()
end program demo_pixel

Results:

1000000000
0000000000
0030000000
0000000000
0000500000
0000000000
0000000000
0000000000
0000000000
0000000000

AUTHOR

John S. Urban

LICENSE

Public Domain

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: row
integer, intent(in) :: column
integer, intent(in), optional :: indx

Contents

Source Code

pixel

Source Code

elemental impure subroutine pixel(row,column,indx)

! ident_11="@(#) M_pixel pixel(3f) set background color all to specified color index"

integer,intent(in)          :: row
integer,intent(in)          :: column
integer,intent(in),optional :: indx
   call if_init()
   CHECK: block
      if(row.lt.1.or.row.gt.P_VIEWPORT_HEIGHT) exit CHECK
      if(column.lt.1.or.column.gt.P_VIEWPORT_WIDTH) exit CHECK
      if(present(indx))then
         P_pixel(row-1,column-1)=indx
      else
         P_pixel(row-1,column-1)=P_COLOR_INDEX
      endif
   end block CHECK
end subroutine pixel