[UP]

Manual Reference Pages  - draw_interpret (3)

NAME
draw_interpret(3f) - [M_drawplus] call interpreter for testing M_draw(3fm) routines (LICENSE:MIT)

CONTENTS

Synopsis
Description
Options
Examples
See Also
Author
License

SYNOPSIS
subroutine draw_interpret(array,delimiters) character(len=*) :: array(*) character(len=*) :: delimiters

DESCRIPTION
takes an array of strings and treats them as requests for simple calls to the call_draw(3f) routine. This allows for creating simple graphics and for testing the M_draw(3fm) module.

The M_calc(3fm) module is used to evaluate number parameters. The "set" directive is added to allow easily declaring variables for the calculator.

OPTIONS
ARRAY character array containing strings representing basic M_draw(3fm) procedures.
DELIMITERS
  character(s) used to separate commands in the array.

EXAMPLES
Sample program 

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


     ! $FILTER variable -varname DRAW_CMDS


     draw_cmds=[ character(len=128) ::                                         &
     ’set N=11; prefsize 600 200; vinit ;page -15 15 -5 5                    ’,&
     ’textsize .3 .3; linewidth 150/3; color 0; clear                        ’,&
     ’color  1;  spirograph  -10  0  N  1  N  5  1000  0  0  0               ’,&
     ’polyhatch 1; hatchang 45.0 ; hatchpitch 0.3 # turn on polygon hatching ’,&
     ’color  2;  spirograph   10  0  N  1  N  5  1000  0  0  2               ’,&
     ’                                                                       ’,&
     ’vflush; getkey ; vexit                                                 ’,&
     ’’]


     ! $FILTER END


     call draw_interpret(draw_cmds,delimiters=’;’)
     end program demo_draw_interpret

SEE ALSO
call_draw(3f), M_draw(3fm), M_drawplus(3fm)

AUTHOR
John S. Urban

LICENSE
MIT License

draw_interpret (3) March 11, 2021
Generated by manServer 1.08 from 846f08cf-429a-44cf-b076-ea6789e2162d using man macros.