| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465 |
- (lambda (data)
- (var info (array
- (array "text" "Type" "Sequencer")
- (array "text" "ID" data.id)
- (array "step" "Step" (+ data.step "/" data.seq.length))))
- (var header (/h ".device-header" (array
- (/templates/module/label data.label (+ "Sequencer " data.id))
- (/h ".device-buttons" (array
- (?: /state/session/sampler (./sequencer-connect data.id) null)
- (/templates/module/info info))))))
- (var note-names (array "C" "C#" "D" "D#" "E" "F" "F#" "G" "G#" "A" "A#" "B"))
- (var keys (array))
- (var lanes (array))
- (var events (array))
- (.for-each (Object.keys data.events) add-events)
- (for (var i 0) (< i 12) (++ i) (add-lane i))
- (var bar-width "25%")
- (var timeline (array))
- (var grid (array (grid-bar 0) (grid-bar 1) (grid-bar 2) (grid-bar 3)))
- (for (var i 0) (< i 16) (++ i) (add-notch i))
- (var piano-roll (/h ".sequencer-piano" (array
- ;(/h ".sequencer-piano-timeline" timeline)
- (/h ".sequencer-piano-keys" keys)
- (/h ".sequencer-piano-body" (array events grid)))))
- (var steps (/h ".sequencer-steps" (data.seq.map (lambda (val i) (return
- (/h (+ ".sequencer-step" (?: (> val 0) ".active" "") (?: (=== i data.step) ".current" ""))
- (object "onclick" (/emit ./events/click data.id i))))))))
- (return (/h ".device.sequencer" (array header piano-roll)))
- (function add-lane (i)
- (var note (get note-names (% i 12)))
- (var color (?: (=== 2 note.length) ".black" ".white"))
- (keys.push (/h (+ ".sequencer-piano-key" color) note)))
- (function add-events (t)
- (var style (+
- "left:" (* 100 (/ t 16)) "%;"
- "bottom:" (* 100 (/ (get data.events t) 12)) "%"))
- (events.push (/h ".sequencer-piano-note" (object
- "style" style
- "onclick" (/emit ./events/piano/delete data.id t (get data.events t))))))
- (function add-notch (i)
- (timeline.push (/h ".sequencer-piano-notch" (String i))))
- (function grid-bar (i) (return (/h ".sequencer-piano-grid-bar"
- (object "style" (+ "width:" bar-width ";left:" (* i 25) "%"))
- (array (grid-beat i 0) (grid-beat i 1) (grid-beat i 2) (grid-beat i 3)))))
- (function grid-beat (i j)
- (var beat-lanes (array))
- (for (var k 0) (< k 12) (++ k) (grid-beat-lane beat-lanes (+ (* i 4) j) k))
- (return (/h ".sequencer-piano-grid-beat"
- (object "style" (+ "width:25%;left:" (* j 25) "%")) beat-lanes)))
- (function grid-beat-lane (beat-lanes t n)
- (beat-lanes.push (/h ".sequencer-piano-grid-lane"
- (object "onclick" (/emit ./events/piano/draw data.id t n)))))
-
- )
|
