oof
This commit is contained in:
@ -57,7 +57,7 @@ opcode array_rhythm, k, k[]
|
||||
kcnt init 0
|
||||
ilen = lenarray(karr)
|
||||
ktrig = 0
|
||||
if( kmet > 0 ) then
|
||||
if ( kmet > 0 ) then
|
||||
kval = karr[kcnt]
|
||||
ktrig = kval
|
||||
kcnt = (kcnt + 1) % ilen
|
||||
@ -82,7 +82,7 @@ opcode phase_trig, k, k
|
||||
kold init 1
|
||||
ktrigger init 0
|
||||
ktrigger = 0
|
||||
if(kold > kphase) then
|
||||
if (kold > kphase) then
|
||||
ktrigger = 1
|
||||
endif
|
||||
kold = kphase
|
||||
@ -92,7 +92,7 @@ endop
|
||||
opcode downprint, 0, kki
|
||||
kprint, kdown, imargin xin
|
||||
kcnt init 0
|
||||
if(kcnt == 0) then
|
||||
if (kcnt == 0) then
|
||||
printk2(kprint, imargin)
|
||||
endif
|
||||
kcnt = (kcnt + 1) % kdown
|
||||
@ -101,13 +101,13 @@ endop
|
||||
|
||||
opcode phasor_fqmult, k, kk
|
||||
kphase, kmult xin
|
||||
if(kmult <= 0) then
|
||||
if (kmult <= 0) then
|
||||
kmult = 1
|
||||
endif
|
||||
kfphase init 0
|
||||
if(kmult <= 1) then
|
||||
if (kmult <= 1) then
|
||||
kfphase = mfmod(gkslowph * (kmult * 100), 1)
|
||||
elseif(kmult > 1) then
|
||||
elseif (kmult > 1) then
|
||||
kfphase = mfmod(gkslowph * (kmult * 100), 1)
|
||||
;kfphase= mfmod(gkphasor * kmult, 1)
|
||||
endif
|
||||
@ -117,7 +117,7 @@ endop
|
||||
opcode rh_subd, k, k[]P
|
||||
karr[], kpdiv xin
|
||||
ilen = lenarray(karr)
|
||||
if(kpdiv <= 0) then
|
||||
if (kpdiv <= 0) then
|
||||
kpdiv = ilen
|
||||
endif
|
||||
kdiv = kpdiv
|
||||
@ -125,7 +125,7 @@ opcode rh_subd, k, k[]P
|
||||
ktr = phase_trig(kph)
|
||||
kidx init 0
|
||||
ktrigger = 0
|
||||
if(ktr == 1) then
|
||||
if (ktr == 1) then
|
||||
ktrigger = karr[kidx]
|
||||
kidx = (kidx+1) % ilen
|
||||
endif
|
||||
@ -135,7 +135,7 @@ endop
|
||||
opcode rhythm, k, k[]P
|
||||
karr[], kpdiv xin
|
||||
ilen = lenarray(karr)
|
||||
if(kpdiv <= 0) then
|
||||
if (kpdiv <= 0) then
|
||||
kpdiv = ilen
|
||||
endif
|
||||
kdiv = kpdiv
|
||||
@ -143,7 +143,7 @@ opcode rhythm, k, k[]P
|
||||
ktr = phase_trig(kph)
|
||||
kidx init 0
|
||||
ktrigger = 0
|
||||
if(ktr == 1) then
|
||||
if (ktr == 1) then
|
||||
ktrigger = karr[kidx]
|
||||
kidx = (kidx+1) % ilen
|
||||
endif
|
||||
@ -166,7 +166,7 @@ opcode swing, k, kk
|
||||
kph = phasor_fqmult(gkphasor, kspeed)
|
||||
ktr1 = phase_trig(kph)
|
||||
ktr2 = 0
|
||||
if(kold < ksw && kph >= ksw) then
|
||||
if (kold < ksw && kph >= ksw) then
|
||||
ktr2 = 0.6
|
||||
endif
|
||||
kold = kph
|
||||
@ -219,16 +219,16 @@ endop
|
||||
opcode alternate, k, kkkO
|
||||
kone, ktwo, kspeed, kduty xin
|
||||
|
||||
if(kduty == 0) then
|
||||
if (kduty == 0) then
|
||||
kduty = 0.5
|
||||
endif
|
||||
if(kspeed <= 0) then
|
||||
if (kspeed <= 0) then
|
||||
kspeed = 1
|
||||
endif
|
||||
kspeed = limit:k(to_tempo_dur(kspeed), 0.0001, 1000)
|
||||
kph = phasor_fqmult(gkphasor, kspeed)
|
||||
kres init i(kone)
|
||||
if(kph < kduty) then
|
||||
if (kph < kduty) then
|
||||
kres = kone
|
||||
else
|
||||
kres = ktwo
|
||||
@ -245,7 +245,7 @@ endop
|
||||
|
||||
opcode oscillation, k, kkk
|
||||
kmin, kmax, kspeed xin
|
||||
if(kmin > kmax) then
|
||||
if (kmin > kmax) then
|
||||
ktmp = kmin
|
||||
kmin = kmax
|
||||
kmax = ktmp
|
||||
@ -262,14 +262,14 @@ endop
|
||||
opcode sequence, k, k[]P
|
||||
karr[], kpdiv xin
|
||||
ilen = lenarray(karr)
|
||||
if(kpdiv <= 0) then
|
||||
if (kpdiv <= 0) then
|
||||
kpdiv = ilen
|
||||
endif
|
||||
kdiv = kpdiv
|
||||
kph = phasor_fqmult(gkphasor, kdiv )
|
||||
ktr = phase_trig(kph)
|
||||
kidx init 0
|
||||
if(ktr == 1) then
|
||||
if (ktr == 1) then
|
||||
kidx = (kidx+1) % ilen
|
||||
endif
|
||||
ktrigger = karr[kidx]
|
||||
@ -313,15 +313,15 @@ opcode savage_1, k, 0
|
||||
|
||||
ksel init 0
|
||||
ksel_sig init 0
|
||||
if(trigger:k(kmod, 0.5, 0) == 1) then
|
||||
if (trigger:k(kmod, 0.5, 0) == 1) then
|
||||
ksel = rint:k(0, 2)
|
||||
endif
|
||||
|
||||
if(ksel == 0) then
|
||||
if (ksel == 0) then
|
||||
ksel_sig = k1
|
||||
elseif(ksel == 1) then
|
||||
elseif (ksel == 1) then
|
||||
ksel_sig = k2
|
||||
elseif(ksel == 2) then
|
||||
elseif (ksel == 2) then
|
||||
ksel_sig = k3
|
||||
endif
|
||||
|
||||
@ -341,7 +341,7 @@ opcode savage_3, k, 0
|
||||
kduty = gkmirlorenz_y
|
||||
kph = phasor:k(gkmirlorenz_x * 5 )
|
||||
kres init 0
|
||||
if(kph < kduty) then
|
||||
if (kph < kduty) then
|
||||
kres = 1
|
||||
else
|
||||
kres = 0
|
||||
@ -358,7 +358,7 @@ opcode savage_4, k, 0
|
||||
kchange init 1
|
||||
kchange = changed:k(round(abs(gklorenz_x )))
|
||||
kmod init 1
|
||||
if(kchange == 1) then
|
||||
if (kchange == 1) then
|
||||
iarr[0] = random:i(0, 1)
|
||||
iarr[1] = random:i(0, 1)
|
||||
iarr[2] = random:i(0, 1)
|
||||
@ -381,11 +381,11 @@ opcode chaos_rhythm, k, kk
|
||||
kthresh = limit:k(kthresh, 0, 1)
|
||||
kchoice = int(limit:k(kchoice, 1, 3.99))
|
||||
kval init 0
|
||||
if(kchoice == 1) then
|
||||
if (kchoice == 1) then
|
||||
kval = gkmirlorenz_x
|
||||
elseif(kchoice == 2) then
|
||||
elseif (kchoice == 2) then
|
||||
kval = gkmirlorenz_y
|
||||
elseif(kchoice == 3) then
|
||||
elseif (kchoice == 3) then
|
||||
kval = gkmirlorenz_z
|
||||
endif
|
||||
|
||||
@ -399,11 +399,11 @@ opcode chaos_control, k, kkk
|
||||
kmin = min:k(kmin, kmax)
|
||||
kchoice = int(limit:k(kchoice, 1, 3.99))
|
||||
kval init 0
|
||||
if(kchoice == 1) then
|
||||
if (kchoice == 1) then
|
||||
kval = gkmirlorenz_x
|
||||
elseif(kchoice == 2) then
|
||||
elseif (kchoice == 2) then
|
||||
kval = gkmirlorenz_y
|
||||
elseif(kchoice == 3) then
|
||||
elseif (kchoice == 3) then
|
||||
kval = gkmirlorenz_z
|
||||
endif
|
||||
kdiff = kmax - kmin
|
||||
|
||||
Reference in New Issue
Block a user