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: |
01ebf4ff219ca8b068970a8a103c3e2b |
| 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
Added iupexamples/graph.scm version [5afd5f9dcd].
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 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)
|