Welcome to the Parallax Discussion Forums, sign-up to participate.

Whit
Posts: **4,057**

Happy Easter from Robotics Under the Stole - https://roboticsunderthestole.blogspot.com/2019/04/happy-easter-2019-from-rus.html

Thanks to all of you for your steadfast presence here on the Forums, your wise counsel, and the encouraging joy that you constantly share!

Thanks to all of you for your steadfast presence here on the Forums, your wise counsel, and the encouraging joy that you constantly share!

## Comments

13,2574,057Whit+"We keep moving forward, opening new doors, and doing new things, because we're curious and curiosity keeps leading us down new paths." - Walt Disney19,441"When you make a thing, a thing that is new, it is so complicated making it that it is bound to be ugly. But those that make it after you, they don’t have to worry about making it. And they can make it pretty, and so everybody can like it when others make it after you."- Pablo Picasso

4,057Whit+"We keep moving forward, opening new doors, and doing new things, because we're curious and curiosity keeps leading us down new paths." - Walt Disney13,25719,441@Whit: You really need to create a "conversion" kit to turn any capable Parallax robot (S2 and forward) into a...

Holy Roller.

"When you make a thing, a thing that is new, it is so complicated making it that it is bound to be ugly. But those that make it after you, they don’t have to worry about making it. And they can make it pretty, and so everybody can like it when others make it after you."- Pablo Picasso

4,057Whit+"We keep moving forward, opening new doors, and doing new things, because we're curious and curiosity keeps leading us down new paths." - Walt Disney13,25758619,441https://www.popularmechanics.com/technology/robots/a26698/germany-robot-priest/

and

"When you make a thing, a thing that is new, it is so complicated making it that it is bound to be ugly. But those that make it after you, they don’t have to worry about making it. And they can make it pretty, and so everybody can like it when others make it after you."- Pablo Picasso

4,057Whit+3,27419,441At a minimum, you could program your robot to determine Easter dates. No small feat! BASIC program below from https://www.assa.org.au/edm#ComputerSub EasterDate (d, m, y)

' EASTER DATE CALCULATION FOR YEARS 1583 TO 4099

' y is a 4 digit year 1583 to 4099

' d returns the day of the month of Easter

' m returns the month of Easter

' Easter Sunday is the Sunday following the Paschal Full Moon

' (PFM) date for the year

' This algorithm is an arithmetic interpretation of the 3 step

' Easter Dating Method developed by Ron Mallen 1985, as a vast

' improvement on the method described in the Common Prayer Book

' Because this algorithm is a direct translation of the

' official tables, it can be easily proved to be 100% correct

' This algorithm derives values by sequential inter-dependent

' calculations, so ... DO NOT MODIFY THE ORDER OF CALCULATIONS!

' The \ operator may be unfamiliar - it means integer division

' for example, 30 \ 7 = 4 (the remainder is ignored)

' All variables are integer data types

' It's free! Please do not modify code or comments!

' ==========================================================

Dim FirstDig, Remain19, temp 'intermediate results

Dim tA, tB, tC, tD, tE 'table A to E results

FirstDig = y \ 100 'first 2 digits of year

Remain19 = y Mod 19 'remainder of year / 19

' calculate PFM date

temp = (FirstDig - 15) \ 2 + 202 - 11 * Remain19

Select Case FirstDig

Case 21, 24, 25, 27 To 32, 34, 35, 38

temp = temp - 1

Case 33, 36, 37, 39, 40

temp = temp - 2

End Select

temp = temp Mod 30

tA = temp + 21

If temp = 29 Then tA = tA - 1

If (temp = 28 And Remain19 > 10) Then tA = tA - 1

'find the next Sunday

tB = (tA - 19) Mod 7

tC = (40 - FirstDig) Mod 4

If tC = 3 Then tC = tC + 1

If tC > 1 Then tC = tC + 1

temp = y Mod 100

tD = (temp + temp \ 4) Mod 7

tE = ((20 - tB - tC - tD) Mod 7) + 1

d = tA + tE

'return the date

If d > 31 Then

d = d - 31

m = 4

Else

m = 3

End If

End Sub

- Pablo Picasso

4,057Whit+