point2(3f) - [M_pixel:DRAW] Draw a point at x, y (LICENSE:PD)
Synopsis
Description
Example
Author
License
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_pixel__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
Nemo Release 3.1 | point2 (3m_pixel) | April 21, 2023 |