PureBoard

Code: Alles auswählen

; http://www.bradan.eu/
; DarkDragon

Procedure rgbClamped(r, g, b)
  If r > 255 : r = 255 : ElseIf r < 0 : r = 0 : EndIf
  If g > 255 : g = 255 : ElseIf g < 0 : g = 0 : EndIf
  If b > 255 : b = 255 : ElseIf b < 0 : b = 0 : EndIf

  ProcedureReturn RGB(r, g, b)
EndProcedure

Procedure doEffect(image, angle.d)
  Protected width
  Protected height
  Protected halfWidth
  Protected halfHeight
  Protected x
  Protected y
  Protected color
  Protected pixelAngle.d

  angle = (angle * #PI) / 180.0

  If IsImage(image)
    width  = ImageWidth(image)
    height = ImageHeight(image)
   
    halfWidth  = width >> 1
    halfHeight = height >> 1

    If StartDrawing(ImageOutput(image))

      For x = -halfWidth To halfWidth - 1
        For y = -halfHeight To halfHeight - 1

          ; Es sei <u, v> : (R²)² --> R : (u, v) |--> u.x1 * v.x1 + u.x2 * v.x2
          ; das Standardskalarprodukt. Dann gilt für den Winkel zwischen den 2 Vektoren:
          ; angle = acos(<a, b> / (|a| * |b|))
          pixelAngle = ACos(y / Sqr(x * x + y * y))
         
          If angle < #PI And x > 0
            If pixelAngle < angle
              color = Point(x + halfWidth, height - (y + halfHeight) - 1)
              color = rgbClamped(Red(color) + 50, Green(color) + 50, Blue(color) + 50)
              Plot(x + halfWidth, height - (y + halfHeight) - 1, color)
            EndIf
          Else
            If x > 0
              color = Point(x + halfWidth, height - (y + halfHeight) - 1)
              color = rgbClamped(Red(color) + 50, Green(color) + 50, Blue(color) + 50)
              Plot(x + halfWidth, height - (y + halfHeight) - 1, color)
            ElseIf pixelAngle < angle - #PI
              color = Point(x + halfWidth, y + halfHeight)
              color = rgbClamped(Red(color) + 50, Green(color) + 50, Blue(color) + 50)
              Plot(x + halfWidth, y + halfHeight, color)
            EndIf
          EndIf

        Next y
      Next x

      StopDrawing()
    EndIf
  EndIf
EndProcedure

Define angle.d
Define lastTime
Define currentTime

If OpenWindow(0, 0, 0, 128, 128, "Test")

  If CreateImage(0, 64, 64)

    If StartDrawing(ImageOutput(0))

      Box(0, 0, 64, 64, RGB(255, 192, 32))
      Circle(32, 32, 32, RGB(128, 128, 192))

      StopDrawing()

      angle = 0.0
      lastTime = ElapsedMilliseconds()

      Repeat

        currentTime = ElapsedMilliseconds()
        angle + (currentTime - lastTime) * 0.1
        lastTime = currentTime

        While angle > 360.0
          angle - 360.0
        Wend

        CopyImage(0, 1)

        If IsImage(1)

          doEffect(1, angle)

          If StartDrawing(WindowOutput(0))
            DrawImage(ImageID(1), 32, 32, 64, 64)
            StopDrawing()
          EndIf

          FreeImage(1)
        EndIf

      Until WindowEvent() = #PB_Event_CloseWindow

    EndIf

  EndIf

EndIf