forked from supercollider/supercollider
-
Notifications
You must be signed in to change notification settings - Fork 8
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
This is a squash and reformatting of several commits that originally made up #75 BelaScope: create in SC_World, setup in SC_Bela ServerOptions: -O belaMaxScopeChannels BelaScope: single instance and valid inputs checks BelaScopeUGen: single instance guard BelaScope: add .belaScope to Server, Bus and Function BelaScope: maxScopeChannels defaults to 0
- Loading branch information
1 parent
45a84a4
commit 2fc8ce6
Showing
11 changed files
with
290 additions
and
8 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,181 @@ | ||
| BelaScope { | ||
|
|
||
| classvar <serverScopes; | ||
| var <server, <bus, <node; | ||
|
|
||
| // public interface | ||
|
|
||
| *scope { |channelOffset, signals, server| | ||
| ^this.getInstance(server).scope(channelOffset, signals); | ||
| } | ||
|
|
||
| scope { |channelOffset, signals| | ||
|
|
||
| var ugens = this.class.prInputAsAudioRateUGens(signals); | ||
|
|
||
| if(ugens.notNil and: this.prIsValidScopeChannel(channelOffset, signals)) { | ||
| Out.ar(this.bus.index + channelOffset, ugens); | ||
| }; | ||
|
|
||
| ^signals; | ||
| } | ||
|
|
||
| *monitorBus { |channelOffset, busindex, numChannels, target| | ||
| var server, belaScope; | ||
| target = target.asTarget; | ||
| server = target.server; | ||
| belaScope = this.getInstance(server); | ||
| if(belaScope.prIsValidScopeChannel(channelOffset, busindex+(0..numChannels))) { | ||
| ^Monitor().play(busindex, numChannels, belaScope.bus.index + channelOffset, numChannels, target, addAction:\addAfter); | ||
| } | ||
| } | ||
|
|
||
| maxChannels { ^this.server.options.belaMaxScopeChannels } | ||
|
|
||
| // instance creation | ||
|
|
||
| *initClass { | ||
| serverScopes = IdentityDictionary[]; | ||
| } | ||
|
|
||
| *new { |server| | ||
| ^this.getInstance(server); | ||
| } | ||
|
|
||
| *getInstance { |server| | ||
| server = server ? Server.default; | ||
| serverScopes[server] ?? { | ||
| serverScopes[server] = super.newCopyArgs(server).init; | ||
| } | ||
| ^serverScopes[server]; | ||
| } | ||
|
|
||
| init { | ||
| if(this.maxChannels <= 0) { | ||
| Error( | ||
| "BelaScope: can't instantiate on server '%' because its option belaMaxScopeChannels is %" | ||
| .format(server, this.maxChannels) | ||
| ).throw; | ||
| }; | ||
| ServerBoot.add(this, this.server); | ||
| ServerTree.add(this, this.server); | ||
| if(this.server.serverRunning){ | ||
| this.doOnServerBoot; | ||
| this.doOnServerTree; | ||
| } | ||
| } | ||
|
|
||
| // bus and synth creation | ||
|
|
||
| prReserveScopeBus { | ||
| // TODO: check if bus is already reserved, or if maxChannels mismatch | ||
| bus = Bus.audio(server, this.maxChannels); | ||
| } | ||
|
|
||
| prStartScope { | ||
| if(node.notNil) { | ||
| if (node.isRunning) { | ||
| warn("BelaScope: can't instantiate a new BelaScopeUGen, because one is already active."); | ||
| ^this | ||
| } | ||
| }; | ||
|
|
||
| if(UGen.buildSynthDef.notNil) { | ||
| // When BelaScope.init is called inside a SynthDef function (e.g. by UGen:belaScope), | ||
| // this.prStartSynth breaks that SynthDef:build, because it attempts to create an inner SynthDef. | ||
| // Fixed by forking. | ||
| fork{ this.prStartSynth }; | ||
| } { | ||
| this.prStartSynth; | ||
| } | ||
|
|
||
| } | ||
|
|
||
| prStartSynth { | ||
| node = SynthDef(\bela_stethoscope) { | ||
| BelaScopeUGen.ar(this.bus, this.maxChannels); | ||
| } | ||
| .play(this.server, addAction: \addAfter) | ||
| .register; | ||
| } | ||
|
|
||
| doOnServerBoot { this.prReserveScopeBus; ServerBoot.remove(this) } | ||
| doOnServerTree { this.prStartScope; ServerTree.remove(this) } | ||
|
|
||
| // scope input checks | ||
|
|
||
| *prInputAsAudioRateUGens { |signals| | ||
| var arUGens = signals.asArray.collect{ |item| | ||
| switch(item.rate) | ||
| { \audio }{ item } // pass | ||
| { \control }{ K2A.ar(item) } // convert kr to ar | ||
| { \scalar }{ | ||
| // convert numbers to ar UGens | ||
| if(item.isNumber) { DC.ar(item) } { nil } | ||
| } | ||
| { nil } | ||
| }; | ||
|
|
||
| if(arUGens.every(_.isUGen)) { | ||
| ^arUGens; | ||
| } { | ||
| warn( | ||
| "BelaScope: can't scope this signal, because not all of its elements are UGens.\nSignal: %" | ||
| .format(signals) | ||
| ); | ||
| ^nil; | ||
| } | ||
| } | ||
|
|
||
| prIsValidScopeChannel { |channelOffset, signals=#[]| | ||
| if(channelOffset.isNumber.not) { | ||
| warn("BelaScope: channel offset must be a number, but (%) is provided.".format(channelOffset)); | ||
| ^false; | ||
| }; | ||
| if(channelOffset < 0) { | ||
| warn("BelaScope: channel offset must be a positive number, but (%) is provided.".format(channelOffset)); | ||
| ^false; | ||
| }; | ||
| if(channelOffset + signals.asArray.size > this.maxChannels){ | ||
| warn( | ||
| "BelaScope: can't scope this signal to scope channel (%), max number of channels (%) exceeded.\nSignal: %" | ||
| .format(channelOffset, this.maxChannels, signals) | ||
| ); | ||
| ^false; | ||
| }; | ||
| ^true; | ||
| } | ||
| } | ||
|
|
||
| + UGen { | ||
| belaScope { |scopeChannel, server| | ||
| ^BelaScope.scope(scopeChannel, this, server) | ||
| } | ||
| } | ||
|
|
||
| + Array { | ||
| belaScope { |scopeChannel, server| | ||
| ^BelaScope.scope(scopeChannel, this, server) | ||
| } | ||
| } | ||
|
|
||
| + Bus { | ||
| belaScope { |scopeChannel| | ||
| ^BelaScope.monitorBus(scopeChannel, index, numChannels); | ||
| } | ||
| } | ||
|
|
||
| + Function { | ||
| belaScope { |scopeChannel, numChannels = 1, target, outbus = 0, fadeTime = 0.02, addAction = \addToHead, args| | ||
| var synth = this.play(target, outbus, fadeTime, addAction, args); | ||
| var monitor = BelaScope.monitorBus(scopeChannel, outbus, numChannels, target); | ||
| ^synth.onFree { if(monitor.notNil) { monitor.free } }; | ||
| } | ||
| } | ||
|
|
||
| + Server { | ||
| belaScope { |scopeChannel, numChannels, index = 0| | ||
| numChannels = numChannels ?? { if (index == 0) { options.numOutputBusChannels } { 2 } }; | ||
| ^Bus(\audio, index, numChannels, this).belaScope(scopeChannel); | ||
| } | ||
| } |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.