From 79fac9f9d828f4a30b7dbd341e1b5fa9af32c306 Mon Sep 17 00:00:00 2001 From: f1iwq2 Date: Sun, 27 Jun 2021 10:21:53 +0200 Subject: [PATCH] V2.5B --- UnitConfig.dcu | Bin 71704 -> 71750 bytes UnitConfig.dfm | 2 +- UnitConfig.pas | 2 ++ UnitPrinc.dcu | Bin 213366 -> 213426 bytes UnitPrinc.pas | 10 +++++----- verif_version.dcu | Bin 9444 -> 9444 bytes 6 files changed, 8 insertions(+), 6 deletions(-) diff --git a/UnitConfig.dcu b/UnitConfig.dcu index 5866639ee02351d5d17134a6497eab8ff7f9bd19..b9f5fc9916c81a888cbfc73ba804ff1bff0c1bf5 100644 GIT binary patch delta 1808 zcmXBQVQ3p=9LMo{?w?C{%VJYlwW)1$ce%UTNlPnM){RWEvg(k&=%C^l6^hFwFEYtk zUIZ3GUIYvyxEN}U(qUfoMUcR1tX*E@MU{wS8&aXLGN$%Ll_C>T>5DireSY`6`F-;L z=I%xE`5o7fcU+#|B&mC*k4eMDM+HxRpIv-(LAv(B{MG37>5r~niGDbC`AY1&Pamy? zzO`Abc3{8KC6~I2h2g&1>tpZu<2gez!*Jl3dIl|1^yUzw>S?(`h>zrcy#cHRVz85%t zMpdLiZ48t(=Ni@Dz}3{9%WpVW)o?Brbgn{h$a&9nNSXtH_WD0O(6;wef|q&UTB zTdTW5JjG}ZDM4|{@)YJNPD!LBCCIDSUFUd8PzfnTNviO4o~I^6HrvMJv+^HF%5i$5tqVv`S^NtUCV#WT{LgqzbK4j;A;#QV1-B$ih3*pADy)EJ_bQMo*q!bwc+$P@w2ijPzGMTNHyT~MR{NVkx`*BD-*S%S zH4i(OYPh0Dc(jJ%;DQmm^t`OXe84N{5%dcD0v*uDWWj1+1gr%{!FpgqFa_ig zwi5^grkw+dcAk^w&f-+Hc_3ZHX0-*7(-uKqiwI&sietC61lZA1Ao!k~fnGfedh{IV z)$@XaUNy#YGuwYdM>)>`B+p-$q(AorTt0{O0e%ZoK+S_2t z-T@)|iC_9;fs9*x5h9|+!M#IPcb+Iot?)I{A+3j^dS3Q~Kzh7b}{s+s0Z(INX delta 1757 zcmXBTL1>$09LMqZdH-*cy^XOeEYN0allRU0zBPk&E39HCnS?Q+Xpt&C%-KV6ndFd3 zWDx?!5LgcHAxOwVERsWz9CC=P#!}ux4nZo+IYy9C3)Wdi2V?ZmN)A;seSUc^{|~=! z-uI9|e!8c8eNXW|k)+Y_aVF*OZkN1)@h|Rfzb}3E>hi6`?JJ+&x|#T7=ElwB(%tR# z=nob%+eg-G9y#tQm!`+t7iZo%DL=i_&R>q*9{Ey|q#OTTxM7FNe|&$P70O?2`rGfd zN5XuVZz!;qvRl)zpV;AXYIvHGIz)k~Yp@^$Z=% zo5NTWxU7?ii`MYDw?YRudI_vNHJX9pc+mSky#CRNF;Bq&Zzp5}Op(;QNg z5_HVdJWmNqAf+fty^y0sc}mg}Qkqhf=PAZhiZVzUN|UNN%2l4yw1$+W3^jOK;3-4v zs+4mpdCF3sw?*Ev)Wc&1%2QEylqH_>^c=~i0`2m&%u|8X5uS=|$j#2ud8Oo*WT`Z|29z4^)@TFBP28Q)7T6u#7`DyG2>XUjDjg4xt-uzL z@8fm@J@9nfQ~lG+j^11kCQk5ePNhIJkOuQpSs>?e7pH9Sv`j^~I#mHzUh!1DKBlps ztLJ@8m&;WBfKNFZsHV9&{`m3m@!$Z&gD#a5BNf;|pI}Vj7fc8=kR%f{gAvdQo&)Q_ zS;0JzqPWMw7#IYv0v1{rk_#$nB80dlt4ghjI@*Z|Rh0}jj%I5fMU zZ*B=5f(5k)X069y&e{R<)~;Y5{P?ctIV@NQz_t!S(dr8Z;JU=ToCC`R4lPyS6O0M` zpl?lr`ga;gPMaV#9TA)p%!2gv9O!MnILZE2*yo$i{Op44-f_KDy^GZ||k(L&!Bm-l=B@4okV_xn-*uGJs- z%Gki}G_g6us|CVz*YI{m57NHA8_Np?tCOyD(o&<7mJ=T()=(rG^HKe;+_>har$Z9s z%`n}(%=W@eW~t&nNEZ)5J;TRU8WWZKDp}!&D>R{s*ehkhacLR^di?yKN(suJDqN3H zBGzXhH`hwwbCgWDxn_f8g!o*9u2AwBaSNOLZH2#%kUGdb6jsY^VC^fsB`&+JonhQ5 z`yx2KMZNHQIRuX6FqmCWfb9{i3+pLhJt3ad#P!53@LOUdexfAMFFnTRCDR6m>4H`B zIr#QQ;fERx;Y_2YQIAA*Rpwu!G&A`?l?_dFf|U{&PLc^nDt4EPF347D|Jek?KNNmP zrhJx$7NdKEqO{j7IS1X+i#VzC6qH+-Y{vtx(*~m2fv=pO;AQRvG@U=7 mo{`UB+wtjw@gns?$qj;89s(gZ3KnyGB~Fu4rm-ET5Akya>X^9z delta 622 zcmXBPu}d3K90%}w?{{}-(kNnY$X$$y5?Y1O+z=r{3l0vYll}$mP_TkfhZGcIyaY)O zFHj5m$WZ9gp;NISM+c#TB87&MsYVFJ!9q$ML@aa=`o1sA_rve|``v^4RE_NRY;YD=bdI^{wvbpZ} z@0J|8&rGocxcK6bJ*;=IS}mW0tSx@aH}d8!roFP^NbU?Gdu0poIC6d?4a^Mk`9@Z4 z#9Tr?J0M;HT{I;*a}%o-&j&@X0am>ob>BqBDsTI|S6z6MpaI78-6TDEpcfPJVx(3A z+(Tw+z8V_HLT$TGQ+2|VA5BDB7?$g8uu|`+RTt^kFVrBelj`>qw~XBgPl3)L+nt*v7J;AotlPV;?r5FCJ3t0nVU_S#ioT`(0|P{ZS^xk5 diff --git a/UnitPrinc.pas b/UnitPrinc.pas index 692c187..f4afcbe 100644 --- a/UnitPrinc.pas +++ b/UnitPrinc.pas @@ -168,7 +168,7 @@ const titre='Signaux complexes GL '; tempoFeu=100; MaxAcc=2048; -LargImg=50;HtImg=91; // image des feux +LargImg=50;HtImg=91; // Dimensions image des feux const_droit=2;const_devie=1; // positions aiguillages transmises par la centrale LENZ const_devieG_CDM=3; // positions aiguillages transmises par cdm const_devieD_CDM=2; // positions aiguillages transmises par cdm @@ -397,7 +397,7 @@ end; // renvoie le 1er numéro de bit à 1 // ex BitNum(4)=2 -Function BitNum(n : word) : integer; +Function PremBitNum(n : word) : integer; var i : integer; trouve : boolean; begin @@ -407,7 +407,7 @@ begin if not(trouve) then inc(i); n:=n shr 1; until (i=16) or trouve; - BitNum:=i; + PremBitNum:=i; end; // conversion du motif de bits (codebin) de la configuration du signal complexe en deux mots: @@ -418,8 +418,8 @@ end; procedure code_to_aspect(codebin : word;var premierbit,combine : word) ; var i,mot : word; begin - premierBit:=BitNum(CodeBin and $3ff); - combine:=BitNum(CodeBin and $fc00); + premierBit:=PremBitNum(CodeBin and $3ff); + combine:=PremBitNum(CodeBin and $fc00); end; // dessine un cercle plein dans le feu diff --git a/verif_version.dcu b/verif_version.dcu index 9758f9afdc5f16d373b1273378a604dd02191346..adc16f48baedb8ce401cca1fad6b3d6de9c848ae 100644 GIT binary patch delta 33 rcmV++0N(%PN#scj-v9s)