[r4]: / trunk / RetroGames / Pong / GameObjects / FB_Ball / svnobj  Maximize  Restore  History

Download this file

5 lines (5 with data), 3.8 kB

Gx_lх!0…jьot
mђ№}YрЉ-
System.StringL{6f9dac99-8de1-4efc-8465-68ac443b7d08}SpecialFuncL{0db3d7bb-cde0-4416-9a7b-ce49a0124323}NoneImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocument	L{f3878285-8e4f-490b-bb1b-9acbb7eb04db}
TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id
longTagText:udiTimeNow := SysTimeGetMs();,IF udiTimeOld = 0 THEN4	udiTimeOld := udiTimeNow;END_IFNudiTimeDiff := udiTimeNow - udiTimeOld;~iDeltaX := REAL_TO_INT(vecIn.rVX * UDINT_TO_REAL(udiTimeDiff));~iDeltaY := REAL_TO_INT(vecIn.rVY * UDINT_TO_REAL(udiTimeDiff));0IF (iDeltaY >= 12) THEN 	iDeltaY := 12;0IF (iDeltaY <= -12) THEN 	iDeltaY := -12;pIF posOld.xValid AND (iDeltaX <> 0 OR iDeltaY <> 0) THENP	posOut.iXPos := posOld.iXPos + iDeltaX;P	posOut.iYPos := posOld.iYPos + iDeltaY; vecOut := vecIn; R// Call generic implementation of base fb!SUPER^();"Interface#L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}$R/// This function block describes a ball.%~/// A ball has always a current impulse, which keeps it moving.&T/// In our case it doesn't even slow down.'XFUNCTION_BLOCK FB_Ball EXTENDS FB_ObjectBase(VAR_INPUT)END_VAR*VAR_OUTPUT+VAR,	iDeltaX: INT;-	iDeltaY: INT;.VAR_TEMP/(	udiTimeNow : UDINT;0*	udiTimeDiff : UDINT;1"UniqueIdGenerator2793POULevel4L{8e575c5b-1d37-49c6-941b-5c0ec7874787}5Standard6 ChildObjectGuids78System.Collections.ArrayList8,AddAttributeSubsequent9boolРР-РР	E
РР
­
ЪР-РР
­(ЪР-РР
­.ЪР-РР
­/ЪР-РР
­-ЪР-РР
­ЪР-РР
­ЪР-РР
­#ЪР-РР
­NЪР-РР
­GЪР-РР
­HЪР-РР
­IЪР-РР
­JЪР-РР
­KЪР-РР
­LЪР-РР
­MЪР-РР
­%ЪР-РР
­OЪР-РР
­ЪР-РР
­ЪР-РР
­ЪР-РР
­!ЪР-РР
­ЪР-РР
­ ЪР-РР
­ЪР-РР
­ЪР-РР
­ЪР- РР
­	ЪР-!Р"#Р	E
РР
­0ЪР-$РР
­1ЪР-%РР
­2ЪР-&РР
­3ЪР-'РР
­4ЪР-(РР
­5ЪР-)РР
­6ЪР-*РР
­7ЪР-)РР
­8ЪР-+РР
­9ЪР-,РР
­:ЪР--РР
­;ЪР-)РР
­<ЪР-.РР
­=ЪР-/РР
­>ЪР-0РР
­ЪР-)Р1-2Р34-567Р89­