# # 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>
Generated by dwww version 1.15 on Mon Jun 24 13:42:17 CEST 2024.