Megatest: Check-in [01ebf4ff21]

Overview

Comment:	Added iup graph with pplot example to iupexamples
Downloads:	Tarball \| ZIP archive \| SQL archive
Timelines:	family \| ancestors \| descendants \| both \| v1.60
Files:	files \| file ages \| folders
SHA1:	01ebf4ff219ca8b068970a8a103c3e2b58425a6c
User & Date:	matt on 2015-01-21 21:39:45
Other Links:	branch diff \| manifest \| tags

Context

2015-02-21
06:26		Misc setup tweaks, made wrapper installer omit source of cfg if it isn't needed check-in: aff5b70f91 user: matt tags: v1.60
2015-01-21
21:39		Added iup graph with pplot example to iupexamples check-in: 01ebf4ff21 user: matt tags: v1.60
2015-01-09
09:26		Removed txtdb. Exit if bad param to -archive (still not quite right) check-in: 4baae25d86 user: mrwellan tags: v1.60

Changes






























































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 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 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)