ADDED   iupexamples/graph.scm
Index: iupexamples/graph.scm
==================================================================
--- /dev/null
+++ iupexamples/graph.scm
@@ -0,0 +1,62 @@
+(use iup)
+(import iup-pplot)
+
+ 
+
+(define (tl)
+  (let* ((lastx 0)
+	 (lastsample 2)
+	 (plt (pplot 
+	       #:title "MyTitle"
+	       #:marginbottom "65"
+	       #:marginleft   "65"
+	       #:axs_xlabel   "Score" 
+	       #:axs_ylabel "Count"
+	       #:legendshow "YES"
+	       ;; #:axs_xmin    "0"
+	       ;; #:axs_ymin    "0"
+	       #:axs_yautomin "YES"
+	       #:axs_xautomin "YES"
+	       #:axs_xautotick "YES"
+	       #:axs_yautotick "YES"
+	       #:ds_showvalues "YES"
+	       #:size "200x200"
+	       ))
+	 (plt1  (call-with-pplot 
+		 plt
+		 (lambda (x)
+		   (pplot-add! plt 10 100)
+		   (pplot-add! plt 20 120)
+		   (pplot-add! plt 30 200))
+		 #:x-string #f
+		 ))
+	 (plt2  (call-with-pplot 
+		 plt
+		 (lambda (x)
+		   (pplot-add! plt 10 180)
+		   (pplot-add! plt 20 125)
+		   (pplot-add! plt 30 100))
+		 #:x-string #f
+		 ))
+	 (dlg (dialog
+	       (vbox
+		plt
+		(hbox
+		;;  (button "Redraw" size: "50x" action: (lambda (obj)
+		;; 					(redraw plt)))
+		 (button "Quit"   size: "50x" action: (lambda (obj)
+							(exit)))
+		 (button "AddPoint" size: "50x" action: (lambda (obj)
+							  (set! lastx (+ lastx 10))
+							  (set! lastsample (+ lastsample 1))
+							  ;; (attribute-set! plt 'current 0)
+							  (print "lastx: " lastx " lastsample: " lastsample)
+							  (pplot-add! plt lastx (random 300) lastsample 1)
+							  (attribute-set! plt "REDRAW" "1"))))))))
+    (set! lastx 30)
+    (attribute-set! plt 'ds_mode "LINE")
+    ;; (attribute-set! plt 'ds_legend "Yada")
+    (show dlg)
+    (main-loop)))
+
+(tl)