LI-COR LI-6400, Manual

Page: 683 / 846

LPL Topics
Graphics
Using the LI-6400 23-61
The program in Figure 23-30 produces a labelled cosine curve
(Figure 23-31).
:FLOAT angle[50] { }
cosine[50] { }
fromAngle 0
toAngle 720
:INT graphBox[4] { 20 60 200 7 }
:FCT Main
{
GINIT
1
GRAPH
0
ALPHA
DEG
GCLEAR
/* Generate some data */
FillArrays
/* Draw the axes, and scale */
DoAxes
/* Draw the curve */
0 angle cosine GPLOT
/* Plot the points */
'+' angle cosine
GPLOT
GETKEY
0
GRAPH
1
ALPHA
}
DoAxes
{
/* This labelling is done while weÕre
still in pixel coordinates */
20 4 GMOVE
"0"
GLABEL
200 4 GMOVE
"720"
GLABEL
100 4 GMOVE
"DEGREES"
GLABEL
2 7
GMOVE
"-1" GLABEL
2 60
GMOVE
"+1" GLABEL
/* Make a box for plotting, and change
to user coordinates */
graphBox GWINDOW
fromAngle 1.1 toAngle -1.1 GSCALE
/* Draw axes lines */
0 -1 GMOVE
0 +1
GDRAW
0 0 GMOVE
720 0
GDRAW
}
/* This routine fills ÕangleÕ with
angles, and ÕcosineÕ is filled with
corresponding cosines */
FillArrays
{
angle
SIZE :INT
n
toAngle fromAngle - n / :FLOAT delta
fromAngle
:FLOAT
x
1 :INT i
n
NLOOP
/* Store the angle */
x angle i
PICK
=
/* Store the cosine */
x COS cosine i
PICK
=
&x delta + DROP
&i 1 +
DROP
ENDLOOP
/* Make the arrays look full */
n angle SETREADY
n cosine
SETREADY
}
Figure 23-30. Labelling in graphics mode.