Scheme | ;Definitionen (define canvas- - Lckchen - m2223e288

;Definitionen
(define canvas-height 400)
(define cancas-width 700)

;Pfl�che
(define fl�che (rectangle 700 400 "solid" "green"))

;Punkt
(define punkt (ellipse 10 10 "solid" "white"))

;Player 1
(define player1 (rectangle 10 75 "solid" "white"))

;player 2
(define player2 (rectangle 10 75 "solid" "blue"))

;Overlay
(overlay (overlay (overlay fl�che punkt 345 195) player1 20 (- (/ 400 2) (/ 75 2))) player2 670 (- (/ 400 2) (/ 75 2)))

; Berechnung der n&#65533;chsten Position des Punktes
(: next-world-calculation (natural -> natural))
(define next-world-calculation
  (lambda (momentane-punkt-x)
    (if (>= momentane-punkt-x canvas-width)
      ;Fall 1: Punkt ist dem Bildschirm entfleucht
      start-punkt-x
      ;Fall 2: Punkt ist noch im Bildschirm
      (+ momentane-punkt-x 5)
    )
  )
)