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

Oh my what a mess.

(load "props.scm")

(import "samer.core.types.*")

(push-properties "scope.props")
(put "canvas.background" Color.black$)
(put "canvas.foreground" (Color. 60 220 120))
(put "trace.background" Color.black$)

(define C (node "canvas" (Plotter.)))
(expose C "canvas")
(.exposeMaps C)

(define (oscillator nm freq)
	(define o (Oscillator. freq))
	(VParameter. nm (.getFrequencyModel o))
;	(Product. (Constant. 256.0) o)
	o
)

(tasks)

(define x (VDouble. "x"))
(define y (VDouble. "y"))

(addtasks
	(GenerateDouble. x (oscillator "fx" 0.1))
	(GenerateDouble. y (oscillator "fy" 0.1))
	(SilkTask.
		(let ((P (.getPen C)))
			(.moveto P 0 0)
			(lambda ()
				(.activate P)
				(.line (.abs P (.value$ x) (.value$ y)))
				(.move P)
			)
		))
)

(expose)