---

Manual Reference Pages  - hatchpitch (3)

---

NAME

hatchpitch(3f) - [M_draw:POLYGONS] Set the distance between hatch lines. (LICENSE:PD)

CONTENTS

Synopsis
Description
Example

SYNOPSIS

subroutine hatchpitch(pitch) real,intent(in) :: pitch

DESCRIPTION

Set the distance between hatch lines. The distance is measured in window units (as opposed to viewport or device units).

EXAMPLE

Sample program:

   program demo_hatchpitch
   use M_drawplus, only : draw_interpret
   character(len=:),allocatable :: draw_cmds(:)

   DRAW_CMDS=[ CHARACTER(LEN=128) :: &
   ’prefsize 1000 200; vinit                                                    ’,&
   ’set b=.1; page -25-b 25+b -5-b 5+b;color 0;clear                            ’,&
   ’textsize .5 .6;font futura.l; leftjustify                                   ’,&
   ’circleprecision 3                                                           ’,&
   ’# draw circles with hatching                                                ’,&
   ’linewidth 150; polyhatch .true.; hatchang 30                                ’,&
   ’hatchpitch 1/3 ; color 7; circle X=-20 0 5; move2 X-4.9 -4.9;color 7;drawstr 1/3’,&
   ’hatchpitch 1/2 ; color 2; circle X=-10 0 5; move2 X-4.9 -4.9;color 7;drawstr 1/2’,&
   ’hatchpitch  1  ; color 6; circle X=-0  0 5; move2 X-4.9 -4.9;color 7;drawstr 1’,&
   ’hatchpitch  2  ; color 5; circle X=10  0 5; move2 X-4.9 -4.9;color 7;drawstr 2’,&
   ’hatchpitch  3  ; color 4; circle X=20  0 5; move2 X-4.9 -4.9;color 7;drawstr 3’,&
   ’getkey                                                                      ’,&
   ’vexit                                                                       ’,&
   ’’]

   call draw_interpret(DRAW_CMDS,delimiters=’;’)
   end program demo_hatchpitch

---

hatchpitch (3)

March 11, 2021

Generated by manServer 1.08 from 0b5a4c4a-0830-4eae-b861-2bb30b9d8be1 using man macros.