From 5369a5175b550879bf2a3dddaf74fe8d2c1eab46 Mon Sep 17 00:00:00 2001 From: Charles Lohr Date: Mon, 29 Nov 2004 16:16:48 +0000 Subject: [PATCH] Add: Theme Utility (dirty and in VB) --- stepmania/Utils/Theme/Analyzer.exe | Bin 0 -> 32768 bytes stepmania/Utils/Theme/Analyzer.frm | 227 +++++++++++++++++++++++++++++ stepmania/Utils/Theme/Analyzer.vbp | 34 +++++ stepmania/Utils/Theme/Analyzer.vbw | 1 + 4 files changed, 262 insertions(+) create mode 100755 stepmania/Utils/Theme/Analyzer.exe create mode 100644 stepmania/Utils/Theme/Analyzer.frm create mode 100644 stepmania/Utils/Theme/Analyzer.vbp create mode 100644 stepmania/Utils/Theme/Analyzer.vbw diff --git a/stepmania/Utils/Theme/Analyzer.exe b/stepmania/Utils/Theme/Analyzer.exe new file mode 100755 index 0000000000000000000000000000000000000000..f0d55a4ba158af44277c40b5cafb06e8ef382463 GIT binary patch literal 32768 zcmeHQe|%I|mA^xVWT1hBAEBwGGPSg2yOo6|cBxQ1kPL;EAu|&aYFmUrW}IMtb>2)% zyJZ_1M)Q0;4VBc`LO%M>OhER>-Yz#MiG+b5Z+*Vaz-w<(b4LHNmdS^|&v$U+-S=Ue@_3TP3Z$RYP zuCQeb;YE&9=8nxqm=C{&(k>ZCn%ZlFr;uF}Ao7ot*u)ghK!VB<;4mKW(_?oFv4~=g zLY#DP*4qM$P^ptBP+i2>ByMpeup@$JyIlZ;>or3JmUE)Di>s?5RmjMn4zPtHW{ALY zE+Kjrhn4U)WN;fA5g|MZlbj2JyYa%#<@CsMp7P37m7ZIdEG}KQ&dSS#83|-0kdZ(} z0vQQpB#@CnMgkcLWF(N0Kt=+8zY?fy^((oZKBeP6pHkoASDq1m<%ixbJm;K6@?kH8hg7{Y|d`jdCKIQZ7Qsw*?yo$22RQcSNQpNZ| ziLz^sS23*gD zKCiOv6JF(O;Hm5JGG%o|sWSDoQsw8U>*v6E0rVrNs{nCtnNOMh`YPoC;J+X3_-?je zxvI>ooCclMpZ6*6L*3bPe9CuG-`Byj&*oEJM&8q&QlFw3u$!TaVHd+g3|ko1GThB@Awvhleuj32!wlOQ zmNJYmJi~B+;eLi27`8Gz$#5>ibqv=qJi#!;u#;gg!zP9u3=0|NGklKWB8I0KRx{kf zP%zxbFqh#d!#;+C4DV-njNxI1#SGtM=wvv;@Mea~817(r55q==J%B=loby~_@C}2` zy~r(rcToiH{5P*2hOi>M8*bPh*cMqTZg)DJOPx-7 zZuBk{(?7HIms4LWe%iCwe{|%jhi86&PRsk7XRaDp`S@M^B~SMkZunr?SBgFt{K2f} zbH#s%Ew6rt3SP?5;m{^R$`QeEou{g%Ud*t~7o|1f$ivP^C{P!0)&(Nrnr(`+s=liB z;YR{tag|N167REJht?Sjr;61L;ku>b263bK!23byF0|yr0ua1Xh}Bt!?P28E=80`} z)&4+T!-Ij6hPt|jdXFS3?6$Q+<~z6XgLri}+~5oc8pAd95vQ^(90=4a&P8=mCE^U$ z)K{k>2W!Gg9@sS=XWFDbqw`N2DwoX^ck16#JHG{nI`@@1JJO zc8DvD!Ym`}df;R^1Tj@rU%eFkWQi626~ew~?qRzjHfGJr0i_QD%RYnJuo{)i765gQ zprli#o$)4ZnbzpYaTsD&Hj2_|R*7tAC~YX0EfEfTYk?4(r@xjnYbub4i|lNo zzp}a-gr|xRtt>755OION7kAoc*@5K*R?c)Hl_0Zann@-L2v-BaF;$d?YaR@Ue4Ia? zoORBz+;+tjJR@ODvxDKcI!K2-&gHNoXiosh*DyP#_1*3EGVI@qgR^?_^WUw0GdS>Ru-2#3>&E-T~S>klqFVNq7xD)vdJjI35x4A@?Q-jug7MNYf22 z(L**B=bVl$F7feM$VZrQ83`myfOOAtH$y+hu6L1&vgMzTbpC-455CgSvG%}b`PI^veSPn||aiv!o5%=)VPYjfZHRsHj?yq-Gd_uTN-lW+d6 zz}5Wa=e2)-ew}62S2u7h*7$@UVQM5NR*`$*nG= zq;ox0DE_d1{8VUK)@0k6u=yzFPiccRp+am;$!GHkd@_;0NU0++&j@jEO1adjndVI5 zc9K~!Wu_6LUG$19{E=IM72skKK#Y6|H0cTRUWuN<9!fOi)r)(8TMj&%h=>}br-&zP zNhVdObHy z+Lw~1ad1C8(Qx9A9Ocb0L!wIQ`^=Cg>&jItZ?*1^HgA4#Yn3}3ZU~n>7zhVz8y>=x zNqN+nCAAF-#K`ILNVu{J|1eUL(jKf?WEu}?dbXaGG&IuMMyBr!M2f9A@JgeNGN0-w zYYfy|&sJk4gXimNlt{d+nHNv5y#*K+kH80C#og<#Ng+#5`<8+CUtuEvWvFvMw;sna}!@EQQ#-b2| zh)*@gBjFqbe&dlsF>2bWDdRh`*EATpi z*JtLtM4>ngyaA-AB;kqcT;eeBM$CMy%*1oR8$)_}65bBr^#Jd*neP${_&tDJ%xBgd ziDF^^cqf53-^{1>b|atUXG@|NSt#YV5O|bNcs(YbJqhomiMIlHlwS;8SqZ-${yz8+ zd=&n1cyiSDG}r!OHnwf>Z@~Yx+*q2rZZ`RNyLB#H@b0x^U7EVe-=TIy($KDZ2Wan4 zL-&z)fbL}db}UVOli|LT`NL`I-SSsx=UmvmcWc~Su6$Oc;c4|d)b{E$v~PO{Xz!|B zXnz_F9NLJPiV`nU;}&8K=4Ej2Wl-X3&h&oHC4fujz*1tT=@g+Hmu5Ziu$=)&C~oyw&RU6gCf+mRD|6 z18*L8j|x21q7Lnq<^h}P9&7&fg-R94nTF4<%`57uRNaHB`;6)yP~E3h_X*>P+$@|j z+)k%~Ufq4#Yn;+%R%-pm-nq!vD+auNc(AA8H@dJj0tmQmxX$ zUEHVrYSYVh(VB3R_Rp^2PH-6SqQZ-Ikx{AcJgx5RRd;r)JG<1K2i2XO>dp>z=YDl( zySj6qx^uVs?FjTw{dP6O4Gc>ex){!9n9FeN0$~m_Jk79|VK>7=4EHnK!|+jtwSZDJ zpcL(1qk!~7>(|?;0)M%7g|W9EGFW~b-99@+QA_>>qypcSPsqjKrktBqp!kMso7$F%pYk*GWdujnh8=@z|q?ql1Kc zfC?Os)dIH6p|q6n{Ya|^sJu}?hw96ZM|?b13h21~cG`nV_QJVF0iDBZ%&hjQ77%@b z*w=G+83lAIueVYCdW@>~>z>mXO9ga(fA(2zUgboIJ4}hkn;(~Yp{B0@jfCudX7h`F zlq~j_&%G8@+lqmiBK9jC5PNoIYU7PovIh_$F~*&quX{Ru8!ZN&pusv${_)Xk$zOAK zf|XG;$|&dqyq)&*vg;G_A&#{5Yl7O`m9m?_C5b(?w}zpJ=&dmXvbQGd6L6`Gngicb zfS8fD+lG#1?MlGzDkw9%BOhUUxWoW4FEBll+m2WRBPzL5i6 zO>W-JU_P8}cK$0@v1hu%OC}@p0VD%s`c+WpPZ|;QF-0|V%90$-lXR?>Gtnx z>#Mc7yR?s!66v|nY1SW4XG$Y=on)l9k%&kusT)Y6v{4>~L+6l>@n!5~0VEBqQR-L- zAZMe|N}V{V04h2$78CtREut>9TBNN;H|FjLs-L0(45BFvLa`@k8P7V&re)Mr^o?4c zG%Y4KanoXTM^KBgP0?wn!lJO!w9z=l*rp*0ZRurgX*(U4h^aIOQU@~hoRo&`k;d#7 z^(-G%V}z%-$r^O7Ax1TTG}YiuZH`5r9{Tcjduar<9YXDTtQ!#HyqAU(nT}Xb-tJla zoT%%bgOU~mCyukZqK&*!kV_p%a-+(nX(9$D7zoySvSM-&p{CsvxYHJ(ZUKT&jC~Yr zG(K~A{hh4v|A|$RRQNRguX6|Z^|n1|E-8cTilC~qB=u6T?gfwgr8K%(Grc}(Q;)~i z;W0@-JwS+3P?L@4ducqUF_rJ0B)*02GbMphoIDbAcQ<5AV}HV^$H@Mf9NF6HYJKka zbWfKyw{_An?de6Ir6Z(0N#;O9Y5NPLQ(I73tS7QiiasG>YhJOez)Pf!tkH3uBT=X7 zoL+Iz)Fe}ls9Q{=CTeyy>I6w3WSIW@|d5W8F*Z9kcfM(g*8ax%8>nue&>71vSaa>+8q9IeI)F^61hHN`gGD_pF^47Qn9R(DZUS>Y0#t-m zRUt{~15`!xv0|*7j2}Y*33L;HmW@zTJqL{+UuwZV^tGQF1~1w#vR-e3O2yafi!kd? zzNPv}rMl^~x~W&))U9snQa2q`H+8C;I@C@3)lKc{rhV$B-Ev)-JWEJRr}FYxJ>Wz$ z)dTqq1;Y`DK|L_Q@Fc??hKCt;Fl+^s${XLlVWoabOSfP?igo&>7tC5VkH?AAb<(2n zl$NjSGz0tMOG28XStG3);*++uB)ptSo0^Xxld+rvX@0e4hjul#n*_j< zx5n|rv>fY^BG22s8Pir!PVE<&(DgPFI3_5PzMQU;Ye)MqHzjJPN&J`Z$Rv*4DweJ9 z$^?F^BR*|ST)@RAa8kC5OyH!Ekk4gK;3}JIYiwc#`zDQI&Xg)kf(%TY(BDO=IOFSh zT9W^LOy-O9HtGgFW=Y$c%%wc#oOy&WEF+_Jy*g0zpFc1BIR+?$IRyxk=CRtxqbYmxyZdpV-r=Q6shaGz-?4XX)IxDwj zvK3acTyz@zdK-;>G%LO~87kmq3E8D&vm}=#()tWFpP#U~f&osqX*UhzB%Ai2#wRNm z-3lM(v8U5Skh~SXh=JSzRBO;toQB(duv@(EPuW={oA`twm1a~cl*b!-MJH`Ab>4e{ zhuuDOM^b;Q2O3d}c3=gn^=dInl&9ZYS__u+n`>>-6}DEnMxGG(biEbigPQ$bd9s78 z;QiE7G1@}-p`|oQQg^cM`@NUgYpAgZ@F$om$|R{x!GYG_ZbbYGYM*RG^iDn^w90C^ z>5$`L?k9Pnl>QV!b9Z@D*2e>u6`+-{94}Z)@_8_y~u$sy-wtVNfy-z+TyF!vW?b*i5{S6 zs1VyyTagOvvcLIr`p+!Klx(SpldpaO5VJ1rG6DuL1YZ9350iEubl4NO$ zD&O#5@&e|vZuBO;EKqAR$0bWisLF$4b25Pu`MU-MVuvTtu{ z?-4Wc-t!D3VM>Clv#rK2Cit{dSj(@4XbB!SUrOx_N~*Y5(mSruU!XCMHB( zxYMB>H?KHWn+NVa3snH%a+O0;r)aY|+^spK|q(%>_(RMZ3q8{0SBI=P4 z!$k~GUXNH=^B%g%6R^+lZ_$ zs21Oobl89PCAs+Z^vDITmItdPZ*ULAZ_@f%O$Wik@>lrYj-uo4?R3u}bG=CArCmrW zkBwhK)lC|4+h8dUU#O6pLMaczUht7xzh2QLuMN8(0JA7X*YXqWm%Q zzQNrG4*2S?(yvB4j=S3>-Wn56@?rHrA2qn!vhdj4Q_E2?S($jtwu>QJk?0l2be11F zsQo)c6$6X;kt5Y8Na01V=)<9<+D0sUWmC4>^okbT*19{WJs5RnkGQDQ)^Xh}<}mgh z=R2ZC?lv0OjwV8?22zl0WJ~-&l#Uf)rdV+Ez*kT!E7l(>hSY-1FWGc=i$AaF3#7|I z)sqm&NtDt&eO;stYLZFGdoi0YJLLf1f$CL0DpPq`X5E)j{g%}sqd{s-&4=|NUiBE+ z5L$h5rcp4LYLjZ9l~rpeHKvxhQI2@&Bx}BKjP3f zuGttoZpW2MP|Mcxf>UiGujv~k1~og4`H)@6RL3b3_W;YJLdpd1a3qUG>*Y5(RNmss zn@-in?{p*y3a_UW>1}JkySmb$@diU(nTyJ}DW){yW}4fGosX0oU%RxD2+NHpqLq)OX>v9xJgsj`W$pG@5PtQEA9Cx zYV~SR+X$TB0w>Bif7o>)`7{akJMYEf#$6YZZ+&(9H#8`^oi2PeekCC56+QQac4y+` zB2o2wne6Y!lTFl07if7ees|X&sa92ANUT|JBX9~F;I_Rn*!(hh{2{eUox5hdr7C)B zs0;@hM!^P%K#h)t_TuZIvv=w4!_uyHK}g+L30St(b5O51l(-0xnkyv=!()lmR6v~D zA00P^vH4_S-%h3j!;p3S75ZcRxm^b3R|@E70%z|HmI`x5x~!QTSE0)938J@8xM!|-n4kvLL+ zvx?uFH{Z9%oBSnfw>2n)x4Ei%`{rO{q^h1%^cBK{H}T~c0`cc~J3fKJbj|Mt;_uNj z&FY#5H`m=7e}_NyU3*z?IDjuT%`XeguL#Uky7%rAbc=4WN+rGHZQ*^h>@gv{DIm)6@3kY^5FA*Uo;SYcx`g6cJz9%zV<|T->qH7tfeg5NWU19&S+1rbAr0Bn{QZeZ+x!xQ`KfLADAP;x zHH(Rz{H=*4`OS4jw@l~@nZ?|b#FD>bF~7%{pj+UcmB4Hr^)fY6^V=un zXNjdzyaR;%TM(W=ScLHK1Uwu6uI?xig-h^7wc*_*8BEA8oFsqIB>Bsb?|lHTN#QNP z!*(Vuw&2a5C5T$-R-~!CmF~i8CWA@%9r%6HB}vaE6{1OR_f+EdTsH%{g&(oCq71K2 zZAQ3WtVW#Nx9z{XAXthflN{$q42Ui3iIrQ*kxEe|!k|-wU%(82X1xfC27at^Byt;kF@8y&WOFlqHPVLP zvTYD`_yt<3<6*R@3MqaaN37u|GF~iZ1J{dM8t~p$RBS_y$+#;~x(XaVEFM8=ekI4G zZ?&wF^A&Ju@xK(msJnzYp}rzs#?wzNk&G|-A!$XJuB<)5Q96D~#d}ak8B6M;EG^>L z;*TiEmZz4b-~HVIFCF~?rqekEl<-@k)0Ga5sADeF>`<-GvAN_L&~_QlYD@ePYW@Mw>f*z`W}3z+>@8aKZfrK zm~U~`b)(U*+T6?Y)KG{0#oN0uqCp1;1l64J=TG7`v0 RAR~c{1TqrHNMJGv{2u~OhfDwf literal 0 HcmV?d00001 diff --git a/stepmania/Utils/Theme/Analyzer.frm b/stepmania/Utils/Theme/Analyzer.frm new file mode 100644 index 0000000000..a36113a38a --- /dev/null +++ b/stepmania/Utils/Theme/Analyzer.frm @@ -0,0 +1,227 @@ +VERSION 5.00 +Begin VB.Form frmMain + BorderStyle = 1 'Fixed Single + Caption = "Dirty theme metrics analyzer" + ClientHeight = 5895 + ClientLeft = 45 + ClientTop = 330 + ClientWidth = 8190 + LinkTopic = "Form1" + MaxButton = 0 'False + MinButton = 0 'False + ScaleHeight = 5895 + ScaleWidth = 8190 + StartUpPosition = 3 'Windows Default + Begin VB.CommandButton cmdRemoveCommonMetrics + Caption = "Remove common metrics && reprint screens (must find common metrics first)" + Height = 495 + Left = 4920 + TabIndex = 9 + Top = 2040 + Width = 3135 + End + Begin VB.TextBox txtOutput + Height = 3375 + Left = 2400 + MultiLine = -1 'True + ScrollBars = 3 'Both + TabIndex = 8 + Top = 2520 + Width = 5775 + End + Begin VB.CommandButton Command1 + Caption = " "" Then + txtOutput = txtOutput + CommonLines(i) + vbCrLf + End If + + Next i +End Sub + +Private Sub cmdRemoveCommonMetrics_Click() + txtOutput = "" + For i = 1 To lstToDoScreens.ListCount + For j = 0 To NUMCOMMONS + foundmetric = False + For k = 0 To NumMetrics(Val(lstToDoScreens.List(i - 1)) - 1) + MetricX$ = Screens(Val(lstToDoScreens.List(i - 1)) - 1, k) + If CommonLines(j) = MetricX$ Then + foundmetric = True + Exit For + End If + Next k + If foundmetric = True Then + Screens(Val(lstToDoScreens.List(i - 1)) - 1, k) = "" + End If + Next j + Next i + + For i = 1 To lstToDoScreens.ListCount + For j = 0 To NumMetrics(Val(lstToDoScreens.List(i - 1)) - 1) + MetricX$ = Screens(Val(lstToDoScreens.List(i - 1)) - 1, j) + If MetricX$ <> "" Then + txtOutput = txtOutput + MetricX$ + vbCrLf + End If + Next j + Next i + +End Sub + +Private Sub Command1_Click() + If lstToDoScreens.ListIndex < 0 Then Exit Sub + lstToDoScreens.RemoveItem (lstToDoScreens.ListIndex) +End Sub + +Private Sub Dir_Change() + File = Dir +End Sub + +Private Sub Drive_Change() + Dir = Drive + File = Drive +End Sub + +Private Sub File_Click() + NumScreens = 0 + For i = 0 To 1000 + NumMetrics(i) = 0 + Next i + CurScreen$ = "" + lstScreens.Clear + + Open Dir + "\" + File For Binary As #1 + t = 1 + k$ = String$(2, " ") + xLine$ = "" + + While Not EOF(1) + Get #1, t, k$ + While k$ <> vbCr + vbLf And Not EOF(1) + t = t + 1 + xLine$ = xLine$ + Mid$(k$, 1, 1) + Get #1, t, k$ + Wend + t = t + 2 + If Mid(xLine$, 1, 1) = "[" Then + Screens(NumScreens, 0) = Str(NumScreens + 1) + ":" + xLine$ + NumMetrics(NumScreens) = 1 + NumScreens = NumScreens + 1 + lstScreens.AddItem (Str(NumScreens) + ":" + xLine$) + Else + Screens(NumScreens - 1, NumMetrics(NumScreens - 1)) = xLine$ + NumMetrics(NumScreens - 1) = NumMetrics(NumScreens - 1) + 1 + End If + xLine$ = "" + Wend + Close #1 +End Sub + diff --git a/stepmania/Utils/Theme/Analyzer.vbp b/stepmania/Utils/Theme/Analyzer.vbp new file mode 100644 index 0000000000..2410a12f2a --- /dev/null +++ b/stepmania/Utils/Theme/Analyzer.vbp @@ -0,0 +1,34 @@ +Type=Exe +Form=Analyzer.frm +Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\WINDOWS\System32\STDOLE2.TLB#OLE Automation +IconForm="frmMain" +Startup="frmMain" +ExeName32="Analyzer.exe" +Command32="" +Name="Project1" +HelpContextID="0" +CompatibleMode="0" +MajorVer=1 +MinorVer=0 +RevisionVer=0 +AutoIncrementVer=0 +ServerSupportFiles=0 +VersionCompanyName="Home" +CompilationType=0 +OptimizationType=0 +FavorPentiumPro(tm)=0 +CodeViewDebugInfo=0 +NoAliasing=0 +BoundsCheck=0 +OverflowCheck=0 +FlPointCheck=0 +FDIVCheck=0 +UnroundedFP=0 +StartMode=0 +Unattended=0 +Retained=0 +ThreadPerObject=0 +MaxNumberOfThreads=1 + +[MS Transaction Server] +AutoRefresh=1 diff --git a/stepmania/Utils/Theme/Analyzer.vbw b/stepmania/Utils/Theme/Analyzer.vbw new file mode 100644 index 0000000000..75abb676bb --- /dev/null +++ b/stepmania/Utils/Theme/Analyzer.vbw @@ -0,0 +1 @@ +frmMain = 44, 44, 655, 542, , 22, 22, 622, 449, C