サクラトップ 掲示板トップ ログイン

Heroin! - サクラ曲掲示板6

曲掲示板6にエディタ機能が追加されました!気軽に曲を作成してみましょう!
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1.  
  2.  
  3. INT EST=123PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={Heroin!}Copyright={Pitchbend Master Records}System.MeasureShift=3Tempo=1000Include(delay.h)ResetGS;
  4. FUNCTION WIN(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(0)CH=X2;@(X3,XA,XB)TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)}
  5. FUNCTION DL(ti){Time(ti:1:0)}FUNCTION PAN(ER1,ER2){If(ER2==0){P.T(0,127,ER1)}If(ER2==1){P.T(127,0,ER1)}}FUNCTION GSRY(_D){INT _TCH=Channel;INT _CH;If(_TCH==10){_CH=$00;}Else{If(_TCH<10){_CH=_TCH;}Else{_CH=_TCH-1}}_CH=$10+_CH;SysEx=$F0,$41,(DeviceNumber),$42,$12,{$40,(_CH),$15,(_D)},$F7;}
  6. FUNCTION HAM(STR SA){Sub{Key=12SA;Key=0}SA}FUNCTION HAM2(STR SA){Sub{Key=-12SA;Key=0}SA}FUNCTION HAM3(STR SA){Sub{Key=-12SA;Key=0}Sub{Key=12SA;Key=0}SA}FUNCTION REC(FF=127){EP.T(FF,0,!1^1^1^1^1^1)}FUNCTION REC2(FF=100){V.T(FF,0,!1^1^1^1^1^1)}FUNCTION IP(DW=1){DL(-2)GSRY(DW)r8}INT K=0DL=0Tempo=EST;
  7. //-(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)
  8. WIN(01,01,012,00,0,K,064,4,2,110,10,0)WIN(07,07,080,00,0,K,064,0,0,120,10,0)WIN(13,13,116,00,0,0,090,5,0,127,09,0)
  9. WIN(02,02,082,00,0,K,064,2,2,100,09,0)WIN(08,08,080,00,0,K,054,0,0,120,10,0)WIN(14,14,082,01,0,K,010,2,2,127,09,0)
  10. WIN(03,03,081,00,0,K,000,2,2,100,10,0)WIN(09,09,080,00,0,K,074,0,0,120,10,0)WIN(15,15,003,00,0,K,110,2,2,127,10,0)
  11. WIN(04,04,083,00,0,K,127,2,2,100,10,0)WIN(10,10,025,00,0,0,064,3,1,127,10,0)WIN(16,16,091,00,0,0,024,2,1,080,01,0)
  12. WIN(05,05,079,00,0,K,044,0,0,127,10,0)WIN(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--//
  13. WIN(06,06,080,00,0,K,084,0,0,127,10,0)WIN(12,12,026,00,0,0,064,3,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP;
  14. INT HAZ=1INT ST0=25INT BN0=49INT BGN=65INT ST1=81INT BK0=97INT BN1=113INT ST2=129INT ST3=153INT ST4=177
  15. /*1*/STR HJ1={@82,1l1^1BR=24EP=127SUB{p.T(0,127,!1^1,127,0,!1^1,0,127,!1^1,127,0,!1^1)}'ae'^^^SUB{FOR(INT A=1;A<64;A++){l(A)p.T(0,127,!A)rp.T(127,0,!A)r}l1^1}EP.T(127,127,!1^1^1^1^1^1^1^1,127,0,!1^
作者からのコメント
<<<<<<<<<< Minimal >>>>>>>>>> Check it to the Sounds!! Break in the Cloud!! And Let's get together in the DRUG MUSIC!!!
作曲者
Pitchbend Master Records
ライセンス
🌐パブリックドメイン商用利用 ○改変 ○改変も転載も自由
転載
許可しない
推奨音源
msgs
ピコサクラ対応
未対応
ピコサクラバージョン
0.2.3
投稿日時
2010-05-04 02:13
更新日時
2010-05-04 02:14
お気に入り
WestYoshiokaゴロニャ~ゴGOMA
ダウンロード数
549
→この曲(id:36)に問題がある場合こちらへ

感謝のコメント

Dj Hino2010/05/04
cooool :D
West2010/05/04
Dope Sound!
>cooool
Thanks for comment!!
Simple Tracking is the best but Sound needs making heavy. XD
>Dope Sound!
I love your Minimal-Tek Sound, Thankyou!!
Yoshioka2010/05/06
oh.... very illmatic!!
This tune will heat this board=)
∴㌢㍍2010/05/08
so cool sound!
but dont use any drug!!!i dont want you to die or go mad.
because i love you...
Thanks!!
>This tune will heat this board
I will take new making style & brandnew value!!
>i dont want you to die or go mad
Don't worry, No Problem!!
I have already gone mad.
滝之上2010/06/29
Getting Power
この曲に「ありがとう」を伝えませんか?
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。