#! /usr/bin/env ruby

# stt-samp.rb: Written by Tadayoshi Funaba 2005
# $Id: stt-samp.rb,v 1.1 2005-07-17 17:16:18+09 tadf Exp $

require 'smf/toy/macro/stt'
include SMF

sq = Sequence.new
mm = STT.new(sq)
mm << 'gm=1 r ch=0 pr=0'
12.times do
  mm << "{q ド＃ h ド＃ q r}&"
  mm << "{q レ＃ h レ＃ q r}&"
  mm << "{q ラ   h ラ   q r}"
  mm << "oc += 1/12"
end
mm.generate
sq.save('stt-samp.mid')