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

Reorganise some more
author samer
date Fri, 05 Apr 2019 22:41:58 +0100
parents examples/misc/vtrace.scm@5df24c91468d
children
rev   line source
samer@1 1 (load "props.scm")
samer@1 2
samer@1 3 (push-properties "scope.props")
samer@1 4 (put "trace.background" Color.black$)
samer@1 5 (put "trace.foreground" (Color. 60 220 150))
samer@1 6 (put "regulated" "true")
samer@1 7
samer@1 8 (define (oscillator name f)
samer@1 9 (define o (Oscillator. f))
samer@1 10 (VParameter. name (.getFrequencyModel o))
samer@1 11 o)
samer@1 12
samer@1 13 (define (gradient-map c1 c2 n)
samer@1 14 (define cramp (ColorRamp. n))
samer@1 15 (.gradient cramp 0 c1 (- n 1) c2)
samer@1 16 (.getColorModel cramp))
samer@1 17
samer@1 18 (put "renderer" Renderer.LINE$)
samer@1 19 (put "colormap" (colormap 13
samer@1 20 Color.red$ 2 Color.yellow$ 4 Color.green$
samer@1 21 6 Color.cyan$ 8 Color.blue$ 10 Color.magenta$
samer@1 22 12 Color.red$))
samer@1 23 ; _________________________________________
samer@1 24
samer@1 25 (expose)
samer@1 26
samer@1 27 (define x (VVector. "x" 8))
samer@1 28 (define pl (node "trace" (VectorTrace. x)))
samer@1 29 (addtask pl)
samer@1 30 (addtask (Ops.update x))
samer@1 31 (expose pl "trace")
samer@1 32 (exec x "plotter editor")