roku_family_photos.git

@@ -1,4 +1,4 @@

-Sub Main()

+sub main()

      print "Starting Family Photos"

      m.imageSizeX = 1280

@@ -23,43 +23,43 @@ Sub Main()

      m.scaleY = m.screen.GetHeight() / m.imageSizeY

      m.screen.DrawScaledObject(0, 0, m.scaleX, m.scaleY, m.currentBitmap)

-     ChangeSlide()

+     change_slide()

-     While(True)

+     while(true)

           msg = wait(0, port) 

-          If type(msg) = "roUniversalControlEvent" Then

+          if type(msg) = "roUniversalControlEvent"

                button = msg.GetInt()

-               If ((button = 5) Or (button = 6)) and m.index < m.slideCount - 1 Then

+               if ((button = 5) Or (button = 6)) and m.index < m.slideCount - 1

                     print "Show Next Slide"

                     m.index = m.index + 1

-                    ChangeSlide()

-               Else If (button = 4) And (m.index > 0)  Then

+                    change_slide()

+               else if (button = 4) And (m.index > 0)

                     print "Show Previous Slide"

                     m.index = m.index - 1

-                    ChangeSlide()

-               End If

-          End If

+                    change_slide()

+               end if

+          end if

-     End While

+     end while

-End Sub

+end sub

-Function ChangeSlide()

+function change_slide()

-     If m.index < 0 Then

+     if m.index < 0

           m.nextBitmap = CreateObject("roBitmap", "pkg:/images/background.jpg")

-     Else If m.index >= m.slideCount Then

+     else if m.index >= m.slideCount

           m.nextBitmap = CreateObject("roBitmap", "pkg:/images/background.jpg")

-     Else

+     else

           m.nextBitmap = CreateObject("roBitmap", m.arrayImages[m.index])

-     End If

+     End if

      m.nextBitmap.SetAlphaEnable(true)

-     For i = 0 to 255 Step 5

+     for i = 0 to 255 step 5

           hexcolor = &hFFFFFFFF - i

           hexcolor2  = &hFFFFFF00 + i

@@ -67,11 +67,11 @@ Function ChangeSlide()

           m.screen.DrawScaledObject(0, 0, m.scaleX, m.scaleY, m.nextBitmap, hexcolor2) 'fadein

           m.screen.SwapBuffers()

-     End For

+     end for

      m.currentBitmap = 0 'release the current bitmap

      m.currentBitmap = m.nextBitmap 'assign the new next bitmap

      m.nextBitmap = 0 'release the next bitmap

-End Function

+end function