process length 2/3 Tick 60 to 40

[JM2]

I need to change 6/8 to 4/4(trip)

TimeBase 120
6/8 to 4/4
(12/8 to 4/4)

Tempo change is ok.

6/8 tick 60
to 
4/4 tick 40

I try 60 to 40
// process length start time and length 2/3

but length command can't set 2/3. 
only 67%
some track are ok with after Qtz.
some are not.

need CAL?

 

[Promidi]

8 hours ago, JM2 said:

I need to change 6/8 to 4/4(trip)

TimeBase 120
6/8 to 4/4
(12/8 to 4/4)

Tempo change is ok.

6/8 tick 60
to 
4/4 tick 40

I try 60 to 40
// process length start time and length 2/3

but length command can't set 2/3. 
only 67%
some track are ok with after Qtz.
some are not.

need CAL?

 

Yes, need CAL.

(do
    (int initial_time From)
  (forEachEvent
      (if (== Event.Kind NOTE)
        (do
                (= Note.Dur (/ (* Note.Dur 2) 3))
                (= Event.Time (/ (* Event.Time 2) 3))
            )    
        )
    )
;shift start to original position
    (forEachEvent
        (if (== Event.Kind NOTE)
            (= Event.Time (+ Event.Time (- initial_time From)))
        )
    )
)

Edited September 12, 2020 by Promidi

[JM2]

Thank you.

Here is my current version.
no shift (when From BBT 1:1:0 to end, shift to 0?)
Drum dur 0 to 1

--------------------------------------------------------------
(do
    (int initial_time From)
    (forEachEvent
        (do
            (if (== Event.Kind NOTE)
                (= Note.Dur (/ (* Note.Dur 2) 3))
                ; 1200912 14:24:06 if Drum Dur 0 then set 1
                (if (== Note.Dur 0)
                    (do
                        (= Note.Dur 1)
                    )
                )
            )
            ; 1200912 19:58:06    Note以外もシフト
            (= Event.Time (/ (* Event.Time 2) 3))

            ; 1200913 00:38:33 test here and mute
            ;(= Event.Time (+ Event.Time (- initial_time From)))
        )
    )
) ;do
--------------------------------------------------------------

2/3 leng is not often 
I maint cal when I use it.
marker , beat change is manual.