Plot coordinate pairs/REXX: Difference between revisions

no edit summary
m (→‎$PLOT.REX (REXX) program: adjusted the calculation of the true screen depth.)
No edit summary
 
Line 3:
This is a general purpose REXX program that supports a variety of options and data formats and produces output in text format.
 
See the   HELP   and SAMPLE   documentation below.
 
The <brcode><br>The &nbsp; '''$PLOT.REX''' &nbsp;</code> REXX program makes use of &nbsp; '''<code>$T.REX''' &nbsp;</code> REXX program which is used to display text and/or write the text to a file. The <code>$T.REX</code> REXX program is included here ──► [[$T.REX]].
 
<br>The &nbsp; '''$T.REX''' &nbsp; REXX program is included here ──► [[$T.REX]].
<br><br>The &nbsp; '''<code>$PLOT.REX''' &nbsp;</code> REXX program makes use of '''<code>$ERR'''</code> REXX program which is used to display error messages (via '''$T'''). The <code>$ERR.REX</code> REXX program is included here ──► [[$ERR.REX]].
 
<br>The &nbsp; '''$ERR.REX''' &nbsp; REXX program is included here ──► [[$ERR.REX]].
<br><br>The &nbsp; '''<code>$PLOT.REX''' &nbsp;</code> REXX program makes use of '''<code>SCRSIZE'''</code> REXX program which is used to determine the screen size (via '''SCRSIZE'''). The <code>SCRSIZE.REX</code> REXX program is included here ──► [[SCRSIZE.REX]].
 
<br>The &nbsp; '''SCRSIZE.REX''' &nbsp; REXX program is included here ──► [[SCRSIZE.REX]].
<br><br>Some older REXXes don't have a &nbsp; '''<code>changestr''' &nbsp;</code> BIF, so one is included here ──► [[CHANGESTR.REX]].
 
<br><br>REXX programs not included are &nbsp; '''<code>$H''' &nbsp;</code> which shows '''help''' and other documentation.
 
==$PLOT.REX (REXX) program==
<syntaxhighlight lang="rexx">
<lang rexx>/*REXX program plots X or X,Y points (with/without labels). */
 
trace off
Line 564 ⟶ 566:
shorten: procedure; parse arg a,n; return left(a,max(0,length(a)-p(n 1)))
simple: return translate(arg(1),'.||--%<>AV'copies('+',25),"·│║─═☼◄►↑↓┤┐└┴┬├┼┘┌╔╗╚╝╟╢╞╡╫╪╤╧╥╨╠╣")
syntax: !sigl=sigl; call er 13,!fid(2) !fid(3) !sigl !cal() condition('D') sourceline(!sigl)</lang>
</syntaxhighlight>
 
==$PLOT.REX (REXX) program HELP==