1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#
# $Id: mouselab_1.dem,v 1.1 2006/07/10 19:49:54 sfeam Exp $
#
# Demonstrate screen interaction using mouse variables
#
# MOUSE_X MOUSE_Y MOUSE_KEY MOUSE_CHAR
#
# On entry, LID is the identifier for the previous label
#
LID = LID + 1
set label 2 sprintf(">>> READY FOR LABEL %d <<<",LID-100)
set label 2 at graph .02, graph .65 tc lt (LID-100)
replot
#
# Get mouse position and first character of label
#
pause mouse key
LABEL = MOUSE_CHAR
LABEL_X = MOUSE_X
LABEL_Y = MOUSE_Y
set label LID LABEL at LABEL_X, LABEL_Y
replot
#
# Call routine that catches keystrokes one by one and
# updates the label
#
load "mouselab_2.dem"
#
# Print out final label details
#
show label LID
#
# Loop until we see an <esc>
#
if (MOUSE_KEY != 27) reread
|
