---

Manual Reference Pages  - point (3)

---

NAME

point(3f) - [M_draw:POINT] Draw a point at x, y, z (LICENSE:PD)

CONTENTS

Synopsis
Description
Example

SYNOPSIS

subroutine point(x, y, z) real,intent(in) :: x, y, z

DESCRIPTION

Draw a point at x, y, z. The size of the point is not affected by perspective. Draw a polygon if you want perspective to be applied. The size of the point is controlled by the current linewidth.

EXAMPLE

Sample program:

   program demo_point
   use M_draw
   use M_draw,    only  : D_BLACK,   D_WHITE
   use M_draw,    only  : D_RED,     D_GREEN,    D_BLUE
   use M_draw,    only  : D_YELLOW,  D_MAGENTA,  D_CYAN
   implicit none
   integer :: i
   integer :: ikey
      call prefsize(1000,200)
      call vinit(’ ’)
      call color(D_BLACK)
      call clear()
      call page(-25.0, 25.0, -5.0, 5.0)

      ! draw points using various linewidths and colors
      do i=1,300
         call randpoint()
      enddo

      ikey=getkey()
      call vexit()

   contains
      subroutine randpoint()
         real :: r1, r2
         call random_number(r1)
         call random_number(r2)
         call linewidth(int(r1*500+200))
         call color(nint(r2*7))
         call point(r1*50.0-25.0,r2*10.0-5.0,0.0)
      end subroutine randpoint

   end program demo_point

---

point (3)

March 11, 2021

Generated by manServer 1.08 from 774eea9c-07a0-4ad1-982d-50e04553e999 using man macros.