samer@1: (load "props.scm")
samer@1: 
samer@1: (push-properties "scope.props")
samer@1: (put "trace.background" Color.black$)
samer@1: (put "trace.foreground" (Color. 60 220 150))
samer@1: (put "regulated" "true")
samer@1: 
samer@1: (define (oscillator name f)
samer@1: 	(define o (Oscillator. f))
samer@1: 	(VParameter. name (.getFrequencyModel o))
samer@1: 	o)
samer@1: 
samer@1: (define (gradient-map c1 c2 n)
samer@1: 	(define cramp (ColorRamp. n))
samer@1: 	(.gradient cramp 0 c1 (- n 1) c2)
samer@1: 	(.getColorModel cramp))
samer@1: 
samer@1: (put "renderer" Renderer.LINE$)
samer@1: (put "colormap" (colormap 13
samer@1: 		Color.red$ 		2 	Color.yellow$ 	4	Color.green$
samer@1: 	6 	Color.cyan$	8 	Color.blue$ 	10	Color.magenta$
samer@1: 	12	Color.red$))
samer@1: ; _________________________________________
samer@1: 
samer@1: (expose)
samer@1: 
samer@1: (define x (VVector. "x" 8))
samer@1: (define pl (node "trace" (VectorTrace. x)))
samer@1: (addtask pl)
samer@1: (addtask (Ops.update x))
samer@1: (expose pl "trace")
samer@1: (exec x "plotter editor")