view examples/mds/mds2.scm @ 5:b67a33c44de7

Remove some crap, etc

(import "samer.mds.*")

(tasks)
(put "colormap" (redgreen))
(put "oz.background" Color.black$)
(define R (Matrix. "R" 512 512))
(define P (Matrix. "P" 512 6))
(define mds (MDS2. R P))
(.setDimensionality mds 2)
(.linkAll mds)
(addtask mds)

;(matexec P "load")
;(matexec R "load")
(.timesEquals R 0.5)

(define (make-vwr)
	(define vwr (node "oz" (MatrixPointViewer. P)))
	(Shell.expose vwr "Oz")
	vwr)

(define (make-vwr2 x)
	(define vwr (node "oz" (MatrixPointViewer2. P x)))
	(Shell.expose vwr "Oz")
	vwr)

(make-vwr)	
;(MatrixBall.setBallSize 6 6)
;(MatrixBall.drawMarker (MatrixBall.getImage) Color.white$ 0.4f)


(define gauss (samer.maths.random.NormalisedGaussian.))
(define (rnd) (.set P gauss) (.changed P))

(expose)