Initial release of Maemo 5 port of gnuplot

[gnuplot] / demo / mousevariables.dem

diff --git a/demo/mousevariables.dem b/demo/mousevariables.dem
new file mode 100644 (file)
index 0000000..75b5a49
--- /dev/null
+++ b/demo/mousevariables.dem
@@ -0,0 +1,70 @@
+#
+# $Id: mousevariables.dem,v 1.8 2006/07/10 19:49:54 sfeam Exp $
+#
+# Demonstrate use of user variables 
+# MOUSE_BUTTON MOUSE_X MOUSE_Y MOUSE_X2 MOUSE_Y2
+# and built-in function exists("<varname>")
+#
+reset
+set title "Scripted zoom using exported MOUSE variables"
+set samples 200
+set label 3 at graph 0.1, graph 0.9 tc lt 3
+set label 3 "Click on one corner of desired zoom region"
+plot sin(13*besj0(x))/x
+#
+pause mouse "Click on one corner of desired zoom region"
+#
+if (exists("MOUSE_BUTTON")) \
+    print "Mouse button ", MOUSE_BUTTON, " at ", MOUSE_X, " ", MOUSE_Y ;\
+    set label 1 sprintf("   Mouse button %d\n   clicked here!", MOUSE_BUTTON) ;\
+    set label 1 at MOUSE_X, MOUSE_Y ;\
+    set label 1 point pt 6 ps 6 ;\
+    replot ;\
+else \
+    print "No mouse click?" ;\
+    exit ;
+#
+BOT_X = MOUSE_X
+BOT_Y = MOUSE_Y
+set label 3 "Click on diagonal corner of desired zoom region"
+replot
+#
+pause mouse "Click on diagonal corner of desired zoom region"
+#
+if (exists("MOUSE_BUTTON")) \
+    print "Mouse button ", MOUSE_BUTTON, " at ", MOUSE_X, " ", MOUSE_Y ;\
+    set label 2 sprintf("   Mouse button %d\n   clicked here!", MOUSE_BUTTON) ;\
+    set label 2 at MOUSE_X, MOUSE_Y ;\
+    set label 2 point pt 6 ps 6 ;\
+    replot ;\
+else \
+    print "No mouse click?" ;\
+    exit ;
+#
+#
+TOP_X = MOUSE_X
+TOP_Y = MOUSE_Y
+#
+set label 3 "Plot will zoom in 3 seconds"
+replot
+pause 3
+#
+set xrange [ BOT_X : TOP_X ]
+set yrange [ BOT_Y : TOP_Y ]
+set grid
+#
+unset label 1
+unset label 2
+unset label 3
+set label 4 sprintf("zoom x range %.3f to %.3f",BOT_X,TOP_X)
+set label 5 sprintf("zoom y range %.3f to %.3f",TOP_X,TOP_Y)
+set label 4 at graph 0.1, graph 0.95 tc lt 3
+set label 5 at graph 0.1, graph 0.90 tc lt 3
+replot
+#
+print "Zoomed to xrange ",BOT_X," ",TOP_X
+print "Zoomed to yrange ",BOT_Y," ",TOP_Y
+#
+pause -1 "Type <cr> to continue"
+
+reset