home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
e
/
easylx.zip
/
EXAMPLE4.SEQ
< prev
next >
Wrap
Text File
|
1991-09-26
|
6KB
|
201 lines
: EXAMPLE4
MESSAGE( 5 5 5 5 5
8 10
" "
" "
" "
" graphics capabilities built into Easyest LX."
" This example sequence demonstrates some of the"
0 )
TEXT( 250 289 0 0 0
12 1
" Press any key to continue ..." 0 )
WAIT( 1000 1 0 )
CLR( 8 0 )
OPS( .00 0 27 50 2
16 0 )
SAVE( 11. 23 0 )
INPUT( 7. 28 0 )
OPS( .00 0 23 50 2
3 0 )
SAVE( 11. 23 0 )
OPS( .00 0 23 50 2
11 0 )
SAVE( 11. 19 0 )
INPUT( 30. 27 0 )
TOTMP( 10. 27 0 )
OPS( .00 0 23 50 2
1 0 )
SAVE( 11. 23 0 )
OPS( .00 0 23 50 2
11 0 )
SAVE( 11. 18 0 )
TOTMP( 10. 27 0 )
OPS( .00 0 23 50 2
1 0 )
SAVE( 11. 23 0 )
OPS( .00 0 23 50 2
11 0 )
SAVE( 11. 17 0 )
TOTMP( 10. 27 0 )
OPS( .00 0 23 50 2
1 0 )
SAVE( 11. 23 0 )
OPS( .00 0 23 50 2
11 0 )
SAVE( 11. 16 0 )
TOTMP( 10. 27 0 )
OPS( .00 0 23 50 2
1 0 )
SAVE( 11. 23 0 )
OPS( .00 0 23 50 2
11 0 )
SAVE( 11. 15 0 )
TOTMP( 10. 27 0 )
OPS( .00 0 23 50 2
1 0 )
SAVE( 11. 23 0 )
OPS( .00 0 23 50 2
11 0 )
SAVE( 11. 14 0 )
WAVEPLOT( 1 1 1 1 1
1 8 1 19 6
2.06000E0 5.90000E-1 3 10 0 )
TEXT( 181 51 0 0 0
14 1
" Waterfall Plot with Cross Hatching" 0 )
TEXT( 250 289 0 0 0
12 1
" Press any key to continue ..." 0 )
WAIT( 1000 1 0 )
CLR( 8 0 )
A/D( 1 1 10000. 4 1
.00 -2.00000E-1 0 128 1
1 0 0 1 1
0 )
PLOT( 26 7 10 10 1
1 1 1 1 1
1 0 1 0 0
" *" 0 )
SUB( 128 0 1 0 5
6 26 0 )
OVERLAY( 28 7 10 14 3
" *" 0 )
PLOT( 26 7 9 13 1
1 1 1 1 1
1 0 1 0 0
" *" 0 )
FILTER( 1000. 26 5.00000E2 1000. 0
0 )
OVERLAY( 28 7 9 14 1
" *" 0 )
TEXT( 397 45 0 0 0
10 1
" - - Original Data" 0 )
TEXT( 397 56 0 0 0
14 1
" * - Every 5th point" 0 )
TEXT( 398 181 0 0 0
13 1
" - - Original Data" 0 )
TEXT( 399 192 0 0 0
14 1
" - - Filtered Data" 0 )
TEXT( 136 164 0 0 0
14 1
" : Real Time Display" 0 )
INPUT( 50. 27 0 )
BEGIN( 0 )
TEXT( 36 4 0 12 11
1 14 1 0 )
INPUT( 1. 28 0 )
OPS( .00 0 27 50 2
2 0 )
SAVE( 11. 27 0 )
LOOPTEST( 27. 1 3 0. 0
3 0 )
END( 0 )
MESSAGE( 5 5 5 5 5
9 13
" "
" "
" storage to disk."
" display and simultaneous"
" Strip Chart for real time" 0 )
STRIP( 1 1 10 1 2
0 50. 0 1 .00
-2.00000E-1 0 5 10 1.00000E-1
1 1
" TEST.DAT" 0 )
OPS( .00 0 27 128 2
16 0 )
SAVE( 11. 23 0 )
INPUT( 9. 28 0 )
OPS( .00 0 23 128 2
3 0 )
OPS( .00 0 28 128 2
11 0 )
SAVE( 11. 26 0 )
INPUT( 15. 28 0 )
OPS( .00 0 23 128 2
3 0 )
OPS( .00 0 28 128 2
12 0 )
XYPLOT( 26 1 8 14 1
0 0 1 1 0
0 1 1 0 0
" *" 0 )
TEXT( 241 54 0 0 255
287 0 0 0 13
2
" Easyest LX Graphics"
" are Flexible." 0 )
TEXT( 101 106 270 0 525
243 90 90 0 10
2
" Label Rotation"
" Character Rotation" 0 )
TEXT( 294 302 0 0 0
12 1
" Press any key to continue ..." 0 )
WAIT( 1000 1 0 )
A/D( 3 1 4000. 0 1
.00 -2.00000E-1 0 128 1
1 0 0 1 1
0 )
PLOT( 24 7 8 13 1
1 1 1 1 1
1 1 1 0 0
" *" 0 )
PEAK( 24 20. 3. .00 1
1.75000E0 27 0 )
OVERLAY( 28 7 8 14 3
" *" 0 )
OVERLAY( 28 7 8 15 1
" *" 0 )
SUB( 30 0 68 0 1
6 24 0 )
OVERLAY( 28 7 8 14 1
" *" 0 )
FIT( 1 4 28 14 8
0 0 )
OVERLAY( 28 7 8 10 1
" *" 0 )
TEXT( 279 303 0 0 0
12 1
" Press any key to continue ..." 0 )
WAIT( 1000 1 0 )
MESSAGE( 5 5 5 5 5
8 10
" "
" "
" Press any key to continue...."
" "
" Example Application Complete." 0 )
WAIT( 1000 1 0 )
CLR( 8 0 )
;