[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­