samer@1: (import "samer.mds.*")
samer@1: 
samer@1: (tasks)
samer@1: (put "colormap" (redgreen))
samer@1: (put "oz.background" Color.black$)
samer@1: (define R (Matrix. "R" 512 512))
samer@1: (define P (Matrix. "P" 512 6))
samer@1: (define mds (MDS2. R P))
samer@1: (.setDimensionality mds 2)
samer@1: (.linkAll mds)
samer@1: (addtask mds)
samer@1: 
samer@1: ;(matexec P "load")
samer@1: ;(matexec R "load")
samer@1: (.timesEquals R 0.5)
samer@1: 
samer@1: (define (make-vwr)
samer@1: 	(define vwr (node "oz" (MatrixPointViewer. P)))
samer@1: 	(Shell.expose vwr "Oz")
samer@1: 	vwr)
samer@1: 
samer@1: (define (make-vwr2 x)
samer@1: 	(define vwr (node "oz" (MatrixPointViewer2. P x)))
samer@1: 	(Shell.expose vwr "Oz")
samer@1: 	vwr)
samer@1: 
samer@1: (make-vwr)	
samer@1: ;(MatrixBall.setBallSize 6 6)
samer@1: ;(MatrixBall.drawMarker (MatrixBall.getImage) Color.white$ 0.4f)
samer@1: 
samer@1: 
samer@1: (define gauss (samer.maths.random.NormalisedGaussian.))
samer@1: (define (rnd) (.set P gauss) (.changed P))
samer@1: 
samer@1: (expose)
samer@1: 
samer@1: