gi3semitone			ftgen		0, 0, 5, -2, 0, 3, 6, 9, 12 
gi4semitone			ftgen		0, 0, 4, -2, 0, 4, 8, 12 
giaeolian			ftgen		0, 0, 7, -2, 0, 2, 3, 5, 7, 8, 10 
giaeolian			ftgen		0, 0, 8, -2, 0, 2, 3, 5, 7, 8, 10, 12 
gialgerian			ftgen		0, 0, 8, -2, 0, 2, 3, 6, 7, 8, 11, 12 
gialgerian1			ftgen		0, 0, 8, -2, 0, 2, 3, 6, 7, 8, 11, 12 
gialgerian2			ftgen		0, 0, 8, -2, 0, 2, 3, 5, 7, 8, 10, 12 
gialtered			ftgen		0, 0, 8, -2, 0, 1, 3, 4, 6, 8, 10, 12 
giarabian			ftgen		0, 0, 8, -2, 0, 1, 4, 5, 7, 8, 11, 12 
giaugmented			ftgen		0, 0, 7, -2, 0, 3, 4, 7, 8, 11, 12 
gibalinese			ftgen		0, 0, 6, -2, 0, 1, 3, 7, 8, 12 
gibebopdominant			ftgen		0, 0, 9, -2, 0, 2, 4, 5, 7, 9, 10, 11, 12 
gibebopdominantflatnine		ftgen		0, 0, 9, -2, 0, 1, 4, 5, 7, 9, 10, 11, 12 
gibebopmajor			ftgen		0, 0, 9, -2, 0, 2, 4, 5, 7, 8, 9, 11, 12 
gibebopminor			ftgen		0, 0, 9, -2, 0, 2, 3, 5, 7, 8, 9, 10, 12 
gibeboptonicminor		ftgen		0, 0, 9, -2, 0, 2, 3, 5, 7, 8, 9, 11, 12 
giblues				ftgen		0, 0, 7, -2, 0, 3, 5, 6, 7, 10, 12 
gibyzantine			ftgen		0, 0, 8, -2, 0, 1, 4, 5, 7, 8, 11, 12 
gichahargah			ftgen		0, 0, 8, -2, 0, 1, 4, 5, 7, 8, 11, 12 
gichinese			ftgen		0, 0, 6, -2, 0, 2, 4, 7, 9, 12 
gichinese2			ftgen		0, 0, 6, -2, 0, 4, 6, 7, 11, 12 
gichroma			ftgen		0, 0, 12, -2, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 
gichromatic			ftgen		0, 0, 13, -2, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 
gidim				ftgen		0, 0, 4, -2, 0, 3, 6, 9 
gidiminished			ftgen		0, 0, 9, -2, 0, 2, 3, 5, 6, 8, 9, 11, 12 
gidorian			ftgen		0, 0, 7, -2, 0, 2, 3, 5, 7, 9, 10 
gidorian			ftgen		0, 0, 8, -2, 0, 2, 3, 5, 7, 9, 10, 12 
gidoubleharmonic		ftgen		0, 0, 8, -2, 0, 1, 4, 5, 7, 8, 11, 12 
giegyptian			ftgen		0, 0, 8, -2, 0, 2, 3, 6, 7, 8, 11, 12 
gienigmatic			ftgen		0, 0, 8, -2, 0, 1, 4, 6, 8, 10, 11, 12 
giethiopian			ftgen		0, 0, 8, -2, 0, 2, 4, 5, 7, 8, 11, 12 
giflamenco			ftgen		0, 0, 9, -2, 0, 1, 3, 4, 5, 7, 8, 10, 12 
gigypsy				ftgen		0, 0, 8, -2, 0, 1, 4, 5, 7, 8, 11, 12 
giharmonic			ftgen		0, 0, 7, -2, 0, 2, 4, 5, 7, 9, 11 
giharmonicmajor			ftgen		0, 0, 8, -2, 0, 2, 4, 5, 8, 9, 11, 12 
giharmonicminor			ftgen		0, 0, 7, -2, 0, 2, 3, 5, 7, 8, 11 
giharmonicminor			ftgen		0, 0, 8, -2, 0, 2, 3, 5, 7, 8, 11, 12 
gihindu				ftgen		0, 0, 8, -2, 0, 2, 4, 5, 7, 8, 10, 12 
gihirajoshi			ftgen		0, 0, 6, -2, 0, 2, 3, 7, 8, 12 
gihungariangypsy		ftgen		0, 0, 8, -2, 0, 2, 3, 6, 7, 8, 11, 12 
gihungarianmajor		ftgen		0, 0, 8, -2, 0, 3, 4, 6, 7, 9, 10, 12 
gihungarianminor		ftgen		0, 0, 8, -2, 0, 2, 3, 6, 7, 8, 11, 12 
giindian			ftgen		0, 0, 8, -2, 0, 1, 3, 4, 7, 8, 10, 12 
giinverteddiminished		ftgen		0, 0, 9, -2, 0, 1, 3, 4, 6, 7, 9, 10, 12 
giionian			ftgen		0, 0, 7, -2, 0, 2, 4, 5, 7, 9, 11 
giionian			ftgen		0, 0, 8, -2, 0, 2, 4, 5, 7, 9, 11, 12 
giiwato				ftgen		0, 0, 6, -2, 0, 1, 5, 6, 10, 12 
gijapanese			ftgen		0, 0, 6, -2, 0, 1, 5, 7, 8, 12 
gijavanese			ftgen		0, 0, 8, -2, 0, 1, 3, 5, 7, 9, 10, 12 
gijewish			ftgen		0, 0, 8, -2, 0, 1, 4, 5, 7, 8, 10, 12 
gikumoi				ftgen		0, 0, 6, -2, 0, 1, 5, 7, 8, 12 
gileadingwholetone		ftgen		0, 0, 8, -2, 0, 2, 4, 6, 8, 10, 11, 12 
gilocrian			ftgen		0, 0, 7, -2, 0, 1, 3, 5, 6, 8, 10 
gilocrian			ftgen		0, 0, 8, -2, 0, 1, 3, 5, 6, 8, 10, 12 
gilocrianmajor			ftgen		0, 0, 8, -2, 0, 2, 4, 5, 6, 8, 10, 12 
gilocriannatural		ftgen		0, 0, 8, -2, 0, 2, 3, 5, 6, 8, 10, 12 
gilocriansuper			ftgen		0, 0, 8, -2, 0, 1, 3, 4, 6, 8, 10, 12 
gilocrianultra			ftgen		0, 0, 8, -2, 0, 1, 3, 4, 6, 8, 9, 12 
gilydian			ftgen		0, 0, 7, -2, 0, 2, 4, 6, 7, 9, 11 
gilydian			ftgen		0, 0, 8, -2, 0, 2, 4, 6, 7, 9, 11, 12 
gilydianaugmented		ftgen		0, 0, 8, -2, 0, 2, 4, 6, 8, 9, 10, 12 
gilydiandominant		ftgen		0, 0, 8, -2, 0, 2, 4, 6, 7, 9, 10, 12 
gilydianminor			ftgen		0, 0, 8, -2, 0, 2, 4, 6, 7, 8, 10, 12 
gim7				ftgen		0, 0, 19, -2, 0, 3, 7, 10, 14, 17, 21, 24, 27, 31, 34, 38, 41, 45, 48, 51, 55, 58, 62 
gimajor				ftgen		0, 0, 7, -2, 0, 2, 4, 5, 7, 9, 11 
gimarva				ftgen		0, 0, 8, -2, 0, 1, 4, 6, 7, 9, 11, 12 
gimelodicminor			ftgen		0, 0, 8, -2, 0, 2, 3, 5, 7, 9, 11, 12 
gimelodicminorascending		ftgen		0, 0, 7, -2, 0, 2, 3, 5, 7, 9, 11 
gimelodicminordescending	ftgen		0, 0, 7, -2, 0, 2, 3, 5, 7, 8, 10 
giminor				ftgen		0, 0, 7, -2, 0, 2, 3, 5, 7, 8, 10 
giminor3			ftgen		0, 0, 7, -2, 0, 2, 2.75, 5, 7.15, 8, 10
gimjnor				ftgen		0, 0, 7, -2, 0, 1.75, 2.75, 5.35, 7.35, 8, 10
giminor2v5			ftgen		0, 0, 7, -2, 0, 2, 2.5, 5, 7, 8, 10
gimixolydian			ftgen		0, 0, 7, -2, 0, 2, 4, 5, 7, 9, 10 
gimixolydian			ftgen		0, 0, 8, -2, 0, 2, 4, 5, 7, 9, 10, 12 
gimixolydianaugmented		ftgen		0, 0, 8, -2, 0, 2, 4, 5, 8, 9, 10, 12 
gimohammedan			ftgen		0, 0, 8, -2, 0, 2, 3, 5, 7, 8, 11, 12 
gimongolian			ftgen		0, 0, 6, -2, 0, 2, 4, 7, 9, 12 
gimonotone			ftgen		0, 0, 1, -2, 0 
ginaturalminor			ftgen		0, 0, 7, -2, 9, 11, 0, 2, 4, 5, 7 
ginaturalminor			ftgen		0, 0, 8, -2, 0, 2, 3, 5, 7, 8, 10, 12 
gineapolitanmajor		ftgen		0, 0, 8, -2, 0, 1, 3, 5, 7, 9, 11, 12 
gineapolitanminor		ftgen		0, 0, 8, -2, 0, 1, 3, 5, 7, 8, 11, 12 
giocta_1_2			ftgen		0, 0, 8, -2, 0, 1, 3, 4, 6, 7, 9, 10 
giocta_2_1			ftgen		0, 0, 8, -2, 0, 2, 3, 5, 6, 8, 9, 11 
gioriental			ftgen		0, 0, 8, -2, 0, 1, 4, 5, 6, 9, 10, 12 
giovertone			ftgen		0, 0, 8, -2, 0, 2, 4, 6, 7, 9, 10, 12 
gipa				ftgen		0, 0, 6, -2, 0, 2, 3, 7, 8, 12 
gipb				ftgen		0, 0, 6, -2, 0, 1, 3, 6, 8, 12 
gipd				ftgen		0, 0, 6, -2, 0, 2, 3, 7, 9, 12 
gipe				ftgen		0, 0, 6, -2, 0, 1, 3, 7, 8, 12 
gipelog				ftgen		0, 0, 6, -2, 0, 1, 3, 7, 10, 12 
gipentamaj			ftgen		0, 0, 5, -2, 0, 2, 4, 7, 9 
gipentamin			ftgen		0, 0, 5, -2, 0, 3, 5, 7, 10 
gipentatonicmajor		ftgen		0, 0, 6, -2, 0, 2, 4, 7, 9, 12 
gipentatonicminor		ftgen		0, 0, 6, -2, 0, 3, 5, 7, 10, 12 
gipersian			ftgen		0, 0, 8, -2, 0, 1, 4, 5, 6, 8, 11, 12 
gipfcg				ftgen		0, 0, 6, -2, 0, 2, 4, 7, 9, 12 
giphrygian			ftgen		0, 0, 7, -2, 0, 1, 3, 5, 7, 8, 10 
giphrygian			ftgen		0, 0, 8, -2, 0, 1, 3, 5, 7, 8, 10, 12 
giphrygianmajor			ftgen		0, 0, 8, -2, 0, 1, 4, 5, 7, 8, 10, 12 
giquarter			ftgen		0, 0, 22, -2, 0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5, 5, 5.5, 6, 6.5, 7, 7.5, 8, 8.5, 9, 9.5, 10, 10.5, 11, 11.5
giromanian			ftgen		0, 0, 8, -2, 0, 2, 3, 6, 7, 9, 10, 12 
gispanish			ftgen		0, 0, 8, -2, 0, 1, 4, 5, 7, 8, 10, 12 
gispanish8tone			ftgen		0, 0, 9, -2, 0, 1, 3, 4, 5, 6, 8, 10, 12 
gisymmetrical			ftgen		0, 0, 9, -2, 0, 1, 3, 4, 6, 7, 9, 10, 12 
gitodi				ftgen		0, 0, 8, -2, 0, 1, 3, 6, 7, 8, 11, 12 
giwhole				ftgen		0, 0, 6, -2, 0, 2, 4, 6, 8, 10 
giwhole				ftgen		0, 0, 7, -2, 0, 2, 4, 6, 8, 10, 12 
gibp				ftgen		0, 0, 12, -2, 0, 1.3324, 3.0185, 4.3508, 5.8251, 7.3693, 8.8436, 10.1760, 11.6502, 13.1944, 14.6687, 16.0011, 17.6872, 19.0196

