Changeset 30438 for lang/actionscript

Timestamp:

02/22/09 22:00:52 (3 years ago)

Author:

tekisuke

Message:

相対音量アップ／ダウンを実装。

Location:

lang/actionscript/flmml/trunk/src

Files:

• com/txt_nifty/sketch/flmml/MML.as (modified) (4 diffs)
• flmml.swf (modified) (previous)

lang/actionscript/flmml/trunk/src/com/txt_nifty/sketch/flmml/MML.as

@@ -12 +12 @@
         protected var m_relativeDir:Boolean; //
         protected var m_velocity:int;        // default velocity
+        protected var m_velDetail:Boolean;
         protected var m_length:int;          // default length
         protected var m_tempo:int;
@@ -88 +89 @@
             switch(c) {
             case 'v': // Volume
+                m_velDetail = true;
                 next();
                 m_velocity = getUInt(m_velocity);
@@ -268 +270 @@
                 break;
             case "v": // Volume
+                m_velDetail = false;
                 m_velocity = getUInt((m_velocity-7)/8) * 8 + 7;
                 if (m_velocity < 0)   m_velocity = 0;
                 if (m_velocity > 127) m_velocity = 127;
+                break;
+            case "(": // vol up
+                m_velocity += (m_velDetail) ? 1 : 8;
+                if (m_velocity > 127) m_velocity = 127;
+                break;
+            case ")": // vol down
+                m_velocity -= (m_velDetail) ? 1 : 8;
+                if (m_velocity < 0) m_velocity = 0;
                 break;
             case "l": // Length
@@ -666 +677 @@
             m_relativeDir = true;
             m_velocity = 100;
+            m_velDetail = true;
             m_length = len2tick(4);
             m_tempo  = 120;