view examples/misc/vtrace.scm @ 1:5df24c91468d

Oh my what a mess.

(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")