diff examples/mds/mds2.scm @ 1:5df24c91468d

Oh my what a mess.

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/mds/mds2.scm	Fri Apr 05 16:26:00 2019 +0100
@@ -0,0 +1,37 @@
+(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)
+
+