(import
 (owl toplevel)
 (raylib))

(define speed 10)
(define width 300)
(define height 123)

(define dvdf (list->bytevector (file->list "dvd.png")))

(lambda (_)
  (set-target-fps! 60)
  (set-config-flags! (bior flag-window-undecorated flag-window-transparent))
    (with-window
     width height "wow"
     (let ((dvd (image->texture (list->image ".png" (bytevector->list dvdf)))))
       (let loop ((x 0) (y 0) (vx speed) (vy speed))
         (let* ((vx (if (or (< x 0) (> (+ x width)   (monitor-width 0))) (- 0 vx) vx))
                (vy (if (or (< y 0) (> (+ y height) (monitor-height 0))) (- 0 vy) vy)))
           (set-window-position! x y)
           (draw
            (clear-background 0)
            (draw-texture-rec dvd `(0 0 ,width ,height) '(0 0) white))
           (if (window-should-close?)
               0
               (loop (+ x vx) (+ y vy) vx vy)))))))