Example: Stripchart (Sine Waves)
|
10 ! *********************************************************************
20 ! Example: STRIPCHART (Sine Waves)
30 !
40 ! This program builds a scrolling STRIPCHART widget
50 ! that displays four sine waves.
60 !
70 ! **************************************************
80 !
90 INTEGER I
100 REAL D(1:4)
110 ASSIGN @Graph TO WIDGET "STRIPCHART"
120 CONTROL @Graph;SET ("TITLE":" Example: STRIPCHART (Sine Waves)")
130 CONTROL @Graph;SET ("X":50,"Y":25,"VISIBLE":0)
140 CONTROL @Graph;SET ("CURRENT AXIS":"X","ORIGIN":0,"RANGE":4)
150 CONTROL @Graph;SET ("NUMBER FORMAT":"MINUTES","DIGITS":9)
160 CONTROL @Graph;SET ("CURRENT AXIS":"Y","ORIGIN":-50)
170 CONTROL @Graph;SET ("RANGE":100,"VISIBLE":1)
180 CONTROL @Graph;SET ("SYSTEM MENU":"Quit")
190 ON EVENT @Graph,"SYSTEM MENU" GOTO Finis
200 Start=TIMEDATE
210 WHILE 1
220 T=TIMEDATE-Start
230 FOR I=1 TO 4
240 D(I)=-62+25*I+10*SIN(T*I*3)
250 NEXT I
260 CONTROL @Graph;SET ("POINT LOCATION":T,"VALUES":D(*))
270 END WHILE
280 Finis: !
290 ASSIGN @Graph TO * ! Delete STRIPCHART widget
300 END
