In case Flash no longer exists; a copy of this site is included in the Flashpoint archive's "ultimate" collection.

Dead Code Preservation :: Archived AS3 works from wonderfl.net

forked from: DrumMachine pattern and voice selector

/**
 * Copyright Jenya ( http://wonderfl.net/user/Jenya )
 * MIT License ( http://www.opensource.org/licenses/mit-license.php )
 * Downloaded from: http://wonderfl.net/c/x89u
 */

// forked from keim_at_Si's DrumMachine pattern and voice selector
// SiON ver0.60 サウンドオブジェクト [DrumMachine] の使い方
//   org.si.sound.DrumMachine は,シンプルなリズムジェネレータです.
//   バスドラム,スネア,ハイハットのパターン番号と音色番号を指定して,
//   play() メソッドを呼び出すと,リズムパターンを奏でます.
//
// SiON ver0.60 Useage of the sound object [DrumMachine].
//   The org.si.sound.DrumMachine is a simple rythm pattern player.
//   You can play the rythm pattern by calling play() method
//   with specifying the patten number and the voice number for each bass drum, snare drum and hihat synmbals.

package {
    import flash.display.*;
    import flash.events.Event;
    import org.si.sion.SiONDriver;
    import org.si.sion.effector.*;
    import org.si.sound.DrumMachine;
    
    import com.bit101.components.*;
    
    
    public class main extends Sprite {
        // ユーザーインタフェイス
        // user interfaces
        private var bpmSlider:HUISlider;
        private var bassPanel:PatternControlPanel;
        private var snarePanel:PatternControlPanel;
        private var hihatPanel:PatternControlPanel;

        // SiON インスタンス 
        // SiON instance
        private var driver:SiONDriver;
        private var drums:DrumMachine;
        
        
        // constructor
        function main() {
            // SiONDriver インスタンスを作成します
            // create new SiONDriver 
            driver = new SiONDriver();
            
            // DrumMachine インスタンスを作成します
            // create new DrumMachine
            drums = new DrumMachine(0,0,0,0,0,0);
            
            // changePatternOnNextSegment property (default = true)
            // false の場合パターンを即時変更します.true の場合小節区切りのタイミングでパターン変更します.
            // When it is false, the pattern will change immediately. When it is true, the pattern will change at the head of next measure.
            drums.changePatternOnNextSegment = false;
            
            // リズムパターンを番号で指定します.これらの番号はコンストラクタの引数としても指定可能です.
            // Specify pattern sequence by index number. These numbers can be specifyed in the arguments of constructor.
            drums.bassPatternNumber = 0;
            drums.snarePatternNumber = 0;
            drums.hihatPatternNumber = 0;
            drums.bassVoiceNumber = 0;
            drums.snareVoiceNumber = 0;
            drums.hihatVoiceNumber = 0;
            
            // ユーザーインターフェイスを作成します
            // create user interfaces
            _createUIs();
            
            // SiONDriver を起動します.
            // boot SiONDriver
            driver.play();
            
            // DrumMachine の演奏を開始します
            // start DrumMachine 
            drums.play();
        }
        
        
        private function _createUIs() : void {
            with (bpmSlider = new HUISlider(this, 108, 100, "BPM  ", _onChangeBPM)) {
                setSize(240,10);
                setSliderParams(80, 200, 144);
            }
            with (bassPanel = new PatternControlPanel(this, 8, 130, "bass")) {
                createPatternSlider(drums.bassPatternNumberMax, _onChangeBassPattern);
                createVoiceKnob(drums.bassVoiceNumberMax, _onChangeBassVoice);
                createVolumeKnob(drums.bassVolume, _onChangeBassVolume);
                createMuteCheck(_onChangeBassMute);
                updatePatternDisplay(drums.bassPattern);
            }
            with (snarePanel = new PatternControlPanel(this, 8, 200, "snare")) {
                createPatternSlider(drums.snarePatternNumberMax, _onChangeSnarePattern);
                createVoiceKnob(drums.snareVoiceNumberMax, _onChangeSnareVoice);
                createVolumeKnob(drums.snareVolume, _onChangeSnareVolume);
                createMuteCheck(_onChangeSnareMute);
                updatePatternDisplay(drums.snarePattern);
            }
            with (hihatPanel = new PatternControlPanel(this, 8, 270, "hihat")) {
                createPatternSlider(drums.hihatPatternNumberMax, _onChangeHihatPattern);
                createVoiceKnob(drums.hihatVoiceNumberMax, _onChangeHihatVoice);
                createVolumeKnob(drums.hihatVolume, _onChangeHihatVolume);
                createMuteCheck(_onChangeHihatMute);
                updatePatternDisplay(drums.hihatPattern);
            }
        }
        
        
        // 演奏テンポは,SiONDriver.bpmで変更します
        // Change bpm by SiONDriver.bpm
        private function _onChangeBPM(e:Event) : void {
            driver.bpm = bpmSlider.value;
        }
        
        
        // リズムパターンは,DrumMachine.****PatternNumber で変更します
        // Change sequences by DrumMachine.****PatternNumber
        private function _onChangeBassPattern(e:Event) : void {
            drums.bassPatternNumber = bassPanel.patternNumber;
            
            // リズムパターンは,DrumMachine.****Pattern からVector.<Note>型で参照できます.
            // You can refer sequence from DrumMachine.****Pattern as Vector.<Note>
            bassPanel.updatePatternDisplay(drums.bassPattern);
        }
        
        
        private function _onChangeSnarePattern(e:Event) : void {
            drums.snarePatternNumber = snarePanel.patternNumber;
            snarePanel.updatePatternDisplay(drums.snarePattern);
        }
        
        
        private function _onChangeHihatPattern(e:Event) : void {
            drums.hihatPatternNumber = hihatPanel.patternNumber;
            hihatPanel.updatePatternDisplay(drums.hihatPattern);
        }
        
        
        // リズム音色は,DrumMachine.****VoiceNumber で変更します
        // Change voices by DrumMachine.****VoiceNumber
        private function _onChangeBassVoice(e:Event) : void {
            drums.bassVoiceNumber = bassPanel.voiceNumber;
        }
        
        
        private function _onChangeSnareVoice(e:Event) : void {
            drums.snareVoiceNumber = snarePanel.voiceNumber;
        }
        

        private function _onChangeHihatVoice(e:Event) : void {
            drums.hihatVoiceNumber = hihatPanel.voiceNumber;
        }
        
        
        // 音量は,DrumMachine.****Volume で変更します
        // Change volumes by DrumMachine.****Volume
        private function _onChangeBassVolume(e:Event) : void {
            drums.bassVolume = bassPanel.volume;
        }
        
        
        private function _onChangeSnareVolume(e:Event) : void {
            drums.snareVolume = snarePanel.volume;
        }
        
        
        private function _onChangeHihatVolume(e:Event) : void {
            drums.hihatVolume = hihatPanel.volume;
        }
        
        
        // 消音,DrumMachine.****.mute で行います
        // Mute by DrumMachine.****.mute
        private function _onChangeBassMute(e:Event) : void {
            drums.bass.mute = bassPanel.mute;
        }
        
        
        private function _onChangeSnareMute(e:Event) : void {
            drums.snare.mute = snarePanel.mute;
        }
        
        
        private function _onChangeHihatMute(e:Event) : void {
            drums.hihat.mute = hihatPanel.mute;
        }
    }
}