#define chinese #gichinese#
#define persian #gipersian#
#define indian #giindian#
#define arabian #giarabian#
#define minor #giminor#
#define major #gimajor#

opcode scale_up, k, ikkk
  iscale, kmin, kmax, kspeed xin
  ktrig = metro:k(kspeed)
  idiff = abs( i(kmax) - i(kmin) )
  ibase = i(kmin)
  kpick init 0
  knote init ibase
  kitv init 0
  ilen = ftlen(iscale)
  if(ktrig == 1) then
    kpick = (kpick + 1) ;% ilen
    if(kpick == ilen) then 
      kpick = 0
      kitv = 0
    endif
    kitv = table(kpick, iscale) - kitv
    printk2 kitv
    knote = knote + kitv
    if(knote > kmax) then 
      knote = kmin + (knote - kmax)
    endif
  endif
  xout knote
endop

/*
opcode scale_up, k, ikkk
  iscale, kmin, kmax, kspeed xin
  ktrig = metro:k(kspeed)
  idiff = abs( i(kmax) - i(kmin) )
  ibase = i(kmin) + (idiff/2)
  kpick init 0
  knote init ibase
  ilen = ftlen(iscale)
  if(ktrig == 1) then
    kpick = (kpick + 1) % ilen
    kitv = table(kpick, iscale)
    knote = knote + kitv
    if(knote > kmax) then 
      knote = kmin + (knote - kmax)
    endif
  endif
  xout knote
endop
  
*/
  
