diff examples/graphics/scope/vtrace.scm @ 8:5e3cbbf173aa tip

Reorganise some more

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/graphics/scope/vtrace.scm	Fri Apr 05 22:41:58 2019 +0100
@@ -0,0 +1,32 @@
+(load "props.scm")
+
+(push-properties "scope.props")
+(put "trace.background" Color.black$)
+(put "trace.foreground" (Color. 60 220 150))
+(put "regulated" "true")
+
+(define (oscillator name f)
+	(define o (Oscillator. f))
+	(VParameter. name (.getFrequencyModel o))
+	o)
+
+(define (gradient-map c1 c2 n)
+	(define cramp (ColorRamp. n))
+	(.gradient cramp 0 c1 (- n 1) c2)
+	(.getColorModel cramp))
+
+(put "renderer" Renderer.LINE$)
+(put "colormap" (colormap 13
+		Color.red$ 		2 	Color.yellow$ 	4	Color.green$
+	6 	Color.cyan$	8 	Color.blue$ 	10	Color.magenta$
+	12	Color.red$))
+; _________________________________________
+
+(expose)
+
+(define x (VVector. "x" 8))
+(define pl (node "trace" (VectorTrace. x)))
+(addtask pl)
+(addtask (Ops.update x))
+(expose pl "trace")
+(exec x "plotter editor")