point2(3f) - [M_pixel:DRAW] Draw a point at x, y
(LICENSE:PD)
definition:
elemental impure subroutine point2(x, y)
real,intent(in) :: x, y
Draw a point at x, y. Points are drawn with the current color as
a circle with a diameter equal to the current linewidth.
Sample program:
program demo_point2
use :: M_pixel
use :: M_writegif, only : writegif
implicit none
integer :: i
call vinit()
call color(5)
do i=1,20
call linewidth(50*i)
call point2(real(i*25),real(i*25))
enddo
call writegif('point2.3m_pixel.gif',P_pixel,P_colormap)
call vexit()
end program demo_point2
John S. Urban
Public Domain
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real, | intent(in) | :: | x | |||
| real, | intent(in) | :: | y |
elemental impure subroutine point2(x, y)
! ident_51="@(#) M_pixel point2(3f) Draw a point at x y"
real,intent(in) :: x, y
call line(x,y,x,y)
end subroutine point2