comparison examples/misc/vtrace.scm @ 8:5e3cbbf173aa tip

Reorganise some more

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