import flash.display.*;
import flash.events.Event;
import com.bit101.components.*;
import org.si.sound.patterns.Note;

class PatternControlPanel extends Panel {
//-------------------------------------------------- variables
    public var patternSlider:HSlider;
    public var patternLabel:Label;
    public var onSliderChange:Function;
    public var voiceKnob:RotarySelector;
    public var volumeKnob:Knob;
    public var muteCheck:CheckBox;
    public var patternDisplay:Shape;
    
//-------------------------------------------------- properties
    public function get patternNumber() : int     { return int(patternSlider.value + 0.5); }
    public function get voiceNumber()   : int     { return voiceKnob.choice; }
    public function get volume()        : Number  { return volumeKnob.value; }
    public function get mute()          : Boolean { return muteCheck.selected; }
    
//-------------------------------------------------- constructor
    function PatternControlPanel(parent:DisplayObjectContainer, x:Number, y:Number, trackName:String) {
        super(parent, x, y);
        setSize(450, 64);
        new Label(content, 8, 24, trackName);
        patternLabel = new Label(content, 240, 8, "0");
        content.addChild(patternDisplay = new Shape());
        patternDisplay.x = 40;
        patternDisplay.y = 40;
    }
    
//-------------------------------------------------- create user interfaces
    public function createPatternSlider(maximum:int, func:Function) : void {
        onSliderChange = func;
        patternSlider = new HSlider(content, 40, 12, _onSliderChange);
        patternSlider.backClick = true;
        patternSlider.setSize(192, 12);
        patternSlider.setSliderParams(0, maximum-1, 0);
    }
    
    public function createVoiceKnob(maximum:int, func:Function) : void {
        voiceKnob = new RotarySelector(content, 280, 20, "voice", func);
        voiceKnob.setSize(16, 16);
        voiceKnob.labelMode = "numeric";
        voiceKnob.numChoices = maximum;
    }
    
    public function createVolumeKnob(value:Number, func:Function) : void {
        volumeKnob = new Knob(content, 350, 6, "volume", func);
        volumeKnob.radius = 8;
        volumeKnob.labelPrecision = 2;
        volumeKnob.value = value;
        volumeKnob.maximum = 1;
    }
    
    public function createMuteCheck(func:Function) : void {
        muteCheck = new CheckBox(content, 400, 26, "mute", func);
        muteCheck.selected = false;
    }
    
    public function updatePatternDisplay(pattern:Vector.<Note>) : void {
        patternDisplay.graphics.clear();
        patternDisplay.graphics.lineStyle(1, 0x808080);
        for (var i:int = 0; i<16; i++) {
            if (pattern[i] == null) patternDisplay.graphics.beginFill(0xffffff);
            else if (pattern[i].voiceIndex == 1) patternDisplay.graphics.beginFill(0x80c0ff);
            else patternDisplay.graphics.beginFill(0xffc080);
            patternDisplay.graphics.drawRect(i*12, 0, 10, 10);
            patternDisplay.graphics.endFill();
        }
    }
    
    private function _onSliderChange(e:Event) : void {
        patternLabel.text = String(patternNumber);
        onSliderChange(e);
    }
}