home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d9xx
/
d916
/
mathplot.lha
/
MathPlot
/
Macros
/
test1.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-10-04
|
945b
|
46 lines
/* Simple test of beep */
address "MPlot_ARexx"
options results
beep
/* getfunc, getXderive */
getfunc number 0 var sinus
get1derive number 0 var sinus1
get2derive NUMBER 0 var sinus2
say "The first function is "sinus
say "The first derivation is "sinus1
say "The second derivation is "sinus2
/* Get the version string */
version var version
say "The version string is "version
say
/* Test getcolor/setcolor */
clear force
setcolor plotcolor 1
getfunc 0 var func
get1derive 0 var deri
getcolor plotcolor var first
plot 0 normal
setcolor plotcolor 2
plot 0 derive1
getcolor plotcolor var second
say "First, the color was "first" function "func
say "Then, it was "second" function "deri
/* Test the labels and color */
setcolor axiscolor 3
showaxis
getcolor plotcolor axiscolor
say "Plotcolor and axiscolor" result
getcolor plotcolor axiscolor stem a.
say "The same, with stem " a.plotcolor "," a.axiscolor