opcode scale_down, k, ikkk
  iscale, kmin, kmax, kspeed xin
  ktrig = metro:k(kspeed)

  idiff = abs( i(kmax) - i(kmin) )
  ibase = i(kmax)
  kpick init 0
  knote init ibase
  ilen = ftlen(iscale)
  if(ktrig == 1) then
    kpick = (kpick + 1) % ilen
    kitv = table(kpick, iscale)
    knote = knote - kitv
    if(knote < kmin) then 
      knote = kmax ;- (kmin - knote)
    endif
  endif
  xout knote
endop

opcode scale_random, k, ikkk
  iscale, kmin, kmax, kspeed xin
  ktrig = metro:k(kspeed)
  idiff = abs( i(kmax) - i(kmin) )
  ibase = i(kmin) + (idiff/2)
  kpick init 0
  knote init ibase
  ilen = ftlen(iscale)
  if(ktrig == 1) then
    ksign = (rint:k(0, 1) == 0) ? -1 : 1
    kpick = (kpick + 1) % ilen
    kitv = table(kpick, iscale)
    knote = knote + (kitv * ksign)
    if(knote < kmin) then 
      knote = kmax ;- (kmin - knote)
    endif
    if(knote > kmax) then 
      knote = kmin ;+ (knote - kmax)
    endif
  endif
  xout knote
endop