From f4d3f1b2b202d5250183038584ea73051f556979 Mon Sep 17 00:00:00 2001
From: chmaha <champson@tutanota.com>
Date: Fri, 13 Oct 2023 11:34:33 +0100
Subject: [PATCH] Add color to item when using time-stretch glue

---
 PDF_Guide/ReaClassical User Guide.pdf         | Bin 961572 -> 961566 bytes
 ReaClassical/ReaClassical.lua                 |   6 ++++--
 ...ssical_Create source groups (vertical).lua |   3 ++-
 ...eaClassical_Insert with timestretching.lua |  11 +++++++++++
 4 files changed, 17 insertions(+), 3 deletions(-)

diff --git a/PDF_Guide/ReaClassical User Guide.pdf b/PDF_Guide/ReaClassical User Guide.pdf
index df94943383c07d7bce9685c8c934c115b90e067a..fe64c1a5111da4b3fe07d937048dd8418b95f68f 100644
GIT binary patch
delta 3035
zcmajhXEYlO7YFbXtEk#F8!fTbh>@VNQ=3MM7&RKLy<-!q_GqlwEgeRwRU_0&YDYzB
z#jesy)u>tZc<_3j^L}{0y&rz(f9|>Wo^wCmm(%J`r`56IG~oQkcg&Jm7Tg%u9`3c$
zQivgfy0IjnOy6-`D(xnWJFB_&tQ)NH)&a5X=+ZksIJ&Vh>UUM9efz7$jpw#~Mh(es
zBCbwy6F*nUf*g|7u6harMRNQ{-GvE+fx1Q5oxq*O_9LECv9tr*IyKI}52?j-#|n0a
zQrVJ-H0pxx8!it0VuR+zWE4hN{^{HP9$dXNyR_}e@zLPiv9s=$K{xg*(JIBZ23z&a
z#;AF8?r!sjH79&##A^LRQ}x>M+Sa?lcNWSq8T|vpX8N4(KU;b)r}<wBjJKsT>I*zH
zF!7d;&ibz0Y%-X)pC4YhKJ}DBLB_mvVeHr_{CeyZ^MY_9om`O722;g&IDJP~z9UK>
zTV<`HNyqgFKDR46B1AD{7>a3PYuI=ubfNrYeRFdy*v{Y-(fO&%J+q8J@-dp2opZE~
z5E%u-C(sq7in0Fg8slsrbIVNZT?+9s!0YbXF=_7_qmMQ<v)=DOIVy{rBg`%?q;FqC
zF3tbz)amf5N7`Qri5POCG+mC&dtsC3oq_>#Dyyfbrnna~m!XUGE;bwfmDL)%GQB28
z*E8>;glevXp7VJpbx0fN0tprua+|7B?SL%3V=7`%7xXTSi)9`Y8`y__z>*HVvwc(3
zpX-hQ@VzWi%^?qU;yfqtzC#sE6b@7~Ps@v6;jdy}Ri@k+ro*UffO`WXigcia`tE_{
z;VOSwpU2yZ9@TTLhG?TnO_>gYjX^0cI?-xBL#y9;ZvRKJ@}W|ymO|zGUHvg&%(r#<
zBJnszzJ1+a<J?o~rmU#!&7$ll_AB>%R{XAWzZ@^~9M~Suxj4JcbGG*U)7-?3(0B>M
zEn@>x8yopkP7Nl|*tj_B*I-@ApC2vb6zeYm<M|CCrxl22Lj+*OsXH0Jv1<>yfb_a}
zBt=boR1*59zI3sA%*R(iX8vlRm#U*EB|Md(o4vBB3-;h%-4m7MA{}k|aFlGk<5})m
ziq5!N!UI3p(+rQA<qRq0Y0jzbyjhS*kPrw_8TzVc$p{k!fnbFvh!4hS_>O=v?3MIl
zNY&ZUHwV44`|J6%wIL;4(hFRUS@{~>Q-HLOwUIR(x4bi~T%3Ew+Rd0^kM>N*pCxjz
zeCENlnP~w!L$nA--x@ATPCn4KA48^dF@Nb02*=7@gk4zgJ~JNufV`y<dzH~u-<gCv
zi*88~s>8gd^`x5kI%+ftB+zHK`!{YyDJW2lpdFN!@Zaq)wjD-B8!)ah9QXX7MhZot
zNL93i!28DLA@Y^pK@8G%wXtXNA#&KVM#x-4*=wJ!&qAgZE#<8rOr+^Xzhok!eZ%=S
z#|#+#(!PLC_u!-{Algq)7sxgcqrQ+<P8_ks(7Dv&%@YycVw80<AXValQnmY1$cd0O
zQp(jG#(MZ9nlw*VjfA}#B+lczdWrXE^cq?*#q|r)oE$dCNh|>0_CIVNi5`am^k1v3
z(y{Va9_AHofM3&KoA<mgL_9^xYL(}blc^GR_(;*k4m5j_+;*f5Pgxj%q!Buc|AVP7
z9~NY9WmpM#aiHL%X}y&1p1f%}5c@KHq$DhUfb4z$<W+&rBcz@Pzx6L(LGzO7#2giM
zg;$2fKU@81DA$}vnnyA1KN2)up~^lwgRZ|4K+iJORtLE3(j9-u{BAbCwCIgECA$qr
zwe5Zr=eKoUPF3`E$hUo2RW&HQ<*J0?$`;JS(q2x*0ojA)`ZwChMwN_zw=Hyi9EfvH
z3m3^HIf-Y8Y+Y7y!6s*bwon;9cSJGFzZ(r2TJ)zKZY4Z!Gs81P=p7<h3%QQ}rb+G&
z{=nkB5y7RZFuST^JvmNy-Lf!-X6j)PukFoEmS7+!f@OFYpC~HXc4?otd3FmUr$5o{
z)wmHmH~Ew+$6{vAJu#<ZzG!~yg_yFFXDz=RX35l@Q^uAsrJ2l!Lk5?4bC_JUN4aX{
z#Jah1DWscAdRAE~1-QWj>?@M6?|r!Dx6!HzDKe6f!sgv<7rGC(kp*dA%k`i(r#76q
zsIX<{BJ_a9%jgBiDz=s2XO}Te=@q7XpX*}8PsQI5hWOV_+?`r9rqn61IL<}K7*t%5
zN{}sEpZL5jC*{XIHz%8$a>MLR`Oy)Pw><_H`i7O-XU8*vY)P8mfxte8!aXs~H*VYo
zK)&m4U*73uoQ+#Pf1IR^3U<xAdb{G|=Q0){XeUqE>yO6B%teQSs<i+N%MAVzT#IZP
zQ`#t!>&UNH&Z_VI>?fzg6`eZ^f?sm$8ZAeV#=}{+H$Q6krVYmY$cvq5g(jyM#!cw2
zFAJ|IF-bm%UF>JIY%hotjvTcxSm@!u(XwII<CiD%XO!?nb}sO=b`qo6B~io?F8~(l
zqp_FHvMLb-K2Aju4#A%=h*q{-8Eye_(Q<7ayf$PNJ2~xF9#}<ejGX9|MIZL(gmnHa
zQ+%8gZA4T(Q-80+#BvhX4ff!-c9a(?id-qK1*ZtCGClR{J``qn1aj)RA^5=u%e+v}
zuC2|_#9Jv%%)HH^YRYsC6g_Vtj*>0&*Vf|}WTz)dY)RMh#2)BQQ~LY`T6P*>kF0tX
z=ksf=k*otrW}z)uuzul(9>Ac7OY!BNyL?_xf_inYVV5(G8UycZIB=z^g_70I0Pwk(
zlXwB9BmpLxbF}9G=jhJSpJO=3c<!J6#dFN(SkAGYyVNGY#P&CqSy4d|tf&Z90;}eW
z6teOEPu-?h$VPJ+0S7C<A^J+Xa8-x_Tu(<03{iuqfWdHGRW&sTR7n9QqWOPE9GT@!
z-FzPgyNf`Spd$bN9vILklAqaazQmn_Qfca^naWpaFUOw~p6iQ<S9R!m9Pj52r}#4+
zv23=*0qyJ83KTg3*WkMPVhnkFOrlwa>0;u<jr+afup9}m&912}*t?$ET*P0+CQ|ve
z%hayEA=&TtuDPN-DB5Z<u3@ok33`Nqc#fS(wfb*fBkN3g5QbEUGgPVmI%^EK8oE=l
ziSs>4?wTA5R*D}Ldus?NG+QnB@P{YO-mnyTkW?@R+A|a_wBW@ipg261>)*KEu_zjL
zZ7OZf0zI%F8{7*!o>ywh3eK^9+j2iZEoO?DQ!6nk!gS7v5otDsHE+TNXQ5FyXHX&A
zp_+b|XPl?nFp?F;!@Ny-`&b_o<BU;A)&fd?P4wg&`<hCm=G7;&w|?i)C>gS0<G(5J
zi{Bbbp81n79fD&m?25QD`QjTN)Z84K^Nky7HkK>OOR8NapQ7@}ZJ=W1-%@qoWwm~b
z!wJ-qyHV?zQloTWf~f-6Xy^N;sR3JB7Q!w1ny3gxOr4I!IM)&#gkXy2th?iN<hS#i
zi1n1k97LP0GyS`C$=cS^*cyMLjB_>%8sdBea4|fvu3Aq9#s0HLV}2fw&Erhoyc}lE
zh;O`vw)4DOFApk?`i^h_#Lw3LG<s-C04ZN|pw0IOIb5_M=KVK%r8}8mn4hh$uc)n*
z3l53X-gr`}ZM<})?vqKY-Ok6uX_|j8*1rkUn4$yHm@{z^m7V){&gh)Q3ob%uz54TQ
zmKoGl^vfiEcsyPruQ<_23BO(bQrHOar!Bc4;rz4Ntv?Q*rmhC3%GUIdRV=JKjuqkf
z-4eIWH;Vm5duy7H@7iIeCWX{2soJ}pZjqUND&~+|1$tyK>91$~mkOYxnwj->v{HlB
zD<e>+&VeSti$=f$HeJT-coO0J_6`HdyfYPz4eW%x6hdTb4dw-DL-9f>i>R5IC~vRU
zjm`Iba;*pom9NFtW8eHp&m9e=+{+D$#+L{>jkKeoxZc69IxE`&e;}NtZ^w3)-2=zN
z%Hnc^u0x4JFg9S)la>CR<*=P?S}AI5;5g)-kbLG9s{XEy%tHI^m>Nc>Nv&_(do%gR
RHEh?I6q!LF0}D9we*oazva|pI

delta 3040
zcmajZXEYlO7YFbn)QlN>*Q^;UiPqkt=s>Jmv8!rSW5(W66@*fwM%8Gk$4Y~uMrw8l
ziV_5+q@@(CdOhd7AKq{8hu`_1d+xpG-m+Qk>RIhv85#%<e8wvG$c6`fqnGFFlP6H~
z8ynx21vTjLlJZ$PJx`^TwtJ~#6N+M7RAxGou8)teZ`?lOT?#uolygw>3quxyLGo}~
zQa<=EfiofRayy`^axw1_b>5Nx&cfD?kvyN+c8MF=<`v>0CF)Wi8r{>?&0dv~?<r&w
z@Ppu12jvaab1~k|nSFs?9Sp-C&FtCH8$Ms}+<WTH+w}MJ&+1OBs>gm}8zbaL|4ru>
zdx;jEm+kt&_U~W0TJYB>*fc>#@lTg*9xUm6iGBJbP*JO%j{utI-%Stg=wY0Z7<p*Y
zoP*evfV@5YK=C&<>IiqSKo^6GwRQ<FEL$(JIZsjEur8hL39;>>9Sq*yAsn<=<JB6R
z7T2xk%J-xiSgF01oE5LK#5u?jufLCQRWD+(p?>p2e+~{0!?l|v(ek(Jtv{JfEmPXX
z{nsPPc|{rb8y|%iY(0IU7UDOWxRz!Zq~GJjqQ_clS3^~qyvFc3enQD@>8t;-q`aiq
zvA)jA$rF-ECqL;gns^9~JTM&ag@Y2u3ygOWT$IK1`6lqMU%qN0<8dS36E%N(KD=^&
zI?s#7?;T%AqvW<DNS<@BLh5n@4^ymEHYl>#;iQNT^#V+$6Qt#A?xKc`8p>7u)}YSG
z?C=OiX5_OSy<v&bc(84o5b&Y1o>-SY!|C%6ciXe2eM=fR+Kk&Zmnl5TCwcX!23=Uc
z+kLhntQ{HA$wBtYGZezg;w$_M*Mq1H1j|h2LHU!R^2Di6BHEHfLOw0W7%V<ga)VuO
z?||<b_6;3JROQU4u2vv7T`}^t%$k?iVuR}i>*Pcp!TbY$(I_<op`I1JCwx&3os{-p
z0HW)2zhe@5r8p|o&f3~SXYX{jfLpA4{p9mjH0FesG_iDRiyL+{@JVbvd(<dVfnGdN
zNy5N8=6dcv@T~ajlln2~XD$7;#L~I&6qgNo!6U=cQQ%2YRI#qTcmM;9v{YUTYsBfz
zLs<p`hmFVG$EfyNrF}>(^4R9YD-Lo^`5+|U;$k-%eoAlic)-9Y!aNkG9qo=p9~qRc
z<$BNgEeUKSIBq(qzz{poXgj<tUQ*#Ors*PYmE(gdPP02XH}879kt&8W#vkunO_iT;
zvP?^#?QY#=K&`9x9j`Sr$zkzk&O?sb+{{aO;mBMiCfy6$J!h6<<Bn$R7jzEart1$B
zp2ecuG8kM6U_6t!v91WDCNqnaQ2$`peqVp7?BM3@nROWQWOi6g*kuASL~+a{y{yfR
zb&xJ1jb*2IcZb+p&8@TM3pK`{sYHn6R<uH2H&?vcA=p8*KH_cXz3D-;>yWBj<uFmx
z-^)*j=E+onv&bs%jfeGN5|t%GpKW9>zDGMC1Tw|5K{G_#%$&8T(=M|gZ>_XI2Mb1K
zX?FIRs8)$xu`2@$lgiP$(!&d1W?kILEt}$q@ul^^j!fgX(|^hR@mG|4V*k1KIo8Dh
zwFS7eHah5-BJ(>t;DXeS;!Z+Y4RF*(j-tMDoWZ;MCA~w9F4>3Wk4GJ|Eg^xjcn|%#
z^XO&e=r(6N!)i#?fojlI`(<3+!yVh9`0D(3rKqHd$-7>sHAM!Ajz;1F_Q6Ravequc
zL_tj}`8+&fhjm#SU^Q2EtisowYo>TDC{&v_T1D|VoS+FQb61V1d<mV>)<m^h9P8nv
z_ZQz`OM)h8v6cL*L-#XGGV>lU{6#BksY`U(G0A_g@H?h4@RjrFjkQ+OS?={YGZkX%
z<K5Sn!}VGT8Z1x)4OKXW;0qRkGj*nadA@mNxd&!6cVU>B9+uo=`&qavO;wlGI?>^X
zg=wfXw@~lQzVXA^A+8w-rR#hDrbm?fJGmc(kGzjHH&>DxT@}PsEKE;1Poe8!&~z!+
zz~*o9^H>Zw)@E)#AQg+Bom<$glG1SVY!XmHFI)L>D<Jx&ucq@C7I&21;e?AiBR%y>
z;wdC)cm5}~x7;e%BIMLF=hYU|gzwHTr!Mu?stPbOTgx;Nko*Q=x7H3lQGRX{1!n~S
zX@N3mk<XJKK!3M3zWM<u8iwpvY>@vL)7DU)(Q6T?8ai~s_1R$u(>kG9QIq@tCkCsi
zJrFLWYhi+5kbdDWUr}v!L@dN!;bQS!bsDR8SJsMBKf4dHr^&#Nwv&n!!pf36+OlbX
zr%2q`?Vg`GV%L<mL@^rM%i4eC^mcMp!oPWR>P%BF*u*oqIi8Y%ek|INn*;az+4^aH
zMu5d|uHZ;snxiGU9)8aiaQ%L8>`m63lp9Gk`N9IzB5VKx>f6a}COOxVq@r{lxoiIz
z5xiU&Xa-rQ*uiwSjK<zzuB<;JY<*G0IYqQDJ$Ofn@u8X(?m*EbqF&h-?(uYk9087%
zc%`<2o2AZT$(hJLG}X7R=8lM*gPg_!CYhF=OiL~@u=eUr3D5^&(q!4j^2j}?4`mJ)
z{eF_yZs#?Rm-|8)Jt_k?AIK;TY)!GG9ez2I2@HCg3QOE5p`Oyv_2s>E1GTMdnWqdm
zFp5{O0<vy`JcjETg|w1$^Wsu%WRQv#{PC%B?c&UZHVby9P=yQIEe+{pjeu2;SirM*
zuTBL-lO#2Vy<}k8aDu}``wS@jEX9?CZfGWnZp5b;iVq6?ZVO%2b`i>iJeY)>(YeGV
zlqT^qrtvb;oTEKQcMfol{v5-(i|79BGo52T$8wJK99su3Bk)fyvnotg3k+6M1*_qN
zi-7|FQ+MbU18LZ=YZ}4S4O9({HI2a#uqnjY6l!duss_<egMp0=z{aM!;#dFgh%2*-
zmG@oWa6fUVIvDq;4k(Wn`9uuPxz0cQV}IfDFH&qUJTPE9zdaz}{o{?6Az*EN$fcid
z9B)@<#JRE<GNfC$JUu+p)2~VM^7dOwakXI6jrWWbf5&PqmG1X!5Po%cl$Yh-IKjc?
zag8e*-ET(}Db8N`mq19K=TcQf{ybUw8zw_}PVnd2hrAZ{n2tQOi50y1@uz!1OjRMs
zs~@%C1HGP9fZ8J~Ni31)gMMwEzYjKUctz%hul*^w_9Ky14Lc^;N)%SZY3%vK1*Wl)
zNZmO@rxDs#Hs94qLhM}$N4P!Krxmju0_h=na=E3ZMOn?8UvV@o#Dc1m!t)A{AV*))
zKBTMz+X$XtMDu(+K+?^bYdsoAD$JR-V@0a7zR5(JtIT;HZn|C#P?<A3#L`ul{LD>S
z<A50gOL9uHf}UBF&o%r4>sX!;!D{*#Eccoe%npN4Y|YfuAzm&IveEL{409QEjPsK+
z?c2z<i*XaXS;XX%SnMuS6#3eFJj{zp5g-O?+#?>NI~jBgY~s0>0qSJS&KpgX-r;!`
zqxzOVHSFM~ORC&s0Ci1-$Keq&#o5M-iKLOEC=TUFy%n5-#~^5-G}ixap2sFn=O-({
zCe>Dz_Dbs}`-3RexmlK^5H{9;miplaPiEyxi)F6PWQFq^Trd6`0DH2@cl7&!hN!qJ
zqWILtOUrvG=4wD3+4A*>se<kw&MW8do_}38Jc-flGmGc$PgdROSQ%-XWl`_58o7=G
zx!uMHZQc?~D64oj06>ePna!UsWuDaz0pBp)qb-epjx7X5uPSdX@IPs3{Hr^2)$!}Z
zGk)^Bu);Q_Y<W^?`GgSyUE^Kiw8F3@Y+lxJXG7m*H90I9_Va4%oyn|D8uhf|;U9Kz
zaSHUl3v45620;=z;{d8(tfV9MQI<oGP)Xi&!JZ=3!YV-dwEWe{5Q?xZP}%G$#3=&L
zKfmsHc<7P6?)-cop8dEnoO1U#&DIy@;8qY;)mvKPHY(7=4_`J~{T^}zjS<e6aNIzJ
zXu$lgPU*jcJrec+ilsdq82+(>3L&6S3Hf3AFh5}x4Bv28nB*~y!lI~h?{re|S3MiM
VpG~-f2A~9^CbP7(iH#}qe*lnUr{Dkp

diff --git a/ReaClassical/ReaClassical.lua b/ReaClassical/ReaClassical.lua
index da3901a0..29d27d44 100644
--- a/ReaClassical/ReaClassical.lua
+++ b/ReaClassical/ReaClassical.lua
@@ -1,8 +1,10 @@
 @description ReaClassical
 @author chmaha
-@version 23.22pre5
+@version 23.22
 @changelog
-  Fix time-stretching by unlocking pasted items before the main operation.
+  Revert time sig/tempo removal due to REAPER fix
+  Fix time-stretching by unlocking pasted items before the main operation
+  Use color of original items when using time-stretch glue
 @metapackage
 @provides
   [main] ReaClassical_Add Destination IN marker.lua
diff --git a/ReaClassical/ReaClassical_Create source groups (vertical).lua b/ReaClassical/ReaClassical_Create source groups (vertical).lua
index cdc63723..83c541ff 100644
--- a/ReaClassical/ReaClassical_Create source groups (vertical).lua	
+++ b/ReaClassical/ReaClassical_Create source groups (vertical).lua	
@@ -147,6 +147,7 @@ function sync_routing_and_fx()
         remove_track_groups()
         local ret = add_track_groups()
         if not ret then return end
+      
 
         local first_track = GetTrack(0, 0)
         SetOnlyTrackSelected(first_track)
@@ -157,7 +158,7 @@ function sync_routing_and_fx()
             local select_children = NamedCommandLookup("_SWS_SELCHILDREN2")
             Main_OnCommand(select_children, 0)            --SWS_SELCHILDREN2
             local copy_folder_routing = NamedCommandLookup("_S&M_COPYSNDRCV2")
-            Main_OnCommand(copy_folder_routing, 0)        -- copy folder track routing
+            Main_OnCommand(copy_folder_routing, 0)        -- copy folder track routinga
             Main_OnCommand(42579, 0)                      -- Track: Remove selected tracks from all track media/razor editing groups
             local copy = NamedCommandLookup("_S&M_COPYSNDRCV1") -- SWS/S&M: Copy selected tracks (with routing)
             Main_OnCommand(copy, 0)
diff --git a/ReaClassical/ReaClassical_Insert with timestretching.lua b/ReaClassical/ReaClassical_Insert with timestretching.lua
index c6b47190..bb867dff 100644
--- a/ReaClassical/ReaClassical_Insert with timestretching.lua	
+++ b/ReaClassical/ReaClassical_Insert with timestretching.lua	
@@ -58,6 +58,10 @@ function main()
         end
         Main_OnCommand(40289, 0) -- Item: Unselect all items
         local first_item = selected_items[0]
+
+        local item_color = GetMediaItemInfo_Value(first_item, "I_CUSTOMCOLOR")
+
+
         SetMediaItemSelected(first_item, true)
         Main_OnCommand(40034, 0)         -- Item grouping: Select all items in groups
         Main_OnCommand(41305, 0)         -- Item edit: Trim left edge of item to edit cursor
@@ -73,6 +77,13 @@ function main()
             Main_OnCommand(40362, 0) -- glue items
         end
         Main_OnCommand(41206, 0)     -- Item: Move and stretch items to fit time selection
+        
+        local num_of_items = CountSelectedMediaItems()
+        for i = 0, num_of_items -1, 1 do
+            local item = GetSelectedMediaItem(0, i)
+            SetMediaItemInfo_Value(item, "I_CUSTOMCOLOR", item_color)
+        end
+        
         state = GetToggleCommandState(1156)
         if state == 0 then
             Main_OnCommand(1156, 0) -- Options: Toggle item grouping and track media/razor edit grouping