File: mouselab_2.dem

package info (click to toggle)
gnuplot 6.0.2%2Bdfsg1-2
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 14,940 kB
  • sloc: ansic: 95,319; cpp: 7,590; makefile: 2,470; javascript: 2,328; sh: 1,531; lisp: 664; perl: 304; pascal: 191; tcl: 88; python: 46
file content (41 lines) | stat: -rw-r--r-- 1,183 bytes parent folder | download | duplicates (5)
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
38
39
40
41
#
# Wait for keystroke in plot window
# Return to caller on <esc> or <tab>, otherwise loop
#
while (MOUSE_KEY != 27 && MOUSE_CHAR ne "	") {

    #
    # Add new printable character to label
    #
    if (31 < MOUSE_KEY && MOUSE_KEY < 127) {
	LABEL = LABEL.MOUSE_CHAR
    }
    #
    # Add newline to label if input character was <cr>
    #
    if (MOUSE_KEY == 13) {
	LABEL = LABEL."\n"
    }
    #
    # Delete previous character from label on <backspace> or <delete>
    #
    if (MOUSE_KEY == 8 || MOUSE_KEY == 127) {
	LABEL = LABEL[1:strlen(LABEL)-1]
    }
    #
    # Allow arrow keys to tweak label position
    # The GP_Up GP_Right GP_Down GP_Left (1008-1011) are defined in mousecmn.h
    #
    if (MOUSE_KEY == 1009) { LABEL_Y = LABEL_Y + (GPVAL_Y_MAX-GPVAL_Y_MIN)/100. }
    if (MOUSE_KEY == 1010) { LABEL_X = LABEL_X + (GPVAL_X_MAX-GPVAL_X_MIN)/100. }
    if (MOUSE_KEY == 1011) { LABEL_Y = LABEL_Y - (GPVAL_Y_MAX-GPVAL_Y_MIN)/100. }
    if (MOUSE_KEY == 1008) { LABEL_X = LABEL_X - (GPVAL_X_MAX-GPVAL_X_MIN)/100. }
    #
    # Update label
    #
    set label LID LABEL at LABEL_X, LABEL_Y
    replot
    #
    pause mouse key

} # end of loop waiting for <esc> or <tab>